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 = ' '