Hello Shmuel, Below are my JCL for building ASMLANGX file and REXX exec to start IDF - along with PROFILE to setup session, I use 62x160 screen size.
Hope it helps. Bruce On Thu, 16 May 2024 11:24:25 +0000, Seymour J Metz <sme...@gmu.edu> wrote: >Cross-posted to ASSEMBLER-LIST, IBM-MAIN. > >Is there a list of all the ddnames used by IDF and their functions? The manual >has a section on optional files, but it is missing, e.g., the macro library >ASM. I tried checking the index, with no luck. > >BTW, why did IBM drop the RCF e-mailadddress? It was an easy, robust way to >submit comments. > >-- >Shmuel (Seymour J.) Metz >http://mason.gmu.edu/~smetz3 >עַם יִשְׂרָאֵל חַי >נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר > //ITSXSA3M JOB (ACCT#),'BRUCE HEWSON', // CLASS=U, // MSGCLASS=W //* //* //ASMLINK PROC MBR=,LKPARM='LET,LIST,NCAL,MAP,TEST' //* //ASMOPT EXEC PGM=ASMA90,PARM='OBJ,ADATA,TEST',COND=(0,NE) //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(600,100)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(300,50)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(300,50)) //SYSLIB DD DISP=SHR,DSN=ITSXSA3.USER.SOURCE // DD DISP=SHR,DSN=SYS1.SASMMAC2 // DD DISP=SHR,DSN=SYS1.MACLIB // DD DISP=SHR,DSN=SYS1.MODGEN // DD DISP=SHR,DSN=ITSXSA3.USER.MACLIB //SYSIN DD DISP=SHR,DSN=ITSXSA3.USER.SOURCE(&MBR.) //SYSADATA DD DISP=SHR,DSN=ITSXSA3.USER.SYSADATA(&MBR.) //SYSPUNCH DD DUMMY //SYSLIN DD DISP=(NEW,PASS),DSN=&&OPTTBL, // UNIT=SYSDA,SPACE=(80,(200,50)) //* //LNKOPT EXEC PGM=IEWL,PARM='&LKPARM.',COND=(8,LE,ASMOPT) //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(600,100)) //SYSLIB DD DISP=SHR,DSN=ITSXSA3.USER.LOAD //SYSLMOD DD DISP=SHR,DSN=ITSXSA3.USER.LOAD(&MBR.) //SYSLIN DD DISP=(OLD,DELETE),DSN=&&OPTTBL //* //* //ASMLANGX EXEC PGM=ASMLANGX, // PARM='&MBR (ASM LOUD ERROR' //SYSPRINT DD SYSOUT=* //SYSADATA DD DISP=SHR,DSN=ITSXSA3.USER.SYSADATA //ASMLANGX DD DISP=SHR,DSN=ITSXSA3.USER.ASMLANGX //STEPLIB DD DISP=SHR,DSN=SYS1.SASMMOD2 //* // PEND //* //HOW EXEC ASMLINK,MBR=HOW // REXX exec TESTHOW /*> Insert your program name here <*/ module_name = "HOW" /*> <*/ Parse Arg parmlist "ALLOC F(ASM) DS(ASMIDF.PROFILE) SHR REUS" "ALLOC F(CMDLOG) DS(ASMIDF.CMDLOG) SHR REUS" "ALLOC F(ASMLANGX) DS('ITSXSA3.USER.ASMLANGX') SHR REUS" "ALLOC F(ASMLOADX) DS('ITSXSA3.USER.LOAD' " , " " , ") SHR REUS" "ASMIDF" module_name , "( AUTOLOAD LIBE ASMLOADX PATH CMDLOG PRO" module_name , "/ " parmlist "FREE F(ASM CMDLOG ASMLANGX ASMLOADX)" Return BROWSE ITSXSA3.ASMIDF.PROFILE(HOW) ********************************* Top o 'OREGS' 'MOVE OREGS 1 80' 'REGS' 'OPTIONS' 'MOVE OPTIONS 9 80' 'DISASM' 'STMTSTEP' 'OPEN DUMP' 'MOVE DUMP 15 80' 'OPEN DUMP' 'MOVE =6 30 80' 'FOLLOW =5 R13' 'FOLLOW =6 R11' 'DBREAK (HOW) HOW+80 ' ******************************** Bottom ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
