*Conan The Librarian
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.