Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
rexx does not have screens. I think you are talking about ISPF panels.
But rexx and ISPF work pretty well together. Just use the same variable names in both the rexx program and the ISPF panel. The variable name has to follow ISPF naming conventions.
Use the DISPLAY service of ISPF service to display a panel.
there is no need for an example, I will just repeat the concept..
Code:
some rexx processing : .....
assigne a value to a variable : myvar = some_value
display a panel : Address ISPEXEC DISPLAY PANEL(mypanel)
if the panel contains a field named "myvar" it will display "some_value"
when the control comes back to Your rexx script
if the panel contains a field named "xxxxx"
the rexx variable "xxxxx" will automatically contain the value entered in the panel
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
Quote:
by using the above code i want populate the julian date in JDAY
No, the above code does nothing with JDAY.
The rexx program should be separate from the ISPF panel. The rexx program is a member of your ALTLIB or SYSEXEC concatentation. The ISPF panel is a member of your LIBDEF ISPPLIB allocation.
The rexx program sets if variables then uses DISPLAY service to display the panel.
Joined: 07 May 2005 Posts: 110 Location: hyderabad
The below is the ispf panel which i was coded as separate member where i want to display the julianday on JDAT field in this panel when ever user is keyed. note : consider this member name as GFCMEN
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($$)
+$-$¢ FDS TESTING MAIN MENU +$-$
%Option+===>_ZCMD
+$ $ Userid...:@JUID +
+$ $ Center...:@JCTR +
+$ $ IMS Region...:_JREG +
+
% H - - +HOUSEKEEP
% F - - +FRONT END
% S - - +SUBMISSION
% V - - +VALIDATION
% P - - +POSTING
+
+ YEAR MONTH DATE JULIAN
+ ENTER AFCDATE DETAILS : _JYER+ _JMON+ _JDAT+ _JDAY+
+
+ ENTER HOLIDAY INDICATOR : _JHND+
+
+ ENTER CENTER CODE : _JCNT+
+
+ Warnings : @JWAR
+
+
+ Hit PF3(END) to exit + $ $ Time...:@JTIM +
)INIT
now should i need to call the panel from rexx or panel to rexx pgm, since i was strucked at this point from a long time or else advice me the code changes in respective areas to get desired output.
Code:
ALTLIB ACTIVATE APPLICATION(CLIST) DATASET('PXXXXXA.NAG.SYSPROC') <<< rexx PGM (JULIAN) is present here
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
1. after your libdefs, call your JULIAN exec.
2. At the end of your JULIAN exec add
Code:
Address ISPEXEC "SELECT PANEL(GFCMEN)"
Earlier, I had said to use the DISPLAY service, but I see in your panel that is actually a menu. Use SELECT instead.
3. and, this is the third time this is mentioned...use the same name for the variables. Your panel has JDAT, but your JULIAN program has JDATout. Use the same variable name (fourth time).
