VMS Help  —  COBOL  PROCEDURE_DIVISION, DISPLAY  6format_envlog_value_extensions
  When a Format 6 DISPLAY statement is specified, environment-value
  receives the value stored in envlog-value. The environment variable
  or logical is the one named by a Format 5 DISPLAY statement. See
  ENVIRONMENT-VALUE in the SPECIAL-NAMES paragraph.

  Format 6 -

   DISPLAY envlog-value UPON environment-value

      [ ON EXCEPTION stment ]
      [ NOT ON EXCEPTION stment2 ]

      [ END-DISPLAY ]

1  –  envlog-value

  references an alphanumeric data item, or is a nonnumeric literal.

2  –  environment-value

  is a mnemonic name associated with ENVIRONMENT-VALUE in the
  SPECIAL-NAMES paragraph in the Environment Division, representing
  the contents of the variable associated with the  ENVIRONMENT-NAME.

3  –  Example

  Example of Formats 5 and 6.

 IDENTIFICATION DIVISION.
 PROGRAM-ID. SAMPLE.
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SPECIAL-NAMES.
   ENVIRONMENT-NAME    IS NAME-OF-EVAR
   ENVIRONMENT-VALUE   IS VALUE-OF-EVAR.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 NAME-1                  PIC X(20).
 01 VALUE-ACCEPTED          PIC X(20).
 PROCEDURE DIVISION.
 P1.
 *       The name of the environment variable
         MOVE "TESTPATH1" TO NAME-1.

 *       Create an environment with the name "TESTPATH1"
         DISPLAY NAME-1 UPON NAME-OF-EVAR.

 *       Set the value of "TESTPATH1"
         DISPLAY "/USER/MYNAME" UPON VALUE-OF-EVAR.

 *       Read the value of TESTPATH1 into a variable
         ACCEPT VALUE-ACCEPTED FROM VALUE-OF-EVAR.

 *       Display the value of TESTPATH1"
         DISPLAY VALUE-ACCEPTED.

         STOP RUN.
Close Help