//AMATERSE JOB (account),&SYSUID,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID,
//         PRTY=14,TIME=1440,REGION=100M
//*--------------------------------------------------------------------
//* AUTHOR  : Bruno TARTARE - BMC
//* This sample AMATERSE is used to UNTERSE (uncompress) the
//* CONTROL-M/Conversion Library (CONVLIB)
//* The BMC CONTROL-M Conversion Library is a PDS
//*--------------------------------------------------------------------
//* Conversion library SPACE to be used
//         SET SPACE='SPACE=(CYL,(1000,0200,0005),RLSE)'
//*
//* Conversion library TARGET UNIT/VOLSER
//         SET ALLOC='UNIT=SYSDA'
//*
//* Sample TERSED File downloaded
//         SET SYSUT1=SCM.MANUF.R900.CONV.Cyymmdd.CONV.TRS
//*
//* Sample CONVLIB untersed
//         SET SYSUT2=SCM.MANUF.R900.CONV.Cyymmdd.CONV
//*
//*--------------------------------------------------------------------
//* Delete the target Uncompressed to make the process reentrant
//*--------------------------------------------------------------------
//SCRATCH  EXEC PGM=IEFBR14
//DELETE   DD   DISP=(MOD,DELETE),DSN=&SYSUT2,SPACE=(TRK,0)
//*--------------------------------------------------------------------
//* Uncompress SYSUT1 file using UNPACK into SYSUT2
//* NOTE:
//* When untersing large PDS, use SYSUT3 to allocate a large work file
//* Else AMATERSE may fails with SB37 ABEND on SYS00001 DDname
//*--------------------------------------------------------------------
//AMATERSE EXEC PGM=AMATERSE,PARM=UNPACK
//SYSPRINT DD   SYSOUT=*
//SYSUT1   DD   DISP=SHR,DSN=&SYSUT1
//SYSUT2   DD   DISP=(NEW,CATLG),&ALLOC,&SPACE,DSN=&SYSUT2
//SYSUT3   DD   DISP=(NEW,DELETE),UNIT=SYSDA,SPACE=(CYL,(1200,800))
//*-
//