Sathish Gurumoorthy
New User
Joined: 12 Feb 2009 Posts: 33 Location: Chennai, India
|
|
|
|
I display some series of panels based on the input from the user. If i am in panel 2 and when i give F3 to display panel 1, it displays the input given by user earlier in panel 1. Also, the cursor goes to ZCMD position.
Here is my rexx and panel code
REXX code:
Code: |
/* REXX */
"ISPEXEC LIBDEF ISPPLIB DATASET ID('TMS047.JCPDIMS.REXX')"
"ISPEXEC LIBDEF ISPMLIB DATASET ID('TMS047.JCPDIMS.REXX')"
/*"ISPEXEC ADDPOP" */
/*"ISPEXEC SETMSG MSG(PLMSG002)"*/
CALL DISPLAY_PRIMARY_PANEL
/************ CALLING TO DISPLAY PRIMARY PANEL ***********/
DISPLAY_PRIMARY_PANEL:
"ISPEXEC DISPLAY PANEL(MAINPAN)"
/*"ISPEXEC REMPOP"*/
/*"ISPEXEC LIBDEF ISPPLIB"*/
IF PKEY = 'PF03' THEN
EXIT
IF CHOICE1 = 1 THEN
DO
CALL DISPLAY_TSO_PANEL
END
/************ CALLING TO DISPLAY TSO UTILITIES PANEL **********/
DISPLAY_TSO_PANEL:
"ISPEXEC DISPLAY PANEL(TSOPAN)"
IF PKEY = 'PF03' THEN
DO
CALL DISPLAY_PRIMARY_PANEL
END
IF CHOTSO = 1 THEN
DO
CALL DISPLAY_CREATE_PDS_PANEL
END
IF CHOTSO = 2 THEN
DO
CALL DISPLAY_COPY_PS_PANEL
END
|
MAINPAN:
Code: |
)PANEL KEYLIST(ISRSPEC)
)ATTR
! TYPE(TEXT) INTENS(HIGH)
# TYPE(TEXT) COLOR(red)
@ TYPE(TEXT) INTENS(LOW)
$ TYPE(INPUT) COLOR(TURQ) CAPS(ON) PAD('_')
% TYPE(INPUT) COLOR(TURQ) CAPS(ON) HILITE(USCORE)
¬ TYPE(OUTPUT) COLOR(PINK) SKIP(ON)
)BODY
! COMMAND ==>%ZCMD
# all in one utility
! ------------------
@ please select your choice :$z+
@
@ 1. TSO UTILITIES 3. IMS DATABASE
@
@ 2. JCL 4. DB2
@ Message :¬MSG
@ PF1=Help PF3=Exit ENTER=PROCESS
)INIT
.ZVARS='(CHOICE1)'
.HELP=HELPJOB
)REINIT
&CHOICE1=' '
.CURSOR=&CHOICE1
REFRESH (CHOICE1)
)PROC
&PKEY = .PFKEY
VER(&CHOICE1,NB,RANGE,1,4)
)END
|
i tried assigning a blank to that variable and placed cursor to variable CHOICE1. but while redisplaying the panel, the cursor is positioning at ZCMD.
I want the panel to be cleared/refreshed while redisplaying again, and also to place the cursor at CHOICE1.
Please help. |
|