CALL ISPLINK('LMOPEN ',DDVAR,'INPUT ',
'DLVAR ','RFVAR ',
'ORGVAR ');
OR
BUFFER = 'LMOPEN DATAID(&DDVAR) OPTION(INPUT)
LRECL(DLVAR) RECFM(RFVAR)
ORG(ORGVAR)';
CALL ISPEXEC (BUFLEN, BUFFER);