COBOL2002 言語 拡張仕様編
01 GAMEN.
02 商品コード LINE 10 COLUMN 10 PIC 9(3) INPUT
HELP WINDOW IS POP-MAP
HELP KEY IS PF1
HELP LINE 10 THRU 15
HELP COLUMN 50 THRU 66.
02 得意先コード LINE 20
COLUMN 10 PIC 9(3) INPUT.
01 POP-MAP.
02 LINE 1 COLUMN 1 OUTPUT
COLOR YELLOW REVERSE
PIC N(5) VALUE NC 'コード一覧'.
02 LINE 2 COLUMN 1 OUTPUT
COLOR WHITE REVERSE
PIC X(16) VALUE SPACE.
02 REPEAT 3 TIMES.
03 LINE 3.
04 HD COLUMN 1 OUTPUT
COLOR WHITE REVERSE
PIC N(6).
04 CO COLUMN 13 OUTPUT
COLOR WHITE REVERSE
PIC X(4).
All Rights Reserved. Copyright (C) 2003, 2017, Hitachi, Ltd.