大型机 Cobol Mainframe jcl文档格式.docx

大型机 Cobol Mainframe jcl文档格式.docx

《大型机 Cobol Mainframe jcl文档格式.docx》由会员分享，可在线阅读，更多相关《大型机 Cobol Mainframe jcl文档格式.docx（69页珍藏版）》请在冰豆网上搜索。

2cond的用法，设置判断返回参数以决定是否执行本作业步

SYSUID//STEP1EXECPGM=IDCAMS//SYSPRINTDDSYSOUT=*//SYSINDD*SETMAXCC=8/*//**************************************************************

//STEP2EXECPGM=IEBGENER,COND=（8,NE,STEP1）//SYSPRINTDDSYSOUT=*//SYSUT1DD*XCYISAGOODBOY!

/*//SYSUT2DDSYSOUT=*//SYSINDDDUMMY//*******************************************************************

//STEP3EXECPGM=IEBGENER,COND=（8,EQ,STEP1）//SYSPRINTDDSYSOUT=*

//SYSUT1DD*

YESHEIS.

/*

3将两个sds文件复制到一个已有的文件当中

//CN001009JOBMSGLEVEL=（1,1）,NOTIFY=&

//SYSUT1DDDSN=CN0010.XCY.JCL1,DISP=SHR

//DDDSN=CN0010.XCY.JCL2,DISP=SHR

//SYSUT2DDDSN=CN0010.XCY.JCL3,DISP=SHR

4将一个sds中的数据一部分复制到一个新建立的sds当中，record选择范围

SYSUID//COPYEXECPGM=IEBGENER//SYSPRINTDDSYSOUT=*//SYSUT1DDDSN=CN0010.XCY.JCL1,DISP=SHR//SYSUT2DDDSN=CN0010.XCY.JCL5,DISP=（NEW,CATLG）,//UNIT=SYSDA,SPACE=（CYL,（1,1））,//DCB=（RECFM=FB,LRECL=40,BLKSIZE=800）//SYSINDD*

GENERATEMAXFLDS=5,MAXLITS=4

RECORDFIELD=（5,1,,1）,FIELD=（20,21,,6）,FIELD=（9,61,ZP,26）,

FIELD=（9,70,ZP,31）,FIELD=（4,'

TEST'

,36）

5临时数据集的应用

//CN001000JOBNOTIFY=&

SYSUID,MSGLEVEL=（1,1）

//BUILDEXECPGM=IEBGENER

XCYISAGOODBOY

//SYSUT2DDDSN=&

&

TEMP1,DISP=（,PASS）,

//SPACE=（TRK,（1,1））,DCB=（LRECL=80,RECFM=FB）,

//UNIT=SYSDA

//****************************************************************

//BUILD2EXECPGM=IEBGENER

//SYSUT1DDDSN=&

TEMP1,DISP=（OLD,DELETE）

//SYSUT2DDDSN=CN0010.XCY.DATA,DISP=（,CATLG,DELETE）,

6将一个sds内容复制到新建立的pds的一个member中

//CN001027JOBNOTIFY=&

//SYSUT1DDDSN=CN0010.XCY727.SDS,DISP=SHR

//SYSUT2DDDSN=CN0010.XCY727.XCC（XCY1）,DISP=（NEW,CATLG）,

//SPACE=（TRK,（1,1,1））,VOL=SER=SUER01,UNIT=SYSDA

//SYSINDDDUMMYX

7将sds排序输出到另一个sds中，sortfield选择排序范围

//STEP1EXECPGM=SORT

//SYSOUTDDSYSOUT=*

//SORTINDDDSN=CN0010.XCY727.SDS,DISP=SHR

//SORTOUTDDDSN=CN0010.XCY727.SDS2,DISP=SHR

//SYSINDD*

SORTFIELDS=（1,2,CH,A,9,3,CH,A）

8将sds排序并去除重复项，输出到另一个sds中

//CN001027JOBMSGLEVEL=（1,1）,NOTIFY=&

SORTFIELDS=（1,3,CH,A）

SUMFIELDS=NONE

8根据排序情况将sds内容分为三个sds，去除重复

SYSUID//STEP1EXECPGM=SORT//SYSOUTDDSYSOUT=*//SORTINDDDSN=CN0010.XCY727.SDS,DISP=SHR//SORTOF01DDDSN=CN0010.XCY727.SDS3,DISP=（NEW,CATLG）,//SPACE=（CYL,（1,4）,RLSE）,DCB=（LRECL=80,RECFM=FB,BLKSIZE=80）//SORTOF02DDDSN=CN0010.XCY727.SDS4,DISP=（NEW,CATLG）,//SPACE=（CYL,（1,4）,RLSE）,DCB=（LRECL=80,RECFM=FB,BLKSIZE=80）//SORTOF03DDDSN=CN0010.XCY727.SDS5,DISP=（NEW,CATLG）,//SPACE=（CYL,（1,4）,RLSE）,DCB=（LRECL=80,RECFM=FB,BLKSIZE=80）//SYSINDD*SORTFIELDS=COPYOUTFILFILES=01,INCLUDE=（1,6,CH,EQ,C'

MOHANK'

）OUTFILFILES=02,INCLUDE=（1,6,CH,EQ,C'

SURESH'

）OUTFILFILES=03,INCLUDE=（1,6,CH,EQ,C'

KRISHN'

）/*

9创建gdg

//CN001027JOBNOTIFY=CN0010//********************************//*CREATEAGDG*//********************************

//GDGCREATEXECPGM=IDCAMS//GDGMODELDDDSN=CN0010.XCY27.GDGMDL,DISP=（NEW,CATLG,DELETE）,//SPACE=（TRK,（0））,DCB=（RECFM=FB,LRECL=80,BLKSIZE=8000,DSORG=PS）//SYSPRINTDDSYSOUT=*//SYSINDD*DEFINEGDG（NAME（CN0010.XCY27.GDG）LIMIT（100）/*

10在gdg中创建两个数据集

//CN001027JOBNOTIFY=CN0010

//**********************************

//*CREATE2DATASETSINAGDG*

//CDS1EXECPGM=IEBGENER

THISLINEISWRITTENINTODATASETINGDG.

//SYSUT2DDDSN=CN0010.XCY27.GDG（+1）,DISP=（NEW,CATLG,DELETE）,//SPACE=（TRK,（1,1））,DCB=CN0010.XCY27.GDGMDL

//CDS2EXECPGM=IEFBR14

//GDGDDDSN=CN0010.XCY27.GDG（+2）,DISP=（NEW,CATLG,DELETE）,//SPACE=（TRK,（5,5））,DCB=CN0010.XCY27.GDGMDL

11删除gdg

//************************************

//*BEFOREDELETINGAGDG,WEMUST*

//*DELETEALLDATASETINIT.*

//DELDSEXECPGM=IDCAMS

DELETECN0010.XCY27.GDG.*

DELETECN0010.XCY27.GDGMDL

//**************************************

//DELGDGEXECPGM=IDCAMS,COND=（0,NE）

DELETECN0010.XCY27.GDGGDG

12将两组数据排序进两个sds，再用merge合并排序

//CN001000JOBNOTIFY=CN0010//STEP1EXECPGM=SORT/