Why not just a general LINK31 routine to be called for any program … ACONTROL OPTABLE(ZS3) SPLEVEL SET=6 Specify OS/390 R2 MACRO Format SYSSTATE ARCHLVL=2 Program Requires Z/Architecture SYSSTATE OSREL=ZOSV1R13 Program Requires Z/OS 1.13 & Higher LINK31 CSECT , LINK31 AMODE 31 LINK31 RMODE ANY BAKR R14,0 LR R4,R0 Copy Parameter List Address LR R5,R1 Copy Program Name Address LARL R12,LINK31 Set Base Address USING LINK31,R12 SAM31 , STORAGE OBTAIN,LENGTH=WRKLEN,LOC=ANY LR R13,R1 USING WRKAREA,R13 LR R1,R4 Restore Parameter Address LINK EPLOC=(R5) Call Requested Program LR R4,R0 Copy Reason Code LR R5,R15 Copy Return Code STORAGE RELEASE,LENGTH=WRKLEN,ADDR=(R13) LR R0,R4 Restore Reason Code LR R15,R5 Restore Return Code PR , Return To Caller LTORG , WRKAREA DSECT , DS 18F WRKLEN EQU *-WRKAREA YREGS , END ,
Then pass parms in R0 and the program name in R1. Could be used for IGGCSI00 or any other program when in 64 bit mode. Dan ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN