IBM Mainframe Forum

//ASM2950 JOB 1,NOTIFY=&SYSUID                                          00010000
//**************************************************                    00020000
//* COMPILE ASSEMBLER PROGRAM                                           00030000
//**************************************************                    00040000
//CMPLNK  EXEC PROC=HLASMCL,REGION=1000K                                00051013
//C.SYSIN      DD DSN=&SYSUID..SOURCE(ASMCNT),DISP=SHR                  00060000
//L.SYSLMOD    DD DSN=&SYSUID..LOAD(ASMCNT),DISP=SHR,                   00070012
// IF RC = 0 THEN                                                       00080007
//**************************************************                    00090000
//* EXECUTE ASSEMBLER PROGRAM                                           00100000
//**************************************************                    00110000
//EXECUTE EXEC PGM=ASMCNT                                               00120000
//STEPLIB      DD DSN=&SYSUID..LOAD,DISP=SHR                            00130000
//PRTLINE      DD DSN=&SYSUID..&SYSUID..COMPETE.PARTTWO(ASMCNT),        00140010
//             DISP=SHR,OUTLIM=1000                                     00150000

//ASMACL   PROC                                                         00001000
//*                                                                     00002000
//***   ASMACL                                                          00003000
//*                                                                     00004000
//* THIS PROCEDURE RUNS THE HIGH LEVEL ASSEMBLER, LINK-EDITS THE        00005000
//* NEWLY ASSEMBLED PROGRAM.                                            00006000
//*                                                                     00007000
//C        EXEC PGM=ASMA90                                              00008000
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00009000
//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND),             00010000
//             DCB=BUFNO=1,UNIT=SYSALLDA                                00011000
//SYSPRINT DD  SYSOUT=*                                                 00012000
//SYSLIN   DD  DSN=&&OBJ,SPACE=(3040,(40,40),,,ROUND),                  00013000
//             DISP=(MOD,PASS),UNIT=SYSALLDA,                           00014000
//             DCB=(BLKSIZE=3040,LRECL=80,RECFM=FBS,BUFNO=1)            00015000
//L        EXEC PGM=HEWL,PARM='MAP,LET,LIST,NCAL',COND=(8,LT,C)         00016000
//SYSLIN   DD  DSN=&&OBJ,DISP=(OLD,DELETE)                              00017000
//         DD  DDNAME=SYSIN                                             00018000
//SYSLMOD  DD  DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(1,1,1)),             00019000
//             DSN=&&GOSET(GO)                                          00020000
//SYSUT1   DD  DSN=&&SYSUT1,SPACE=(1024,(120,120),,,ROUND),             00021000
//             DCB=BUFNO=1,UNIT=SYSALLDA                                00022000
//SYSPRINT DD  SYSOUT=*                                                 00023000