Page History
...
Sometimes
...
5250
...
enquiry
...
style
...
transactions
...
use
...
a
...
5250
...
screen
...
that
...
loop
...
on
...
<enter
...
key
...
values>
...
->
...
<display
...
data>
...
->
...
<enter
...
key
...
values>
...
->
...
<display
...
data>
...
interactions.
...
Typically
...
these
...
screens
...
have
...
an
...
INVOKE
...
script
...
that
...
is
...
structured
...
along
...
these
...
lines:
...
...
var strAccessMenu = "SomeMenuScreenName";
...
var
...
strThisEnquiry = "SomeCherryEnquiryScreenName"; ...
/* Navigate to the menu that will provide access to the enquiry function */
...
...
NAVIGATE_TO_JUNCTION(strAccessMenu);
...
...
if ( !( CHECK_CURRENT_FORM(strAccessMenu, "Could not display menu", strAccessMenu) ) return;
...
/* Invoke the screen from the access menu */
...
SETVALUE("uMenuOptionField","7"); /* Say */
...
SENDKEY(KeyEnter);
...
...
if ( !( CHECK_CURRENT_FORM(strThisEnquiry,"Could not display enquiry screen", strThisEnquiry ) ) return;
...
/* Enter the appropriate key value and display the enquiry details */
...
SETVALUE("uKeyValueField",objInstanceList.Akey1
...
[0...
] ); /* Say */
...
SENDKEY(KeyEnter);
...
if ( !( CHECK_CURRENT_FORM(strThisEnquiry,"Could not display", strThisEnquiry ) ) return;
...
...
/* Finished */
...
When
...
this
...
transaction
...
is
...
used
...
repeatedly
...
(for
...
example
...
by
...
clicking
...
down
...
through
...
an
...
instance
...
list
...
or
...
orders,
...
products,
...
policies,
...
etc)
...
you
...
can
...
sometimes
...
short-circuit
...
the
...
navigation
...
logic
...
by
...
a
...
simple
...
script
...
change
...
along
...
the
...
following
...
lines.
...
This
...
change
...
produces
...
less
...
5250
...
screen
...
interactions
...
giving
...
a
...
faster
...
response
...
for
...
your
...
end-users:
...
var strAccessMenu = "SomeMenuScreenName";
...
var
...
strThisEnquiry = "SomeCherryEnquiryScreenName";...
/* We only need to navigate if we are not already at the screen */
...
if ( CURRENT_FORM() != strThisEnquiry )
...
...
{
...
/* Navigate to the menu that will provide access to the enquiry function */
...
NAVIGATE_TO_JUNCTION(strAccessMenu);
...
...
if ( !( CHECK_CURRENT_FORM(strAccessMenu, "Could not display menu", strAccessMenu) ) return;
...
/* Invoke the screen from the access menu */
...
SETVALUE("uMenuOptionField","7"); /* Say */
...
...
SENDKEY(KeyEnter);
...
...
if (!(CHECK_CURRENT_FORM(strThisEnquiry,"Could not display enquiry screen",strThisEnquiry)) return;
...
}
/* Enter the appropriate key value and display the enquiry details */
...
SETVALUE("uKeyValueField",objInstanceList.Akey1
...
[0...
] ); /* Say */
...
SENDKEY(KeyEnter);
...
if ( !( CHECK_CURRENT_FORM(strThisEnquiry,"Could not display", strThisEnquiry ) ) return;
...
/* Finished */
...