PROGRAM MAKMSG C C This program is used to make the RSX-11M error message file. C The message file contains Directive and I/O error messages. C The first 128 messages are Directive messages and the second C 128 messages are I/O messages. C C Each record is 64. bytes right padded with nulls. C LOGICAL*1 BUFFER(64) ! I/O buffer. PARAMETER INLUN = 1 ! Input file LUN. PARAMETER OUTLUN = 2 ! Output file LUN. OPEN (UNIT=INLUN,NAME='RSX11M.DAT',TYPE='OLD',ERR=900,READONLY) OPEN (UNIT=OUTLUN,NAME='RSX11M.MSG',ACCESS='SEQUENTIAL', 1 TYPE='NEW',CARRIAGECONTROL='LIST',FORM='FORMATTED', 1 RECORDSIZE=64,RECORDTYPE='FIXED',ERR=900) C C There are eight 64. byte records per 512 byte block. C 10 READ (INLUN,25,END=100) BUFFER 25 FORMAT (64A1) WRITE (OUTLUN,25) BUFFER GO TO 10 100 CLOSE (UNIT=INLUN) CLOSE (UNIT=OUTLUN) CALL EXIT 900 STOP 'ERROR ENCOUNTERED ...' END