Elardus, Ty my friend, I worked in manufacturing for awhile we had an external table like this we loaded into CICS. Those were the days of macro CICS.
Thanks my friend. Regards, Scott On Friday, March 20, 2015, Elardus Engelbrecht < [email protected]> wrote: > Elardus Engelbrecht wrote: > > >I have the same thing which Charles Mills kindly described. Load a mod > with data and play with it. > > >In my case, I inherited an ancient IEFUJI exit. That thing loads a module > residing in a linklist library which contains only a list of approved > accounting codes allowed to be used. > > As promised here is it (As you can see it was ancient stuff... ;-D ): > > This load a mod and use R4 as a base to loop the table. > > A00UJI EQU * > LOAD EP=SSPACTCD > LR R4,R0 SAVE EP ADDR > A00LOOP EQU * > CLC 0(5,R4),PROJECT IS THERE A MATCH ? > BE A00SPEC YES > CLC 0(5,R4),=C'FFFFF' END OF TABLE > BE A00INV2 NO > LA R4,8(,R4) SCAN THROUGH TABLE > B A00LOOP NEXT ENTRY > .... > A00INV2 EQU * > WTO 'IEFUJI04 NOT REGISTERED CONTACT SYSTEMS' > ... > BAL R10,A00DELEP > LA R15,4 4 CANCEL JOB PROCESSING > B A00EXIT > A00SPEC EQU * > BAL R10,A00DELEP 0 > LA R15,0 CONTINIUE > B A00EXIT > A00DELEP EQU * > DELETE EP=SSPACTCD > BR R10 > ... > PROJECT DS CL5 > > Table linked in Linklib as RENT. > > SSPACTCD CSECT > DS 0F > DC CL8'ABCDE' > ... > DC CL8'FFFFF' END > END > > Groete / Greetings > Elardus Engelbrecht > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] <javascript:;> with the message: > INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
