Thanks for your reply. I have not done any Rexx in past but I am quite keen to learn. Can you please point me to the thread where a similar macro is discussed. Thanks.
Joined: 10 May 2007 Posts: 2400 Location: Hampshire, UK
The macro is simple - here is an example:
Code:
/*--------------------------------------------------------------------*/
/* Edit Macro: forum.SPF */
/* Function: Apply a CHANGE command and then EXIT the data set/member */
/* being edited */
/*--------------------------------------------------------------------*/
"ISREDIT macro"
"ISREDIT change 'abc' 'xyz' all"
"ISREDIT end"
Exit
The rexx is also simple:
Code:
/*- Rexx ------------------------------------------------------------*/
/* */
/* Sample program to read a list of data sets from a data set and */
/* then edit each dataset using a macro. */
/* */
/* This is written assuming that the program is to be run in batch */
/* with the input data set allocated in the JCL to ddname THELIST. */
/* */
/* Being run in batch the appropriate ISPF libraries must be */
/* allocated in the JCL. */
/* */
/* No error checking has been incorporated into this sample code. */
/* */
/* Written by: Rexxcellent Software Date: April 2017 */
/* */
/*------------------------------------------------------------ Rexx -*/
Trace N
/* Read the list of data sets into stem dsn_list. */
EXECIO * DISKR thelist(stem dsn_list. finis)
/* dsn_list.0 has the count of lines read */
/* Now process the list one-by-one */
Do i = 1 to dsn_list.0
Address ISPEXEC "edit "dsn_list.i" IMACRO(macroname)"
/*----------
You may need to quote the data set name in the above line...
Addre... "edit '"dsn_list.1"' IMAC...
----------*/
End
Exit
Note: these are examples only but the macro has been tested. The more difficult part may be the JCL! There is a recent example of the requirement in the Beginner's Forum.
