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

/[Label]    C[ATL]    [Comments]

/[Label]    U[NCA]    [Comments]

/[Label]    S[AVE]

/[Label]    R[CVR]

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

/[Label]    V[UNC]    VolSerial

/[Label]    FIN    [Comments]

¥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  FCPY
\  EX   FCPY
\  FD   U01=DA,VOL=100001,FILE=IFILE
\  FD   U02=DA,VOL=100001,FILE=(OFILE,AD)
\  FD   LIST=DA,SOUT=A
\  FD   COIN=*
/  FCPY IN=U01,OUT=U02
/  FIN
\  JEND

\　JOB  FCPY
\  EX   FCPY
\  FD   U01=DUMMY
\  FD   U02=DA,VOL=100001,FILE=OFILE,TRK=(1,1),DISP=CAT,
   FCB=(BLKSIZE=100,LRECL=100,RECFM=FB)
\  FD   LIST=DA,SOUT=A
\  FD   COIN=*
/  FCPY IN=U01,OUT=U02
/  FIN
\  JEND

\　JOB  FCPY
\  EX   *
\  FD   U02=DA,VOL=100001,FILE=OFILE,TRK=(1,1),DISP=CAT,
   FCB=(BLKSIZE=100,LRECL=100,RECFM=FB)
\  EX   FCPY
\  FD   U01=DUMMY,FCB=(BLKSIZE=200,LRECL=200,RECFM=VB)
\  FD   U02=DA,FILE=OFILE
\  FD   LIST=DA,SOUT=A
\  FD   COIN=*
/  FCPY IN=U01,OUT=U02
/  FIN
\  JEND

\　JOB  FCPY
\  EX   FCPY
\  FD   U01=DA,VOL=100001,FILE=IFILE
\  FD   U02=DA,VOL=100001,TRK=(1,1),
   FCB=(BLKSIZE=100,LRECL=100,RECFM=FB)
\  FD   LIST=DA,SOUT=A
\  FD   COIN=*
/  FCPY IN=U01,OUT=U02
/  FIN
\  JEND

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

/[Label]    FIN    [Comments]

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

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

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

/[Label]    FIN    [Comments]

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

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

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

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