Interstage Application Server リファレンスマニュアル（API編）

4.14.10 TDGETUSERINFORMATION

名前

　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: システムエラー