IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

How to compile BMS


 
IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ibm3270

New User


Joined: 21 Sep 2005
Posts: 2
Location: Philippines

PostPosted: Tue Sep 27, 2005 6:09 am
Reply with quote

Hi!

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

Thanks!

Chris icon_lol.gif
Back to top
View user's profile Send private message
SHIVAREDDY

New User


Joined: 25 Jul 2005
Posts: 20

PostPosted: Wed Sep 28, 2005 4:34 pm
Reply with quote

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 icon_cry.gif


//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 icon_biggrin.gif
Back to top
View user's profile Send private message
kick
Warnings : 1

New User


Joined: 12 Apr 2005
Posts: 24
Location: shanghai china

PostPosted: Fri Oct 14, 2005 2:26 pm
Reply with quote

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
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> CICS
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts unable to compile module PL/I & Assembler 6
No new posts Defining SYSLIB to USS c++ (cxx) comp... All Other Mainframe Topics 2
No new posts OO COBOL compile error COBOL Programming 3
No new posts I can not compile my program PL1 V3.R... PL/I & Assembler 13
No new posts COBOL 5 Compile COBOL Programming 3

Back to Top