* $$ JOB JNM=ASMMSAMP,CLASS=0,DISP=L,LDEST=*,PDEST=*
// JOB ASMMSAMP
// LIBDEF *,SEARCH=(PRD2.PROD,yourlib.sublib)
// DLBL SYSADAT,'SYSADATA',0,VSAM,                                     X
               CAT=VSESPUC,RECSIZE=8192,                               X
               DISP=(,KEEP),RECORDS=(500,500)
// LIBDEF PHASE,CATALOG=yourlib.sublib
// OPTION NODECK,CATAL
   PHASE ASMMSAMP,*
// EXEC ASMA90,SIZE=ASMA90,PARM='ADATA'
 COPY ASMMSAMP
/*
// EXEC ASMLKEDT
/*
// EXEC ASMLANGX,PARM='ASMMSAMP'
/*
/&
* $$ EOJ