A base library for messages (ISPMLIB) is defined. Query the "ID" information and return the "ID" information in the variable IDV.
Here is the command invocation
ISPEXEC QBASELIB ISPMLIB ID(IDV)
Here is the call invocation:
CALL ISPLINK ('QBASELIB','ISPMLIB ','IDV ');
Or alternatively, you could:
QBASELIB ISPMLIB ID(IDV)
CALL ISPEXEC (BUFLEN, BUFFER);