データセットユーティリティ

[label]   MODE   {IN(ddname) | OUT(ddname) | INOUT(ddname) | IN(ddname),OUT(ddname)}

ENDMODE

[label]    DEFINE    KIS

[label]    DEND

[label]    CHGIN    IN(ddname)

[label]    ADD    [OUT(ddname)],
                  FIELD((number[,A][,L])
                  (number[,{A|B|K}][,{L|R}])] ...)
                  [,{KLIST[({1|2})]|LIST|NOLIST}]
                  [,{MSG | NOMSG}]

[label]    FORMAT    [RDLM('Delimiter')][,
                     FDLM('Delimiter')]
                     FIELDS((number[,A]),
                     (number[,{A | KIS | JEF | N }])[,
                     (number[,{A | KIS | JEF | N }])]...)
                     SAME

[label]    UPDATE   [{INOUT(ddname1)|IN(ddname2),OUT(ddname)}}]
                    [,{KLIST[({1|2})] | LIST | NOLIST]
                    [,{MSG | NOMSG | KMSG[({1|2})]}]

[label]   {CHANGE|CHG}    'key'
                          ,field-num
                          ,location[*length]
                          ,/charatorline/

[label]    PRINT    {'key1'|TOP}[:{'key2'|BOT}]
                    [,IN(ddname)]
                    [,SELFLD(fieldnum[,fieldnum]...)]
                    [,LINE]
                    [,{KCHAR[({1|2})] | CHAR}]

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

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

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

[label]    FD      NAME=name
                   ,LENGTH=length
                   [,STARTLOC=starting-location]
                   [,FROMLOC=from-location]
                   [,FILL={'character'|X'nn'}]
                   [,{FORMAT=pattern[,CHARACTER=character]
                     |PICTURE=length,{'character-string'|P'n'|B}}]
                   [,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

[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=...]

[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]
                    [,OUTODR= TTR | ODIR]

[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=…]

//[stepname] EXEC PGM=JSECOPY[,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)}][,...])

[label]    LISTPDS    DDNAME=(ddname[,ddname[,...]]) | DSNAME=(name[,name[,...]])
                      [,VOL=anyname=serial]
                      [, DUMP | FORMAT ]

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

[label] {MOVE|COPY}    DSN[AME]=name
                       ,TO=device=volser
                      [,FROM=device=volser]
                      [,UNCATLG]
                      [,CATLG]
                      [,RENAME=name]
                      [,FROMDD=dd-name]
                      [,TODD=dd-name]
                      [,UNLOAD]
                      [,COPYAUTH]

[label] {MOVE|COPY}    DSGROUP=name
                       ,TO=device=volser
                      [,PASSWORD]
                      [,UNCATLG]
                      [,CATLG]
                      [,TODD=dd-name]
                      [,UNLOAD]

[label] {MOVE|COPY}    PDS=name
                       ,TO=device=volser
                      [,FROM=device=volser]
                      [,EXPAND=n]
                      [,UNCATLG]
                      [,CATLG]
                      [,RENAME=name]
                      [,FROMDD=dd-name]
                      [,TODD=dd-name]
                      [,UNLOAD]
                      [,COPYAUTH]

[label] {MOVE|COPY}    VOL[UME]=device=volser
                       ,TO=device=volser
                      [,PASSWORD]
                      [,CATLG]
                      [,TODD=dd-name]
                      [,UNLOAD]

[label] INCLUDE        DSN[AME]=name
                       ,MEMBER=name
                      [,FROM=device=volser] ])}

[label] EXCLUDE        MEMBER=name

[label] SELECT        MEMBER={(name[,name][,...]) |
                      ((name,newname),[,(name,newname)][,...])}

[label] REPLACE        DSN[AME]=name
                       ,MEMBER=name
                      [,FROM=device=volser]

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

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

[label]    UNCATLG    DSNAME=name

BACKUP VOLUME | DATASET(dsname[,dsname,...])
       [FROM(DD(ddname))]
       TO(DD(ddname))
       [LIST]
       [DELETE]

RESTORE DATASET(dsname[,dsname,...])
        FROM(DD(ddname))
        [TO(DD(ddname))]
        [RENAME((old_name,new_name),...)]
        LIST

LISTCAT ENT( -
  TEST.CLUS1 -
  TEST.KSDS1 -
  TEST.RRDS1 -
  TEST.SDS1)

/* This is KQCAMS Comment */
/* This is multi line Comment comment continued from above line */
LISTCAT ENT( /* Comment 1 */ -
TEST.KSDS1 /* Comment 3 */ -
TEST.SDS1 /* Comment 4 */ ) /* Comment 5 */

INFILE(ddname), OUTFILE(ddname)

INDATASET(entryname), OUTDATASET(entryname)

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//REPRO    EXEC PGM=KQCAMS
//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)
/*
//

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)]
      [NULLIFY(
      [OWNER]
      [RETENTION])]
      [OWNER(ownerid)]
      [ROLLIN]
      [SCRATCH|NOSCRATCH]
      [SHAREOPTIONS(crossregion[ crosssystem])]
      [STORAGECLASS(class)]
      [STRNO(number)]
      [TO(date)|FOR(days)]
      [CATALOG(catname)]

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

DEFINE Commands  NAME(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)
       SYMBOLICRELATE(entryname))
       [CATALOG(catname)]

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

DEFINE AIX (NAME(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)]

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

DEFINE CLUSTER (NAME(entryname)
               {CYLINDERS(primary[secondary])|
                KILOBYTES(primary[secondary])|
                MEGABYTES(primary[secondary])|
                RECORDS(primary[secondary])|
                TRACKS(primary[secondary])|
       VOLUMES(vvolser[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(vvolser[ 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(vvolser[volser...])]
       [CONTROLINTERVALSIZE(size)]
       [FILE(ddname)]
       [NAME(entryname)]
       [OWNER(ownerid)])]
       [CATALOG(catname)]

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//DEFCLUS EXEC PGM=KQCAMS
//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)
                            LIMIT(limit)
                            [EMPTY|NOEMPTY]
                            [OWNER(ownerid)]
                            [SCRATCH|NOSCRATCH]
                            [TO(date)|FOR(days)])
                            [CATALOG(catname)]

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

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

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

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

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

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

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]
       [ERASE|NOERASE]
       [FILE(ddname)]
       [PURGE|OPURGE]
       [CATALOG(catname)]

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

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

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//BACKCAT EXEC PGM=KQCAMS
//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)]

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//IMPCAT EXEC PGM=KQCAMS
//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)]

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

CLUSTER ------------- VSAM.KSDS1
   HISTORY
     CREATION ----------------- 20191021    DATASET-OWNER -------------- NOUSER
     EXPIRATION ---------------- (EMPTY)    RELEASE ------------------- (EMPTY)
     VSAM QUIESCED ----- (NOT-SUPPORTED)
   ASSOCIATIONS
     DATA ---------------- VSAM.KSDS1.DATA
     INDEX --------------- VSAM.KSDS1.INDEX
 DATA ---------------- VSAM.KSDS1.DATA
   HISTORY
     CREATION ----------------- 20191021    DATASET-OWNER -------------- NOUSER
     EXPIRATION ---------------- (EMPTY)    RELEASE ------------------- (EMPTY)
   ASSOCIATION
     CLUSTER ------------- VSAM.KSDS1
   ATTRIBUTES
     AVGLRECL ---------------------- 350    MAXLRECL --------------------- 350
     KEYLEN ------------------------- 10    RKP ----------------------------- 0
     AXRKP --------------------------- 0    CISIZE -------------------- (EMPTY)
     INDEXED                                NON-SPANNED
     UNIQUEKEY
   STATISTICS
     REC-DELETED --------------- (EMPTY)    REC-INSERTED -------------- (EMPTY)
     REC-RETRIEVED ------------- (EMPTY)    REC-TOTAL ----------------- (EMPTY)
     REC-UPDATED --------------- (EMPTY)    TIMESTAMP ------------------ (NULL)
     USER-DATA-SIZE ------------ (EMPTY)
   ALLOCATION
     HI-A-RBA ------------------------ 0    HI-U-RBA ------------------------ 0
   VOLUMES
     DEVTYPE -------------------- (NULL)    VOLSER --------------------- 100000
 INDEX --------------- VSAM.KSDS1.INDEX
   HISTORY
     CREATION ----------------- 20191021    DATASET-OWNER -------------- NOUSER
     EXPIRATION ---------------- (EMPTY)    RELEASE ------------------- (EMPTY)
   ASSOCIATION
     CLUSTER ------------- VSAM.KSDS1
   ATTRIBUTES
     AVGLRECL ---------------------- 350    MAXLRECL --------------------- 350
     KEYLEN ------------------------- 10    RKP ----------------------------- 0
     CISIZE -------------------- (EMPTY)
   STATISTICS
     INDEX:
       ENTRIES/SECT ------------ (EMPTY)      HI-LEVEL-RBA ------------ (EMPTY)
       LEVELS ------------------ (EMPTY)      SEQ-SET-RBA ------------- (EMPTY)
     REC-DELETED --------------- (EMPTY)    REC-INSERTED -------------- (EMPTY)
     REC-RETRIEVED ------------- (EMPTY)    REC-TOTAL ----------------- (EMPTY)
     REC-UPDATED --------------- (EMPTY)    TIMESTAMP ------------------ (NULL)
   ALLOCATION
     HI-A-RBA ------------------------ 0    HI-U-RBA ------------------------ 0
   VOLUMES
     DEVTYPE -------------------- (NULL)    VOLSER --------------------- 100000

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

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//PRINT  EXEC PGM=KQCAMS
//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)
KQCAMS: 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)]

//JOBA     JOB OBM,CLASS=B,MSGCLASS=X,MSGLEVEL=(1,1)
//REPRO    EXEC PGM=KQCAMS
//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=KQCAMS
//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)

//DEL   EXEC PGM=KQCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
  DELETE TEST.SDS1
  IF LASTCC=8 THEN SET MAXCC=0
/*
//DEF   EXEC PGM=KQCAMS
//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=KQCAMS
//SYSPRINT DD SYSOUT=*
//BASE     DD DSN=VSAM.KSDS1,DISP=OLD
//AIX      DD DSN=VSAM.AIX1,DISP=OLD
//SYSIN    DD *
  BLDINDEX INFILE(BASE) -
           OUTFILE(AIX)
/*
//

EXAMINE {NAME(clustername)}
       [{INDEXTEST|NOINDEXTEST}]
       [{DATATEST|NODATATEST}]
       [ERRORLIMIT(value)]

//JOB      EXEC PGM=KQCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
   EXAMINE -
       NAME(VSAM.KSDS1) -
       INDEXTEST -
       DATATEST -
       ERRORLIMIT(350)
/*

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