How to compile BMS

ibm3270 · Posted: Tue Sep 27, 2005 6:09 am

Hi!

Im barely new to CICS, can anybody pls tell me how to compile BMS?

Thanks!

Chris

SHIVAREDDY · New User Joined: 25 Jul 2005 Posts: 20

Hi,
This is the BMS Compiler JCL used for compiling Map programs.
I hope each and every statement is understandable in this.
create DSCTLIB pds on your own.Regarding maplib some body else have to give to you which should be already configured.Anyways find out
with your seniors and MAPNAME is the map name which you give in your program and this program name should be specified in the last step of JCL(MAP4 in this example).
Hope I din't confused you

//THYD004S JOB MSGCLASS=X,MSGLEVEL=(1,1),CLASS=A,

// REGION=5M,NOTIFY=&SYSUID

//STEP1 EXEC DFHMAPS,

// MAPLIB='TRGHYD01.CICS.LOAD',

// DSCTLIB='THYD004.MAPLIB',

// MAPNAME='THYM004'

//COPY.SYSUT1 DD DSN=THYD004.MFRP(MAP4),DISP=SHR

Any ways feel free to ask me if any clarification is to be made.
BYE CHEERS

kick · Posted: Fri Oct 14, 2005 2:26 pm

i have a complete BMS complier , and i will show to you !
-----------------------------------------------------------------------------
//$CICSMAP JOB (PLS,81038),CLASS=A,MSGCLASS=R,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID
//*
//*------------------------------------------------------------
//* COMPILE THE MAPSET JCL
//*------------------------------------------------------------
//*
// SET SRCELIB=IBMUSER.CICS31.SRC
// SET LOADLIB=IBMUSER.CICS31.LOD
// SET DSECTLIB=IBMUSER.CICS31.CPY
//*
//ASMLNK PROC
//ASM EXEC PGM=ASMA90,
// PARM='DECK,NOOBJECT,XREF(SHORT),SYSPARM(MAP),LIST'
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&SRCELIB(&MEMBER),DISP=SHR
//SYSPUNCH DD DSN=&&OBJ,DISP=(NEW,PASS),
// SPACE=(400,(50,10)),UNIT=VIO,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=400)
//SYSLIB DD DSN=DFH.V3R1M0.CICS.SDFHMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR,DCB=BLKSIZE=3120
//SYSUT1 DD UNIT=VIO
//SYSUT2 DD UNIT=VIO
//SYSUT3 DD UNIT=VIO
//*
//LINKMAP EXEC PGM=IEWL,COND=(4,LT),
// PARM='LIST,LET,XREF'
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE)
//SYSLMOD DD DSN=&LOADLIB(&MEMBER),DISP=SHR
//SYSUT1 DD UNIT=VIO
//*
//DSECT EXEC PGM=ASMA90,COND=(4,LT),
// PARM='DECK,NOOBJECT,XREF(SHORT),SYSPARM(DSECT),LIST'
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&SRCELIB(&MEMBER),DISP=SHR
//SYSPUNCH DD DSN=&DSECTLIB(&MEMBER),DISP=SHR
//SYSLIB DD DSN=DFH.V3R1M0.CICS.SDFHMAC,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR,DCB=BLKSIZE=3120
//SYSUT1 DD UNIT=VIO
//SYSUT2 DD UNIT=VIO
//SYSUT3 DD UNIT=VIO
//*
// PEND
//*
//DFH0XS1 EXEC ASMLNK,MEMBER=DFH0XS1
//DFH0XS2 EXEC ASMLNK,MEMBER=DFH0XS2
//DFH0XS3 EXEC ASMLNK,MEMBER=DFH0XS3

you can write one jcl according to this one !!

because some pgm is different from machines