Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need help in locating program and transaction name for MFS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Smita.t2

New User


Joined: 17 Apr 2012
Posts: 28
Location: Bangalore

PostPosted: Wed Apr 29, 2020 6:33 pm    Post subject: Need help in locating program and transaction name for MFS
Reply with quote

I have following transaction definition.
Code:
         APPLCTN PSB=GNBACTD,PGMTYPE=TP,SCHDTYP=PARALLEL                01221000
         TRANSACT CODE=GNBACTDV,MSGTYPE=(MULTSEG,RESPONSE,8),          *01222000
               PARLIM=0,SEGNO=400,                                     *01223000
               MODE=SNGL,PROCLIM=(03,01)                                01224000


GNBACTD PSB definition is following.
Code:
         PCB   TYPE=TP,MODIFY=YES,EXPRESS=YES,PCBNAME=TPPCB1            00000600
*                                                                       00000700
         PCB   TYPE=DB,DBDNAME=GNMBEPDB,KEYLEN=60,PROCOPT=AP            00000800


There exists an cobol program file with same PSB name.
For MFS, member name is GNBACTDM whose MID content is
Code:
         FMTEND                                                         00008000
*******>>>>>>>>>>-------------------------------------------<<<<<<<<<<* 00008100
*******>> MID:                                                      <<* 00008200
*******>>   FOLLOWING FIELDS ARE COMMON                             <<* 00008300
*******>>   INSERT APPLICATION SPECIFIC FIELDS AFTER NEXT *--->     <<* 00008400
*******>>>>>>>>>>-------------------------------------------<<<<<<<<<<* 00008500
GNBACTDI MSG   TYPE=INPUT,OPT=1,SOR=(BACTDM),NXT=GNBACTDO               00008600
         SEG                                                            00008700
         MFLD  TRAN,LTH=008,JUST=L,FILL=C' '                            00008800
         MFLD  LTH=001,FILL=C' '                                        00008900
         MFLD  PFKEY,LTH=002,FILL=C' '                                  00009000
         MFLD  ALTPFK,LTH=002,JUST=R,FILL=C'0'                          00009100
         MFLD  SCRTYPE,LTH=001,FILL=C' '                                00009200
         MFLD  TRANNEW,LTH=008,JUST=L,FILL=C' '                         00009300
         MFLD  COMMBYTE,LTH=001,FILL=C'0'                               00009400
         MFLD  CURPOS,LTH=004,FILL=C'0'                                 00009500
         MFLD  LTH=001,FILL=C' '                                        00009600
         MFLD  LTH=008,FILL=C' '                                        00009700
         MFLD  LTH=030,FILL=C' '                                        00009800
         MFLD  HIDE2,LTH=007                                            00009900
         MFLD  LTH=003,FILL=C'0'                                        00010000
         MFLD  CASE,LTH=012,ATTR=YES,JUST=L,FILL=C' '                   00010100
         MFLD  GRPSUF,LTH=012,ATTR=YES,JUST=L,FILL=C' '                 00010200
         MFLD  ID,LTH=022,ATTR=YES,JUST=L,FILL=C' '                     00010300
         MFLD  BSRC,LTH=003,ATTR=YES,FILL=C' '                          00010400
         MFLD  CASE2,LTH=010                                            00010500
         MFLD  GRPSUF2,LTH=010                                          00010600
         MFLD  ID2,LTH=020                                              00010700
         MFLD  BSRC2,LTH=001                                            00010800
*--->                                                                   00010900
         MFLD  BENAME,LTH=050                                           00011000
         MFLD  EFFDTE,LTH=012,ATTR=YES,JUST=L,FILL=C' '                 00011100
*---*                                                                   00011200
         MFLD  MSG1,LTH=075                                             00011300
         MFLD  MSG2,LTH=075                                             00011400
         MFLD  MSG3,LTH=075                                             00011500
         MFLD  MSG4,LTH=075                                             00011600
         MFLD  MSG5,LTH=075                                             00011700
         MFLD  MSG6,LTH=075                                             00011800
         MFLD  MSG7,LTH=075                                             00011900
         MFLD  MSG8,LTH=075                                             00012000
         MFLD  MSG9,LTH=075                                             00012100
         MFLD  MSG10,LTH=075                                            00012200
         MFLD  MSG11,LTH=075                                            00012300
         MFLD  MSG12,LTH=075                                            00012400
         MFLD  MSG13,LTH=075                                            00012500
         MFLD  MSG14,LTH=075                                            00012600
         MFLD  MSG15,LTH=075                                            00012700
         MFLD  MSG16,LTH=075                                            00012800
         MSGEND             


With this code, I am not sure if MFS screen GNBACTDM is linked to the cobol program GNBACTD and Transaction GNBACTDV. Is there a way to find how MFS, Programs and Transactions can be mappped?

Thank You.
Back to top
View user's profile Send private message

Smita.t2

New User


Joined: 17 Apr 2012
Posts: 28
Location: Bangalore

PostPosted: Wed Apr 29, 2020 7:02 pm    Post subject: Reply to: Need help in locating program and transaction name for MFS
Reply with quote

In some documentation, I found that transaction code will be the first field in the MID definition which will be used by IMS to invoke a program.

I dont find reference of transaction name or program name in MFS definition. Please help.[/img]
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Started transaction enters "firs... Marso CICS 3 Sun May 31, 2020 2:14 pm
No new posts In JCL Procedure how we can execute R... Dhananjayulu Neeli CLIST & REXX 7 Sat May 16, 2020 12:01 am
No new posts APCT Abend while running an online CI... amitc23 CICS 1 Wed May 06, 2020 9:59 am
No new posts conversational program not reading t... sudhakarmurari IMS DB/DC 2 Mon Apr 13, 2020 6:16 am
This topic is locked: you cannot edit posts or make replies. JCL execution fail COBOL program sandeep prajapati COBOL Programming 5 Sat Apr 11, 2020 9:57 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us