I am glad that you are working again Sergio. The proc I sent you is just a working copy of DFHMAP that can be put in stream or in a proclib under any name you want. I used the names you specified - ©LIB(&MOD) (ie: USER.CICS.COPYLIB(maploadname)) referenced in the DSECT.SYSPUNCH dd statement is where the COBOL copy code will be stored.
-----Original Message----- From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Sergio Lima Sent: Wednesday, July 07, 2010 9:41 AM To: IBM-MAIN@bama.ua.edu Subject: Re: Sample BMS Compile JCL Hello Eileen. Very glad see you again. I'm working again with Z/VSE and Z/VM, but, will migrate this year to ZOS. So, We need do some test here, and start with Compile BMS maps for next, compile some Cobol CICS Program. Let me understand (If I can), I need, catalog, a PROC, with name = CIVSMAP, and next, compile my map, using this proc in my JCL, specifying MOD=maploadname, SRCNAME=sourcename ? Where is the lib, that will be cataloged the BOOKS for insert COPY in COBOL CICS PROGRAM ? Eileen, thanks very much, for now. Sergio > Date: Wed, 7 Jul 2010 08:53:58 -0400 > From: ebar...@doitt.nyc.gov > Subject: Re: Sample BMS Compile JCL > To: IBM-MAIN@bama.ua.edu > > 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 _________________________________________________________________ QUER ANEXAR VĂRIAS FOTOS NUM EMAIL? PREPARE-SE PARA O NOVO HOTMAIL. CLIQUE AQUI. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:QUERANEXAR80:- ---------------------------------------------------------------------- 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
