//ASMCLG JOB //ASM EXEC PGM=ASMA90 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), // UNIT=SYSALLDA,DCB=BUFNO=1 //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND), // UNIT=SYSALLDA,DISP=(MOD,PASS), // DCB=(BLKSIZE=3040,LRECL=80,RECFM=FB,BUFNO=1) //SYSIN DD * ASMCLG CSECT USING *,15 3 WTO 'HELLO WORLD' BR 14 END /* //SUCCESS IF RC < 8 THEN //LKED EXEC PGM=IEWBLINK,REGION=0M //SYSPRINT DD SYSOUT=* //SYSLIN DD DSNAME=&&OBJ,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSLMOD DD DSN=&SYSUID..LOAD(ASMCLG),DISP=SHR //CEEDUMP DD DUMMY //SYSUDUMP DD DUMMY // ENDIF //***************************************************/ // IF RC = 0 THEN //***************************************************/ //RUN EXEC PGM=ASMCLG //STEPLIB DD DSN=&SYSUID..LOAD,DISP=SHR //SYSOUT DD SYSOUT=*,OUTLIM=15000 //CEEDUMP DD DUMMY //SYSUDUMP DD DUMMY //***************************************************/ // ELSE // ENDIF