Ps22Pdf

Transcription

1 IN F O R M IX 4G L

2 ( ) 158 INFORMIX 4GL,, : INFORMIX 4GL,,,, /,,, INFORMIX 4GL,,, INFORMIX-4GL : / 16 : : : ISBN / T P 560 :

3 ,,, ( DBMS),, DBMS INF ORMIX 4GL Informix Software U N IX/ XENIX,,,, SQL RDSQ L IN FORMIX 4GL IN FORMIX 4GL, IN FORMIX 4GL IN FORMIX 4GL / INF ORMIX 4GL IN FORMIX 4GL RDSQL IN FORMIX 4GL IN FORMIX 4GL,,

4

5 ( 1) 1. 1 ( 1) 1. 2 IN FORMIX 4GL ( 2) 1. 3 INF ORMIX 4GL ( 3) ( 3) ( 3) ( 5) ( 7) ( 8) 1 ( 9) INFORMIX-4GL ( 10) 2. 1 INF ORMIX 4GL ( 10) ( 10) ( 11) / ( 12) ( 13) CASE ( 15) IF ( 16) FOR ( 16) WH ILE ( 17) ( 18) 2. 2 INF ORMIX 4GL ( 18) IN FORMIX 4GL ( 18) IN FORMIX 4GL ( 19) 2 ( 20) INFORMIX-4GL ( 22) 3. 1 ( 22) ( 22) ( 23) ( 23) 3. 2 ( 24) ( 27)

6 ( 27) ( 29) ( 31) 3. 3 ( 31) SELECT ( 33) ( 36) 3 ( 38) INFORMIX-4GL ( 40) 4. 1 ( 41) ( 41) ( 42) ( 45) 4. 2 ( 57) 4. 3 ( 60) 4. 4 ( 62) IN FORMIX 4GL ( 62) ( 62) ( 63) 4. 5 ( 64) IN FORMIX 4GL ( 64) ( 66) ( 68) 4. 6 ( 69) 4 ( 71) ( 73) 5. 1 ( 73) 5. 2 F ORMA T ( 75) ( 75) PRIN T ( 76) SK IP ( 81) 5. 3 FORMAT ( 82) ( 82) ( 83) ( 83) 5. 4 FORMAT ( 85) ( 85)

7 ( 86) ( 86) 5. 5 ( 87) 5 ( 91) / ( 93) 6. 1 ( 93) ( 93) ( 95) 6. 2 ( 96) ( 96) sysvolatt sysvolval ( 99) 6. 3 ( 101) ( 101) ( 102) 6. 4 ( 102) IN PU T FROM ( 102) IN PU T BY NA ME ( 103) IN PU T A RRA Y ( 103) 6. 5 ( 103) DISP LA Y T O ( 103) DISP LA Y BY NA ME ( 104) DISP LA Y A RRAY ( 104) 6. 6 IN PU T ARRAY ( 104) 6 ( 108) ( 110) 7. 1 ( 110) ( 110) ( 111) 7. 2 ( 113) ( 113) ( 114) 7. 3 ( 115) ( 115) ( 117) 7. 4 ( 118) ( 118)

8 ( 121) ( 122) 7. 5 ( 123) ( 123) ( 124) ( 125) 7 ( 125) ( 127) 8. 1 ( 127) ( 127) ( 127) ( 128) ( 128) ( 129) 8. 2 ( 131) EXIT PROGRA M RET U RN ( 131) IN IT IALIZE ( 132) GOT O ( 132) OPT IONS ( 132) SCROLL ( 134) 8. 3 ( 135) 8. 4 C ( 137) C ( 137) C ( 139) C ( 139) C IN FORMIX 4GL ( 140) 8. 5 ( 140) ( 140) ( 140) 8 ( 141) RDSQL ( 144) 9. 1 ( 144) ( 144) ( 144) 9. 2 ( 147) ( 147)

9 ( 148) ( 151) ( 154) N U LL ( 154) ( 155) 9. 3 RDSQL ( 156) RDSQL ( 156) ( 157) ( 158) ( 158) 9 ( 160) INFORMIX-4GL ( 162) ( IN FORMIX 4GL ) ( 162) ( MO DU LE ) ( 163) Modify ( 163) N ew ( 164) Compile ( 164) Program - Compile ( 165) Run ( 165) Debug ( 165) ( FORM ) ( 165) Modify ( 165) Generat e ( 166) N ew ( 167) Compile ( 167) ( PRO GRA M ) ( 167) N ew ( 167) Modify ( 169) Compile ( 169) Planned - Compile ( 169) Run ( 169) Debug ( 170) U ndefine ( 170) INF ORMIX 4GL ( 171) INF ORMIX 4GL ( 172) ( 176)

10 ( 178) ( 184) ( 188) ( 204)

11 , INF ORMIX 4GL 1. 1 ( 4GL) ( MIS),,,, ( 3GL ), COBOL C P ASCA L BASIC,,,,,,,,, IF CASE,,,,,,,,,, ( DBMS),,,,,,,,,,,, 1

12 ,,,,,,,,,,,,,,,, 1. 2 INFORMIX 4GL INF ORMIX 4GL Informix, U NIX, IN FORMIX 4GL,,, IN FORMIX 4GL,, IF CA SE FOR W HILE,, ( C ), IN FORMIX 4GL, INF ORMIX 4GL : ( 1) ; ( 2) ; ( 3) ; ( 4) ; ( 5) ; ( 6), INF ORMIX 4GL RDSQ L RDSQL Informix IBM SQL, SQ L AN SI RDSQL,, INF ORMIX 4GL, 2

13 ,,, INF ORMIX 4GL 1. 3 INF ORMIX 4GL IN FORMIX 4GL,, ,,, ,,, 3 INF ORMIX 4GL ,, ( ),,, , a 1 a5 ( ) 5 5, a 1, a1,, a1,,, a5, 3

14 : [ a 1] : [ a2] : [ a3] : [ a4] : [ a5] 1. 2 INFO RMIX 4GL,,, IN FORMIX 4GL /, 1. 1, , INF ORMIX 4GL

15 a11 a 12 a13 a14 a15 a21 a 22 a23 a24 a25 a31 a 32 a33 a34 a /, a 11 a21 a31 3,, : 1 a11 a15, 2 a21 a25, 3 a31 a 35 3 INFO RMIX 4GL INF ORMIX 4GL,,,, IN FORMIX 4GL 1. 2, , a1 < 100, a 2, a 3 > /,, INF ORMIX 4GL, / INF ORMIX 4GL,

16 : [ < 100 ] : [ ] : [ > 150 ] : [ ] : [ ] 1. 5 : U : F. S. L. N. R. C. E ,, 1. 6, 8, 1 2,, IN FORMIX 4GL,,, IN FORMIX 4GL 6

17 ( ), IN FORMIX 4GL INF ORMIX 4GL,,, ( CON T ROL W ),, 1. 6, 1. 7 HEL P: Screen Resume U.,, : Q.,, ( ) N. P. U., RET U RN 1. 7 U ,,,,,, 1. 1, 1. 8 ( ) ( ) ( )

18 INF ORMIX 4GL /,, / : U. F. S. L. N. R. C. E. CONT ROL W : : : : : : : U. F. S. L. N. R. C. E. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CONTRO- W : : : : A. Q. N. : [ ] : [ ] : [ ] [ ] [ ] : [ ]

19 , 1. 9, 2, IN FORMIX 4GL, 1. 10,, /,,, /,,,, 1. 9 INFO RMIX 4GL,,, 1 1.? C? 2.? 3. INF ORMIX 4GL?? 4. INF ORMIX 4GL? 5. INFO RMIX 4GL,? 6.?? 7.? INF ORMIX 4GL,? 8. INF ORMIX 4GL? 9. INF ORMIX 4GL,? 10. INF ORMIX 4GL,? 9

20 INFORMIX 4GL, IN FORMIX 4GL INF ORMIX 4GL,, IN FORMIX 4GL,, IN FORMIX 4GL 2. 1 INF ORMIX 4GL INFO RMIX 4GL,, INF ORMIX 4GL MAIN EN D MA IN MA IN, EN D MA IN 2. 1 prg1. 4gl INFORMIX 4GL, 1 35, 1, 35 MAIN EN D MA IN, prg1. 4gl prg1. 4gl 1 MAIN 2 DEFINE ch CHAR( 1), 3 x, y, z, i, j SMALLINT, 4 k INT EGER 5 MESSAGE a : IF, b: FOR, c: WHIL E 6 PROMPT : FOR ch 7 CASE ch 8 W HE N a 9 DISPLAY IF AT 11, PROMPT : FOR x 11 PROMPT : FOR y 12 CAll get max( x, y) RET URNING z 13 DISPLAY, x,, y,, :, z AT 11, W HE N b 15 DISPLAY FOR AT 11, PROMPT 1 10 : FOR i 17 L ET k= 1 18 FOR j= 1 t o i 19 LE T k= k j 20 E ND FOR 21 DISPLAY i,, k AT 11, 20 10

21 22 W HE N c 23 DISPLAY WHIL E AT 11, PROMPT : FOR x 25 W HILE x> 0 26 DISPLAY AT 11, DISPLAY x=, x AT 11, SLE EP 3 29 LE T x= x E ND WHIL E 31 OT HERWISE 32 DISPL AY AT 11, END CASE 34 ERR OR 35 E ND MAIN 36 FUNCT ION getmax( i, j) 37 DEFINE i, j SMAL LINT 38 IF i> = j 39 T HEN RE T URN i 40 EL SE RET U RN j 41 END IF 42 E ND FU NCT ION ,, DEF IN E, DEF IN E 4 INT EGER, ch CHA R( 1), CHA R, 1 ; x y z i j SMA LLINT ; k INT EGER 2. 1, : DEFINE [, [ ] ] [, [, [ ] ] [ ] ], : ch CHA R( 1),, (, ),, : x, y, z, i, j SMALLIN T DEFIN E,,,,, 2 4 INF ORMIX 4GL : 11

22 ( 1) CHA R ( 2) DECIMA L ( 3) SMA LLINT ( 4) IN TEGER ( 5) SMA LLFLOA T ( 6) FLOA T ( 7) DAT E ( 8) MO NEY CH AR, : CH AR( m ) m CH AR( m), m DECIMAL, : DECIMAL[ ( m[, n] ) ] m, 32, n DECIMA L( 6, 2) 6, 2, 4 n, DECIMA L( m),, m, 10 - ( 16) m, DECIMAL, DECIMA L SMALLIN T, INT EGER, SMALLFLOAT, C float, 4 F LO AT, C dou ble, 8 DA TE,,,, ( ) ( - ) ( / ) / 26/ , 1 0,, , 2, 19, MON EY,,, : MON EY[ ( m[, n] ) ] m, n, n, n 2, m, m 16 INFO RMIX 4GL,,, / , MESSAGE , DISPLAY 12

23 9 DISP LA Y, AT 11, DISPLAY 9 13 DISPLA Y 9,, (, ),,,,,,, 13 DISPLAY, : x = 1 y= 2 z= 2 DISPLA Y : 1 2, 2; ; DISPLA Y 13 34, ERROR, ERROR 24 6, PROMPT FOR P ROMPT F OR, FOR,,, FOR 1 6,, : : ( : ), ch 2 ch,, ch x, 11 y, 16 i , 1 k, LET 19, k j, k 29 19, x 1, x 13

24 , : LET =, : ( 1) ( 2) ( 3) / ( 4) mod ( 5) + ( 6) -, , 16, 25mod4 1,,,, : mod ( 3+ 1) , (, ) CLIPPED,, CLIPP ED,, : DEFINE ch 1, ch2 CH AR( 10), ch3 CH AR( 20) ch1 ch 2 : LET ch 1= LET ch 2= ch3 : LET ch 3= ch 1, ch2 ch 3,, CLPPED, : 14

25 LET ch 3= ch 1 CLIPPED, ch2, ch 1,, ch 3 INF ORMIX 4GL NU LL, CASE CA SE 7 CASE CA SE, 33 EN D CA SE CASE W HEN 31 OT HERWISE 7 CA SE CHA R( 1) ch, W HEN CHA R( 1), a b c CA SE : ch a, 9 13, ch b, 15 21, ch c, 23 30, 31 O TH ERW ISE, ch WH EN, a b c, 32 CA SE WH EN CA SE,, CA SE : CA SE [ ( exp) ] W HEN {exp1 B exp 1} 1 W HEN {exp2 B exp 2} 2 W HEN {expn B expn} n OT H ERW ISE EN D CA SE exp 1 exp2 expn,, INT EGER SMA LLIN T DECIMAL CH AR( 1) CA SE exp, WH EN exp1 exp2 expn exp expi, i, i 1 n i, exp expi, OT H ERW ISE CA SE exp,, WH EN B exp1 B exp2 B expn, B expi, i, i 1 n, OT H ERWISE ( > < = ) 15

26 , : ( 1) x> 300 x 300 ( 2) x- y< z+ 40 x- y z+ 40 ( 3) ( x mod 2) = 0 x 2 0, INFO RMIX 4GL A N D OR NO T, : ( 1) ( x > 300) AN D ( x< 500) x 300 x 500 ( 2) ( x < 300) OR ( x> 500) x 300 x 500 ( 3) NO T ( x- y< z+ 40) x - y z+ 40, x- y z+ 40,,, IF IF IF IF, EN D IF IF IF, : i> = j i j, i j, T HEN, RET U RN i, i, i j, ELSE, RET U RN j, j IF : IF T HEN ELSE EN D IF 1 2 ( 0 ), 1, ( 0), FOR FOR FOR FOR, EN D FOR F OR FO R,, j= 1, j 1, T O, TO, i FOR : j 1, 1, i, j, k 1, F OR, k i, : 16

27 k = i F OR : F OR var= exp1 T O exp2 EN D F OR [ ST EP exp3] var IN T EGER SMA LLIN T, ex p1 exp2 exp3 var, var exp1, var exp2,, var exp3( ST EP exp 3, 1), var exp2, var exp2, var ex p3, var exp 2,,, var exp2, FO R, EN D FO R F OR, CONT INU E F OR EXIT F OR CONT INU E FO R, CON T IN U E FOR EN D F OR, F OR, var, EXIT FOR, FO R, EN D F OR WH ILE WH ILE W HILE WH ILE, EN D W HILE WH ILE WH ILE, x > 0 WH ILE : x> 0,, 26 29, x> 0,, 26 29, x> 0,, x> 0, WH ILE, EN D WH ILE 28,, 3, W HILE : W HILE exp EN D W HILE exp W HILE, exp ( 0),, exp, exp,, exp exp ( 0), W HILE, EN D W HILE W HILE, CO NT IN U E WH ILE EXIT W HILE CONT INU E W HILE, CON T IN U E WH ILE EN D 17

28 W HILE, W HILE, W HILE exp, EXIT WH ILE, WH ILE, EN D W HILE , get max x y get max CALL RET U RN IN G z getmax z, RET U RN ING, (, ), RET U RNING z1, z2, RET U RNING 12 getmax F U NCT ION, EN D FU NCT IO N FU NCT ION 37 41, RET U RN, RET U RN i i, RET U RN,, : RET U RN i1, i2 i1 i2,,,, 2. 1 getmax : LET i= x+ y getmax( x, y) 2. 2 INF ORMIX 4GL INFO RMIX 4GL INFORMIX-4GL INF ORMIX 4GL, vi INF ORMIX 4GL. 4gl, file. 4gl 2. 1 prg1. 4gl INF ORMIX 4GL INF ORMIX 4GL ( P ), IN FORMIX 4GL fglpc, : fglpc source source INFORMIX 4GL. 4gl,. 4gl, fglpc. 4gl,. 4gl 18

29 :, 2. 1 prg1. 4gl, fglpc prg1 fglpc prg1. 4gl fglpc,, P P,. 4gl. 4go prg1. 4gl P prg1. 4go fglpc, P,,. 4gl. err,, P, fglgo P P : fglgo pcode pcode P pcode. 4go. 4go, P prg 1. 4go, : fglgo prg1 fglgo prg1. 4go INFORMIX-4GL IN FORMIX 4GL INF ORMIX 4GL 2. 1 prg1. 4gl,,, IN FORMIX 4GL INF ORMIX 4GL prg1. 4gl INF ORMIX 4GL prg1. 4gl INF ORMIX 4GL, fglpc fglgo INFO RMIX 4GL 2. 1,, 1 35 md1. 4gl ; md2. 4gl md1. 4gl md2. 4gl INF ORMIX 4GL,, fglgo, md1. 4gl md2. 4gl, fglpc P, P P, P. 4gi, fglgo P : 1. fglpc P : fglpc md1 19

30 fglpc md2 2. cat P P : cat md1. 4go md2. 4go> newmd. 4gi P newmd. 4gi 3. fglgo P : fglgo newmd fglgo newmd. 4gi,, P. 4go. 4gi fglgo IN FORMIX 4GL,, fglgo. 4gi,. 4go 2 1. INFO RMIX 4GL 2. IN FORMIX 4GL vname,, vwage, vname vwage 3. IN FORMIX 4GL, 4. INFO RMIX 4GL,, 5. INFO RMIX 4GL, 6. 1, SMA LLINT i, i 1 31 CH AR( 6) ch,,,, IN FORMIX 4GL, i, ch 7. i j SMA LLINT, IN FORMIX 4GL, j? ( 1) LET j= 10 FOR i= 1 T O 10 LET j= j+ i CON T IN U E FOR LET j= j- i END FOR ( 2) LET j= 10 FOR i= 1 T O 10 LET j= j+ i EXIT F OR LET j= j- i END FOR 8. x y IN TEGER, IN FORMIX 4GL,,? 20

31 LET x= 3 LET y= 5 W HILE x LET y= ( x 2+ y 2) / 2 EN D W HILE 9. IN FORMIX 4GL md1. 4gl md 2. 4gl md3. 4gl, IN FORMIX 4GL prg1. 4gl, 21

32 IN FORMIX 4GL, IN FORMIX 4GL, IN FORMIX 4GL? IN FORMIX 4GL, IN FORMIX 4GL SQ L,, INFO RMIX 4GL INFO RMIX 4GL prg2. 4gl db 01, tb01 t b01,, num nam inc out res 3. 1 prg2. 4gl 1 MAIN 2 CRE AT E DAT ABASE db01 3 CRE AT E T ABL E t b01 4 ( 5 num SMAL LINT, # 6 nam CHAR( 6), # 7 inc SMALLFL OAT, # 8 out SMALL FLOAT, # 9 res SMAL LFLOAT # 10 ) 11 CRE AT E INDEX t b01idx ON t b01 ( num) 12 GRANT CONNE CT T O public 13 E ND MAIN IN FORMIX 4GL, ( # ) IN FORMIX 4GL ( ), prg2. 4gl 5 9 2, : CREAT E DAT ABASE 12 CONN ECT, CONN ECT pub lic db 01 CON NECT, public, CON NECT user 1 user 2, : 22

33 GRA NT CONN ECT T O user 1, user prg2. 4gl 3 10, : CREAT E T ABLE ( [, ] ) INFO RMIX 4GL,, SERIAL, IN FORMIX 4GL,,,,, 1,, prg2. 4gl 5 SMALLIN T SERIA L, num, 1, 1,, SERIA L, : CREAT E T ABLE mytable ( mycol SERIA L( 1000), ) mytable, mycol, ( prg2. 4gl) db01 tb 01,,, : DA TA BA SE, prg2. 4gl 11, tb01 n um, t b01idx : CREAT E IN DEX ON ( [, ] ),,,,, DESC, : CREAT E IN DEX ON ( DESC[, ] ), prg2. 4gl, num, 11 : 23

34 CREAT E IN EDX tb 01idx ON tb 01 ( num DESC), IN FORMIX 4GL prg2. 4gl,, INDEX U NIQU E DIST IN CT, : CREAT E U N IQ U E INDEX ON ( [, ] ) CREAT E DIST INCT IN DEX ON ( [, ] ) prg2. 4gl 11 : CREAT E U N IQ U E INDEX tb01idx ON ( num) t b01 num prg 3. 4gl, INFO RMIX 4GL 3. 2 prg3. 4gl 1 DAT ABASE db01 2 DEFINE pnum LIKE t b01. num, 3 pnam LIKE t b01. nam, 4 pinc LIKE t b01. inc, 5 pout LIKE t b01. out, 6 pres L IKE tb01. res 7 MAIN 8 DEFINE answer CHAR( 1), 9 ok SMALLINT 10 LE T ok = 1 11 WHIL E ok 12 ME SSAGE i= q= u= d= e= 13 PROMPT, : FOR answer 14 CASE answer 15 WHEN i 16 CALL f- insert ( ) 17 WHEN q 18 CALL f- query( ) 19 WHEN u 20 CALL f - update( ) 21 WHEN d 22 CALL f - delete( ) 23 WHEN e 24 L ET ok= 0 25 OT HERW ISE 26 E RROR 27 END CASE 24

35 28 END WHILE 29 END MAIN 30 FUNCT ION f - insert ( ) 31 PROMPT ( ) : FOR pnum 32 PROMPT ( ) : FOR pnam 33 PROMPT ( ) : FOR pinc 34 PROMPT ( ) : FOR pout 35 LE T pres= pinc pout 36 INSE RT INT O t b01 37 ( num, nam, inc, out, res) 38 VALU ES 39 ( pnum, pnam, pinc, pout, pres) 40 CALL f- dspline( ) 41 ERROR 42 END FUNCT ION # f - insert ( ) 43 FUNCT ION f - query( ) 44 PROMPT ( ) : FOR pnum 45 SEL ECT num, nam, inc, out, res 46 INT O pnum, pnam, pinc, pout, pres 47 FROM t b01 48 WHERE num = pnum 49 IF st at us! = NOT FOUND 50 T HEN 51 CALL f - dspline( ) 52 ERROR 53 ELSE 54 LET pnum = 55 LET pnam = 56 LET pinc= 57 LET pout = 58 LET pres= 59 CALL f- dspline( ) 60 ERROR 61 END IF 62 END FUNCT ION # f- query( ) 63 FUNCT ION f - updat e 64 PROMPT ( ) : FOR pnum 65 PROMPT ( ) : FOR pnam 66 PROMPT ( ) : FOR pinc 67 PROMPT ( ) : FOR pout 68 LE T pres= pinc pout 69 UPDAT E t b01 70 SET ( nam, inc, out, res) = 71 ( pnam, pinc, pout, pres) 72 WHERE num = pnum 73 CALL f- dspline( ) 74 ERROR 25

36 75 END FUNCT ION # f- updat e( ) 76 FUNCT ION f - delet e( ) 77 PROMPT ( ) : FOR pnum 78 DELE T E FROM t b01 WHERE num= pnum 79 LE T pnum = 80 LE T pnam = 81 LE T pinc= 82 LE T pout = 83 LE T pres= 84 CALL f- dspline( ) 85 ERROR 86 END FUNCT ION # f - delet e( ) 87 FUNCT ION f - dspline( ) 88 DISPLAY AT 10, DISPLAY AT 11, DISPLAY AT 12, DISPLAY AT 13, DISPLAY AT 14, DISPLAY = 94 DISPLAY = 95 DISPLAY = 96 DISPLAY = 97 DISPLAY =, pnum AT 10, 20, pnam AT 11, 20, pinc AT 12, 20, pout AT 13, 20, pres AT 14, END FUNCT ION # f- dspline( ) prg3. 4gl, 3. 1( prg2. 4gl) db 01 prg3. 4gl f- insert ( ) f- query ( ) f- u pdat e( ) f- delet e( ) f- dspline( ), db 01 tb 01, t b01 prg3. 4gl 2 6, pnum am pinc pout pres, tb01, INFO RMIX 4GL,, LIK E, 2 : pnum LIKE tb 01. num pnum tb 01 num : LIKE.,, 2 6,, prg3. 4gl, INF ORMIX 4GL RDSQL, RDSQ L SQ L,, IN FORMIX 4GL SQ L SQL 26

37 INF ORMIX 4GL , prg3. 4gl f- insert ( ), ( IN SERT ), tb01 37 t b01, 39, pnum pnam pinc pout pres tb 01 num nam inc out res, pnum pnam pin c pout,, 35 pres INSERT INSERT tb01, INSERT, INSERT INT O tb 01 ( num, nam) V ALU ES ( 10, ), tb01, num nam, num 10, n am INSERT N U LL, IN SERT IN SERT, 37 t b01,,, 37, IN SERT : INSERT INT O tb 01 V A LU ES ( pnum, pnam, pinc, pout, pres) INSERT : INSERT INT O [ ( ) ] V ALU ES ( ), IN SERT,,,,, , prg3. 4gl f- query( ), INF ORMIX 4GL ( SELECT ), 47 t b01, 48, n um= pnu m 27

38 num pn um, SELECT 44 pnum 45 SELECT num nam inc out res, 46 IN T O pnu m pnam pinc pout pres, SELECT : tb 01 n um pnum, num nam inc out res, pnum pnam pinc pout pres SELECT, 51 f- dspline( ), 87 98, pnum pnam pinc pout pres SELECT, 51, : = 10 = = = = stat us, IN FORMIX 4GL NOT F OU ND INFO RMIX 4GL SELECT, status NOT FOU ND,, stat us NOT FOU ND, 49 61, stat us NO TF OU ND,, f- dspine ( ), ;,,,, 45 SELECT, SELECT,, ( ) SELECT, SELECT SELECT : SELECT IN T O pnum, pnam, pin c, pout, pres FROM tb 01 W HERE num= pnum SELECT,,, SELECT : SELECT INT O F RO M W HERE,,, 28

39 ,, SELECT,,,,, INF ORMIX 4GL SELECT, SELECT,? prg3. 4gl f - updat e( ),,, f- update( ) t b01,,,,,,,,,, 64 68, ( U PDA T E ) 69 U PDA T E tb01 70 SET nam inc out res 71 pnam pinc pout pres, nam inc out res pnam pinc pout pres num U PDAT E 72 W HERE num = pnum U PDA T E : U PDA T E SET ( ) = ( ) [ WH ERE ],,,,,,,, U PDAT E WH ERE, W HERE U PDA TE WH ERE,, U PDA T E U PDA T E : 29

40 U PDA T E t b01 SET nam= pnam, inc= pinc, out = pout, res= pres WH ERE num= pnum U PDA TE : U PDA T E SET = [, ] [ W HERE ] SET,,,,,, U PDAT E : U PDA T E SET. =. [ WH ERE ].,., INF ORMIX 4GL,,,,,,,, rd01 : DEFINE rd01 RECORD x, y, z INT EGER EN D RECORD rd01 x y z, INT EGER rd02 : DEFINE rd02 RECORD n ame CHA R( 8), age SMA LLIN T, w age SMA LLF LOA T EN D RECORD rd02 name age wage, CHA R( 8) SMA LLINT SAMLLFLOAT : DEFINE RECORD [, ] EN D RECORD,,,,, 30

41 ,,,, :., rd01. rd01 :., rd02. name rd02 name, :. 1 T H RU. 2 rd02. name T H RU rd02. wage rd02 n ame wage,, name age wage, ( ) U PDAT E SET,,, prg3. 4gl f- delete( ) 78 ( DELET E ),, t b01 nu m pnum pnum DELET E : DELET E FROM [ WH ERE ] DELET E W HERE W HERE, DELET E 3. 3, INFO RMIX 4GL,,,,, INFO RMIX 4GL 3. 3 prg4. 4gl 3. 3 prg4. 4gl 1 DAT ABASE db01 31

42 2 MAIN 3 DEFINE pnum LIKE t b01. num, 4 pnam L IKE tb01. nam, 5 pinc L IKE tb01. inc, 6 pout L IKE tb01. out, 7 pr es LIKE t b01. res 8 DECLARE c- t b01 CURSOR FOR 9 SE LECT num, nam, inc, out, res 10 INT O pnum, pnam, pinc, pout, pres 11 FROM t b01 12 ORDE R BY num 13 ST ART REPORT rep01 T O r epf01 14 FORE ACH c- t b01 15 OU T PUT T O RE PORT rep01( pnum, pnam, pinc, pout, pres) 16 E ND FOREACH 17 FINISH REPORT rep01 18 RUN more repf01 19 E ND MAIN 20 RE PO RT rep01( x1, x2, x3, x4, x5) 21 DEFINE x1 LIKE t b01. num, 22 x2 LIKE t b01. nam, 23 x3 LIKE t b01. inc, 24 x4 LIKE t b01. out, 25 x5 LIKE t b01. res 26 FORMAT 27 PAGE HE ADE R 28 PRINT 29 PRINT 30 ON E VERY ROW 31 PRINT COL UMN 2, x1 USING # # # #, 32 COLUMN 12, x2, 33 COLUMN 24, x3 USING # # #. # #, 34 COLUMN 37, x4 USING # # #. # #, 35 COLUMN 50, x5 USING # # #. # # 36 E ND RE PORT # rep01( ) db01 tb01, prg4. 4gl 3. 1,

43 , SELECT SELECT 1. SELECT db01 tb01 100, num 1 100, x i num, y nam, j k inc 1 SELECT : SELECT num, nam INT O x, y F ROM t b01 WH ERE num= 5 t b01 num = 5 ( ), nu m x, nam y x y,, SELECT,,, : SELECT, x y, x y, : SELECT ( ), INT O,,,, SELECT 2 SELECT : SELECT num, nam INT O x, y F ROM t b01 WH ERE num< 50 OR num> 80 1, WH ERE num< 50 num> 80, tb01 x y, x t b01 num, y tb01 n am, 3 SELECT : SELECT num, inc, inc+ inc 0. 5 IN TO i, j, k FROM tb01 WH ERE num= 5 tb 01 num= 5, i j k, i tb 01 num, j t b01 inc, k t b01 inc, : in c+ inc SELECT : 33

44 SELECT num, inc, inc+ inc 0. 5 INT O i, j, k F ROM t b01 W HERE num> = 2 A ND num< = 10 3 W HERE, t b01 num> = 2 num< = 10, 3, INF ORMIX 4GL SELECT, ( act ive set ), ( cursor) SELECT SELECT, : DECLA RE [ SCROLL] CU RSOR F OR SELECT SCROLL, ( scrolling cursor) 3. 3( prg4. 4gl) 8 12, 9 12 SELECT c- tb SELECT WH ERE, t b01 12 ORDER BY SELECT tb01 num, SELECT,, num DESC,, 12, num : O RDER BY num DESC SELECT : SELECT [ IN T O ] F RO M [ WH ERE ] [ GROU P BY ] [ HA V ING ] [ ORDER BY ] [ IN T O T EMP ], SELECT FROM, SELECT,,, INT O SELECT, FROM 2. IN FORMIX 4GL,, SELECT 34

45 , prg4. 4gl c- tb 01 FOREACH F OREA CH, FOREACH, EN D FOREACH,,, INT O,, FOREACH,,, FOREACH F OREA CH,, 15, FOREACH, CON T IN U E F OREA CH, EXIT FOREACH FOREACH SELECT, SELECT IN TO,, F OREA CH INT O, IN TO FOREACH, 9 12 SELECT, 10,, 14 c- F OREA CH c- F OREA CH : t b01, 10, 14 : tb 01 INT O pnum, pnam, pinc, pout, pres F OREA CH [ IN TO ] EN D F OREA CH F OREA CH SELECT,, F ET CH F ETCH,, : O PEN F ETCH : F ETCH,, INT O, ( F ET CH ), st atus N OT FOU N D OPEN F ETCH F OREA CH, SELECT INT O, FET CH INT O, FET CH : F ETCH IN TO, FET CH, FET CH : F ETCH [ ] [ INT O ] 35

46 , FET CH : N EXT P REV IOU S P RIOR PREV IOU S F IRST LA ST CU RRENT RELAT IVE m m, m, m, m A BSOLU TE n n, FET CH,, INT O,, status N OT FOU N D F ET CH P REV IOU S,, FET CH NEXT, st atus NO TF OU ND FET CH, stat us NO TF OU ND,,, : CLOSE INFO RMIX 4GL, : ( 1) ; ( 2) ; ( 3) ; ( 4),,,,,,,,,, 36

47 ,, 2. prg4. 4gl REPORT 20 REPORT, 36 REPORT, 21 35, REPORT 20, REPORT rep01,, x1 x2 x3 x4 x5 REPORT, 21 25,, REPORT, ( ),,,,, prg4. 4gl rep01, 26 FORMAT 27 FIRST PAGE H EADER, PRINT, PRIN T ON EV ERY ROW, P RINT COLU MN 2 2, U SIN G, U SIN G # # #,, U SIN G # # #. # #,, PRINT : 2 x1,, 12 x2, 24 x3, 37 x4,, 50 x5 x1,, x3, x4, x5,,, PRIN T, PRIN T, PRIN T,,, PRIN T PRIN T, PRIN T, PRIN T ( ; ),, : P RINT ; : P RINT REPORT FO RMA T, EN D REPORT 37

48 , FIRST PAGE HEA DER, ON EVERY ROW FIRST PAGE HEA DER, PA GE HEA DER, PAGE T RA ILER ON EV ERY RO W, ON LAST ROW rep01 F ORMA T : 28 29,, prg4. 4gl, 13 ST A RT REPORT rep01, T O rep01 repf01, 15 OU T PU T T O REP ORT pnum pnam pinc pout pres rep01 17 FINISH REPORT rep01,, prg4. 4gl :, 8 12 c_ t b01,, 13 rep 01, c- t b01 rep01, 17 rep01, rep 01, 18 more repf01 :, 18 IN FORMIX 4GL, RU N 3 ( : db01 tb ( prg2. 4gl) ) 1. db01 tb01, INF ORMIX 4GL, db01 tb01 tb02, 2. IN FORMIX 4GL, t b01, 90,, IN FORMIX 4GL, tb 01 10, 4. IN FORMIX 4GL, tb

49 5. IN FORMIX 4GL, tb , t b , IN FORMIX 4GL 7. INF ORMIX 4GL, tb ( 50 60) t b02 ( tb 02 1 ) 8. F ET CH IN FORMIX 4GL, 3. 3 prg4. 4gl F OREA CH prg4. 4gl, : IN FORMIX 4GL, 11. IN FORMIX 4GL,, 39

50 INFORMIX 4GL, INF ORMIX 4GL,,,,,,,,,,,,,,,,,,,,,, sport, contest, 4. 1( creat db. 4gl) 4. 1 cr eat db. 4gl 1 main 2 creat e dat abase sport 3 creat e table cont est 4 ( 5 turn smallint, # 6 st urn smallint, # 7 sex char ( 2), # 8 num ber smallint, # 9 nam es char ( 12), # 10 addr char ( 40), # 11 score1 float, # 1 12 score2 float, # 2 13 score3 float, # 3 14 score4 float, # 4 15 score5 float, # 5 16 score6 float, # 6 17 score7 float, # 7 18 score8 float, # 8 19 score9 float, # 9 20 score10 float, # high float, # 40

51 22 low float, # 23 final float, # 24 ) 25 create index conidx on contest ( number) 26 create index idxcon on contest ( final) 27 grant connect t o public 28 end main,,, sport param, param 4. 2( creatpar. 4gl),, param,, 8 param, 1,, 1 1,, param 4. 2 cr eat par. 4gl 1 DAT ABASE sport 2 MAIN 3 CREAT E T ABLE par am 4 ( 5 cturn sm allint, # 6 cst urn smallint, # 7 ) 8 INSERT INT O param ( cturn, cst urn) VALUE S ( 1, 1) 9 END MAIN 4. 1,,,,,,, IN FORMIX 4GL , /, INF ORMIX 4GL, : ( 1) ; ( 2) ; ( 3), vi. per, formn. per 41

52 , IN FORMIX 4GL,. frm form4gl,, : form4gl formn. per formn. per, formn. frm,, : form4gl formn,, /, : ( 1) ; ( 2) ; ( 3) / ; ( 4) ( cont est. per) 4. 3 contest. per 1 dat abase sport 2 screen 3 { 4 5 CONT ROL W 6 : [ f1 ] : [ f2 ] : [ f3 ] [ f4 ] [ f5 ] [ f6 ] [ f7 ] [ f8 ] [ f9 ] [ f10 ] [ f11 ] [ f12 ] [ f13 ] : [ f14 ] : [ f15 ] 18 : [ f17 ] 19 } 20 end 21 t ables cont est 22 att ribut es 23 f1= number, noent ry, noupdate; 24 f2= names, noentry, noupdat e; 25 f3= addr, noentry, noupdat e; 42

53 26 f4= score1, format = "# # #. # # " ; 27 f5= score2, format = "# # #. # # " ; 28 f6= score3, format = "# # #. # # " ; 29 f7= score4, format = "# # #. # # " ; 30 f8= score5, format = "# # #. # # " ; 31 f9= score6, format = "# # #. # # " ; 32 f10= score7, format= " # # #. # # "; 33 f11= score8, format= " # # #. # # "; 34 f12= score9, format= " # # #. # # "; 35 f13= score10, format = "# # #. # # " ; 36 f14= high, format = "# # #. # # "; 37 f15= low, format = "# # #. # # "; 38 f17= final, format = "# # #. # # # " ; 39 instruct ions 40 delimiters 41 end cont est. per 1 sport SCREEN 3 ( {), 19 ( }) 20 END 4 18,, ( [ ] ),, ( ),, f1,, INF ORMIX 4GL,, INF ORMIX 4GL 3, contest. per 4 3, contest. per 5 4, cont est. per 21 contest. T ABLES 1 contest. per AT T RIBU T ES 23 38, ( ; ),, ( ), 23, f1, number, f1 contest, /, contest f1,, contest, f1 number (, ), NOEN T RY,, number f contest 43

54 names addr f2 f3, f2 f3 f1 26 cont est score1 f4, F ORMA T, F ORMA T,, ( # ), (. ), " # # #. # # " 5, 3 ( 3 ), 2,, , contest. per 39 41, 39 INST RU CT ION S, 41 EN D 40, DELIMITERS,,,,, DELIMIT ERS,, 4 18, contest. per 4 18,, sport cont est 16, f1 f15 f17 f1 f2 f3, f4 f13 10, f14 f15 f17, contest. per, IN FORMIX 4GL DA TA BA SE SCREEN T ABLES A T TRIBU T ES INSTRU CT ION S,, T A BLES INST RU CT ION S,, T ABLES, DA TA BA SE, : DA TA BA SE, FORMONLY, SCREEN SCREEN ( contest. per 2 3 ), EN D( cont est. per ) SCREEN ( contest. per 4 18 ),, EN D T A BLES,, : T A BLES, T ABLES, 44

55 A T T RIBU T ES AT T RIBU T ES, END ( cont est. per EN D), INST RU CT ION S IN ST RU CT IONS, EN D ( ), 4. 4 logsinger. per, INST RU CT ION S, A T TRIBU T ES, 4 8,, 4. 4 logsinger. per 1 dat abase sport 2 screen 3 { : [ f1 ] : [ a 1] 6 : [ f2 ] 7 [ f3] [ f4] 8 : [ f5] 9 } 10 end 11 t ables cont est 12 att ribut es 13 f1= names; 14 a1= sex; 15 f2= addr ; 16 f3= turn; 17 f4= st ur n; 18 f5= number; 19 end funlog. 4gl, 4. 5 fun log. 4gl 1 DAT ABASE sport 2 GLOBAL S "funmain. 4gl" 3 DE FINE c- line RE CORD 4 number L IKE contest. number, 5 names L IKE contest. names, 45

56 6 addr L IKE contest. addr, 7 scor e1 L IKE contest. scor e1, 8 scor e2 L IKE contest. scor e2, 9 scor e3 L IKE contest. scor e3, 10 scor e4 L IKE contest. scor e4, 11 scor e5 L IKE contest. scor e5, 12 scor e6 L IKE contest. scor e6, 13 scor e7 L IKE contest. scor e7, 14 scor e8 L IKE contest. scor e8, 15 scor e9 L IKE contest. scor e9, 16 scor e10 L IKE contest. scor e10, 17 high L IK E contest. high, 18 low L IK E contest. low, 19 final L IK E contest. final 20 E ND RECORD 21 FU NCT ION logscore( ) 22 DE FINE cursoropen SMAL LINT 23 DE FINE c- number LIKE contest. number, c- names LIKE contest. names 24 DE FINE l- select, l- condition CHAR( 300) 25 DE FINE recordfound SMALLINT 26 OPEN FORM f- logscore FROM "cont est " 27 DISPLAY FORM f - logscore 28 DISPLAY " ", c - t urn, " ", c - sturn, " " 29 AT 21, ME NU " " 31 COMMAND "Q. " " " 32 CONST RUCT l- condit ion ON number, names, addr FROM number, nam es, addr 33 L ET l- select = "SE LE CT number, names, addr, score1, score2, score3, score4, ", 34 "score5, score6, score7, score8, scor e9, score10, high, low, ", 35 "final FROM cont est, par am WHERE ", 36 l- condition CL IPPED, 37 "AND turn= param. ct urn AND st urn= param. cst urn" 38 PRE PARE s - n FROM l- select 39 DE CLARE l- cursor SCROL L CURSOR FOR s - n 40 L ET recordfound = 0 41 FOREACH l- cur sor INT O c- line. 42 LE T recordfound = recordfound E ND FORE ACH 44 E RROR " ", recordfound, " " 45 OPEN l- cursor 46 L ET cursoropen= 1 47 FE T CH l- cur sor INT O c- line. 48 IF stat us! = NOT FOUND 49 T HEN 50 DISPL AY BY NAME c- line. 51 E LSE 46

57 52 ERROR " " 53 END IF 54 COMMAND "N. " " " 55 IF cursoropen = 0 56 T HEN 57 OPE N l- cursor 58 LE T cursor open = 1 59 E ND IF 60 FE T CH l- cursor INT O c- line. 61 IF st atus! = NOT FOUND 62 T HEN 63 DISPL AY BY NAME c- line. 64 E LSE 65 E RROR " " 66 E ND IF 67 COMMAND "P. " " " 68 IF cursoropen = 0 69 T HEN 70 OPE N l- cursor 71 LE T cursor open = 1 72 E ND IF 73 FE T CH PREVIOUS l- cursor INT O c- line. 74 IF st atus! = NOT FOUND 75 T HEN 76 DISPL AY BY NAME c- line. 77 E LSE 78 E RROR " " 79 E ND IF 80 COMMAND "U. " " " 81 L ET c- number = c- line. number 82 L ET c- names= c- line. names 83 INPU T c- line. score1 T HRU c- line. scor e10 W IT HOU T DE FAUL T S 84 FROM score1, score2, score3, scor e4, score5, score6, score7, score8, 85 score9, score10 86 CAL L computescore( c- line. score1, c- line. score2, c- line. score3, 87 c- line. scor e4, c- line. score5, c- line. score6, c- line. score7, 88 c- line. scor e8, c- line. score9, c- line. score10) 89 RET U RNING c- line. high, c- line. low, c- line. final 90 DISPLAY c- line. high T HRU c- line. final T O high, low, final 91 SE LE CT cturn, cst urn INT O c- turn, c- st urn FROM param 92 UPDAT E cont est 93 SE T ( score1, score2, scor e3, score4, score5, score6, score7, score8, 94 score9, score10, high, low, final) = 95 ( c - line. score1, c - line. scor e2, c - line. score3, c - line. score4, 96 c - line. score5, c - line. score6, c - line. score7, c - line. score8, 47

58 97 c- line. score9, c- line. score10, c- line. high, c- line. low, c- line. final) 98 WHE RE names= c- names AND number= c- number AND 99 t urn = c - turn AND st urn= c - sturn 100 E RROR " " 101 COMMAND "E. " " " 102 IF cursoropen 103 T HEN 104 CL OSE l- cursor 105 LE T cur sor open= E ND IF 107 E XIT ME NU 108 E ND ME NU 109 CLEAR FORM 110 CLOSE FORM f- logscore 111 E ND FUNCT ION 112 FUNCT ION askquest ion( ) 113 DE FINE turn, sturn SMALL INT 114 OPEN WINDOW w - ask AT 20, 31 WIT H 1 ROW S, 20 COLUMNS AT T RIBUT E ( border ) 115 PROMPT "? " FOR t urn 116 PROMPT "? " FOR sturn 117 UPDAT E param SET ( cturn, cst urn) = ( t urn, st urn) 118 CLOSE WINDOW w- ask 119 RE T URN t urn, st urn 120 E ND FUNCT ION 121 FUNCT ION comput escore( s1, s2, s3, s4, s5, s6, s7, s8, s9, s10) 122 DE FINE s1, s2, s3, s4, s5, s6, s7, s8, s9, s10 FLOAT 123 DE FINE number ARRAY[ 10] OF FLOAT 124 DE FINE i SMALLINT 125 DE FINE high, low, final FLOAT 126 L ET number[ 1] = s1 127 L ET number[ 2] = s2 128 L ET number[ 3] = s3 129 L ET number[ 4] = s4 130 L ET number[ 5] = s5 131 L ET number[ 6] = s6 132 L ET number[ 7] = s7 133 L ET number[ 8] = s8 48

59 134 L ET number[ 9] = s9 135 L ET number[ 10] = s L ET high = L ET low= L ET final= FOR i= 1 T O IF high < number [ i] T HEN L ET high = number[ i] E ND IF 141 IF low > number [ i] T HEN L ET low= number[ i] E ND IF 142 LE T final= final+ number[ i] 143 E ND FOR 144 L ET final= ( final- high- low) / RE T URN high, low, final 146 E ND FUNCT ION 147 FUNCT ION logsinger ( ) # 148 DE FINE cursoropen SMAL LINT 149 DE FINE c- line RECORD 150 names LIKE cont es t. names, 151 s ex LIKE cont es t. sex, 152 addr LIKE cont es t. addr, 153 t urn LIKE cont es t. turn, 154 sturn LIKE cont est. st ur n, 155 number LIKE cont es t. number 156 E ND RECORD 157 DE FINE c- names L IKE cont est. nam es, 158 c - number L IKE cont est. number 159 DE FINE ll- select, ll- condit ion CHAR ( 300) 160 DE FINE recordfound SMALLINT 161 OPE N WINDOW w- logsinger AT 10, 21 WIT H FORM " logsinger " AT T RIBUT E ( border ) 162 OPE N FORM f - logsinger FROM " logsinger" 163 DISPLAY FORM f- logsinger 164 MENU " " 165 COMMAND " A. " " " 166 INPUT BY NAME c- line. W IT HOUT DE FAU LT S 167 INSE RT INT O cont est 168 ( names, sex, addr, t urn, sturn, number) 169 VAL UES 170 ( c- line. names T HRU c- line. number ) 171 E RROR " " 172 COMMAND "Q. " " " 173 CONST RUCT ll- condit ion ON names, sex, addr, turn, st ur n, num ber 174 FROM names, sex, addr, t urn, st urn, number 175 L ET ll - select = "SEL ECT names, sex, addr, t ur n, st urn, number FROM contest ", 176 "WHERE ", ll - condit ion CLIPPE D 49

60 177 PREPARE ss - n FROM ll- select 178 DECLARE ll- cur sor SCROLL CURSOR FOR ss - n 179 LE T recordfound = FORE ACH ll - cursor INT O c - line. 181 L ET recordfound = recordfound E ND FORE ACH 183 E RROR " ", recordfound, " " 184 O P EN ll- cursor 185 L ET cursoropen= FE T CH ll- cursor INT O c- line. 187 IF stat us! = NOT FOUND 188 T HE N 189 DISPLAY BY NAME c- line. 190 E LSE 191 E RROR " " 192 E ND IF 193 COMMAND "N. " " " 194 IF cur soropen = T HE N 196 OPEN ll- cursor 197 L ET cursoropen = E ND IF 199 FE T CH ll - cursor INT O c - line. 200 IF stat us! = NOT FOUND 201 T HE N 202 DISPLAY BY NAME c - line. 203 E LSE 204 E RROR " " 205 END IF 206 COMMAND "P. " " " 207 IF cur soropen = T HE N 209 OPE N ll- cursor 210 L ET cursoropen = E ND IF 212 FE T CH PRE VIOU S ll- cursor INT O c- line. 213 IF stat us! = NOT FOUND 214 T HE N 215 DISPL AY BY NAME c- line. 216 E LSE 217 E RROR " " 218 E ND IF 219 COMMAND "U. " " " 220 L ET c - t urn= c - line. turn 221 L ET c - sturn= c - line. sturn 50

61 222 L ET c- names= c- line. names 223 L ET c- number = c- line. num ber 224 INPU T BY NAME c - line. WIT HOUT DE FAULT S 225 U PDAT E contest 226 SE T ( names, sex, addr, turn, sturn, number) = 227 ( c - line. names, c - line. sex, c - line. addr, c - line. t urn, 228 c- line. st ur n, c- line. number ) 229 W HE RE number= c- number AND names= c- names AND 230 t ur n= c- turn AND st urn= c- sturn 231 ERROR " " 232 COMMAND "D. " " " 233 IF cur soropen = T HE N 235 E RROR " " 236 CONT INU E ME NU 237 E ND IF 238 FE T CH CURRENT ll- cur sor INT O c- line. 239 DEL ET E F ROM cont est W HE RE number = c- line. number A N D names = c- line. names AND 240 t urn= c- line. t ur n AND sturn= c- line. sturn 241 CLE AR FORM 242 E RROR " " 243 L ET cursoropen = CLOS E ll- curs or 245 COMMAND "E. " " " 246 IF cur soropen 247 T HE N 248 CLOS E ll- curs or 249 L ET cursoropen= E ND IF 251 E XIT MENU 252 E ND ME NU 253 CLEAR FORM 254 CLOSE FORM f- logsinger 255 CLOSE W INDOW w- logsinger 256 E ND FUNCT ION # logsinger( ) 257 FUNCT ION reglist( ) #, 258 DE FINE p- nl ARRAY[ 100] OF RE CORD 259 num L IKE cont est. number, 260 nam L IKE cont est. names, 261 sex L IKE cont est. sex, 262 add L IKE cont est. addr, 263 t ur L IKE cont est. t ur n, 264 stu L IKE cont est. st urn 51

62 265 E ND RE CORD 266 DE FINE i, j, newt, oldt, numb, xready SMAL LINT 267 OPEN WINDOW w - reglist AT 10, 3 WIT H 12 ROWS, 66 COLUMNS AT T RIBUT E ( border ) 268 OPEN WINDOW w - prom AT 15, 19 WIT H 1 ROW S, 30 COLU MNS 269 PROMPT "? " FOR newt 270 PROMPT "? " FOR oldt 271 PROMPT "? " FOR numb 272 CLOSE W INDOW w- prom 273 OPEN FORM f- reglist FROM " register" 274 DISPLAY FORM f - reglist 275 DECL ARE c- flag CU RSOR FOR SEL ECT t urn INT O i FROM cont est WHERE turn= newt 276 OPEN c- flag 277 FE T CH c- flag 278 IF stat us= NOT FOU ND T HE N LE T xready= 0 E LSE LE T xready= 1 E ND IF 279 CLOS E c- flag 280 IF xready 281 T HE N DISPLAY " ", newt, " " AT 12, E LSE DISPL AY " ", newt, " " AT 12, E ND IF 284 ME NU " " 285 COMMAND "C. " " " 286 DE CLARE c- new CURSOR FOR 287 SE LE CT number, names, sex, addr, t urn, st urn, final FROM cont est 288 WHE RE t urn= oldt 289 ORDE R BY final DE SC 290 OPEN c- new 291 FOR i= 1 T O FE T CH c- new INT O p - nl[ i]. 293 IF st atus= NOT FOU ND 294 T HEN LET j= i E XIT FOR 296 E LSE IF i> = num b 297 T HEN L ET j= i 298 EXIT FOR 299 E ND IF 300 END IF 301 E ND FOR 302 CLOSE c - new 303 # 304 DE LET E FROM contest WHE RE t urn= newt 305 FOR i= 1 T O j 306 INSERT INT O cont est ( number, names, sex, addr, t urn, st urn) 307 VALUE S ( i, p - nl[ i]. nam, p - nl[ i]. sex, p - nl[ i]. add, newt, 1) 308 E ND FOR 52

63 309 DE CLARE c- new1 CURSOR FOR 310 SE LE CT number, names, sex, addr, t urn, st urn FROM cont est 311 WHE RE t urn= newt 312 ORDER BY number 313 OPEN c - new1 314 FOR i= 1 T O FE T CH c- new1 INT O p- nl[ i]. 316 IF st atus= NOT FOU ND 317 T HEN LET j= i E XIT FOR 319 E LSE IF i> = num b 320 T HE N LET j= i 321 EXIT FOR 322 END IF 323 E ND IF 324 E ND FOR 325 CLOSE c- new1 326 CAL L set - count ( j) 327 DISPLAY "" AT 1, DISPLAY "" AT 2, DISPLAY " E SC " AT 2, DISPLAY "" AT 12, DISPLAY ARRAY p - nl T O sr - reg. 332 DISPLAY ", ", j, " " AT 12, COMMAND "U. " " " 334 DE CLARE c- upd CURSOR FOR 335 SE LE CT number, names, sex, addr, t urn, st urn FROM cont est 336 WHE RE t urn= newt 337 ORDE R BY number 338 OPEN c- upd 339 FOR i= 1 T O FE T CH c- upd INT O p - nl[ i]. 341 IF st atus= NOT FOU ND 342 T HEN IF i= 1 T HE N LET i= 0 END IF 343 E XIT FOR 344 E ND IF 345 E ND FOR 346 IF i= T HE N 348 CL EAR FORM 349 DISPL AY "" AT 12, DISPL AY " " AT 12, CONT INUE MENU 352 E ND IF 353 CLOSE c- upd 354 DISPLAY "" AT 1, DISPLAY "" AT 2, DISPLAY "" AT 12, DISPLAY "< F1> < F2> < RE T URN> " 53

64 358 AT 1, DISPLAY " < F 3> < F 4> < ESC> < > " 360 AT 2, CAL L set - count ( i- 1) 362 INPU T ARRAY p - nl WIT HOUT DEFAUL T S FROM sr - reg. 363 DE LET E FROM cont est WHERE t urn= newt 364 FOR i= 1 T O arr- count ( ) 365 INSERT INT O cont est ( number, names, sex, addr, t ur n, st urn) 366 VAL UE S ( p - nl[ i]. num, p - nl[ i]. nam, p - nl[ i]. sex, 367 p- nl[ i]. add, newt, p - nl[ i]. st u) 368 E ND FOR 369 L ET i= arr- count ( ) 370 DISPLAY "" AT 12, DISPLAY ", ", i, " " AT 12, COMMAND "D. " " " 373 DE LET E FROM cont est WHERE t urn= newt 374 DISPLAY "" AT 12, DISPLAY " " AT 12, CLEAR FORM 377 COMMAND "E. " " " 378 E XIT MENU 379 E ND ME NU 380 CLOSE FORM f- reglist 381 CLOSE WINDOW w- reglist 382 E ND FUNCT ION # reglist ( ) funlog. 4gl 3 20 c- line, 16, contest. per 23 38, c- line cont est. per,, logscore( ), contest. per / f- 26 con test. per, logscore : O PEN FO RM FROM " ",. per f- logscore,, contest. per 4 18,, 27,, : 54

65 DISPLAY F ORM OPEN FORM 50 f- logscore, c- line f- logscore c- line. c- line 50 c- line f - logscore, c- line. n umber, number, number f1 ( 4. 3),, c- lin e. number f1, c-, c- line. final, final, final f17, line. final f17 funlog. 4gl 50 : DISPLAY BY N AME f- c- lin e. score1 T HRU c- line. score10 logscore c- line, c- line, 10 c- lin e. score1, c- line. score2, c- line. score3, c- line. score4, c- lin e. score5, c- line. score6, c- line. score7, c- line. score8, c- lin e. score9, c- line. score10 10 FROM 10 score1 c- line. score1, score2 c- line. score2,, score10 c- f- line. score10, logscore f4( score1) ( 4. 3),, RET U RN, f5,, RETU RN, f6, f13( score10), RET U RN, IN FORMIX- 4GL f4( score1) f5( score2) f13( score10) c- line. score1 c- line. score2 c- line. score10,, INP U T,, IN FORMIX 4GL, RETU RN, IN FORMIX. 4GL, RET U RN,, IN PU T WITH OU T DEFA U LTS,,, IN FORMIX- 4GL,,, IN FORMIX 4GL INPU T : 55

66 INP U T [ WIT HOU T DEFAU LT S] F RO M 90, c- line, c- lin e. high T HRU c- line. fin al 3 c- line. high, c- line. low, c- line. final c- line. high f - logscore f14 ( 4. 3), c- lin e. low f15, c- line. final f17 90 : DISPLAY T O 110 f- CLOSE F ORM f- logscore, : logscore, 109 CLEAR F ORM,,, f - : CLEAR number, names, addr logscore, number n ames addr, : CLEAR CLEAR SCREEN, funlog. 4gl logsinger ( ), funlog. 4gl logsinger ( ) cline, logsinger( ), c- line cline 6, 4. 4 logsinger. per logsinger( ) logsinger. per / 162 logsinger. per f logsinger 163 f- logsinger,, logsinger. per 4 8 ( ) 166 DISPLA Y BY NA ME, c- line f- logsinger, f- logsinger f1 ( 4. 4), RET U RN, a 1, RET U RN, f5 RET U RN, 56

67 INF ORMIX 4GL c- line, INP U T IN PU T W IT HO U T DEFA U LTS,, INF ORMIX 4GL 166 : INP U T BY N AME. [ WIT HOU T DEFAU LT S],, : ( 1) : OPEN FORM FROM ( 2) : DISPLA Y FORM ( 3) : ( A ) DISPLAY T O ( B) DISPLA Y BY NA ME. ( 4) : ( A ) INP U T [ WIT HOU T DEFA U LT S] F RO M ( B) INPU T BY NA ME. [ WITH OU T DEF AU LT S] ( 5) : CLOSE F ORM /, 4. 2 INF ORMIX 4GL, 4. 6 funmain. 4gl,,, ( MEN U ) 4. 6 fun main. 4gl 1 DAT ABASE spor t 2 GL OBALS 3 DEFINE c- turn, c- st urn LIKE contest. turn 4 END GLOBALS 5 MAIN 6 OPT IONS HE LP FILE "help. ex" 7 OPT IONS HE LP KEY CONT ROL - w #, 8 OPE N FORM f - m ain FROM "cont est " 57

68 9 DISPL AY FORM f- main 10 CALL askquestion( ) RET U RNING c- turn, c- st urn 11 DISPL AY " ", c- t urn, " ", c- sturn, " " 12 AT 21, 61 " 13 MENU " " 14 COMMAND "U. " " " HEL P 1 15 CALL logscore( ) 16 COMMAND "F. " " " HEL P 2 17 CALL logsinger ( ) 18 COMMAND "S. " " " 19 CALL dspscore( ) 20 COMMAND "L. " " " 21 CALL dsporder( ) 22 COMMAND "N. " " " 23 CALL dspnlist( ) 24 COMMAND "R. " ", 25 CALL reglist( ) 26 COMMAND "C. " ", " 27 CALL cleanscreen( ) 28 COMMAND "E. " " " 29 EXIT MENU 30 END ME NU 31 CL OSE FORM f - main 32 CL EAR SCREEN 33 END MAIN 34 FUNCT ION cleanscreen( ) 35 run "clear" 36 END FU NCT ION 13 MEN U, MEN U 30 MEN U, END MENU MEN U COMMA ND, COMMA ND COMMAN D 14 ( H ELP 1), COMMAN D,,, U., " " MENU,,,, A SCII 15 U., logscore( ) COMMAN D MEN U 8, : U. F. 58

69 S. L. N. R. C. E. MEN U,,,,, RET U RN,,,,,,,,,,,,, INF ORMIX 4GL ( ),,,, U. RET U RN, 15, MEN U, MEN U,, EXIT MENU, MEN U, 29,, END MEN U COMMAN D, COMMAN D COMMAN D, COMMAN D EN D MENU COMMA ND COMMAN D 4. 5 logscore( ) MENU, MENU, 108 MENU MENU 5, Q., 31, IN FORMIX 4GL, MENU MEN U : MEN U COMMA ND 1 [ 1 ] 1 COMMA ND 2 [ 2 ] 2 COMMA ND N [ N ] 59

70 N EN D MEN U MEN U COMMA ND, COMMA ND COMMA ND MENU EXIT MEN U, CON T IN U E MEN U NEXT O PT ION CON T IN U E MEN U : CON T IN U E MEN U COMMA ND, MENU N EXT OP TION : N EXT OP TION COMMAN D MENU, 4. 3,, : ( 1) ( 2) ( 3) ( 4),, IN FORMIX 4GL,, ( 1) ( 2) ( 3),, ( 4) 4. 5, askquest ion( ), 114, w -, A T 20, , W IT H 1 ROWS, 20 COLU MNS ask 1 20 ( OPEN W IN DO W ) : ( 1) w - ask 60

71 ( 2) ( 3) w - ask OP EN W IN DOW IN FORMIX 4GL, ERRO R, P ROMPT,, 1, 114 w - ask, PROMPT 1 w OPEN WINDOW : ( OPEN WIN DOW A T, W IT H ROW S, CO LU MN S [ AT T RIBU TE ( BORDER) ] ask 1, A T TRIBU T E ( BO RDER),,, 118 ( CLO SE W IN DOW ), w - ask,, w - ask, w - ask w - ask, w - ask,, CLOSE WIN DO W CLOSE W IN DOW, : CLOSE W IN DOW logsinger( ), 161 w - logsinger, 255, w - logsinger 161 OPEN WIN DOW OPEN WINDOW,, : W IT H FORM "logsinger" IN FORMIX 4GL logsinger. per,, OPEN WINDOW, OP EN F ORM DISPLAY FO RM, OPEN W INDOW CLOSE W IN DOW CLOSE FORM, , , ( ) 161 OPEN WINDOW : O PEN W IN DOW A T, 61

72 W IT H FORM " " [ AT T RIBU TE ( BORDER) ] OPEN WINDOW CLOSE WINDOW OPEN W IN DO W? reglist ( ), 267 w - reglist, 381, 269 PROMPT w - reglist,, 268 w - prom,, 269 w - prom, w - reglist w - prom w - prom 272, 272 ( 381 ) w - reglist, ( ), IN FORMIX 4GL : ( 1) OPEN WIN DOW ( 2) CLO SE WINDOW ( 3) OPEN WIN DOW CLOSE W IN DOW, MESSA GE DISPLA Y PRO MP T IN PU T MEN U INFORMIX-4GL 4. 4 INFO RMIX 4GL,, 4. 4 sport cont est, 4 8,,, f1 RET U RN,, f5 RETU RN, ESC,,, f1,, 10, a1, f2, f5 > 10, 62

73 INF ORMIX 4GL SELECT, SELECT WH ERE SELECT, W HERE, SELECT WH ERE ( CONST RU CT ), llcondit ion, ll- condition 159 CON ST RU CT ON, FROM, : CON ST RU CT ON FROM SELECT, SELECT ll- select ll- select llcondit ion 159,, SELECT,, : LET = "SELECT FROM WH ERE", CLIPPED SELECT INT O ll - SELECT, SELECT 177 ll- ss- select select SELECT, SELECT n 177 PREPARE, : P REPA RE F RO M SELECT 178 SELECT ss- n ll- cursor, IN T O F OREA CH FET CH ll- cursor( 186 ),, 4. 3, 4 18, f1 f2 f INFO RMIX 4GL, : ( 1) CONSTRU CT ch 1 ON FROM ( 2) LET ch2= "SELECT F ROM W HERE", ch 1 CLIPPED ( 3) PREPARE sn F ROM ch2 ( 4) DECLARE cn CU RSOR FOR sn 63

74 ( 5) FOREACH cn INT O F ETCH cn INT O ch1 ch : ( 1) = ( 2) > ( 3) < ( 4) > = ( 5) < = ( 6) < > ( 7) ( 8)? ( 9) ( 10) ( 7) ( 8) CHA R, ( 1) ( 6),,,, 100, > = 100 ( 1),, 100 = 100, ( ), = ( 7) ( 8) CHA R,,,,,,,,,?? ( 9), ( ), ( 10),, , , ( ), f1?????? a1 f2 f , ( 4. 4 f5 ),, INF ORMIX 4GL, 64

75 INFORMIX-4GL 4. 7 regist er. per, register. per 1 DAT ABASE spor t 2 SCRE EN 3 { [ f01] [ f02 ] [ a1 ] [ f03 ] [ f04] [ f05] 7 [ f01] [ f02 ] [ a1 ] [ f03 ] [ f04] [ f05] 8 [ f01] [ f02 ] [ a1 ] [ f03 ] [ f04] [ f05] 9 [ f01] [ f02 ] [ a1 ] [ f03 ] [ f04] [ f05] 10 [ f01] [ f02 ] [ a1 ] [ f03 ] [ f04] [ f05] 11 } 12 T ABLE S 13 contest 14 AT T RIBUT ES 15 f01= number ; 16 f02= names; 17 a1= sex; 18 f03= addr; 19 f04= t ur n; 20 f05= st urn; 21 INST RUCT IONS 22 SCRE EN RE CO RD sr - reg[ 5] ( number, names, sex, addr, turn, s turn) 23 END, 4. 7, cont est , contest 6 5 cont est INST RU CT ION S sr - reg, 65

76 ,, sr - reg,, ( ), ( ), , 6, , sr - sr - reg 5 5, reg : SCREEN RECORD [ ] ( ) INF ORMIX 4GL,, : DEFINE A RRAY [ ] OF, : DEFINE X ARRAY [ 3] OF INT EGER X, 3, IN TEGER,, X[ 1] X 1, X[ 2] 2, X[ 3] 3,,, p - nl, p - nl sr - reg,, p - nl[ 1] p - nl 1, p - nl[ 2] p - nl 2, INF ORMIX 4GL,,,, p - sr - nl 100, reg 5,, 66

77 1, 2,, p - nl sr - reg, sr - reg 1 sr - reg [ 1] p - nl 1 p - nl[ 1], sr - reg[ 2] p - nl[ 2], sr - reg[ 3] p - nl[ 3], sr - reg[ 4] p - nl[ 4], sr - reg[ 5] p - nl[ 5],, p - nl sr - reg,, : sr - reg 1 sr - reg[ 1] p - n l 2 p - nl[ 2], sr - reg[ 2] p - nl[ 3],, sr - reg [ 5] p - nl[ 6],,,,,,, 1,, 1,, 1 1,,,,,,,,, 2. / reglist ( ) p - nl sr - reg / sr DISP LA Y A RRA Y p - reg n l DISPLAY ARRAY, p - nl 1 p - nl[ 1] sr - reg 1 sr - reg[ 1], p - nl[ 2] sr - reg[ 2], p - nl[ 3] sr - reg[ 3], p - nl[ 4] sr - reg[ 4], p - nl[ 5] sr - reg[ 5] p - nl[ 1] sr - reg[ 1],, 4. 7, : p - nl[ 1]. num f01, p - nl[ 1]. nam 6 f02, p - nl[ 1]. sex 6 a 1, p - nl[ 1]. add 6 f03, p - nl[ 1]. tur 6 f04, p - nl [ 1]. stu 6 f05, p - nl[ 2] p - nl[ 3] p - nl[ 4] p - n l[ 5] sr - reg 1 1 sr - reg[ 1]. number( f01) 67

78 1, 1, 1,, DISPLAY A RRA Y ESC, DISPLAY A RRAY DISPAY A RRA Y : DISPLAY A RRA Y T O. DISP LA Y ARRAY, INF ORMIX 4GL, set - count ( ) j, 331 DISPLAY A RRAY IN PU T A RRA Y sr - reg p - nl sr - INP U T ARRAY, p - nl 5 sr - reg, reg 1 1 INP U T ARRAY,, IN FORMIX 4GL p - nl F1, F2,,,, INPU T ARRAY, arr- count ( ) IN PU T A RRA Y ESC, INP U T A RRAY : IN PU T A RRA Y WITH OU T DEF AU LT S F ROM. IN PU T A RRA Y set - count ( ) INF ORMIX 4GL , 362 IN PU T ARRAY arr- count ( ) INP U T A RRA Y WITH OU T DEF AU LT S, : INP U T A RRA Y FROM. INPU T A RRA Y,, WIT HOU T DEF AU LT S INPU T A RRAY 68

79 WITH OU T DEFAU LT S INP U T ARRAY, set - count ( ) INFO RMIX 4GL,,,,, IN PU T A RRA Y DISP LA Y ARRA Y, : ( 1) RETU RN ( 2) T AB ( 3) ESC ( 4) ( 5) ( 6) ( 7) ( 8) F 1 ( 9) F 2 ( 10) F 3 ( 11) F 4 F 1 F 2 IN PU T ARRAY, INP U T A RRA Y DISPLAY A RRA Y RET U RN TA B ESC,,,,,, F 1, 69

80 F 2, F 3 F ,,, ( : INP U T,, ) INF ORMIX 4GL,,, ( CON TROL w),,, INFO RMIX 4GL, IN FORMIX 4GL, : ( 1) ; ( 2) ; ( 3),, vi,,,,,, (. ),, 4. 8 h elp. msg, 2, , , help. msg U., 3, : 4 Q ,, 70

81 5 ( ) 6 N P U F., : mkmessage, help. msg help. ex : mkmessage help. msg help. ex, h elp. ex, : O PT ION S HELP F ILE " ", CON TROL w ( CONT ROL w ), : O PT ION S HELP K EY CO NT ROL, ( ) MENU COMMAN D, , U. 1, U., CONT ROL w, h elp. ex F. 2, MEN U COMMAN D : COMMA ND [ ] H ELP IN FORMIX 4GL, INF ORMIX 4GL, 4 1. IN FORMIX 4GL?? 2. INF ORMIX 4GL?? 3. INFO RMIX 4GL? 71

82 4. INFO RMIX 4GL 5. INFO RMIX 4GL,? : DISPLAY IN FORMIX 4GL AT 6, 10 DISPLAY A T 7, 10 DISPLAY INF ORMIX 4GL A T 6, 10 DISPLAY A T 7, 10 SLEEP 10 : DISPLAY " IN FORMIX 4GL" A T 6, 10 DISPLAY " " A T 7, 10 O PEN W IN DOW a- win A T 5, 10 W IT H 4 ROWS, 30 COLU MNS DISPLAY "IN FORMIX 4GL " A T 2, 1 DISPLAY " " A T 3, 1 SLEEP 10 CLOSE W IN DOW a- win 6. INFO RMIX 4GL, ,,? INF ORMIX 4GL? 10. IN FORMIX 4GL,?? 72

83 INFO RMIX 4GL,, 5. 1 : INF ORMIX 4GL REPORT, REPORT RE PORT ( ) DE FINE [ OUT PUT ] [ ORDER BY ] FORMAT 1 1 N N E ND REPORT REPORT REPORT,,, REPORT EN D REPORT, REPORT REPORT, : ( 1) DEF IN E ( 2) OU T PU T ( 3) ORDER BY ( 4) FORMAT REPORT REPORT ( 1) ( 4), ( 2) ( 3) REPORT DEFINE, DEF IN E, O U TP U T 5. 1 ( ) 73

84 OU T PU T, : ( 1) T OP MARGIN n ( 2) BOT T OM MARGIN n ( 3) LEFT MARGIN n ( 4) RIGH T MA RGIN n ( 5) PA GE LEN GTH n ( 6) REPORT T O n 5. 1 ( 1) n, ( 2) n, ( 3) n, ( 4) n ( 130 ), ( 5) n, OU T PU T : O U TP U T LEF T MA RGIN 5 RIGHT MA RGIN 132 TO P MARGIN 3 BOT T OM MARGIN 3 PAGE LENGT H 66 ( 6) IN FORMIX 4GL, 74

85 ,, : REPORT T O " ", REPORT T O "repf" repf,, : REPORT T O PRIN TER,, : REPORT T O PIP E " ", REPORT T O PIP E "more" more, more REPORT ( 3) ORDER BY,, x, : O RDER BY x REPORT F ORMA T, 5. 2 F ORMAT REPORT F ORMA T, IN FORMIX 4GL,, ,, REPORT FORMA T EV ERY ROW, 5. 2 REPORT 5. 3 RE PORT name list ( pname, psex, paddr) DEFINE pname CHAR( 12), psex CHAR( 2), paddr CHAR ( 40) FORMAT E VERY ROW E ND REPORT 5. 2 pname psex paddr

86 PRINT P RINT,,, 1. P RINT P RINT : P RINT, PRIN T : P RINT " " (, ) P RINT, P RINT PRIN T : P RINT " ", x, " " x 20, : P RINT,,, CLIP PED,, SPACE SPA CES, 1 SPA CE, n SP ACES ( n 1 ) prov city zip, PRINT : P RINT prov CLIPPED, " ", city CLIPPED, " ", zip P RINT prov CLIPPED, 1 SPA CE, cit y CLIPPED, 2 SPA CES, zip P RINT,, COLU MN PRIN T COLU MN n, n ( n ), PRINT prov 20, city 40 : P RINT COLU MN 20, prov, COLU MN 40, city 3. PRIN T, U SING U SIN G U SIN G, U SING x, U SIN G PRIN T : 76

87 P RINT x U SING "# # # # " 4 #, 4 x x 4, X 4, 4, x , PRIN T : U SING, (. ), P RINT, 5 x, 1, 2 : P RINT x U SIN G "# #, # # " U SIN G (, ),,, PRIN T : P RINT x U SIN G "#. # # # " x , : , 234, ( ),, 5 x,, 4 : P RINT x U SIN G " # # # # " x , : ,, #, : P RINT x U SIN G " ", x , : ,, ( ),, 77

88 , PRIN T : P RINT x U SIN G "- # # # # ", U SING : ( 1) # ( 2) & ( 3) ( 4) < ( 5) - - & #,, &, <, 5. 1, b 4. INF ORMIX 4GL,, P AGEN O,, P RINT 5. 1 " # # # # # " 0 bbbbb " &&&&&" " " 0 bbbb " " 0 " < < < < < " 0 " # # # # &" 0 bbbb0 " &" 0 bbb 0 " &" 0 0 " &< < < < " 0 0 " # #, # # # " , 345 " # #, # # # " 1234 b1, 234 " # #, # # # " 123 bbb123 " # #, # # # " 12 bbbb12 " # #, # # # " 1 bbbbb1 " # #, # # # " - 1 bbbbb1 " # #, # # # " 0 bbbbbb " &&, &&&" , 345 " &&, &&&" , 234 " &&, &&&" " &&, &&&" " &&, &&&" " &&, &&&"