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, Вы можете проверить, есть ли у вашего магазина стандарт для этого.

Другие вопросы по тегам