Call invocation

DATALEN=80;
CALL ISPLINK('LMPUT',DDVAR,'INVAR ','DATAVAR ',DATALEN);
Where DATALEN is a fullword integer variable.

OR
 
Set the program variable BUFFER to contain:
BUFFER = 'LMPUT DATAID(&DDVAR)   MODE(INVAR)
                DATALOC(DATAVAR) DATALEN(80)';

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

CALL ISPEXEC (BUFLEN, BUFFER);
Note: Null variables must be defined to have a length greater than zero. Programs containing definitions of null variables must specify VDEFINE with the NOBSCAN option. Null variables defined in CLISTs should be initialized with the &STR built-in function. Null variables defined in REXX should be initialized by setting them to ' '. For example, if x is the name of a variable: x = ' '