Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Panel Integration with REXX code

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

Active User


Joined: 14 Jul 2005
Posts: 105

PostPosted: Tue Jan 06, 2009 10:51 pm    Post subject: Panel Integration with REXX code
Reply with quote

I have designed a panel like and this is my first exposure to panel!!

enter no:......

I have the panel code with.My panel is designed in TESTPAN
Code:

/* REXX */
...
/*SHOW*/                                               
"ISPEXEC ADDPOP"                                       
"ISPEXEC DISPLAY PANEL(TESTPAN)"                       
"ISPEXEC REMPOP"                                       
...


Now I need to proceed like this
a) Prompt the user to enter the no on the above designed panel
b) Once he's entered the number displaying the reverse of the number on the same panel/or new panel with

Rev no:

I have the rexx program with me which will reverse the number.
I do not know how I can integrate all the componants together.Like first panel pop up then integrating REXX code for reversal.

Please suggest/or let me know incase I need to furnish any more information from my side,thanks
Back to top
View user's profile Send private message

superk

Moderator Team Head


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

PostPosted: Tue Jan 06, 2009 11:08 pm    Post subject: Reply to: Panel Integration with REXX code
Reply with quote

You didn't post the source code for TESTPAN. I presume that you have an input field and that you have a variable to store the entered number into?
Back to top
View user's profile Send private message
raghavmcs

Active User


Joined: 14 Jul 2005
Posts: 105

PostPosted: Tue Jan 06, 2009 11:45 pm    Post subject:
Reply with quote

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.
Code:

)ATTR DEFAULT(%+_)                                                     
      /*  % 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 ' ' */
)BODY                                                                 
%--------------------  TITLE FOR ENTRY PANEL  -------------------------
%COMMAND ===>_ZCMD                                                     
%                                                                     
+   NUMBER reversal                                                   
+                                                                     
+    NUMBER $v1           +                                           
)INIT                                                                 
  .HELP = TUTORPAN           /* Insert name of tutorial panel    */   
)PROC
Back to top
View user's profile Send private message
superk

Moderator Team Head


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

PostPosted: Wed Jan 07, 2009 1:01 am    Post subject: Reply to: Panel Integration with REXX code
Reply with quote

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.
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
This topic is locked: you cannot edit posts or make replies. Need help on If condition continuatio... ashok_uddaraju CLIST & REXX 4 Fri May 19, 2017 8:55 am
No new posts Job failing with USER = 4093 REASON C... Pradeepa S ABENDS & Debugging 1 Wed May 17, 2017 3:35 pm
No new posts COBOL Code Parsers and Lineage Establ... balimanja COBOL Programming 2 Tue May 02, 2017 3:30 am
No new posts Cobol upgrade - source code missing f... gthmrj IBM Tools 1 Wed Apr 26, 2017 6:04 pm
No new posts Running an REXX EXEC implicitly sho7hills CLIST & REXX 3 Thu Apr 20, 2017 8:14 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us