>>26
fatness.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定義。
　　　　　　　　　　　　　　　　　　　　　　　　　これ、コンパイルエラーじゃね？