IBM Mainframe Forum

Dear Friends,

on route to my goal I am stranded. My goal is to run an online MPP application in IMS control region. For this I created the required IMS objects: COBOL sourrce code, PSB, DBD, MFs, target and distribution regions, FUNCTION type SYSMOD object in the target region. I runned the SMP/E RECEIVE command for to insert the my SYSMOD object into global zone. These steps all returned success state. And finish I runned the SMP/E APPLY command for insert the my required load modules into target libraries. This step returned also success state. But the load modules not creted. Not in the target libraries and not in anywhere. For thie please send me some words about to result this problem.

Best Regards
futohomok from Hungary (in Europe)

The SMPLOG should give you some idea about what happened.

Dear Robert,

very thanks for your reply, but that's just my problem. Nothing error message is in SMPLOG or in SYSTEM LOG or anywhere. On every place is only RC=0 or SUCCESSFUL UPDATE message.

Best Regards
futohomok from Hungary (in Europe)

What does the DDDEF for LOADLIB have?

These users thanked the author Robert Sample for the post:

futohomok (Mon Oct 16, 2023 8:16 pm)

Dear Robert,

very thanks for your reply, and excuse me that I don't know what you name LOADLIB. I defined two DDDEF entries in the SYSMOD definirion. MODBLKS for target library and SYSPUNCH for didtribution library

SET BDY(IMSTZ91). /* new FUNCTION SYSMOD inserting into IMSTZ91 */
UCLIN.
ADD SYSMOD(LIA7908) FUNCTION
DESCRIPTION(ZNONLN)
APPLY RECDATE(23285) INSDATE(23285)
FMID(LIA7908).
ADD DDDEF(MODBLKS)
DA(IMS.V9R1.IMSA.MODBLKS)
SHR.
ADD DDDEF(SYSPUNCH)
DA(IMS.V9R1.IMSA.SYSPUNCH)
SHR.
ENDUCL.

And I made a MCS file which contains a ++JCLIN command

++FUNCTION(LIA7908) DESCRIPTION(ZNONLN) /* ZNONLN MPP app */.
++VER(P115).
++JCLIN TXLIB(SMPJCLIN).
++MOD(DFSDDIRA) DISTLIB(MODBLKS) LMOD(DFSDDIRA) TXLIB(SMPJCLIN).
++MOD(DFSISDBA) DISTLIB(MODBLKS) LMOD(DFSISDBA) TXLIB(SMPJCLIN).
++MOD(DFSPDIRA) DISTLIB(MODBLKS) LMOD(DFSPDIRA) TXLIB(SMPJCLIN).
++MOD(DFSRCTEA) DISTLIB(MODBLKS) LMOD(DFSRCTEA) TXLIB(SMPJCLIN).
++MOD(DFSSMB0A) DISTLIB(MODBLKS) LMOD(DFSSMB0A) TXLIB(SMPJCLIN).

And this MCS file calls the SMPJCLIN dataset which contain the definitions for new IMSA region. These are all OK. My problem is that in SMPJCLIN ds are modules which don't assembled by ASMA90 utility. Example

//STEP12 EXEC PGM=ASMA90,REGION=0M,
// PARM=(OBJECT,NODECK,NODBCS,NOLIST,NOTERM,
// 'SIZE(MAX,ABOVE)',NOUSING,FLAG(NOPUSH),COMPAT(NOCASE))
//SYSLIB DD DSN=IMS.V9R1.IMSA.OPTIONS,DISP=SHR
// DD DSN=IMS.V9R1.ADFSMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
//SYSLIN DD DISP=OLD,
// DSN=IMS.V9R1.IMSA.OBJDSET(DFSDDIRA)
//SYSPRINT DD SYSOUT=A,
// DCB=(BLKSIZE=605),
// SPACE=(605,(100,50),RLSE,,ROUND)
//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),
// DCB=BLKSIZE=13024,
// SPACE=(CYL,(15,15))
//SYSIN DD *
DFSDMD ADMIDX1,0000,4
DFSDMD ADMOBJ1,0000,4
DFSDMD ADMSYSDF,0000,4
DFSDMD CELDCUST,0000,3
DFSDMD CELDCUSX,0000,3
DFSDMD CELDPROD,0000,3
DFSDMD CELDPROX,0000,3
....
DFSDMD ZNDBD,0000,3
DFSDMD GEN
END


That is the DFSDDIRA object don't created in IMS.V9R1.IMSA.OBJDSET pds. For this I would like to ask from you that send me some words about this.

Best Regards
futohomok from Hungary (in Europe)