COBOL で 定数データを扱う。(PID)

www.atmarkit.co.jp

データ部で指定したサイズを使うという仕様か。

*見出し
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-02.
*環境部
ENVIRONMENT DIVISION.
*データ部
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUM PIC 9(5).
01 NUMS PIC 9(2).
*手続き部
PROCEDURE DIVISION.
MAIN.
MOVE 25600 TO NUM
DISPLAY "NUM is " NUM

*以下エラーではなく51だけが取り出される。

MOVE 151 TO NUMS
DISPLAY "NUMS is " NUMS

STOP RUN.

その他

文字数を扱う場合や、ZERO,ALLなどの特殊な使い方。