veena_nagesh2002 Warnings : 1 Active User
Joined: 07 May 2005 Posts: 110 Location: hyderabad
|
|
|
|
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 |
|