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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN