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