統合プリプロセッサインターフェイス

第 17 章 ライブラリルーチン

この章では、COBOL システムのライブラリルーチンについて説明します。ライブラリルーチンは、アプリケーションの実行環境を制御する手段として役立ちます。

 copy "cblproto.cpy".
 
 program-id. MYMAIN.
 working-storage section.
 01  .
     05  file-details    cblt-fileexist-buf.
 procedure division.
     call 'CBL_CHECK_FILE_EXIST' using 'mymain.cbl '
                                       file-details
     if  return-code not = 0
       display "File mymain.cbl does not exist (or error)"
     else
       display "File mymain.cbl size is " cblt-fe-filesize
       of file-details
     end-if
 end program MYMAIN.

17.2 ライブラリルーチンの分類

Server Express のライブラリルーチンは、次のカテゴリに分類されます。

• アプリケーションサブシステム
  
  
• バイトパック
  
  
• 並行処理サポート
  
  
• 終了プロシージャ/エラープロシージャ
  
  
• 論理演算
  
  
• NLS (National Language Support)
  
  
• オペレーティングシステム情報
  
  
• 移植性
  
  
• プログラム情報
  
  
• テキスト
  
  
• 仮想ヒープ

17.2.1 アプリケーションサブシステムのルーチン

複数のプログラムを論理グループ (サブシステム) にまとめるためのルーチンです。サブシステム内のすべてのプログラムは、1 つの文で一度にキャンセルできます。

17.2.2 バイトパックルーチン

これらのルーチンを使用すると、バイトのパックおよびアンパックを実行できます。

17.2.3 並行処理ルーチン

メモリ割り当てルーチン

実行単位制御ルーチン

並行処理の管理を可能にするルーチンです。並行処理のサポートについては、『並行処理のサポート』の章を参照してください。

17.2.4 終了プロシージャ/エラープロシージャ登録ルーチン

アプリケーションの終了時 (正常終了または異常終了) に、ランタイムシステムによって実行される独自のルーチンを登録できます。

17.2.5 論理演算ルーチン

ビット単位で論理演算を実行するルーチンです。CBL_NOT 以外の各ルーチンは、いずれも 3 つのデータ項目を使用します。

オペランドの長さ (length) がリテラルで指定されており、RETURNING 句が使用されていない場合は、ネイティブコードがインラインコードを生成するように最適化されます。

2 つのオペランド、つまり source と target を使用するルーチンでは、これらのオペランドの値を入れ替えても結果は変わりません (CBL_IMP は除く)。 計算結果は常に 2 つめのオペランド (target) に格納されます。

source や target のサイズが length の値より短い場合には、該当するデータ項目の後続バイトも、不足するバイト数のみが処理されます。

次のいずれかの構文を使用すれば、length は省略できます。

    length of source

    length of target

ただし、データ項目の全バイトが使用されることが条件です。

論理積と論理和は、VALUE 句を使って実行することも可能です。

これらのルーチンは、RETURN-CODE には影響を与えません。

17.2.6 NLS (National Language Support) ルーチン

17.2.7 オペレーティングシステム情報ルーチン

17.2.8 移植性ルーチン

このルーチンは、作成済みアプリケーションの移植性を高める手段として提供されており、新規に作成するアプリケーションには使用しません。開発段階では、別の仕組みを使って移植性を高めることができます。

17.2.9 プログラム情報ルーチン

17.2.10 テキストルーチン

17.2.11 仮想ヒープルーチン

ヒープとは、利用可能なメモリ領域に記憶されるバイトストリームファイルのことです。

ヒープの生成時に指定された状態語は当該ヒープと関連付けられており、そのヒープに対する処理が失敗すると情報が書き込まれます。各ヒープはこの仕組みを通じて特定のプログラム (状態語を含むプログラム) に関連付けられ、該当するプログラムがキャンセルされると自動的にクリアされます (CBL_CLOSE_VFILE の呼び出しで明示的にクリアされる場合もあります)。

各ヒープはヒープ識別語で区別されます。この識別語はプログラム間でやり取りすることが可能であり、識別語を受け取ったプログラムは対応するヒープの読み書きを実行できます。ただし、これらの処理を実行するプログラムが処理結果を確認するには、ヒープの状態語をチェックする必要があります。状態語にはポインタ変数でアクセスできるほか、一般的な連絡節のマッピングを介する方法も利用できます。

ヒープ処理の成否は RETURN-CODE レジスタでもチェックできます。また、CALL 文で ON OVERFLOW/EXCEPTION 構文を使って、エラーをトラップする方法もあります。どちらの方法でも、具体的なエラーを特定するには、続いてヒープの状態語をチェックします。

ヒープの読み取りや書き込みが成功すると、RETURN-CODE の値はゼロになります。失敗した場合には、RETURN-CODE はゼロ以外の値に設定され、対応する状態語の 1 バイトめに 9、2 バイトめに詳細情報が格納されます。

CBL_READ_VFILE と CBL_WRITE_VFILE で使用されるバッファは、データ節や連絡節内の任意の位置で定義できます。CBL_ALLOC_MEM ルーチンを使用して動的に割り当てることも可能です。

各ヒープは必要に応じてページングできます。

1 つの実行単位で使用できるローカルヒープ数の上限は 128 です。

バッファ呼び出しのパラメータで部分参照を使用すれば、COBOL レコード内でヒープバッファを宣言することも可能です。この手法はバッファサイズが固定であれば、コンパイル効率の面でも有効です。呼び出しインターフェイスではバッファサイズは無視されるため、部分参照を使用してサイズを固定します。

17.3 ルーチン一覧について

次の項では、COBOL システムの各ライブラリルーチンをアルファベット順に説明します。それぞれのルーチンの説明部分にはルーチンの名前と機能のほか、次の各項目 (またはその一部) の情報を示しています。

17.4 ルーチン一覧

call "CBL_ALLOC_DYN_MEM" using     mem-pointer 
                         by value  mem-size 
                                   flags 
                         returning status-code

call "CBL_ALLOC_MEM" using     mem-pointer 
                     by value  mem-size 
                               flags 
                     returning status-code

CBL_AND

2 つのデータ項目の論理積をビット単位で計算します。

構文

call "CBL_AND" using    source 
                        target 
               by value length

パラメータの型

入力

出力

備考

source と target のそれぞれ左端から演算が開始され、各ビットの論理積が target に格納されます。論理積の演算における入力ビットと出力ビットの関係を次に示します。

関連情報

『拡張言語機能』の『論理演算子 (BOOL 演算子) によるビット操作』

CBL_CLOSE_VFILE

ヒープを閉じます。

構文

call "CBL_CLOSE_VFILE" using by value  heap-id 
                             returning status-code

パラメータの型

入力

出力

なし。

関連情報

『仮想ヒープルーチン』

CBL_CULL_RUN_UNITS

終了した実行単位を一括してクリアする。

構文

call "CBL_CULL_RUN_UNITS"

パラメータの型

なし。

備考

STOP RUN または kill で終了した後、削除されていない実行単位をすべてクリアします。

関連情報

『並行処理のサポート』

CBL_EQ

2 つのデータ項目の論理等価をビット単位で計算します。

構文

call "CBL_EQ" using     source 
                        target 
              by value  length

パラメータの型

入力

出力

備考

source と target のそれぞれ左端から演算が開始され、各ビットの論理等価が target に格納されます。論理等価の演算における入力ビットと出力ビットの関係を次に示します。

関連情報

『拡張言語機能』の『論理演算子 (BOOL 演算子) によるビット操作』

CBL_ERROR_PROC

ランタイムシステムエラーの発生時に自動的に呼び出されるエラープロシージャを登録または解除します。

構文

call "CBL_ERROR_PROC"  using     install-flag               
                                 install-addrs 
                       returning status-code

パラメータの型

入力

出力

なし。

備考

同じアプリケーション用のエラープロシージャを複数登録するには、このルーチンを繰り返し呼び出します。

登録済みのエラープロシージャは、再登録を試みても無視されます。同じエラープロシージャを再登録するには、その前に登録を解除する必要があります。エラープロシージャの登録はエラー処理中などに暗黙的に解除されるほか、install-flag を "1" に設定した CBL_ERROR_PROC を呼び出して明示的に解除することも可能です。

エラープロシージャはさまざまな開発言語で作成できます。COBOL で作成したエラープロシージャを使用する場合は、install-addrs に入口点のアドレスを指定する必要があります。入口点のアドレスは、次の文で取得できます。

     set install-addrs to entry entry-name

COBOL で作成するエラープロシージャには、CALL 文を含む有効な COBOL コードを必要に応じて使用できます。

エラーが発生すると、登録した各プロシージャが順次実行されます。実行順序は登録順序とは逆で、後から登録したプロシージャが先に実行されます。全プロシージャの実行が完了すると、続いてランタイムシステムのエラー処理プロシージャが開始されます。

最後に登録したプロシージャのみを実行し、その他の登録済みプロシージャやランタイムシステムのエラー処理を回避するには、RETURN-CODE をゼロに設定します。

エラープロシージャを含むプログラムをキャンセルすると、そのエラープロシージャの登録は解除されます。

プログラムに登録しているエラープロシージャは、他のプログラムによって解除できます。

エラープロシージャから他のエラープロシージャを登録することも可能です。

エラー処理中に登録されたエラープロシージャは、それを登録したエラープロシージャに続いて実行されます。処理中のエラープロシージャによって登録された場合には、現在のエラープロシージャの完了後、ただちに実行されます。ただし、エラープロシージャのリターンコードがゼロの場合は、その時点でエラー処理が終了します。

エラープロシージャ内でランタイムシステムエラーが発生すると、そのプロシージャはただちに終了します。次に実行すべきエラープロシージャが存在する場合には、発生したランタイムシステムエラーの処理がそのプロシージャによって開始されます。

プロシージャを登録するときには、必ず有効なプロシージャポインタを使用してください。

エラープロシージャは登録元の実行単位に属します。そのため、エラープロシージャを実行できるのは、それを登録した実行単位のみです。

キーボード割り込みでエラープロシージャが呼び出されることはありません。

エラープロシージャをプログラム内の入口点の 1 つとして定義し、そのプログラムで発生する可能性があるエラーに備える場合には、局所記憶節を確保してください。局所記憶節を持つプログラムは再入可能であるため、エラープロシージャが呼び出されてもランタイムシステムエラー 166 は生成されません (エラー 166 は再帰的な COBOL 呼び出しが無効であることを示します)。

エラープロシージャに渡されるパラメータ

登録したエラープロシージャの呼び出しでは、その原因になったランタイムシステムエラーのメッセージ文字列がパラメータとして渡されます。

このパラメータは連絡節で PIC X(325) 項目として定義し、USING 句でエラープロシージャの呼び出しに含めます。ランタイムシステムエラーのメッセージ文字列の例を次に示します。

Load Error : file 'prog-name'\n 
error code: 173, pc=0, call=-1, seg=0\n 
173    Called program file not found in drive/directory\n\0

\n は改行、\0 は文字列終端の NULL (x"00") です。この形式の解説については、『エラーメッセージ』を参照してください。

コード例

エラープロシージャを登録するコード例を次に示します。この例には、エラーの発生時に呼び出されるエラープロシージャのひな型も含まれています。

 working-storage section 
 01 install-flag       cblt-x1-compx. 
 01 install-address    cblt-ppointer. 
 01 status-code        cblt-rtncode value zeros. 
 
 linkage section. 
 01 err-msg            pic x(325). 
 
 procedure division. 
     set install-address to entry "err-proc". 
     call "CBL_ERROR_PROC" using     install-flag 
                                     install-address 
                           returning status-code. 
 
* エラープロシージャ 
 entry "err-proc" using err-msg. 
 
* err-msg からエラー番号を取得し、必要な処理を実行する。
           ... 
 
* 終了。他のエラープロシージャの実行を可能にする。
     move 1 to return-code 
     exit program 
     stop run.

CBL_EXEC_RUN_UNIT

非同期の実行単位を生成します。

構文

call "CBL_EXEC_RUN_UNIT" using        command-line
                         by value     command-line-len
                         by reference run-unit-id
                         by value     stack-size
                                      flags 
                         returning    status-code

パラメータの型

入力

出力

備考

最初の実行単位と、そこから生成された下位の全実行単位は「実行単位セット」と総称されます。

関連情報

『並行処理のサポート』

CBL_EXIT_PROC

アプリケーションの終了時に自動的に呼び出される終了プロシージャを登録または解除します。

構文

call "CBL_EXIT_PROC" using     install-flag
                               install-params
                     returning status-code

パラメータの型

入力

出力

備考

登録した終了プロシージャは、アプリケーションが STOP RUN で正常終了した場合のみでなく、キーボード割り込みやランタイムシステムエラーなどで異常終了した場合にも実行されます。このルーチンを繰り返し呼び出せば、1 つのアプリケーションに複数の終了プロシージャを登録できます。

終了プロシージャはさまざまな開発言語で作成できます。COBOL で作成した終了プロシージャを使用する場合には、cblte-ep-install-addr に入口点のアドレスを指定する必要があります。入口点のアドレスは、次の文で取得できます。

     set cblte-ep-install-addr to entry "entry-name"

COBOL で作成する終了プロシージャには、CALL 文を含む有効な COBOL コードを必要に応じて使用できます。終了プロシージャは、その中のメインプログラムで EXIT PROGRAM/GOBACK が実行されるか、またはSTOP RUN 文が実行されると終了します。

終了プロシージャには、呼び出し時に渡すべきパラメータはありません。

登録したすべての終了プロシージャは優先度を持っており、その値によって実行される順序が決まります。優先度の値が小さいプロシージャが先に実行されます。複数のプロシージャの優先度の値が同じである場合には、実行順序は登録とは逆になります。つまり、最後に登録したプロシージャが最初に実行されることになります。

登録時に優先度を指定しない (install-flag = 0) 場合には、デフォルトの優先度である 64 が割り当てられます。任意の優先度を割り当てるには、install-flag を 3 に設定し、0 〜 127 の範囲内で優先度を指定します。128 〜 256 の範囲の優先度は COBOL システム用に予約されており、使用することはできません。ただし、独自に作成したファイルハンドラには優先度として 200 を割り当てる必要があります。

登録済みの終了プロシージャは、再登録を試みても無視されます。ただし、異なる優先度で再登録を試みた場合は、該当する登録済みプロシージャの優先度が変更されます。RETURN-CODE はゼロに設定されます。

登録済みプロシージャの優先度を照会するには、install-flag を 2 に設定します。この呼び出しで対象のプロシージャが見つかると、その優先度が cblte-ep-install-priority で返されます。プロシージャはアドレスで識別されます。プロシージャが見つからない場合には、RETURN-CODE がゼロ以外の値に設定されます。

call "CBL_FREE_DYN_MEM" using by value  mem-pointer 
                              returning status-code

call "CBL_FREE_MEM" using by value  mem-pointer 
                          returning status-code

CBL_GET_PROGRAM_INFO

指定されたプログラムや、現在の呼び出しスタック内の特定プログラムに関する情報を戻します。

構文

call "CBL_GET_PROGRAM_INFO" using by value     function
                                  by reference param-block
                                  by reference name-buf
                                  by reference name-len
                                  returning    status-code

パラメータの型

入力

出力

CBL_GET_OS_INFO

現在のオペレーティングシステムと環境に関する情報を返します。

構文

call "CBL_GET_OS_INFO" using     parameter-block 
                       returning status-code

パラメータの型

出力

CBL_GET_SHMEM_PTR

名前付き値を読み取ります。

構文

call "CBL_GET_SHMEM_PTR" using     node-value               
                                   node-name 
                         returning status-code

パラメータの型

入力

出力

備考

名前付き値とは、実行時に取り決められた名前を使って、複数の実行単位間でポインタをやり取りする手段の 1 つです。名前付き値はランタイムシステムによって保護され、その更新には必ず順序付けが行われるため、同じ実行単位セット内のすべての実行単位から並行参照できます。定義可能な名前付き値の最大数は、マシンに搭載されている物理メモリの容量によって左右されます。

関連情報

『CBL_PUT_SHMEM_PTR』
『並行処理のサポート』

CBL_IMP

2 つのデータ項目の論理包含をビット単位で計算します。

構文

call "CBL_IMP" using    source
                        target 
               by value length

パラメータの型

入力

出力

備考

source と target のそれぞれ左端から演算が開始され、各ビットの論理包含が target に格納されます。論理包含の演算における入力ビットと出力ビットの関係を次に示します。

関連情報

『拡張言語機能』の『論理演算子 (BOOL 演算子) によるビット操作』

CBL_NLS_CLOSE_MSG_FILE

NLS (National Language Support) メッセージファイルを閉じます。

構文

call "CBL_NLS_CLOSE_MSG_FILE" using     msg-file-handle
                              returning status-code

パラメータの型

入力

出力

備考

CBL_NLS_OPEN_MSG_FILE ルーチンで開いた NLS メッセージファイルを閉じるためのルーチンです。

このルーチンを使用できるのは、NLS コンパイラ指令付きでコンパイルしたプログラムのみです。

関連情報

『各国語対応』

CBL_NLS_COMPARE

2 つの文字列を比較します。

構文

call "CBL_NLS_COMPARE" using        string1
                                    string2
                       by value     string1-length
                       by value     string2-length
                       by reference result-byte
                       returning    status-code

パラメータの型

入力

出力

備考

このルーチンを使用できるのは、NLS コンパイラ指令付きでコンパイルしたプログラムのみです。

関連情報

『各国語対応』

CBL_NLS_INFO

言語情報を取得または設定します。

構文

call "CBL_NLS_INFO" using     function-code
                              info-category
                              info-buffer
                    returning status-code

パラメータの型

入力

function-code が 1 の場合

function-code が 2 の場合

出力

function-code が 1 の場合

function-code が 2 の場合

備考

言語情報を取得または設定するためのルーチンです。function-code を 2 に指定して設定した変更は、呼び出しを行ったプログラムのみに反映されます。

このルーチンを使用できるのは、NLS コンパイラ指令付きでコンパイルしたプログラムのみです。

関連情報

『各国語対応』

CBL_NLS_OPEN_MSG_FILE

NLS（各国語対応）メッセージカタログを開きます。

構文

call "CBL_NLS_OPEN_MSG_FILE" using     msg-filename
                                       msg-filename-ln
                                       msg-file-handle
                             returning status-code

パラメータの型

入力

出力

備考

NLS メッセージカタログを開き、識別用のハンドルを返します。このハンドルは、CBL_NLS_READ_MSG ルーチンと CBL_NLS_CLOSE_MSG_FILE ルーチンで使用します。

このルーチンを使用できるのは、NLS コンパイラ指令付きでコンパイルしたプログラムのみです。

関連情報

『各国語対応』

CBL_NLS_READ_MSG

NLS (National Language Support) メッセージカタログからメッセージを 1 つ読み取ります。

構文

call "CBL_NLS_READ_MSG" using     msg-file-handle
                                  full-msg-number
                                  msg-ins-struct
                                  msg-buffer
                        returning status-code

パラメータの型

入力

出力

備考

関連情報

『各国語対応』

CBL_NOT

データ項目の各ビットの論理否定を実行します。

構文

call "CBL_NOT" using    target by value length

パラメータの型

入力

出力

備考

target の左端から演算が開始され、各ビットが順次反転されます。論理否定の演算における入力ビットと出力ビットの関係を次に示します。

関連情報

『拡張言語機能』の『論理演算子 (BOOL 演算子) によるビット操作』

CBL_OPEN_VFILE

ヒープを開きます。

構文

call "CBL_OPEN_VFILE" using     heap-id                     
           status-word 
                      returning status-code

パラメータの型

入力

なし。

出力

関連情報

『仮想ヒープルーチン』

CBL_OR

2 つのデータ項目の論理和をビット単位で計算します。

構文

call "CBL_OR" using    source 
                       target 
              by value length

パラメータの型

入力

出力

備考

source と target のそれぞれ左端から演算が開始され、各ビットの論理和が target に格納されます。論理和の演算における入力ビットと出力ビットの関係を次に示します。

関連情報

『拡張言語機能』の『論理演算子 (BOOL 演算子) によるビット操作』

CBL_PUT_SHMEM_PTR

名前付き値を作成または更新します。

構文

call "CBL_PUT_SHMEM_PTR" using by value node-value 
                         by reference   node-name 
                         returning      status-code

パラメータの型

入力

出力

なし。

備考

名前付き値とは、実行時に取り決められた名前を使って、複数の実行単位間でポインタをやり取りする手段の 1 つです。名前付き値はランタイムシステムによって保護され、その更新には必ず順序付けが行われるため、同じ実行単位セット内のすべての実行単位から並行参照できます。定義可能な名前付き値の最大数は、マシンに搭載されている物理メモリの容量に依存します。

関連情報

CBL_GET_SHMEM_PTR
『並行処理のサポート』

CBL_READ_VFILE

ヒープからバイト単位でデータを読み取ります。

構文

call "CBL_READ_VFILE" using by value heap-id
                                          heap-ref
                                          heap-length
                           by reference   heap-buffer
                           returning      status-code

パラメータの型

入力

出力

備考

データが書き込まれていないヒープ領域の読み取りを試みると、バッファには不明なデータが返されます。

関連情報

『仮想ヒープルーチン』

CBL_SCR_SET_PC_ATTRIBUTES

現在の COBOL 属性から、IBM PC の属性テーブルにできる限り近いテーブルを生成します。

構文

call "CBL_SCR_SET_PC_ATTRIBUTES" returning status-code

パラメータの型

入力

なし。

出力

備考

このルーチンを使用すれば、汎用的な属性ルーチンで IBM PC の属性テーブル全体を設定する場合とほぼ同じ結果が得られます。そのため、既存のプログラムに汎用的な属性を与え、属性処理部分の移植性を高める手段として効果的です。ただし、このルーチンは可能なすべての属性を定義するため、処理効率に問題があります。新規にアプリケーションを作成する場合は、処理効率への影響を回避するためにも、汎用的な属性ルーチンで必要な属性のみを定義してください。

このルーチンは、作成済みアプリケーションの移植性を高める手段として提供されており、新規に作成するアプリケーションには使用しません。開発段階では、別の仕組みを使って移植性を高めることができます。

CBL_SUBSYSTEM

サブシステムの宣言または割り当て解除を実行します。

構文

call "CBL_SUBSYSTEM" using     function-code
                               parameter 
                     returning status-code

パラメータの型

入力

出力

function-code が 0 の場合

備考

サブシステムが、アプリケーション内の指定したプログラムとして定義されます。この定義以降、サブシステム内のプログラムから呼び出される各サブプログラムも、当該サブシステムのメンバーになります (ただし、すでに他のサブシステムに属しているサブプログラムは除きます)。

function-code が 0 の場合

サブシステムを宣言し、そのハンドルを返します。サブシステムとして宣言したプログラムがロードされていない場合は、この呼び出しでロードされます。指定されたプログラムが見つからないか、またはロードできない場合は、サブシステムのハンドルとして 0 が返されます。

サブシステムに属するプログラムの割り当てが解除される (メモリから削除される) のは、それが CANCEL 文でキャンセルされる、function-code を 1 に設定した CBL_SUBSYSTEM ルーチンでサブシステム全体がキャンセルされるか、またはアプリケーションで STOP RUN 文 (または CHAIN 文) が実行された場合のみです。ただし、サブシステムのメインプログラムは、同じサブシステム内の他の全プログラムをキャンセルしない限り、CANCEL 文でキャンセルすべきではありません。

function-code が 1 の場合

指定したサブシステム内の全プログラムをキャンセルします。対象のサブシステム内に使用中のプログラムが含まれている場合は、そのプログラムがサブシステムから分離されます。分離されたプログラムはキャンセルされません。

function-code が 2 の場合

呼び出し元のプログラムを、あらゆるサブシステムから削除します。この呼び出しを特定のプログラムが開始するたびに実行すれば、そのプログラムを常にサブシステムに属さない状態で維持できます。

CBL_TOLOWER

文字列を小文字に変換します。

構文

call "CBL_TOLOWER" using     string 
                   by value  length 
                   returning status-code

パラメータの型

入力

出力

備考

string の左端から処理が開始され、string を構成する各文字が小文字に変換されます。

CBL_TOUPPER

文字列を大文字に変換します。

構文

call "CBL_TOUPPER" using     string 
                   by value  length 
                   returning status-code

パラメータの型

入力

出力

備考

string の左端から処理が開始され、string を構成する各文字が大文字に変換されます。

CBL_WRITE_VFILE

バイトデータをヒープに書き出します。

構文

call "CBL_WRITE_VFILE" using by value     heap-id 
                                          heap-ref
                                          heap-length
                             by reference heap-buffer
                             returning    status-code

パラメータの型

入力

出力

なし。

関連情報

『仮想ヒープルーチン』

CBL_XOR

2 つのデータ項目の排他的論理和をビット単位で計算します。

構文

call "CBL_XOR" using     source 
                         target 
                by value length

パラメータの型

入力

出力

備考

source と target のそれぞれ左端から演算が開始され、各ビットの排他的論理和が target に格納されます。排他的論理和の演算における入力ビットと出力ビットの関係を次に示します。

関連情報

『拡張言語機能』の『論理演算子 (BOOL 演算子) によるビット操作』

CBL_YIELD_RUN_UNIT

実行単位のタイムスライスの残りを譲渡します。

構文

call "CBL_YIELD_RUN_UNIT"

パラメータの型

なし。

備考

実行単位のタイムスライスの残りを、不特定の実行単位に譲渡します。

X"F4" (バイトのパック)

8 つの 1 バイトデータの最下位ビットを 1 バイトのデータにパックします。

構文

call x"F4" using byte 
                 array

パラメータの型

入力

出力

備考

array に格納されている 8 つの 1 バイトデータから最下位ビットを取得し、1 つのバイトデータを生成して byte に格納します。array の先頭に格納されている要素の最下位ビットが、byte では最上位ビット (ビット 7) になります。

  00000001 00000001 00000000 00000000 00000001 00000000 00000001 00000001
         |        |        |        |+-------+        |        |        |
         |        |        +-------+||+---------------+        |        |
         |        +---------------+||||+-----------------------+        |
         +-----------------------+||||||+-------------------------------+
                                 VVVVVVVV
                                 11001011 

X"F5" (バイトのアンパック)

1 バイトデータの各ビットを、8 つの 1 バイトデータにアンパックします。

構文

call x"F5" using byte 
                 array

パラメータの型

入力

出力

備考

byte に格納されている 1 バイトデータの各ビットの値を、array 内の該当する要素の最下位ビットに設定します。

                                10110011
        +-----------------------+||||||+-------------------------------+
        |        +---------------+||||+-----------------------+        |
        |        |        +-------+||+---------------+        |        |
        |        |        |        |+-------+        |        |        |
        V        V        V        V        V        V        V        V
 00000001 00000000 00000001 00000001 00000000 00000000 00000001 00000001 

統合プリプロセッサインターフェイス