Page History

Every Destination Screen has an invoke script which controls how it is displayed. Here is an example of a script that invokes a SHOWORDER screen when an order is selected in the instance list:

Image Added

First the script navigates to the 5250 junction screen GETORDER which is used to select which order is to be shown:  

...

NAVIGATE_TO_JUNCTION("GETORDER");

...

It then makes sure that we get to the GETORDER screen. If this check fails an error message is shown:    

     if ( !(CHECK_CURRENT_FORM("GETORDER", "Unable to navigate to form GETORDER")) ) return;

...

Next the script retrieves the current order number from the instance list to the GETORDER screen. Typically you need to edit this part of the script (see [<span style="color: #0000ee"><span style="text-decoration: underline; ">Replacing Hardcoded Employee Number with Current Instance List Entry</span></span>|lansa049_0150.htm#_Ref132613943]):   Replacing Hardcoded Employee Number with Current Instance List Entry):  

     SETVALUE("ORDERNUMBER", objListManager.AKey1\[0\] );

...

And then presses the Enter key to process the GETORDER screen:    

     SENDKEY(KeyEnter);

...

Finally the script makes sure that screen SHOWORDER has arrived back from the IBM i and is ready to be displayed. If this check fails, an error message is shown:    

     if ( !(CHECK_CURRENT_FORM("SHOWORDER", "Unable to display order number " + objListManager.AKey1\[0\] )) ) return;

...

...

...

...

See Also
NAVIGATE_TO_JUNCTION Function
CHECK_CURRENT_FORM Function
SETVALUE Function
SENDKEY Function Function</span></span>|l4wrmp03_0165.htm#_Ref129503991]
[<span style="color: #0000ee"><span style="text-decoration: underline; ">CHECK_CURRENT_FORM Function</span></span>|l4wrmp03_0105.htm#_Ref129503968]
[<span style="color: #0000ee"><span style="text-decoration: underline; ">SETVALUE Function</span></span>|l4wrmp03_0095.htm#_Ref129503964]
[<span style="color: #0000ee"><span style="text-decoration: underline; ">SENDKEY Function</span></span>|lansa049_0160.htm#_Ref130199681]