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=&&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 > > ---------------------------------------------------------------------- > 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 _________________________________________________________________ TRANSFORME SUAS FOTOS EM EMOTICONS PARA O MESSENGER. CLIQUE AQUI PARA COMEÇAR. http://ilm.windowslive.com.br/?ocid=ILM:Live:Hotmail:Tagline:senDimensao:TRANSFORME78:- ---------------------------------------------------------------------- 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
