Submit a Process with a Connect:Direct for z/OS RUN TASK from an HP NonStop Node

This Process, submitted from the Connect:Direct® for HP NonStop node, performs a RUN TASK on the Connect:Direct for z/OS® node, then copies from HP NonStop to z/OS.

Note: This Process will only work in SNA environments.
TANCPY  PROCESS    SNODE=CD.HPNONSTOP                               -
                   SNODEID=(GRP.USR.PASWRD)
STEP1   RUN TASK  (
                   PGM=DMRTAMS,                                     -
                   PARM=(C"FREE=CLOSE,RETURN=(DD),SYSOUT=X          -
                         C" DELETE (CSDQA1.FILETEST.VSAM0016)       -",
                         C"  CLUSTER                                -",
                         C" DEFINE CLUSTER (                        -",
                         C"  NAME(CSDQA1.FILETEST.VSAM0016)         -",
                         C"  RECORDS(1500 100)                      -",
                         C"  VOLUMES(USER01)                        -",
                         C"  INDEXED                                -",
                         C"  KEYS(12 0)                             -",
                         C"  RECORDSIZE(80 80)                      -",
                         C"  SHAREOPTIONS(3)                        -",
                         C"  )                                      -",
                         C"  DATA (                                 -",
                         C"  NAME(CSDQA1.FILETEST.VSAM0016.DATA)    -",
                         C"  CONTROLINTERVALSIZE(4096)              -",
                         C"  )                                      -",
                         C"  INDEX (                                -",
                         C"  NAME(CSDQA1.FILETEST.VSAM0016.IDX)     -",
                         C"  CONTROLINTERVALSIZE(4096)              -",
                         C"  SHAREOPTIONS(3)                        -",
                         C"  )                                      -",
                         C"  DATA (                                 -",
                         C"  NAME(CSDQA1.FILETEST.VSAM0016.DATA)    -",
                         C"  CONTROLINTERVALSIZE(4096)              -",
                         C"  )                                      -",
                         C"  INDEX (                                -",
                         C"  NAME(CSDQA1.FILETEST.VSAM0016.IDX)     -",
                         C"  CONTROLINTERVALSIZE(4096)              -",
                         C"  )
                  )
                  ) SNODE
*
STEP2  COPY FROM  ( PNODE                                           -
                   DSN=’\cycr.$user.qafiles.VSAM0001’               -
                   DCB=(LRECL=80)                                   -
                   SYSOPTS="SET XLATE ON"                           -
                  )                                                 -
            TO    ( SNODE                                           -
                   DSN=CSDQA1.FILETEST.VSAM0016                     -
                   DISP=OLD                                         -
                  )