Sure, here is an extract from my program, the relevant JCL, plus an output sample. MAKESTR is a macro of mine to format a string, The LOG macro is basically a PUT SYSPRINT.
LOAD EP=BPXWDYN
lr r10,0
* length at front
lr 15,10 r15 -> bpxwdyn
sr 0,0 r0 = 0
call (15),(info1,inrtds1),VL
st r15,fw
makestr logr,'rc ',(fw,4,cvxd), c
' dsn: ',(inrtds1,2,cvxd),+1,(inrtds1+2,44)
log ,
* null-delimited
lr 15,10 r15 -> bpxwdyn
sr 0,0 r0 = 0
call (15),(info2,inrtds2),VL
st r15,fw
makestr logr,'rc ',(fw,4,cvxd), c
' dsn: ',(inrtds2,2,cvxd),+1,(inrtds2+2,44)
log ,
DELETE EP=BPXWDYN
INFO1 dc y(info1l),C'INFO DD(INFOLIB1)'
info1l equ *-info1-2
inrtds1 dc y(44),cl44'INRTDSN'
INFO2 dc C'INFO DD(INFOLIB2)',x'00'
inrtds2 dc y(44),cl44'INRTDSN'
//G.SYSPRINT DD SYSOUT=*
//G.INFOLIB1 DD DISP=SHR,DSN=WJENSEN.LIB.CLIST
//G.INFOLIB2 DD DISP=SHR,DSN=WJENSEN.LIB.CNTL
rc 00000000 dsn: 0011 WJENSEN.LIB.CLIST
rc 00000000 dsn: 0010 WJENSEN.LIB.CNTL
-----Oprindelig meddelelse-----
Fra: IBM Mainframe Assembler List [mailto:[email protected]] På
vegne af David Staudacher
Sendt: 23. december 2017 21:22
Til: [email protected]
Emne: Re: Calling BPXWDYN to Return DSNAME for DDNAME
"I have tested both versions in 1.13 and 2.3 systems successfully."
Good to know Willie! Could you post the essentials of your successful INFO call
to return DSNAME for DDNAME?
I'd like to see how it differs from mine, which failed.
