HELPLIB.HLB  —  WRITE  Examples
    1.$ WRITE SYS$OUTPUT "Beginning second phase of tests"

      The WRITE command writes a single line of text to the current
      output device.

    2.$ OPEN/APPEND OUTPUT_FILE TRNTO::DKA1:[PGM]PLAN.DAT
      $ WRITE OUTPUT_FILE "BEGINNING PHASE 3"

      In this example, the OPEN/APPEND command opens the file
      PLAN.DAT at the remote node TRNTO and positions the pointer
      at the end of the file. The WRITE command writes a record to
      the end of the file PLAN.DAT.

    3.$ OPEN/WRITE OUTPUT_FILE TESTFILE.DAT
      $ INQUIRE ID "Assign Test-id Number"
      $ WRITE/ERROR=WRITE_ERROR  OUTPUT_FILE  "Test-id is ",ID
      $ WRITE/ERROR=WRITE_ERROR  OUTPUT_FILE  ""
      $ !
      $ WRITE_LOOP:
         .
         .
         .
      $ GOTO WRITE_LOOP
      $ END_LOOP:
      $ !
      $ CLOSE OUTPUT_FILE
      $ PRINT TESTFILE.DAT
      $ EXIT
      $ !
      $ WRITE_ERROR:
      $ WRITE SYS$OUTPUT "There was a WRITE error."
      $ CLOSE OUTPUT_FILE
      $ EXIT

      In this example, the OPEN command opens the file TESTFILE.DAT;
      the INQUIRE command requests an identification number to be
      assigned to a particular run of the procedure. The number
      entered is equated to the symbol ID. The WRITE commands write
      a text line concatenated with the symbol name ID and a blank
      line.

      The lines between the label WRITE_LOOP and END_LOOP process
      information and write additional data to the file. When the
      processing is finished, control is transferred to the label
      END_LOOP. The CLOSE and PRINT commands at this label close the
      output file and queue a copy of the file to the system printer.

      The label WRITE_ERROR is used as the target of the /ERROR
      qualifier to the WRITE command; if an error occurs when a
      record is being written, control is transferred to the label
      WRITE_ERROR.

    4.$ OPEN/APPEND MYFILE [LAMPERT]TESTING.DAT
      $ WRITE/SYMBOL MYFILE A,B,C

      This example assumes that the symbols A, B, and C have
      already been defined. The OPEN/APPEND command opens the file
      [LAMPERT]TESTING.DAT and positions the pointer at the end of
      the file. The WRITE/SYMBOL command concatenates the values of
      the symbols A, B, and C and writes this data to a new record at
      the end of the file.
Close Help