5 pts.
 AS/400 mapping keys
do you have a mapping to keys for commands on as400

Software/Hardware used:
ASKED: July 1, 2010  5:09 PM
UPDATED: July 5, 2010  8:15 PM

Answer Wiki:
if you are talking about the "F" keys, they are KA, KB, KC, KD, etc in RPG II/III. if you use the IndAra keyword in the DDS, it would look like: A CA03(03) this turns on *In03 in the RPG program. if you go further and define the F & D-specs like this: FLkUpDonrD cf e workstn IndDs(Indicators) d Indicators Ds d Exit n OverLay(Indicators:03) the keyword ot look for is Exit, not if you mean keyboard mapping so that one key does many keystrokes, then you have to use a PC or programmable keyboard. if a PC, you right-click on the blue-bar and map it there. -sarge
Last Wiki Answer Submitted:  July 1, 2010  9:28 pm  by  Rudedog   950 pts.
All Answer Wiki Contributors:  Rudedog   950 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _


 

What mapping? What commands? The question needs a lot of explanation.

Tom

 110,135 pts.

 

Another method is not to assign indicators to function keys in the display file but use the AID (named ‘function’ in the following example) from the workstation INFDS

FDisplyFile Cf   e             Workstn                     
F                                     infds(workstn)      


D Workstn         Ds                 
D  dspfilnm         *file            
D  dsprcdnm         *record          
D  function             369    369   
D  cursor               370    371b 0


D F1              C                   const(x'31')
D F2              C                   const(x'32')
D F3              C                   const(x'33')
D F4              C                   const(x'34')
D F5              C                   const(x'35')
D F6              C                   const(x'36')
D F7              C                   const(x'37')
D F8              C                   const(x'38')
D F9              C                   const(x'39')
D F10             C                   const(x'3A')
D F11             C                   const(x'3B')
D F12             C                   const(x'3C')
                                                  
D F13             C                   const(x'B1')
D F14             C                   const(x'B2')
D F15             C                   const(x'B3')
D F16             C                   const(x'B4')
D F17             C                   const(x'B5')
D F18             C                   const(x'B6')
D F19             C                   const(x'B7')
D F20             C                   const(x'B8')
D F21             C                   const(x'B9')
D F22             C                   const(x'BA')
D F23             C                   const(x'BB')
D F24             C                   const(x'BC')
                                                  
D Clear           C                   const(x'BD')
D Enter           C                   const(x'F1')
D Help            C                   const(x'F3')
D Roll_down       C                   const(x'F4')
D Page_up         C                   const(x'F4')
D Roll_up         C                   const(x'F5')
D Page_down       C                   const(x'F5')
D Print           C                   const(x'F6')
D Home            C                   const(x'F8')
D Auto_enter      C                   const(x'3F')


If function = f3  or
   function = f12 or
   function = home;
Exsr End_of_pgm;
EndIf;

I usually keep the function key constants in a /copy member.

 5,740 pts.

 

if a PC, you right-click on the blue-bar and map it there.

What “blue-bar”? I use iSeries Access (PComm), Mocha, TN5250 and Windows telnet emulators regularly. None have a “blue-bar” that I can see, except the window title bars.

Tom

 110,135 pts.