This got rejected the first time because of some listserv conflict, but here goes again.
//**CHANGE 'INDEX' to CICS lib hlq //**to run: EXEC CIVSMAP,MOD=maploadname,SRCNAME=sourcemodname //CIVSMAP PROC ASMBLR=IEV90, 00000100 // LIST='LIST,XREF,LET', 00000200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 00000400 // WORK=SYSDA 00000500 //U0 EXEC PGM=IEFBR14 00001500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 00001500 //SYSPRINT DD SYSOUT=&OUTC 00001600 //SYSUT1 DD DSN=&SRCLIB,DISP=SHR 00001700 //SYSUT2 DD DSN=&SRCLIB,DISP=SHR 00001800 //* 00001900 //DSECT EXEC PGM=&ASMBLR,COND=(3,LT,UPDTE), 00002000 // PARM='DECK,SYSPARM(DSECT)' 00002100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 00002200 // DCB=&INDEX..SDFHMAC 00002200 // DD DSN=&INDEX..SDFHMAC,DISP=SHR 00002300 // DD DSN=©LIB,DISP=SHR 00002300 //SYSUT1 DD UNIT=&WORK,SPACE=(1700,(400,400)) 00002500 //SYSUT2 DD UNIT=&WORK,SPACE=(1700,(400,400)) 00002600 //SYSUT3 DD UNIT=&WORK,SPACE=(1700,(400,400)) 00002700 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=©LIB(&MOD),DISP=SHR 00002800 //SYSPRINT DD SYSOUT=&OUTC 00002900 //SYSIN DD DSN=&SRCLIB(&SRCNAME),DISP=SHR 00003000 //* 00003100 //MAP EXEC PGM=&ASMBLR,COND=((7,LT,DSECT),(3,LT,UPDTE)), 00003200 // PARM='SYSPARM(MAP),DECK' 00003300 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 00003400 // DCB=&INDEX..SDFHMAC 00003400 // DD DSN=&INDEX..SDFHMAC,DISP=SHR 00003500 // DD DSN=©LIB,DISP=SHR 00003500 //SYSUT1 DD UNIT=&WORK,SPACE=(1700,(400,400)) 00003700 //SYSUT2 DD UNIT=&WORK,SPACE=(1700,(400,400)) 00003800 //SYSUT3 DD UNIT=&WORK,SPACE=(1700,(400,400)) 00003900 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=&&OBJMOD(&MOD), 00004000 // UNIT=&WORK,DISP=(,PASS), 00004100 // SPACE=(400,(100,100,1)), 00004200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) 00004300 //SYSPRINT DD SYSOUT=&OUTC 00004400 //SYSIN DD DSN=&SRCLIB(&SRCNAME),DISP=SHR 00004500 //* 00004600 //LKED EXEC PGM=IEWL,REGION=4M, 00004700 // PARM=(&LIST), 00004800 // COND=(7,LT,MAP) 00004900 //SYSUT1 DD UNIT=&WORK,SPACE=(1024,(100,10)) 00005000 //SYSLMOD DD DSN=&USERLOAD(&MOD),DISP=SHR 0000510 //LOADLIB DD DSN=&INDEX..SDFHLOAD,DISP=SHR 00005200 //SYSPRINT DD SYSOUT=&OUTC 00005300 //SYSPUNCH DD DUMMY 00005400 //SYSLIN DD DSN=&&OBJMOD(&MOD),UNIT=SYSDA,DISP=(OLD,DELETE) 00005500 // DD DDNAME=SYSIN //SYSIN DD DUMMY //******* -----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Matthew Stitt Sent: Tuesday, July 06, 2010 5:10 PM To: IBM-MAIN@bama.ua.edu Subject: Re: Sample BMS Compile JCL Well, here is what I used: //STEP01 EXEC DFHMAPT,MAPLIB='MSTITT.HBOC.MAP.LOADLIB', // DSCTLIB='MSTITT.HBOC.MAP.SOURCE', // TEMPLIB='MSTITT.HBOC.MAP.WEBLIB', // MAPNAME=DFH0STS, // A=, // OUTC=* //COPY.SYSUT1 DD DSN=&&EXPND,DISP=(OLD,DELETE) Note: DFHMAPS is for normal map generation, DFHMAPT is to add the HTML version. On Tue, 6 Jul 2010 23:36:08 +0300, Sergio Lima <sergio...@hotmail.com> wrote: >Hello List, > > > >We need here, compile some BMS MAPS, and don't have the JCL to do this in hand. > >We have my source maps in lib USER.CICS.MAPAS, need put the Cobol copybook in the USER.CICS.COPYLIB, > >and catalog the load modules in the USER.CICS.LOAD. > > > >Someone can help us about this ? > > > >Thanks ---------------------------------------------------------------------- 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 ---------------------------------------------------------------------- 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
