Hi, I am trying to install a tool SOUTSYS(CBT358) but i am stuck at the JES SVC compilation.
The supplied code was for z1.4(very old one) but i am trying to install on z1.10. I tried contacting the Autohr but no luck. So, reaching out for help. i ran into a problem in compiling a SVC (IGC0025B). Here is my JCL. //ASMSVC EXEC PGM=ASMA90, // PARM='NODECK,OBJECT,XREF(SHORT),LIST' //SYSUT1 DD DSN=&&SYSUT1,SPACE=(4096,(120,120),,,ROUND), // UNIT=SYSDA,DCB=BUFNO=1 //SYSLIN DD DUMMY HR,DSN=SOUTSYS.OBJLIB(IGC0025B) <======= //SYSLIB DD DSN=SOUTSYS.ASM,DISP=SHR,DCB=(BLKSIZE=9600) // DD DSN=SOUTSYS.MACLIB,DISP=SHR,DCB=(BLKSIZE=27920) // DD DISP=SHR,DSN=SYS1.SHASMAC // DD DISP=SHR,DSN=SYS1.MACLIB // DD DISP=SHR,DSN=SYS1.AMODGEN //SYSPRINT DD SYSOUT=* //SYSIN DD DSN=SOUTSYS.ASM(MVSGPSVC),DISP=SHR //*-------------------------------------------------------------------- //LKEDSVC EXEC PGM=IEWL,REGION=2000K,COND=(4,LT,ASMSVC), // PARM=(NCAL,LET,RENT,LIST,XREF) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=(CYL,(20,20)) //OBJLIB DD DUMMY HR,DSN=SOUTSYS.OBJLIB <========== //SYSLMOD DD DSN=SYS1.LPALIB,DISP=SHR //SYSLIN DD * NAME IGC0025B(R) /* fro syslib SYS1.SHASMAC($HCCT) 000759 * LARL R11,HCCT Get HCCT address 000760 DC X'C0B0',AL4((HCCT-(CCTXMSRB+L'CCTXMSRB))/2) 000761 L R15,CCTCADDR-HCCT(R11,0) Get CADDR address 000762 L R15,C@XMXSRB-CADDR(R15,0) Get SRB address 000763 BR R15 and enter service 000764 SPACE 1 -------------------- 000456 0000 0000 00000 10794+ L R15,C@XMXSRB-CADDR(R15,0) ** ASMA044E Undefined symbol - C@XMXSRB ** ASMA044E Undefined symbol - CADDR ** ASMA435I Record 763 in SYS1.SHASMAC($HCCT) on volume: ZARES1 00046A 0000 0000 00000 10803+ L R15,C@XMXRMTR-CADDR(R15,0 ** ASMA044E Undefined symbol - C@XMXRMTR ** ASMA044E Undefined symbol - CADDR ** ASMA435I Record 772 in SYS1.SHASMAC($HCCT) on volume: ZARES1 000010 0000 0000 00000 11229+ L R15,C@$MSDDUMP-CADDR(R15, ** ASMA044E Undefined symbol - C@$MSDDUMP ** ASMA044E Undefined symbol - CADDR ** ASMA435I Record 1256 in SYS1.SHASMAC($HCCT) on volume: ZARES1 000028 0000 0000 00000 11245+ L R15,C@$DYNLPA-CADDR(R15,0 ------------------------------------- i feel we need to use USING ($CADDRR) but not sure where. Please help me. Thanks in Advance ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
