読者です 読者をやめる 読者になる 読者になる

100day’s blog

プログラミングの毎日の作業工程を短めにまとめてます。

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などの特殊な使い方。