Re: Advanced use of 'DISPLAY ARRAY', or 'aiming too high?'
Posted in 1994
In article <Cvn7yw.A0y@cix.compulink.co.uk> you write: } > } > } System: SunOS 4.1.3_U1 (SPARC) } > } Engine: 5.01.UD2 } > } SQL: 4.10.UE1 } > } R4GL: 4.11.UC1 } > } > } Here's one I couldn't solve (easily) in 4.1, and I've come } across > } it again. } > } > } I'm using 'DISPLAY ARRAY' to present a list of choices to the } user; > } this may run to hundreds of choices, in a 5- to 10- line } scroll > } area... } > > If you get a solution, I'd love to see it. } } You are not alone. A "proper" display array is probably near the top of } all 4GL users wishlist. } Ask an ye shall receive :-) This is how I got around the DISPLAY ARRAY problem w/o using INPUT ARRAY. This is an actual validate/lookup that I've been using since I wrote fgl_getkey() almost two years ago. Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip #!/bin/sh # This is a shell archive (produced by shar 3.50) # To extract the files from this archive, save it to a file, remove # everything above the "!/bin/sh" line above, and type "sh file_name". # # Made 09/05/1994 09:32 EDT by dave@das13.snide.com # # Existing files will NOT be overwritten unless -c is specified # # This shar contains: # length mode name # ------ ---------- ------------------------------------------ # 8742 -rw-r--r-- lu_areas.4gl # # ============= lu_areas.4gl ============== if test -f 'lu_areas.4gl' -a X"$1" != X"-c"; then echo 'x - skipping lu_areas.4gl (File already exists)' else echo 'x - extracting lu_areas.4gl (Gzipped)' sed 's/^X//' << 'SHAR_EOF' | uudecode && begin 600 _shar_cmp_.tmp M'XL(``K:6RX``]U96T_;2!1^C_9'G#4OA(:(T&ZKK0#)F`FQ:NS4EU)45<A- MG(OJVJGME(U6^]_WS-AC>WQ)8%58=BT1B.=R;M_YSIEA#_SUK1MY;MQ_-?<[ MG0O9EL]EB\\`J"E=>E&PZ^(X,59U`.C.:A.L@`>M*UC15MZN#ZRAJ'(LGD;\\, MO/K8ZC;R)F$T!=DTY9M/KU]]!F,()E$,\\Z(#I8<J"9KZCL!TQ33NTX^>,&?J MH9SE*EF&@3BU-)`O(/H%E_,+6OGGP<]].@=@+Y8QS-;!A"GTP_674S?Q8G`A MLWD90++PN):0N%]\\KP_-#V[X<Y^_.IVAHRNV:NA4M]M,B_U,3U2YQYS>S6-5 MC(`RDLW]03'4')T.<S:?<Z_HL!4:L879IZ`[FL:&V(=%-*+83>L!L65`/=Q# MT[CB\\[-7UR-BBNJBG$+KO;T]N`A!A1/M+`R_KE?T#1M1AV5/_'H*DB:!/2)Z M#BV<$7_W)VZ??H933QSENW_(`-'O]^%$/PM[<')SYL7XZ_S,=X.OP$/AP9=U M`J[OAW?PA8[$W5P9_B@T:0NUA+',6ATD7:H-<&WTL&Q5X$V\\.':C#6+`OW,W M,4(V64<!6(ZB$,NJR></#9UH^RD<M6ASTZ[-AT(5S*%6;73#'AH.)O)#U!D< MM2ET?B^%@C`I:[2<@41A(T&P]OU631`3#&.JQ<`,,FHM`#=[7X/*P[U+'Z)9 MY$';-'F%;81ZJL-.]17%6Z=A3NE/]F$2VS%U45I/2%"Z@A/14_!P[+G19($T MG"RB<#U?W)^"V?.H/(R5DM,PJVYE1^TDVX?S+%_QU=LLE@GE3G))3&$(5[C) M9)$2_F^#XVZZTAACOERK^H5Q#=$RF(?KY)9W$B#;,.@-<-@>P3&8QK75@S>_ M@V)HSI5NI=NKUEB3;Y`ZG</W#C%OWB)T+$4>$_B^]J*E%V,0J#ZFZ8QM<+^$ M44)?89>`$E'?&+Z%/SS`AB,.H[[4`TGB<F7;-M5SQR;[UR/5)EU1H+4[_/EN MQVV[E<TOF_VZ!\\='J>%#P[P"B0]R8BEV.\\?&@Y@]8+OVTND:=?E0-2T;7@!6 MUXXFGQ.-DEVT>9M7QF60W,Y\\=XY).Y1YFBN&;MFF@U7Q_`9T^8KDD4-8U;#$ MZUB^E<`ZBF9@,:F8USQ:C7T^JU71$BDTJY4Q2&XNMP/K;%;W:^ND7@-U26+5 M;YN3M@$8\\ASIFCH>DXN6Z2QJU,=L3S9G;)*QC'O0-C?YEJ12L]VR7%*T;`+% M*RB.:1DF#3E?4UA;;K*1E-E[G$AD992O9ST.;YP_E59\\[A\\(`1`W*W][D6W- MR#?=OD6%\\K?#;!4B1YQT)`((LQ9MPZ9HX44>]1363(C"NQAB+*'Q;(.H87DW M"8/IDD8P1N?FRR\\-M(^!OEI22NK1DP9W4/::'S+HZS0I'-,DNLW!BB6V$:\\% M&1G&.V=<4%'L^=XD^=E45-<JUR8=QR,2JP3Q:N7.O;PBY-1+2X4%(Z*-X1VY MH:EOFX9V^)X-HR"-P#YR02:..R@C^5.8S?W;N9?@]_UBAE#/TWV0XH0U^`4[ MQ'U)Q@YP;$M=S(7F";FSI&XMB<A'U4YUO*<T=)&^19:I7HZ:Y.1.#.^"D@?O M)],9;Y&HD>$V@>O5@\\4-7Z(X^F`73C[:-*BMVP?>'TD%%?<4\\BH7@H3U034< M:ZN@5>3]^$>".!POVYQ$)Z\\PAR9194\\#2<2\\5AL:UXQ0"HH06E#ZI8!4:WY< M=[:7/9HD559%EODLG`UW3A;/K4T7#ZVEL5SYVFOP[OJ;E==&]0Z>O-^FY!BG M;,\\8DM]Z^.FI^FX98(X"S5,(D;PI@Y<;\\$?OM^L$490W6F2P5,*94.]VU[IO M(?YF!8]?\\2PQ%LP=FW#-9LU#6@1+52^-6AT(136@KLE5E73L&&4M2[):810- MZ)3LXE4RM6M0*=V6@JFB09QAIW\\`SCC5J=S`U0JNN&^U;+?:@$1$3(N@$<\\3 ME?A7$R8?'Y6U*B)B$ALQ.,&?_Q@2#YN1V&A-'8BT$W@8%`__1U#,"9(6Y:<D MR):.`T.X+X16I(`N_3AZ<N)L0$:!Q-WZ;L-\\Q0?/$R49854Q\\O@H:6D71=HZ M?1+**F-@)TH/*4IKY-,(GT&A=O5R]8%0.^10JY#3\\T3>=(E<22_=788K"&<P M=1.W$8`-5Z>/WL#5'$2E\\LN5XDH`;*/L=A&9)Z?M1%6)QI;:UXB-UJ7E1>(E M^ZYNCB]!(^]3<X_:+DFVJO?O%<02X)BJSP]P@J?B9.-[Q>T\\^YK>E[_IBO?L MN#B<S6*O]/_S+`8ES+"3=;I)]C\\A`4[Y916[:*J<E!'B<>G4E\\4Z/<'VFH>: M3J@E%4Z!0[Q1B];S<F_GZ?AQ5.=/<?-FDHMNBV4<XO]=TYC^W9P0&)#*V9[! :K7)`>RE>>P*[K\\QG]P;5C/\\;-=%?VB8B``!N ` end SHAR_EOF echo 'ungzipping file lu_areas.4gl' && gzip -d < _shar_cmp_.tmp > 'lu_areas.4gl' && rm -f _shar_cmp_.tmp && chmod 0644 lu_areas.4gl || echo 'restore of lu_areas.4gl failed' Wc_c="`wc -c < 'lu_areas.4gl'`" test 8742 -eq "$Wc_c" || echo 'lu_areas.4gl: original size 8742, current size' "$Wc_c" fi exit 0 Here --------- Snip Here --------- Snip Here --------- Snip Here --------- Snip DAS -- Dave Snyder @ Snide Computer Services - Folcroft, PA Current Release is db4glgen-3.21 UUCP: ..!uunet!das13!dave INTERNET: dave@das13.snide.com