JCL文

* DATA

//SYSIN DD *
this is sysin data
/*

//SYSIN DD *
this is sysin data
//SYSOUT DD SYSOUT=*

ACCODE = 値

AMP = 値

AVGREC = {U|K|M}

初期スペースの割り当て量 = 初期値 * レコード長 * AVGRECで指定した単位
追加スペースの割り当て量 = 追加値 * レコード長 * AVGRECで指定した単位

//EX1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),SPACE=(100,(5,2)),AVGREC=M

BLKSIZE = {値 | 値K | 値M}

//EX1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),
//       RECFM=FB,LRECL=80,BLKSIZE=4000

BLKSZLIM = {値 | 値K | 値M | 値G}

BURST = {YES | Y | NO | N}

CCSID = 値

CHARS = {テーブル名}
        {(テーブル名[,テーブル名])}
        {DUMP}
        {(DUMP[,テーブル名])}

//EX1 DD SYSOUT=A,CHARS=(TBJ1,TBJ2)

CHKPT = EOV

CNTL = {*.label }
       {*.stepname.label }
       {*.stepname.procstepname.label}

COPIES = (コピー回数[,(グループコピー回数[,グループコピー回数]...)])

//OUTPUT DD SYSOUT=A,COPIES=(2,(2,1))

DATACLAS = クラス名

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),DATACLAS=DATA01

DCB = (dcbパラメータ[,dcbパラメータ]...)
DCB = ({データセット名}                   [,dcbパラメータ]...)
      ({*.DD名}                                       )
      ({*.ステップ名.DD名}                              )
      ({*.ステップ名.プロシージャステップ名.DD名}             )

DDNAME = DD名

//STEP1  EXEC PGM=TMAXSOFT
//SYSOUT DD DDNAME=DD2
//DD2    DD SYSOUT=*

//STEP1  EXEC PGM=TMAXSOFT
//OUT    DD DDNAME=DD2
//DD2    DD DSN=TEST.DATASET,DISP=(NEW,PASS)
//STEP2  EXEC PGM=TMAXSOFT
//IN     DD DSN=*.STEP1.OUT,DISP=(OLD,DELETE)
//

DEST = 出力先

//EX1 DD SYSOUT=A,DEST=LOCAL

DISP = ([NEW] [,DELETE] [,DELETE])
        [OLD] [,KEEP]   [,KEEP])
        [SHR] [,PASS]   [,CATLG])
        [MOD] [,CATLG]  [,UNCATLG])
        [,]   [,UNCATLG]
              [,]

//TEMP DD UNIT=DISK,SPACE=(TRK,(5,1))

//DD1 DD DSN=ORG.SOURCE.TEST,UNIT=8598,
//       DISP=(OLD,CATLG),
//       VOL=SER=333333

//DD2 DD DSN=ORG.LIB.DISP=(OLD,DELETE)

DLM = 段落記号

//DD1    DD DATA,DLM=AA
//JOB1   JOB                        --|
//STEP1  EXEC PGM=TMAXSOFT            | ---> DD1のインストリームデータ
//                                  --|
AA
//DD2 ...

DSID = {id}
       {(id[,V])}

{DSNAME | DSN} = {データセット名                }
                 {データセット名(メンバー名)    }
                 {データセット名(世代番号)      }
                 {&&データセット名             }
                 {*.DD名                      }
                 {*.ステップ名.DD名             }
                 {*.ステップ名.プロシージャステップ名.DD名}

//DD1     DD  DSN=TMAX.DATASET,DISP=SHR

//DD1     DD  DSN=TMAX.DATASET.OVERFLOW.LENGTH.COLUMN44.ISOCCUR.PARSE.ERROR

//DD1     DD  DSN=TMAX.PDSLIB(DATASET),DISP=(NEW,DELETE,DELETE)

//DD1     DD  DSN=TMAX.GDG(+1),DISP=(NEW,DELETE,DELETE)

//DD1     DD  DSN=&&TEMP,DISP=(NEW,PASS)

//DD1     DD  DSN=&&TEMP,SYSOUT=*

//DD1     DD  DISP=(NEW,PASS)

//DD1     DD  DSN=TMAX.DATASET,DISP=SHR
//DD2     DD  DSN=*.DD1,DISP=SHR

//STEP1   EXEC PGM=TMAXSOFT
//DD1     DD  DSN=TMAX.DATASET,DISP=SHR
//STEP2   EXEC PGM=TMAXSOFT
//DD1     DD  DSN=*.STEP1.DD1,DISP=SHR

//JOB1     JOB  CLASS=A,MSGCLASS=A
//TMAXPROC PROC
//PSTEP1   EXEC PGM=TMAXSOFT
//PDD1     DD   DSN=TMAX.DATASET
//         PEND
//STEP1    EXEC TMAXPROC
//STEP2    EXEC PGM=TMAXSOFT
//DD1      DD   DSN=*.STEP1.PSTEP1.PDD1

DSNTYPE = {LIBRARY|HFS|PDS|PIPE|EXTREQ|EXTPREF|LARGE|BASIC}

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),DSNTYPE=PDS

DUMMY

//SYSOUT DD DUMMY

DYNAM

EXPDT = {yyddd|yyyy/ddd}

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),EXPDT=2010/365

FCB = fcb-name

FILEDATA = {BINARY | TEXT }

FLASH = (フィルム識別名〔,適用枚数〕)

//EXF1 DD SYSOUT=A,FLASH=(FLM1,2)

FREE = {END | CLOSE}

HOLD = {YES | Y | NO | N}

//SYSOUT DD SYSOUT=A,HOLD=YES

KEYLEN = 値

//DD1 DD DSN=ISAM.NEW.DATASET,DISP=(NEW,CATLG),
//       KEYLEN=10,DCB=(RECFM=FB,DSORG=IS,LRECL=72)

KEYOFF = 値

//DD1 DD DSN=ISAM.NEW.DATASET,DISP=(NEW,CATLG),
//       KEYLEN=10,KEYOFF=20,DCB=(RECFM=FB,DSORG=IS,LRECL=72)

LABEL = ([データセットシーケンス番号][,AL] [,PASSWORD][,IN] [,EXPDT={yyyy/ddd}])
                         　　　　　 [,AUL][,NOPWREAD][,OUT]        {yyddd}
                         　　　　　 [,BLP][,]        [,]   [,RETPD=nnnn]
                        　　　　　  [,LTM]
                         　　　　　 [,NL]
                         　　　　　 [,NSL]
                         　　　　　 [,SL]
                         　　　　　 [,SUL]
                         　　　　　 [,JL]
                         　　　　　 [,JUL]
                         　　　　　 [,]

//DD2 DD DSN=TMAX.PRESERVE,UNIT=848X-1,
//       DISP=(,KEEP),VOL=SER=111111,
//       LABEL=EXPDT=99365

LGSTREAM = 値

LIKE = データセット名

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),LIKE=LIKE.DATASET

RECFM={F|FB}

RECFM={V|VB|VS|VBS}

RECFM=U

LRECL = 値

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),LRECL=70,DCB=(RECFM=FB)

MGMTCLAS = クラス名

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),MGMTCLAS=MGMT01

MODIFY = (モジュール名[,テーブル番号])

//OUT1 DD SYSOUT=A,CHARS=(TBJ0,TBJ1),
//        MODIFY=(TLE2,2)

OUTLIM = 値

OUTPUT = (リファレンス[,リファレンス]...)

//JOB1    JOB    CLASS=A,MSGCLASS=A
//OUT1    OUTPUT COPIES=5,OUTDISP=WRITE
//STEP1   EXEC   PGM=TMAXTEST
//OUT2    OUTPUT COPIES=3,OUTDISP=HOLD
//OUTDD1  DD     SYSOUT=*,OUTPUT=(*.OUT1,*.OUT2)
//SYSOUT  DD     SYSOUT=*
//STEP2   EXEC   PGM=TMAXTEST
//OUTDD2  DD     SYSOUT=*,OUTPUT=*.STEP1.OUT2
//SYSOUT  DD     SYSOUT=*
//

PATH = 'file-path'

PATHDISP = ([KEEP][,KEEP] )
           ([DELETE][,DELETE])

PATHMODE = {file-access-attribute} |
           {(file-access-attribute[,file-access-attribute]...)}

PATHOPTS = {file-option} | {(file-option[,file-option]...)}

PROTECT = {YES | Y}

RECFM={F[B][A|M]}
      {V[B|S|BS][A|M]}
      {L[A|M]}
      {U[A|M]}

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),RECFM=FB,LRECL=80

RECORG = {KS | ES | RR | LS}

REFDD = {*.DD名}
        {*.ステップ名.DD名}
        {*.ステップ名.プロシージャステップ名.DD名}

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),RECFM=FB,LRECL=80
//DD2 DD DSN=NEW2.DATASET,DISP=(NEW,CATLG),REFDD=*.DD1

RETPD = nnnn

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),RETPD=30

RLS = {NRI | CR}

SECMODEL = 値

SEGMENT = 値

SPACE = ({TRK,}(初期値1[,追加値1][,ディレクトリ1])[,RLSE] [,CONTIG][,ROUND])
         {CYL,}       [,]                  [,]     [,MXIG]
         {ブロック長,}                                [,ALX]
         {レコード長,}                               [,]

//JOB1 JOB
//     EXEC PGM=PROG1
//DS1  DD   DSN=DATA,UNIT=8598,
//          VOL=SER=A11111,
//          SPACE=(TRK,(20,5),RLSE)
//

//JOB2 JOB
//     EXEC PGM=PROG2
//DS2  DD   DSN=DATA,UNIT=8598,
//          VOL=SER=B11111,
//          SPACE=(CYL,(10,,20),,CONTIG)
//

SPIN = {UNALLOC | NO}

STORCLAS = クラス名

//DD1 DD DSN=NEW.DATASET,DISP=(NEW,CATLG),STORCLAS=STOR01

SUBSYS = 値

SYMBOLS = {JCLONLY | EXECSYS | CNVTSYS}

//EX1      EXPORT SYMLIST=A1
//SET1     SET  A1=TMAX,B1=SOFT
//SORTIN   DD   *,SYMBOLS=JCLONLY
1000&A1
2000&B1
/*

SYSOUT = ([クラス][,プログラム名][,書式番号])
          [*]

//OUT DD SYSOUT=(8,USERWTR),DEST=GROUPA

TERM = 値

UCS = 値

UNIT = ([ddd]       [,個数][,DEFER])
        [/ddd]      [,P]
        [/dddd]     [,]
        [デバイス・タイプ]
        [デバイス・グループ]
UNIT = AFF = DD名

//EXDD1 DD UNIT=3390,SPACE=(CYL,(1,1,1)),
//         VOL=SER=VOL001

//EXDD DD UNIT=SYSDA,SPACE=(CYL,(1,1)),VOL=VOL001

{VOLUME | VOL}
=([PRIVATE][,RETAIN][,ボリュームの順序番号][,個数][,][SER=ボリュームのシリアル番号] )
           [,]      [,]   [SER=(ボリュームのシリアル番号[,ボリュームのシリアル番号]...)]                          [REF=[データセット名]]
                          [REF=*.DD名]
                          [REF=*.ステップ名.DD名]
                          [REF=*.ステップ名.プロシージャステップ名.DD名]

//EXDD01 DD UNIT=848X,VOL=SER=VOL001,
//          DISP=(OLD,KEEP),DSN=TAPEDS1

//DD1 DD DSN=FILE.AUTH,DISP=(,KEEP),VOL=REF=FILE.ORG,
//       SPACE=(CYL,(5,1))

//STEP1 EXEC PGM=BUILD
//DD1   DD   DSN=FILE,DISP=(OLD,KEEP),VOL=SER=111111,
//           UNIT=8598
//STEP2 EXEC PGM=EXPAND
//DD2   DD   DSN=FILE,DISP=(MOD,KEEP),
//           VOL=(PRIVATE,,,2,REF=*.STEP1.DD1)

ACCT[.プロシージャステップ名] = 値

ADDRSPC[.プロシージャステップ名] = {VIRT}
                             {REAL}

CCSID = 値

COND[.プロシージャステップ名]= ((コード,演算符号[,ステップ名[.プロシージャステップ名]]) )
                         ([,(コード,演算符号[,ステップ名[.プロシージャステップ名]])]...)
                         ([,EVEN] )
                         ([,ONLY] )
COND=EVEN
COND=ONLY

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC RETURN,PARM=4
//STEP2    EXEC TMAXSOFT,COND=(12,GT)

DYNAMNBR[.プロシージャステップ名] = 値

MEMLIMIT = {値M|値G|値T|値P}
            {NOLIMIT}

PARM[.プロシージャステップ名] = パラメータ値
PARM[.プロシージャステップ名] = (パラメータ値,パラメータ値)
PARM[.プロシージャステップ名] = ('パラメータ値',パラメータ値)
PARM[.プロシージャステップ名] = 'パラメータ値,パラメータ値'

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC PRINT,PARM='argv1'

//JOB1     JOB  CLASS=A,MSGCLASS=A
//TMAXPROC PROC
//PSTEP1   EXEC PGM=PRINT,PARM='argv2'
//PSTEP2   EXEC PGM=PRINT,PARM='argv2'
//         PEND
//STEP1    EXEC TMAXPROC,PARM.PSTEP1='argv1'

PGM = {プログラム名}

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC PGM=TMAXSOFT

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC PGM=TMAXSOFT
//STEPLIB  DD   DSN=PROD.BATCHLIB,DISP=SHR

{PROC = プロシージャ名}
{プロシージャ名}

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC TMAXPROC

//JOB1     JOB  CLASS=A,MSGCLASS=A
//TMAXPROC PROC
//PSTEP1   EXEC PGM=TMAXSOFT
//         PEND
//STEP1    EXEC TMAXPROC

オペランド[.プロシージャステップ名] = 値

//JOB1     JOB  CLASS=A,MSGCLASS=A
//TMAXPROC PROC
//PSTEP1   EXEC PGM=TMAXSOFT,COND=(0,EQ)
//PSTEP2   EXEC PGM=TMAXSOFT,COND=(4,EQ)
//         PEND
//STEP1    EXEC TMAXPROC,COND=(8,EQ)

PERFORM = パフォーマンスグループ番号

//JOB1   JOB  PERFORM=100
//STEP1  EXEC PGM=TMAXSOFT,PERFORM=10

RD[.プロシージャステップ名] = {R | RNC | NR |NC}

REGION[.プロシージャステップ名] = {値K | 値M}

RLSTMOUT[.プロシージャステップ名] = 値

SPARM = '[システムパラメータ]=[値]]'

//STEP1 EXEC PGM=IKJEFT01,SPARM='DATE=DATE=2010.04.01,TIME=12:24:30'

TIME[.プロシージャステップ名] = {([分],[秒])}
                            {1440       }
                            {NOLIMIT    }
                            {MAXIMUM    }
                            {0          }

//JOB1   JOB
//STEP1  EXEC PGM=TMAXSOFT,TIME=(1,10)

記号パラメータ = [値]

//JOB1     JOB  CLASS=A,MSGCLASS=A
//TMAXPROC PROC A=default,B=default
//PSTEP1   EXEC PGM=TMAXSOFT,PARM=&A
//PSTEP2   EXEC PGM=TMAXSOFT,PARM=&B
// PEND
//STEP1    EXEC TMAXPROC,A=step1

// S(START) プロシージャ名,記号パラメータ=値[,記号パラメータ=値]...

ADDRSPC = {VIRT}
          {REAL}

BYTES = {値          }
        {(値,CANCEL) }
        {(値,DUMP)   }
        {(値,WORNING)}

CARDS = {値          }
        {(値,CANCEL) }
        {(値,DUMP)   }
        {(値,WORNING)}

CCSID = 値

CLASS = job class

//JOB1 JOB CLASS=A

COND = ((コード,演算符号),...)

//JOB1 JOB COND=(0,NE)

GROUP = 値

JESLOG = {SPIN | NOSPIN |SUPPRESS}

LINES = {値          }
        {(値,CANCEL) }
        {(値,DUMP)   }
        {(値,WARNING)}

MEMLIMIT = {値M|値G|値T|値P}
           {NOLIMIT}

MSGCLASS = class

//JOB1 JOB 8493,KIM,MSGCLASS=Z

MSGLEVEL = ([値][,{0}])
                  {1}

//JOB1 JOB MSGCLASS=Z,MSGLEVEL=(1,0)

NOTIFY = {nodename.userid}
         {userid         }

PAGES = {値          }
        {(値,CANCEL) }
        {(値,DUMP)   }
        {(値,WARNING)}

PASSWORD = password

//JOB1 JOB USER=KIM,PASSWORD=tmaxsoft

//JOB1 JOB USER=KIM

PERFORM = パフォーマンスグループ番号

//JOB1 JOB PERFORM=100

PRTY = 優先順位

//JOB1 JOB PRTY=5

RD = {R | RNC | NR |NC}

REGION = {値K | 値M}

RESTART =  {*}
           {STEP名}
           {stepname.procstepname}

//JOB1 JOB RESTART=*

SECLABEL = 値

SCHENV = 値

SPARM = '[システムパラメータ]=[値]]'

//JOB1 JOB CLASS=A,MSGCLASS=X,SPARM='DATE=2010.04.01,TIME=12:24:30'

TIME = {([分],[秒])}
       {1440       }
       {NOLIMIT    }
       {MAXIMUM    }
       {0          }

//JOB1    JOB   CLASS=A,MSGCLASS=A,TIME=(,10)
//STEP1   EXEC  PGM=IEFBR14
//SYSOUT  DD    SYSOUT=*
//

{xxcyyddd}
  {xxdhhmm}
  {xxYDnn}

//JOB1    JOB   000000000,'//TCYP10'
//STEP1   EXEC  PGM=IEFBR14
//SYSOUT  DD    SYSOUT=*
//

TYPRUN = {COPY}
         {HOLD}
         {JCLHOLD}
         {JEM}
         {SCAN}

//JOB1    JOB   CLASS=A,MSGCLASS=A,TYPRUN=SCAN
//STEP1   EXEC  PGM=IEFBR14
//SYSOUT  DD    SYSOUT=*
//

USER = user

//JOB1 JOB USER=KIM,PASSWORD=tmaxsoft

ADDRESS = (アドレス値[,アドレス値]...)

//OUT1 OUTPUT ADDRESS=('1234 Main Street','ABCD')
//OUT  DD     SYSOUT=A,OUTPUT=*.OUT1

AFPSTATS = {YES | Y | NO | N}

BUILDING = 建物名

//OUT1 OUTPUT BUILDING='ABC Tower'
//OUT  DD     SYSOUT=G,OUTPUT=*.OUT1

BURST = {YES | Y | NO | N}

CHARS = (テーブル名[,テーブル名]...)

//OUT1 OUTPUT CHARS=(TBL1,TBL2)
//OUT  DD     SYSOUT=A,OUTPUT=*.OUT1

CKPTLINE = 値

CKPTPAGE = 値

CKPTSEC = 値

CLASS = output class

//OUT1 OUTPUT CLASS=B
//OUT  DD     SYSOUT=*,OUTPUT=*.OUT1

COLORMAP = 値

COMPACT = 値

COMSETUP = 値

CONTROL = {PROGRAM | SINGLE | DOUBLE | TRIPLE}

COPIES= ([コピー回数][,グループコピー回数...])

//OUT1 OUTPUT COPIES=10
//OUT  DD     SYSOUT=J,OUTPUT=*.OUT1

DATACK = {BLOCK | UNBLOCK | BLKCHAR | BLKPOS}

DEFAULT = {YES | Y | NO | N}

DEPT = 部署ID

//OUT1 OUTPUT DEPT='FINANCE'
//OUT  DD     SYSOUT=J,OUTPUT=*.OUT1

EST = デスティネーション

//OUT1 OUTPUT DEST=BCCOMP
//OUT  DD     SYSOUT=J,OUTPUT=*.OUT1

DPAGELBL = {YES | Y | NO | N}

DUPLEX = {NO | N | NORMAL | TUMBLE}

FCB = FCB名

//OUT1 OUTPUT FCB=AA33
//OUT  DD     SYSOUT=J,OUTPUT=*.OUT1