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