バージョンID およびプラットフォームID を検索します。
このシステムでは、本サブルーチンは機能的に意味がありません。。
指定方法
CALL "CEEGPID" USING
BY REFERENCE VERSION,
BY REFERENCE PLATID,
BY REFERENCE FC.01 VERSION PIC S9(9) BINARY.
01 PLATID PIC S9(9) BINARY.
01 FC.
02 Condition-Token-Value.
COPY CEEIGZCT.
03 Case-1-Condition-ID.
04 Severity PIC S9(4) BINARY.
04 Msg-No PIC S9(4) BINARY.
03 Case-2-Condition-ID
REDEFINES Case-1-Condition-ID.
04 Class-Code PIC S9(4) BINARY.
04 Cause-Code PIC S9(4) BINARY.
03 Case-Sev-Ctl PIC X.
03 Facility-ID PIC XXX.
02 I-S-Info PIC S9(9) BINARY.本システムでこのパラメタの値は0です。
本システムでこのパラメタの値は0です。
フィードバック・コード域を指定します。
返却されるフィードバック・コードとコードの意味は以下のとおりです。
コード | 重大度 | メッセージ番号 | 意味 |
|---|---|---|---|
CEE000 | 0 | 0 | 成功 |