COBOL2002 使用の手引 手引編
SET文は,次の手段を提供します。
SET文については,マニュアル「COBOL2002 言語 標準仕様編 10.8.43 SET文」,およびマニュアル「COBOL2002 言語 拡張仕様編 13.5.8 SET文(WINDOW SECTION)」を参照してください。
表要素に関連する指標を設定して,表操作の参照点を確立する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文の詳細は,「16.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
「20.2.7 オブジェクト指向による適合」を参照してください。
「21.7.3 最新例外状態のクリア」を参照してください。
All Rights Reserved. Copyright (C) 2014, 2017, Hitachi, Ltd.