//VGI228CL JOB (X8051X),'ASM ',MSGCLASS=Q,                              00010002
//        NOTIFY=VGI228,MSGLEVEL=(1,1)                                  00020002
//************************************************************          00030002
//**** ASSEMBLER COMPILE AND LINK                         ****          00040002
//************************************************************          00062002
//ASM      EXEC PGM=IEV90,REGION=512K,                                  00063002
//         PARM='DECK,NOLOAD,PRINT'                                             
//SYSPRINT DD  SYSOUT=*,DCB=(RECFM=FBA,BLKSIZE=6413,LRECL=121)                  
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                         
//         DD  DSN=SYSN.BLG.V4R2M0.BLGMACS,DISP=SHR                             
//         DD  DSN=SYSN.BLM.V4R2M0.BLMMACS,DISP=SHR                             
//         DD  DSN=INFO.CSCM.SESLOAD,DISP=SHR                                   
//SYSUT1   DD  UNIT=(3380,SEP=SYSPRINT),SPACE=(1700,(400,50))                   
//SYSUT2   DD  UNIT=(3380,SEP=(SYSPRINT,SYSUT1)),SPACE=(1700,(400,50))          
//SYSUT3   DD  UNIT=(3380,SEP=(SYSPRINT,SYSUT1,SYSUT2)),SEP=SYSUT1,             
//             SPACE=(1700,(400,50))                                            
//SYSPUNCH DD  DSN=&&LOADSET,UNIT=3380,DISP=(,PASS),                            
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),                                 
//         SPACE=(80,(500,100))                                                 
//SYSIN    DD  DSN=VGI228.BOB.ASM(GSIMOVE1),DISP=SHR                            
//*                                                                             
//LKED         EXEC PGM=IEWL,COND=(4,LT,ASM),                                   
//             PARM='LIST,LET,MAP,XREF'                                         
//SYSPRINT     DD SYSOUT=*,DCB=(RECFM=FBA,BLKSIZE=6413,LRECL=121)               
//SYSLIN       DD DSN=&&LOADSET,DISP=(OLD,DELETE)                               
//SYSLMOD      DD DSN=INFO.CSCM.ADMNLOAD(GSIMOVE1),DISP=SHR                     
//SYSUT1       DD UNIT=(3380,SEP=(SYSLIN,SYSLMOD)),SPACE=(1024,(50,10))         
//SYSLIB       DD DSN=SYS1.LINKLIB,DISP=SHR                                     
//             DD DSN=INFO.CSCM.SESLOAD,DISP=SHR                                
//SYSTERM      DD SYSOUT=*