CALL ISPLINK('LMMOVE ',DDVAR,'MYPROG ',DDVAR2,' ','REPLACE '); OR
BUFFER = 'LMMOVE FROMID(&DDVAR) FROMMEM(MYPROG) TODATAID(&DDVAR2) REPLACE';
CALL ISPEXEC (BUFLEN, BUFFER);