bea ホーム | 製品 | dev2dev | support | askBEA |
![]() |
![]() |
|
![]() |
e-docs > Tuxedo > Tuxedo COBOL リファレンス > セクション 3(cbl) - COBOL 関数 |
Tuxedo COBOL リファレンス
|
名前
FINIT()、FINIT32()−フィールド化バッファの初期化
形式
01 FML-BUFFER.
05 FML-ALIGN PIC S9(9) USAGE IS COMP.
05 FML-DATA PIC X(applen).
01 FML-REC
COPY FMLINFO.
CALL "FINIT" USING FML-BUFFER FML-REC.
CALL "FINIT32" USING FML-BUFFER FML-REC.
機能説明
FINIT() は、フィールド化バッファの初期化をする場合に呼び出すことができます。FML-BUFFER は、フィールド化バッファとして使用するレコードであり、FML16 および FML32 と合わせて使用するためには、4 バイトの境界にアライメントされている必要があります。これは、上の「形式」に示すようにレコードの要素を 2 つ定義することで可能になります。FML-REC 中の FML-LENGTH はレコードの長さです。フィールド化バッファに対応して、内部構造体がフィールドなしで設定されます。アプリケーション・プログラムはレコードを FINIT()、FVFTOS()、または FVSTOF() に渡したり、型付きレコードが必要な ATMI 呼び出しに渡す (この場合、タイプは モFMLモでサブタイプはありの場合を除いて、解釈してはなりません。
FINIT32() は 32 ビット FML で使用します。
戻り値
FINIT() は正常終了時には、FML-REC 内の FML-STATUS に FOK を設定します。
エラーが発生した場合は、FML-STATUS は 0 以外の値に設定されます。
エラー
次の条件が発生すると、FINIT() は異常終了し、FML-REC 内の FML-STATUS に次の値を設定します。
バッファの先頭が正しい境界線上にありません。
指定されたバッファのサイズは、フィールド化バッファには小さすぎます。
使用例
バッファからフィールドを削除する再初期化のための正しい方法を以下に示します。Finit(frfr, (FLDLEN)Fsizeof(fbfr));
関連項目
![]() |
![]() |
![]() |
![]() |
||
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
![]() |