Call invocation

DCL DDVAR CHAR (8);
CALL ISPLINK('VDEFINE ','DDVAR ',DDVAR,'CHAR    ',
              LENGTH(DDVAR));
CALL ISPLINK('LMINIT  ','DDVAR ','ISPF ',
             'TESTLIB1 ','TESTLIB2 ',
             'TESTLIB3 ','TESTLIB4 ','PLIOPT ');
 

or

BUFFER = 'LMINIT DATAID(DDVAR) PROJECT(ISPF) GROUP1(TESTLIB1)
                GROUP2(TESTLIB2) GROUP3(TESTLIB3)
                GROUP4(TESTLIB4) TYPE(PLIOPT)';

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

CALL ISPEXEC (BUFLEN, BUFFER);