4.12.7 CORBA-ANY-GET-RELEASE

名前

CORBA-ANY-GET-RELEASE － releaseフラグの参照

形式

 ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.
   SPECIAL-NAMES.
     SYMBOLIC CONSTANT
     COPY SYMBOL-CONST IN CORBA.
     .
 DATA DIVISION.
  WORKING-STORAGE SECTION.
    COPY CONST IN CORBA.
     01 SEQ-POINTER USAGE POINTER.
     01 COPY BOOLAEN IN CORBA REPLACING CORBA-BOOLEAN BY REL-FLAG.

 PROCEDURE DIVISION.
    CALL "CORBA-ANY-GET-RELEASE" USING
         SEQ-POINTER
         REL-FLAG.

機能説明

SEQ-POINTERで指定された領域のreleaseフラグを参照し、その内容として以下のいずれかが返されます。

CORBA-TRUE-VALUE: 解放する

CORBA-FALSE-VALUE: 解放しない

releaseフラグの詳細については、“アプリケーション作成ガイド（CORBAサービス編）”の“アプリケーションの開発（COBOL）”－“any型、sequence型のリリースフラグ”を参照してください。