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] with the message: INFO IBM-MAIN
