COBOL2002 メッセージ
KCCC
2561
C
-S
TYPE句に続く名前が型名でありません。