COBOL2002 メッセージ
KCCC
2141
C
-S
"APPLY WRITE-ONLY *** 1 ***"は二重に指定できません。