Hello Fellow Mainframers!
I have another SMP/E opportunity for you to help on.
I have 8 load modules that have been assembled and linked standalone outside of
SMP/E.
I have delivered those 8 load modules to my target zone via ++PROGRAM
statements, each in their own usermod and each in their own "maintaining" job
stream. Each of the were delivered to SMP/E successfully as can be seen from
return codes of 00 in the jobs and inquiries using the SMP/E interactive tool.
Bottom line, each of them have an entry similar to the example entries below:
To return to the previous panel, enter END .
Primary Command: FIND
Entry Type: MOD Zone Name: IDMSTZ2
Entry Name: IDACFGCV Zone Type: TARGET
FMID: LASTUPD: U2LUXIT TYPE=ADD
RMID: DISTLIB: AAGJMOD
Link-edit Parameters:
-------- -------- -------- -------- -------- -------- --------
LMOD RHDCUXIT
And:
To return to previous panel, enter END .
Primary Command: FIND
Entry Type: PROGRAM Zone Name: IDMSTZ2
Entry Name: IDACFGCV Zone Type: TARGET
LASTUPD: U2CFGCV TYPE=ADD
FMID CAGJI00
RMID U2CFGCV
DISTLIB AAGJMOD
SYSLIB CAGJLOAD
-------- -------- -------- -------- -------- -------- --------
I am trying to combing these 8 modules into a load module in a final, 9th
usermod.
The 9th usermod has a small program being delivered in order to "force" the
assembly and link of the final module.
The program in this usermod is delivered via a ++SRC statement and assembled
clean and triggers the link.
The problem is, during the APPLY, this is what I get:
PAGE 0001 - NOW SET TO TARGET ZONE IDMSTZ2 DATE 08/12/14 TIME 14:19:28
SMP/E 36.38 SMPOUT OUTPUT
GIM42401I THE FOLLOWING PARAMETERS WERE SPECIFIED ON THE EXEC STATEMENT FOR
GIMSMP: 'DATE=U'.
SET BOUNDARY(IDMSTZ2).
GIM20501I SET PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 00.
APPLY
SELECT(U2LUXIT)
.
GIM41802I INLINE JCLIN PROCESSING WAS SUCCESSFUL FOR SYSMOD U2LUXIT.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
IDACFGCV BECAUSE IDACFGCV HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
IDAXIT0D BECAUSE IDAXIT0D HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
IDAXIT0E BECAUSE IDAXIT0D HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
IDAXIT00 BECAUSE IDAXIT0D HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
IDAXIT05 BECAUSE IDAXIT0D HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
IDAXIT07 BECAUSE IDAXIT0D HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
RHDCUX34 BECAUSE RHDCUX34 HAS NOT BEEN
INSTALLED.
GIM67301W LOAD MODULE RHDCUXIT IN SYSLIB CAGJLOAD DOES NOT INCLUDE MODULE
TFDCUXIT BECAUSE TFDCUXIT HAS NOT BEEN
INSTALLED.
GIM40902I COPY PROCESSING TO THE SMPSTS LIBRARY WAS SUCCESSFUL FOR SOURCE
U2LKUXIT IN SYSMOD U2LUXIT. THE RETURN CODE
WAS 00. DATE 14.224 - TIME 14:19:33 - SEQUENCE NUMBER 000001.
GIM24003I ASSEMBLER PROCESSING FOR SYSMOD U2LUXIT WAS SUCCESSFUL FOR MODULE
U2LKUXIT IN THE SMPSTS LIBRARY. THE
RETURN CODE WAS 00. DATE 14.224 - TIME 14:19:33.
GIM23911E ** LINK-EDIT PROCESSING FOR SYSMOD U2LUXIT FAILED FOR MODULE U2LKUXIT
IN LMOD RHDCUXIT IN THE CAGJLOAD
LIBRARY. THE RETURN CODE (08) EXCEEDED THE ALLOWABLE VALUE. DATE
14.224 - TIME 14:19:33 - SEQUENCE NUMBER
000002 - SYSPRINT FILE SMP00006.
GIM30216I APPLY PROCESSING FAILED FOR SYSMOD U2LUXIT. SYSTEM UTILITY
PROCESSING FAILED FOR AN ELEMENT IN U2LUXIT.
GIM20501I APPLY PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 08.
GIM20502I SMP/E PROCESSING IS COMPLETE. THE HIGHEST RETURN CODE WAS 08.
SMP/E IS AT LEVEL 36.38.
This is an example of the 8 usermods to deliver the 8 standalone modules:
//SYSIN DD *
SET BOUNDARY(GLOBAL).
RECEIVE
SELECT(U2CFGCV)
.
/*
//SMPPTFIN DD *
++USERMOD (U2CFGCV)
.
++VER(Z038)
FMID(CAGJI00)
.
++PROGRAM(IDACFGCV)
DISTLIB(AAGJMOD)
LKLIB(IPO7TGT)
SYSLIB(CAGJLOAD)
.
/*
This is the 9th usermod to construct the final load module:
//SYSIN DD *
SET BOUNDARY(GLOBAL).
RECEIVE
SELECT(U2LUXIT)
.
/*
//SMPPTFIN DD DATA,DLM='%%'
++USERMOD (U2LUXIT)
.
++VER(Z038)
FMID(CAGJI00)
.
++JCLIN.
//CAIDMS JOB (12345),'CA-IDMS/DB INSTALL' THIS JOB CARD OK AS IS
//JCLIN150 EXEC PGM=IEWL,PARM='XREF,LET,LIST,MAP'
//SYSLMOD DD DSN=CAGJLOAD,DISP=SHR
//AAGJMOD DD DSN=DO.NOT.CHANGE.AAGJMOD,DISP=SHR
//SYSLIN DD *
ORDER RHDCUXIT
INCLUDE AAGJMOD(TFDCUXIT)
INCLUDE AAGJMOD(IDACFGCV)
INCLUDE AAGJMOD(IDAXIT00)
INCLUDE AAGJMOD(IDAXIT05)
INCLUDE AAGJMOD(IDAXIT07)
INCLUDE AAGJMOD(IDAXIT0D)
INCLUDE AAGJMOD(IDAXIT0E)
INCLUDE AAGJMOD(RHDCUX34)
INCLUDE AAGJMOD(U2LKUXIT)
ENTRY UXITEP1
NAME RHDCUXIT(R)
/*
++SRC(U2LKUXIT)
DISTLIB(AAGJSRC)
DISTMOD(AAGJMOD)
.
#MOPT CSECT=U2LKUXIT
#ENTRY LNKUXIEP
SR 15,15
BR 14
END LNKUXIEP
%%
Any thoughts about what might be incorrect or missing would be greatly
appreciated.
Thanks,
Chuck
Charles (Chuck) Hardee
Senior Systems Engineer/Database Administration
CCG Information Technology
Thermo Fisher Scientific
300 Industry Drive | Pittsburgh, PA 15275
Phone +1 (724) 517-2633 | Mobile +1 (412) 877-2809 | FAX: +1 (412) 490-9230
[email protected] | www.thermofisher.com
WORLDWIDE CONFIDENTIALITY NOTE: Dissemination, distribution or copying of this
e-mail or the information herein by anyone other than the intended recipient,
or an employee or agent of a system responsible for delivering the message to
the intended recipient, is prohibited. If you are not the intended recipient,
please inform the sender and delete all copies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
