RE: Examples of REXX I'm thinking about putting on some site

Dave,

What are the magic numbers 114 and 115? Is this an assumption that only
115 objects are in table ivrobj?

Loyd Goodbar
Business Systems
BorgWarner Shared Services
662-473-5713

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Dave Odom
Sent: Monday, April 21, 2008 6:13 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Examples of REXX I'm thinking about putting on some site

Gang,

I thought I'd offer some REXX code for the i5(or the name de jour), one
program at a time, and see what you all think. None of this code is
super snazzy as I'm not a super or snazzy programmer; I just write stuff
that helps me automate "tops on bottoms" tasks. Use freely but I'd like
to have some line in your code that says where it came from. The
following is a small EXEC that reads a file that contains various object
names and submits them to a GRTOBJAUT command. The substring function
is to skip the first two insignificant characters in the input file.
The TRACE function is active in this program so I can watch it execute
and debug. I'll submit more code with increasing complexity as time
goes on. And, yep, you can probably create a better way of doing this
but it was a quick and dirty.

/* 08/19/07 DaveO Creation */
/*******************************************************************/
TRACE 'r'
/*******************************************************************/
i=0
Do while i <= 114
i=i+1
If i >= 115 then exit
'OVRDBF FILE(STDIN) TOFILE(dodom1/ivrobj) MBR(ivrobj)'
PULL OBJECT1
OBJ1 = SUBSTR(OBJECT1,3)
'GRTOBJAUT OBJ(*ALL/'obj1') OBJTYPE(*ALL) USER(VRS2) AUT(*CHANGE)'
end
exit rc
****************** End of data **************************************