Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
CLIST getting hanged on using PF3 in ISPF panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
Akash Sharma

New User


Joined: 13 Jan 2009
Posts: 36
Location: India

PostPosted: Wed Jan 21, 2009 5:46 pm    Post subject: CLIST getting hanged on using PF3 in ISPF panel
Reply with quote

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
View user's profile Send private message

Akash Sharma

New User


Joined: 13 Jan 2009
Posts: 36
Location: India

PostPosted: Wed Jan 21, 2009 6:35 pm    Post subject: Reply to: CLIST getting hanged on using PF3 in ISPF panel
Reply with quote

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
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Wed Jan 21, 2009 6:36 pm    Post subject: Reply to: CLIST getting hanged on using PF3 in ISPF panel
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts Conditional highlighting of rows in I... packerm CLIST & REXX 2 Thu Sep 21, 2017 6:50 pm
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 10 Tue Sep 05, 2017 4:24 pm
No new posts Calling CLIST through job and REXX Sahasra K CLIST & REXX 19 Tue Aug 01, 2017 10:25 am
No new posts saving your settings in ISPF. VintageReceiver TSO/ISPF 9 Wed Jul 26, 2017 6:42 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us