I would like to ask you one question:
I’m trying to make one simple program using REXX and ISPF panels. This program is running fine except one think, when I’m in the first panel and select option 1 and press ENTER, it’s nothing happened. In the second time when I select option 1 and press ENTER the program redirect to the second panel.
Could you please advise me what to change in my program to reduce the double pressing ENTER to jump from panel 1 to panel 2.
Here is the code:
REXX program:
/* REXX */
"ISPEXEC DISPLAY PANEL(TEST2)"
PULL A
IF A=1 THEN "ISPEXEC DISPLAY PANEL(TEST1)"
ELSE
SAY A
EXIT
/* REXX */
"ISPEXEC DISPLAY PANEL(TEST2)"
PULL A
IF A=1 THEN "ISPEXEC DISPLAY PANEL(TEST1)"
ELSE
SAY A
EXIT
Panel1:
)ATTR DEFAULT(%+_)
@ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT )
` TYPE(TEXT) INTENS(HIGH) CAPS(OFF) JUST(ASIS ) COLOR(YELLOW)
~ TYPE(TEXT) INTENS(HIGH) CAPS(OFF) JUST(ASIS ) COLOR(TURQ)
% TYPE(TEXT) INTENS(HIGH)
# TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) HILITE(REVERSE)
)BODY WINDOW(62,32)
#MDS POWER PROG!!!!!!
%COMMAND ===>@A
~PLEASE SELECT AN OPTION:
~
`1+ LIST DATASET ATTRIBUTES
`2+ COMPRESS A PDS DATASET
`3+ EDIT PDS DATASET ATTRIBUTES
`4+ CREATE NEW PDS
`5+ COPY PDS AND ALL DIR. BLOCKS
`6+ DELETE DATASET ON DASD AND TAPE
`7+ GENERATION DATA GROUPS (GDG)
`8+ GENERATION ALIAS
`9+ EXIT
~
ENTER
)INIT
)END
@ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT )
` TYPE(TEXT) INTENS(HIGH) CAPS(OFF) JUST(ASIS ) COLOR(YELLOW)
~ TYPE(TEXT) INTENS(HIGH) CAPS(OFF) JUST(ASIS ) COLOR(TURQ)
% TYPE(TEXT) INTENS(HIGH)
# TYPE(TEXT) INTENS(HIGH) COLOR(TURQ) HILITE(REVERSE)
)BODY WINDOW(62,32)
#MDS POWER PROG!!!!!!
%COMMAND ===>@A
~PLEASE SELECT AN OPTION:
~
`1+ LIST DATASET ATTRIBUTES
`2+ COMPRESS A PDS DATASET
`3+ EDIT PDS DATASET ATTRIBUTES
`4+ CREATE NEW PDS
`5+ COPY PDS AND ALL DIR. BLOCKS
`6+ DELETE DATASET ON DASD AND TAPE
`7+ GENERATION DATA GROUPS (GDG)
`8+ GENERATION ALIAS
`9+ EXIT
~
ENTER
)INIT
)END
Panel2:
)ATTR
)BODY WINDOW(70,20)
# test ==>
! test ==>
)END
)BODY WINDOW(70,20)
# test ==>
! test ==>
)END
Code'd
