名前
TDGETUSERINFORMATION
形式
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 USERINFO.
02 DATALENGTH PIC S9(9) COMP-5
02 USERID PIC X(24) VALUE SPACE.
02 RETCODE PIC S9(9) COMP-5
PROCEDURE DIVISION.
CALL "TDGETUSERINFORMATION" USING
USERINFO
RETCODE.機能説明
USERINFOで指定された領域のDATALENGTHにユーザ識別子情報の長さを、USERIDにユーザ識別子を設定します。
復帰値
正常終了した場合は、RETCODEに0を返します。
異常終了した場合には、以下のいずれかの値を返します。
1: パラメタエラー 2: プロトコルエラー 3: シーケンスエラー 99: システムエラー