没有合适的资源?快使用搜索试试~ 我知道了~
首页JCL Coding Examples
资源详情
资源评论
资源推荐

raw.doc 1
Chapter 4
The basics of Job Control Language
Figure 4-5
JOB statement examples
//PAY40B1 JOB MMA2AB14
//PAY40B2 JOB (MMA-001,'06/11/02',206),MENENDEZ,MSGCLASS=A
//PAY40B3 JOB ,MENENDEZ,MSGCLASS=A
//PAY40B4 JOB MSGCLASS=A,MSGLEVEL=(0,0),NOTIFY=MM01
A member named JOBCARD that contains a generic JOB statement
//MM01XXXX JOB 36512,'R MENENDEZ',
// MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=MM01
Figure 4-7
Five JOB statements that use the programmer name parameter
//MM01A JOB 36512,RMENENDEZ
//MM01B JOB ,R.MENENDEZ
//MM01C JOB ,'R MENENDEZ'
//MM01D JOB 36512,'O''Brien'
//MM01E JOB ,DEPT-10
Two ways to code the NOTIFY parameter
//MM01A JOB 36512,LOWE,NOTIFY=MM01
//MM01B JOB 36512,LOWE,NOTIFY=&SYSUID
Figure 4-8
A JOB statement with both the MSGCLASS and MSGLEVEL parameters
//MM01A JOB 36512,'R MENENDEZ',MSGCLASS=X,MSGLEVEL=(0,0)

raw.doc 2
Figure 4-9
An EXEC statement that executes program PAY5B10 in step PAYLIST
//PAYLIST EXEC PGM=PAY5B10
An EXEC statement that passes a parameter value of LINECT=0050 to
program IEBDG
//DATAGEN EXEC PGM=IEBDG,PARM='LINECT=0050'
An EXEC statement that passes three parameters to program HEWL
//LINKED EXEC PGM=HEWL,PARM='LET,MAP,XREF'
Figure 4-10
A DD statement that allocates an existing data set
//INVMAST DD DSNAME=MM01.INVNTORY.MASTER,DISP=SHR
A DD statement that allocates a new data set and catalogs it
//INVMAST DD DSNAME=MM01.ACCOUNT.MASTER,DISP=(NEW,CATLG),
// UNIT=SYSDA,VOL=SER=MPS8BV,
// SPACE=(CYL,(10,2)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=100)
Figure 4-12
The data set is allocated for shared access, and the normal and abnormal
dispositions default to KEEP
DISP=SHR
The new data set is cataloged if the job step ends normally; otherwise, it’s
deleted
DISP=(,CATLG,DELETE)
Figure 4-13
A DD statement that uses the UNIT and VOLUME parameters
//INVMAST DD DSNAME=MM01.INVNTORY.MASTER,DISP=(NEW,CATLG),
// UNIT=SYSDA,VOL=SER=MPS8BV,...

raw.doc 3
Figure 4-15
A DCB parameter for a sequential file with fixed-length records of 133
bytes
DCB=(DSORG=PS,RECFM=F,LRECL=133)
DD parameters for a file with variable-length records up to 500 bytes long
RECFM=VB,LRECL=500
Figure 4-16
Example 1
//INVTRAN DD *
A00101005995CH445
A00103010030CH445
A00272001950CJ550
/*
Example 2
//SYSUT1 DD DATA
//STEP1 EXEC PGM=INV1040
//INVLSTA DD SYSOUT=A
//INVLSTB DD SYSOUT=A
/*
Example 3
//SYSIN DD DATA,DLM=##
//INVTRAN DD *
A00101005995CH445
A00103010030CH445
A00272001950CJ550
/*
##
Figure 4-17
The data set identified by the ddname of SYSPRINT is a JES SYSOUT file
with a an output class of A
//SYSPRINT DD SYSOUT=A
The INVRPT data set is a JES SYSOUT file with an output class that
defaults to the output class specified by MSGCLASS in the JOB statement
//INVRPT DD SYSOUT=*

raw.doc 4
Figure 4-18
The JCL for the transaction-posting application
//MM01PT JOB 36512,'M MURACH',MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=MM02
//POST EXEC PGM=CM3000
//CUSTTRAN DD DSNAME=MM01.CUSTOMER.TRANS,DISP=SHR
//CUSTMAST DD DSNAME=MM01.CUSTOMER.MASTER,DISP=SHR
//ERRTRAN DD DSNAME=MM01.CUSTOMER.TRANS.ERRS,DISP=SHR
//TRANJRNL DD SYSOUT=*
//TRANSUM DD SYSOUT=*
//ERRLIST DD SYSOUT=*

raw.doc 5
Figure 4-19
The JCL for the report-preparation application
//MM01RP JOB 36512,'A PRINCE',MSGCLASS=X,MSGLEVEL=(1,1),
// NOTIFY=MM03
//SORT1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSNAME=MM01.ACCOUNT.MASTER,DISP=SHR
//SORTOUT DD DSNAME=MM01.ACCOUNT.MASTER.SORT,DISP=(NEW,KEEP),
// UNIT=SYSDA,VOL=SER=MPS800,
// SPACE=(CYL,(1,1)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=400)
//SORTWK01 DD UNIT=SYSDA,VOL=SER=MPS800,
// SPACE=(CYL,(1,1))
//SYSIN DD *
SORT FIELDS=(16,5,CH,A,1,5,CH,A)
/*
//AR7100 EXEC PGM=AR7100
//ARSORT DD DSNAME=MM01.ACCOUNT.MASTER.SORT,DISP=(OLD,DELETE),
// UNIT=SYSDA,VOL=SER=MPS800
//CUSTMAST DD DSNAME=MM01.CUSTOMER.MASTER,DISP=SHR
//DUNNING DD DSNAME=MM01.DUNNING.FILE,DISP=(NEW,KEEP),
// UNIT=SYSDA,VOL=SER=MPS800,
// SPACE=(CYL,(1,1)),
// DCB=(DSORG=PS,RECFM=FB,LRECL=400)
//AR7200 EXEC PGM=AR7200
//DUNNING DD DSNAME=MM01.DUNNING.FILE,DISP=OLD,
// UNIT=SYSDA,VOL=SER=MPS800
//ATB DD SYSOUT=*
//OVERDUE DD SYSOUT=*
//SORT2 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSNAME=MM01.DUNNING.FILE,DISP=(OLD,DELETE),
// UNIT=SYSDA,VOL=SER=MPS800,
//SORTOUT DD DSNAME=MM01.DUNNING.FILE.SORT,DISP=(NEW,KEEP),
// UNIT=SYSDA.VOL=SER=MPS800,
// SPACE=(CYL,(1,1))
// DCB=(DSORG=PS,RECFM=FB,LRECL=400)
//SORTWK01 DD UNIT=SYSDA,VOL=SER=MPS800,
// SPACE=(CYL,(1,1))
//SYSIN DD *
SORT FIELDS=(43,2,CH,A,1,5,CH,A,50,5,CH,A)
/*
//AR7300 EXEC PGM=AR7300
//DUNSORT DD DSNAME=MM01.DUNNING.FILE.SORT,DISP=(OLD,DELETE),
// UNIT=SYSDA,VOL=SER=MPS800
//XREF DD SYSOUT=*
//STMTS DD SYSOUT=*
剩余63页未读,继续阅读








安全验证
文档复制为VIP权益,开通VIP直接复制

评论3