abdulrafi
Active User
Joined: 14 Sep 2009
Posts: 184
Location: Coimbatore
|
|
|
|
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). |
|
|
