Hi, Below is my JCL where I want to compile my MAP load module at RMODE-24 and AMODE - 24, but the Load module is getting created with AMODE-31,RMODE-ANY.
TRNR007.LOADLIB //MAPCOMP JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=B, // REGION=5M,NOTIFY=&SYSUID //********************************************************************** //* INPUT AREA * //********************************************************************** // SET SOURCE=TRNR007.TEST.BMS(TRNM007) <-PROGRAM SOURCE // SET LOAD=TRGTRN01.CICS.LOAD(TRNM007) <-LOAD LIBRARY // SET COPY=TRNR007.COPYLIB(TRNM007) <-COPY LIBRARY //********************************************************************** //* ASSEMBLES MAP INTO AN EXECUTABLE MAP (PHYSICAL MAP) * //********************************************************************** //ASMMAP EXEC PGM=ASMA90, // PARM='SYSPARM(MAP),DECK,NOOBJECT,ALIGN', // REGION=4M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DSN=&&OBJMOD, // DISP=(,PASS),UNIT=SYSDA, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // SPACE=(400,(100,100)) //SYSPRINT DD SYSOUT=* //SYSIN DD DISP=SHR,DSN=&SOURCE //********************************************************************** //* PUTS THE MAP INTO LINK LIBRARY * //********************************************************************** //LNKEDT EXEC PGM=IEWL, // PARM='NORENT,LIST,XREF,LET,NCAL', // COND=(3,LT,ASMMAP) //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,50)) //SYSPRINT DD SYSOUT=* //SYSLMOD DD DISP=SHR,DSN=&LOAD //SYSLIN DD DSN=&&OBJMOD,DISP=(OLD,PASS) //********************************************************************** //* CREATES COPYBOOK AND ADDS IT INTO COPYBOOK LIBRARY (SYMBOLIC MAP) * //********************************************************************** //DSECT EXEC PGM=ASMA90, // PARM='SYSPARM(DSECT),DECK,NOOBJECT,ALIGN', // REGION=5M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DISP=SHR,DSN=© //SYSPRINT DD SYSOUT=* //SYSIN DD DISP=SHR,DSN=&SOURCE Could anyone please guide if my above JCL needs any Correction to get the load module as : AMODE : 24,RMODE:24. When I check the LKEDT executed step : TRNR007.LOADLIB //MAPCOMP JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=B, // REGION=5M,NOTIFY=&SYSUID //********************************************************************** //* INPUT AREA * //********************************************************************** // SET SOURCE=TRNR007.TEST.BMS(TRNM007) <-PROGRAM SOURCE // SET LOAD=TRGTRN01.CICS.LOAD(TRNM007) <-LOAD LIBRARY // SET COPY=TRNR007.COPYLIB(TRNM007) <-COPY LIBRARY //********************************************************************** //* ASSEMBLES MAP INTO AN EXECUTABLE MAP (PHYSICAL MAP) * //********************************************************************** //ASMMAP EXEC PGM=ASMA90, // PARM='SYSPARM(MAP),DECK,NOOBJECT,ALIGN', // REGION=4M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DSN=&&OBJMOD, // DISP=(,PASS),UNIT=SYSDA, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=0), // SPACE=(400,(100,100)) //SYSPRINT DD SYSOUT=* //SYSIN DD DISP=SHR,DSN=&SOURCE //********************************************************************** //* PUTS THE MAP INTO LINK LIBRARY * //********************************************************************** //LNKEDT EXEC PGM=IEWL, // PARM='NORENT,LIST,XREF,LET,NCAL', // COND=(3,LT,ASMMAP) //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,50)) //SYSPRINT DD SYSOUT=* //SYSLMOD DD DISP=SHR,DSN=&LOAD //SYSLIN DD DSN=&&OBJMOD,DISP=(OLD,PASS) //********************************************************************** //* CREATES COPYBOOK AND ADDS IT INTO COPYBOOK LIBRARY (SYMBOLIC MAP) * //********************************************************************** //DSECT EXEC PGM=ASMA90, // PARM='SYSPARM(DSECT),DECK,NOOBJECT,ALIGN', // REGION=5M //SYSLIB DD DSN=CICSTS31.CICS.SDFHMAC,DISP=SHR // DD DSN=CICSTS31.CICS.SDFHSAMP,DISP=SHR // DD DSN=SYS1.MACLIB,DISP=SHR //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400)) //SYSPUNCH DD DISP=SHR,DSN=© //SYSPRINT DD SYSOUT=* //SYSIN DD DISP=SHR,DSN=&SOURCE SAVE MODULE ATTRIBUTES: AC 000 AMODE 31 COMPRESSION NONE DC NO EDITABLE YES EXCEEDS 16MB NO EXECUTABLE YES MIGRATABLE YES OL NO OVLY NO PACK,PRIME NO,NO PAGE ALIGN NO REFR NO RENT NO REUS NO RMODE ANY SCTR NO SSI SYM GENERATED NO TEST NO XPLINK NO MODULE SIZE (HEX) 00000248 DASD SIZE (HEX) 00001000 Not sure how to change this modes. Could anyone please point me to the right direction. Regards, Jags ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
