http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2B190/6.2
Why you would want BMS maps living below the 16MB line is beyond me....
-jc-
> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of jagadishan perumal
> Sent: Wednesday, November 09, 2011 3:33 AM
> To: [email protected]
> 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
----------------------------------------------------------------------
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
