MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ISPF Panel not working

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
dhansr
Beginner


Joined: 26 May 2016
Posts: 14
Topics: 6
PostPosted: Wed Jun 29, 2016 2:48 pm    Post subject: ISPF Panel not working Reply with quote
Hi,

I have written the panel in a PDS like below.

Code:


VIEW      ,TEST.IP.PGM.REXXPGM4(JOBMAIN) - 01.01          ,Columns,00001,00072,
Command ===>,                                                ,Scroll ===>,CSR ,
******,***************************** Top of Data ******************************
000001,)ATTR
000002,# TYPE(TEXT)   INTENS(HIGH) COLOR(GREEN)
000003,$ TYPE(TEXT)   INTENS(HIGH) COLOR(WHITE) HILITE(REVERSE)
000004,@ TYPE(TEXT)   INTENS(HIGH) COLOR(WHITE)
000005,{ TYPE(OUTPUT) INTENS(HIGH) COLOR(RED)  JUST(RIGHT) CAPS(OFF)
000006,_ TYPE(NEF)
000007,)BODY
000008,+ $                  TESTING MENU                                   + +
000009,+                                                                   + +
000010,+                                                                   + +
000011,+                                    {OPMSG                         + +
000012,+                                                                   + +
000013,+                                                                   + +
000014,+@ ENTER THE OPTION TO LAUNCH  : _OPTION                            + +
000015,+                                                                   + +
000016,+                                                                   + +
000017,+@ OPTIONS AVAILABLE:                                               + +
000018,+@   1. EXECUTE 1ST JOB                                             + +
 ,*DSLIST ,



Executing this panel with REXX in a PDS

Code:


VIEW      ,TEST.IP.PGM.REXXPGM3(JOBOPT) - 01.04           ,Columns,00001,00072,
Command ===>,                                                ,Scroll ===>,CSR ,
******,***************************** Top of Data ******************************
000100,/*REXX*/
000200,ADDRESS ISPEXEC
000300,"CONTROL ERRORS RETURN"
000400,"LIBDEF ISPPLIB DATASET ID('TEST.IP.PGM.REXXPGM4') UNCOND"
000500,"ADDPOP ROW(5) COLUMN(5)"
000600,"DISPLAY PANEL(JOBMAIN) CURSOR(OPTION)"
000700,OPMSG=''
000800,DO WHILE RC=0
000900,SELECT
001000,WHEN OPTION=1 THEN DO
001100,ADDRESS TSO
001200, CALL JOBEXEC
001300,END
001400,WHEN OPTION=2 THEN DO


When i execute REXX by providing EX before member name i am getting RC=0 but panel is not displaying, could you please suggest why?

Code:

BROWSE           ,TEST.IP.PGM.REXXPGM3                 ,Row,0000002,of,0000002,
Command ===>,                                                ,Scroll ===>,CSR ,
         , Name   ,,Prompt    ,, Size,, Created  ,,      Changed      ,,  ID  ,
EX_______,JOBOPT  ,*RC=0   ,       43  2016/06/29  2016/06/29 12:37:10  E000000
         ,**End** ,
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12394
Topics: 75
Location: San Jose
PostPosted: Thu Jun 30, 2016 10:26 am    Post subject: Reply with quote
dhansr,

You need to practice the art of debugging the errors by using TRACE command in your EXEC.

1. Code a TRACE I at the beginning of your Rexx EXEC
2. You need a Missing )END for the panel definition.
3. ZERRLM contains the error so you can check that right after you displayed the panel in the exec.
4. Stop posting the code with LINE NUMBERS


Code:

)ATTR                                                                     
# TYPE(TEXT)   INTENS(HIGH) COLOR(GREEN)                                   
$ TYPE(TEXT)   INTENS(HIGH) COLOR(WHITE) HILITE(REVERSE)                   
@ TYPE(TEXT)   INTENS(HIGH) COLOR(WHITE)                                   
{ TYPE(OUTPUT) INTENS(HIGH) COLOR(RED)  JUST(RIGHT) CAPS(OFF)             
_ TYPE(NEF)                                                               
)BODY                                                                     
+ $                  TESTING MENU                                   + +   
+                                                                   + +   
+                                                                   + +   
+                                    {OPMSG                         + +   
+                                                                   + +   
+                                                                   + +   
+@ ENTER THE OPTION TO LAUNCH  : _OPTION                            + +   
+                                                                   + +   
+                                                                   + +   
+@ OPTIONS AVAILABLE:                                               + +   
+@   1. EXECUTE 1ST JOB                                             + +   
+@   2. GET DSLIST                                                  + +   
)END                                                                       

_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
dhansr
Beginner


Joined: 26 May 2016
Posts: 14
Topics: 6
PostPosted: Fri Jul 01, 2016 12:10 pm    Post subject: Reply with quote
Thanks Kolusu. after putting end, I did Renum & Unnum, it works !!
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group