例題
[P2508.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2508. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 WDA PIC X. 000007 PROCEDURE DIVISION. 000008 IF WDA = SPACE THEN 000009 NEXT SENTENCE 000010 END-IF 000011 END PROGRAM P2508.
P2508.cob 8: JMN2508I-W NEXT SENTENCEは,明示範囲符を持つIFまたはSEARCH文に指定できません.指定されたとおりに,受け入れます.
詳細な説明
IF文およびSEARCH文の明示範囲符は次のとおりです.
IF文に対するEND-IF
SEARCH文に対するEND-SEARCH
これらを指定したIF文またはSEARCH文にNEXT SENTENCEを記述した場合に,この診断メッセージが出力されます.NEXT SENTENCEまたは明示範囲符を削除してください.