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: [email protected]
> Subject: Re: Sample BMS Compile JCL
> To: [email protected]
>
> 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:[email protected]] On Behalf
> Of Sergio Lima
> Sent: Wednesday, July 07, 2010 9:41 AM
> To: [email protected]
> 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: [email protected]
> > Subject: Re: Sample BMS Compile JCL
> > To: [email protected]
> >
> > 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:[email protected]] On Behalf
> > Of Matthew Stitt
> > Sent: Tuesday, July 06, 2010 5:10 PM
> > To: [email protected]
> > 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 <[email protected]>
> > 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 [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
>
> _________________________________________________________________
> 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 [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
_________________________________________________________________
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 [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
