大型机 Cobol Mainframe jcl.docx
- 文档编号:2914035
- 上传时间:2022-11-16
- 格式:DOCX
- 页数:69
- 大小:805.55KB
大型机 Cobol Mainframe jcl.docx
《大型机 Cobol Mainframe jcl.docx》由会员分享,可在线阅读,更多相关《大型机 Cobol Mainframe jcl.docx(69页珍藏版)》请在冰豆网上搜索。
大型机CobolMainframejcl
1将文件内容在系统中输出
//CN001000JOBMSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP1EXECPGM=IEBGENER
//SYSPRINTDDSYSOUT=*
//SYSUT1DDDSN=CN0010.XCY.JCL3,DISP=SHR
//SYSUT2DDSYSOUT=*
//SYSINDDDUMMY
2cond的用法,设置判断返回参数以决定是否执行本作业步
//CN001000JOBMSGLEVEL=(1,1),NOTIFY=&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.
/*
//SYSUT2DDSYSOUT=*
//SYSINDDDUMMY
3将两个sds文件复制到一个已有的文件当中
//CN001009JOBMSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP1EXECPGM=IEBGENER
//SYSPRINTDDSYSOUT=*
//SYSUT1DDDSN=CN0010.XCY.JCL1,DISP=SHR
//DDDSN=CN0010.XCY.JCL2,DISP=SHR
//SYSUT2DDDSN=CN0010.XCY.JCL3,DISP=SHR
//SYSINDDDUMMY
4将一个sds中的数据一部分复制到一个新建立的sds当中,record选择范围
//CN001000JOBMSGLEVEL=(1,1),NOTIFY=&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
//SYSPRINTDDSYSOUT=*
//SYSUT1DD*
XCYISAGOODBOY
//SYSUT2DDDSN=&&TEMP1,DISP=(,PASS),
//SPACE=(TRK,(1,1)),DCB=(LRECL=80,RECFM=FB),
//UNIT=SYSDA
//SYSINDDDUMMY
//****************************************************************
//BUILD2EXECPGM=IEBGENER
//SYSPRINTDDSYSOUT=*
//SYSUT1DDDSN=&&TEMP1,DISP=(OLD,DELETE)
//SYSUT2DDDSN=CN0010.XCY.DATA,DISP=(,CATLG,DELETE),
//SPACE=(TRK,(1,1)),DCB=(LRECL=80,RECFM=FB),
//UNIT=SYSDA
//SYSINDDDUMMY
6将一个sds内容复制到新建立的pds的一个member中
//CN001027JOBNOTIFY=&SYSUID,MSGLEVEL=(1,1)
//STEP1EXECPGM=IEBGENER
//SYSPRINTDDSYSOUT=*
//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选择排序范围
//CN001027JOBNOTIFY=&SYSUID,MSGLEVEL=(1,1)
//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=&SYSUID
//STEP1EXECPGM=SORT
//SYSOUTDDSYSOUT=*
//SORTINDDDSN=CN0010.XCY727.SDS,DISP=SHR
//SORTOUTDDDSN=CN0010.XCY727.SDS2,DISP=SHR
//SYSINDD*
SORTFIELDS=(1,3,CH,A)
SUMFIELDS=NONE
/*
8根据排序情况将sds内容分为三个sds,去除重复
//CN001027JOBMSGLEVEL=(1,1),NOTIFY=&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
//SYSPRINTDDSYSOUT=*
//SYSUT1DD*
THISLINEISWRITTENINTODATASETINGDG.
//SYSUT2DDDSN=CN0010.XCY27.GDG(+1),DISP=(NEW,CATLG,DELETE),//SPACE=(TRK,(1,1)),DCB=CN0010.XCY27.GDGMDL
//SYSINDDDUMMY
//CDS2EXECPGM=IEFBR14
//GDGDDDSN=CN0010.XCY27.GDG(+2),DISP=(NEW,CATLG,DELETE),//SPACE=(TRK,(5,5)),DCB=CN0010.XCY27.GDGMDL
11删除gdg
//CN001027JOBNOTIFY=CN0010
//************************************
//*BEFOREDELETINGAGDG,WEMUST*
//*DELETEALLDATASETINIT.*
//************************************
//DELDSEXECPGM=IDCAMS
//SYSPRINTDDSYSOUT=*
//SYSINDD*
DELETECN0010.XCY27.GDG.*
DELETECN0010.XCY27.GDGMDL
//**************************************
//DELGDGEXECPGM=IDCAMS,COND=(0,NE)
//SYSPRINTDDSYSOUT=*
//SYSINDD*
DELETECN0010.XCY27.GDGGDG
/*
12将两组数据排序进两个sds,再用merge合并排序
//CN001000JOBNOTIFY=CN0010//STEP1EXECPGM=SORT/
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 大型机 Cobol Mainframe jcl