Program to generate cross-reference for 4GL code
Posted in 1992
I wrote a program to generate a cross-reference for all variables, labels and functions used in a 4GL program ... thought it might be useful to others ... the (short) uuencoded tar.Z file is appended. Feel free to send any bug-fixes and extensions (proposed or implemented!) to me. Enjoy! -SRK ------ snip snip ----- snip snip -------- begin 600 dbxref.tar.Z M'YV09,3@D5/&C(LQ !(J7,BPH<.'$"-*G$@10 P8,&Q@3(@1!HT8-#AVC"%# M9$<8,6K J#$#P,H9'6G(D&&C)4J0,@& @%&QI\\^?0(,"F'&CJ-$;<^C4"2.' MCM"&2<.8,?.TJLX8.GF"L,JUJ]>O8!N^4 &""IHT<T#<2<.�@X3.>4 1$& M!(TS;LVP+<."KALR(,80#$-G;EW!;^;,:4'03!F";L:440""[!LS(.K(E0/" M#M,T8<2P*3/GA9DZD>FD>>.F-)O09=C,<4%916T01MYP]BP'M&C2?=V\\ 7%B MSI@W<,J< "&GSNBT3 W#@<,F31DRM"O??E*'#ISN(-"&=P."#IJY9G2WJ7T; MA'OW3L*TF0L"A1&"<5* 8)+&S=P1Q;%7V7MWG$<0<?'-MYQXYLW%FV^CF8;: M&*JQ]L)K8L36WGL<GG!?&7$LF%:#((Q07AKSI:79==G9-F!NG)V6VFJM^048 MAK'-T1>)>LF1% C5^5=B>&D5^-A<)))1$'EOC#%&'7(0A-UM3KQ1F X@)($9 MB7/(-Q>.;HFW(F#]@="&;DBB$0:30LI((8U]L<9&'N6=MV&'KR6U'!-!"%$$ M$T0R5P8<NA4&6!AI9=C?&77.15T8DH%P&0A*ZN5&&A6ZT>)M9HD'AQQOG"&' M?&HA.MX<<*0A)0ABT$E$&';,-84;>2@I1W$@B!!0AF%TEX<(;X$JJGR;#GA% M;W041EZK($RA%%-T@+!&&6W 45]22S4%Q'&CLG'0;&H\\Z<)U=;C0:PH"DM5I M6I^&.FH;@5[FV*HGF(K6"3LT2E=W:.A&EY.#TI&6<(*BRMH<:8C!%J9YW)8> M9VO2>5QK(-911F2D28H9IBK*5:P*+RB@P C]C<%&'4J"P$-29*SF AH^C%SR MR2GS0&$>R;T<,\\F1T3S7RG3TYL89L\\$L<\\\\H_\\QR=6+H+#+/)B>=:T #%?2R M"$]7VM]<5$A111$)Q#"RUD(:$0034Q0!0@(P9%W0UK@Q<<07?/K)!!%%&.$$ MVWB@E,!8^\\'F%MF8TEA9R".0/9<1<M/=YY]\\PR##WV0Q(?CA8[]==N-&5.'$ M$'CK'3D-E.,V8::4:EXX:Y@GKOGBG'L^!(>1XU"Z$:<;/D88;6&>N:5S-1$$ M%E]8$804=!>Q]PPR*$ 'SM<5%)B:G%G!%!70;R$\\\\<8CSX3R(*P 0@Q=[. \\ M])6",$>_38$@Q!-/?!^$$^:?GURE"B35'(4@?%&$&T%KF'OV +KR0%[R2G+ M>0RX@P24CC>X<H.7,,<AU"#L#/X!#!&6U,#27<% Z)G0A2ZG.," C#+OL6 : M,'@=$#BA#FV@ HI(4P6YD*&!@#.1:E)4)_'P)C,VI& *6[/"##8++I+I(."F M@$3T^,L\\XFE#Q 1EAK2<L()$9*$)^>.?%[9A#DJLW-;2 J B@1"(+;SB$"]H M1".\\AFCFXY#^ZL __P%0#G12@1/*@ <ZQ!$$?0#!_P)8OT'BL3+\\^5$/7%@% M)C !AV1Q%K0T!J3^3.M&:(G6"56HQ?ULK4J0!,$0H 29: 5I+F7JSW>BI9?1 M^,X.;TB#"16 !RFVI4DHX*01A9"'PLP!77M (2QE61EK+=*6;, E+WV9@OJY M)PV808$Q%^F$1C(!70,$@1D^U1\\ZF $%+'N,'/HB F3B4C]F",->R, %-XB@ MF2AT#Q\\QA8(6Q ">[NF#R-Q#$*7(P0W2A*<^%3#,65:-=\\D< PH*6IDGL($, M4 A:7W39PF62!IC"C*4)C2DHA.+2H1"5J/MZ>5%GAB>:TV2D([$) @)N4VC> M!"<=;#7.7 WFE@I%ISI'PTYWXO,]\\Z1#/>_YQX'RLPS^!"@<!"JR)9:!*6,X M3UH>IB\\)S@<P#PK-:%R0)<RD!S5DZ$L_H50C&+#@-E8RT%KD,KZ^K DP)#J! M$,IPEK^(2'U(+<]P2"2<E*E!,W2X38;J"M?S2$I(YB%,J=(BJJ<6AC.))0\\4 MT\\*;VH2LFPJ8PE/E$%48&1 %!D3@7 S8%T/F405S)2Q&W6/:8OZQFR (0FM, MBEJZ]@<PU+3F'ZDJ31 L,I%^?$N^. J'%OA@CWUD*0%EFY9%ZF]W<AE#M:1I M7+.4@;0%9,I/GQE-YH+ !XN$@7[&^D\\4,+>9I1MEE"X6+?& %Z]018,0W5-; MPOI6N"@TJJ"2B@*BEJY*K'P#6,=3R1^=<* %54 0R$ &TX+V>M!S81GN@%V* M H:+?,E,%MOXQE\\J()BLO6,>X="7^M[6I-"LCV;CZUFFH&"/%&9*7TR0VMNF M( 7_?0(5"%P= X<LFQQ%@6E5H)]:>E2A"--#&2XC9!'?^(_NT5]DX) 'ZOK MNMB%,7:W5[SC)<\\)VZV,E;',E/"!@,O=^[)^PILO#KEGB5)!:AY",-^W&!?# M7FQN?2Q,9! 8&:<HD $,!I3D)7_3PD^.IYU]P$1(S661@@XE%%X3*:HVYD@8 ML^*/WU-<'[@Q#$2[[Z?AJ.@4VZ?#(#!!?1@WM\\Y]+G1. $?XC:WNOT)UC=6 M- $[O4$SD.>W6X,RIXWK11FFJ(8M9+.BW=/I4>OYU*!.BZI9_057@RYOL?X! MK:LM.Q!@B=JVOJ:P]<FA'$V&0[LF-@R-3<,@+C(&PF;VG3\\)PSEL 09=N"^& MX[WH7O]Z)^,N=31K_!??YG:ENEXT<J,%[*3P&[CWA4/ RRV;<[\\GW<?E(\\/= M9]N_$%OC_"8X&3[>QXA/') H-#<*"0BX)$1KGDF!3K1$3G)-;IK9]Q4Y"+1- M\\XR7'$O %;:IG9WJ5<?NU=B6];;#C6N6<HC72])WL!6M<G2?M#Z=+O8,YX!L MW"ZRTXV6C-,OONBPSV4%D(8!O^7M SS7^[X'!72GW?[%OH"]B81.@Y*9C.@P MYW/9BR8Z'Q;I;'[/G=Y?W$+6U[WUKJ]@!?D&MG].KL^! @X*,$V+@*-U@JS^ M9@[+F91DFJ).R4*O12%+,.:[*=I<;KB%HEVM($7L6A1:N#)IZ(L:3,I;C@9= MN&^)>,U9:NIFH[H'BXS]RK7)30!^DV6;)V<)[ F#M*"@!#*H@WY$8/?J+E#& M"F?\\L6T8YN(;U]_H;'Y,H=\\=Z=<A5]WW ?J%S=LT"+_MB-<1"-1P?ZV/_SKY MPG\\^ '#[UP(MT!=I\\'ACYQXOU4W/-U/1ERLE\\'[<AWMAMDW=H5 GT$XGT!?L M1P<_57DBHWHP!5PH('OJ]TTBT#U)T"??XT)!T 1%, 7M]$Y_M'H U'KB95(I MB (BT$[61@5)\\ 2QY@0Q.(,U^%,X2 >M1VW6!D\\HU(,_Z ;A1H,^=8,PU82- M$VY,I0"8909XP3MPH"8H %MC@%$)0%X A0)C\\%V+5"_+80*JUH8\\\\(9Z< +Z MP0=\\ 'ANQB%LZ(;$$01Q.(<J\\X9:@(>RMH=]N(CN\\8?(1QQ?@(AZR(>,^(?O M=0(P,(B!48C$D0-XV(68!05Q409&L!?VD00OJ +;U!=1568JX"S_= :R9X9_ MU(J<H0(<!8M#8U(%LA?UX8C:= 9(I5#;=&,@$ *+5 1/8 3*I3YK00=151]G MF'#0-1<GL <GH .42 9O0(D$U(:+!(;#B +%N';O86K@^(8<J!]X]@:/9XZ! MU(NN](?(2!Q]H(EM6(_*R(SF.#&JX086TV:+"#A#P!K_:#%J<1:NI$8<4HW$ M(0+9N(W=R(C?>%_B"(WDN%3FR%W2:'#$L8Z>U$7NN +PF)"^2(]O")&I1HCZ MN(Q^]Q[^V!\\!"7@.>0(M$)&,"([!.([E2(GHZ)$VB8?>:)+S"(P728Q+I1_U MN(%N@(<;&9)E4"7O2(GDMHA5MX@$A!K"B)%CT!<]R8CNH9-!"8^4* :#L0;\\ M5I, HHV,*(]S@0)&N95(:8Q+N8[FV(Y3F9,&*9-EP&^5TBML0 =LN8@_^8A, MB8AX29)E>98GQY$H$ )@^!IL,(9AP(;&:)9/A9;O 3AF "KPXI9UAHN/=U]C M4%0HA(OWI78HI(:6:3X#A5E]509?<!S5$AUL2#V5$9LQP(JXJ0(J$)LR('MJ MJ#Y!4XW2!0<HH)LE!IQ=F& U!&IE<)NNB'FADB!E('L-Z'PR15/DU$[/*8Q8 M4@)3M1=650;M5(-]09UG8)T_%50HL(,*\\)H I !2U!]E"$!T(0=GT)73XXHJ MP!1G8 >R9P2HJ#:J*'$H9(N5$5%R4(NX.01HT!=7H!MDL 4D@0/E8WNO!QA$ MIVSN\\3[Q4P3S,WMD,*%R@%NX<39I@V+1!*#I.#[Z\\9W1^9_Z*:"[M4ISX(/M ME 1N\\#!MD 9X8!=' "A# "J*T0)24!"8%BEV$ ,N,&@@D*2C@2C7@24Q$ ,N M] 9V,#XYD ,R<)[NY($S)4Y0R( <E1[) 5 :@<6V@7D) <VB$*FMDT>64T( METW9N7YC&B7D- 1K(AS1@AP7HTV^" ;BN1R6]E0M,S3HF9\\!VJ9AYI[P^7<H MU([W!6_[I$W^@@([L /-"*'W)8H^0HJFN(H@8*)D4'[1A*KWEF]R>(QHT3)G M0$^LBF^Y9G4,>E_2>8LI( 9R$5]PR5!$AJIG!9;&"I9W0*%?0 =:E6%7\\ 12 M0 1?0 5],@5)H 5%4*S'NJURI'>&A@+)>J++VJRMF@+!\\09*,IMO4)L$\\9*F MEJN/:*?71(D+UF BA@+$"I55TA?.]I(="G"9RB&F]EQ4>ISX2J'D=#%D\\$X> M*5Z4^#\\E2J'WU35?PV]7:76F%@(0BZH+2'8#6YP%.UWY*@)NDBD,^XCBA1O' MMVW6!FM/*4\\51XE]^+&<%;+(.;*[TQ8G&U[Z\\:].*#LO"U0QRZWG&$T$&UTB MB["Y B8[NQ,]N[+@]CAW@VU!2W%R(;/'2K/&F;0G2DYG8"5OT+0IZ[-;*+5D MR8@;*[&$IZ)%P&]5^7<"&TV@^HC[J!^8&09HF5^9NH0F^%-F8#*)$9U?N5]D M]9Y,%1:(F[B*N[B,V[B.^[B0&[F2.[D5036-\\3*4F[D.<1$9L1$N@1$?$1*? MBQ$D81(CD1(Q8!,L$1,R$ ,W8 .?>P,R40-9H;FV*Q%$<12Z>[N*.SZUNQ6\\ M&[S"6Q& ,RUY$*[8(5\\G!#CK0JBN= >F(@90@A<MU)GK"@*O$BO-0BNV@BNZ M(@:\\XBLBT"*BI"9#,Q=2E#)TL%>&-4<4 B5S,2:H)S(*J@+(.ZZ_L061UU(* MD B$!J%PGW]^[^^^@8G4Q@"[+^0(AEP0 <)_+\\ HQ@/' 8,-L%F\\%@3K+-G MI<"WM!9#D\\$8O,'_^Q<33$0E_"LBS!2C@L(#C"@3;!PO+!E_L2@QG 9I,,$. MG,+)TAO2B\\ Z'#0)TQVD,<$H@RE$O+Y'S!H:-\\&Q,BK"R,1G\\,!B "EK "I@ M)<4%@298/*MA.L 9PL67\\L$BG"$:[,5(=0=E<#%23&EKL,9KL@9SL,:6M,86 M(\\4&O+!C3*&/8<?)LJY2?)927 =3<21X[,4L[+^MXL,#G+-L\\,#5Z,C4 \\E, M 2DAO,CG,09M+,(FLUF.7!W3<1V='+B=#%A[K,D&[,@&K!NHG$P^LLHPU,7^ M>QPGTP:M@<IM($4D;,JWS%ZV/!\\ %,>Z_*,YO,CK*LR&8LN$@C"^A,P$(<&F M[ ;^02&HW!K,"D#3K#^E-\\RQ?#!!0T?:+ (Q"9!E,,U-_,W'@1KF/!B*',ND MQ,N:#"5SH,J:G =K\\L!D0!BA0:7V3!CC+,+W7!C+"CW[7!@[U,\\#?,^'_+UA M8,]E(+U1[,]E, 8,/0;+.M$HPCL6;4L!G1P3_1H$P=#IY!S?_)<B#<P'K:1P M"M' P]"CL<ZZ$ALH@BFE?-+5(<R/8=+^JR0P#-'&H; TS-."D3 &G=.D$=0- M+,\\'C2+VK"K/L]2H\\AH)W3)/'09Y("=1G4DE,])AZ\\_KVA]KHM5U\\!OV_ 9W M ,NZ0M:M<187;,^@ @?V7-!O/4,5+<+7@2D47,C^6]=* 0?_/-0B8&X/K+"! M[7%\\%-&#W3)F<-@_/< 7 T.!'25(G=?&$08<3==-G-!\\%#4($RN!C0>&3=>> M_20N#7,"T]E&#-J8(AQW8-JE#=J/TA^=K2QX_==]Y,Z,7=O_%-N/(4&-+,+I M5'$/[!C0B ;!;1T/5=RC4=R7LC[%[2/?K!=X8(O!G4R$,=V:0=R^'=DDBR:0 M@MT#[*/!K1[5G