MVSFORUMS.com

[Narsimha]

Hi,

I am compiling BMS MACROS for the CICS map through scales(TSO option 5). But it is giving the error like SYSLIB not found. Please find the following JCL generated by scales (I have excluded IEFBR14 step)

**********************************************************
//DSECT EXEC PGM=ASMA90, COND=(4,LT,LIBR),
// PARM=('SYSPARM(DSECT),DECK,NOOBJECT,LINE(54)',
// 'LIST,XREF(SHORT)')
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS2.MACLIB,DISP=SHR
// DD DSN=CICST.V33.SDFHMAC,DISP=SHR
// DD DSN=CICST.V170.TEST.MAPLIB,DISP=SHR
//*
//*SYSIN DD DSN=TSONPEL.XX.MAPMAC.LIBR,DISP=SHR
//SYSIN DD DISP=SHR,DSN=TSONPEL.PROD.WORK(MAPMAC)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1000,(200,200))
//SYSUT2 DD UNIT=SYSDA,SPACE=(1000,(200,200))
//SYSUT3 DD UNIT=SYSDA,SPACE=(1000,(200,200))
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DSN=TSONPEL.SDF2.MAP.COPYLIB(MAPMAC),DISP=SHR
//*-----------------------------------------------------*
//* MAP ASSEMBLY *
//*-----------------------------------------------------*
//MAP EXEC PGM=ASMA90,COND=(4,LT,DSECT),
// PARM=('SYSPARM(MAP),DECK,NOOBJECT,LINE(54)',
// 'LIST,XREF(SHORT),ALIGN')
//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR
// DD DSN=SYS2.MACLIB,DISP=SHR
// DD DSN=CICST.V33.SDFHMAC,DISP=SHR
// DD DSN=CICST.V170.TEST.MAPLIB,DISP=SHR
//*
//*SYSIN DD DSN=TSONPEL.XX.MAPMAC.LIBR,DISP=SHR
//SYSIN DD DISP=SHR,DSN=TSONPEL.PROD.WORK(MAPMAC)
//SYSUT1 DD UNIT=SYSDA,SPACE=(1000,(200,200))
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD DSN=TSONPEL.XX.MAPMAC.OBJSET,DISP=(,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(4,1),RLSE)
//*---------------------------------------------------------*
//* L I N K C I C S M A P *
//*---------------------------------------------------------*
//LKED EXEC PGM=IEWL,COND=((4,LT,MAP),(4,LT,DSECT)),
// PARM='XREF,LET,LIST,AMODE=31,RMODE=ANY'
//*
//SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(200,20))
//SYSLMOD DD DISP=SHR,DSN=TSONPEL.LOAD.LIB(MAPMAC)
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=TSONPEL.XX.MAPMAC.OBJSET,DISP=SHR

********************************************

I am getting the following error.

IEF212I TSONPEL3 DSECT SYSLIB +002 - DATA SET NOT FOUND
IEF272I TSONPEL3 DSECT - STEP WAS NOT EXECUTED.

How to find the exact SYSLIB for ASMA90. We have BMS/GT for creating the maps. But I want to compile my macros for some testing. I searched almost all CICS system libraries, but I couldn't found this. I want some help regarding this.

Thanks,
Narsimha

[kolusu]

Narsimha,

Look at the Error message closely

[Manas Biswal]

Try deleting SYS2.MACLIB from the SYSLIB of your DSECT step and run your job. If it does not go through successfully, do a search on SYS*.MACLIB and concatenate all the datasets into your SYSLIB of DSECT step.

Regards,
Manas

[Narsimha]

Kolusu: SYS1.MACLIB is already there at first level of concatenation. Please see the DSECT step for confirmation.

Manas: I deleted SYS2.MACLIB, now it is giving +001(SYS1.MACLIB) not found. Actually SYS*.MACLIB datasets are present but the required member may not be there.

I tried compiling by deleting the SYSLIB itself. Now I am getting the following errors. It is not recognizing the macros it seems.

** ASMA057E Undefined operation code - DFHMSD
** ASMA057E Undefined operation code - DFHMDI
** ASMA057E Undefined operation code - DFHMDF

Thanks,
Narsimha

[Manas Biswal]

[RonB]

I believe that the +002 referred to the THIRD not the SECOND dataset in the concatenation. SYS1.MACLIB would have been referred to as +000. That's why, when you deleted the entry for SYS2.MACLIB the relative number of the erroneous dataset became 1 less.

[Dibakar]

Good observation Ron. Narasimha please confirm if it relates to 'CICST.V33.SDFHMAC'.