JCL文

* DATA

//SYSIN DD *
this is sysin data
/*

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

AMP = 値

BURST = {YES | Y | NO | N}

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

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

CHKPT = EOV

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

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

DATATYPE = ([BIN | FBIN | SRC | TXTYES][,CNV | ,NOCNV][,EXP | ,NOEXP][,IMP | ,NOIMP])

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

DUMMY

//SYSOUT DD DUMMY

DYNAM

EXPDT = {yyddd|yyyy/ddd}

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

FCB = fcb-name

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)

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

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

RECFM={F|FB}

RECFM={V|VB|VS|VBS}

RECFM=U

LRECL = 値

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

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

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

OUTLIM = 値

PASSWORD = (パスワード,保護コード)

PROTECT = {YES | Y}

PRTFORM = 値

PRTYPE = {LP | PP}

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

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

RETPD = nnnn

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

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)
//

STORCLAS = クラス名

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

SUBSYS = (AIM,PED名,,DID番号)

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

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

TERM = TS

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}

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

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

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

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

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC ABEND,PARM=4
//STEP2    EXEC TMAXSOFT,COND=((2,GT),(12,LT),ONLY)

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC ABEND,PARM=4
//STEP2    EXEC TMAXSOFT,COND=EVEN

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC RETURN,PARM=4
//STEP2    EXEC RETURN,PARM=8
//STEP3    EXEC TMAXSOFT,COND=(4,EQ)

//JOB1     JOB  CLASS=A,MSGCLASS=A
//STEP1    EXEC RETURN,PARM=4
//STEP2    EXEC RETURN,PARM=8
//STEP3    EXEC TMAXSOFT,COND=(4,EQ,STEP2)

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

//JOB1     JOB  CLASS=A,MSGCLASS=A
//TMAXPROC PROC
//PSTEP1   EXEC PGM=TMAXSOFT
//PSTEP2   EXEC PGM=TMAXSOFT
//         PEND
//STEP1    EXEC RETURN,PARM=4
//STEP2    EXEC TMAXPROC,COND.PSTEP1=(4,EQ)

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

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

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'

//JOB1     JOB  CLASS=A,MSGCLASS=A
         - 以下省略 -
//STEP1    EXEC PGM=COBOLPGM,PARM='/SWITCH(00000000)'
         - 以下省略 -
//STEP2    EXEC PGM=COBOLPGM,PARM='/SWITCH(10000000)'
         - 以下省略 -

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)

//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.PSTEP1=(0,NE)

//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.PSTEP1=(0,NE),COND.PSTEP2=(4,NE)

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

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

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

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

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

//STEP1 EXEC PGM=KEQEFT01,SPARM='DATE=2010.04.01'

SYSTEM[.プロシージャステップ名] = システムの識別名

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

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

//JOB1   JOB
//STEP1  EXEC PGM=TMAXSOFT,TIME=NOLIMIT

記号パラメータ = [値]

//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

//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=,B=step1

ADDRSPC = {VIRT}
          {REAL}

CLASS = job class

//JOB1 JOB CLASS=A

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

//JOB1 JOB COND=(0,NE)

//JOB1 JOB COND=((4,EQ),(8,EQ),(12,EQ))

//JOB1 JOB COND=(12,LT)

//JOB1 JOB COND=((4,GT),(12,LT))

GROUP = 値

MSGCLASS = class

//JOB1 JOB 8493,KIM,MSGCLASS=Z

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

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

NOTIFY = {userid}

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 = ({*}[,値])
           {ステップ名}

//JOB1 JOB RESTART=*

//JOB1 JOB RESTART=STEP3

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

//JOB1 JOB CLASS=A,MSGCLASS=X,SPARM='DATE=2010.04.01'

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

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

//JOB1    JOB   CLASS=A,MSGCLASS=A,TIME=2
//STEP1   EXEC  PGM=KDJBR14
//SYSOUT  DD    SYSOUT=*
//

//JOB1    JOB   CLASS=A,MSGCLASS=A,TIME=MAXIMUM
//STEP1   EXEC  PGM=KDJBR14
//SYSOUT  DD    SYSOUT=*
//

//{xxcyyddd}
  {xxdhhmm}
  {xxYDnn}

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

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

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

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

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

------------------------------------------------------------------------------
 ** JCL SCAN start **
------------------------------------------------------------------------------
     1 //JOB1    JOB   CLASS=A,MSGCLASS=A,TYPRUN=SCAN
     2 //STEP1   EXEC PGM=KDJBR14
     3 //SYSOUT  DD    SYSOUT=*
       //
------------------------------------------------------------------------------
 ** JCL SCAN finish **
------------------------------------------------------------------------------

//JOB1    JOB   CLASS=A,MSGCLASS=A,TYPRUN=SCAN
//STEP1   EXEC  PGM=KDJBR14,  this comma is wrong.
//SYSOUT  DD    SYSOUT=*
//

     1 //JOB1    JOB   CLASS=A,MSGCLASS=A,TYPRUN=SCAN
     2 //STEP1   EXEC  PGM=KDJBR14,  this comma is wrong.
     3 //SYSOUT  DD    SYSOUT=*
       //
Syntax Error [Line:2;Column: ;Keyword: ;Message:Expected continuation not received]

//JEMTEST  JOB TYPRUN=JEM
//STEP01   EXEC PGM=KDJBR141
//DD01     DD DSN=TMAX.JEM.DATASET,DISP=(MOD,DELETE)
//STEP02   EXEC PGM=KDJBR14
//DD02     DD DSN=TMAX.JEM.DATASET,DISP=SHR
//STEP03   EXEC PGM=KDJBR14
//DD03     DD DSN=TMAX.JEM.DATASET,DISP=MOD

 JOBID=JOB00028   JOBPOS=0   RUNPID=8998
 JEMTEST JEM (test)
 ==============================================================================
 ---------------------------- STEP01 EXEC PGM step ----------------------------
 EXEC PGM=KDJBR141 (JEM mode)
 (JRN0143F) no program file(KDJBR141) exist - check JCL JOBLIB, JCL STEPLIB, and environment PATH
 ---------------------------- STEP02 EXEC PGM step ----------------------------
 EXEC PGM=KDJBR14 (JEM mode)
 (JRN2008E) [OLDDD02] Dataset 'TMAX.JEM.DATASET' does not exists.
 ---------------------------- STEP03 EXEC PGM step ----------------------------
 EXEC PGM=KDJBR14 (JEM mode)
 ==============================================================================
 (JRN2010I) JEM RUN skip enqueue for output processing ok
 (JRN2017I) JEM RUN total error count : 2
 ---------------------------- JEM PROCESS FINISHED ----------------------------

USER = user

//JOB1 JOB USER=KIM,PASSWORD=tmaxsoft

//JOB1 JOB USER=KIM

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

//JOB1    JOB  CLASS=A,MSGCLASS=A
// S TMAXPROC
//STEP1   EXEC PGM=KDJBR14

// F(MODIFY) プログラム(コマンド)名,プログラム(コマンド) パラメータ[,プログラム(コマンド) パラメータ]...

//JOB1    JOB  CLASS=A,MSGCLASS=A
// F AIM,D,WS,MODE=ALL
//STEP1   EXEC PGM=KDJBR14