SJL's Informix Code Generator

A few people have asked me for this again so I am posting it again. This is a uuencoded version of my Informix 4GL code generator. The program will only run with Informix RDS versions 4.x or 5.x due to the p-code required. The generated code will work with any Informix version compiled and/or RDS, on-line and/or standard engine, with or without transaction logging for Informix 4GL version 4.x or greater. How to run the program. simply download it and "uudecode it". This will result in a generate,4gi program. To get instructions simply enter "fglgo generate readme" and a file called "readme" or documentation will be generated. This code generator will generate code with full source including .4gl program, makefile (.mk) and screen (.per) file. Please let me know how you like it. For those who are using Informix 6.x of RDS I have to use an Informix 6.x version to build the RDS in order to upload it. If you only have 6.x - let me know and I will see what I can do. Have Fun. Stuart slitel@metcom.com P.S. - you will need ONE other file. It is called calx.per. It will be posted following this program, or it may be obtained from the Informix FTP site at Emory. cut - here ------------- begin 664 generate.4gi M 0 ( @ .9V5N97)A=&4N-&=L O%8?["KL& 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 !WK?/4AZV4@ %, 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(