PackUnpack a Dataset using TRSMAIN

(1) Pack
//STEP01 EXEC PGM=TRSMAIN,PARM=PACK
//SYSPRINT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=FILE.TO.TERSE
//OUTFILE DD DSN=FILE.TERSED,
// DISP=(NEW,CATLG),
// SPACE=(CYL,(5,5)),RECFM=FB,LRECL=1024
//*
(2) Unpack
//STEP01 EXEC PGM=TRSMAIN,PARM=UNPACK
//SYSPRINT DD SYSOUT=*
//INFILE DD DISP=SHR,DSN=FILE.PACKED
//OUTFILE DD DSN=FILE.UNPACKED,
// DISP=(NEW,CATLG),
// SPACE=(CYL,(200,50))