데이터 셋 유틸리티

COPY DATASET(INCLUDE(DSNAME,…)
        [RENAMEU((OLD DATASET NAME,NEW DATASET NAME),…)]
        [SHARE]
        [SPHERE]
        [TOL(ENQF)]
        [WAIT(時間間隔, 試行回数)]

DUMP  DATASET(INCLUDE(DSNAME,…)
              [EXCLUDE(DSNAME,…)]
      [BY(CREDT|EXPDT|REFDT,演算子,*,[-]日数)])
      OUTDD(OUTDD NAME)
      [INDD(INDD NAME,…)] [INDY((VOLSER,UNIT),…)]
      [LIDD(LIDD NAME,…)] [LOGINDY((VOLSER,UNIT),…)]
      [ALLE] [ALLD(*)] [ALLM]
      [DELETE] [PURGE]
      [SHARE] [TOL(ENQF)] [WAIT(時間間隔, 試行回数)]
      [COMPRESS]

RESTORE DATASET(INCLUDE(DSNAME,…)
                [EXCLUDE(DSNAME,…)])
        INDD(INDD NAME)
        OUTDD(OUTDD NAME,…)
        [RENAME((OLD DATASET NAME,NEW DATASET NAME),…)]
        [RENUNC((OLD DATASET NAME,NEW DATASET NAME),…)]
        [CATALOG]
        [REPLACE]
        [SHARE] [TOL(ENQF)] [WAIT(時間間隔, 試行回数)]

IF {Condition Code} {operator} {number}
THEN [command|DO command set END]
[ELSE [command|DO command set END]]

DUMP INDD(IN) OUTDD(OUT) DELETE –
DATASET(INCLUDE(TEST.DATASET.**) BY (CREDT,LT,*,1) ) –
IF MAXCC > 4 –
THEN DO –
     WTO ‘* DATA SETS DELETE FAILURE *’-
END

WTO ‘message’

//*********************************************************************
//***  ADRDSSU LOGICAL DUMP                                         ***
//*********************************************************************
//ADRDUM01 JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//OUTDD    DD   DSN=ADRDSSU.DUMPED.DS,UNIT=3380,DISP=(NEW,CATLG,DELETE)
//SYSIN    DD  *
 DUMP DATASET(INCLUDE(ADRDSSU.TEST01, -
                      ADRDSSU.TEST02, -
                      ADRDSSU.TEST03)) -
 OUTDD(OUTDD)
/*
//SYSPRINT DD  SYSOUT=*
*

//*********************************************************************
//***  ADRDSSU LOGICAL DUMP AND DELETE                              ***
//*********************************************************************
//ADRDUM01 JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//OUTDD    DD   DSN=ADRDSSU.DUMPED.DS,UNIT=3380,DISP=(NEW,CATLG,DELETE)
//SYSIN    DD   *
 DUMP DATASET(INCLUDE(ADRDSSU.TEST01, -
                     ADRDSSU.TEST02, -
                     ADRDSSU.TEST03)) -
 OUTDD(OUTDD) -
 ALLE ALLD(*) -
 DEL PURGE –
 TOL(ENQF) -
 WAIT(2,99) -
 SHARE
/*
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU LOGICAL DUMP WITH DATA SET NAME FILTERRING           ***
//*********************************************************************
//ADRDUM01 JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//OUTDD    DD   DSN=ADRDSSU.DUMPED.DS,UNIT=3380,DISP=(NEW,CATLG,DELETE)
//SYSIN    DD  *
 DUMP DATASET( INCLUDE(ADRTEST.**) ) -
 OUTDD(OUTDD)
/*
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU LOGICAL DUMP WITH ‘BY’ FILTERING                   ***
//*********************************************************************
//ADRDUM01 JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//OUTDD    DD   DSN=ADRDSSU.DUMPED.DS,UNIT=3380,DISP=(NEW,CATLG,DELETE)
//SYSIN    DD   *
 DUMP DATASET( INCLUDE(ADRTEST.TEST*) BY (CREDT,GT,*,-1) ) -
 OUTDD(OUTDD)
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU PHYSICAL DUMP                                        ***
//*********************************************************************
//ADRDUM01 JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//INDD1    DD   UNIT=SYSDA,DISP=SHR,VOL=SER=200000
//OUTDD    DD   DSN=ADRDSSU.DUMPED.DS,UNIT=3380,DISP=(NEW,CATLG,DELETE)
//SYSIN    DD   *
 DUMP INDD(INDD1) OUTDD(OUTDD)
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU LOGICAL RESOTRE                                      ***
//*********************************************************************
//ADRRES1  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//INDD     DD   DSN=ADRDSSU.DUMPED.DS,DISP=OLD
//DASD1    DD   VOL=SER=100000,UNIT=3380,DISP=OLD
//SYSIN    DD   *
 RESTORE   DATASET(INCLUDE(ADRDSSU.TEST01, -
                           ADRDSSU.TEST02, -
                           ADRDSSU.TEST03)) -
           CATALOG -
           INDD(INDD) -
           OUTDD(DASD1)
/*
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU LOGICAL RESOTRE AND RENAME                           ***
//*********************************************************************
//ADRRES1  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//INDD     DD   DSN=ADRDSSU.DUMPED.DS,DISP=OLD
//DASD1    DD   VOL=SER=100000,UNIT=3380,DISP=OLD
//SYSIN    DD   *
 RESTORE   DATASET(INCLUDE(ADRDSSU.TEST01, -
                           ADRDSSU.TEST02, -
                           ADRDSSU.TEST03)) -
           RENUNC((ADRDSSU.TEST01,ADRDSSU.TEST01.NEW ), -
                  (ADRDSSU.TEST02,ADRDSSU.TEST02.NEW ), -
                  (ADRDSSU.TEST03,ADRDSSU.TEST03.NEW )) -
           CATALOG -
           INDD(INDD) -
           OUTDD(DASD1)
/*
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU PHYSICAL RESOTRE                                     ***
//*********************************************************************
//ADRRES1  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//INDD     DD   DSN=ADRDSSU.DUMPED.DS,DISP=OLD
//DASD1    DD   VOL=SER=100000,UNIT=3380,DISP=OLD
//SYSIN    DD   *
 RESTORE INDDNAME(INDD) OUTDDNAME(DASD1) -
         DATASET(INCLUDE(**))
/*
//SYSPRINT DD  SYSOUT=*

//*********************************************************************
//***  ADRDSSU PHYSICAL COPY                                     ***
//*********************************************************************
//ADRRES1  JOB  CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JS010    EXEC PGM=ADRDSSU
//SYSIN    DD   *
  COPY DATASET(INCLUDE(ADRDSSU.TEST01)) -
        WAIT(0,0) SPHERE  -
        RENAMEU(ADRDSSU.TEST01.NEW)

/*
//SYSPRINT DD  SYSOUT=*

CONTROL    CNTL  [{SKIP|K}={[underline]#0#|number}]
                 [,{STOPAFT|H}={[underline]#EOF#|number|(number,E)}]
                 [,{DDNAME|D}={[underline]#SYSUT1#|ddname}]
                 [,{DDNOUT|O}={[underline]#SYSUT4#|ddname}]

OPTION     {PRINT|COPY|NEGOF} [{OFFSET|O}={[underline]#1#|number}]
                              [,{FLDTYP|T}={[underline]#X#|C}]
                              [,{VALUE|V}=string]
                              [,{FLDLEN|L}={[underline]#1#|number}]
                              [,{COND|C}={[underline]#E#|M|T{Y|N}]

END

//DFHJUP   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP     EXEC PGM=DFHJUP
//SYSOUT   DD  SYSOUT=*
//SYSUT1   DD  DSN=SMLOG.CICSDATA,DISP=SHR
//SYSUT4   DD  DSN=SMF.CICSDUMP,DISP=NEW,DCB=LRECL=32760
//SYSIN    DD  *
OPTION COPY
END
/*
//

//DFHJUP   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP     EXEC PGM=DFHJUP
//SYSOUT   DD  SYSOUT=*
//SYSUT1   DD  DSN=SMLOG.CICSDATA,DISP=SHR
//SYSUT4   DD  DSN=SMF.CICSDUMP,DISP=NEW,DCB=LRECL=32760
//SYSPRINT DD  DSN=SMF.CICSPRT,DISP=NEW,DCB=LRECL=32760
//SYSIN    DD  *
OPTION NEGOF OFFSET=4,T=C,V=E
END
/*
//

//DFHJUP   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP     EXEC PGM=DFHJUP
//SYSOUT   DD  SYSOUT=*
//UTILIN   DD  DSN=SMLOG.CICSDATA,DISP=SHRv
//UTILOUT  DD  DSN=SMF.CICSDUMP,DISP=NEW,DCB=LRECL=32760
//SYSIN    DD  *
 CONTROL CNTL SKIP=4,STOPAFT=(8,E),DDNAME=UTILIN,DDNOUT=UTILOUT
 OPTION COPY OFFSET=7,T=C,V=E,C=M
 OPTION COPY  OFFSET=6,V=30,L=1
 OPTION COPY  OFFSET=6,FLDTYP=C,VALUE=0,FLDLEN=1,COND=M
 OPTION COPY  O=7,V=D,C=M,L=1,T=C
 END
/*
//

//DFHJUP   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP     EXEC PGM=DFHJUP
//SYSOUT   DD  SYSOUT=*
//SYSUT1   DD  DSN=SMLOG.CICSDATA,
//             SUBSYS=(LOGR,DFHLGCNV,,DELBRCUR)
//SYSIN    DD  *
OPTION PRINT
END
/*
//

INFILE(ddname), OUTFILE(ddname)

INDATASET(entryname), OUTDATASET(entryname)

//JOB01    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//REPRO    EXEC PGM=IDCAMS
//INDD     DD DSN=VSAM.KSDS1,DISP=(OLD,KEEP)
//OUTDD    DD DSN=VSAM.KSDS2,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
    REPRO  INFILE(INDD) -
           OUTFILE(OUTDD) -
           SKIP(50000) COUNT(10000)
/*
//

$ IDCAMS < DEFINE.TEST.CLUS1.CMD

DELETE  TEST.CLUS1 CLUSTER
DEFINE  CLUSTER                          -
        (NAME(TEST.CLUS1)                -
        VOLUMES(100000)                  -
        INDEXED                          -
        KEYS(07 0)                       -
        CYL (70 10)                      -
        RECORDSIZE(200 200)              -
        SHR(2 3))                        -
        DATA  (NAME(TEST.CLUS1.DATA)     -
        CONTROLINTERVALSIZE(4096)  )     -
        INDEX (NAME(TEST.CLUS1.INDEX)    -
        CONTROLINTERVALSIZE(4096)  )

ALTER entryname
      [EMPTY|NOEMPTY]
      [FILE(ddname)]
      [LIMIT(limit)]
      [NEWNAME(newname)]
      [NULLIFY([OWNER][RETENTION])]
      [OWNER(ownerid)]
      [ROLLIN]
      [SCRATCH|NOSCRATCH]
      [SHAREOPTIONS(crossregion[crosssystem])]
      [STORAGECLASS(class)]
      [STRNO(number)]
      [TO(date)|FOR(days)]
      [CATALOG(catname)]

//JOB02    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//ALTGDG   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
    ALTER  TEST.GDG1 -
            LIMIT(255) -
            TO(2006300) -
            CATALOG(TESTCAT)
/*
//

DEFINE Commands  {NAME(entryname)|NAMES(entryname)} {CYLINDERS(primary[secondary])|
                                 KILOBYTES(primary[secondary])|
                                 MEGABYTES(primary[secondary])|
                                 RECORDS(primary[secondary]])|
                                 TRACKS(primary[secondary])}
                                 VOLUMES(volser[volser...])
                                 [CONTROLINTERVALSIZE(size)]
                                 [DATACLASS(class)]
                                 [MANAGEMENTCLASS(class)]
                                 [OWNER(ownerid)]
                                 [RECATALOG|NORECATALOG]
                                 [RECORDSIZE(average maximum)]
                                 [STORAGECLASS(class)]
                                 [TO(date)|FOR(days)])
                                 [DATA (...)]
                                 [INDEX (...)]
                                 [CATALOG(catname)]

DEFINE ALIAS (NAME(aliasname)
       RELATE(entryname))
       [CATALOG(catname)]

//JOB04    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFALI   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
DEFINE ALIAS(NAME(TEST.ALIAS1) -
       RELATE(TEST.NVSAM1)) -
       CATALOG(TESTCAT)
/*
//

DEFINE AIX (NAME(entryname) | NAMES(entryname)
       RELATE(entryname) {CYLINDERS(primary[secondary])|
                         KILOBYTES(primary[secondary])|
                         MEGABYTES(primary[secondary])|
                         RECORDS(primary[secondary])|
                         TRACKS(primary[secondary])}
       VOLUMES(volser[ volser...])
       [CONTROLINTERVALSIZE(size)]
       [DATACLASS(class)]
       [FILE(ddname)]
       [KEYS(length offset|64 0)]
       [OWNER(ownerid)]
       [RECATALOG|NORECATALOG]
       [RECORDSIZE(average maximum| 4086 32600)]
       [TO(date)|FOR(days)]
       [UNIQUEKEY|NONUNIQUEKEY]
       [UPGRADE|NOUPGRADE])
       [DATA ({CYLINDERS(primary[secondary])|
              KILOBYTES(primary[secondary])|
              MEGABYTES(primary[secondary])|
              RECORDS(primary[secondary])|
              TRACKS(primary[secondary])}
              [VOLUMES(volser[volser...])]
       [CONTROLINTERVALSIZE(size)]
       [FILE(ddname)]
       [KEYS(length offset)]
       [NAME(entryname)]
       [OWNER(ownerid)]
       [RECORDSIZE(average maximum)]
       [UNIQUEKEY|NONUNIQUEKEY])]
       [INDEX ({CYLINDERS(primary[secondary])|
                KILOBYTES(primary[secondary])|
                MEGABYTES(primary[secondary])|
                RECORDS(primary[secondary])|
                TRACKS(primary[secondary])}
       [VOLUMES(volser[volser...])]
       [CONTROLINTERVALSIZE(size)]
       [FILE(ddname)]
       [NAME(entryname)]
       [OWNER(ownerid)])]
       [CATALOG(catname)]

//JOB05    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFAIX   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
DEFINE AIX    (NAME(VSAM.AIX1) -
                RELATE(VSAM.KSDS1) -
                UPGRADE -
                NUNQK -
                KEYS(7 44) -
                VOL(VOL100) -
                SHR(2 3))
/*
//

DEFINE CLUSTER (NAME(entryname) | NAMES(entryname)
               {CYLINDERS(primary[secondary])|
                KILOBYTES(primary[secondary])|
                MEGABYTES(primary[secondary])|
                RECORDS(primary[secondary])|
                TRACKS(primary[secondary])}
       VOLUMES(volser[ volser...])
       [CONTROLINTERVALSIZE(size)]
       [DATACLASS(class)]
       [FILE(ddname)]
       [INDEXED|LINEAR|NONINDEXED|NUMBERED]
       [KEYS(length offset| 64 0]
       [MANAGEMENTCLASS(class)]
       [OWNER(ownerid)]
       [RECATALOG|NORECATALOG]
       [RECORDSIZE(average maximum)]
       [SPANNED|NONSPANNED]
       [STORAGECLASS(class)]
       [TO(date)|FOR(days)])
       [DATA({CYLINDERS(primary[secondary])|
              KILOBYTES(primary[secondary])|
              MEGABYTES(primary[secondary])|
              RECORDS(primary[secondary])|
              TRACKS(primary[secondary])}
       [VOLUMES(volser[volser...])]
       [CONTROLINTERVALSIZE(size)]
       [FILE(ddname)]
       [KEYS(length offset)]
       [NAME(entryname)]
       [OWNER(ownerid)]
       [RECORDSIZE(average maximum)]
       [SPANNED|NONSPANNED])]
       [INDEX({CYLINDERS(primary[secondary])|
               KILOBYTES(primary[secondary])|
               MEGABYTES(primary[secondary])|
               RECORDS(primary[secondary])|
               TRACKS(primary[secondary])}
       [VOLUMES(volser[volser...])]
       [CONTROLINTERVALSIZE(size)]
       [FILE(ddname)]
       [NAME(entryname)]
       [OWNER(ownerid)])]
       [CATALOG(catname)]

//JOB06    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFCLUS  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
DEFINE  CLUSTER (NAME(VSAM.KSDS1) -
                   INDEXED -
                   KEYS(10  0) -
                   VOL(VOL100) -
                   SPEED -
                   ORDERED -
                   SHR(2 3)) -
        INDEX   (NAME (VSAM.KSDS1.I)) -
        DATA    (NAME(VSAM.KSDS1.D) -
                   CISZ(4096) -
                   RECSZ(350 350))
/*
//

DEFINE GENERATIONDATAGROUP (NAME(entryname)|NAMES(entryname)
                            LIMIT(limit)
                            [EMPTY|NOEMPTY]
                            [OWNER(ownerid)]
                            [SCRATCH|NOSCRATCH]
                            [TO(date)|FOR(days)])
                            [CATALOG(catname)]

//JOB07    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFGDG   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE GDG (NAME(TEST.GDG1) -
                LIMIT(100) -
                TO(2006365)) -
                CATALOG(TESTCAT)
/*
//

DEFINE NONVSAM ({NAME(entryname)|NAMES(entryname)}
                DEVICETYPES(devtype [devtype ...])
                VOLUMES(volser [volser ...])
                [OWNER(ownerid)]
                [RECATALOG|NORECATALOG]
                [TO(date)|FOR(days)])
                [CATALOG(catname)]

//JOB08    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFNVS   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE NONVSAM (NAME(TEST.NVSAM1) -
         VOLUMES(100000)) -
         CATALOG(TESTCAT)
/*
//

DEFINE PATH ({NAME(entryname) | NAMES(entryname)}
             [PATHENTRY(entryname)]
             [OWNER(ownerid)]
             [RECATALOG|NORECATALOG]
             [TO(date)|FOR(days)]
             [UPDATE|NOUPDATE])
             [CATALOG(catname)]

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFPATH EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN     DD *
  DEFINE PATH    (NAME(VSAM.PATH1) -
                  PATHENTRY(VSAM.AIX1) -
                  UPDATE)
/*
//

//JOB10    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFPATH  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE PATH    (NAME(VSAM.PATH2) -
                  PATHENTRY(VSAM.KSDS1) -
                  UPDATE)
/*
//

DEFINE USERCATALOG ({NAME(entryname)}
                   {CYLINDERS(primary[secondary])|
                    KILOBYTES(primary[secondary])|
                    MEGABYTES(primary[secondary])|
                    RECORDS(primary[secondary])|
                    TRACKS(primary[secondary])}
       VOLUME(volser)
       [CONTROLINTERVALSIZE(size)]
       [DATACLASS(class)]
       [FILE(ddname)]
       [MANAGEMENTCLASS(class)]
       [OWNER(ownerid)]
       [RECORDSIZE(average maximum|4086 32400)]
       [STORAGECLASS(class)]
       [TO(date)|FOR(days)])
       [DATA ({CYLINDERS(primary[secondary])|
               KILOBYTES(primary[secondary])|
               MEGABYTES(primary[secondary])|
               RECORDS(primary[secondary])|
               TRACKS(primary[secondary])}
       [CONTROLINTERVALSIZE(size)]
       [RECORDIZE(average maximum|4086 32400)])]
       [INDEX ({CYLINDERS(primary[secondary])|
                KILOBYTES(primary[secondary])|
                MEGABYTES(primary[secondary])|
                RECORDS(primary[secondary])|
                TRACKS(primary[secondary])}
       [CONTROLINTERVALSIZE(size)])]
       [CATALOG(mastercatname)]

DELETE (entryname [entryname ...])
       [ALIAS|
        ALTERNATEINDEX|
        CLUSTER|
        GENERATIONDATAGROUP|
        NONVSAM|
        PATH|
        TRUENAME|
        USERCATALOG]
       [FILE(ddname)]
       [FORCE|NOFORCE]
       [PURGE|OPURGE]
       [CATALOG(catname)]

//JOB11    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DELCLUS  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE (VSAM.KSDS1 VSAM.KSDS2) -
          CLUSTER -
          ERASE -
          PURGE
/*
//

EXPORT entryname {OUTFILE(ddname)|OUTDATASET(entryname)}
                 [INFILE(ddname)]
                 [TEMPORARY|PERMANENT]

//JOB12    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//BACKCAT  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//BACK     DD DSN=TESTCAT.BACKUP,DISP=OLD
//SYSIN    DD *
  EXPORT TESTCAT -
         OUTFILE(BACK)
/*
//

IMPORT {INFILE(ddname)|INDATASET(entryname)}
       {OUTFILE(ddname)|OUTDATASET(entryname)}
       [INTOEMPTY]
       [OBJECTS((entryname
                 [MANAGEMENTCLASS(class)]
                 [NEWNAME(newname)]
                 [STORAGECLASS(class)]
                 [VOLUMES(volser[ volser...])])
                 [(entryname...)...])]
       [CATALOG(catname)]

//JOB13    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//IMPCAT   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//BACK     DD DSN=TESTCAT.BACKUP,DISP=OLD
//SYSIN    DD *
    IMPORT INFILE(BACK) -
           OUTDATASET(TESTCAT)
/*
//

LISTCAT [ALIAS]
        [ALTERNATEINDEX]
        [CLUSTER]
        [DATA]
        [GENERATIONDATAGROUP]
        [INDEX]
        [NONVSAM]
        [PATH]
        [USERCATALOG]
        [ENTRIES(entryname[ entryname...])|LEVEL(level)]
        [NAME|HISTORY|VOLUME|ALLOCATION|ALL]
        [CATALOG(catname)]

//JOB14    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//LISTC    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  LISTCAT ENTRIES(VSAM.KSDS1) ALL
/*
//

CLUSTER ------------- VSAM.KSDS1
   HISTORY
     CREATION -------------- (NULL)   DATASET-OWNER ----------- (EMPTY)
     RELEASE ------------------- 1   VSAM QUIESCED --------------- (NO)
   PROTECTION-PSWD---------- (NULL)
   ASSOCIATIONS
     DATA ------------ VSAM.KSDS1.D
     INDEX ----------- VSAM.KSDS1.I
DATA ---------------- VSAM.KSDS1.D
   HISTORY
     CREATION --------------- (NULL)   DATASET-OWNER ---------- (EMPTY)
     RELEASE -------------------- 1
   PROTECTION-PSWD ---------- (NULL)
   ASSOCIATION
     CLUSTER ----------- VSAM.KSDS1
   ATTRIBUTES
     AVGLRECL ----------------- 350   MAXLRECL ------------------- 350
     KEYLEN -------------------- 10   RKP -------------------------- 0
     CISIZE ------------------ 4096   INDEXED
     REUSE                            NON-SPANNED
   STATISTICS
     REC-DELETED ---------------- 0   REC-INSERTED ------------- 10445
     REC-RETRIEVED -------------- 0   REC-TOTAL ---------------- 10445
     REC-UPDATED ---------------- 0   TIMESTAMP ---------------- (NULL)
   ALLOCATION
     HI-A-RBA ------------------- 0   HI-U-RBA --------------------- 0
   VOLUMES
     VOLSER ----------------- (TSAM)
INDEX --------------- VSAM.KSDS1.I
   HISTORY
     CREATION --------------- (NULL)   DATASET-OWNER ---------- (EMPTY)
     RELEASE -------------------- 1
   PROTECTION-PSWD ---------- (NULL)
   ASSOCIATION
     CLUSTER ----------- VSAM.KSDS1
   ATTRIBUTES
     AVGLRECL ----------------- 350   MAXLRECL ------------------- 350
     KEYLEN -------------------- 10   RKP -------------------------- 0
     CISIZE ------------------ 4096   REUSE
   STATISTICS
     INDEX:
       ENTRIES/SECT ------------ 254     HI-LEVEL-RBA ----------- 12288
       LEVELS -------------------- 2     SEQ-SET-RBA ------------- 4096
     REC-DELETED ----------------- 0   REC-INSERTED ------------ 10445
     REC-RETRIEVED --------------- 0   REC-TOTAL --------------- 10445
     REC-UPDATED ----------------- 0   TIMESTAMP --------------- (NULL)
   ALLOCATION
     HI-A-RBA -------------------- 0   HI-U-RBA ------------------- 0
   VOLUMES
     VOLSER ---------------------- (TSAM)

PRINT {INFILE(ddname)|INDATASET(entryname)}
      [CHARACTER|DUMP|HEX]
      [FROMKEY(key)|FROMADDRESS(address)|FROMNUMBER(number)|SKIP(number)]
      [OUTFILE(ddname)]
      [TOKEY(key)|TOADDRESS(address)|TONUMBER(number)|COUNT(number)]

//JOB15    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//PRINT    EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
    PRINT INDATASET(TEST.KSDS1) DUMP -
          FROMKEY(0000000099) COUNT(10)
/*
//

KEY OF RECORD = 30303030303030303939
0000: 3030 3030 3030 3030 3939 7265 636F 7264 *0000000099record*
0010: 3030 3030 3030 3030 3939                *0000000099      *
KEY OF RECORD = 30303030303030313030
0000: 3030 3030 3030 3031 3030 7265 636F 7264 *0000000100record*
0010: 3030 3030 3030 3031 3030                *0000000100      *
KEY OF RECORD = 30303030303030313031
0000: 3030 3030 3030 3031 3031 7265 636F 7264 *0000000101record*
0010: 3030 3030 3030 3031 3031                *0000000101      *
KEY OF RECORD = 30303030303030313032
0000: 3030 3030 3030 3031 3032 7265 636F 7264 *0000000102record*
0010: 3030 3030 3030 3031 3032                *0000000102      *
KEY OF RECORD = 30303030303030313033
0000: 3030 3030 3030 3031 3033 7265 636F 7264 *0000000103record*
0010: 3030 3030 3030 3031 3033                *0000000103      *
KEY OF RECORD = 30303030303030313034
0000: 3030 3030 3030 3031 3034 7265 636F 7264 *0000000104record*
0010: 3030 3030 3030 3031 3034                *0000000104      *
KEY OF RECORD = 30303030303030313035
0000: 3030 3030 3030 3031 3035 7265 636F 7264 *0000000105record*
0010: 3030 3030 3030 3031 3035                *0000000105      *
KEY OF RECORD = 30303030303030313036
0000: 3030 3030 3030 3031 3036 7265 636F 7264 *0000000106record*
0010: 3030 3030 3030 3031 3036                *0000000106      *
KEY OF RECORD = 30303030303030313037
0000: 3030 3030 3030 3031 3037 7265 636F 7264 *0000000107record*
0010: 3030 3030 3030 3031 3037                *0000000107      *
KEY OF RECORD = 30303030303030313038
0000: 3030 3030 3030 3031 3038 7265 636F 7264 *0000000108record*
0010: 3030 3030 3030 3031 3038                *0000000108      *
PRINT 10 record(s)
IDCAMS: PRINT OK

REPRO {INFILE(ddname)|INDATASET(entryname)}
      {OUTFILE(ddname)|OUTDATASET(entryname)}
      [ENTRIES(entryname [entryname...])|LEVEL(level)]
      [FROMKEY(key)|FROMADDRESS(address)|FROMNUMBER(number)|SKIP(number)]
      [MERGECAT|NOMERGECAT]
      [REPLACE|NOREPLACE]
      [REUSE|NOREUSE]
      [TOKEY(key)|TOADDRESS(address)|TONUMBER(number)|COUNT(number)]

//JOB16    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//REPRO    EXEC PGM=IDCAMS
//INDD     DD DSN=VSAM.KSDS1,DISP=(OLD,KEEP)
//OUTDD    DD DSN=VSAM.KSDS2,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
REPRO  INFILE(INDD) -
OUTFILE(OUTDD) -
SKIP(50000) COUNT(10000)
/*
//

VERIFY FILE(ddname)|DATASET(entryname)

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//VSTEP  EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//TESTDD   DD DSN=TEST.CLUS1,DISP=OLD
//SYSIN    DD *
    VERIFY FILE(TESTDD)
/*
//

IF {Condition Code} {operator} {number}
THEN[ command| DO command set END]
[ELSE[ command| DO command set END]]

SET LASTCC=8
IF LASTCC=8 THEN SET MAXCC=0

SET LASTCC=0
IF LASTCC > 4 -
THEN -
    LISTCAT ENT(TEST.SDS1)
ELSE -
    LISTCAT ENT(TEST.SDS2)

SET LASTCC=0
IF LASTCC > 4 -
THEN
ELSE LISTCAT ENT(TEST.SDS2)

//JOB18    JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//DEL      EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE TEST.SDS1
  IF LASTCC=8 THEN SET MAXCC=0
/*
//DEF      EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DEFINE NONVSAM (NAME(TEST.SDS1) VOLUMES(100000))
/*
//

LISTCAT ENTRIES(MUST.EXIST.SDS)
IF LASTCC=4 THEN CANCEL
...

BLDINDEX {INFILE(ddname)|INDATASET(entryname)}
       {OUTFILE(ddname)|OUTDATASET(entryname)}
       [CATALOG(catname)]

//JOB03    JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//BLDAIX   EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//BASE     DD DSN=VSAM.KSDS1,DISP=OLD
//AIX      DD DSN=VSAM.AIX1,DISP=OLD
//SYSIN    DD *
  BLDINDEX INFILE(BASE) -
           OUTFILE(AIX)
/*
//

DELETE NOT.EXIST.SDS
IF LASTCC = 8 THEN SET MAXCC=0
DEFINE ...

[label]    COMPARE  [FIELD=(length[,starting-location]) |
                     MASK=(length, starting-location)]
                    [,LIMIT=n]
                    [,MAXNAME=n]
                    [,STRTAFT=n]
                    [,STOPAFT=n]
                    [,TYPORG={PS|PO}]
                    [,DFOFFSET]
                    [,DFOFFSET_ALL]
                    [,MAXIGNORE]
                    [,NOLIMIT]

[label]    MEMBER   NAME={member-name | (sysut1-member-name,sysut2-member-name)}[,...]

//TEST     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOMPR
//SYSUT1   DD DSNAME=IEBCOMPR.TEST.INPUT01,DISP=(SHR)
//SYSUT2   DD DSNAME=IEBCOMPR.TEST.INPUT02,DISP=(SHR)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
    COMPARE FIELD=11,FIELD(5,15),TYPORG=PS
/*

//TEST     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOMPR
//SYSUT1   DD DSNAME=IEBCOMPR.TEST.INPUT01,DISP=(SHR)
//SYSUT2   DD DSNAME=IEBCOMPR.TEST.INPUT02,DISP=(SHR)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
    COMPARE MASK=(7,15),TYPORG=PS
/*

//TEST     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOMPR
//SYSUT1   DD DSNAME=IEBCOMPR.TEST.INPUT01,DISP=(SHR)
//SYSUT2   DD DSNAME=IEBCOMPR.TEST.INPUT02,DISP=(SHR)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
    COMPARE LIMIT=3,STRTAFT=2,STOPAFT=7,TYPORG=PS
/*

//TEST     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOMPR
//SYSUT1   DD DSNAME=IEBCOMPR.TEST.INPUT01,DISP=(SHR)
//SYSUT2   DD DSNAME=IEBCOMPR.TEST.INPUT02,DISP=(SHR)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
    COMPARE MAXNAME=3,TYPORG=PO
    MEMBER NAME=A,B,C
/*

//TEST     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOMPR
//SYSUT1   DD DSNAME=IEBCOMPR.TEST.INPUT01,DISP=(SHR)
//SYSUT2   DD DSNAME=IEBCOMPR.TEST.INPUT02,DISP=(SHR)
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
    COMPARE MAXNAME=4,TYPORG=PO
    MEMBER NAME=A,(B,C),D
/*

//[stepname] EXEC PGM=IEBCOPY[,PARM=<parms>]

[label]    COPY    OUTDD=ddname,
                   INDD=[(]{ddname|(ddname,R)}[,...][)]
                   [,LIST={YES|NO}]

[label]    EXCLUDE    MEMBER=[(] name1[,name2][,...][)]

[label]    SELECT    MEMBER=({name1|(name1,newname1[,R])|(name1,,R)}
                     [,{name2|(name2,newname2[,R])|(name2,,R)}][,...])

//COPYALL  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=A
//SYSUT1   DD DSNAME=DATASET1,DISP=(SHR,KEEP)
//SYSUT2   DD DSNAME=DATASET2,UNIT=disk,VOL=SER=200000,
//            DISP=(NEW,CATLG)
//SYSIN    DD DUMMY

//MERGE    JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=A
//IN01   DD DSNAME=DATASET1,DISP=(SHR,KEEP)
//IN02   DD DSNAME=DATASET3,DISP=(SHR,KEEP)
//OUT01  DD DSNAME=DATASET5,DISP=(SHR,KEEP)
//IN03   DD DSNAME=DATASET4,DISP=(SHR,KEEP)
//SYSIN    DD *
COPYOPER    COPY OUTDD=OUT01,INDD=IN01,INDD=IN03,INDD=IN02
/*

//SELECT   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOPY
//IN01     DD DSNAME=DATASET4,DISP=(SHR,KEEP)
//IN02     DD DSNAME=DATASET3,DISP=(SHR,KEEP)
//OUT01    DD DSNAME=DATASET6,DISP=(OLD,KEEP)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
COPYOPER COPY OUTDD=OUT01
              INDD=IN01
         EXCLUDE MEMBER=X
              INDD=IN02
         SELECT MEMBER=((F,Z),(C,A,R),(Y,,R))
/*

//INDD01   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOPY
//IN01     DD DSNAME=DATASET11,DISP=(SHR,KEEP)
//IN02     DD DSNAME=DATASET12,DISP=(SHR,KEEP)
//IN03     DD DSNAME=DATASET13,DISP=(SHR,KEEP)
//OUT01    DD DSNAME=DATASET14,DISP=(OLD,KEEP)
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
COPYOPER COPY OUTDD=OUT01
                 INDD=IN01
         EXCLUDE MEMBER=B
                 INDD=IN02
         SELECT MEMBER=((B,,R),(Y,N))
                 INDD=IN03
/*

//INDD01   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//JOBSTEP  EXEC PGM=IEBCOPY
//IN01     DD DSNAME=DATASET11,DISP=(SHR,KEEP)
//IN02     DD DSNAME=DATASET12,DISP=(SHR,KEEP)
//IN03     DD DSNAME=DATASET13,DISP=(SHR,KEEP)
//OUT01    DD DSNAME=DATASET14,DISP=(OLD,KEEP)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPYOPER COPY OUTDD=OUT01,INDD=(INO1,(IN02,R),IN03)
/*

[label]    DSD     OUTPUT=(ddname)
                   [,INPUT=(ddname1[,ddname2][,...])]

[label]    FD      NAME=name
                   ,LENGTH=length
                   [,STARTLOC=starting-location]
                   [,FILL={'character'|X'nn'}]
                   [,{FORMAT=pattern[,CHARACTER=character]
                     |PICTURE=length,{'character-string'|P'n'|B'n'}}]
                   [,SIGN=sign]
                   [,ACTION={FX|RO|RP|SL|SR|TL|TR|WV}
                   [,INDEX=n[,CYCLE=n][,RANGE=n]]

[label]    REPEAT  QUANTITY=number[,CREATE=number]

[label]    CREATE  [QUANTITY=n]
                   [,FILL={'character'|X'nn'}]
                   [,INPUT={ddname|SYSIN[({cccc|$$$E})]}]
                   [,PICTURE=length,startloc,{'character-string'| P'n'|B'n'}]
                   [,NAME={(namelist)| (namelist-or-(copygroup))}
                   [,EXIT=routinename]

[label]    END

//GENDAT0  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP1   EXEC PGM=IEBDG
//OUTPUT   DD  DSN=IEBDG.DATASET.OUT01,DISP=(NEW,CATLG,DELETE),
//             DCB=(RECFM=VB,LRECL=32760)
//SYSIN    DD  DATA
    DSD OUTPUT=(OUTPUT)
    FD NAME=REC01NAME,LENGTH=12,PICTURE=12,'RECORD01    '
    FD NAME=REC01FD01,LENGTH=7,PICTURE=7,'A000001',INDEX=1
    FD NAME=REC01FD02,LENGTH=4993,FORMAT=AL,ACTION=TL
    FD NAME=REC02NAME,LENGTH=12,PICTURE=12,'RECORD02    '
    FD NAME=REC02FD01,LENGTH=7,PICTURE=7,'A000001',INDEX=1,CYCLE=2
    FD NAME=REC02FD02,LENGTH=8,PICTURE=8,'AM000001',INDEX=1
    FD NAME=REC02FD03,LENGTH=4985,FORMAT=AL
    REPEAT QUANTITY=131072,CREATE=2
    CREATE QUANTITY=1,NAME=(REC01NAME,REC01FD01,REC01FD02)
    CREATE QUANTITY=2,NAME=(REC02NAME,REC02FD01,REC02FD02,REC02FD03)
    END
/*
//SYSPRINT DD  SYSOUT=*

RECORD01    A000001ABCDEFGHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000001AM000001ABCDEFGHIJKLMNOPQR...
RECORD02    A000001AM000002ABCDEFGHIJKLMNOPQR...
RECORD01    A000002 BCDEFGHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000002AM000003ABCDEFGHIJKLMNOPQR...
RECORD02    A000002AM000004ABCDEFGHIJKLMNOPQR...
RECORD01    A000003  CDEFGHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000003AM000005ABCDEFGHIJKLMNOPQR...
RECORD02    A000003AM000006ABCDEFGHIJKLMNOPQR...
RECORD01    A000004   DEFGHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000004AM000007ABCDEFGHIJKLMNOPQR...
RECORD02    A000004AM000008ABCDEFGHIJKLMNOPQR...
RECORD01    A000005    EFGHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000005AM000009ABCDEFGHIJKLMNOPQR...
RECORD02    A000005AM000010ABCDEFGHIJKLMNOPQR...
RECORD01    A000006     FGHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000006AM000011ABCDEFGHIJKLMNOPQR...
RECORD02    A000006AM000012ABCDEFGHIJKLMNOPQR...
RECORD01    A000007      GHIJKLMNOPQRSTUVWXYZ...
RECORD02    A000007AM000013ABCDEFGHIJKLMNOPQR...
RECORD02    A000007AM000013ABCDEFGHIJKLMNOPQR...
...
RECORD01    A131071                          ...
RECORD02    A131071AM262141ABCDEFGHIJKLMNOPQR...
RECORD02    A131071AM262142ABCDEFGHIJKLMNOPQR...
RECORD01    A131072                          ...
RECORD02    A131072AM262143ABCDEFGHIJKLMNOPQR...
RECORD02    A131072AM262144ABCDEFGHIJKLMNOPQR...

//IEBDGJ14 JOB
//JSTEP010 EXEC PGM=IEBDG
//SYSPRINT DD   SYSOUT=*
//OUTPUT01 DD   DSN=OF71.IEBDG01.DATA01,DISP=(NEW,CATLG,CATLG),
//         DCB=(RECFM=FB,DSORG=PS,LRECL=40),
//         VOL=SER=DEFVOL
//SYSIN    DD   *
 DSD OUTPUT=(OUTPUT01)
 FD  NAME=RFDN001,LENGTH=10,PICTURE=5,'A0001',ACTION=RO
 FD  NAME=RFDN002,LENGTH=10,PICTURE=5,'A0001',ACTION=WV
 REPEAT QUANTITY=1
 CREATE QUANTITY=20,NAME=(RFDN001,RFDN002)
 END
/*

     A0001     A0001....................
    A0001     A0001 ....................
   A0001     A0001  ....................
  A0001     A0001   ....................
 A0001     A0001    ....................
A0001     A0001     ....................
 A0001         A0001....................
  A0001       A0001 ....................
   A0001     A0001  ....................
    A0001   A0001   ....................
     A0001 A0001    ....................
    A0001 A0001     ....................
   A0001       A0001....................
  A0001       A0001 ....................
 A0001       A0001  ....................
A0001       A0001   ....................
 A0001     A0001    ....................
  A0001   A0001     ....................
   A0001       A0001....................
    A0001     A0001 ....................

//IEBDGJ03 JOB
//JSTEP010 EXEC PGM=IEBDG
//SYSPRINT DD   SYSOUT=*
//OUTPUT01 DD   DSN=OF71.IEBDG01.DATA01,DISP=(NEW,CATLG,CATLG),
//         DCB=(RECFM=FB,DSORG=PS,LRECL=40),
//         VOL=SER=DEFVOL
//SYSIN    DD   *
 DSD OUTPUT=(OUTPUT01)
 FD  NAME=RFDN001,LENGTH=10,FORMAT=AL,ACTION=TL
 FD  NAME=RFDN002,LENGTH=10,FORMAT=AL,ACTION=TR
 FD  NAME=RFDN003,LENGTH=10,FORMAT=AL,ACTION=SL
 FD  NAME=RFDN004,LENGTH=10,FORMAT=AL,ACTION=SR
 REPEAT QUANTITY=1,CREATE=4
 CREATE QUANTITY=10,NAME=((COPY=4,RFDN001))
 CREATE QUANTITY=10,NAME=((COPY=4,RFDN002))
 CREATE QUANTITY=10,NAME=((COPY=4,RFDN003))
 CREATE QUANTITY=10,NAME=((COPY=4,RFDN004))
 END
/*

ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ
 BCDEFGHIJ BCDEFGHIJ BCDEFGHIJ BCDEFGHIJ
  CDEFGHIJ  CDEFGHIJ  CDEFGHIJ  CDEFGHIJ
   DEFGHIJ   DEFGHIJ   DEFGHIJ   DEFGHIJ
    EFGHIJ    EFGHIJ    EFGHIJ    EFGHIJ
     FGHIJ     FGHIJ     FGHIJ     FGHIJ
      GHIJ      GHIJ      GHIJ      GHIJ
       HIJ       HIJ       HIJ       HIJ
        IJ        IJ        IJ        IJ
         J         J         J         J
ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ
ABCDEFGHI ABCDEFGHI ABCDEFGHI ABCDEFGHI
ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH
ABCDEFG   ABCDEFG   ABCDEFG   ABCDEFG
ABCDEF    ABCDEF    ABCDEF    ABCDEF
ABCDE     ABCDE     ABCDE     ABCDE
ABCD      ABCD      ABCD      ABCD
ABC       ABC       ABC       ABC
AB        AB        AB        AB
A         A         A         A
ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ
BCDEFGHIJ BCDEFGHIJ BCDEFGHIJ BCDEFGHIJ
CDEFGHIJ  CDEFGHIJ  CDEFGHIJ  CDEFGHIJ
DEFGHIJ   DEFGHIJ   DEFGHIJ   DEFGHIJ
EFGHIJ    EFGHIJ    EFGHIJ    EFGHIJ
FGHIJ     FGHIJ     FGHIJ     FGHIJ
GHIJ      GHIJ      GHIJ      GHIJ
HIJ       HIJ       HIJ       HIJ
IJ        IJ        IJ        IJ
J         J         J         J
ABCDEFGHIJABCDEFGHIJABCDEFGHIJABCDEFGHIJ
 ABCDEFGHI ABCDEFGHI ABCDEFGHI ABCDEFGHI
  ABCDEFGH  ABCDEFGH  ABCDEFGH  ABCDEFGH
   ABCDEFG   ABCDEFG   ABCDEFG   ABCDEFG
    ABCDEF    ABCDEF    ABCDEF    ABCDEF
     ABCDE     ABCDE     ABCDE     ABCDE
      ABCD      ABCD      ABCD      ABCD
       ABC       ABC       ABC       ABC
        AB        AB        AB        AB
         A         A         A         A

[label]    EDIT    [START=jobname]
                   [,TYPE={POSITION|INCLUDE|EXCLUDE}]
                   [,STEPNAME=(namelist)]
                   [,NOPRINT]

//JOB1     JOB CLASS=A
//STEP1    EXEC PGM=IEBEDIT
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
    EDIT    START=,TYPE=POSITION,STEPNAME=T12
    EDIT    START=JOB2,TYPE=INCLUDE,STEPNAME=(T22,T23)
/*
//SYSUT1   DD DATA
//JOB1     JOB CLASS=A
//T11       EXEC PGM=IEFBR14
/TEMP1    DD TEMP1
//T12       EXEC PGM=IEFBR14
//TEMP2    DD TEMP2
//T13     EXEC PGM=IEFBR14
//JOB2     JOB CLASS=B
//T21       EXEC PGM=IEBEDIT
//TEMP3    DD TEMP3
//T22       EXEC PGM=IEBEDIT
//TEMP4    DD TEMP4
//TEMP41   DD TEMP41
//T23       EXEC PGM=IEBEDIT
//TEMP5    DD TEMP5
//T24       EXEC PGM=IEBEDIT
//TEMP6    DD TEMP6
/*
//SYSUT2   DD DSNAME=OFTEST.IEBEDIT.OUT2,
//         DISP=(NEW,CATLG),DCB=(RECFM=F,LRECL=80,BLKSIZE=80)

(EDIT START=,TYPE=POSITON,STEPNAME=T12で作成)
//JOB1     JOB CLASS=A
//T12     EXEC PGM=IEFBR14
//TEMP2    DD TEMP2
//T13     EXEC PGM=IEFBR14
//JOB2     JOB CLASS=B

(EDIT START=JOB2,TYPE=INCLUDE,STEPNAME=(T22,T23)で作成)
//JOB2     JOB CLASS=B
//T22     EXEC PGM=IEBEDIT
//TEMP4    DD TEMP4
//TEMP41   DD TEMP41
//T23     EXEC PGM=IEBEDIT
//TEMP5    DD TEMP5

[label]    GENERATE    [,MAXNAME=n]
                       [,MAXFLDS=n]
                       [,MAXGPS=n]
                       [,MAXLITS=n]

[label]    MEMBER    NAME=(name[,alias1][,alias2][,...])

[label]    RECORD    [IDENT=(length,'name',input-location)]
                     [,FIELD=([length],
                     [{input-location|'literal'}],
                     [conversion],
                     [output-location])]
                     [,FIELD=...]

//COPY     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//COPYSDS  EXEC PGM=IEBGENER
//SYSUT1   DD DSNAME=TEST.INPUT,DISP=(SHR,KEEP)
//SYSUT2   DD DSNAME=TEST.COPY,DISP=(NEW,CATLG),
//              DCB=(RECFM=FB,LRECL=120 ,BLKSIZE=120)
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY

//CREATE   JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//NEWPDS   EXEC PGM=IEBGENER
//SYSUT1   DD DSNAME=TEST.INPUT,DISP=(SHR,KEEP)
//SYSUT2   DD DSNAME=TEST.PDS01,DISP=(NEW,CATLG),
//          DCB=(DSORG=PO,RECFM=FB,LRECL=120,BLKSIZE=120)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    GENERATE MAXNAME=3,MAXGPS=2
    MEMBER NAME=MEMBER1
  GROUP1 RECORD IDENT=(8,'firstxxx',30)
    MEMBER NAME=MEMBER2
  GROUP2 RECORD IDENT=(8,'secondxx',30)
    MEMBER NAME=MEMBER3
/*

//MERGE JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//MERGEPDS   EXEC PGM=IEBGENER
//SYSUT1     DD DSNAME=TEST.INPUT2,DISP=(SHR,KEEP)
//SYSUT2     DD DSNAME=IEBGENER.TEST.PDS01,DISP=(OLD,KEEP)
//SYSPRINT  DD SYSOUT=*
//SYSIN DD *
    GENERATE MAXNAME=2,MAXGPS=1
    MEMBER NAME=MEMX
  GROUP1 RECORD IDENT=(11,'endofrecord',15)
    MEMBER NAME=MEMY
/*

//EDIT JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//EDIT      EXEC PGM=IEBGENER
//SYSUT1    DD DSNAME=TEST.INPUT3,DISP=(SHR,KEEP)
//SYSUT2    DD DSNAME=IEBGENER.TEST.EDIT01,DISP=(NEW,CATLG),
//           DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    GENERATE MAXGPS=1,MAXFLDS=4,MAXLITS=10
    RECORD IDENT=(8,'firstmem',1),FIELD=(50,76,,31),
             FIELD=(30,20,,1)
    RECORD FIELD=(70,41,,11),FIELD=(10,'**********',,1)
/*

[label]    PRINT    [PREFORM=A]
                    [,TYPORG={PS|PO}]
                    [,CNTRL={n|1}]
                    [,STRTAFT=n]
                    [,STOPAFT=n]
                    [,SKIP=n]
                    [,MAXNAME=n]
                    [,MAXFLDS=n]
                    [,MAXGPS=n]
                    [,MAXLITS=n]
                    [,MAXLINE=n]

[label]    TITLE    ITEM=('title'[,output-location])
                    [,ITEM=...]

[label]    MEMBER    NAME=membername

[label]  RECORD  [IDENT=(length,'name',input-location)]
                 [,FIELD=(length,[input-location],[conversion]
                 [output-location])]
                 [,FIELD=…]

//TEST     JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//NEWPDS   EXEC PGM=IEBPTPCH
//SYSUT1   DD DSNAME=IEBCOPY.TEST.INPUT01,DISP=(SHR,CATLG)
//SYSUT2   DD SYSOUT=A
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
    PRINT TYPORG=PO,CNTRL=1,MAXLINE=30,MAXNAME=1,MAXLITS=10,MAXGPS=3
    MEMBER NAME=MEMBER2
    RECORD IDENT=(8,'ENDRECORD',21)
/*

./[label]  FUNC    [NAME=member-name]
                   [,LIST=ALL]
                   [,SEQFLD=nnn]
                   [,COLUMN=n]
                   [,UPDATE=INPLACE]
                   [,NEW={PO|PS}]
                   [,MEMBER=member-name]
                   [,LEVEL=n]
                   [,SOURCE=x]
                   [,SSI=hhhhhhhh]
                   [,INHDR=routine-name]
                   [,INTLR=routine-name]
                   [,OUTHDR=routine-name]
                   [,OUTTLR=routine-name]
                   [,TOTAL=(routine-name, size)]

./[label]  NUMBER  [NEW1=n]
                   [,INCR=n]
                   [,SEQ1={n|ALL}]
                   [,SEQ2=n]
                   [,INSERT=YES]
./[label]  DELETE  SEQ1=n
                   [,SEQ2=n]

./[label]  ENDUP

//IEBUPDT1 JOB
//STEP1    EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD  SYSOUT=A
//SYSUT2   DD  DSNAME=NEWPDS,DISP=(NEW,CATLG),
//             VOLUME=SER=DEFVOL,SPACE=(TRK,(50,,10)),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=80)
//SYSIN    DD  DATA
./        ADD   NAME=MEMB1
    MEMB1   DATA1                                                       00000010
    MEMB1   DATA2                                                       00000020
    MEMB1   DATA3                                                       00000030
./        ADD   NAME=MEMB2
    MEMB2   DATA1                                                       00000010
    MEMB2   DATA2                                                       00000020
    MEMB2   DATA3                                                       00000030
./        ADD   NAME=MEMB3
    MEMB3   DATA1                                                       00000010
    MEMB3   DATA2                                                       00000020
    MEMB3   DATA3                                                       00000030
./      ENDUP
/*

//IEBUPDT2 JOB
//STEP1    EXEC PGM=IEBUPDTE
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSNAME=OLDPDS,DISP=SHR
//SYSUT2   DD  DSNAME=NEWPDS,DISP=(NEW,CATLG),
//             VOL=SER=DEFVOL,SPACE=(TRK,(100,,10)),
//             DCB=(RECFM=F,LRECL=80,BLKSIZE=4000)
//SYSIN    DD  DATA
./      REPRO    NAME=MEMB1
./      REPRO    NAME=MEMB2
./        ADD    NAME=MEMB3
./     NUMBER    NEW1=100,INCR=100
    MEMB3   DATA1
    MEMB3   DATA2
    MEMB3   DATA3
./      ENDUP
/*

//IEBUPDT3 JOB
//STEP1    EXEC PGM=IEBUPDTE
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DSNAME=OLDPDS,DISP=(OLD,KEEP),VOL=SER=DEFVOL
//SYSIN    DD   *
./     CHANGE   NAME=MEMB1,UPDATE=INPLACE
./     NUMBER   SEQ1=ALL,NEW1=100,INCR=50
    CHANGE  DATA1                                                       00000200
    CHANGE  DATA2                                                       00000600
./      ENDUP
/*

//IEBUPDT4 JOB
//STEP1    EXEC PGM=IEBUPDTE
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DSNAME=PDS,DISP=(OLD,KEEP),VOL=SER=DEFVOL
//SYSUT2   DD  DSNAME=SDS,DISP=(NEW,KEEP),VOL=SER=DEFVOL,
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)
//SYSIN    DD  *
./     CHANGE   NEW=PS,NAME=MEMB1
    CHANGE  DATA1                                                       00000200
./     DELETE   SEQ1=250,SEQ2=300
    DELETE  DATA2                                                       00000275
./      ENDUP
/*

//IEBUPDT5 JOB
//STEP1    EXEC PGM=IEBUPDTE
//SYSPRINT DD  SYSOUT=A
//SYSUT1   DD  DSNAME=PDS,DISP=(OLD,KEEP),VOL=SER=DEFVOL
//SYSUT2   DD  DSNAME=PDS,DISP=(OLD,KEEP),VOL=SER=DEFVOL
//SYSIN    DD  *
./     CHANGE   NAME=MEMB1
./     NUMBER   SEQ1=150,NEW1=200,INCR=50,INSERT=YES
    INSERT  DATA1
    INSERT  DATA2
    INSERT  DATA3
/*

[label]    LISTPDS    DSNAME=(name[,name[,...]])
                      [,VOL=anyname=serial]

[label]    LISTVTOC    [,VOL=anyname=serial]
                       [,DSNAME=(name[,name[,...]])

//LISTPDS  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),
//          USER=ROOT,PASSWORD=SYS1
//STEP01   EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=*
//SYSIN     DD  *
    LISTPDS DSNAME=(DATASET1,DATASET2), VOL=disk=100000
/*

//LISTVOL JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP01 EXEC PGM=IEHLIST
//SYSPRINT DD SYSOUT=*
//SYSIN    DD  *
    LISTVTOC VOL=disk=100000
/*

[label]    SCRATCH    {VTOC|DSNAME=name},VOL=anyname=serial
                      [,MEMBER=name][,SYS]

[label]    CATLG    DSNAME=name,VOL=anyname=serial

[label]    UNCATLG    DSNAME=name

//CATALOG  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP1    EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//VOLDD    DD  VOL=SER=100000,DISP=OLD
//SYSIN    DD  *
    SCRATCH  VTOC,VOL=SER=100000,SYS
/*

//CATALOG  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP1    EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//SYSIN     DD  *
    CATLG DSNAME=IEHPROGM.TEST01,VOL=SER=100000
/*

//CATALOG  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP1    EXEC PGM=IEHPROGM
//SYSPRINT DD  SYSOUT=*
//SYSIN     DD  *
    SCRATCH  DSNAME=IEHPROGM.TEST01,VOL=SER=100000
    UNCATLG  DSNAME=IEHPROGM.TEST01
/*

INDD(ddname,OPTIONS(data))

OUTDD(ddname,{TYPE(list),NOTYPE(list)})

DATE({yyddd|yyyyddd},{yyddd|yyyyddd})

START(hhmm)

END(hhmm)

SID(XXXX)

//SMFDUMP  JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)
//STEP     EXEC PGM=IFASMFDP
//SYSOUT   DD  SYSOUT=*
//INDD1    DD  DSN=SMLOG.DATA1,DISP=SHR
//INDD2    DD  DNS=SMLOG.DATA2.DISP=SHR
//OUTDD1   DD  DSN=SMF.DUMP1,DISP=SHR,DCB=LRECL=32760
//OUTDD2   DD  DSN=SMF.DUMP2,DISP=SHR,DCB=LRECL=32760
//OUTDD3   DD  DSN=SMF.DUMP3,DISP=SHR,DCB=LRECL=32760
//SYSIN    DD  *
 INDD(INDD1,OPTIONS(ALL))
 INDD(INDD2,OPTIONS(DUMP))
 OUTDD(OUTDD1,TYPE(0,2,10,15:40))
 OUTDD(OUTDD2,TYPE(10:255))
 OUTDD(OUTDD3,TYPE(10:255))
 DATE(2009001,2009002)
/*
//