This Process copies two non-TMS controlled tapes. The input tape is 3480/3490 cartridge and the output tape is reel (3420). This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing. This Process uses symbolic values.
TAP2TAP1 PROC PNODE=SC.VSE.USER01 -
SNODE=SC.VSE.USER01 -
&FCUU=CART -
&TCUU=TAPE
STEP001 COPY FROM ( PNODE -
DSN=TEST.TAPE.FILE -
UNIT=&FCUU -
LABEL=(1,SL) -
VOL=SER=(807012) -
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800) -
) -
TO ( SNODE -
DSN=NON.DYNAM.TAPE -
UNIT=&TCUU -
LABEL=(1,SL,,,EXPDT=99365) -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=16000) -
) -
COMPRESS
|