Привет, я хотел бы спросить, что не так с моим кодом JCL. Я работаю над этим уже довольно давно. Когда я отправляю это, я получаю RC 08, и он говорит, что СИСТЕМА DSNUTILB - DB2 НЕ СУЩЕСТВУЕТ на SYSPRINT. Может ли кто-нибудь помочь мне в этом? Спасибо. :)
Вот мой код JCL:
//X544582L JOB (T,92958888P),
// 'N=TSO.X544582',
// CLASS=S,
// MSGCLASS=H,
// MSGLEVEL=(1,1),
// REGION=32M,
// NOTIFY=&SYSUID
//* TYPRUN=SCAN
//*
//JOBLIB DD DSN=X544582.LOADLIB1,DISP=SHR
//*
//STEP001 EXEC PGM=DSNUTILB
//STEPLIB DD DSN=DSN910.SDSNLOAD,DISP=SHR
//SYSUT1 DD DSN=&&SYSUT1,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(CYL,(10,10))
//SYSMAP DD DSN=&&SYSMAP,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(CYL,(10,10))
//SORTOUT DD DSN=&&SORTOUT,
// DISP=(MOD,DELETE,DELETE),
// SPACE=(CYL,(10,10))
//LOADIN DD DSN=X544582.SIPROOT.PBB01,DISP=SHR
//SYSIN DD *
LOAD DATA INDDN LOADIN
RESUME
INTO TABLE IMS2DB2.SIPROOT_PBB01_T
(
STATION_NO INTEGER,
AIRLINE_CODE CHAR(2),
SIPROOT_DATA_01 CHAR(4)
)
/*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSERR DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//