*DECK RMDMSGS 
          IDENT     RM$MSGS 
          COMMENT   CRM POST ERROR PROCESSOR TEXT.
*#
*1CD  RM$MSGS 
*0D   PURPOSE 
*0        DEFINE ERROR AND NOTE TABLES FOR LOCATING AND EXTRACTING
*         THE TEXT GIVEN ITS IDENTIFYING NUMBER.
*0    CALL
*0        NON EXECUTABLE CAPSULE USED BY POST ERROR PROCESSOR.
*0D   PARAMETERS
*0        NOT APPLICABLE
*0D   ACTION
*0        ASSEMBLE TWO TABLES.  ONE FOR ERRORS AND ONE FOR NOTES.  EACH 
*         TABLE BEGINS WITH A WORD HAVING THE NUMBER OF TABLE ENTRIES.
*         FOLLOWING THE HEADER WORD IS A LIST OF WORDS HAVING THE 
*         MESSAGE NUMBER IN THE LOWER 18 BITS FOLLOWED BY A 12 BIT
*         FIELD INDICATING THE LENGTH OF THE STRING IN CHARACTERS,
*         FOLLOWED BY AN 18 BIT ADDRESS POINTING TO THE FIRST WORD OF 
*         THE TEXT STRING.  THE LAST PART OF EACH TABLE CONSISTS OF ALL 
*         THE TEXT STRINGS WITH EACH STRING BEGINNING ON A WORD 
*         BOUNDARY. 
*0        THE MSGTXT MACRO MANAGES THE STRUCTURE OF THE 
*         TABLE.  TWO PARAMETERS ARE SUPPLIED;  1) AN OCTAL NUMBER AS 
*         THE MESSAGE ID.  2) THE TEXT OF THE MESSAGE ENCLOSED IN 
*         PARENTHESIS.  PARENTHESES MAY BE INCLUDED BUT MUST BE PROPERLY
*         PAIRED.  EQUIVALENCE SIGN MUST NOT BE USED.  AN UP ARROW
*         INDICATES A MESSAGE INSERT IS TO BE SUBSTITUTED AT OBJECT 
*         TIME.  THE STATEMENT LABEL HAS SPECIAL SIGNIFICANCE INVOKING
*         TABLE CODE BLOCK INITIALIZATION AND ENTRY POINT DEFINITION. 
*         THE MACROS MUST BE CALLED WITH MESSAGE NUMBERS IN ASCENDING 
*         ORDER.
*#
          NOREF     ERRMAX
          SPACE     1 
          TITLE     MSGTXT
          MACRO     MSGTXT,TABENT,MSG,TEXT
          LOCAL     STL,STW,STA 
 STR      MICRO     1,,#_TEXT_# 
 STL      MICCNT    STR 
 STW      SET       STL+9 
 STW      SET       STW/10
          ECHO      20,OP=(LT,GE),MT=(ERR,NTE)
          IF_OP     MSG,1000B,19
 T#E      IFC       NE,/TABENT//
          ECHO      2,BL=(ENT,IND,TXT)
          USE       MT_BL 
          USE       * 
          RMT 
          ENTRY     TABENT
          USE       MT_ENT
 TABENT   VFD       42/0,18/MT_MAX
          USE       * 
          RMT 
 MT_MAX   SET       0 
 T#E      ENDIF 
 MT_MAX   SET       MT_MAX+1
          USE       MT_TXT
 STA      DIS       STW,"STR" 
          USE       * 
          USE       MT_IND
          VFD       12/0,18/STA,12/STL,18/MSG 
          USE       * 
          ENDM
          SPACE     1 
 RM$ETAB  MSGTXT    001B,(INVALID FO')
          MSGTXT    002B,(FIT/FILE ORGANIZATION MISMATCH')
          MSGTXT    006B,(FIRST BLOCK IS NOT A FSTT') 
          MSGTXT    020B,(INVALID BT) 
          MSGTXT    022B,(W RECORDS DISALLOWED ON BT=E/K) 
          MSGTXT    025B,(BT=I, RT NE W)
          MSGTXT    026B,(SQ BTS REQUIRE MBL) 
          MSGTXT    030B,(INVALID RT) 
          MSGTXT    031B,(RT=F/Z AND FL=0)
          MSGTXT    032B,(RT=T AND HL OR TL=0)
          MSGTXT    033B,(RT=D AND LL=0/RT=T AND CL=0') 
          MSGTXT    034B,(RT=T/D, PTL ON FIRST PUTP EXCLUDES CONTROL FIE
,LD  ') 
          MSGTXT    035B,(RT=T/D MRL EXCLUDES CONTROL FIELD') 
          MSGTXT    036B,(RL INCONSISTENT WITH RECORD DESCRIPTION') 
          MSGTXT    037B,(RT=D/T AND CL/LL>6) 
          MSGTXT    040B,(REDUNDANT OPEN) 
          MSGTXT    047B,(OPEN EXTEND ON TAPE FILE) 
          MSGTXT    050B,(NUMBER OF FILES PERMITTED TO BE OPEN SIMULTANE
,OUSLY HAS BEEN EXCEEDED')
          MSGTXT    051B,(SETFIT DISALLOWED ON OPEN FILE) 
          MSGTXT    052B,(FILE NOT CLOSED AFTER LAST UPDATE/CONDITION QU
,ESTIONABLE)
          MSGTXT    053B,(NO HOME RECORD) 
          MSGTXT    054B,(FILE ILLEGALLY EXTENDED(EOI MOVED)) 
          MSGTXT    055B,(FILE NONEXISTENT, CANNOT OPEN-OLD)
          MSGTXT    056B,(EMPTY FILE OPENED FOR READ-ONLY)
          MSGTXT    060B,(REDUNDANT CLOSE)
          MSGTXT    070B,(OUTPUT REQUEST, PD=INPUT OR READ ONLY PERMISSI
,ON)
          MSGTXT    071B,(INPUT REQUEST,PD=OUTPUT)
          MSGTXT    074B,(MUST HAVE CMM FOR MULTIPLE ACCESS)
          MSGTXT    075B,(UBS MAY NOT BE USED FOR MULTIPLE ACCESS)
          MSGTXT    100B,(CANNOT SEQUENTIALLY POSITION BEYOND FILE BOUND
,S ') 
          MSGTXT    104B,(UNABLE TO FLUSH BUFFER) 
          MSGTXT    110B,(FILE NOT OPEN') 
          MSGTXT    111B,(NO CHECK ON LAST REQUEST) 
          MSGTXT    113B,(GET/PUT CANNOT BE USED IF SBF=YES)
          MSGTXT    115B,(OUTSTANDING FATAL ERROR ON THE FILE') 
          MSGTXT    116B,(GET FOLLOWS AN OUTPUT OPERATION. FO=SQ) 
          MSGTXT    117B,(PUT OR REPLACE OF LARGER RECORD ILLEGAL AFTER 
,GETN)
          MSGTXT    120B,(INVALID KEY/WORD ADDRESS/RECORD NUMBER) 
          MSGTXT    123B,(PARTIALS NOT SUPPORTED FOR RT = R ) 
          MSGTXT    130B,(RT=W, BAD CONTROL WORD, FILE DEFECTIVE OR MIS 
,POSITIONED)
          MSGTXT    135B,(RMS READ PARITY ERROR)
          MSGTXT    136B,(RMS WRITE PARITY ERROR) 
          MSGTXT    137B,(SQ READ PARITY ERROR ') 
          MSGTXT    140B,(SQ WRITE PARITY ERROR ')
          MSGTXT    141B,(EXCESS DATA IS FATAL TO PUTP ') 
          MSGTXT    142B,(EXCESS DATA)
          MSGTXT    143B,(INSUFFICIENT DATA)
          MSGTXT    144B,(INCOMPLETE PARTIAL PUT SEQUENCE ')
          MSGTXT    146B,(USER HEADER LENGTH ERROR) 
          MSGTXT    147B,(CHECKSUM ERROR IN DATA OR INDEX BLOCK') 
          MSGTXT    150B,(FILE NOT ON RMS') 
          MSGTXT    152B,(LT=S, DT=RMS) 
          MSGTXT    154B,(BT=K/E ON PRU TYPE DEVICE)
          MSGTXT    157B,(S-TAPE BUT MBL > 5120 CHARACTERS) 
          MSGTXT    162B,(INVALID CONVERSION) 
          MSGTXT    165B,(ILLEGAL FILE NAME ')
          MSGTXT    166B,(FIT INCOMPLETE- CANNOT CREATE FILE ') 
          MSGTXT    167B,(RECORD LENGTH OUTSIDE MIN-MAX RANGE--REQUEST I
,GNORED') 
          MSGTXT    170B,(RECORD SIZE EXCEEDS BLOCK SIZE OR IS NEGATIVE'
,)
          MSGTXT    171B,(INCORRECT HASHING ROUTINE') 
          MSGTXT    172B,(ERRONEOUS KL OR RKP FIELD SPECIFIED ')
          MSGTXT    173B,(INVALID RL/PTL/MBL/MNB')
          MSGTXT    174B,(FIT INCOMPLETE FOR BFS CALCULATION) 
          MSGTXT    175B,(REQUESTED DATA OR INDEX BUFFER TOO LARGE')
          MSGTXT    176B,(MAXRECSZ IN FSTT EXCEEDS MRL IN FIT,WSA MAY BE
, TOO SHORT)
          MSGTXT    200B,(BAD FSTT LINKED TO FIT) 
          MSGTXT    201B,(FILE CONTAINS BAD BLOCKS) 
          MSGTXT    202B,(FILE IS RUINED')
          MSGTXT    203B,(MIP FUNCTION ATTEMPTED WITHOUT MIP FILE)
          MSGTXT    204B,(KEY POSITION OUT OF RANGE') 
          MSGTXT    205B,(MINIMUM RECORD SIZE OUT OF RANGE')
          MSGTXT    206B,(KEY NOT CONTAINED WITHIN RECORD') 
          MSGTXT    207B,(MINIMUM RECORD SIZE EXCEEDS MAXIMUM') 
          MSGTXT    215B,(OUTSTANDING FATAL ERROR IN ALTERNATE FIT')
          MSGTXT    223B,(CHECKSUM ERROR IN FSTT')
          MSGTXT    245B,(FUNCTION NOT VALID FOR THIS FO) 
          MSGTXT    250B,(FILE RMS LIMIT EXCEEDED (AK)')
          MSGTXT    252B,(SYSTEM RMS LIMIT REACHED')
          MSGTXT    253B,(FILE LIMIT REACHED-RECORD NOT INSERTED) 
          MSGTXT    254B,(PARTIALS NOT SUPPORTED FOR FO=WA) 
          MSGTXT    255B,(RECORD SPECIFICATION NOT COMPATIBLE WITH SBF=Y
,ES)
          MSGTXT    256B,(PARTIALS NOT SUPPORTED FOR RT=R  ') 
          MSGTXT    300B,(NO READ PERMISSION')
          MSGTXT    301B,(NO WRITE OR MODIFY PERMISSION') 
          MSGTXT    302B,(NO EXTEND OR ALLOCATE PERMISSION')
          MSGTXT    304B,(NOT ALLOWED TO CREATE OVERFLOW BLOCKS (DA)) 
          MSGTXT    312B,(INVALID LABEL GROUP') 
          MSGTXT    315B,(FILE ORGANIZATION IS NOT SEQUENTIAL') 
          MSGTXT    316B,(TOO MANY LABELS') 
          MSGTXT    320B,(INVALID LABEL SEQUENCE')
          MSGTXT    321B,(DATA STRUCTURES MUST BE WORD ALIGNED ') 
          MSGTXT    324B,(PROCESSING DIRECTION NOT CONSISTENT WITH REQUE
,ST') 
          MSGTXT    325B,(STANDARD LABELS NOT ALLOWED ON MASS STORAGE') 
          MSGTXT    326B,(GETL/PUTL ILLEGAL ON UNLABELLED FILE) 
          MSGTXT    327B,(GETL ATTEMPTED BEYOND END OF LABELS') 
          MSGTXT    330B,(INVALID PARAMETER VALUE (LA,LBL,ULP)')
          MSGTXT    332B,(FILE REQUEST LABEL TYPE DISAGREES WITH LT FIEL
,D OF FIT)
          MSGTXT    333B,(ILLEGAL CALL TO DIAGNOSTIC ROUTINE ') 
          MSGTXT    334B,(TOTAL OF OPEN FILES NOT EQUAL TO TOTAL OF FIT 
,ADDRESSES) 
          MSGTXT    335B,(HIERARCHY TABLE OVERFLOW) 
          MSGTXT    336B,(BAD FIT ADDRESS') 
          MSGTXT    337B,(INTERNAL ERROR IN IS/DA/AK 1.X ') 
          MSGTXT    345B,(INSUFFICIENT CMM SPACE AVAILABLE.)
          MSGTXT    346B,(CMM NOT AVAILABLE AND THERE IS NO LIST OF FILE
,S ADDRESS) 
          MSGTXT    347B,(FDL ERROR CODE ' ON CAPSULE ')
          MSGTXT    352B,(FILE TO BE CLOSED IS NOT KNOWN')
          MSGTXT    354B,(BUFFER SPACE SUPPLIED IS INSUFFICIENT FOR I/O)
          MSGTXT    355B,(CODE MODULES REQUIRED FOR I/O NOT LOADED) 
          MSGTXT    356B,(TRIVIAL ERROR LIMIT REACHED') 
          MSGTXT    357B,(UNABLE TO OBTAIN SPACE FOR BUFFERS ') 
          MSGTXT    370B,(FATAL I/O ERROR') 
          MSGTXT    372B,(FO=IS INDEX STRUCTURE FULL 15 LEVELS) 
          MSGTXT    403B,(SKIPBL DISALLOWED)
          MSGTXT    404B,(SKIPFL DISALLOWED FOR RT=U) 
          MSGTXT    406B,(REPLACE ATTEMPTED ON TAPE FILE) 
          MSGTXT    407B,(FO=SQ REPLACE ATTEMPTED WHEN FP"EOR)
          MSGTXT    410B,(FO=SQ REPLACE ATTEMPTED WHEN LOP"GET) 
          MSGTXT    411B,(FO=SQ REPLACE ENCOUNTERED EOS/EOP/BOI)
          MSGTXT    412B,(FO=SQ REPLACE ILLEGAL FOR THIS RT - USE RT=F/W
,)
          MSGTXT    413B,(FO=SQ REPLACE ILLEGAL FOR THIS BT - USE BT=C) 
          MSGTXT    415B,(ONLY PUT ALLOWED DURING INITIAL CREATION) 
          MSGTXT    417B,(CANNOT REPLACE WITH LARGER RECORD IN SEQUENTIA
,L MODE)
          MSGTXT    420B,(CANNOT REWIND NO-REWIND FILE) 
          MSGTXT    421B,(WSA NOT SPECIFIED-REQUEST IGNORED)
          MSGTXT    422B,(SEEK NOT ALLOWED IN SEQUENTIAL MODE)
          MSGTXT    423B,(UNDEFINED ERROR 423)
          MSGTXT    424B,(CANNOT GET IN SEQUENTIAL MODE- GETN ASSUMED)
          MSGTXT    425B,(CANNOT SKIP BACKWARD IN SEQUENTIAL MODE)
          MSGTXT    426B,(GETN NOT ALLOWED DURING FILE CEATION - REQUEST
, IGNORED)
          MSGTXT    427B,(GET, SEEK INVALID IN SEQ MODE') 
          MSGTXT    430B,(INVALID OP FOR READ ONLY')
          MSGTXT    431B,(SKIP OR GETN WHEN SEEKING') 
          MSGTXT    441B,(MAJOR KEY WITH SYMBOLIC KEYS ONLY') 
          MSGTXT    442B,(INVALID ACTUAL KEY-REQUEST IGNORED) 
          MSGTXT    443B,(COMP-1 KEY HAS INCONSISTENT BIAS - REQUEST IGN
,ORED)
          MSGTXT    444B,(NEW KEY LESS THAN PREVIOUS KEY IN INITIAL CREA
,TION)
          MSGTXT    445B,(KEY NOT FOUND - FILE POSITION MAY BE ALTERED
,- REQUEST IGNORED) 
          MSGTXT    446B,(DUPLICATE KEY FOUND - FILE POSITION ALTERED - 
,REQUEST IGNORED) 
          MSGTXT    447B,(KEY ADDRESS NOT SPECIFIED-REQUEST IGNORED)
          MSGTXT    452B,(FILE POSITIONING ERROR')
          MSGTXT    501B,(INDEX FILE NOT COMPATIBLE WITH CRM FILE)
          MSGTXT    502B,( SPECIFIED KEY NOT DEFINED) 
          MSGTXT    503B,( DUPLICATE ALTERNATE KEY ERROR) 
          MSGTXT    504B,(SEQUENTIAL OPERATION BEYOND EOI ATTEMPTED)
          MSGTXT    505B,( ERROR IN RMKDEF PARAMETER) 
          MSGTXT    506B,(ALTERNATE KEY NOT FOUND)
          MSGTXT    507B,(*** AAM MALFUNCTION ' ***') 
          MSGTXT    510B,(INTERNAL ERROR IN MIP 1.X ')
          MSGTXT    511B,(RMKDEF ONLY AFTER OPEN-NEW--IGNORED)
          MSGTXT    512B,(CRM DATA FILE MODIFICATIONS ILLEGAL WITH NDX=Y
,ES') 
          MSGTXT    513B,(REQUIRED ROUTINES NOT LOADED- RM$MEXB/RM$MFSQ)
          MSGTXT    514B,(FILE CONTAINS DUPLICATE PRIMARY KEYS - ALTERNA
,TE KEYS ILLEGAL ') 
          MSGTXT    515B,(NO INDEX FILE SPECIFIED)
*ERROR CODE 516 RESERVED FOR MIP(ROUTINES USING RM$MERR)
*ERROR CODE 517 RESERVED FOR MIP(ROUTINES USING RM$MERR)
          MSGTXT    520B,(CHANGED KEY TYPE) 
          MSGTXT    521B,(CHANGED KEY SIZE) 
          MSGTXT    522B,(KEY TYPE INCORRECT')
          MSGTXT    523B,(NO KEY DEFINED) 
          MSGTXT    524B,(KEY SIZE ILLEGAL')
          MSGTXT    525B,(MAJOR KEY SIZE ILLEGAL')
          MSGTXT    526B,(HASHED KEY OUTSIDE HOME BLOCK AREA) 
          MSGTXT    527B,(ATTEMPT TO REDEFINE SPARSE CONTROL CHARACTER) 
          MSGTXT    530B,(PADDING FACTOR OUT OF RANGE') 
          MSGTXT    532B,(FILE ALREADY EXISTS,CANNOT OPEN-NEW)
          MSGTXT    534B,(MRL EXCEEDS MAX ALLOWED RECORD SIZE)
          MSGTXT    535B,(NO DECOMPRESSION ROUTINE SUPPLIED)
          MSGTXT    536B,(NO OR WRONG COMPRESSION ROUTINE SUPPLIED) 
          MSGTXT    540B,(FIFO KEY SUBSTRUCTURE NOT ALLOWED IN REPEATING
, GROUPS) 
          MSGTXT    541B,(PURGE ILLEGAL - SPECIFIED ALT KEY NOT KNOWN)
          MSGTXT    542B,(NEW KEYDEF MATCHES ONE ALREADY KNOWN - KEYDEF 
,REJECTED)
          MSGTXT    543B,(FILE NOT POSITIONED IN DUPLICATE KEY SET - CAN
,NOT DELETE CURRENT)
          MSGTXT    544B,(PADDING REQUESTED TOO LARGE)
          MSGTXT    545B,(CANT OPEN NEW FOR INPUT)
          MSGTXT    546B,(PRIMARY KEY NOT FOUND)
          MSGTXT    547B,(BAD STRUCTURE FOUND IN FILE ')
          MSGTXT    550B,(CANNOT COMPRESS - KEY POSITION INVALID) 
          MSGTXT    551B,(REL MUST BE EQ, GT, OR GE.) 
          MSGTXT    552B,(NO DATA FILE PROCESSING PERMITTED - FILE OPENE
,D FOR INDEX ONLY ')
          MSGTXT    553B,(OVERFLOW RECORD NOT FOUND - FILE BAD  ')
          MSGTXT    554B,(PROCESSING REQUIRES READ, EXTEND, AND MODIFY P
,ERMISSIONS)
          MSGTXT    555B,(INDEX FILE NONEXISTENT) 
          MSGTXT    556B,(OPEN FAILURE  ')
          MSGTXT    557B,(A FIT FIELD OTHER THAN WSA REFERENCED EXTENDED
, MEMORY ') 
          MSGTXT    712B,(NEGATIVE OR OVERSIZED ARGUMENT - WSA, SKP, OR 
,LA)
          MSGTXT    713B,(NEGATIVE OR OVERSIZED ARGUMENT - RL, ST, OR LB
,L) 
          MSGTXT    714B,(NEGATIVE EX OR DX PARAMETER)
          MSGTXT    715B,(NEGATIVE OR OVERSIZED ARGUMENT - WA OR KA)
          MSGTXT    716B,(NEGATIVE OR OVERSIZED ARGUMENT - PTL OR KP) 
          MSGTXT    717B,(NEGATIVE OR OVERSIZED ARGUMENT - MKL, POS, GPS
,, OR TRM)
          MSGTXT    720B,(DEVICE CAPACITY EXCEEDED')
          MSGTXT    721B,(ERROR DETECTED BY OPERATING SYSTEM) 
          SPACE     1 
 RM$NTAB  MSGTXT    1000B,(FIT DUMP ' ')
          MSGTXT    1001B,(FILE OPENED) 
          MSGTXT    1002B,(FILE CLOSED) 
          MSGTXT    1003B,(NUMBER OF INDEX LEVELS ')
          MSGTXT    1004B,(***NUMBER OF GETS THIS OPEN           '  ')
          MSGTXT    1005B,(***NUMBER OF PUTS THIS OPEN           '  ')
          MSGTXT    1006B,(***NUMBER OF REPLACES THIS OPEN       '  ')
          MSGTXT    1007B,(***NUMBER OF DELETES THIS OPEN        '  ')
          MSGTXT    1010B,(    ***TOTAL DISKAREA***      '  WORDS)
          MSGTXT    1011B,(GETN REACHED EOI)
          MSGTXT    1012B,(SKIP REACHED FILE BOUNDARY BEFORE EXHAUSTING 
,SKIP COUNT)
          MSGTXT    1013B,(END OF INFORMATION ENCOUNTERED)
          MSGTXT    1014B,(BEGINNING OF INFORMATION ENCOUNTERED)
          MSGTXT    1015B,(FILE LIMIT REACHED,LINEAR SEARCH FOR SPACE IN
,ITIATED) 
          MSGTXT    1016B,(ILLOGICAL SUCCESSIVE SEEK REQUESTS)
          MSGTXT    1017B,(CANNOT CHECKSUM A FILE CREATED WITHOUT CHECKS
,UMS) 
          MSGTXT    1020B,(ILLOGICAL TO CHANGE THE KEY BEFORE SEEK FUNCT
,ION COMPLETED) 
          MSGTXT    1021B,(HOME BLOCKS EMPTY-HASHING ROUTINE NOT VERIFIE
,D) 
          MSGTXT    1022B,(DELETED LAST RECORD) 
          MSGTXT    1023B,(EMPTY FILE OPENED) 
          MSGTXT    1024B,(IS ERROR RECOVERY) 
          MSGTXT    1025B,(DATA BLOCK SIZE AND BLOCKING FACTOR BOTH SET)
          MSGTXT    1026B,(EOI ENCOUNTERED ON SKIP OR GETN) 
          MSGTXT    1027B,(THE KEY IS  ') 
          MSGTXT    1030B,(ERROR ENCOUNTERED DURING  ') 
          MSGTXT    1031B,(         ')
          MSGTXT    1032B,(THE KEY IS  ' ,THE KEY IN OCTAL IS  ') 
          MSGTXT    1033B,(***NUMBER OF GET NEXTS THIS OPEN      '  ')
          MSGTXT    1034B,(***NUMBER OF ACCESSES THIS OPEN       '  ')
          MSGTXT    1035B,(***TOTAL NUMBER OF RECORDS            ') 
          MSGTXT    1036B,(***TOTAL NO. OF OVERFLOW RECORDS      ') 
          MSGTXT    1037B,(***NO.OF AVAILABLE PRIMARY INDEX ENTRIES ')
          MSGTXT    1040B,(***RECORDS/HOME-BLK CREATED THIS OPEN '  ')
          MSGTXT    1041B,(***RECORDS/OVF-BLK CREATED THIS OPEN  '  ')
          MSGTXT    1042B,(***OVERFLOW BLOCKS CREATED THIS OPEN  '  ')
          MSGTXT    1043B,(***TOTAL NUMBER OF HOME BLOCKS        ') 
          MSGTXT    1044B,(***TOTAL NUMBER OF HOME BLOCKS IN USE ') 
          MSGTXT    1046B,(PADDING NO LONGER HONORED) 
          MSGTXT    1047B,(SERIAL PASS OF FILE FOR SPACE) 
          MSGTXT    1137B,( THE FOLLOWING BLOCK CONTAINS A PARITY ERROR 
,'')
          END 
