IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need help in locating program and transaction name for MFS


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

New User


Joined: 17 Apr 2012
Posts: 31
Location: Bangalore

PostPosted: Wed Apr 29, 2020 6:33 pm
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: 31
Location: Bangalore

PostPosted: Wed Apr 29, 2020 7:02 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts DB2 Event passed to the Application P... DB2 1
No new posts How to pass the PARM value to my targ... COBOL Programming 8
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts How to identify the transaction categ... IMS DB/DC 3
Search our Forums:

Back to Top