Note that on the system distributed on increment 3, TSN 15157, the tapes 4671000,ICLKG3SYSTEM(867) and 4671001,ICLKG3ADDSYS(3939) are owned by user :GEOSOURCE so he will have to do TRAPGO commands before :MACROS or :LIB can read them:
JOB TRAPTAPES,:GEOSOURCE TG ICLKG3ADDSYS,:LIB,READ TG ICLKG3SYSTEM,:LIB,READ TG ICLKG3ADDSYS,:MACROS,READ TG ICLKG3SYSTEM,:MACROS,READ EJ ****
Here are instructions about how to load them.
This job will load it from the tape ICLKG3ADDSYS:
JOB FORT,:LIB
CREATE PROGRAM XFIV(*DA,BUCK1,KWOR48)
INPUT PARAMETERS,T????
CDF PROGRAM XFIV,0,0,0
IMT ICLKG3ADDSYS,3939
IP XFIV,3A,MT
F
????
DISCPROG *CR PARAMETERS, EDLIB PROGRAM XFIV, *MT (4671001)
TG PROGRAM XFIV,:MANAGER,EXECUTE,READ,GROUP
TS PROGRAM XFIV,ERASE
ER PARAMETERS
EJ
****
The optimising compiler, PROGRAM XFEV, is available on the same tape
and can be installed in a similar fashion.