CICS will log the map above the line not matter what the attributes are. Chip Grantham | Ameritas | Sr. IT Consultant | [email protected] 5900 O Street, Lincoln NE 68510 | p: 402-467-7382 | c: 402-429-3579 | f: 402-325-4030
jagadishan perumal <[email protected]> Sent by: IBM Mainframe Discussion List <[email protected]> 11/09/2011 04:14 AM Please respond to IBM Mainframe Discussion List <[email protected]> To [email protected] cc Subject RMODE and AMODE at 24 - Query 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html ******* This message may contain confidential information intended only for the use of the addressee(s) named above and may contain information that is legally privileged. If you are not the addressee, or the person responsible for delivering it to the addressee, you are hereby notified that reading, disseminating, distributing or copying this message is strictly prohibited. If you have received this message by mistake, please immediately notify us by replying to the message and delete the original message immediately thereafter. Thank you. ******* ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
