Sergio; The JCL I sent you uses the SYSUT1 DD statement to point to the input file containing the BMS assembler source code. The DSCTLIB is the COBOL source output. The MAPLIB is the load module output.
Perusing the procedure source in SDFHPROC would probably answer all your questions. Also I'm sure that a trip through the CICS Application Programming manuals would have the information on generating the BMS maps for CICS and application usage. On Wed, 7 Jul 2010 18:27:03 +0300, Sergio Lima <sergio...@hotmail.com> wrote: >Hello Eileen, > > > >Run ok, run ok... > > > >Thanks very much again Eileen. > > > >You are the best. > > > >Again, save my life. > > > >One of this days, must pay to you. > > > >Best Regards, > > > >Sergio > >> Date: Wed, 7 Jul 2010 11:16:16 -0400 >> From: ebar...@doitt.nyc.gov >> Subject: Re: Sample BMS Compile JCL >> To: IBM-MAIN@bama.ua.edu >> >> Try changing the program name to ASMA90 from IEV90. >> Or just steplib to SYS1.ASM.SASMMOD1 which should be in linklist. >> I assume that you are running on the Z/os system and not VSE - >> If so, check the ASM* members in SYS1.PROCLIB for the correct module name for your release of z/os. >> >> -----Original Message----- >> From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of Sergio Lima >> Sent: Wednesday, July 07, 2010 11:07 AM >> To: IBM-MAIN@bama.ua.edu >> Subject: Re: Sample BMS Compile JCL >> >> Hello Eileen, >> >> >> >> I submit my job like this : >> >> >> >> //CIC#XXXX JOB (CIC,SP,72613,09,40),'SUPORTE',MSGCLASS=T,CLASS=A, >> // NOTIFY=&SYSUID,REGION=0M >> //* >> //ASSEMABE EXEC CIVSMAP,MOD='CAC001M', >> // INDEX='DFH310.CICS' >> >> >> >> And have this return : >> >> >> >> ********************************* TOP OF DATA ********************************** >> J E S 2 J O B L O G -- S Y S T E M S Y S 1 -- N >> >> 06.05.01 JOB02251 ---- WEDNESDAY, 07 JUL 2010 ---- >> 06.05.01 JOB02251 IRR010I USERID IBMUSER IS ASSIGNED TO THIS JOB. >> 06.05.02 JOB02251 ICH70001I IBMUSER LAST ACCESS AT 06:03:00 ON WEDNESDAY, JULY >> 06.05.02 JOB02251 $HASP373 CIC#XXXX STARTED - INIT 1 - CLASS A - SYS SYS1 >> 06.05.02 JOB02251 IEF403I CIC#XXXX - STARTED - TIME=06.05.02 >> 06.05.02 JOB02251 CSV003I REQUESTED MODULE IEV90 NOT FOUND >> 06.05.02 JOB02251 CSV028I ABEND806-04 JOBNAME=CIC#XXXX STEPNAME=DSECT >> 06.05.02 JOB02251 IEA995I SYMPTOM DUMP OUTPUT 174 >> 174 SYSTEM COMPLETION CODE=806 REASON CODE=00000004 >> 174 TIME=06.05.02 SEQ=00013 CPU=0000 ASID=0023 >> 174 PSW AT TIME OF ERROR 070C1000 811C9558 ILC 2 INTC 0D >> 174 NO ACTIVE MODULE FOUND >> 174 NAME=UNKNOWN >> 174 DATA AT PSW 011C9552 - 8400181E 0A0D18FB 180C181D >> 174 GR 0: 00001E00 1: 84806000 >> 174 2: 00FD4CA0 3: 00000000 >> 174 4: 00000000 5: 008FF5E8 >> >> >> >> >> >> I need inset some STEPLIB ? >> >> >> >> Thanks, >> >> >> >> Sergio >> >> > Date: Wed, 7 Jul 2010 10:01:57 -0400 >> > From: ebar...@doitt.nyc.gov >> > Subject: Re: Sample BMS Compile JCL >> > To: IBM-MAIN@bama.ua.edu >> > >> > 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=&&amp;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
