Allocate a VSAM Data Set and Copying a File from HP NonStop to z/OS

This Process invokes IBM® Connect:Direct® DMRTAMS for VSAM file allocation. DMRTAMS (using IDCAMS commands specified in the Process) first deletes the old data set if it exists. It then defines and allocates it for use in the subsequent COPY statement. The file transmitted is an HP NonStop key-sequenced file.

VSAM01  PROCESS    SNODE=SC.OS390.RSMITH PNODE=CDCLX             -
                   SNODEID=(RMITH,RSMITH)                        -
                   SACCT=’CHARGE TO ACCOUNTING’
STEP1   RUN TASK  (PGM=DMRTAMS,                                  -
                   PARM=(C"FREE=CLOSE,RETURN=(DD) SYSOUT=X"      -
                   C" DELETE (RSMITH.VSAM01.OUTPUT) CLUSTER  ",  -
                   C" DEFINE CLUSTER                        -",  -
                   C"   (NAME(RSMITH.VSAM01.OUTPUT)         -",  -
                   C"    RECORDS(2500 100)                  -",  -
                   C"    VOLUMES(M80003)                    -",  -
                   C"    INDEXED                            -",  -
                   C"    FREESPACE(0 0)                     -",  -
                   C"    NOIMBED                            -",  -
                   C"    KEYS (8 6)                         -",  -
                   C"    RECORDSIZE(262 880)                -",  -
                   C"    NOREPLICATE                        -",  -
                   C"    SHAREOPTIONS(2))                   -",  -
                   C"   DATA                                -",  -
                   C"    (CONTROLINTERVALSIZE(4096)         -",  -
                   C"     NAME(RSMITH.VSAM01.OUTPUT.DATA2)  -",  -
                   C"   INDEX                               -",  -
                   C"    (CONTROLINTERVALSIZE(512)          -",  -
                   C"     NAME(RSMITH.VSAM01.OUTPUT.INDEX2))"))  -
                   SNODE
STEP2   COPY FROM (DSN=$B.CDFILES.KDSDFIL DISP=SHR               -
                   PNODE)                                        -
             TO   (DSN=RSMITH.VSAM01.OUTPUT DISP=SHR             -
                   SNODE)