例題
[P2775.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2775. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ENVIRONMENT-NAME IS EVN. 000007 DATA DIVISION. 000008 WORKING-STORAGE SECTION. 000009 01 WENV1 PIC X(30). 000010 01 WENV2 PIC X(30). 000011 PROCEDURE DIVISION. 000012 MOVE "PATH" TO WENV1 000013 MOVE "LIB" TO WENV2 000014 DISPLAY WENV1 WENV2 000015 UPON EVN 000016 END PROGRAM P2775.
P2775.cob 14: JMN2775I-S UPON句に指定された呼び名が機能名ARGUMENT-NUMBER，ENVIRONMENT-NAMEまたはENVIRONMENT-VALUEに対応付けられているとき，DISPLAY文には一意名または定数は一つしか指定できません．
