Author: abdulrafi
Subject: Doubt in MFS
Posted: Fri Oct 21, 2016 3:09 pm (GMT 5.5)
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.
Even in my program I am unable to find the PFKEY being received,
_________________
Thanks,
Abdul Rafi
Subject: Doubt in MFS
Posted: Fri Oct 21, 2016 3:09 pm (GMT 5.5)
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). |
_________________
Thanks,
Abdul Rafi