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 [email protected] with the message: INFO IBM-MAIN
