Call invocation

CALL ISPLINK('LMMDISP ', DDVAR,
             'DELETE  ',
             'ISRFIRST');

OR

Set the program variable BUFFER to contain:

BUFFER = 'LMMDISP DATAID(&DDVAR)
          OPTION(DELETE)
          MEMBER(ISRFIRST)';

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

CALL ISPEXEC (BUFLEN,BUFFER);