0
Файл VSAM мне нужно использовать KC02477.NEWEMP.WORKASGN.KSDS мой кобол использует встроенный sql, у меня возникают проблемы с получением это скомпилировать с помощью входного файла, что правильный синтаксис для утверждения ддJCL, Что такое инструкция DD Мне нужно будет принести в мой файл VSAM для моего кобола использовать
****** ***************************** Top of Data ******************************
000001 //KC03AF5A JOB (12345678),'KC03AF5',MSGLEVEL=(1,1),
000002 // NOTIFY=KC03AF5,MSGCLASS=H,CLASS=A,REGION=0M
000003 //***********************************************************
000004 //FFFPROC JCLLIB ORDER=(KC02477.SHARED.PROCLIB)
000005 //*********************************************************************
000006 //DSNHICOB EXEC DSNHICOB,MEMBER=COBOL04, << MEMBERNAME IN COBOL PDS
000007 // SLIB='KC03AF5.BRAPAX' << COBOL PDS LIB INFO
000008 //*********************************************************************
000009 //BIND.SYSTSIN DD *
000010 DSN SYSTEM (DBAG)
000011 BIND PACKAGE(COL9G) MEMBER(COBOL04) ENCODING(EBCDIC) -
000012 ACT(REP) ISO(CS) OWNER(KC03AF5)
000013 BIND PLAN(BP278031) PKLIST(COL9G.*) -
000014 ACT(REP) ISO(CS) ENCODING(EBCDIC) -
000015 OWNER(KC03AF5)
000016 END
000017 //*********************************************************************
000018 //RUN.SYSTSIN DD *
000019 DSN SYSTEM(DBAG)
000020 RUN PROGRAM(COBOL04) PLAN(BP278031)
000021 END
000022 //RUN.REPORT1 DD SYSOUT=*
Что такое сообщение об ошибке ???? –
100-ИНИЦИАЛИЗАЦИЯ-RTN ОШИБКА ОТКРЫТИЯ ФАЙЛА МАСТЕРА ФАЙЛ СОСТОЯНИЕ 35 – paxtuik
Вы хотите, чтобы DD появился в PROC, который вы выполняете, для шага 'RUN'. Таким образом, вы должны указать это на систему в JCL (компьютеры общего назначения не делают хороших читателей): '//RUN.EMDATI DD DSN = KC02477.NEWEMP.WORKASGN.KSDS, DISP = SHR'. Предполагается, что вы определили EMDATI в инструкции SELECT для файла в программе COBOL. –