PSBGEN

//VIONE06A JOB 43312,'EMAN',
// CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID
//*------------------------------------------------------------------*//
// SET PSBMBR=HOSPPSB
// SET PSBSRC=VIONE06.IMS.JCLS
// SET PSBLIB=VIONE06.IMS.PSBLOAD
//*------------------------------------------------------------------*//
//COMPILE EXEC PGM=ASMA90,REGION=0M,
// PARM=(OBJECT,NODECK,NODBCS,
// 'SIZE(MAX,ABOVE)')
//SYSLIN DD UNIT=SYSDA,DISP=(,PASS),
// SPACE=(80,(100,100),RLSE),
// DCB=(BLKSIZE=80,RECFM=F,LRECL=80)
//SYSLIB DD DSN=IMS810.SDFSMAC,DISP=SHR
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1089,
// SPACE=(121,(300,300),RLSE,,ROUND)
//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),
// SPACE=(CYL,(10,5))
//SYSIN DD DISP=SHR,DSN=&PSBSRC(&PSBMBR)
//*------------------------------------------------------------------*//
//LINK EXEC PGM=IEWL,PARM='XREF,LIST',
// COND=(0,LT,COMPILE),REGION=0M
//SYSLIN DD DSN=*.COMPILE.SYSLIN,DISP=(OLD,DELETE)
//SYSPRINT DD SYSOUT=*,DCB=BLKSIZE=1089,
// SPACE=(121,(90,90),RLSE)
//SYSLMOD DD DISP=SHR,DSN=&PSBLIB(&PSBMBR)
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),
// SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)
**************************** Bottom of Data ****************************