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

Doubt in MFS


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

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Fri Oct 21, 2016 3:09 pm
Reply with quote

Hi,

In my shop, I do have an MFS, but I am unable to find the keys mapped to it. Please find the screen shot below.

Actually when pressing PF7 the screen1 goes to screen 2 but unable to find the mapping anywhere on how the keys are received.

I could see +1, -1, +0. =L. But could not understand what it determines. Can you help me figure it out. I could not find it in my program too, thought if I would receive the PFKEY coming into.


Code:
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           
 -------------------------------------------------------------------------------
 VIEW       IMSVS.MFS.SOURCE(VD0711) - 07.18                Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR 
 000005 *     DIF/DOF GEN FOR FORMAT VD0711      *                             
 000006 ******************************************                             
 000007          SPACE                                                         
 000008 VD0711   FMT                                                           
 000009          DEV   TYPE=(3270,2),                                          X
 000010                FEAT=IGNORE,                                            X
 000011                PFK=(PFKEY,                                             X
 000012                'VIC025  P     ',                                       X
 000013                '+0            ',                                       X
 000014                '+0            ',                                       X
 000015                '+0            ',                                       X
 000016                '+0            ',                                       X
 000017                '=1            ',                                       X
 000018                '=+1           ',                                       X
 000019                '=-1           ',                                       X
 000020                '=L            ',                                       X
 000021                '/FOR VD0710O. ',                                       X
 000022                '/FOR VC0158O. ',                                       X
 000023                '+0            ',                                       X
 000024                '+0            ',                                       X




Code:
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           
 -------------------------------------------------------------------------------
 VIEW       IMSVS.MFS.SOURCE(VD0711) - 07.18                Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR 
 000176 *       MID GEN FOR FORMAT VD0711I       *                             
 000177 ******************************************                             
 000178          SPACE                                                         
 000179 VD0711I  MSG   TYPE=INPUT,                                             X
 000180                SOR=(VD0711,IGNORE),                                    X
 000181                OPT=1,                                                  X
 000182                NXT=VD0711O                                             
 000183 LPAGE1   LPAGE SOR=DPAGE1                                               
 000184          SEG                                                           
 000185          MFLD  (PFKEY,'VIC025  2     '),                               X
 000186                LTH=14,JUST=L,FILL=X'40'                                 
 000187          MFLD  (FPAGE,'***'),JUST=L,LTH=3,FILL=X'F0'                   
 000188          MFLD  (FMOD,'****'),JUST=L,LTH=6,FILL=X'40',ATTR=YES           
 000189          MFLD  (FSER,'********'),JUST=R,LTH=10,FILL=X'40',ATTR=YES     
 000190          MFLD  (FVIN,'*****************'),                             X
 000191                JUST=R,LTH=19,FILL=X'40',ATTR=YES                       
 000192          MFLD  (FTYP,'**'),JUST=R,LTH=4,FILL=X'F0',ATTR=YES             
 000193          MFLD  (FURN,'**********'),                                    X
 000194                LTH=12,JUST=L,FILL=X'40',ATTR=YES                       
 000195 ***                                                                     



Even in my program I am unable to find the PFKEY being received,

Code:
   File  Edit  Edit_Settings  Menu  Utilities  Compilers  Test  Help           
 -------------------------------------------------------------------------------
 VIEW       PROD.COBOL(VIC025) - 85.22                      Columns 00001 00072
 Command ===>                                                  Scroll ===> CSR 
 071090 071090     EJECT                                                       
 071100 071100 01  WS-MID-AREA.                                                 
 071110 071110     05  WS-MID-LL               PIC S9(4)  COMP.                 
 071120 071120     05  WS-MID-ZZ               PIC X(2).                       
 071130 071130     05  WS-MID-TRAN-AREA.                                       
 071140 071140         10  WS-MID-TRAN         PIC X(6).                       
 071150 071150         10  FILLER              PIC X(2).                       
 071160 071160         10  WS-MID-TYPE         PIC X(1).                       
 071170 071170             88  ENTER-TRAN       VALUE '1'.                     
 071180 071180             88  SCREEN-TRAN      VALUE '2'.                     
 071190 071190             88  SIMULATOR-TRAN   VALUE '3'.                     
 071200 071200             88  PF1-TRAN         VALUE 'P'.                     
 071210 071210         10  FILLER              PIC X(5).                       
 071240 071240   03    WS-AREA                 PIC X(282).                     
 071260 071260   03    WS-MID-REQUEST REDEFINES WS-AREA.                       
 071270 071270     05  WS-MID-REQ-KEY.                                         
 071280 071280         10  FILLER              PIC X(03).                       
 071290 071290         10  FILLER              PIC X(02).                       
 071300 071300         10  WS-MID-REQ-MDL      PIC X(04).                       
 071310 071310         10  FILLER              PIC X(02).                       
Back to top
View user's profile Send private message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore

PostPosted: Tue Oct 25, 2016 10:16 am
Reply with quote

Any help ?.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Oct 25, 2016 12:27 pm
Reply with quote

soliciting for answer on a forum is inappropriate
and will lower Your benevolence factor

You should remember that people answer ...

on their own time
free of charge

based on ...
interest of the question
benevolence factor of the TS
knowledge about the topic being discussed

if You did not get any answer one or more of the above resources is missing

there is no commitment for an answer
there should be no expectation for one

if You have time constraint a forum is not the best place to ask for help
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 Doubt about pl/1 (job offer) General Talk & Fun Stuff 5
No new posts doubt when executing a file when logg... TSO/ISPF 2
No new posts Doubt on GETMAIN, FREEMAIN behaviour CICS 3
No new posts Doubt in using command code O IMS DB/DC 4
No new posts Doubt in using command code D and N t... IMS DB/DC 7
Search our Forums:

Back to Top