Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
how to see connection of FIRGMMFS pgm to online pgm FIRGM000

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
Author Message
veena_nagesh2002
Warnings : 1

Active User


Joined: 07 May 2005
Posts: 106
Location: hyderabad

PostPosted: Fri Sep 26, 2008 3:36 pm    Post subject: how to see connection of FIRGMMFS pgm to online pgm FIRGM000
Reply with quote

FIRGMMFS is the online screen program which will pass input messages to FIRGM000 pgm, which inturns performs certain operation and returns to output messages to online screen pgm FIRGMMFS. I would like to know how the connection is established and where we need to verify these connections
Back to top
View user's profile Send private message
References
Sandy Zimmer

Senior Member


Joined: 13 Jun 2007
Posts: 435
Location: Wilmington, DE

PostPosted: Fri Sep 26, 2008 8:43 pm    Post subject:
Reply with quote

Is FIRGMMFS a message format or an executing program?
Back to top
View user's profile Send private message
veena_nagesh2002
Warnings : 1

Active User


Joined: 07 May 2005
Posts: 106
Location: hyderabad

PostPosted: Mon Sep 29, 2008 11:21 am    Post subject:
Reply with quote

I didn't get what exactly you are asking, but for your understanding i am pasting part of FIRGMMFS code

PAGE1 DPAGE CURSOR=((03,17))
* LINE-01 *************************************************************
TRANCODE DFLD POS=(01,02),LTH=08,ATTR=(MOD)
DFLD 'ROUTE AWAITING GROUP MAINT 0596', @
POS=(01,11),ATTR=(NUM,PROT)
SECURTY1 DFLD POS=(01,43),LTH=19,ATTR=(MOD,PROT,NUM,NODISP)
SECURTY2 DFLD POS=(01,63),LTH=18,ATTR=(MOD,PROT)
* LINE-24 *************************************************************
SYSMSG DFLD POS=(24,02),LTH=79,ATTR=(NUM,PROT,HI)
* LINE-02 *************************************************************
IDLIT DFLD POS=(02,02),LTH=14,ATTR=(NUM,PROT)
JULDTE DFLD POS=(02,17),LTH=03,ATTR=(MOD,NUM)
LOADNUM DFLD POS=(02,21),LTH=06,ATTR=(MOD,ALPHA)
UNQID DFLD POS=(02,28),LTH=02,ATTR=(MOD,NUM)
DFLD 'CENTER :', @
POS=(02,36),ATTR=(MOD,NUM,PROT)
CNTR DFLD POS=(02,49),LTH=04,ATTR=(MOD,NUM,PROT)
Back to top
View user's profile Send private message
Sandy Zimmer

Senior Member


Joined: 13 Jun 2007
Posts: 435
Location: Wilmington, DE

PostPosted: Mon Sep 29, 2008 4:53 pm    Post subject:
Reply with quote

This is MFS - message format service - it formats the screen. It communicates with your DC program. The logic for the application is in your DC program.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1