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
