//********************************************************************
//* DOC: TERSE A DUMP (PREPARE TO SEND TO ....)                    ***
//********************************************************************
//*
//INDSN    SET  IDSN=HLQ.D060410.T145039.S00023
//OUTDSN   SET  ODSN=HLQ.PMR999999.TRS
//*
//STEP     EXEC PGM=TRSMAIN,PARM=SPACK,TIME=10
//SYSPRINT DD   SYSOUT=*
//INFILE   DD   DSN=&IDSN,DISP=SHR
//OUTFILE  DD   DSN=&ODSN,
//             DISP=(NEW,CATLG,DELETE),UNIT=SYSDA,
//             SPACE=(CYL,(100,100),RLSE)
//*
//****************************************************
//*                                                  *
//*       TRSMAIN WITH PACK OPTION                   *
//* NOTE: ONLY FOR SEQUENTIAL DATASETS               *
//*                                                  *
//* PARM: PACK OR SPACK, WHILE SPACK HAS THE         *
//*       HIGHER COMPRESSION RATE.                   *
//*       IT IS RECOMMENDED TO USE SPACK             *
//*                                                  *
//* ACTIVITIES:                                      *
//*                                                  *
//*    CHANGE IDSN TO THE DATASET TO BE PACKED       *
//*    CHANGE ODSN TO THE NEW PACKED DATASET         *
//*           LAST DSN-QUALIFIER SHOULD BE 'PACKED'  *
//*                                                  *
//****************************************************