|
View previous topic :: View next topic
|
| Author |
Message |
veena_nagesh2002
Warnings : 1
Active User
Joined: 07 May 2005
Posts: 110
Location: hyderabad
|
|
|
|
| Code: |
/*REXX PGM */
ADDRESS ISPEXEC "LIBDEF ISPPLIB DATASET ID('PXXXXXA.NAG.SPFMENUS.ISPPLIB')" << PANNEL DEFINED
ADDRESS ISPEXEC "DISPLAY PANEL(GFCHUS)" << PANNEL DISPLAYED PROPERLY
SAY JYER << RECEIVED VALUE AS 2008 AND DISPLAYED
JYER = JYER + 1 << INCREMENTED TO 2009
SAY JYER << DISPLAYED 2009
ADDRESS ISPEXEC "DISPLAY PANEL(GFCHUS)" << BUT HOW TO REFLECT IN THE PANNEL WITH 2009 INSTEAD OF 2008 |
PANNEL CODE : GFCHUS
| Code: |
)ATTR
@ TYPE(OUTPUT) INTENS(LOW) CAPS(OFF)
! TYPE(INPUT) INTENS(NON)
ยข TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) HILITE(REVERSE)
# TYPE(TEXT) INTENS(LOW) SKIP(ON)
)BODY expand($$)
+ YEAR : _JYER +
)PROC
VPUT (JYER) PROFILE
)END |
|
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| Is there a question here or is this posted as a hint and tip to other users ? |
|
| Back to top |
|
|
veena_nagesh2002
Warnings : 1
Active User
Joined: 07 May 2005
Posts: 110
Location: hyderabad
|
|
|
|
Sorry,
The question is
How to display the incremented value on ispf panel |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
| What happens when you open the panel ? |
|
| Back to top |
|
|
veena_nagesh2002
Warnings : 1
Active User
Joined: 07 May 2005
Posts: 110
Location: hyderabad
|
|
|
|
| it displaying 2008 only but not 2009 which was incremented |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
Knocked up a quick REXX and panel and mine works perfectly. The only thing that immediately springs to mind is that I have the DEFAULT declared on my )ATTR statement.
REXX
| Code: |
"ISPEXEC DISPLAY PANEL(TEST01)"
JYER = JYER + 1
"ISPEXEC DISPLAY PANEL(TEST01)" |
PANEL
| Code: |
)ATTR DEFAULT(%+_)
)BODY EXPAND([[)
%COMMAND ===>_ZCMD
+ +
+ YEAR = _JYER+
+ +
)INIT
.CURSOR = JYER
)PROC
)END |
|
|
| Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
| Same code, same panel definition, also worked just fine here. |
|
| Back to top |
|
|
Garry Carroll
Senior Member
Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland
|
|
|
|
Works fine as-is for me, too.
Garry. |
|
| Back to top |
|
|
|
|
