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=&&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 _________________________________________________________________ ACESSE O MESSENGER DO SEU CELULAR AGORA MESMO. CLIQUE E VEJA AQUI UM PASSO A PASSO. http://celular.windowslive.com.br/messenger.asp?produto=Messenger&utm_source=Live_Hotmail&utm_medium=Tagline&utm_content=ACESSEOMES83&utm_campaign=MobileServices ---------------------------------------------------------------------- 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