DSNUTILB - СИСТЕМА DB2 НЕ СУЩЕСТВУЕТ
Привет, я хотел бы спросить, что не так с моим кодом 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=*
//
1 ответ
DSNUTILB
должен иметь PARM
это включает подсистему DB2, к которой вы пытаетесь получить доступ. Смотрите эту страницу в информационном центре.
В принципе, я думаю, что вам нужно добавить такую строку:
// PARM='sub,id,',
куда sub
это идентификатор подсистемы, и id
это уникальный идентификатор для запуска утилиты (в моем магазине мы обычно используем что-то вроде имени JCL и того, что делает шаг, так что, возможно, вы могли бы сделать что-то вроде X544582L.LOAD
, Вы можете проверить, есть ли у вашего магазина стандарт для этого.