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