Call invocation

CALL ISPLINK('LMINIT  ','DDVAR ',
             ' ',' ',' ',' ',' ',' ',
             'SMITH.CLIST',' ',
             ' ',' ','SHR     ');