Call invocation

CALL ISPLINK('LMCOPY  ',DDVAR,'L* ',DDVAR2,' ', 'REPLACE ',
                  'PACK    ','TRUNC   ');

Set the program variable BUFFER to contain:

BUFFER = 'LMCOPY FROMID(&DDVAR) FROMMEM(L*)
         TODATAID(&DDAVAR2) REPLACE PACK TRUNC';

Set the program variable BUFLEN to the length of the variable BUFFER. Issue the command:

CALL ISPEXEC (BUFLEN, BUFFER);