JCL,我需要将 VSAM 文件引入我的 Cobol 才能使用的 DD 语句是什么
JCL, What is the DD statement I would need to bring in my VSAM file for my cobol to use
我需要使用 VSAM 文件 KC02477.NEWEMP.WORKASGN.KSDS
我的 cobol 使用的是嵌入式 sql,我无法使用输入文件对其进行编译,dd 语句
的正确语法是什么
****** ***************************** 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=*
DD 语句通常是:-
//ddname DD DSN=KC02477.NEWEMP.WORKASGN.KSDS,DISP=SHR
其中 ddname
将在程序中定义。
我需要使用 VSAM 文件 KC02477.NEWEMP.WORKASGN.KSDS 我的 cobol 使用的是嵌入式 sql,我无法使用输入文件对其进行编译,dd 语句
的正确语法是什么****** ***************************** 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=*
DD 语句通常是:-
//ddname DD DSN=KC02477.NEWEMP.WORKASGN.KSDS,DISP=SHR
其中 ddname
将在程序中定义。