Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to give a input from a rexx program to a panel

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
bhuspin

New User


Joined: 13 Aug 2008
Posts: 26
Location: chennai

PostPosted: Thu Dec 18, 2008 4:13 pm    Post subject: How to give a input from a rexx program to a panel
Reply with quote

How to give a input from a rexx program to a panel
Back to top
View user's profile Send private message

PeD

Active User


Joined: 26 Nov 2005
Posts: 456
Location: Belgium

PostPosted: Thu Dec 18, 2008 4:15 pm    Post subject:
Reply with quote

.... to a ISPF panel.


via ispexec VPUT.

Check manual.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Thu Dec 18, 2008 8:39 pm    Post subject: Reply to: How to give a input from a rexx program to a panel
Reply with quote

It should work by using the same variable names. Assign values in the rexx program and use the same names in the panel. In the panel, variables are identified when they are preceeded by an ampersand or an attribute character.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Fri Dec 19, 2008 10:17 am    Post subject: Reply to: How to give a input from a rexx program to a panel
Reply with quote

Bhuspin,

Just a thought.

Quote:
How to give a input from a rexx program to a panel


If a field value is sent from the program to the panel (assuming that the field names are same) then its actually an OUTPUT rather than an input.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1288
Location: Chennai, India

PostPosted: Fri Dec 19, 2008 10:22 am    Post subject: Reply to: How to give a input from a rexx program to a panel
Reply with quote

Bhuspin,

Say you have a fields named DESCR and VALDV in the panel and you want to move values to the field.

Use the same fields in the REXX program and populate it.

Code:
IF DESCR = 'HOST_VAR1' THEN
   DO
      DESCR='YET TO UPDATE THE FIELD'
      VALDV='YET TO UPDATE THE FIELD'
   END


Then when you re-display the panel the values will be reflected in the panel.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Tue Apr 14, 2009 6:52 pm    Post subject: Re: Reply to: How to give a input from a rexx program to a p
Reply with quote

I have coded in my program

STAR = '*'

On the panel when I write STAR (inside body) STAR gets printed and not *.

Need to display it on the panel. Please help.

Aaru wrote:
Bhuspin,

Say you have a fields named DESCR and VALDV in the panel and you want to move values to the field.

Use the same fields in the REXX program and populate it.

Code:
IF DESCR = 'HOST_VAR1' THEN
   DO
      DESCR='YET TO UPDATE THE FIELD'
      VALDV='YET TO UPDATE THE FIELD'
   END


Then when you re-display the panel the values will be reflected in the panel.
Back to top
View user's profile Send private message
superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4650
Location: Raleigh, NC, USA

PostPosted: Tue Apr 14, 2009 7:02 pm    Post subject: Reply to: How to give a input from a rexx program to a panel
Reply with quote

Once again, it works OK for me:

Code:

/* REXX     **********************************************************/
/* Process inline panel and message definitions */                     
ddname = "$"Right(Time(S),7,"0")                                       
memname = "ZZ"                                                         
"ALLOC NEW DEL F("ddname") DIR(2) SP(1) TR RECF(F B)                   
  BLKS(0) LRECL(80) REU"                                               
"ISPEXEC LMINIT DATAID(did) DDNAME("ddname") ENQ(EXCLU)"               
"ISPEXEC LMOPEN DATAID("did") OPTION(OUTPUT)"                         
a = 1                                                                 
Do 1 /* 1 ITERATION FOR EACH PANEL DEFINITION */                       
  Do a = a To 999 Until Substr(line,1,8) = "/*MEMBER"                 
    line = Sourceline(a)                                               
  End                                                                 
  Parse Var line . memname .                                           
  Do a = (a + 1) To 999 While Substr(line,1,2) <> "*/"                 
    line = Sourceline(a)                                               
    "ISPEXEC LMPUT DATAID("did") MODE(INVAR)DATALOC(line) DATALEN(80)"
  End                                                                 
  "ISPEXEC LMMADD DATAID("did") MEMBER("memname")"                     
End                                                                   
"ISPEXEC LMFREE DATAID("did")"                         
"ISPEXEC LIBDEF ISPPLIB LIBRARY ID("ddname") STACK"     
"ISPEXEC LIBDEF ISPMLIB LIBRARY ID("ddname") STACK"     
"ISPEXEC LIBDEF ISPSLIB LIBRARY ID("ddname") STACK"     
star = '*'                                             
"ISPEXEC DISPLAY PANEL(TEST7901)"                       
Exit 0                                                 
                                                       
/*MEMBER TEST7901                               
)Attr Default(%+_)                             
  $ Type(Input) Intens(Low) Pad(_) Caps(Off)   
  _ Type(Input) Intens(Low) Pad(_) Caps(On)     
  ! Type(Input) Intens(Low) Pad(' ') Caps(Off) 
  ` Type(Output) Intens(High)                   
  # Type(Output) Intens(Low)                   
)Body Expand(//) Width(80) Cmd()               
%/-/ Panel Title /-/+                           
+Command%=>_zcmd                               
+                                               
$star+                                         
+                                               
)Init                                           
)Proc                                           
)End                                           
*/                                             


Output Results:

Code:

SYSB ---------------------------- Panel Title --------------------------------
Command => ____________________________________________________________________
                                                                               
*___                                                                             
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Tue Apr 14, 2009 9:12 pm    Post subject: Reply to: How to give a input from a rexx program to a panel
Reply with quote

Perhaps Pragati does not realize that you have to indicate the start of a field through the use of an attribute character. Variables can also be displayed through the use of an ampersand.
Back to top
View user's profile Send private message
Pragati Soni

New User


Joined: 18 Jan 2008
Posts: 47
Location: India

PostPosted: Wed Apr 15, 2009 10:05 am    Post subject:
Reply with quote

Thanks a lot. I got the point.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us