//S030 EXEC PGM=FTP,PARM='(EXIT'
//INPUT DD *
cd /test/file
SITE UMASK 022
BINARY
LOCSITE RDW
PUT //DD:TAPEDSN test_file_from_tape.DAT
quit
/*
//TAPEDSN DD DSN=VARIABLE.BLOCK.FILE.ON.TAPE
// DISP=SHR,
// UNIT=TAPE
//OUTPUT DD SYSOUT=*,
// AVGREC=K,
// RECFM=FB,LRECL=160,BLKSIZE=160
// INCLUDE MEMBER=SYSOUT
//*
//INPUT DD *
cd /test/file
SITE UMASK 022
BINARY
LOCSITE RDW
PUT //DD:TAPEDSN test_file_from_tape.DAT
quit
/*
//TAPEDSN DD DSN=VARIABLE.BLOCK.FILE.ON.TAPE
// DISP=SHR,
// UNIT=TAPE
//OUTPUT DD SYSOUT=*,
// AVGREC=K,
// RECFM=FB,LRECL=160,BLKSIZE=160
// INCLUDE MEMBER=SYSOUT
//*