Informix Code Generator

This is a code generator I wrote for Informix 4GL back a few years ago. It is very simplified but very helpful when writing screens with a single table plus a few or with a header/detail (parent/child) screen setup. Check it out by decoding it and then enter: fglgo generate readme and it will create a readme file for you. ALso you will need the calx.per file I am also posting! Stuart slitel@netcom.com ------------cut here--------------------------------------- begin 644 generate.4gi M 0 ( @ .9V5N97)A=&4N-&=L O!;Y;"K4& 5M86EN <&2U, M&'0 !W( %Z( &Y$ ! 20!,4P 9<@ >, !D0 $ !3 !IR #@P &1 0 M '( 8H: "4P <(( !%@ !3 !Y# !( '93 "!R '(P &1 0 %, M(7( <S 9$ ! 4P B<@!R, !D0 $ !3 "13 "4@@ $ (L 6\\ Z( M%DD!#U, )F\\ 2" @ !BP !88 D0 $ !3 "=O (@@ ( 8L 6& 9$ M! 4P H;P #(( " &+ %A@ *1 0 %, *7( KVZ F@ % I$ ! M4P J=P 9( #D0 $ !3 "M"@ , )$ ! 4P L<@"^, !D0 $ !( QQ3 M "X@@ $ (L 6\\ :( %DD!NE, +V\\ 2" @ !BP !8P D0 $ !3 #!W M @@ 0 8L 6, )$ ! 4P Q=P <@!BH@ 6D0 $ !) 8=3 #)R . P M &1 0 '( 8H: "4P T(( !%@ !( ;%3 #=R /@P &1 0 %, M.'(!"S 9$ ! 4P Y<@$Z, !D0 $ !3 #M# !( QQ3 #P@@ $ (L M 6\\ *( %DD"?U, /7(!:C 9$ ! 4P ^<@&J, !D0 $ !3 #]R :\\P M &1 0 %, 0'(!VS 9$ ! 4P!!<@(?, !D0 $ !3 $)R C\\P &1 M 0 %, 0W("6# 9$ ! 4P!$<@)R, !D0 $ !3 $5R J\\P &1 0 M %, 1G( <C 9$ ! 4P!'<@+7, !D0 $ !3 $AR P,P &1 0 %, M24, $@#'%, 2B" 0 BP !;P "H@ 620+T4P!+;P "(( " &+ %A@ *1 M 0 %, 3'( KVZ F@ % I$ ! 4P!-=P 9( %D0 $ !3 $Y"@ 4 M )$ ! 4P!/<@,], !D0 $ !3 % @@ 8 (L $@#'%, 45, 4G( ^# M 9$ ! 4P!3<@$+, !D0 $ !3 %1O__]# %3 %=H %L@ !\\ U@ 0 ! MD0 $ !3 %AW %O &B !>1 0 $D#9E, 67(#BFR "%R Y-L@ (P 21 M 0 %, 6F___T, 5, 72" !P BP 4P!?<@.^<@/N;( #4 "D0 $ !3 M &%N@ @@ @ 8L 6& !)$ ! 4P!B;H (7($$F@ % I$ ! =P MAH ) )3 &0@@ D $6 "5, 9FZ "%R!"!H !0 *1 0 '< (: "@ " M4P!H(( * !%@ I3 &IN@ 5O "B !:1 0 $D$9G($+8: "P "4P!L(( + M !%@ M3 &YR!#IN@ $A<@1&;H "(7($1FZ "%H !0 :1 0 %, ;W< M 'H E, <'($2&Z 2%R!$9N@ A: 4 $D0 $ !3 '%W !Z )(!4)3 M '-R!%-R!%MR!&9R!&]R!'5R!(%R!(QR!)-R!+MN@ A<@31<@38: #4 , MD0 $ !3 (!O $%A@ :1 0 %, @6\\ && !Y$ ! 4P"";P !88 (D0 $ M !N@ AO &2B !M*!.M3 (-L@ EN@ B(?5, @FR "!P 9$ ! 2 3#4P"% M;P 88 (D0 $ !3 (9W -D@ R1 0 %, ARJ #?__ P D0 $ !3 M (AN@ $A<@4 : 4 "D0 $ !W "&@ X E, BB" #@ 18 .4P"-<@4- M;H !(7(%%&@ % Y$ ! 4P".=P >@ "4P"/<@49;H (7(%(F@ % M Y$ ! 4P"0=P >@ &: "4@ !D0 $ !3 )%N@ A<@4J: 4 "D0 $ M !3 ))W )O "B !>1 0 $D%RE, DW(%+F@ "$P *1 0 %, E6Z M "%R!2IH !0 *1 0 '< (: #P "4P"7(( / !%@ ]3 )ER!6UN@ A M<@5X: 4 #D0 $ !3 )IW !Z )3 )MW )O "B !>1 0 $D&15, MG&Z "%R!2IH !0 *1 0 %, G7< 'H E, H'D D !0 M $ !1 $ ! %$ 0 ! @ ! @ !3 ( 0 0 0 0 M5P $ 'U $ $P DP ! @ !"@ DX(!7US='( 8VYT &5R M<F-O9&4 <70 86YS #0O,2\\Y-0!4:&ES('!R;V=R86T@:&%S(&5X<&ER960N M $-H96-K(&]U="!T:&4@)W)E861M92<@9FEL92!F;W(@;6]R92!I;F9O ')E M861M90!R7W)E861M90 1&5M;R!#;W!Y(&]F(%-*3"!G96YE<F%T;W(@97AP M:7)E<SH@-"\\Q+SDU &YU;5]A<F=S &%R9U]V86P 9&%T86)A<V4@ '!?9&( M4VEN9VQE(%1A8FQE('!R;V-E<W-I;F< 9&]W;G-H:69T ')E861M92!F:6QE M(&=E;F5R871E9"$A %5N:VYO=VX@<&%R86UE=&5R<P!3:6UP;'D@96YT97(@ M;F\\@<&%R86UE=&5R<R!T;R!G970@:6YS=')U8W1I;VYS &]R("=R96%D;64G M(&%S(&$@<&%R86UE=&5R('1O(&=E="!A(')E861M92!F:6QE %-)3D=,12!4 M04),15,Z(&=E;F5R871E+C1G92 \\=&%B;&5?;F%M93X@/&9O<FU?;F%M93X@ M/&1A=&%B87-E/@ @"4]2 $%24D%94SH@9V5N97)A=&4N-&=E(#QF:6QE7VYA M;64^(#QD871A8F%S93X "5=H97)E('1H92!F:6QE7VYA;64@35535"!#3TY4 M04E.('1H92!L:6YE<R!I;B!T:&4@9F]L;&]W:6YG(&]R9&5R.@!&:7)S="!L M:6YE.B )"5!!4D5.5"!404),12!.04U% %-E8V]N9"!L:6YE.B )"49/4DT@ M3D%-10!4:&ER9"!,:6YE.B )"4-(24Q$(%1!0DQ% $9O<G1H($QI;F4Z"0E, M24Y+($9)14Q$("AM=7-T(&)E('-A;64@;F%M92!F;W(@4$%214Y4+T-(24Q$ M*0!&:69T:" M($X@3&EN93H)0VAI;&0@1FEE;&1S(&9O<B!S8W)E96X 1F]R M(&UO<F4@:6YF;R!S:6UP;'D@96YT97(@=&AE('=O<F0Z(')E861M90!A<R!A M('!A<F%M971E<B!A;F0@>6]U('=I;&P@9V5N97)A=&4@82!R96%D;64@9FEL M92X <%]D8C( 07)R87D@4')O8V5S<VEN9P!L;V%D7V9I;&4 <V5L96-T(&-O M=6YT("@@*BD@9G)O;2!S>7-T86)L97,@=VAE<F4@=&%B;F%M92 ]/P!486)L M92 Z( @+3X@;F]T(&9O=6YD(&EN(&1A=&%B87-E(#H@ &-H96-K7VQO9V=I M;F< (R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C M(R,C(R, (R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C(R,C '5P<VAI9G0 +C1G M; !G96YE<F%T90 N;6L ;6%K969I;&4 9G)M+G-H ')?9G)M &9O<FTT9VP@ M+60@ " <V@@9G)M+G-H( !S96QE8W0@ &-O;&QE;F=T:"P 8V]L='EP92 M9G)O;2 <WES8V]L=6UN<RP <WES=&%B;&5S( !W:&5R92 <WES=&%B;&5S M+G1A8FED(#T@<WES8V]L=6UN<RYT86)I9"!A;F0@ '-Y<W1A8FQE<RYT86)N M86UE(#T@)P G(&%N9" <WES8V]L=6UN<RYC;VQN86UE(#T@/P!P7V9O<FT M9F]R;5]C=7)S "YP97( 8FQK7V9R;0!R;2 M9B +F9R;0!M86ME("UF( N M;6L@<F1S "YS: !53DE8(&UA:V4@;F]T(&9O=6YD("T@97AE8W5T:6YG(&AO M;65M861E(&UA:V5F:6QE(#H <E]D=6UM>5]M:P!C:&UO9" W-34@ "YS:" M&0 *@ " !( (@ N $( 6@!R (8 F@"X: ! :4 0 )Y P"G0 , N4 " -9 M P,W0 (#3D # [! P0*0 ,$%T 0!"1 $ 0T0! $[T "!/9 @4%0! %8D 0 M&P!@ !$ %O__ !@ & !D &0 4 !H &P B !P '0 X !X 'P!# " ( !, M "$ (0!: "( (@!H "0 ) !V "4 )0!Y "8 )@"- "< )P"C "@ * "Y "D M*0#/ "H *@#C "L *P#Q "P + #^ "X +@$/ "\\ +P$C # , $Y #$ ,0%/ M #( ,P%C #0 -@%Y #< -P&' #@ . &5 #D .0&C #L .P&Q #P / &Z #T M/0'. #X /@'< #\\ /P'J $ 0 'X $$ 00(& $( 0@(4 $, 0P(B $0 1 (P M $4 10(^ $8 1@), $< 1P): $@ 2 )H $D 20)V $H 2@)_ $L 2P*3 $P M3 *I $T 30*] $X 3@++ $\\ 3P+8 % 4 +F %$ 40+T %( 4@+W %, 4P,% M %0 5 ,3 %< 5P,< %@ 6 ,Q %D 60-% %H 6@-= %T 70-F %\\ 8 -Q &$ M80.% &( 8P.; &0 90.X &8 9P/# &@ :0/@ &H :P/K &P ;00' &X ;@02 M &\\ ;P0U ' < 0^ '$ <@1: ', ?01F ( @ 29 ($ @02G (( @@2U (( M@@3: (, @P3/ (4 A03K (8 A@3Y (< AP4' (@ B04: (H BP4W (T C05" M (X C@5: (\\ CP5C ) D 5[ )$ D06/ )( D@6D ), DP6X )4 E@7* )< MF 7G )D F07R )H F@8* )L FP83 )P G 8G )T G08\\ * H 9%!@ )9V5N M97)A=&4 !WL'/4A[ 4@ %, H4@ %, L6\\ (AUC .1 0 %, MLG\\ &Z &4 9$ ! ?P !4P"S?P ;H 90 !D0 $ !_ %3 +1_ !R M !ME &1 0 '\\ 5, M7\\ &Z &4 9$ ! ?P !4P"V?P <@ U90 ! MD0 $ !_ %3 +=_ !N@ !E &1 0 '\\ 5, N'\\ '( -W0 !W( :&4 M Y$ ! ?P !4P"Y?P <@!J90 !D0 $ !_ %3 +I_ !R +%E &1 0 M '\\ 5, NW\\ '( \\F4 9$ ! ?P !4P"\\?P <@#U90 !D0 $ !_ %3 M +U_ !R 3)E &1 0 '\\ 5, OG\\ '(!9F4 9$ ! ?P !4P"_?P M<@&=90 !D0 $ !_ %3 ,!_ !R /)E &1 0 '\\ 5, P7\\ '(!VV4 M 9$ ! ?P !4P#"?P <@(B90 !D0 $ !_ %3 ,1_ !N@ !E &1 0 M '\\ 5, Q7\\ &Z &4 9$ ! ?P !4P#&?P <@)&90 !D0 $ !_ %3 M ,=_ !R E%E &1 0 '\\ 5, R'\\ '("5V4 9$ ! ?P !4P#)?P M<@)E90 !D0 $ !_ %3 ,I_ !R FAE &1 0 '\\ 5, RW\\ '( -64 M 9$ ! ?P !4P#,?P <@)S90 !D0 $ !_ %3 ,U_ !R F5E &1 0 M '\\ 5, SG\\ '("@&4 9$ ! ?P !4P#/?P ;H 90 !D0 $ !_ %3 M -%_ !R HIE &1 0 '\\ 5, TG\\ '("BVZ 2%E *1 0 '\\ 5, MTW\\ '("BF4 9$ ! ?P !4P#4?P <@*5;H "(7("H&Z R%R JYE 61 M 0 '\\ 5,