On Wed, 19 Apr 2017 22:08:01 +0200, R.S. wrote:
>No, I don't. Actually I don't know how to do it properly.
>My rexx code (taken from RTFM):
>
>'ISREDIT MACRO (NESTMAC)'
>'ISREDIT (DATA1) = DATAID'
>'ISREDIT (CURMEM) = MEMBER'
>Address ispexec 'LMOPEN DATAID('data1') OPTION(INPUT)'
>member = ' '
>lmrc = 0
>
>Do While lmrc = 0
> Address ispexec 'LMMLIST DATAID('data1') OPTION(LIST),
> MEMBER(MEMBER) STATS(NO)'
> lmrc = rc
> If lmrc = 0 & member ^= curmem Then
>do
> Address ispexec 'EDIT DATAID('data1') MEMBER('member')
>MACRO('nestmac')'
> /* something HERE??? */
I believe "ADDRESS ISREDIT END" must appear *** inside nestmac ***.
>end
>End
>/*********************************************************************/
>Address ispexec 'LMMLIST DATAID('data1') OPTION(FREE)'
>Address ispexec 'LMCLOSE DATAID('data1')'
>Exit 0
-- gil
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
