【COBOL】コボラー集まれ!2【事務処理】PIC
■ このスレッドは過去ログ倉庫に格納されています
0028デフォルトの名無しさん
2008/01/25(金) 17:53:51fatness.cob
IDENTIFICATION DIVISION.
PROGRAM-ID. fatness.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
DATA DIVISION.
WORKING-STORAGE SECTION.
* コマンド全体を格納するTEMP変数
77 i pic 999 value 0.
77 j pic 999 value 0.
01 inum pic 999 value 0.
01 height pic 999 value 0.
01 weight pic 999 value 0.
01 fatness pic 999 value 0.
01 WORKSTR PIC X(20). <======= ここでpic定義して
02 C OCCURS 20 PIC X. <====== ここでもpic定義。
これ、コンパイルエラーじゃね?
■ このスレッドは過去ログ倉庫に格納されています