MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Developing untilities using REXX.

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF
View previous topic :: View next topic  
Author Message
Meg
Beginner


Joined: 08 Jul 2003
Posts: 44
Topics: 16

PostPosted: Wed Mar 10, 2004 12:26 am    Post subject: Developing untilities using REXX. Reply with quote

I would like to develop some good utility using REXX and panels so that I am facinated by REXX and would like to learn more. So if anyone had thought of developing some utilities or have already developed some good utility please share it with me.
Thanks,
Megana
P.S: I am not sure if this topic. If this is not the right place please let me know.
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12376
Topics: 75
Location: San Jose

PostPosted: Wed Mar 10, 2004 6:28 am    Post subject: Reply with quote

Meghana,

well you can develop some interesting utilities with rexx. You can go thru the questions asked in the TSO/ISPF forum. There are some questions which are quite interesting. All the Best !

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Mike
Beginner


Joined: 03 Dec 2002
Posts: 114
Topics: 0
Location: Sydney, Australia

PostPosted: Wed Mar 10, 2004 5:10 pm    Post subject: Reply with quote

OK, perhaps the most generally useful Rexx utility I have written is one that allows you to easily run an edit macro against selected members of a PDS/PDSE (using standard ISPF pattern matching). The resultant processing being done either via batch or foreground. In batch the utility even automatically generates the batch job using the invokers allocated datasets (i.e. SYSPROC, SYSEXEC, ISPPLIB, ISPMLIB, ISPTLIB, ISPSLIB).

Here's what the initial panel looks like :-

Code:

---------- Invoke Edit Macro on PDS members -----------------------------------
Command ===>                                                                   
                                                                               
Macro          ===> ________                                                   
Member or Mask ===> ________  (ISPF Pattern)                                   
PDS            ===> ____________________________________                       
 (Do not include member name or parenthesis in the PDS field)                 
Parameter      ===>                                                           
                                                                               
Batch/Foreground ===> B  B or F                                               
Edit/Submit Job  ===> E  E or S                                               
                                                                               
Job Card JCL for Batch job                                                     
//DMI021XX JOB UD228542026,'?????????',CLASS=A,                               
//             MSGCLASS=X,NOTIFY=&SYSUID                                       
//*                                                                           
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
-------------------------------------------------------------------------------
       DIPM        04/03/11        08:04        04.071        DMI021        ---
-------------------------------------------------------------------------------


Are you game to write something similar? Smile
_________________
Regards,
Mike.
Back to top
View user's profile Send private message
Maton_Man
Beginner


Joined: 30 Jan 2004
Posts: 123
Topics: 0

PostPosted: Wed Mar 10, 2004 6:06 pm    Post subject: Reply with quote

Where do I start? Smile

Here are three that I have written (not necessarily including panels):

EVERY - a rexx edit macro which:
* copies or inserts data every N lines
* can limit to column boundaries
* can replace the data on existing lines or insert the data on a new line

BUILDCRD - a rexx which takes input either in the form of space delimited data or the name of a PDS from which it builds a member list and:
* sustitutes each member name/data item for a parm specified in an input card
* produces one card for each member name/data record

For example, I can point it to our IMS PSB source dataset and generate one BUILD PSB=(&PRM1) card for each member in the library. There are a host of other uses for this tool as well.

FERRET - A panel driven utility which allows you to specify a member or dataset containing a SAS program, a search string and the levels of nesting you are prepared to go to in order to search that program and any other program called by it for that string. This could be adapted for any other language, I just haven't been bothered.

The world is your oyster!
_________________
My opinions are exactly that.
Back to top
View user's profile Send private message
Anovice
Beginner


Joined: 18 Feb 2004
Posts: 12
Topics: 2

PostPosted: Thu Mar 11, 2004 8:08 am    Post subject: Reply with quote

U can learn rexx and also add value by studying the existing processes that you follow everyday. See if there are certain manual things that consume a lot of time and if a rexx utility could automate it. Do not fall into the think trap that only rexx can do that. There might be simpler ways REXX is only a tool and is not a panacea for everything. However, rexx is a useful and simple language to develop good tools.
Back to top
View user's profile Send private message
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Fri Mar 12, 2004 1:42 am    Post subject: Reply with quote

Hier is one of the smallest but nicest Utilities:

/* Rexx rexi rexx command-interpreter */
arg cmdline
interpret say cmdline
exit

Just enter for example rexi 12*4 or date(s) or .....
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> TSO and ISPF All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group