Re: Sample BMS Compile JCL
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,0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECTEXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 2200 // DCB=INDEX..SDFHMAC2200 // DD DSN=INDEX..SDFHMAC,DISP=SHR 2300 // DD DSN=COPYLIB,DISP=SHR 2300 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 2500 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 2600 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 2700 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=COPYLIB(MOD),DISP=SHR 2800 //SYSPRINT DD SYSOUT=OUTC 2900 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 3000 //* 3100 //MAP EXEC PGM=ASMBLR,COND=((7,LT,DSECT),(3,LT,UPDTE)), 3200 // PARM='SYSPARM(MAP),DECK' 3300 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 3400 // DCB=INDEX..SDFHMAC3400 // DD DSN=INDEX..SDFHMAC,DISP=SHR 3500 // DD DSN=COPYLIB,DISP=SHR 3500 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 3700 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 3800 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 3900 //SYSLIN DD DUMMY //SYSPUNCH DDDSN=OBJMOD(MOD),4000 // UNIT=WORK,DISP=(,PASS), 4100 // SPACE=(400,(100,100,1)), 4200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)4300 //SYSPRINT DD SYSOUT=OUTC 4400 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 4500 //* 4600 //LKEDEXEC PGM=IEWL,REGION=4M, 4700 // PARM=(LIST), 4800 // COND=(7,LT,MAP)4900 //SYSUT1 DD UNIT=WORK,SPACE=(1024,(100,10))5000 //SYSLMOD DD DSN=USERLOAD(MOD),DISP=SHR510 //LOADLIB DD DSN=INDEX..SDFHLOAD,DISP=SHR 5200 //SYSPRINT DD SYSOUT=OUTC 5300 //SYSPUNCH DD DUMMY 5400 //SYSLIN DD DSN=OBJMOD(MOD),UNIT=SYSDA,DISP=(OLD,DELETE) 5500 // 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
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, 0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECT EXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 2200 // DCB=INDEX..SDFHMAC 2200 // DD DSN=INDEX..SDFHMAC,DISP=SHR 2300 // DD DSN=COPYLIB,DISP=SHR 2300 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 2500 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 2600 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 2700 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=COPYLIB(MOD),DISP=SHR 2800 //SYSPRINT DD SYSOUT=OUTC 2900 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 3000 //* 3100 //MAP EXEC PGM=ASMBLR,COND=((7,LT,DSECT),(3,LT,UPDTE)), 3200 // PARM='SYSPARM(MAP),DECK' 3300 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 3400 // DCB=INDEX..SDFHMAC 3400 // DD DSN=INDEX..SDFHMAC,DISP=SHR 3500 // DD DSN=COPYLIB,DISP=SHR 3500 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 3700 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 3800 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 3900 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=OBJMOD(MOD), 4000 // UNIT=WORK,DISP=(,PASS), 4100 // SPACE=(400,(100,100,1)), 4200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) 4300 //SYSPRINT DD SYSOUT=OUTC 4400 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 4500 //* 4600 //LKED EXEC PGM=IEWL,REGION=4M, 4700 // PARM=(LIST), 4800 // COND=(7,LT,MAP) 4900 //SYSUT1 DD UNIT=WORK,SPACE=(1024,(100,10)) 5000 //SYSLMOD DD DSN=USERLOAD(MOD),DISP=SHR 510 //LOADLIB DD DSN=INDEX..SDFHLOAD,DISP=SHR 5200 //SYSPRINT DD SYSOUT=OUTC 5300 //SYSPUNCH DD DUMMY 5400 //SYSLIN DD DSN=OBJMOD(MOD),UNIT=SYSDA,DISP=(OLD,DELETE) 5500 // 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 -- 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
Re: Sample BMS Compile JCL
Hello John, I found the job here, : /DFHMAPS PROC INDEX='CICSTS31.CICS', FOR SDFHMAC / MAPLIB='CICSTS31.CICS.SDFHLOAD', TARGET FOR MAP / DSCTLIB='CICSTS31.CICS.SDFHMAC', TARGET FOR DSECT / MAPNAME=, NAME OF MAPSET - REQUIRED / A=, A=A FOR ALIGNED MAP / AMODE=31, 24/31 / RMODE=ANY,24/ANY / ASMBLR=ASMA90,ASSEMBLER PROGRAM NAME / REG=2048K,REGION FOR ASSEMBLY / OUTC=A, PRINT SYSOUT CLASS / WORK=SYSDAWORK FILE UNIT /* So, We need do a JCL to compile my maps, what I need insert in my JOB ? Of course the MAPNAME, and others, but can you send a sample JOB that you use please ? Then, I will look for modifications that need made. Thanks Sergio Date: Tue, 6 Jul 2010 17:19:20 -0500 From: joa...@swbell.net Subject: Re: Sample BMS Compile JCL To: IBM-MAIN@bama.ua.edu On Tue, 2010-07-06 at 23:36 +0300, Sergio Lima 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 Sample JCL is in SDFHPROC member DFHMAPS. -- John McKown Maranatha! -- 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 _ PREPARE-SE: O SEU HOTMAIL VAI FICAR MELHOR DO QUE NUNCA. CLIQUE E VEJA AS NOVIDADES. http://www.windowslive.com.br/public/product.aspx/view/1?ocid=Hotmail:Live:Hotmail:Tagline:senDimensao:PREPARE-SE83:- -- 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
Re: Sample BMS Compile JCL
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 - COPYLIB(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, 0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECT EXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 2200 // DCB=INDEX..SDFHMAC 2200 // DD DSN=INDEX..SDFHMAC,DISP=SHR 2300 // DD DSN=COPYLIB,DISP=SHR 2300 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 2500 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 2600 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 2700 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=COPYLIB(MOD),DISP=SHR 2800 //SYSPRINT DD SYSOUT=OUTC 2900 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 3000 //* 3100 //MAP EXEC PGM=ASMBLR,COND=((7,LT,DSECT),(3,LT,UPDTE)), 3200 // PARM='SYSPARM(MAP),DECK' 3300 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 3400 // DCB=INDEX..SDFHMAC 3400 // DD DSN=INDEX..SDFHMAC,DISP=SHR 3500 // DD DSN=COPYLIB,DISP=SHR 3500 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 3700 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 3800 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 3900 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=OBJMOD(MOD), 4000 // UNIT=WORK,DISP=(,PASS), 4100 // SPACE=(400,(100,100,1)), 4200 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=400) 4300 //SYSPRINT DD SYSOUT=OUTC 4400 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 4500 //* 4600 //LKED EXEC PGM=IEWL,REGION=4M, 4700 // PARM=(LIST), 4800 // COND=(7,LT,MAP) 4900 //SYSUT1 DD UNIT=WORK,SPACE=(1024,(100,10)) 5000 //SYSLMOD DD DSN=USERLOAD(MOD),DISP=SHR 510 //LOADLIB DD DSN=INDEX..SDFHLOAD,DISP=SHR 5200 //SYSPRINT DD SYSOUT=OUTC 5300 //SYSPUNCH DD DUMMY 5400 //SYSLIN DD DSN=OBJMOD(MOD),UNIT=SYSDA,DISP=(OLD,DELETE) 5500 // 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
Re: Sample BMS Compile JCL
Hello Eileen, I submit my job like this : //CIC# 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# STARTED - INIT 1- CLASS A - SYS SYS1 06.05.02 JOB02251 IEF403I CIC# - STARTED - TIME=06.05.02 06.05.02 JOB02251 CSV003I REQUESTED MODULE IEV90NOT FOUND 06.05.02 JOB02251 CSV028I ABEND806-04 JOBNAME=CIC# STEPNAME=DSECT 06.05.02 JOB02251 IEA995I SYMPTOM DUMP OUTPUT 174 174 SYSTEM COMPLETION CODE=806 REASON CODE=0004 174 TIME=06.05.02 SEQ=00013 CPU= ASID=0023 174 PSW AT TIME OF ERROR 070C1000 811C9558 ILC 2 INTC 0D 174NO ACTIVE MODULE FOUND 174NAME=UNKNOWN 174DATA AT PSW 011C9552 - 8400181E 0A0D18FB 180C181D 174GR 0: 1E00 1: 84806000 174 2: 00FD4CA0 3: 174 4: 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 - COPYLIB(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, 0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECT EXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 2200 // DCB=INDEX..SDFHMAC 2200 // DD DSN=INDEX..SDFHMAC,DISP=SHR 2300 // DD DSN=COPYLIB,DISP=SHR 2300 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 2500 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 2600 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 2700 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=COPYLIB(MOD),DISP=SHR 2800 //SYSPRINT DD SYSOUT=OUTC 2900 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 3000 //* 3100 //MAP EXEC PGM=ASMBLR,COND=((7,LT,DSECT),(3,LT,UPDTE)), 3200 // PARM='SYSPARM(MAP),DECK' 3300 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 3400
Re: Sample BMS Compile JCL
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# 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# STARTED - INIT 1- CLASS A - SYS SYS1 06.05.02 JOB02251 IEF403I CIC# - STARTED - TIME=06.05.02 06.05.02 JOB02251 CSV003I REQUESTED MODULE IEV90NOT FOUND 06.05.02 JOB02251 CSV028I ABEND806-04 JOBNAME=CIC# STEPNAME=DSECT 06.05.02 JOB02251 IEA995I SYMPTOM DUMP OUTPUT 174 174 SYSTEM COMPLETION CODE=806 REASON CODE=0004 174 TIME=06.05.02 SEQ=00013 CPU= ASID=0023 174 PSW AT TIME OF ERROR 070C1000 811C9558 ILC 2 INTC 0D 174NO ACTIVE MODULE FOUND 174NAME=UNKNOWN 174DATA AT PSW 011C9552 - 8400181E 0A0D18FB 180C181D 174GR 0: 1E00 1: 84806000 174 2: 00FD4CA0 3: 174 4: 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 - COPYLIB(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, 0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECT EXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 2200 // DCB=INDEX..SDFHMAC 2200 // DD DSN=INDEX..SDFHMAC,DISP=SHR 2300 // DD DSN=COPYLIB,DISP=SHR
Re: Sample BMS Compile JCL
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# 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# STARTED - INIT 1 - CLASS A - SYS SYS1 06.05.02 JOB02251 IEF403I CIC# - STARTED - TIME=06.05.02 06.05.02 JOB02251 CSV003I REQUESTED MODULE IEV90 NOT FOUND 06.05.02 JOB02251 CSV028I ABEND806-04 JOBNAME=CIC# STEPNAME=DSECT 06.05.02 JOB02251 IEA995I SYMPTOM DUMP OUTPUT 174 174 SYSTEM COMPLETION CODE=806 REASON CODE=0004 174 TIME=06.05.02 SEQ=00013 CPU= 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: 1E00 1: 84806000 174 2: 00FD4CA0 3: 174 4: 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 - COPYLIB(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, 0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECT EXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100 //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR, 2200 // DCB=INDEX..SDFHMAC 2200 // DD DSN=INDEX..SDFHMAC,DISP=SHR 2300 // DD DSN=COPYLIB,DISP=SHR 2300 //SYSUT1 DD UNIT=WORK,SPACE=(1700,(400,400)) 2500 //SYSUT2 DD UNIT=WORK,SPACE=(1700,(400,400)) 2600 //SYSUT3 DD UNIT=WORK,SPACE=(1700,(400,400)) 2700 //SYSLIN DD DUMMY //SYSPUNCH DD DSN=COPYLIB(MOD),DISP=SHR 2800 //SYSPRINT DD SYSOUT=OUTC 2900 //SYSIN DD DSN=SRCLIB(SRCNAME),DISP=SHR 3000
Re: Sample BMS Compile JCL
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# 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# STARTED - INIT 1 - CLASS A - SYS SYS1 06.05.02 JOB02251 IEF403I CIC# - STARTED - TIME=06.05.02 06.05.02 JOB02251 CSV003I REQUESTED MODULE IEV90 NOT FOUND 06.05.02 JOB02251 CSV028I ABEND806-04 JOBNAME=CIC# STEPNAME=DSECT 06.05.02 JOB02251 IEA995I SYMPTOM DUMP OUTPUT 174 174 SYSTEM COMPLETION CODE=806 REASON CODE=0004 174 TIME=06.05.02 SEQ=00013 CPU= 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: 1E00 1: 84806000 174 2: 00FD4CA0 3: 174 4: 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 - COPYLIB(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, 0100 // LIST='LIST,XREF,LET', 0200 // INDEX='XCICS.KX640T1', // MOD=MODULE,SRCLIB='USER.CICS.MAPS', // USERLOAD='USER.CICS.LOAD', // COPYLIB='USER.CICS.COPYLIB', // OUTC=A,SRCNAME=SOURCE, 0400 // WORK=SYSDA 0500 //U0 EXEC PGM=IEFBR14 1500 //UPDTE EXEC PGM=IEBUPDTE,COND=((0,NE),(0,EQ)) 1500 //SYSPRINT DD SYSOUT=OUTC 1600 //SYSUT1 DD DSN=SRCLIB,DISP=SHR 1700 //SYSUT2 DD DSN=SRCLIB,DISP=SHR 1800 //* 1900 //DSECT EXEC PGM=ASMBLR,COND=(3,LT,UPDTE), 2000 // PARM='DECK,SYSPARM(DSECT)' 2100
Sample BMS Compile JCL
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 _ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- -- 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
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
Re: Sample BMS Compile JCL
Hello, First thanks very much from your help. Sorry about my bad experience with JCL. Try run, hand gove the error below : 45 //COPY.SYSUT1 DD DSN=AMP;EXPND,DISP=(OLD,DELETE) O. MESSAGE 2 IEFC001I PROCEDURE DFHMAPT WAS EXPANDED USING SYSTEM 45 IEFC620I UNIDENTIFIABLE CHARACTER ; ON THE DD STATEM Another question , where will be put the BOOK that will used by COBOL COPY STATEMENT ? Thanks again Sergio Date: Tue, 6 Jul 2010 16:09:37 -0500 From: mathwst...@bellsouth.net Subject: Re: Sample BMS Compile JCL To: IBM-MAIN@bama.ua.edu 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 _ CONVERSE COM SEUS AMIGOS E OS VEJA PELA WEBCAM NO MESSENGER. CLIQUE AQUI E VEJA COMO. http://www.windowslive.com.br/public/tip.aspx/view/84?product=2ocid=WLCRM:Live:Hotmail:Tagline:senDimensao:CONVERSECO85:- -- 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
Re: Sample BMS Compile JCL
On Tue, 2010-07-06 at 23:36 +0300, Sergio Lima 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 Sample JCL is in SDFHPROC member DFHMAPS. -- John McKown Maranatha! -- 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
