View previous topic :: View next topic
|
Author |
Message |
Akash Sharma
New User
Joined: 13 Jan 2009 Posts: 36 Location: India
|
|
|
|
Hi all,
I have coded CLIST and ISPF panel.
Both are working fine. But as soon as i press PF3 (END KEY), the ISPF screen hangs. I have the pseudo code as below.
Code: |
SET PF3 = N
DO WHILE &PF3 NE Y
..
...
....
ISPEXEC DISPLAY PANEL(##ISPF PANEL##)
IF &LASTCC = 8 THEN SET PF3 = Y
.
IF CONDITION 1 THEN +
DO
.
..
...
END
IF CONDITION 2 THEN +
DO
.
..
...
END
END
EXIT CODE(0)
|
Could you please help where i have coded wrong? Or what extra i need to code? |
|
Back to top |
|
|
Akash Sharma
New User
Joined: 13 Jan 2009 Posts: 36 Location: India
|
|
|
|
HI all, the problem got solved after some head scratching.
I had defined an error section, in which i had to handle the lastcc error code. Following was the solution.
Code: |
ERROR +
DO
IF &ECODE = 8 THEN +
DO
SET PF3 = YES
EXIT CODE(0)
END
END
|
All, thanks a lot for looking into the query. |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I'm not a CLIST expert, but this worked for me:
Code: |
PROC 0
...
SET &PANCC EQ 0
DO WHILE &PANCC LT 8
ISPEXEC DISPLAY PANEL(PANEL_NAME)
SET PANCC EQ &LASTCC
...
END
|
|
|
Back to top |
|
|
|