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
 
Unable to return to previous menu or main menu

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
veena_nagesh2002
Warnings : 1

Active User


Joined: 07 May 2005
Posts: 110
Location: hyderabad

PostPosted: Wed Oct 15, 2008 3:07 pm    Post subject: Unable to return to previous menu or main menu
Reply with quote

Have developed a main menu(GFCMEN), when the user select option '0' then it is calls another to REXX pgm GFCSET successfully.

&ZSEL = TRANS( TRUNC (&ZCMD,'.') 0,'PANEL(GFCSET)'
H,'PANEL(GFCHUS)'
U,'PANEL(GFCUTL)'
B,'PANEL(GFCBAL)'
R,'PANEL(GFCRPT)'
F,'PANEL(GFCFRT)'
S,'PANEL(GFCSUB)'
V,'PANEL(GFCVAL)'
P,'PANEL(GFCPOS)'
X,'EXIT')
&ZTRAIL = .TRAIL

But when I press PF3 or after entring all the desired data in the GFCSET screen and if i presss enter it displaying the
below error. how to handle this error

ISPD213

*Invalid panel
*'GFCSET' is not a valid 'selection' panel.
*
*Panel line where error was detected:
*ZSEL = PANEL(GFCSET)

GFCSET screen code :
====================
)BODY EXPAND($$)
+$-$ยข FINCADS TEST FACILITY +$-$
+$ $ Center: @POCTR +
+$ $ IMS Environment: @IMSREG+
+
% Julian Date :_JDAY+
+
% Month :_JMON+
+
% Year :_JYER+
+
)INIT
&JDAY=.CURSOR
)PROC
ver (&JDAY,nb,range,0001,0366,msg=GFCEF000)
ver (&JMON,nb,range,0001,0012,msg=GFCEF001)
ver (&JYER,nb,range,2001,2015,msg=GFCEF002)
VPUT (JDAY,JMON,JYER) PROFILE
)END
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2092
Location: Silicon Valley

PostPosted: Thu Oct 16, 2008 1:38 am    Post subject: Reply to: Unable to return to previous menu or main menu
Reply with quote

Did you read the description for message ISPD213 ?
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IBEGENER RETURN CODE 12 anilkumar922 All Other Mainframe Topics 5 Wed Dec 13, 2017 11:41 am
No new posts Unable to send mail with SMTP commands harsh.saxena579 JCL & VSAM 10 Tue Dec 12, 2017 1:58 pm
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts unable to set RC = 4 when empty file migusd SYNCSORT 1 Tue Nov 21, 2017 1:21 am
No new posts it is possible output a SET value fro... Martylin JCL & VSAM 6 Fri Sep 22, 2017 7:08 am

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