Page History

The following examples use this 5250 destination screen which is shipped with LANSA as process PSLSYS function INQUIRE. It allows the details of an employee to be displayed and updated. It initially has an arrival script like this:
 
   vHandle_ARRIVE: function(oPayload, oPreviousForm)
   {
     /* If the department input field exists on the screen, display it */
 
     if ( CHECK_FIELD_EXISTS("DEPTMENT") )
     {
        SHOW_CURRENT_FORM(true);
        HIDE_5250_BUTTONS();
        SETCURSORTOFIELD("SURNAME");
        SETBUSY(false);
     }
 
     /* Otherwise send an F21 key to make the screen input capable  */
 
     else
     {
        SENDKEY(KeyF21);
     }
 
     /* <ARRIVE /> - Do not remove or alter this line */
 
     return(true);
   },
 
And it looks like this:
 
Image RemovedImage Added
 
These fields have been named on this 5250 screen:

...