COBOL2002 ユーザーズガイド
SET文は,次の手段を提供します。
SET文については,マニュアル「COBOL2002 言語 標準仕様編 10.8.43 SET文」,マニュアル「COBOL2002 言語 拡張仕様編 13.5.8 SET文(WINDOW SECTION)」,およびマニュアル「COBOL2002 言語 拡張仕様編 18.3.2 SET文(OLE2オートメーションインタフェース機能)」を参照してください。
表要素に関連する指標を設定して,表操作の参照点を確立するSET文の例を次に示します。
05 A PIC X(5) OCCURS 10 INDEXED BY K. 05 B PIC 9(8) OCCURS 10 INDEXED BY J.
SET J TO K.
05 A PIC PP999 OCCURS 15 INDEXED BY K. 05 B USAGE INDEX.
SET K TO B.
05 A PIC X(5) OCCURS 30 INDEXED BY K. 05 B PIC 9(2) VALUE 11.
SET K TO B
SET K TO 11
05 A PIC X(5) OCCURS 12 INDEXED BY K. 05 B USAGE INDEX. 05 C USAGE INDEX.
SET B TO K
SET C TO B
05 A PIC 9(3) OCCURS 20 INDEXED BY K. 05 B PIC 9(8).
SET B TO K
05 A PIC X(7) OCCURS 30 INDEXED BY K. 05 B PIC A(3) OCCURS 30 INDEXED BY J. 05 C PIC 9(2) VALUE 3.
SET K UP BY C
SET K DOWN BY 1
SET J DOWN BY C
SET J UP BY 8
外部スイッチの状態を変更するSET文の例を次に示します。
ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. UPSI-0 IS SW0 ON STATUS IS ONIND0 OFF STATUS IS OFFIND0. : PROCEDURE DIVISION. : IF OFFIND0 THEN SET SW0 TO ON END-IF.
外部スイッチの状態を変更するSET文の詳細は,「17.2.4 外部スイッチ」を参照してください。
条件変数の値を変更するSET文の例を次に示します。
03 OF-WEEK PIC X(3). 88 HOLIDAY VALUE 'SUN'. *>1. 88 WEEKDAY VALUE 'MON' 'TUE' 'WED' 'THU' 'FRI' 'SAT'. *>1.
SET HOLIDAY TO TRUE
SET WEEKDAY TO TRUE
「21.2.7 オブジェクト指向による適合」を参照してください。
「22.7.3 最新例外状態のクリア」を参照してください。
「26.2.2 OLEメソッドとOLEプロパティの操作」を参照してください。
「26.2.3 OLEメソッドが返すOLEオブジェクトを利用した参照」および「26.2.5 VARIANT値とCOBOLデータのやり取り」を参照してください。
All Rights Reserved. Copyright (C) 2013, 2016, Hitachi, Ltd.
All Rights Reserved. Copyright (C) 2002, 2011, Microsoft Corporation.