.MACRO	PE
PE		Translate PROGRAM-ERROR numbers into error message text.

  SYNTAX
    .PE n		To translate error number  n  into verbose error
 or .R PE n		message text and display that text on the user's
 or .R PE		terminal.  If  n  is not specified, it will be
     Error number: n	requested.

    .PE /B		To create a new SY:PE.BIN from a text file in PE
 or .R PE/B		format.  You will be prompted for the text file name.

    .PE /D:<Table>	To set the default table (language) name.
 or .R PE/D:<Table>

  SEMANTICS
	   The PE program accepts an integer number "n" ranging from 0 to 999
	decimal.  It translates "n" into error message text using the default
	translation table and displays it on the terminal.  The translation
	process is accomplished with a only TWO reads from the file SY:PE.BIN.
	This file is created by converting the source error message text file
	(PE.TXT) to binary form with the command:

		.R PE/B
		 PE-Text file: DK:PE.TXT
		 Creating SY:PE.BIN
		 Processing  (F4    ) FORTRAN-IV Object-Time (runtime) error.
		 Processing  (F77   ) FORTRAN-77 Object-Time (runtime) error.
		 Set-Default (F77   ) Decode FORTRAN-77 errors by default.
		 [End-of-File]
		.

	   At present, only FORTRAN-IV (V2.1 thru V2.6) and FORTRAN-77 (V5.0)
	are supported in the PE.TXT file provided.  Support for new languages,
	compilers, interpreters, assemblers, or almost any home-grown or pre-
	packaged utility which displays error numbers, may be added by editing
	the file PE.TXT.  Instructions for adding new Program-Error Tables can
	be found at the beginning of the file.  The binary file SY:PE.BIN can
	house at most FOUR different error (language processor) tables.

	   Command line input is read via .GTLIN.  As such, PE may be invoked
	from the user's terminal, command files, or as the object of a .CHAIN
	exit from a program.  Multiple PE commands may be executed upon exit
	from a program if they are placed in a command file which is invoked
	via a SETCMD library call before exit.

  OPTIONS
   /B	Create a new SY:PE.BIN from the requested source PE formatted text
	file.

   /D:<Table>
	Set the default error message table used to convert error numbers into
	text (where <Table> is any predefined Table name such as F4 or F77 for
	FORTRAN-IV or FORTRAN-77 respectively).

  EXAMPLES
	.PE 27
	 F4 Error:27,  Fatal:  ATTEMPT TO USE DEVICE NOT IN SYSTEM
	 An attempt was made to access a device that was not legal for the
	 system in use.

	 Use the system ASSIGN command to create the required logical
	 device name, or change the statement in error.
	.
	.PE /D:F77	!Set the default language table to FORTRAN-77
	.PE 102
	 F77 Error:102, Warning:  VIRTUAL ARRAY MAPPING ERROR
	 A virtual-array address was invalid, probable due to a subscript
	 out of bounds.  Execution continues.
	.
	.PE /D:F4	!Reset the default language to FORTRAN-IV
.ENDM
                                                                                                                                        