데이터 셋 유틸리티

/[Label]    C[ATL]    [Comments]

/[Label]    U[NCA]    [Comments]

/[Label]    T[AKE]    [{SEP|GNR|GDG}]

/[Label]    V[UNC]    VolSerial

/[Label]    FIN    [Comments]

\　JOB 　CTFE01
\　EX    CTFE
\  FD    LIST=DA,SOUT=A
\  FD    COIN=*
/　CATL
/　FILE　ABCD,V00001
/　F 　　A.B.C.D,V00002
/　F 　　G(+1),V00003
/　F 　　G(+2),V00003
/　FIN
\　JEND

\　JOB 　CTFE02
\  EX    CTFE
\  FD    LIST=DA,SOUT=A
\  FD    COIN=*
/　UNCA
/　FILE　ABCD
/　F 　　A.B.C.D
/　F 　　G(-1)
/　FIN
\　JEND

\　JOB 　CTFE03
\  EX    CTFE
\  FD    LIST=DA,SOUT=A
\  FD    COIN=*
/　VUNC  V00005
/　FIN
\　JEND

\　JOB 　CTFE04
\  EX    CTFE
\  FD    LIST=DA,SOUT=A
\  FD    COIN=*
/　TAKE
/　FILE  X.Y.Z
/  FILE  X.*.ABC000
/  FIN
\　JEND

\　JOB 　CTFE05
\  EX    CTFE
\  FD    LIST=DA,SOUT=A
\  FD    COIN=*
/　TAKE
/  FIN
\　JEND

\　JOB 　CTFE06
\  EX    CTFE
\  FD    LIST=DA,SOUT=A
\  FD    COIN=*
/　TAKE  SEP
/  FIN
\　JEND

\　JOB  FCHK
\　EX   FCHK
\　FD   U01=DA,FILE=VOLUME,VOL=000001
\　FD   LIST=DA,VOL=WORK,TRK=(10,3),SOUT=A
\　JEND

\　JOB  FCHK
\　EX   FCHK
\　FD   U01=DUMMY
\　FD   LIST=DA,VOL=WORK,TRK=(10,3),SOUT=A
\　JEND

[UTIL;20100101_120000;37;0;JOB00001;1000] XTC0510R FCHK PLEASE KEY-IN PARAMETER
Input Message: 000001 《 Enter 》

¥PARA /[label] FCPY  IN=U01,OUT=U02

/[label]   FCPY    IN=[{U01|Input_Access}],OUT=[{U02|Output_Access}]
                   [,NL=({F|V|U}[B],Input_RecordLen,Input_BlockSize)]
                   [,BL=Output_BlockSize]
                   [,COUNT={YES|NO}]

/[Label]    FIN    [Comments]

\　JOB  FCPY01
\　EX   FCPY
\  FD   U01=DA,FILE=F1,VOL=100000,DISP=KEEP
\  FD   U02=DA,FILE=F2,VOL=100000
\  FD   LIST=DA,VOL=WORK,SOUT=A
\  PARA / FCPY IN=U01,OUT=U02,BL=800
\　FIN
\　JEND

\　JOB  FCPY02
\  EX   FCPY
\  FD   U01=DA,FILE=F3,VOL=100001,DISP=KEEP
\  FD   U02=DA,FILE=F4,VOL=100001
\  FD   LIST=DA,VOL=WORK,SOUT=A
\  FD   COIN=*
/  FCPY IN=U01,OUT=U02,COUNT=YES
/  FIN
\  JEND

/[label]    FDLT    FileName,
                   {[,VolSerial][,Password]
                    [,VOL=(VolSerial[,…])]
                    [,PSW=Password]}

/[Label]    FIN    [Comments]

\　JOB 　FDLT01
\　EX    FDLT
\  FD    LIST=DA,VOL=WORK,SOUT=B
\  FD    COIN=*
/　FDLT　A. *. C
/　FIN
\　JEND

\　JOB 　FDLT02
\　EX    FDLT
\  FD    LIST=DA,VOL=WORK,SOUT=B
\  FD    COIN=*
/　FDLT　A.B.*
/　FDLT　A(-2)
/　FIN
\　JEND

\　JOB 　FDLT03
\　EX 　 FDLT
\　FD 　 LIST=DA,VOL=WORK,SOUT=A
\　FD 　 COIN=*
/　FDLT　ABCD,100000
/　FIN
\　JEND

/[label]    FDMP       IN=Input_Access,OUT=Output_Access
                       [,KANA={YES|NO}]

/[label]    DUMP    PS=*,*
                       [,RCD]
                    PO=*
                       [,RCD]
                    IS={KEY |
                        KEY,LEN=mmm |
                        KEY,* |
                        *,KEY |
                        *,*}
                        [,KMOD={E|H}]

/[label]     KEY       ‘XXXXXX’

                                                                       72
/  KEY  'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXC
         XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXC
         XXXX''

/[Label]    FIN    [Comments]

\　JOB 　FDMP01
\　EX 　 FDMP
\　FD 　 U01=DA,VOL=USER10,FILE=F1
\　FD 　 LIST=DA,VOL=WORK,CYL=(5,1),SOUT=A
\　FD 　 COIN=*
/　FDMP　IN=U01,OUT=LIST,KANA=YES
/　DUMP　PS=*,*,RCD
/　FIN
\　JEND

\　JOB 　FDMP03
\　EX 　 FDMP
\　FD 　 U01=DA,VOL=USER10,FILE=F3,MEMBER=AAA
\　FD 　 LIST=DA,VOL=WORK,CYL=(5,1),SOUT=A
\　FD 　 COIN=*
/　FDMP　IN=U01,OUT=LIST
/　DUMP　PO=*
/　FIN
\　JEND

\　JOB 　FDMP07
\　EX 　 FDMP
\　FD 　 U01=DA,VOL=USER10,FILE=F7
\　FD 　 LIST=DA,VOL=WORK,CYL=(5,1),SOUT=A
\　FD 　 COIN=*
/　FDMP　IN=U01,OUT=LIST
/　DUMP　IS=*,*
/　FIN
\　JEND

\　JOB 　FDMP07
\　EX 　 FDMP
\　FD 　 U01=DA,VOL=USER10,FILE=F8
\　FD 　 LIST=DA,VOL=WORK,CYL=(5,1),SOUT=A
\　FD 　 COIN=*
/　FDMP　IN=U01,OUT=LIST
/　DUMP　IS=KEY
/  KEY='12345'
/　FIN
\　JEND

/[Label]    G[DGM]    [ { DA | MT } ]

/[Label]    FILE      GDGName{(0) | (m) | (-n) | (/)}

/[Label]    FIN    [Comments]

\  JOB 　GDGM00
\  EX    GDGM
\  FD    LIST=DA,VOL=WORK,TRK=(1,1,RLSE),SOUT=T
\  FD    COIN=*
/  GDGM  DA
/  FILE　GDG1(3)
/  FILE  GDG2(-2)
/  FIN
\  JEND

/[label]   ISFG    IN=[{U01|Input_Access}], OUT=[{U05|Output_Access}]
                   [,SPFL]
                   [,DISP={YES | NO}]

/[label]   AREA    PRIM=prime_no
                   [,COVF=track_no][,INDX=index_no]

/[label]   BTYP    RKYP=key_pos,KEYS=key_length
                   [,RCDS=record_length][,BLKS=block_length]
                   [,RFOM={F | V}][,BLKD=block_density]

/[Label]    FIN    [Comments]

\　JOB 　ISFG01
\　EX    ISFG
\　FD    U01=DA,FILE=SAMPLE.DATA01,VOL=DEFVOL,DISP=DLT
\　FD    U05=DA,FILE=SAMPLE.VS.DATA01,VOL=DEFVOL,FCYL=(30,OLD),
         FCB=(LRECL=500,BLKSIZE=5000,RECFM=FB)
\　FD    LIST=DA,VOL=WORK,TRK=5,SOUT=A
\　FD    COIN=*
/　ISFG  IN=U01,OUT=U05
/　AREA  PRIM=30
/　BTYP  RCDS=500,BLKS=5000,RKYP=4,KEYS=6
/　FIN
\　JEND

CREATE DBSPACE  데이터베이스스페이스명  FOR MD
                ENVIRONMENT SIS SIS 이름  
                            DID AIM 디렉터리 ID 
                            RECOVERY(down,cancel,forward)
                ALLOCATE    DATASET  데이터 셋 이름 
                            VOLUME   볼륨 일련번호     UNIT  유닛 타입 
                ATTRIBUTE   SPACE(XXX, XXX, CYLINDER | TRACK)
                PROTECT | NOPROTECT

DROP DBSPACE 메타 데이터베이스 스페이스 이름 FOR MD

CREATE DBSPACE 퍼블릭 데이터베이스 스페이스 이름 FOR PUBLIC

DROP DBSPACE 퍼블릭 데이터베이스 스페이스 이름 FOR PUBLIC

CREATE SCHEMA 스키마 이름

DROP SCHEMA 스키마 이름 [CASCADE]

CREATE TABLE 스키마 이름.테이블 이름
            (컬럼명 컬럼타입(길이) 제약조건1(NOT NULL| PRIMARY KEY | UNIQUE), ...
               컬럼명 컬럼타입(길이) 제약조건1(NOT NULL| PRIMARY KEY | UNIQUE)
             제약조건2(PRIMARY KEY | UNIQUE)(컬럼명, 컬럼명 ... ))
             [NCOMMENT N'코멘트'| COMMENT '코멘트']
             ON 테이블 데이터베이스 스페이스 이름

DROP TABLE 스키마 이름.테이블 이름[CASCADE]

CREATE VIEW 스키마 이름.뷰 이름
           (컬럼명  , ...
             컬럼명)
            [NCOMMENT N'코멘트'| COMMENT '코멘트']
            AS SELECT   컬럼명  , ...
                        컬럼명 
                        FROM 스키마 이름.테이블 이름 

DROP VIEW 스키마 이름.뷰 이름[CASCADE]

CREATE INDEX 스키마 이름.테이블 이름.인덱스 이름
             KEY( 컬럼명 , 컬럼명 ...  )
             FREERATE 숫자 ON 인덱스 데이터베이스 스페이스 이름

DROP INDEX 스키마 이름.테이블 이름.인덱스 이름

CREATE FILE 파일명  FOR PHYSICAL | LOGICAL
            ON 스키마 이름.테이블 이름
            RECORD(FREE)
            ACCESS  PATH
            (INTERNAL | EXTERNAL PATH FOR KEY
              WITH 스키마 이름.테이블 이름.인덱스 이름 ...)

DROP FILE  파일 이름 FOR PHYSICAL | LOGICAL 

LOAD TABLE 스키마 이름.테이블 이름 FROM DDNAME DD 이름.테이블
           TFREERATE(숫자) ERRORLIMIT(숫자)WITH [NULL | NONULL]
           MODE [NEW | IGNORE | ADD [REPLACE] | UPDATE] [KEYCHECK | ALLCHECK]

\    JOB       JYQLOAD
\    EX        JYQDDUTY
\    FD        INDATA=DA,VOL=100000,FILE=FG9.R.COMMON.sample
\    FD        LIST=DA,VOL=WORK,TRK=(30,10,RLSE),SOUT=A
\    FD        SYSIN=*
     LOAD TABLE SURDIIX.FGA_R_COMMON_TBL
                FROM DDNAME INDATA TFREERATE(10)
                WITH NONULL MODE NEW IGNORE KEYCHECK
\/
\   JEND

UNLOAD TO DDNAME DD 이름  
          WITH [FORMAT지정|NULL지정]
          AS SELECT [delimeter | column] FROM [nTABLE] [WHERE ~ ] [ORDER BY columns]

\    JOB       JYQUNLOD
\    EX        JYQDDUTY
\    FD        OUTDATA=DA,VOL=100000,FILE=FG9.R.COMMON.out
\    FD        LIST=DA,VOL=WORK,TRK=(30,10,RLSE),SOUT=A
\    FD        SYSIN=*
     UNLOAD TO DDNAME OUTDATA
            WITH NONULL AS SELECT
            * FROM SURDIIX.FGA_R_COMMON_TBL
\/
\   JEND

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

RESTORE DATASET(dsname[,dsname,...]),
        FROM(DD(ddname)),
        [TO(DD(ddname))],
        [RENAME((OLD DATASET NAME,NEW DATASET NAME),…)],
        [LIST],
        [EXCLUDE(dsname[,dsname,...])]

\          JOB  KBK01
\STEP01    EX   KBKARCS
\          FD   SYSUT1=DA,VOL=100000,FILE=VOLUME
\          FD   SYSUT2=TAPEA,VOL=100004,FILE=KBKARCS.UACKUP.DS,FCYL=10
\          FD   SYSPRINT=DA,VOL=WORK,TRK=(1,1,RLSE),SOUT=A
\          FD   SYSIN=*
 BACKUP DATASET(KBKARCS.TEST01,KBKARCS.TEST02,KBKARCS.TEST03),
        FROM(DD(SYSUT1)),TO(DD(SYSUT2))
\          JEND

\          JOB  KBK02
\STEP01    EX   KBKARCS
\          FD   SYSUT1=DA,VOL=100000,FILE=VOLUME
\          FD   SYSUT2=DA,VOL=100001,FILE=SVWORK02,FCYL=10
\          FD   SYSPRINT=DA,VOL=WORK,TRK=(1,1,RLSE),SOUT=A
\          FD   SYSIN=*
 BACKUP VOLUME,FROM(DD(SYSUT1)),TO(DD(SYSUT2)),LIST
\          JEND

\          JOB  KBK03
\STEP01    EX   KBKARCS
\          FD   SYSUT1=DA,VOL=100001,FILE=KBKARCS.UACKUP.DS
\          FD   SYSUT2=DA,VOL=100000,FILE=VOLUME,FCYL=10
\          FD   SYSPRINT=DA,VOL=WORK,TRK=(1,1,RLSE),SOUT=A
\          FD   SYSIN=*
 RESTORE DATASET(KBKARCS.*),FROM(DD(SYSUT1)),TO(DD(SYSUT2))
\          JEND

INFILE(fdname), OUTFILE(fdname)

INDATASET(entryname), OUTDATASET(entryname)

\ JOB OBM
\ EX KQCAMS
\ FD INFD=DA,FILE=VSAM.KSDS1
\ FD OUTFD=DA,FILE=VSAM.KSDS2
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
    REPRO  INFILE(INFD) -
           OUTFILE(OUTFD) -
           SKIP(50000) COUNT(10000)
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
    ALTER  TEST.GDG1 -
            LIMIT(255) -
            TO(2006300) -
            CATALOG(TESTCAT)
\/
\ JEND

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

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
DEFINE ALIAS(NAME(TEST.ALIAS1) -
       RELATE(TEST.NVSAM1)) -
       CATALOG(TESTCAT)
\/
\ JEND

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(fdname)]
       [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(fdname)]
       [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(fdname)]
       [NAME(entryname)]
       [OWNER(ownerid)])]
       [CATALOG(catname)]

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
DEFINE AIX    (NAME(VSAM.AIX1) -
                RELATE(VSAM.KSDS1) -
                UPGRADE -
                NUNQK -
                KEYS(7 44) -
                VOL(VOL100) -
                SHR(2 3))
\/
\ JEND

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(fdname)]
       [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(fdname)]
       [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(fdname)]
       [NAME(entryname)]
       [OWNER(ownerid)])]
       [CATALOG(catname)]

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
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))
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DEFINE GDG (NAME(TEST.GDG1) -
                LIMIT(100) -
                TO(2006365)) -
                CATALOG(TESTCAT)
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DEFINE NONVSAM (NAME(TEST.NVSAM1) -
         VOLUMES(100000)) -
         CATALOG(TESTCAT)
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DEFINE PATH    (NAME(VSAM.PATH1) -
                  PATHENTRY(VSAM.AIX1) -
                  UPDATE)
\/
\ JEND

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DEFINE PATH    (NAME(VSAM.PATH2) -
                  PATHENTRY(VSAM.KSDS1) -
                  UPDATE)
\/
\ JEND

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(fdname)]
       [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|VDELETE|VDEL}
       (entryname [entryname ...])
       [ALIAS|
        ALTERNATEINDEX|
        CLUSTER|
        GENERATIONDATAGROUP|
        NONVSAM|
        PATH|
        TRUENAME|
        USERCATALOG]
       [FILE(fdname)]
       [PURGE|OPURGE]
       [FORCE|NOFORCE]
       [CATALOG(catname)]

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DELETE (VSAM.KSDS1 VSAM.KSDS2) -
          CLUSTER -
          ERASE -
          PURGE
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD BACK=DA,FILE=TESTCAT.BACKUP
\ FD SYSIN=*
  EXPORT TESTCAT -
         OUTFILE(BACK)
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD BACK=DA,FILE=TESTCAT.BACKUP
\ FD SYSIN=*
    IMPORT INFILE(BACK) -
           OUTDATASET(TESTCAT)
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  LISTCAT ENTRIES(VSAM.KSDS1) ALL
\/
\ JEND

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
     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
   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(fdname)|INDATASET(entryname)}
      [CHARACTER|DUMP|HEX]
      [FROMKEY(key)|FROMADDRESS(address)|FROMNUMBER(number)|SKIP(number)]
      [OUTFILE(fdname)]
      [TOKEY(key)|TOADDRESS(address)|TONUMBER(number)|COUNT(number)]

\ JOB OBM
\ EX KQCAMS
\ FD OUTFD=DA,FILE=TEST.OUT
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
    PRINT INDATASET(TEST.KSDS1) DUMP -
          FROMKEY(0000000099) OUTFILE(OUTFD) COUNT(10)
\/
\ JEND

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(fdname)|INDATASET(entryname)}
      {OUTFILE(fdname)|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)]

\ JOB OBM
\ EX KQCAMS
\ FD INFD=DA,FILE=VSAM.KSDS1
\ FD OUTFD=DA,FILE=VSAM.KSDS2
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
REPRO  INFILE(INFD) -
OUTFILE(OUTFD) -
SKIP(50000) COUNT(10000)
\/
\ JEND

VERIFY FILE(fdname)|DATASET(entryname)

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD TESTFD=DA,FILE=TEST.CLUS1
\ FD SYSIN=*
    VERIFY FILE(TESTFD)
\/
\ JEND

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

SET LASTCC=30
IF LASTCC=30 THEN SET MAXCC=10

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

SET LASTCC=10
IF LASTCC > 20 -
THEN
ELSE LISTCAT ENT(TEST.SDS2)

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DELETE TEST.SDS1
  IF LASTCC=30 THEN SET MAXCC=10
\/
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
  DEFINE NONVSAM (NAME(TEST.SDS1) VOLUMES(100000))
\/
\ JEND

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

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD BASE=DA,FILE=VSAM.KSDS1,DISP=LOCK
\ FD AIX=DA,FILE=VSAM.AIX1,DISP=LOCK
\ FD SYSIN=*
    BLDINDEX INFILE(BASE) -
             OUTFILE(AIX)
\/
\ JEND

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

\ JOB OBM
\ EX KQCAMS
\ FD SYSPRINT=DA,SOUT=A
\ FD SYSIN=*
   EXAMINE -
       NAME(VSAM.KSDS1) -
       INDEXTEST -
       DATATEST -
       ERRORLIMIT(350)
\/
\ JEND

DELETE NOT.EXIST.SDS
IF LASTCC = 30 THEN SET MAXCC=10
DEFINE ...