Exiting an embeded paging screen
#1
Posted 08 August 2008 - 07:29 PM
I have a ontime screen cycle with two selection fields then a paging screen of the results.
_____________________________________________________________
sel 1 xx sel 2 xxxx
#2
Posted 08 August 2008 - 07:40 PM
I am having a problem making a clean exit from an embedded paging screen. When the user selects an entry on the paging screen I want to exit the paging screen and the onetime cycle it is embedded in. Not having much luck.
Heres the scenario. I have a onetime screen cycle with two selection criteria inputs. Based on the data in the selection criteria, I limit the entries on the paging screen.
-- One time screen cycle -------------------------------
Sel 1 xx Sel 2 xxxx
------ paging screen -------------------------------------
01 Entry 1
02 Entry 2
03 Entry 3
04 Entry 4
05 Entry 5 .
If the user chooses one of the entries, I want to return to the cycle that called the one time screen cycle.
Thanks,
Tom
#3
Posted 09 August 2008 - 05:10 AM
Sorry... Original post was cut off... here's the whole thing
I am having a problem making a clean exit from an embedded paging screen. When the user selects an entry on the paging screen I want to exit the paging screen and the onetime cycle it is embedded in. Not having much luck.
Here's the scenario. I have a onetime screen cycle with two selection criteria inputs. Based on the data in the selection criteria, I limit the entries on the paging screen.
-- One time screen cycle -------------------------------
Sel 1 xx Sel 2 xxxx
------ paging screen -------------------------------------
01 Entry 1
02 Entry 2
03 Entry 3
04 Entry 4
05 Entry 5 .
If the user chooses one of the entries, I want to return to the cycle that called the one time screen cycle.
Thanks,
Tom
Hi Tom,
Quite easy answer to your problem. First depending on how you are selecting the paging screen record (normally either by setting a flag or using the ©hange key or right arrow). If using a flag then in lost focus (Used to be after field logic) use the following:
IF $FLAG = 'Y' THEN
LSEXIT
ENDIF
If using the function key for ©hange or right arrow, in before write on the paging file use the following (Note the paging screen MUST have ©hange allowed):
IF @FNKEY = 2,21 THEN
LSEXIT
ENDIF
Please remember that the one time screen which called the paging screen will now complete its file reads and the function will be exited. If you are just trying to display more data in the calling screen and allow the user to do everything again then the calling screen must be flagged as NOT one time. Hope this solves yourr problem.
Best Regards.
#4
Posted 11 August 2008 - 01:13 PM
I want to exit the onetime screen automatically AFTER the paging screen executes.
Your advice tells me how to exit the paging screen, which you are correct, is very simple.
Anyone else have a solution to this?
THanks
Tom
#5
Posted 11 August 2008 - 01:46 PM
Ummm... Kapoof, I think you misread the question.
I want to exit the onetime screen automatically AFTER the paging screen executes.
Your advice tells me how to exit the paging screen, which you are correct, is very simple.
Anyone else have a solution to this?
THanks
Tom
If you do not want the operator to do any processing in the fields of the pagind screen, make all the fields display only and set the driving file for the screen to lookup. It will zip right thru and exit.
#6
Posted 12 August 2008 - 11:03 AM
Ummm... Kapoof, I think you misread the question.
I want to exit the onetime screen automatically AFTER the paging screen executes.
Your advice tells me how to exit the paging screen, which you are correct, is very simple.
Anyone else have a solution to this?
THanks
Tom
If you do not want the operator to do any processing in the fields of the pagind screen, make all the fields display only and set the driving file for the screen to lookup. It will zip right thru and exit.
Tried to post this yesterday but "something went wrong".
In the PS to exit you might have
IF @FNKEY=2,21
LSEXIT
ENDIF
Add a line to make :
IF @FNKEY=2,21
$SELECTED = 'Y'
LSEXIT
ENDIF
Then, either in (lost focus) fld-aft a new dummy field directly after the PS
or in (on-focus) FLD-BEF the first enterable field in your outer cycle
IF $SELECTED = 'Y'
LSEXIT
ENDIF
that should return you to the caller - I think what Glenn said should work but
in case if doesn't in your case.
of the poster and do not represent those of any organisation.
Reply to this topic
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users