COBOL2002 言語 拡張仕様編
画面節(WINDOW SECTION)による画面機能は,データ部の画面節(WINDOW SECTION)で画面の各フィールドの位置や属性を指定し,ACCEPT,DISPLAYまたはREPLY文によって簡単にデータを入出力する。
画面節(WINDOW SECTION)では画面の各フィールドをレベル構造を用いて指定する。つまり,上位のレベルで画面の行番号を指定し,下位のレベルでその行に含まれるフィールドのカラム番号と属性を指定する。手続き部ではREPLY文などによって,一つまたは幾つかのフィールドを一度に表示したり入力したりする。
画面入出力機能の簡単なプログラム例を次に示す。
DATA DIVISION. WORKING-STORAGE SECTION. 77 TANKA PIC 9(5). WINDOW SECTION.…(1) 01 GAMEN.…(2) 02 LINE 5.…(3) 03 OUTPUT COLUMN 15 PIC N(3) VALUE NC'商品名'.…(4) 03 SHOHIN INPUT COLUMN 30 PIC X(10).…(5) 02 LINE 8. 03 OUTPUT COLUMN 15 PIC N(3) VALUE NC'数 量'. 03 SURYO INPUT COLUMN 30 PIC 9(5).…(6) 02 LINE 11. 03 OUTPUT COLUMN 15 PIC N(3) VALUE NC'金 額'. 03 KINGAKU OUTPUT COLUMN 30 PIC \(11) VALUE SPACE.…(7) PROCEDURE DIVISION. ERASE ALL WINDOW.…(8) REPLY GAMEN UPON WINDOW.…(9) COMPUTE KINGAKU = TANKA * SURYO.…(10) DISPLAY KINGAKU UPON WINDOW.…(11)
All Rights Reserved. Copyright (C) 2003, 2013, Hitachi, Ltd.