Re: rexx calls to utilities using dd list
That would require a massive redesign. From: IBM Mainframe Discussion List on behalf of Paul Gilmartin <042bfe9c879d-dmarc-requ...@listserv.ua.edu> Sent: Sunday, March 26, 2023 10:05 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: rexx calls to utilities using dd list On Sun, 26 Mar 2023 03:17:42 -0500, Willy Jensen wrote: >This DD override feature can be used for all IBM standard utilities, I have >recently used it with IEBGENER. > A valuable feature. I've used it with IEBGENER also, with the SDSF API which generates DD names that I can override generally to SYSUT1. However, two design shortcomings: o The list should be not positional but keyworded, to support overriding of arbitrary DDNAMEs. o The override should be performed by the interface level (e.g. ATTACH), freeing the utility developer of the burden of coding to interpret the list and freeing the user of the restriction to "IBM standard utilities" or ISV utilities following IBM's convention. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: rexx calls to utilities using dd list
On Sun, 26 Mar 2023 03:17:42 -0500, Willy Jensen wrote: >This DD override feature can be used for all IBM standard utilities, I have >recently used it with IEBGENER. > A valuable feature. I've used it with IEBGENER also, with the SDSF API which generates DD names that I can override generally to SYSUT1. However, two design shortcomings: o The list should be not positional but keyworded, to support overriding of arbitrary DDNAMEs. o The override should be performed by the interface level (e.g. ATTACH), freeing the utility developer of the burden of coding to interpret the list and freeing the user of the restriction to "IBM standard utilities" or ISV utilities following IBM's convention. -- gil -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: rexx calls to utilities using dd list
This DD override feature can be used for all IBM standard utilities, I have recently used it with IEBGENER. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
rexx calls to utilities using dd list
for the records:-
/*===*/
/* Rexx - Invoke IEBUPDTE with alternate ddnames.*/
/*===*/
Iebupdte_Utility: Procedure
Call Write_Log "Iebupdte_Utility: start processing"
prog = 'IEBUPDTE'
parm = 'NEW'/* Standard PARM, as from JCL*/
ddlist = Copies('00'x, 8) ||, /* DDname 1 override: SYSLIN*/
Copies('00'x, 8) ||, /* DDname 2 override: n/a */
Copies('00'x, 8) ||, /* DDname 3 override: SYSLMOD */
Copies('00'x, 8) ||, /* DDname 4 override: SYSLIB*/
Left('UPDIN', 8) ||, /* DDname 5 override: SYSIN */
Left('UPDPRT',8) ||, /* DDname 6 override: SYSPRINT */
Copies('00'x, 8) ||, /* DDname 7 override: SYSPUNCH */
Left('INP', 8) ||, /* DDname 8 override: SYSUT1*/
Left('OUT', 8) ||, /* DDname 9 override: SYSUT2*/
Copies('00'x, 8) ||, /* DDname 10 override: SYSUT3*/
Copies('00'x, 8) ||, /* DDname 11 override: SYSUT4*/
Copies('00'x, 8) ||, /* DDname 12 override: SYSTERM */
Copies('00'x, 8) ||, /* DDname 13 override: n/a */
Copies('00'x, 8) /* DDname 14 override: SYSCIN*/
Address 'LINKMVS' prog 'PARM DDLIST'
linkmvs_rc = rc
Call Write_Log "Iebupdte_Utility: end processing. Return code:" linkmvs_rc
Return linkmvs_rc
/*===*/
/* Rexx - Invoke IEHLIST with alternate ddnames.*/
/*===*/
Iehlist_Utility: Procedure
Call Write_Log "Iehlist_Utility: start processing"
prog = 'IEHLIST'
parm = ''
ddlist = Copies('00'x, 8) ||, /* DDname 1 override: SYSLIN*/
Copies('00'x, 8) ||, /* DDname 2 override: n/a */
Copies('00'x, 8) ||, /* DDname 3 override: SYSLMOD */
Copies('00'x, 8) ||, /* DDname 4 override: SYSLIB*/
Left('LSTIN', 8) ||, /* DDname 5 override: SYSIN */
Left('LSTPRT',8) ||, /* DDname 6 override: SYSPRINT */
Copies('00'x, 8) ||, /* DDname 7 override: SYSPUNCH */
Copies('00'x, 8) ||, /* DDname 8 override: SYSUT1*/
Copies('00'x, 8) ||, /* DDname 9 override: SYSUT2*/
Copies('00'x, 8) ||, /* DDname 10 override: SYSUT3*/
Copies('00'x, 8) ||, /* DDname 11 override: SYSUT4*/
Copies('00'x, 8) ||, /* DDname 12 override: SYSTERM */
Copies('00'x, 8) ||, /* DDname 13 override: n/a */
Copies('00'x, 8) /* DDname 14 override: SYSCIN*/
Address 'LINKMVS' prog 'PARM DDLIST'
linkmvs_rc = rc
Call Write_Log "Iehlist_Utility: end processing. Return code:" linkmvs_rc
Return linkmvs_rc
/*===*/
Regards
Bruce
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
