Call invocation

CALL ISPLINK('LMERASE ','DEPT877 ',
                        'PRIVATE ',
                        'CLIST ',
                        'YES     ');
OR
 

Set the program variable BUFFER to contain:

BUFFER = 'LMERASE PROJECT(DEPT877)
                 GROUP(PRIVATE)
                 TYPE(CLIST)
                 PURGE(YES)';

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

CALL ISPEXEC (BUFLEN, BUFFER);