5 replies to this topic

[sebago62]

I am having trouble making a clean exit from and embeded paging screen. Here is he scenario;

I have a ontime screen cycle with two selection fields then a paging screen of the results.

_____________________________________________________________

sel 1 xx sel 2 xxxx

[sebago62]

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

[kapoof]

[quote name='sebago62' date='9 Aug 2008, 03:40' post='17879']
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.

[sebago62]

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

[Glenn Meyers]

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.

[Chris Mackenzie]

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.