× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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 **************************************



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.