Smita.t2
New User
Joined: 17 Apr 2012 Posts: 31 Location: Bangalore
|
|
|
|
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. |
|