The first panel (testpan) code is. As this is the first panel I designed so could be possible that some technical flaws are there but it was throwing up with the messege. Now I do not know how to proceed next towards achieving what I want.
/* % TYPE(TEXT) INTENS(HIGH) defaults displayed for */
/* + TYPE(TEXT) INTENS(LOW) information only */
/* _ TYPE(INPUT) INTENS(HIGH) CAPS(ON) JUST(LEFT) */
$ TYPE(INPUT) INTENS(LOW) PAD(_) /* input field padded with '_' */
! TYPE(INPUT) INTENS(LOW) PAD(' ') /* input field padded with ' ' */
%-------------------- TITLE FOR ENTRY PANEL -------------------------
+ NUMBER reversal
+ NUMBER $v1 +
.HELP = TUTORPAN /* Insert name of tutorial panel */
Joined: 26 Apr 2004 Posts: 4649 Location: Raleigh, NC, USA
OK, so the panel has an input field defined along with a variable name (v1) that contains the value entered.
So, just check the return-code of the DISPLAY service. It will be zero if the user pressed the Enter key. Pass the variable (v1) to your reversing routine, then call the DISPLAY service again. If you use the same panel, the variable (v1) will now contain the updated reversed value.
The basic concept here is to keep the variable names consistent between your ISPF panels and services and the underlying REXX code.