Call invocation

CALL ISPLINK('LMMREN  ',DDVAR,'MYPROG ','MYPROGA '
                       ,'NOENQ');

Set the program variable BUFFER to contain:

BUFFER = 'LMMREN DATAID(&DDVAR)
                MEMBER(MYPROG) NEWNAME(MYPROGA)';

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

CALL ISPEXEC (BUFLEN, BUFFER);