*COMDECK DIAGTXT
          CENTURY   1000
          DIAGP  W,1001 
          DIAGT  (*THIS CHARACTER MAY NOT FOLLOW THE PRECEDING CHARACTER
,.  AN INTERVENING SPACE IS ASSUMED.*)
          DIAGP  F,1002 
          DIAGT  (*THIS CHARACTER MAY ONLY BE USED IN A NON-NUMERIC LITE
,RAL, IN A COMMENT-ENTRY OR ON A COMMENT LINE.  A SPACE IS ASSUMED.*) 
          DIAGP  F,1003 
          DIAGT  (*THIS IS NOT A VALID FORMAL PARAMETER FOR THE COPY STA
,TEMENT.  THE COPY STATEMENT IS IGNORED.*)
          DIAGP  F,1004 
          DIAGT  (*THIS NON-NUMERIC LITERAL MAS MORE THAN 255 CHARACTERS
,.  ONLY THE LEFT 255 CHARACTERS ARE USED.*)
          DIAGP  W,1005 
          DIAGT  (*THIS CHARACTER MAY NOT BE USED IN COLUMN 7.  A SPACE 
,IS ASSUMED.*)
          DIAGP  W,1006 
          DIAGT  (*THE FIRST NON BLANK CHARACTER FOLLOWING A CONTINUATIO
,N INDICATOR IS IN THE A AREA. IT IS ACCEPTED ANYWAY.*) 
          DIAGP  W,1007 
          DIAGT  (*THE FIRST NON SPACE CHARACTER IN A CONTINUED PORTION 
,OF A NON NUMERIC LITERAL IS NOT A QUOTE.  A PRECEDING QUOTE IS ASSUMED.
,*) 
          DIAGP  F,1008 
          DIAGT  (*QUALIFICATION OF AN IDENTIFIER IN A COPY STATEMENT HA
,S A SYNTAX ERROR.  THE COPY STATEMENT IS IGNORED.*)
          DIAGP  F,1009 
          DIAGT  (*THIS SIGNED INTEGER LITERAL HAS MORE THAN 18 DIGITS. 
, ONLY THE LEFT 18 DIGITS ARE USED.*) 
          DIAGP  F,1010 
          DIAGT  (*THIS SIGNED NUMERIC LITERAL HAS MORE THAN 18 DIGITS. 
, ONLY THE LEFT 18 DIGITS ARE USED.*) 
          DIAGP  F,1011 
          DIAGT  (*THIS NON-NUMERIC LITERAL HAS NO TERMINAL QUOTE.  A QU
,OTE FOLLOWING COLUMN 72 IS ASSUMED.*)
          DIAGP  F,1012 
          DIAGT  (*THIS USE OF THE CURRENCY SIGN IS NOT ALLOWED.  THIS C
,URRENCY SIGN IS IGNORED.*) 
          DIAGP  W,1013 
          DIAGT  (*THIS USE OF FILLER IS NOT ALLOWED.*) 
          DIAGP  W,1015 
          DIAGT  (*THE LITERAL IN A CURRENCY SIGN CLAUSE MUST NOT CONTAI
,N MORE THAN ONE CHARACTER.*) 
          DIAGP  F,1016 
          DIAGT  (*THIS CHARACTER MAY NOT FOLLOW THE PRECEDING CHARACTER
,.  AN INTERVENING SPACE IS ASSUMED.*)
          DIAGP  W,1017 
          DIAGT  (*THIS SEGMENT LIMIT IS NOT IN THE RANGE 1 THRU 49.  IT
, IS IGNORED.*) 
          DIAGP  W,1018 
          DIAGT  (*THIS CHARACTER MAY NOT BE USED AS A CURRENCY SIGN.  I
,T IS IGNORED.*)
          DIAGP  W,1019 
          DIAGT  (*A SEGMENT LIMIT MAY NOT CONTAIN A SIGN.  THE SIGN IS 
,IGNORED.*) 
          DIAGP  W,1020 
          DIAGT  (*A QUALIFIER IS REQUIRED FOLLOWING A CONNECTIVE. THE P
,RECEDING CONNECTIVE IS IGNORED.*)
          DIAGP  F,1021 
          DIAGT  (*THIS NAME CANNOT BE REFERENCED UNIQUELY.*) 
          DIAGP  F,1022 
          DIAGT  (*THIS ENTRY IS SUBORDINATE TO AN ENTRY WITH THE SAME N
,AME.*) 
          DIAGP  F,1023 
          DIAGT  (*THIS SIGNED FLOATING POINT LITERAL IS MUCH TOO LONG. 
, A VALUE OF 1.0E0 IS ASSUMED.*)
          DIAGP  F,1024 
          DIAGT  (*THIS UNSIGNED NUMERIC LITERAL HAS MORE THAN 18 DIGITS
,.  ONLY THE LEFT 18 DIGITS ARE USED.*) 
          DIAGP  W,1025 
          DIAGT  (*THIS ELEMENT MUST BEGIN IN THE A AREA.*) 
          DIAGP  W,1026 
          DIAGT  (*THIS ELEMENT MAY NOT BEGIN IN THE A AREA.*)
          DIAGP  W,1027 
          DIAGT  (*A PERIOD IS REQUIRED AFTER THE PRECEDING ELEMENT.*)
          DIAGP  F,1028 
          DIAGT  (*THIS UNSIGNED FLOATING POINT LITERAL IS MUCH TOO LONG
,.  A VALUE OF 1.0E0 IS ASSUMED.*)
          DIAGP  W,1029 
          DIAGT  (*THIS PARAGRAPH OR DIVISION HEADER OCCURS MORE THAN ON
,CE.*)
          DIAGP  W,1030 
          DIAGT  (*THIS IDENTIFICATION DIVISION PARAGRAPH OR HEADER OCCU
,RS OUT OF ORDER.*) 
          DIAGP  W,1031 
          DIAGT  (*THE PROGRAM NAME IS MISSING OR DOES NOT FOLLOW THE RU
,LES FOR A USER - DEFINED WORD. -NO-NAME- IS USED AS THE PROGRAM NAME.*)
          DIAGP  W,1032 
          DIAGT  (*THE PROGRAM-ID PARAGRAPH IS MISSING. -NO-NAME- IS USE
,D AS THE PROGRAM NAME.*) 
          DIAGP  W,1033 
          DIAGT  (*THIS USER-DEFINED NAME HAS MORE THAN 30 CHARACTERS.
,ONLY THE LEFT 30 CHARACTERS ARE USED.*)
          DIAGP  W,1034 
          DIAGT  (*A SEGMENT NUMBER MUST BE UNSIGNED.  THE SIGN IS IGNOR
,ED.*)
          DIAGP  W,1035 
          DIAGT  (*THIS SEGMENT NUMBER IS TOO LARGE.  ZERO IS ASSUMED.*)
          DIAGP  F,1036 
          DIAGT  (*THIS SECTION NAME IS NOT UNIQUE.*) 
          DIAGP  F,1037 
          DIAGT  (*THIS PARAGRAPH NAME IS NOT UNIQUE IN THIS SECTION.*) 
          DIAGP  F,1038 
          DIAGT  (*THIS PROCEDURE NAME DUPLICATES A DATA NAME.*)
          DIAGP  W,1039 
          DIAGT  (*A HYPHEN CANNOT IMMEDIATELY FOLLOW A NAME.  AN INTERV
,ENING SPACE IS ASSUMED.*)
          DIAGP  W,1040 
          DIAGT  (*THIS CHARACTER MAY NOT PRECEDE THE FOLLOWING CHARACTE
,R.  AN INTERVENING SPACE IS ASSUMED.*) 
          DIAGP  F,1041 
          DIAGT  (*THIS PICTURE CHARACTER-STRING HAS MORE THAN 30 CHARAC
,TERS.  ONLY THE LEFT 30 CHARACTERS ARE USED.*) 
          DIAGP  F,1042 
          DIAGT  (*THIS UNSIGNED INTEGER LITERAL HAS MORE THAN 18 DIGITS
,.  ONLY THE LEFT 18 DIGITS ARE USED.*) 
          DIAGP  F,1043 
          DIAGT  (*THIS NON-NUMERIC LITERAL HAS MORE THAN 255 CHARACTERS
, AND IS ALSO TERMINATED BY END-OF-PROGRAM.  ONLY THE LEFT 255 CHARACTER
,S ARE USED.*)
          DIAGP  W,1044 
          DIAGT  (*CONTINUATION LINES MUST NOT APPEAR AFTER A BLANK LINE
,. THE CONTINUATION CHARACTER IS ASSUMED A BLANK.*) 
          DIAGP  F,1045 
          DIAGT  (*THIS NON-NUMERIC LITERAL HAS MORE THAN 255 CHARACTERS
, AND ALSO EITHER NEEDS A HYPHEN IN COLUMN 7 FOR CONTINUATION OR NEEDS A
, TERMINATING DELIMITER.  ONLY THE LEFT 255 CHARACTERS ARE USED.*)
          DIAGP  N,1046 
          DIAGT  (*A FLOATING POINT LITERAL IS NON-STANDARD.*)
          DIAGP  W,1047 
          DIAGT  (*THIS ELEMENT OCCURS OUT OF CONTEXT AND IS IGNORED.*) 
          DIAGP  F,1048 
          DIAGT  (*THIS IDENTIFIER IS QUALIFIED TOO MANY TIMES.*) 
          DIAGP  W,1049 
          DIAGT  (*THE DATA-NAME APPEARING IN A REDEFINES CLAUSE CANNOT 
,BE QUALIFIED.*)
          DIAGP  W,1050 
          DIAGT  (*A NON-NUMERIC LITERAL OF LENGTH ZERO IS NOT ALLOWED. 
,A NON-NUMERIC LITERAL OF 1 BLANK IS SUBSTITUTED.*) 
          DIAGP  W,1051 
          DIAGT  (*THE EXPONENT IS MISSING. AN EXPONENT OF ZERO IS SUBST
,ITUTED.*)
          DIAGP  W,1052 
          DIAGT  (*A LINE FOLLOWING THIS LINE HAS NON-DIGITS OR ALL ZERO
, DIGITS IN COLUMNS 1 TO 6. THIS LINE-S PROGRAM SEQUENCE NUMBER IS ASSUM
,ED.*)
          DIAGP  F,1053 
          DIAGT  (*THIS DATA NAME DUPLICATES A PROCEDURE NAME.*)
          DIAGP  W,1054 
          DIAGT  (*THE RESERVED WORD -DIVISION- IS REQUIRED TO COMPLETE 
,THE IDENTIFICATION DIVISION HEADER.*)
          DIAGP  W,1055 
          DIAGT  (*THE IDENTIFICATION DIVISION IS MISSING. -NO-NAME- IS 
,USED AS THE PROGRAM NAME.*)
          DIAGP  W,1056 
          DIAGT  (*THE IDENTIFICATION DIVISION HEADER IS MISSING.*) 
          DIAGP  T,1057 
          DIAGT  (*ONLY THE FIRST 7 CHARACTERS OF THE PROGRAM NAME ARE U
,SED TO INTERACT WITH THE SYSTEM.*) 
          DIAGP  T,1058 
          DIAGT  (*FOR A PROGRAM-NAME TO BE ACCEPTABLE AS A SYSTEM ENTRY
, POINT NAME, EACH CHARACTER MUST BE ALPHABETIC (EXCEPT SPACE), NUMERIC,
, OR A HYPHEN.  A HYPHEN IS SUBSTITUTED FOR EACH INVALID CHARACTER.*) 
          DIAGP  F,1059 
          DIAGT  (*THE QUALIFIER FOR LINE-COUNTER MUST BE A REPORT-NAME.
,*) 
          DIAGP  F,1060 
          DIAGT  (*THE QUALIFIER FOR PAGE-COUNTER MUST BE A REPORT-NAME.
,*) 
          DIAGP  F,1061 
          DIAGT  (*THE QUALIFIER FOR LINAGE-COUNTER MUST BE A FILE-NAME.
,*) 
          DIAGP  F,1062 
          DIAGT  (*THE QUALIFIER FOR DEBUG-LINE, DEBUG-NAME, DEBUG-SUB-1
,, ETC, MUST BE DEBUG-ITEM.*) 
          DIAGP  F,1063 
          DIAGT  (*LINE-COUNTER CAN ONLY HAVE A SINGLE QUALIFIER.*) 
          DIAGP  F,1064 
          DIAGT  (*PAGE-COUNTER CAN ONLY HAVE A SINGLE QUALIFIER.*) 
          DIAGP  F,1065 
          DIAGT  (*LINAGE-COUNTER CAN ONLY HAVE A SINGLE QUALIFIER.*) 
          DIAGP  F,1066 
          DIAGT  (*DEBUG-LINE, DEBUG-NAME, DEBUG-SUB-1, ETC, CAN ONLY HA
,VE A SINGLE QUALIFIER.*) 
          DIAGP  F,1067 
          DIAGT  (*DEBUG-ITEM CANNOT BE QUALIFIED.*)
          DIAGP  F,1068 
          DIAGT  (*HASHED-VALUE CANNOT BE QUALIFIED.*)
          DIAGP  F,1069 
          DIAGT  (*LINAGE-COUNTER MUST BE QUALIFIED BY A FILE-NAME WHEN 
,THERE IS MORE THAN ONE LINAGE CLAUSE IN THE PROGRAM.*) 
          DIAGP  F,1070 
          DIAGT  (*LINE-COUNTER MUST BE QUALIFIED BY A REPORT-NAME WHEN 
,THERE IS MORE THAN ONE REPORT IN THE PROGRAM.*)
          DIAGP  F,1071 
          DIAGT  (*PAGE-COUNTER MUST BE QUALIFIED BY A REPORT-NAME WHEN 
,THERE IS MORE THAN ONE REPORT IN THE PROGRAM.*)
          DIAGP  F,1072 
          DIAGT  (*LINE-COUNTER IS UNDEFINED BECAUSE THERE ARE NO REPORT
,S IN THE PROGRAM.*)
          DIAGP  F,1073 
          DIAGT  (*PAGE-COUNTER IS UNDEFINED BECAUSE THERE ARE NO REPORT
,S IN THE PROGRAM.*)
          DIAGP  F,1074 
          DIAGT  (*LINAGE-COUNTER IS UNDEFINED BECAUSE NO FILE DESCRIPTI
,ON ENTRY IN THE PROGRAM CONTAINS A LINAGE CLAUSE.*)
          DIAGP  W,1075 
          DIAGT  (*THE UNSIGNED VALUE OF THIS FLOATING POINT LITERAL IS 
,LARGER THAN 0.12650140831706E+323.  A VALUE OF 0.0E+0 IS ASSUMED.*)
          DIAGP  W,1076 
          DIAGT  (*THE UNSIGNED VALUE OF THIS FLOATING POINT LITERAL IS 
,SMALLER THAN 0.31315130625140E-293.  A VALUE OF 0.0E+0 IS ASSUMED.*) 
          DIAGP  W,1077 
          DIAGT  (*NON-NUMERIC CHARACTER IN SEQUENCE NUMBER.*)
          DIAGP  F,1078 
          DIAGT  (*THE -BY- IN A COPY STATEMENT WAS EXPECTED HERE.  THE 
,COPY STATEMENT IS IGNORED.*) 
          DIAGP  F,1079 
          DIAGT  (*THE TEXT-NAME IS MISSING FROM THIS COPY STATEMENT.  T
,HE COPY STATEMENT IS IGNORED.*)
          DIAGP  W,1080 
          DIAGT  (*THIS TEXT-NAME IS LONGER THAN 9 CHARACTERS.  ONLY THE
, LEFT 9 CHARACTERS ARE USED.*) 
          DIAGP  F,1081 
          DIAGT  (*THIS LIBRARY-NAME IS NOT A LEGAL FILE NAME.  THE COPY
, STATEMENT IS IGNORED.*) 
          DIAGP  F,1082 
          DIAGT  (*THIS LIBRARY IS NOT A RANDOM -UPDATE- LIBRARY.  THE C
,OPY STATEMENT IS IGNORED.*)
          DIAGP  F,1083 
          DIAGT  (*THIS TEXT-NAME IS NOT ON THE INDICATED LIBRARY.  THE 
,COPY STATEMENT IS IGNORED.*) 
          DIAGP  F,1084 
          DIAGT  (*THIS SHOULD HAVE BEEN A PERIOD TO PROPERLY TERMINATE 
,THE COPY STATEMENT.  THE COPY STATEMENT IS IGNORED.*)
          DIAGP  W,1085 
          DIAGT  (*THE IGNORED COPY STATEMENT ENDS HERE.*)
          DIAGP  F,1086 
          DIAGT  (*THE SOURCE PROGRAM ENDED BEFORE THE TERMINATING PERIO
,D FOR THE COPY STATEMENT.*)
          DIAGP  F,1087 
          DIAGT  (*THE PSEUDO-TEXT STARTED BY THIS == IS TERMINATED BY E
,ND-OF-PROGRAM.  THE COPY STATEMENT IS IGNORED.*) 
          DIAGP  F,1088 
          DIAGT  (*THIS IS NOT A VALID ACTUAL PARAMETER FOR THE COPY STA
,TEMENT.  THE COPY STATEMENT IS IGNORED.*)
          DIAGP  W,1089 
          DIAGT  (*A LINE AT THE BEGINNING OF THE PROGRAM HAS NON-DIGITS
, OR ALL ZERO DIGITS IN COLUMNS 1 TO 6. THIS LINE-S PROGRAM SEQUENCE NUM
,BER IS GENERATED.*)
          DIAGP  W,1090 
          DIAGT  (*A LINE FOLLOWING THIS LINE HAS A PROGRAM SEQUENCE NUM
,BER IN COLUMNS 1 TO 6 THAT IS LARGER THAN 65535.  THIS LINE-S NUMBER IS
, ASSUMED.*)
          DIAGP  W,1091 
          DIAGT  (*A LINE AT THE BEGINNING OF THE PROGRAM HAS A PROGRAM 
,SEQUENCE NUMBER IN COLUMNS 1 TO 6 THAT IS LARGER THAN 65535.  THIS LINE
,-S PROGRAM SEQUENCE NUMBER IS ASSUMED.*) 
          DIAGP  W,1092 
          DIAGT  (*THIS PSEUDO-TEXT DELIMITER IS ILLEGAL HERE.  IT IS IG
,NORED.*) 
          DIAGP  W,1093 
          DIAGT  (*ONLY CHARACTERS 0 AND 1 ARE ALLOWED IN BOOLEAN LITERA
,LS.*)
          DIAGP  W,1094 
          DIAGT  (*THE FDL PARAMETER WAS SPECIFIED BUT THE FDL FILE IS E
,MPTY OR DOES NOT EXIST.*)
          DIAGP  W,1095 
          DIAGT  (*THIS DATA-NAME CANNOT BE THE SAME AS ANOTHER WHICH HA
,S THE SAME LEVEL NUMBER AND IS IN THE SAME HIERARCHY.*)
          DIAGP  N,1096 
          DIAGT  (*BOTH CHARACTERS OF PSEUDO-TEXT DELIMITER MUST BE ON T
,HE SAME LINE.*)
          DIAGP  C,1099 
          DIAGT  (*NO IDENTIFICATION DIVISION ENTRIES COULD BE FOUND BEF
,ORE THE END OF THE RECORD.  COMPILATION ABANDONED.*) 
          DIAGP  F,1100 
          DIAGT  (*THIS REPLACE STATEMENT IMMEDIATELY FOLLOWS A REPLACE 
,STATEMENT WITH NO PSEUDO-TEXTS OR TERMINATING PERIOD.  REPLACE STATEMEN
,T IGNORED.*) 
          DIAGP  F,1101 
          DIAGT  (*COPY STATEMENT WITHIN COPIED TEXT ILLEGAL*)
          DIAGP  F,1103 
          DIAGT  (*RESERVED WORD REPLACE ENCOUNTERED WHILE PROCESSING PS
,EUDO-TEXT-1 OF A REPLACE STATEMENT.  REPLACE STATEMENT IGNORED.*)
          DIAGP  F,1106 
          DIAGT  (*SEPARATOR WORD -BY- MISSING IN THIS REPLACE STATEMENT
,.  REPLACE STATEMENT IGNORED.*)
          DIAGP  F,1109 
          DIAGT  (*TEXT PRODUCED AS A RESULT OF A REPLACE STATEMENT MUST
, NOT CONTAIN A REPLACE STATEMENT.  REPLACE STATEMENT IGNORED.*)
          DIAGP  F,1110 
          DIAGT  (*PSUEDO-TEXT-1 MUST CONSIST OF AT LEAST ONE CHARACTER 
,STRING.*)
          DIAGP  F,1112 
          DIAGT  (*REPLACE STATEMENT MUST BE PRECEDED BY A PERIOD.  REPL
,ACE STATEMENT IGNORED.*) 
          DIAGP  F,1115 
          DIAGT  (*COPY STATEMENT NOT ALLOWED IN PSEUDO-TEXT OF A REPLAC
,E STATEMENT.  REPLACE STATEMENT IGNORED.*) 
          DIAGP  F,1118 
          DIAGT  (*REPLACE STATEMENT MISSING PSEUDO-TEXTS.*)
          DIAGP  F,1121 
          DIAGT  (*END OF SOURCE ENCOUNTERED IN MIDDLE OF REPLACE STATEM
,ENT.*) 
          DIAGP  F,1124 
          DIAGT  (*PSEUDO-TEXT OR TERMINATOR PERIOD MISSING FROM REPLACE
, STATEMENT.  REPLACE STATEMENT IGNORED.*)
          DIAGP  F,1127 
          DIAGT  (*END OF SOURCE ENCOUNTERED WHILE PROCESSING PSEUDO-TEX
,T-1 OF THIS REPLACE STATEMENT.*) 
          DIAGP  F,1130 
          DIAGT  (*PSEUDO-TEXT FOLLOWING SEPARATOR WORD -BY- MISSING FRO
,M REPLACE STATEMENT.  REPLACE STATEMENT IGNORED.*) 
          DIAGP  F,1133 
          DIAGT  (*END OF SOURCE ENCOUNTERED WHILE PROCESSING PSEUDO-TEX
,T-2 OF THIS REPLACE STATEMENT.*) 
          DIAGP  F,1136 
          DIAGT  (*END OF SOURCE ENCOUNTERED WHILE SKIPPING TO THE TERMI
,NATING PERIOD OF THIS REPLACE STATEMENT.*) 
          DIAGP  N,1139 
          DIAGT  (*REPLACE STATEMENT IS NON-STANDARD COBOL.*) 
          DIAGP  W,1140 
          DIAGT  (*REPLACEMENT OF PUNCTUATION CHARACTER COMMA OR SEMICOL
,ON HAS OCCURED ON THIS LINE.  AN INTERVENING SPACE IS ASSUMED TO HAVE P
,RECEDED IT.  CONCATENATION HAS NOT OCCURED.*)
          DIAGP  W,1150 
          DIAGT  (*PERIOD FOLLOWING DATE-COMPILED MISSING.*)
          DIAGP  F,1200 
          DIAGT  (*THE SUB-SCHEMA RECORD LIST CANNOT BE READ.*) 
          DIAGP  F,1201 
          DIAGT  (*ERROR, E.G. I/O, IN ACCESSING A SUB-SCHEMA RECORD ENT
,RY.*)
          DIAGP  F,1202 
          DIAGT  (*A SUB-SCHEMA ITEM CANNOT BE READ.*)
          DIAGP  F,1203 
          DIAGT  (*THE SUB-SCHEMA LIBRARY CANNOT BE OPENED.  THIS MAY BE
, DUE TO AN INVALID SUB-SCHEMA NAME.*)
          DIAGP  F,1204 
          DIAGT  (*THE OMIT LIST FOR THIS AREA CANNOT BE READ.*)
          DIAGP  F,1205 
          DIAGT  (*A SUB-SCHEMA AREA IS -SELECT-ED MORE THAN ONCE.*)
          DIAGP  F,1206 
          DIAGT  (*SUB-SCHEMA AREA TABLE OVERFLOW.  AREA/RELATION IS IGN
,ORED.*)
          DIAGP  F,1207 
          DIAGT  (*ERROR, E.G. I/O, IN READING SUB-SCHEMA AREA LIST.*)
          DIAGP  F,1208 
          DIAGT  (*ERROR, E.G. I/O, IN ACCESSING A SUB-SCHEMA AREA ENTRY
,.*)
          DIAGP  F,1209 
          DIAGT  (*THIS DUPLICATE -SUB-SCHEMA IS- CLAUSE IS IGNORED.*)
          DIAGP  F,1210 
          DIAGT  (*SUB-SCHEMA ERROR, NO -VALUE- LITERAL WITH 88 LEVEL IT
,EM.*)
          DIAGP  F,1211 
          DIAGT  (*AN AREA SPECIFIED IN THE FDL FILE IS NOT IN THE SUB-S
,CHEMA.*) 
          DIAGP  F,1212 
          DIAGT  (*A RELATION SPECIFIED IN THE FDL FILE IS NOT IN THE SU
,B-SCHEMA.*)
          DIAGP  F,1213 
          DIAGT  (*AN AREA SPECIFIED IN THE FDL FILE HAS NOT BEEN -SELEC
,T-ED.*)
          DIAGP  F,1214 
          DIAGT  (*A -SUB-SCHEMA IS- CLAUSE IS USED BUT NO -D- PARAMETER
, APPEARS ON THE COBOL CONTROL CARD.*)
          DIAGP  T,1215 
          DIAGT  (*SINCE THIS SUBPROGRAM SPECIFIES A SUB-SCHEMA, THE MAI
,N PROGRAM COMPILATION REQUIRES AN FDL FILE WHICH SPECIFIES ALL SUB-SCHE
,MA-DEFINED FILES AND RELATIONS REFERENCED IN THIS SUBPROGRAM.*)
          DIAGP  C,1216 
          DIAGT  (*THE VERSION OF DDL UNDER WHICH THE SUB-SCHEMA WAS COM
,PILED IS INCOMPATIBLE WITH THE VERSION OF CDCS UNDER WHICH THIS PROGRAM
, IS TO EXECUTE.*)
          DIAGP  N,1249 
          DIAGT  (*OMISSION OF A DATA-NAME OR FILLER FOLLOWING A LEVEL
,NUMBER IN A DATA DESCRIPTION ENTRY IS NON-STANDARD COBOL.*)
          DIAGP  F,1301 
          DIAGT  (*THIS STRING CONTAINS TOO MANY CHARACTERS. IT IS TRUNC
,ATED ON THE RIGHT.*) 
          DIAGP  W,1302 
          DIAGT  (*THIS CHARACTER MAY NOT BE USED IN COL 7. A SPACE IS S
,UBSTITUTED.*)
          DIAGP  W,1303 
          DIAGT  (*THE FIRST NON-BLANK CHARACTER AFTER A CONTINUATION IN
,DICATOR IS IN THE A-AREA. IT IS ACCEPTED ANYWAY.*) 
          DIAGP  W,1304 
          DIAGT  (*THE FIRST NON-SPACE CHARACTER IN A CONTINUED PORTION 
,OF A NON-NUMERIC LITERAL IS NOT A QUOTE. A PRECEDING QUOTE IS ASSUMED.*
,)
          DIAGP  W,1305 
          DIAGT  (*THIS NON-NUMERIC LITERAL CONTAINS TOO MANY CHARACTERS
,. IT IS TRUNCATED ON THE RIGHT.*)
          DIAGP  W,1306 
          DIAGT  (*THIS NON-NUMERIC LITERAL HAS NO TERMINAL QUOTE. A QUO
,TE IN COL 73 IS ASSUMED.*) 
          DIAGP  W,1307 
          DIAGT  (*CONTINUATION LINES MUST NOT APPEAR AFTER A BLANK LINE
,. THE CONTINUATION CHARACTER IS ASSUMED BLANK.*) 
          DIAGP  F,1308 
          DIAGT  (*THIS COPY STATEMENT IS IN ERROR.*) 
          DIAGP  F,1309 
          DIAGT  (*THIS TEXT NAME IS IN ERROR.*)
          DIAGP  F,1310 
          DIAGT  (*THIS LIBRARY NAME IS IN ERROR.*) 
          DIAGP  F,1311 
          DIAGT  (*THIS LIBRARY IS UNDEFINED.*) 
          DIAGP  F,1312 
          DIAGT  (*THIS TEXT IS UNDEFINED.*)
          DIAGP  C,1320 
          DIAGT  (*COMPILER ERROR - ZERO LENGTH ASSIGNED WORD.*)
          DIAGP  C,1321 
          DIAGT  (*COMPILER ERROR - INVALID PROCEDURE REFERENCE.*)
          DIAGP  C,1322 
          DIAGT  (*COMPILER ERROR - INVALID DATA REFERENCE.*) 
          DIAGP  N,1401 
          DIAGT  (*FIPS=3 SUPPORTS DATA NAMES BEGINNING WITH A NUMERIC D
,IGIT.*)
          DIAGP  N,1402 
          DIAGT  (*FIPS=3 SUPPORTS QUALIFICATION.*) 
          DIAGP  N,1403 
          DIAGT  (*FIPS=3 SUPPORTS ZEROS, ZEROES, SPACES, QUOTES, HIGH-V
,ALUES, AND LOW-VALUES.*) 
          DIAGP  N,1404 
          DIAGT  (*FIPS=3 SUPPORTS THE DATE-COMPILED PARAGRAPH.*) 
          DIAGP  N,1405 
          DIAGT  (*FIPS=3 SUPPORTS LEVEL NUMBERS 11 THRU 49.*)
          DIAGP  N,1406 
          DIAGT  (*DEBUG-NUMERIC-CONTENTS IS NON-STANDARD COBOL.*)
          DIAGP  N,1600 
          DIAGT  (*FIPS=3 SUPPORTS THE CONTINUATION OF COBOL WORDS AND N
,UMERIC LITERALS.*) 
          DIAGP  N,1601 
          DIAGT  (*FIPS=2 SUPPORTS THE COPY STATEMENT.*)
          DIAGP  N,1602 
          DIAGT  (*FIPS=4 SUPPORTS COPY TEXT-NAME OF/IN LIBRARY-NAME.*) 
          DIAGP  N,1603 
          DIAGT  (*FIPS=4 SUPPORTS COPY REPLACING.*)
          DIAGP  N,1604 
          DIAGT  (*FIPS=2 SUPPORTS DEBUGGING LINES.*) 
          DIAGP  N,1610 
          DIAGT  (*FIPS=3 SUPPORTS ONE DIGIT LEVEL NUMBERS.*) 
          CENTURY   2000
          DIAGP  F,2001 
          DIAGT  (*A REPETITION COUNT MUST NOT EXCEED 131071.*) 
          DIAGP  F,2002 
          DIAGT  (*THE RIGHT PARENTHESIS, REQUIRED HERE, IS MISSING IN T
,HIS REPETITION COUNT.*)
          DIAGP  F,2003 
          DIAGT  (*REPETITION CHARACTER REQUIRED HERE FOR THIS REPETITIO
,N COUNT.*) 
          DIAGP  F,2004 
          DIAGT  (*THIS RIGHT PARENTHESIS IS MISPLACED.*) 
          DIAGP  F,2005 
          DIAGT  (*A LEFT PARENTHESIS MUST PRECEDE THIS REPETITION COUNT
,.*)
          DIAGP  F,2006 
          DIAGT  (*THIS CHARACTER IS NOT ALLOWED IN A PICTURE STRING.*) 
          DIAGP  C,2007 
          DIAGT  (*COMPILER ERROR.*)
          DIAGP  F,2008 
          DIAGT  (*THIS CHARACTER IS MISPLACED IN THE PICTURE.*)
          DIAGP  F,2009 
          DIAGT  (*AN EDIT PICTURE MUST CONTAIN AN -X- , -A- , OR -9-.*)
          DIAGP  F,2010 
          DIAGT  (*A NUMERIC PICTURE MUST CONTAIN AT LEAST ONE -9-.*) 
          DIAGP  F,2011 
          DIAGT  (*AN ALPHANUMERIC EDIT PICTURE MUST CONTAIN AT LEAST ON
,E -X- AND -B- , OR -X- AND -0- , OR -X- AND -/- , OR -A- AND -0- , OR -
,A- AND -/-.*)
          DIAGP  F,2012 
          DIAGT  (*A NUMERIC ITEM MAY NOT EXCEED 18 DIGIT POSITIONS.*)
          DIAGP  F,2013 
          DIAGT  (*A NON-NUMERIC ITEM MAY NOT EXCEED 131071 CHARACTER PO
,SITIONS.*) 
          DIAGP  F,2014 
          DIAGT  (*THE COEFFICIENT OF AN EXTERNAL FLOATING POINT ITEM MA
,Y NOT EXCEED 15 DIGIT POSITIONS.*) 
          DIAGP  F,2015 
          DIAGT  (*THE EXPONENT OF AN EXTERNAL FLOATING POINT ITEM MUST 
,CONTAIN 1 , 2 , 3 OR 4 DIGIT POSITIONS.*)
          DIAGP  N,2016 
          DIAGT  (*A FLOATING POINT PICTURE IS NON-STANDARD.*)
          DIAGP  F,2017 
          DIAGT  (*AN EXTERNAL FLOATING POINT ITEM MAY CONTAIN A SIGN  P
,OSITION FOR BOTH THE COEFFICIENT AND THE EXPONENT.*) 
          DIAGP  C,2018 
          DIAGT  (*COMPILER ERROR.*)
          DIAGP  F,2021 
          DIAGT  (*THIS EXTERNAL FLOATING POINT PICTURE IS NOT VALID.*) 
          DIAGP  C,2022 
          DIAGT  (*COMPILER ERROR.*)
          DIAGP  F,2023 
          DIAGT  (*THE LENGTH OF EACH PICTURE MUST BE GREATER THAN ZERO.
, *)
          CENTURY   3000
          DIAGP  F,3001 
          DIAGT  (*THIS ELEMENT MAY NOT APPEAR IN THIS CONTEXT.*) 
          DIAGP  F,3002 
          DIAGT  (*A BLANK WHEN ZERO CLAUSE IS ONLY ALLOWED IN A DATA DE
,SCRIPTION ENTRY.*) 
          DIAGP  F,3003 
          DIAGT  (*-ZERO- IS A REQUIRED WORD IN A BLANK WHEN ZERO CLAUSE
,.*)
          DIAGP  F,3004 
          DIAGT  (*THE BLOCK CONTAINS CLAUSE IS ALLOWED ONLY IN A FILE D
,ESCRIPTION.*)
          DIAGP  F,3005 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED IN A BLOCK CONTAINS CL
,AUSE.*)
          DIAGP  W,3006 
          DIAGT  (*DIVISION IS A REQUIRED WORD IN A DIVISION HEADER.*)
          DIAGP  W,3007 
          DIAGT  (*A PERIOD MUST TERMINATE A DIVISION HEADER.*) 
          DIAGP  F,3008 
          DIAGT  (*THE DATA RECORDS CLAUSE IS ALLOWED ONLY IN A FILE OR 
,SORT-MERGE DESCRIPTION ENTRY.*)
          DIAGP  F,3009 
          DIAGT  (*-RECORD- OR -RECORDS- IS REQUIRED IN A DATA RECORDS C
,LAUSE.*) 
          DIAGP  F,3010 
          DIAGT  (*AT LEAST ONE DATA NAME IS REQUIRED IN A DATA RECORDS 
,CLAUSE.*)
          DIAGP  F,3011 
          DIAGT  (*THE JUSTIFIED CLAUSE IS ALLOWED ONLY IN A DATA DESCRI
,PTION ENTRY.*) 
          DIAGP  F,3012 
          DIAGT  (*THE LABEL RECORDS CLAUSE IS ALLOWED ONLY IN A FILE DE
,SCRIPTION ENTRY.*) 
          DIAGP  F,3013 
          DIAGT  (*-RECORD- OR -RECORDS- IS REQUIRED IN A LABEL RECORDS 
,CLAUSE.*)
          DIAGP  F,3014 
          DIAGT  (*-STANDARD- OR -OMITTED- IS REQUIRED IN A LABEL RECORD
,S CLAUSE.*)
          DIAGP  F,3015 
          DIAGT  (*THE LINAGE CLAUSE IS ALLOWED ONLY IN A FILE DESCRIPTI
,ON ENTRY.*)
          DIAGP  F,3016 
          DIAGT  (*A DATA NAME OR AN INTEGER LITERAL IS REQUIRED IN A LI
,NAGE CLAUSE.*) 
          DIAGP  F,3017 
          DIAGT  (*THE EXTERNAL CLAUSE MAY BE SPECIFIED ONLY IN LEVEL 01
, ENTRIES IN THE WORKING-STORAGE OR IN FD ENTRIES.*)
          DIAGP  F,3018 
          DIAGT  (*THE OCCURS CLAUSE IS ALLOWED ONLY IN A DATA DESCRIPTI
,ON ENTRY WITH A LEVEL NUMBER IN THE RANGE 02 THROUGH 49.*) 
          DIAGP  F,3019 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED IN AN OCCURS CLAUSE.*)
          DIAGP  F,3020 
          DIAGT  (*AN INTEGER LITERAL MUST FOLLOW -TO- IN AN OCCURS CLAU
,SE.*)
          DIAGP  F,3021 
          DIAGT  (*-DEPENDING- IS REQUIRED AFTER INTEGER-2 OF AN OCCURS 
,CLAUSE.*)
          DIAGP  F,3022 
          DIAGT  (*A DATA NAME IS REQUIRED IN THE DEPENDING ON PHRASE OF
, AN OCCURS CLAUSE.*) 
          DIAGP  F,3023 
          DIAGT  (*A DATA NAME IS REQUIRED AFTER ASCENDING OR DESCENDING
, KEY IN AN OCCURS CLAUSE.*)
          DIAGP  F,3024 
          DIAGT  (*THE PICTURE CLAUSE IS ALLOWED ONLY IN A DATA DESCRIPT
,ION ENTRY.*) 
          DIAGP  F,3025 
          DIAGT  (*A PICTURE STRING IS REQUIRED IN A PICTURE CLAUSE.*)
          DIAGP  F,3026 
          DIAGT  (*THE RECORD CLAUSE IS ALLOWED ONLY IN A FILE OR SORT -
, MERGE DESCRIPTION ENTRY.*)
          DIAGP  F,3027 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED IN A RECORD CLAUSE.*) 
          DIAGP  F,3028 
          DIAGT  (*AN INTEGER LITERAL MUST FOLLOW -TO- IN A RECORD CLAUS
,E.*) 
          DIAGP  F,3029 
          DIAGT  (*THE RECORDING MODE CLAUSE IS ALLOWED ONLY IN A FILE D
,ESCRIPTION ENTRY.*)
          DIAGP  F,3030 
          DIAGT  (*THE REDEFINES CLAUSE IS ALLOWED ONLY IN A DATA DESCRI
,PTION ENTRY.*) 
          DIAGP  F,3031 
          DIAGT  (*A DATA NAME IS REQUIRED IN A REDEFINES CLAUSE.*) 
          DIAGP  F,3032 
          DIAGT  (*THE REPORT CLAUSE IS ALLOWED ONLY IN A FILE DESCRIPTI
,ON ENTRY.*)
          DIAGP  F,3033 
          DIAGT  (*VARIABLE LENGTH DATA ITEMS ARE NOT IMPLEMENTED IN THI
,S COMPILER.*)
          DIAGP  F,3034 
          DIAGT  (*A REPORT-NAME IS REQUIRED IN A REPORT CLAUSE.*)
          DIAGP  F,3035 
          DIAGT  (*THE SIGN CLAUSE IS ALLOWED ONLY IN A DATA DESCRIPTION
, ENTRY.*)
          DIAGP  W,3036 
          DIAGT  (*THE ENVIRONMENT DIVISION HEADER IS MISSING.*)
          DIAGP  W,3037 
          DIAGT  (*THE DATA DIVISION HEADER IS MISSING.*) 
          DIAGP  F,3038 
          DIAGT  (*-LEADING- OR -TRAILING- IS REQUIRED IN A SIGN CLAUSE.
,*) 
          DIAGP  F,3039 
          DIAGT  (*THE SYNCHRONIZED CLAUSE IS ALLOWED ONLY IN A DATA DES
,CRIPTION ENTRY.*)
          DIAGP  F,3040 
          DIAGT  (*THE USAGE CLAUSE IS ALLOWED ONLY IN A DATA DESCRIPTIO
,N ENTRY.*) 
          DIAGP  F,3041 
          DIAGT  (*A DATA NAME MUST FOLLOW -DEPENDING ON- IN A VARIABLE 
,LENGTH PICTURE.*)
          DIAGP  F,3042 
          DIAGT  (*-BINARY- OR -DECIMAL- IS REQUIRED HERE IN THE RECORDI
,NG MODE CLAUSE.*)
          DIAGP  F,3043 
          DIAGT  (*A DATA NAME OR LITERAL IS REQUIRED AFTER -FOOTING- IN
, A LINAGE CLAUSE.*)
          DIAGP  F,3044 
          DIAGT  (*A DATA NAME OR LITERAL IS REQUIRED AFTER -TOP- IN A L
,INAGE CLAUSE.*)
          DIAGP  F,3045 
          DIAGT  (*A DATA NAME OR LITERAL IS REQUIRED AFTER -BOTTOM- IN 
,A LINAGE CLAUSE.*) 
          DIAGP  F,3046 
          DIAGT  (*-FOOTING- MUST FOLLOW -WITH- IN A LINAGE CLAUSE.*) 
          DIAGP  F,3047 
          DIAGT  (*DISPLAY, COMP, COMP-1, COMP-2, COMP-4, OR INDEX IS RE
,QUIRED HERE IN THE USAGE CLAUSE.*) 
          DIAGP  F,3048 
          DIAGT  (*THE VALUE CLAUSE IS ALLOWED ONLY IN A DATA DESCRIPTIO
,N OR CONDITION NAME ENTRY.*) 
          DIAGP  F,3049 
          DIAGT  (*A LITERAL IS REQUIRED IN A VALUE CLAUSE.*) 
          DIAGP  F,3050 
          DIAGT  (*THE -VALUE OF- CLAUSE IS ALLOWED ONLY IN A FILE DESCR
,IPTION ENTRY.*)
          DIAGP  F,3051 
          DIAGT  (*AN IMPLEMENTOR NAME THAT SPECIFIES A LABEL FIELD MUST
, BE GIVEN IN A -VALUE OF- CLAUSE.*)
          DIAGP  F,3052 
          DIAGT  (*EITHER A DATA NAME OR A LITERAL MUST FOLLOW THE LABEL
, FIELD NAME IN A -VALUE OF- CLAUSE.*)
          DIAGP  F,3053 
          DIAGT  (*AN ASCENDING OR DESCENDING KEY PHRASE IS ALLOWED ONLY
, IN AN OCCURS CLAUSE.*)
          DIAGP  F,3054 
          DIAGT  (*ILLEGAL MULTI-FILE NAME - MUST START WITH LETTER AND 
,CONTAIN ONLY LETTERS AND NUMBERS*) 
          DIAGP  F,3055 
          DIAGT  (*THE INDEXED BY PHRASE IS ALLOWED ONLY IN AN OCCURS CL
,AUSE.*)
          DIAGP  F,3056 
          DIAGT  (*THE RENAMES CLAUSE IS ALLOWED ONLY IN A DATA DESCRIPT
,ION ENTRY WITH A LEVEL NUMBER OF 66.*) 
          DIAGP  F,3057 
          DIAGT  (*THE MULTI-FILE NAMES FOR A SERIES OF FILES IN A MULTI
,PLE FILE TAPE CLAUSE MUST BE IDENTICAL*) 
          DIAGP  F,3058 
          DIAGT  (*ON NOS/BE, THE MULTI-FILE NAME MUST NOT EQUAL THE IMP
,LEMENTOR NAME SPECIFIED IN THE ASSIGN CLAUSE*) 
          DIAGP  F,3059 
          DIAGT  (*A LEVEL 66 ENTRY MAY ONLY FOLLOW ENTRIES WITH LEVELS 
,2 THROUGH 49 , 66 , OR 88.*) 
          DIAGP  F,3060 
          DIAGT  (*-RENAMES- MUST IMMEDIATELY FOLLOW A LEVEL 66 DATA NAM
,E.*) 
          DIAGP  F,3061 
          DIAGT  (*A DATA NAME MUST FOLLOW -RENAMES-.*) 
          DIAGP  F,3062 
          DIAGT  (*A DATA NAME MUST FOLLOW -THRU- IN A RENAMES CLAUSE.*)
          DIAGP  F,3064 
          DIAGT  (*A LEVEL 88 ENTRY IS ALLOWED ONLY AFTER AN ENTRY WITH 
,LEVEL 01 THROUGH 49 , 77 OR 88.*)
          DIAGP  F,3065 
          DIAGT  (*-VALUE- OR -VALUES- MUST FOLLOW THE CONDITION NAME IN
, A LEVEL 88 ENTRY.*) 
          DIAGP  F,3066 
          DIAGT  (*A LITERAL IS REQUIRED IN A CONDITION NAME VALUE CLAUS
,E.*) 
          DIAGP  F,3067 
          DIAGT  (*A LITERAL MUST FOLLOW -THRU- IN A CONDITION NAME VALU
,E CLAUSE.*)
          DIAGP  W,3068 
          DIAGT  (*A LEVEL 88 ENTRY MUST END WITH A PERIOD.*) 
          DIAGP  F,3069 
          DIAGT  (*-INPUT- OR -OUTPUT- IS REQUIRED IN A CD ENTRY.*) 
          DIAGP  F,3070 
          DIAGT  (*A REPORT DESCRIPTION ENTRY IS ALLOWED ONLY IN THE REP
,ORT SECTION.*) 
          DIAGP  F,3071 
          DIAGT  (*-SECTION- IS REQUIRED IN THE FILE SECTION HEADER.*)
          DIAGP  W,3072 
          DIAGT  (*THE FILE SECTION HEADER MUST BE TERMINATED BY A PERIO
,D.*) 
          DIAGP  F,3073 
          DIAGT  (*-SECTION- IS REQUIRED IN THE WORKING-STORAGE SECTION 
,HEADER.*)
          DIAGP  W,3074 
          DIAGT  (*THE WORKING-STORAGE SECTION HEADER MUST BE TERMINATED
, BY A PERIOD.*)
          DIAGP   F,3075
          DIAGT  (*-SECTION- IS REQUIRED IN THE LINKAGE SECTION HEADER. 
,*) 
          DIAGP  W,3076 
          DIAGT  (*THE LINKAGE SECTION HEADER MUST BE TERMINATED BY A PE
,RIOD.*)
          DIAGP  F,3077 
          DIAGT  (*-SECTION- IS REQUIRED IN THE COMMUNICATION SECTION HE
,ADER.*)
          DIAGP  W,3078 
          DIAGT  (*THE COMMUNICATION SECTION HEADER MUST BE TERMINATED B
,Y A PERIOD.*)
          DIAGP  F,3079 
          DIAGT  (*IN THE FILE SECTION OR COMMUNICATION SECTION A LEVEL 
,01 ENTRY IS ONLY ALLOWED AFTER A LEVEL INDICATOR ENTRY (FD, SD OR CD), 
,OR AFTER AN ENTRY WITH LEVEL 01 TO 49.*) 
          DIAGP  F,3080 
          DIAGT  (*AN ENTRY WITH LEVEL 02 THROUGH 49 IS ONLY ALLOWED AFT
,ER AN ENTRY WITH LEVEL 01 THROUGH 49 OR LEVEL 88.*)
          DIAGP  F,3081 
          DIAGT  (*A LEVEL 77 ENTRY IS ALLOWED ONLY IN THE WORKING-STORA
,GE SECTION.*)
          DIAGP  F,3082 
          DIAGT  (*THE QUEUE CLAUSE IS ONLY ALLOWED IN AN INPUT CD ENTRY
,.*)
          DIAGP  F,3083 
          DIAGT  (*THE SUB-QUEUE-1 CLAUSE IS ONLY ALLOWED IN AN INPUT CD
, ENTRY.*)
          DIAGP  F,3084 
          DIAGT  (*THE SUB-QUEUE-2 CLAUSE IS ONLY ALLOWED IN AN INPUT CD
, ENTRY.*)
          DIAGP  F,3085 
          DIAGT  (*THE SUB-QUEUE-3 CLAUSE IS ONLY ALLOWED IN AN INPUT CD
, ENTRY.*)
          DIAGP  F,3086 
          DIAGT  (*THE SYMBOLIC SOURCE CLAUSE IS ONLY ALLOWED IN AN INPU
,T CD ENTRY.*)
          DIAGP  F,3087 
          DIAGT  (*THE DESTINATION CLAUSE IS ONLY ALLOWED IN AN OUTPUT C
,D ENTRY.*) 
          DIAGP  F,3088 
          DIAGT  (*THE QUEUE DEPTH CLAUSE IS ONLY ALLOWED IN AN INPUT CD
, ENTRY.*)
          DIAGP  F,3089 
          DIAGT  (*THE DESTINATION COUNT CLAUSE IS ONLY ALLOWED IN AN OU
,TPUT CD ENTRY.*) 
          DIAGP  F,3090 
          DIAGT  (*THE DESTINATION TABLE CLAUSE IS ONLY ALLOWED IN AN OU
,TPUT CD ENTRY.*) 
          DIAGP  F,3091 
          DIAGT  (*-OCCURS- IS REQUIRED IN A DESTINATION TABLE CLAUSE.
,*) 
          DIAGP  F,3092 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED IN A DESTINATION TABLE
, CLAUSE.*) 
          DIAGP  F,3093 
          DIAGT  (*THE TEXT LENGTH CLAUSE IS ONLY ALLOWED IN A CD ENTRY.
,*) 
          DIAGP  F,3094 
          DIAGT  (*-LENGTH- IS REQUIRED IN A TEXT LENGTH CLAUSE.*)
          DIAGP  F,3095 
          DIAGT  (*THE STATUS KEY CLAUSE IS ONLY ALLOWED IN A CD ENTRY. 
,*) 
          DIAGP  F,3096 
          DIAGT  (*-KEY- IS REQUIRED IN A STATUS KEY CLAUSE.*)
          DIAGP  F,3097 
          DIAGT  (*THE ERROR KEY CLAUSE IS ONLY ALLOWED IN AN OUTPUT CD 
,ENTRY.*) 
          DIAGP  F,3098 
          DIAGT  (*-KEY- IS REQUIRED IN AN ERROR KEY CLAUSE.*)
          DIAGP  F,3099 
          DIAGT  (*-DATE- OR -TIME- MUST FOLLOW -MESSAGE- IN AN INPUT CD
, ENTRY.*)
          DIAGP  F,3100 
          DIAGT  (*THE MESSAGE TIME CLAUSE IS ONLY ALLOWED IN AN INPUT C
,D ENTRY.*) 
          DIAGP  F,3101 
          DIAGT  (*THE MESSAGE DATE CLAUSE IS ONLY ALLOWED IN AN INPUT C
,D ENTRY.*) 
          DIAGP  F,3102 
          DIAGT  (*THE END KEY CLAUSE IS ONLY ALLOWED IN AN INPUT CD ENT
,RY.*)
          DIAGP  F,3103 
          DIAGT  (*-KEY- IS REQUIRED IN AN END KEY CLAUSE.*)
          DIAGP  F,3104 
          DIAGT  (*QUEUE, SUB-QUEUE-1, SUB-QUEUE-2, SUB- QUEUE-3, SOURCE
,, OR DESTINATION MUST FOLLOW THE WORD -SYMBOLIC-.*)
          DIAGP  F,3105 
          DIAGT  (*EITHER -TOP- OR -BOTTOM- MUST FOLLOW -LINES- OR -AT- 
,IN A LINAGE CLAUSE.*)
          DIAGP  W,3106 
          DIAGT  (*A FILE NAME IS REQUIRED AFTER -ON- IN THE APPLY I-0 T
,ECHNIQUE CLAUSE.*) 
          DIAGP  F,3107 
          DIAGT  (*A DATA NAME IS REQUIRED HERE IN THE COMMUNICATION SEC
,TION.*)
          DIAGP  F,3108 
          DIAGT  (*A DATA NAME IS REQUIRED AFTER INDEXED BY IN AN OCCURS
, CLAUSE.*) 
          DIAGP  W,3109 
          DIAGT  (*AN IMPLEMENTOR-NAME IS REQUIRED IN THE APPLY CLAUSE. 
,*) 
          DIAGP  W,3110 
          DIAGT  (*-ON- IS A REQUIRED WORD IN THE APPLY CLAUSE.*) 
          DIAGP  W,3111 
          DIAGT  (*THE RELATIVE KEY CLAUSE MUST IMMEDIATELY FOLLOW THE A
,CCESS MODE CLAUSE.*) 
          DIAGP  F,3112 
          DIAGT  (*ALL DATA DIVISION ENTRIES MUST BE IN ONE OF THE DATA 
,DIVISION SECTIONS.*) 
          DIAGP  F,3113 
          DIAGT  (*A MNEMONIC NAME DEFINITION MUST FOLLOW THE WORD -IS- 
,AFTER AN IMPLEMENTOR NAME IN THE SPECIAL-NAMES PARAGRAPH.*)
          DIAGP  F,3114 
          DIAGT  (*A RELATIVE KEY CLAUSE IS ONLY ALLOWED IN THE FILE-CON
,TROL PARAGRAPH AFTER A SELECT CLAUSE.*)
          DIAGP  F,3118 
          DIAGT  (*-APOSTROPHE- IS REQUIRED IN THE QUOTE IS CLAUSE.*) 
          DIAGP  F,3119 
          DIAGT  (*THE QUOTE IS CLAUSE IS ONLY ALLOWED IN THE SPECIAL-NA
,MES PARAGRAPH.*) 
          DIAGP  F,3120 
          DIAGT  (*-FILE- IS REQUIRED IN A MULTIPLE FILE CLAUSE.*)
          DIAGP  F,3121 
          DIAGT  (*THE SEGMENT LIMIT CLAUSE IS ONLY ALLOWED IN THE OBJEC
,T-COMPUTER PARAGRAPH.*)
          DIAGP  F,3122 
          DIAGT  (*-IS- IS A REQUIRED WORD IN THE SEGMENT-LIMIT CLAUSE. 
,*) 
          DIAGP  F,3123 
          DIAGT  (*THE SEGMENT LIMIT MUST BE AN INTEGER LITERAL.*)
          DIAGP  F,3124 
          DIAGT  (*THE MULTIPLE FILE CLAUSE IS ONLY ALLOWED IN THE I-O-C
,ONTROL PARAGRAPH.*)
          DIAGP  F,3125 
          DIAGT  (*A FILE NAME IS REQUIRED IN A MULTIPLE FILE CLAUSE.*) 
          DIAGP  F,3126 
          DIAGT  (*THE FILE POSITION MUST BE AN INTEGER LITERAL.*)
          DIAGP  F,3127 
          DIAGT  (*THE SIGN CONTROL CLAUSE IS ONLY ALLOWED IN THE SPECIA
,L-NAMES PARAGRAPH.*) 
          DIAGP  F,3128 
          DIAGT  (*EITHER -LEADING- OR -TRAILING- IS REQUIRED IN A SIGN 
,CONTROL CLAUSE.*)
          DIAGP  F,3129 
          DIAGT  (*THE ORGANIZATION CLAUSE IS ONLY ALLOWED IN THE FILE-C
,ONTROL PARAGRAPH AFTER A SELECT CLAUSE WHICH DOES NOT REFERENCE A SORT 
,OR MERGE FILE.*) 
          DIAGP  F,3130 
          DIAGT  (*THE DECIMAL-POINT CLAUSE IS ONLY ALLOWED IN THE SPECI
,AL-NAMES PARAGRAPH.*)
          DIAGP  W,3131 
          DIAGT  (*-IS- IS A REQUIRED WORD IN THE DECIMAL-POINT CLAUSE. 
,*) 
          DIAGP  W,3132 
          DIAGT  (*-COMMA- IS REQUIRED IN A DECIMAL-POINT CLAUSE.*) 
          DIAGP  F,3133 
          DIAGT  (*THE APPLY CLAUSE IS ONLY ALLOWED IN THE I-O-CONTROL P
,ARAGRAPH.*)
          DIAGP  T,3134 
          DIAGT  (*THE APPLY CLAUSE IS DOCUMENTARY ONLY.*)
          DIAGP  F,3135 
          DIAGT  (*ONE OF -SEQUENTIAL-, -RELATIVE-, -INDEXED-, -DIRECT-,
, -ACTUAL-KEY- OR -WORD-ADDRESS- IS REQUIRED HERE IN THE ORGANIZATION CL
,AUSE.*)
          DIAGP  F,3136 
          DIAGT  (*THE SAME AREA CLAUSE IS ONLY ALLOWED IN THE I-O-CONTR
,OL PARAGRAPH.*)
          DIAGP  F,3137 
          DIAGT  (*A FILE NAME IS REQUIRED IN THE SAME AREA CLAUSE.*) 
          DIAGP  F,3138 
          DIAGT  (*AT LEAST TWO FILE NAMES ARE REQUIRED IN A SAME AREA C
,LAUSE.*) 
          DIAGP  F,3139 
          DIAGT  (*THE SUB-SCHEMA CLAUSE IS ONLY ALLOWED IN THE SPECIAL-
,NAMES PARAGRAPH.*) 
          DIAGP  F,3141 
          DIAGT  (*THE INPUT-OUTPUT SECTION MUST BE IN THE ENVIRONMENT D
,IVISION.*) 
          DIAGP  F,3142 
          DIAGT  (*THE RERUN CLAUSE IS ONLY ALLOWED IN THE I-O-CONTROL P
,ARAGRAPH.*)
          DIAGP  F,3143 
          DIAGT  (*-REEL- OR -UNIT- MUST FOLLOW -END OF- IN A RERUN CLAU
,SE.*)
          DIAGP  F,3144 
          DIAGT  (*A FILE NAME IS REQUIRED AFTER -END OF REEL- OR -END O
,F UNIT-.*) 
          DIAGP  W,3146 
          DIAGT  (*THE RESERVED WORD -RECORDS- MUST FOLLOW THE INTEGER I
,N A RERUN CLAUSE.*)
          DIAGP  F,3147 
          DIAGT  (*ONE OF -EVERY END OF REEL-, -EVERY END OF UNIT-, -EVE
,RY INTEGER RECORDS OF FILE NAME- OR -EVERY CONDITION NAME- IS REQUIRED 
,IN A RERUN CLAUSE.*) 
          DIAGP  W,3148 
          DIAGT  (*THE SPECIAL-NAMES PARAGRAPH IS ALLOWED ONLY IN THE CO
,NFIGURATION SECTION.*) 
          DIAGP  F,3149 
          DIAGT  (*THE CURRENCY CLAUSE IS ONLY ALLOWED IN THE SPECIAL-NA
,MES PARAGRAPH.*) 
          DIAGP  W,3150 
          DIAGT  (*-IS- IS A REQUIRED WORD IN A CURRENCY SIGN CLAUSE.*) 
          DIAGP  F,3151 
          DIAGT  (*A ONE CHARACTER LITERAL IS REQUIRED IN A CURRENCY SIG
,N CLAUSE.*)
          DIAGP  F,3152 
          DIAGT  (*THE CLAUSE, RESERVE INTEGER AREAS, CAN ONLY APPEAR IN
, THE FILE-CONTROL PARAGRAPH IN A SELECT CLAUSE WHICH SPECIFIES A FILE-N
,AME OTHER THAN A SORT FILE.*)
          DIAGP  F,3153 
          DIAGT  (*AN UNSIGNED INTEGER IS REQUIRED IN A RESERVE AREAS CL
,AUSE.*)
          DIAGP  F,3154 
          DIAGT  (*THE ACCESS MODE CLAUSE IS ONLY ALLOWED IN THE FILE-CO
,NTROL PARAGRAPH AFTER A SELECT CLAUSE WHICH DOES NOT REFERENCE A SORT O
,R MERGE FILE.*)
          DIAGP  F,3155 
          DIAGT  (*A DATA NAME IS REQUIRED IN A RELATIVE KEY CLAUSE.*)
          DIAGP  F,3156 
          DIAGT  (*THE ACCESS MODE MUST BE SEQUENTIAL, RANDOM, OR DYNAMI
,C.*) 
          DIAGP  F,3157 
          DIAGT  (*THE RECORD KEY CLAUSE IS ONLY ALLOWED IN THE FILE-CON
,TROL PARAGRAPH AFTER A SELECT CLAUSE.*)
          DIAGP  F,3158 
          DIAGT  (*A DATA-NAME IS REQUIRED IN A RECORD KEY CLAUSE.*)
          DIAGP  F,3159 
          DIAGT  (*THE ALTERNATE RECORD KEY CLAUSE IS ONLY ALLOWED IN TH
,E FILE-CONTROL PARAGRAPH AFTER A SELECT CLAUSE.*)
          DIAGP  F,3160 
          DIAGT  (*-RECORD- IS A REQUIRED WORD IN THE ALTERNATE RECORD K
,EY CLAUSE.*) 
          DIAGP  F,3161 
          DIAGT  (*A DATA NAME IS REQUIRED IN THE ALTERNATE RECORD KEY C
,LAUSE.*) 
          DIAGP  F,3162 
          DIAGT  (*-DUPLICATES- MUST FOLLOW -WITH- IN THE ALTERNATE RECO
,RD KEY CLAUSE.*) 
          DIAGP  W,3163 
          DIAGT  (*-SECTION- IS A REQUIRED WORD IN THE INPUT-OUTPUT SECT
,ION HEADER.*)
          DIAGP  W,3164 
          DIAGT  (*A PERIOD MUST TERMINATE THE INPUT-OUTPUT SECTION HEAD
,ER.*)
          DIAGP  W,3165 
          DIAGT  (*THE FILE-CONTROL PARAGRAPH MUST IMMEDIATELY FOLLOW TH
,E INPUT-OUTPUT SECTION HEADER.*) 
          DIAGP  W,3166 
          DIAGT  (*FILE-CONTROL MUST BE FOLLOWED BY A PERIOD.*) 
          DIAGP  W,3172 
          DIAGT  (*SPECIAL-NAMES MUST BE FOLLOWED BY A PERIOD.*)
          DIAGP  W,3173 
          DIAGT  (*I-O-CONTROL MUST BE FOLLOWED BY A PERIOD.*)
          DIAGP  F,3176 
          DIAGT  (*A SELECT CLAUSE IS ONLY ALLOWED IN THE FILE-CONTROL P
,ARAGRAPH.*)
          DIAGP  F,3177 
          DIAGT  (*A FILE-NAME MUST FOLLOW THE RESERVED WORD SELECT.*)
          DIAGP  F,3178 
          DIAGT  (*-ASSIGN- MUST FOLLOW THE FILE NAME IN A SELECT CLAUSE
,.*)
          DIAGP  F,3179 
          DIAGT  (*AN IMPLEMENTOR NAME MUST FOLLOW -ASSIGN- IN A SELECT 
,CLAUSE.*)
          DIAGP  W,3180 
          DIAGT  (*THE REQUIRED WORD -IS- HAS BEEN ASSUMED PRESENT*)
          DIAGP  F,3181 
          DIAGT  (*-IS- IS A REQUIRED WORD AFTER -ON STATUS - IN AN IMPL
,EMENTOR NAME CLAUSE.*) 
          DIAGP  F,3182 
          DIAGT  (*-IS- IS A REQUIRED WORD AFTER -OFF STATUS- IN AN IMPL
,EMENTOR NAME CLAUSE.*) 
          DIAGP  W,3186 
          DIAGT  (*THE CONFIGURATION SECTION IS ONLY ALLOWED IN THE ENVI
,RONMENT DIVISION BEFORE THE INPUT-OUTPUT SECTION.*)
          DIAGP  W,3187 
          DIAGT  (*-SECTION- IS REQUIRED IN THE CONFIGURATION SECTION HE
,ADER.*)
          DIAGP  W,3188 
          DIAGT  (*A PERIOD MUST TERMINATE THE CONFIGURATION SECTION HEA
,DER.*) 
          DIAGP  W,3189 
          DIAGT  (*THE SOURCE-COMPUTER PARAGRAPH IS ONLY ALLOWED IN THE 
,CONFIGURATION SECTION BEFORE THE OBJECT-COMPUTER PARAGRAPH AND SPECIAL-
,NAMES PARAGRAPH.*) 
          DIAGP  W,3190 
          DIAGT  (*A PERIOD MUST FOLLOW SOURCE-COMPUTER.*)
          DIAGP  W,3191 
          DIAGT  (*THE OBJECT-COMPUTER PARAGRAPH IS ONLY ALLOWED IN THE 
,CONFIGURATION SECTION BEFORE THE SPECIAL-NAMES PARAGRAPH.*)
          DIAGP  W,3192 
          DIAGT  (*A PERIOD MUST FOLLOW OBJECT-COMPUTER.*)
          DIAGP  F,3193 
          DIAGT  (*THE DEBUGGING MODE CLAUSE IS ONLY LEGAL IN THE SOURCE
,-COMPUTER PARAGRAPH.*) 
          DIAGP  F,3195 
          DIAGT  (*-MODE- IS REQUIRED IN A DEBUGGING MODE CLAUSE.*) 
          DIAGP  F,3196 
          DIAGT  (*THE FILE STATUS CLAUSE IS ONLY ALLOWED IN THE FILE-CO
,NTROL PARAGRAPH AFTER A SELECT CLAUSE.*) 
          DIAGP  F,3198 
          DIAGT  (*A DATA NAME IS REQUIRED IN A FILE STATUS CLAUSE.*) 
          DIAGP  W,3199 
          DIAGT  (*THE I-O-CONTROL PARAGRAPH IS ONLY ALLOWED IN THE INPU
,T-OUTPUT SECTION AFTER THE FILE-CONTROL PARAGRAPH.*) 
          DIAGP  W,3200 
          DIAGT  (*THIS DUPLICATE BLANK WHEN ZERO CLAUSE IS IGNORED.*)
          DIAGP  W,3201 
          DIAGT  (*THIS DUPLICATE JUSTIFIED CLAUSE IS IGNORED.*)
          DIAGP  W,3202 
          DIAGT  (*THIS DUPLICATE OCCURS CLAUSE IS IGNORED.*) 
          DIAGP  F,3203 
          DIAGT  (*THE OCCURS LITERAL MUST BE AN UNSIGNED INTEGER.*)
          DIAGP  W,3204 
          DIAGT  (*THIS DUPLICATE PICTURE CLAUSE IS IGNORED.*)
          DIAGP  W,3205 
          DIAGT  (*THIS DUPLICATE REDEFINES CLAUSE IS IGNORED.*)
          DIAGP  W,3206 
          DIAGT  (*THE REDEFINES CLAUSE MUST BE THE FIRST CLAUSE IN AN E
,NTRY.*)
          DIAGP  W,3207 
          DIAGT  (*THIS DUPLICATE SIGN CLAUSE IS IGNORED.*) 
          DIAGP  W,3208 
          DIAGT  (*THIS DUPLICATE USAGE CLAUSE IS IGNORED.*)
          DIAGP  W,3209 
          DIAGT  (*THIS DUPLICATE VALUE CLAUSE IS IGNORED.*)
          DIAGP  W,3210 
          DIAGT  (*-ALL- IS ONLY ALLOWED BEFORE A NON-NUMERIC LITERAL. T
,HIS -ALL- IS IGNORED.*)
          DIAGP  W,3211 
          DIAGT  (*THIS DUPLICATE SYNCHRONIZED CLAUSE IS IGNORED.*) 
          DIAGP  W,3212 
          DIAGT  (*A DUPLICATE PERIOD HAS BEEN ENCOUNTERED. THE PRECEDIN
,G ONE IS IGNORED.*)
          DIAGP  F,3213 
          DIAGT  (*TOO MANY NAMES GIVEN FOR CD RECORD.*)
          DIAGP  F,3214 
          DIAGT  (*NOT ENOUGH NAMES GIVEN FOR CD RECORD.*)
          DIAGP  F,3215 
          DIAGT  (*AN FD ENTRY IS ALLOWED ONLY IN THE FILE SECTION.*) 
          DIAGP  F,3216 
          DIAGT  (*AN SD ENTRY IS ALLOWED ONLY IN THE FILE SECTION.*) 
          DIAGP  F,3217 
          DIAGT  (*A CD ENTRY IS ALLOWED ONLY IN THE COMMUNICATION SECTI
,ON.*)
          DIAGP  F,3218 
          DIAGT  (*THE FILE SECTION HAS ALREADY BEEN ENCOUNTERED.*) 
          DIAGP  F,3219 
          DIAGT  (*THE FILE SECTION MUST PRECEDE THE WORKING-STORAGE, LI
,NKAGE, AND COMMUNICATION SECTIONS.*) 
          DIAGP  F,3220 
          DIAGT  (*THE WORKING-STORAGE SECTION HAS ALREADY BEEN ENCOUNTE
,RED.*) 
          DIAGP  F,3221 
          DIAGT  (*THE WORKING-STORAGE SECTION MUST PRECEDE THE LINKAGE 
,AND COMMUNICATION SECTIONS.*)
          DIAGP  F,3222 
          DIAGT  (*THE LINKAGE SECTION HAS ALREADY BEEN ENCOUNTERED.*)
          DIAGP  F,3223 
          DIAGT  (*THE LINKAGE SECTION MUST PRECEDE THE COMMUNICATION SE
,CTION.*) 
          DIAGP  F,3224 
          DIAGT  (*THE COMMUNICATION SECTION HAS ALREADY BEEN ENCOUNTERE
,D.*) 
          DIAGP  F,3225 
          DIAGT  (*THE LITERAL IN THE DESTINATION TABLE CLAUSE MUST BE A
,N UNSIGNED INTEGER; A VALUE OF ONE WILL BE USED.*) 
          DIAGP  F,3229 
          DIAGT  (*A LITERAL MUST FOLLOW -USE- IN A SELECT STATEMENT.*) 
          DIAGP  F,3230 
          DIAGT  (*AN ALPHABET-NAME CLAUSE IS ONLY ALLOWED IN THE SPECIA
,L-NAMES PARAGRAPH.*) 
          DIAGP  F,3231 
          DIAGT  (*THE ITEM REFERENCED IN THE PROGRAM COLLATING SEQUENCE
, CLAUSE MUST BE AN ALPHABET-NAME.*)
          DIAGP  F,3232 
          DIAGT  (*THE COMMON-STORAGE SECTION HAS ALREADY BEEN ENCOUNTER
,ED.*)
          DIAGP  F,3233 
          DIAGT  (*-SECTION- IS REQUIRED IN THE COMMON-STORAGE SECTION H
,EADER.*) 
          DIAGP  W,3234 
          DIAGT  (*THE COMMON-STORAGE SECTION HEADER MUST BE TERMINATED 
,BY A PERIOD.*) 
          DIAGP   F,3235
          DIAGT  (*-SECTION- IS REQUIRED IN THE SECONDARY- STORAGE SECTI
,ON HEADER.*) 
          DIAGP  W,3236 
          DIAGT  (*THE SECONDARY-STORAGE SECTION HEADER MUST BE TERMINAT
,ED BY A PERIOD.*)
          DIAGP  W,3237 
          DIAGT  (*THE SECONDARY-STORAGE SECTION HAS ALREADY BEEN ENCOUN
,TERED.*) 
          DIAGP  F,3238 
          DIAGT  (*THE SECONDARY-STORAGE SECTION MUST PRECEDE THE LINKAG
,E AND COMMUNICATION SECTIONS.*)
          DIAGP  F,3239 
          DIAGT  (*THE COMMON-STORAGE SECTION MUST PRECEDE THE WORKING-S
,TORAGE, SECONDARY-STORAGE, LINKAGE, AND COMMUNICATION SECTIONS.*)
          DIAGP  F,3240 
          DIAGT  (*THE SEGMENT LIMIT MUST HAVE A VALUE IN THE RANGE 1 TH
,ROUGH 49.*)
          DIAGP  F,3241 
          DIAGT  (*THE IMPLEMENTOR NAME ASSOCIATED WITH -ON STATUS- OR -
,OFF STATUS- MUST BE  SWITCH-N FOR N BETWEEN 1 AND 126.*) 
          DIAGP  F,3242 
          DIAGT  (*A -USE- CLAUSE IS ONLY ALLOWED IN A SELECT STATEMENT 
,IN THE FILE-CONTROL PARAGRAPH.*) 
          DIAGP  F,3243 
          DIAGT  (*A BLOCK COUNT CLAUSE IS ONLY LEGAL IN A FILE-CONTROL 
,ENTRY FOLLOWING A SELECT CLAUSE.*) 
          DIAGP  F,3244 
          DIAGT  (*A DATA-NAME OR AN INTEGER IS REQUIRED HERE IN THE -BL
,OCK COUNT- CLAUSE.*) 
          DIAGP  F,3245 
          DIAGT  (*A WORD-ADDRESS KEY CLAUSE IS ONLY ALLOWED IN A FILE-C
,ONTROL ENTRY FOLLOWING A SELECT CLAUSE.*)
          DIAGP  F,3246 
          DIAGT  (*A DATA-NAME REFERENCE IS REQUIRED HERE IN THE WORD-AD
,DRESS KEY CLAUSE.*)
          DIAGP  W,3247 
          DIAGT  (*THIS DUPLICATE BLOCK COUNT CLAUSE IS IGNORED.*)
          DIAGP  F,3248 
          DIAGT  (*A WORD-ADDRESS KEY IS ONLY ALLOWED FOR A FILE WHOSE O
,RGANIZATION IS WORD-ADDRESS.*) 
          DIAGP  F,3249 
          DIAGT  (*AN -ALTERNATE RECORD KEY- CLAUSE IS NOT ALLOWED ON A 
,SEQUENTIAL, RELATIVE, OR WORD-ADDRESS FILE.*)
          DIAGP  W,3250 
          DIAGT  (*THIS DUPLICATE BLOCK CONTAINS CLAUSE IS IGNORED.*) 
          DIAGP  F,3251 
          DIAGT  (*THE LITERAL IN THE BLOCK CONTAINS CLAUSE MUST BE AN U
,NSIGNED INTEGER; A VALUE OF ONE WILL BE USED.*)
          DIAGP  W,3252 
          DIAGT  (*THIS DUPLICATE DATA RECORDS CLAUSE IS IGNORED.*) 
          DIAGP  W,3253 
          DIAGT  (*THIS DUPLICATE LABEL RECORDS CLAUSE IS IGNORED.*)
          DIAGP  W,3254 
          DIAGT  (*THIS DUPLICATE LINAGE CLAUSE IS IGNORED.*) 
          DIAGP  W,3255 
          DIAGT  (*THIS DUPLICATE RECORD CLAUSE IS IGNORED.*) 
          DIAGP  F,3256 
          DIAGT  (*A LITERAL IN THE RECORD CLAUSE MUST BE AN UNSIGNED IN
,TEGER; RECORD CLAUSE IGNORED.*)
          DIAGP  W,3257 
          DIAGT  (*THIS DUPLICATE RECORDING MODE CLAUSE IS IGNORED.*) 
          DIAGP  W,3258 
          DIAGT  (*THIS IS A DUPLICATE EXTERNAL CLAUSE.*) 
          DIAGP  W,3259 
          DIAGT  (*THIS DUPLICATE REPORT CLAUSE IS IGNORED.*) 
          DIAGP  W,3260 
          DIAGT  (*THIS DUPLICATE -VALUE OF- CLAUSE IS IGNORED.*) 
          DIAGP  F,3261 
          DIAGT  (*THE FOLLOWING IMPLEMENTOR-NAMES ARE ALLOWED IN A VALU
,E OF CLAUSE. FILE-ID, FILE-SET-ID, FILE-SECTION-NUMBER, FILE-SEQUENCE-N
,UMBER, GENERATION-NUMBER, GENERATION-VERSION-NUMBER, CREATION-DATE, EXP
,IRATION-DATE, AND ACCESSIBILITY.*) 
          DIAGP  F,3262 
          DIAGT  (*A SECOND IMPLEMENTOR NAME IS REQUIRED IF THE FIRST IS
, -EXTERNAL-.*) 
          DIAGP  F,3263 
          DIAGT  (*THE LITERALS IN A LINAGE CLAUSE MUST BE UNSIGNED INTE
,GERS.*)
          DIAGP  F,3264 
          DIAGT  (*A LITERAL IN THE LINAGE CLAUSE MUST NOT HAVE A VALUE 
,OF ZERO.*) 
          DIAGP  F,3265 
          DIAGT  (*A FOOTING LITERAL MUST NOT BE GREATER THAN THE LINAGE
, LITERAL.*)
          DIAGP  N,3266 
          DIAGT  (*THE VARYING PHRASE OF THE RECORD CLAUSE IS NON-STANDA
,RD COBOL.*)
          DIAGP  F,3267 
          DIAGT  (*-VARYING- MUST FOLLOW -IS- IN A RECORD CLAUSE.*) 
          DIAGP  F,3268 
          DIAGT  (*AN INTEGER LITERAL MUST FOLLOW -FROM- IN A RECORD CLA
,USE.*) 
          DIAGP  F,3270 
          DIAGT  (*A SUBSCHEMA NAME IS REQUIRED HERE. IF THE NAME IS THE
, SAME AS A RESERVED WORD, DATA-NAME, OR PROCEDURE-NAME, IT MUST BE ENCL
,OSED IN QUOTES.*)
          DIAGP  F,3271 
          DIAGT  (*THIS COMPILER DOES NOT CONTAIN THE CDCS INTERFACE, AN
,D CONSEQUENTLY, DOES NOT RECOGNIZE A SUBSCHEMA.*)
          DIAGP  T,3275 
          DIAGT  (*ONLY THE FIRST TWO IMPLEMENTOR-NAMES ARE USED IN THE 
,ASSIGN CLAUSE.  THIS AND ANY SUBSEQUENT IMPLEMENTOR-NAMES IGNORED.*) 
          DIAGP  F,3276 
          DIAGT  (*LEVELS 66, 88, CD, FD, SD, AND RD MUST BE FOLLOWED BY
, A USER-DEFINED NAME.*)
          DIAGP  N,3277 
          DIAGT  (*THE RESERVED WORD -ALPHABET- IS NON-STANDARD COBOL.*)
          DIAGP  F,3300 
          DIAGT  (*THE SEGMENT LIMIT MUST BE AN UNSIGNED INTEGER LITERAL
,.*)
          DIAGP  W,3301 
          DIAGT  (*THIS DUPLICATE FILE STATUS CLAUSE IS IGNORED.*)
          DIAGP  W,3302 
          DIAGT  (*THIS DUPLICATE MULTIPLE FILE POSITION CLAUSE IS IGNOR
,ED.*)
          DIAGP  F,3303 
          DIAGT  (*A FILE NAME IS REQUIRED IN A MULTIPLE FILE POSITION C
,LAUSE.*) 
          DIAGP  F,3304 
          DIAGT  (*-POSITION- MUST BE FOLLOWED BY AN UNSIGNED INTEGER. A
, VALUE OF ONE IS ASSUMED.*)
          DIAGP  F,3305 
          DIAGT  (*THE MAXIMUM NUMBER OF CHARACTERS AS SPECIFIED BY THIS
, RECORD CLAUSE MUST BE GREATER THAN THE MINIMUM NUMBER OF CHARACTERS AS
, SPECIFIED BY THIS RECORD CLAUSE.  RECORD CLAUSE IGNORED.*)
          DIAGP  W,3306 
          DIAGT  (*A FILE-NAME MUST NOT APPEAR IN MORE THAN ONE SELECT C
,LAUSE.*) 
          DIAGP  T,3307 
          DIAGT  (*ONLY RECORD AREAS ARE SHARED IN THIS COMPILER.*) 
          DIAGP  F,3308 
          DIAGT  (*A FILE NAME IS REQUIRED IN A SAME AREA CLAUSE.*) 
          DIAGP  W,3309 
          DIAGT  (*THIS DUPLICATE SIGN CONTROL CLAUSE IS IGNORED.*) 
          DIAGP  F,3310 
          DIAGT  (*THE SAME FILE NAME CANNOT BE SPECIFIED IN MORE THAN O
,NE INTEGER RECORDS CLAUSES OR MORE THAN ONE END OF REEL/UNIT CLAUSES WI
,THIN A MULTIPLE RERUN CLAUSE.*)
          DIAGP  F,3311 
          DIAGT  (*A FILE NAME IS REQUIRED IN A RERUN CLAUSE WHICH SPECI
,FIES END OF REEL OR UNIT, OR A RECORD COUNT.*) 
          DIAGP  F,3312 
          DIAGT  (*AN UNSIGNED INTEGER LITERAL IS REQUIRED AS THE RERUN 
,COUNT.*) 
          DIAGP  F,3313 
          DIAGT  (*ONLY ONE RERUN CLAUSE CONTAINING THE CLOCK-UNITS PHRA
,SE MAY BE SPECIFIED.*) 
          DIAGP  F,3316 
          DIAGT  (*A CONDITION-NAME IS REQUIRED IN THE -RERUN EVERY COND
,ITION-NAME- CLAUSE.*)
          DIAGP  W,3318 
          DIAGT  (*THE -ASCENDING KEY-, -DESCENDING KEY-, AND -INDEXED B
,Y- PHRASES MUST IMMEDIATELY FOLLOW AN OCCURS CLAUSE.*) 
          DIAGP  F,3319 
          DIAGT  (*AN UNSIGNED INTEGER LITERAL IS REQUIRED IN A RESERVE 
,CLAUSE.*)
          DIAGP  W,3320 
          DIAGT  (*THIS DUPLICATE RESERVE AREAS CLAUSE IS IGNORED.*)
          DIAGP  W,3321 
          DIAGT  (*THIS DUPLICATE ACCESS MODE CLAUSE IS IGNORED.*)
          DIAGP  W,3322 
          DIAGT  (*THIS DUPLICATE RELATIVE KEY CLAUSE IS IGNORED.*) 
          DIAGP  W,3323 
          DIAGT  (*THIS DUPLICATE RECORD KEY CLAUSE IS IGNORED.*) 
          DIAGP  W,3324 
          DIAGT  (*THIS DUPLICATE ORGANIZATION CLAUSE IS IGNORED.*) 
          DIAGP  F,3325 
          DIAGT  (*A SINGLE CHARACTER NON-NUMERIC LITERAL IS REQUIRED IN
, A CURRENCY SIGN CLAUSE.*) 
          DIAGP  W,3326 
          DIAGT  (*THIS DUPLICATE USE LITERAL CLAUSE IS IGNORED*) 
          DIAGP  F,3329 
          DIAGT  (*A FILE-NAME MUST NOT APPEAR IN MORE THAN ONE SAME REC
,ORD AREA CLAUSE.*) 
          DIAGP  F,3330 
          DIAGT  (*A FILE-NAME ASSOCIATED WITH A SORT OR MERGE FILE MUST
, NOT APPEAR IN MORE THAN ONE SAME SORT AREA CLAUSE.*)
          DIAGP  F,3331 
          DIAGT  (*A FILE-NAME MUST NOT APPEAR IN MORE THAN ONE SAME ARE
,A CLAUSE.*)
          DIAGP  F,3332 
          DIAGT  (*A FILE-NAME ASSOCIATED WITH A SORT OR MERGE FILE MUST
, NOT APPEAR IN MORE THAN ONE SAME AREA CLAUSE.*) 
          DIAGP  F,3340 
          DIAGT  (*A FILE-NAME OR AN IMPLEMENTOR-NAME IS REQUIRED IN THE
, ON PHRASE OF THE RERUN CLAUSE.*)
          DIAGP  F,3341 
          DIAGT  (*THE FOLLOWING 3 FORMS OF THE RERUN CLAUSE ARE IMPLEME
,NTED IN THIS COMPILER. RERUN ON IMPLEMENTOR NAME EVERY END OF REEL OF F
,ILE NAME, RERUN ON IMPLEMENTOR NAME EVERY INTEGER RECORDS OF FILE NAME 
,AND RERUN ON IMPLEMENTOR NAME EVERY CONDITION NAME. IN EACH INSTANCE, I
,MPLEMENTOR NAME IS IGNORED AND THE RERUN DEVICE IS SELECTED BY THE SYST
,EM.*)
          DIAGP  W,3342 
          DIAGT  (*RERUN EVERY END OF REEL OF FILE NAME IS NOT INPLEMENT
,ED IN THIS COMPILER. RERUN ON IMPLEMENTOR NAME EVERY END OF REEL OF FIL
,E NAME IS ASSUMED.*) 
          DIAGP  W,3343 
          DIAGT  (*RERUN EVERY INTEGER RECORDS OF FILE NAME IS UNDEFINED
,. RERUN ON IMPLEMENTOR NAME EVERY INTEGER RECORDS OF FILE NAME IS ASSUM
,ED.*)
          DIAGP  W,3344 
          DIAGT  (*RERUN EVERY CONDITION NAME IS UNDEFINED. RERUN ON IMP
,LEMENTOR NAME EVERY CONDITION NAME IS ASSUMED.*) 
          DIAGP  F,3345 
          DIAGT  (*RERUN EVERY INTEGER CLOCK-UNITS IS UNDEFINED. RERUN O
,N IMPLEMENTOR NAME EVERY INTEGER CLOCK-UNITS IS DEFINED BUT NOT IMPLEME
,NTED IN THIS COMPILER. RERUN ON FILE NAME EVERY INTEGER CLOCK-UNITS IS 
,UNDEFINED.*) 
          DIAGP  W,3346 
          DIAGT  (*RERUN ON FILE NAME EVERY END OF REEL OF FILE NAME IS 
,NOT IMPLEMENTED IN THIS COMPILER. RERUN ON IMPLEMENTOR NAME EVERY END O
,F REEL OF FILE NAME IS ASSUMED.*)
          DIAGP  W,3347 
          DIAGT  (*RERUN ON FILE NAME EVERY INTEGER RECORDS OF FILE NAME
, IS UNDEFINED. RERUN ON IMPLEMENTOR NAME EVERY INTEGER RECORDS OF FILE 
,NAME IS ASSUMED.*) 
          DIAGP  W,3348 
          DIAGT  (*RERUN ON FILE NAME EVERY CONDITION NAME IS NOT IMPLEM
,ENTED IN THIS COMPILER. RERUN ON IMPLEMENTOR NAME EVERY CONDITION NAME 
,IS ASSUMED.*)
          DIAGP  F,3349 
          DIAGT  (*AN IMPLEMENTOR NAME IS REQUIRED IN THE -ON- PHRASE OF
, A RERUN CLAUSE. THIS REFERENCE IS TO A DATA NAME OR CONDITION NAME.*) 
          DIAGP  F,3350 
          DIAGT  (*THE CONDITION NAME IN A RERUN CLAUSE MUST BE DEFINED 
,IN THE SPECIAL-NAMES PARAGRAPH OF THE CONFIGURATION SECTION OF THE ENVI
,RONMENT DIVISION.*)
          DIAGP  W,3351 
          DIAGT  (*THE -BLANK WHEN ZERO- CLAUSE CANNOT BE SPECIFIED FOR 
,AN ITEM WHOSE PICTURE CONTAINS AN ASTERISK.  THE -BLANK WHEN ZERO- CLAU
,SE IS IGNORED.*) 
          DIAGP  F,3352 
          DIAGT  (*A SUBPROGRAM MUST NOT CONTAIN A CD FOR INITIAL INPUT.
,*) 
          DIAGP  F,3400 
          DIAGT  (*AN IMPLEMENTOR-NAME MUST NOT BE THE SAME AS A DATA-NA
,ME UNLESS IT IS ENCLOSED IN QUOTES.*)
          DIAGP  F,3406 
          DIAGT  (*AN IMPLEMENTOR NAME IS REQUIRED HERE.*)
          DIAGP  F,3499 
          DIAGT  (*THE RESERVED WORD -SEQUENCE- IS REQUIRED IN A PROGRAM
, COLLATING SEQUENCE CLAUSE.*)
          DIAGP  F,3500 
          DIAGT  (*THE PROGRAM COLLATING SEQUENCE CLAUSE IS ONLY ALLOWED
, IN THE OBJECT COMPUTER PARAGRAPH.*) 
          DIAGP  F,3501 
          DIAGT  (*AN ALPHABET-NAME REFERENCE IS REQUIRED IN THE PROGRAM
, COLLATING SEQUENCE CLAUSE.*)
          DIAGP  F,3502 
          DIAGT  (*A LITERAL, MNEMONIC-NAME, IMPLEMENTOR-NAME, -NATIVE-,
, OR -STANDARD-1- IS REQUIRED HERE.*) 
          DIAGP  F,3503 
          DIAGT  (*A LITERAL MUST FOLLOW -THRU- IN AN ALPHABET CLAUSE.*)
          DIAGP  F,3504 
          DIAGT  (*A LITERAL MUST FOLLOW -ALSO- IN AN ALPHABET CLAUSE.*)
          DIAGP  F,3507 
          DIAGT  (*A CODE-SET CLAUSE IS ONLY ALLOWED IN A FILE DESCRIPTI
,ON ENTRY.*)
          DIAGP  F,3508 
          DIAGT  (*A DATA-NAME IS REQUIRED IN A CODE-SET CLAUSE.*)
          DIAGP  W,3509 
          DIAGT  (*THIS DUPLICATE CODE-SET CLAUSE IS IGNORED.*) 
          DIAGP  F,3510 
          DIAGT  (*AN ALPHABET-NAME DEFINITION IS REQUIRED HERE.*)
          DIAGP  F,3511 
          DIAGT  (*THE FOLLOWING IMPLEMENTOR-NAMES ARE ALLOWED IN AN ALP
,HABET-NAME CLAUSE: CDC-64, ASCII-64, UNI, AND EBCDIC.*)
          DIAGP  F,3550 
          DIAGT  (*THE MEMORY SIZE CLAUSE MUST SPECIFY INTEGER WORDS, IN
,TEGER CHARACTERS, INTEGER MODULES, OR ADDRESS LITERAL THRU LITERAL.*)
          DIAGP  F,3551 
          DIAGT  (*MEMORY SIZE ADDRESS MUST BE FOLLOWED BY LITERAL THRU 
,LITERAL.*) 
          DIAGP  F,3554 
          DIAGT  (*THE ASSIGN OBJECT-PROGRAM CLAUSE IS ONLY ALLOWED IN T
,HE OBJECT-COMPUTER PARAGRAPH.*)
          DIAGP  W,3555 
          DIAGT  (*THE INPUT-UNIT IN THE ASSIGN OBJECT-PROGRAM TO INPUT-
,UNIT CLAUSE MUST BE AN IMPLEMENTOR-NAME OR AN INTEGER LITERAL.*) 
          DIAGP  F,3556 
          DIAGT  (*LITERALS WHICH APPEAR IN THE SOURCE-COMPUTER PARAGRAP
,H OR OBJECT-COMPUTER PARAGRAPH MAY BE NUMERIC OR NON-NUMERIC;  WHEN NUM
,ERIC THEY MUST BE UNSIGNED INTEGER.*)
          DIAGP  C,3601 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE AREA ENTRY ON THE DDL DIRECTORY IS LONGER THAN THE INTERNAL ARRAY I
,NTO WHICH IT HAS BEEN READ.*)
          DIAGP  C,3602 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, ERROR, E.G. I/O, IN READING SUB-SCHEMA DATA CONTROL ENTRY.*)
          DIAGP  C,3603 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE DATA CONTROL ENTRY ON THE DDL DIRECTORY IS LONGER THAN THE INTERNAL
, ARRAY INTO WHICH IT HAS BEEN READ.*)
          DIAGP  C,3604 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, AN ALTERNATE RECORD KEY FOR A FILE MUST BE CONTAINED WITHIN THE RECORD
, AREA OF THAT FILE.*)
          DIAGP  C,3605 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE DIRECTORY ACCESS ROUTINES INDICATE AN ATTEMPT TO READ OUTSIDE THE D
,IRECTORY WHILE READING THE AREA LIST.*)
          DIAGP  C,3606 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE DIRECTORY ACCESS ROUTINES INDICATE AN ATTEMPT TO READ OUTSIDE THE D
,IRECTORY WHILE READING THE RECORD LIST.*)
          DIAGP  C,3607 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE RECORD ENTRY ON THE DDL DIRECTORY IS LARGER THAN THE INTERNAL ARRAY
, INTO WHICH IT HAS BEEN READ.*)
          DIAGP  C,3608 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE DIRECTORY ACCESS ROUTINES INDICATE AN ATTEMPT TO READ OUTSIDE THE D
,IRECTORY WHILE READING THE RECORD ENTRY.*) 
          DIAGP  C,3609 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE DIRECTORY ACCESS ROUTINES INDICATE AN ATTEMPT TO READ OUTSIDE THE D
,IRECTORY WHILE READING THE ITEM ENTRY.*) 
          DIAGP  C,3610 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR IN THE DDL DIRECTORY. THE DATABASE TRANSLATOR EXPECTED TO 
,RA -DEPENDING ON NAME- ATOM.*) 
          DIAGP  C,3611 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,LOGIC ERROR - THE MODULE NXTRNRD (NEXT RENAME/REDEFINE) WAS CALLED WHEN
, NO RENAME/REDEFINE INFORMATION WAS PRESENT.*) 
          DIAGP  C,3612 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. THE ATOM FOLLOWING A -RENAME --- THR
,UATOM WAS NOT ANOTHER RENAME ATOM.*) 
          DIAGP  C,3613 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. THE ATOM FOLLOWING A -RENAME --- THR
,UITSELF IS A -RENAME --- THRU- ATOM.*) 
          DIAGP  C,3614 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. A REDEFINES ATOM HAS BEEN FOUND THAT
, ALSO HAS THE -THRU- FLAG SET.*) 
          DIAGP  C,3615 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,LOGIC ERROR - THE MODULE NXTKI (NEXT KEY/INDEX) WAS CALLED WHEN NO KEY 
,OR INDEX INFORMATION IS PRESENT.*) 
          DIAGP  C,3616 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. THE SEQUENCE OF KEY/INDEX ATOMS IS I
,NCORRECT.*)
          DIAGP  C,3617 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE CORRESPONDANCE TABLE HAS OVERFLOWED.*) 
          DIAGP  C,3618 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,WHILE TRYING TO CONVERT A GIVEN WORD ADDRESS INTO A DATA NAME ATTRIBUTE
, TABLE POINTER (DNAT) NO MATCHING ENTRY WAS FOUND IN THE CORRESPONDANCE
, TABLE.*)
          DIAGP  C,3619 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE UNRESOLVED WORD ADDRESS TABLE (URWA) HAS OVERFLOWED.*) 
          DIAGP  C,3620 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,LOGIC ERROR THE COMPILER TEXT (CTEXT) OUTPUT BY THE SOURCE SCANNER IS N
,OT THE CORRECT FORMAT FOR THE DATABASE TRANSLATOR.*) 
          DIAGP  C,3621 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,LOGIC ERROR.  AN 88 LEVEL ITEM HAS INCORRECT CTEXT.*)
          DIAGP  C,3622 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,LOGIC ERROR. THE COMPILER CONTROL TABLE DATA BASE FILE SECTION POINTER 
,TO THE COMPILER TEXT (CCTDBFSCTXT) IS OF AN INCORRECT TYPE.*)
          DIAGP  C,3623 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. THE FIRST SPECIFIED KEY IN THE DATA 
,CONTROL ENTRY IS NOT THE PRIMARY KEY.*)
          DIAGP  C,3624 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. NO KEYS ARE SPECIFIED IN THE DATA CO
,NTROL ENTRY.*) 
          DIAGP  C,3625 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,LOGIC ERROR. THE SELECTED AREA WORD ADDRESS IN THE COMPILER TEXT (CTEXT
,)IS OF AN INCORRECT TYPE.*)
          DIAGP  C,3626 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,FORMAT ERROR ON THE DDL DIRECTORY. MORE THAN ONE PRIMARY KEY IS SPECIFI
,ED FOR ONE FILE.*) 
          DIAGP  C,3627 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, NO DNT ENTRY FOR SUB-SCHEMA -RESTRICT- CLAUSE DATA BASE IDENTIFIER.*) 
          DIAGP  C,3628 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, AN ERROR, E.G. I/O, HAS OCCURRED IN ACCESSING A SUB-SCHEMA ENTRY.*) 
          DIAGP  C,3629 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, THE SUB-SCHEMA AREA TABLE DOES NOT HAVE A RELATION ENTRY WHERE ONE IS 
,EXPECTED.*)
          DIAGP  C,3630 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, A RELATION READ IS SPECIFIED, BUT NO AREAS ARE SELECTED.*)
          DIAGP  C,3631 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, AN AREA TRAVERSED BY A RELATION HAS NOT BEEN SELECTED.*)
          DIAGP  C,3632 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, A COBOL PROGRAM DATA-NAME SPECIFIED IN A SUB-SCHEMA -RESTRICT- CLAUSE 
,IS UNDEFINED OR NON-UNIQUE.*)
          DIAGP  C,3633 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, THE RECORD KEY FOR A DIRECT FILE MUST BE CONTAINED WITHIN THE RECORD A
,REA OF THAT FILE.*)
          DIAGP  C,3634 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
, A NON-IMBEDDED RECORD KEY IS UNDEFINED WITHIN THE COBOL PROGRAM.*)
          DIAGP  F,3651 
          DIAGT  (*THE SUBSCHEMA SPECIFIED ON THE CONTROL CARD CANNOT BE
, FOUND.*)
          DIAGP  F,3652 
          DIAGT  (*THE SPECIFIED AREA CANNOT BE FOUND WITHIN THE SUBSCHE
,MA DIRECTORY.*)
          DIAGP  C,3653 
          DIAGT  (*COMPILER ERROR DURING THE DATABASE TRANSLATOR PHASE. 
,THE NUMBER OF DNT ENTRIES GENERATED BY S-SCANNER DOES NOT AGREE WITH TH
,E NUMBER OF DNAT ENTRIES GENERATED BY THE DATABASE TRANSLATOR.*) 
          DIAGP  W,3654 
          DIAGT  (*THE CLAUSES IN THE OBJECT-COMPUTER PARAGRAPH MUST BE 
,TERMINATED BY A PERIOD.*)
          DIAGP  W,3655 
          DIAGT  (*THE CLAUSES IN THE SPECIAL-NAMES PARAGRAPH MUST BE TE
,RMINATED BY A PERIOD.*)
          DIAGP  W,3656 
          DIAGT  (*THE CLAUSES IN THE I-O-CONTROL PARAGRAPH MUST BE TERM
,INATED BY A PERIOD.*)
          DIAGP  W,3657 
          DIAGT  (*THE CLAUSES IN A FILE-CONTROL ENTRY MUST BE TERMINATE
,D BY A PERIOD.*) 
          DIAGP  W,3658 
          DIAGT  (*DUPLICATE PERIOD.*)
          DIAGP  W,3659 
          DIAGT  (*THE CLAUSES IN THE SOURCE-COMPUTER PARAGRAPH MUST BE 
,TERMINATED BY A PERIOD.*)
          DIAGP  N,3700 
          DIAGT  (*FIPS=3 SUPPORTS LEVEL 88 CONDITION NAMES.*)
          DIAGP  N,3701 
          DIAGT  (*FIPS=2 SUPPORTS WITH DEBUGGING MODE.*) 
          DIAGP  N,3702 
          DIAGT  (*FIPS=4 SUPPORTS THE SEGMENT-LIMIT CLAUSE.*)
          DIAGP  N,3703 
          DIAGT  (*FIPS=3 SUPPORTS ALPHABET-NAME IS LITERAL.*)
          DIAGP  N,3704 
          DIAGT  (*FIPS=3 SUPPORTS SELECT OPTIONAL.*) 
          DIAGP  N,3706 
          DIAGT  (*FIPS=2 SUPPORTS ORGANIZATION IS RELATIVE.*)
          DIAGP  N,3707 
          DIAGT  (*FIPS=4 SUPPORTS ORGANIZATION IS INDEXED.*) 
          DIAGP  W,3708 
          DIAGT  (*UNDEFINED DATA NAME REFERENCE.*) 
          DIAGP  N,3709 
          DIAGT  (*WHEN NEITHER OF THE ABBREVIATED INPUT CD OPTIONS ARE 
,CHOSEN AN 01 ENTRY MUST FOLLOW THE CD ENTRY FOR STANDARD COBOL.*)
          DIAGP  N,3710 
          DIAGT  (*FIPS=3 SUPPORTS MULTIPLE FILE TAPE CLAUSE.*) 
          DIAGP  N,3711 
          DIAGT  (*FIPS=3 SUPPORTS THE COMMUNICATION MODULE.*)
          DIAGP  N,3712 
          DIAGT  (*FIPS=2 SUPPORTS THE INTER-PROGRAM COMMUNICATION MODUL
,E.*) 
          DIAGP  N,3713 
          DIAGT  (*FIPS=3 SUPPORTS SD DESCRIPTIONS.*) 
          DIAGP  N,3714 
          DIAGT  (*FIPS=3 SUPPORTS LEVEL 66 ITEMS.*)
          DIAGP  N,3715 
          DIAGT  (*FIPS=3 SUPPORTS THE LINAGE CLAUSE.*) 
          DIAGP  N,3716 
          DIAGT  (*FIPS=3 SUPPORTS ASCENDING OR DESCENDING KEY.*) 
          DIAGP  N,3717 
          DIAGT  (*FIPS=3 SUPPORTS OCCURS DEPENDING ON.*) 
          DIAGP  N,3719 
          DIAGT  (*FIPS=3 SUPPORTS THE SAME RECORD AREA CLAUSE FOR SEQUE
,NTIAL FILES.*) 
          DIAGP  N,3720 
          DIAGT  (*FIPS=3 SUPPORTS THE SAME RECORD AREA CLAUSE FOR RELAT
,IVE FILES.*) 
          DIAGP  N,3721 
          DIAGT  (*FIPS=4 SUPPORTS THE SAME RECORD AREA CLAUSE FOR INDEX
,ED FILES.*)
          DIAGP  N,3722 
          DIAGT  (*FIPS=4 SUPPORTS THE SAME RECORD AREA CLAUSE FOR SORT 
,FILES.*) 
          DIAGP  N,3723 
          DIAGT  (*FIPS=2 SUPPORTS THE SAME AREA CLAUSE FOR RELATIVE FIL
,ES.*)
          DIAGP  N,3724 
          DIAGT  (*FIPS=4 SUPPORTS THE SAME AREA CLAUSE FOR INDEXED FILE
,S.*) 
          DIAGP  N,3725 
          DIAGT  (*FIPS=4 SUPPORTS THE SAME SORT/SORT-MERGE AREA CLAUSE.
,*) 
          DIAGP  N,3726 
          DIAGT  (*FIPS=3 SUPPORTS BLOCK CONTAINS INTEGER TO INTEGER CHA
,RACTERS/RECORDS. USE FIPS=4 FOR INDEXED FILES.*) 
          DIAGP  N,3727 
          DIAGT  (*QUOTE IS APOSTROPHE IS NON-STANDARD COBOL.*) 
          DIAGP  N,3728 
          DIAGT  (*OMISSION OF THE SOURCE-COMPUTER PARAGRAPH IS NON-STAN
,DARD COBOL.*)
          DIAGP  N,3729 
          DIAGT  (*OMISSION OF THE OBJECT-COMPUTER PARAGRAPH IS NON-STAN
,DARD COBOL.*)
          DIAGP  N,3730 
          DIAGT  (*OMISSION OF THE CONFIGURATION SECTION IS NON-STANDARD
, COBOL.*)
          DIAGP  N,3731 
          DIAGT  (*OMISSION OF THE FILE-CONTROL PARAGRAPH FROM THE INPUT
,-OUTPUT SECTION IS NON-STANDARD COBOL.*) 
          DIAGP  N,3732 
          DIAGT  (*MEMORY SIZE IN THE SOURCE-COMPUTER PARAGRAPH IS NON-S
,TANDARD COBOL.*) 
          DIAGP  N,3733 
          DIAGT  (*WITH SUPERVISOR CONTROL IS NON-STANDARD COBOL.*) 
          DIAGP  N,3734 
          DIAGT  (*OMISSION OF THE COMPUTER-NAME FROM THE SOURCE-COMPUTE
,R OR OBJECT-COMPUTER PARAGRAPH IS NON-STANDARD COBOL.*)
          DIAGP  N,3735 
          DIAGT  (*ASSIGN OBJECT-PROGRAM IS NON-STANDARD COBOL.*) 
          DIAGP  N,3736 
          DIAGT  (*THE SIGN CONTROL CLAUSE IN THE SPECIAL-NAMES PARAGRAP
,H IS NON-STANDARD COBOL.*) 
          DIAGP  N,3737 
          DIAGT  (*THE SUB-SCHEMA CLAUSE IS NON-STANDARD COBOL.*) 
          DIAGP  N,3738 
          DIAGT  (*THE USE LITERAL CLAUSE IN THE FILE-CONTROL PARAGRAPH 
,IS NON-STANDARD COBOL.*) 
          DIAGP  N,3739 
          DIAGT  (*DIRECT FILE ORGANIZATION IS NON-STANDARD COBOL.*)
          DIAGP  N,3740 
          DIAGT  (*WORD-ADDRESS FILE ORGANIZATION IS NON-STANDARD COBOL.
,*) 
          DIAGP  N,3741 
          DIAGT  (*ACTUAL-KEY FILE ORGANIZATION IS NON-STANDARD COBOL.*)
          DIAGP  N,3742 
          DIAGT  (*ALTERNATE RECORD KEY DUPLICATES ASCENDING IS NON-STAN
,DARD COBOL.*)
          DIAGP  N,3743 
          DIAGT  (*THE APPLY CLAUSE IS NON-STANDARD COBOL.*)
          DIAGP  N,3744 
          DIAGT  (*COMMON-STORAGE SECTION IS NON-STANDARD COBOL.*)
          DIAGP  N,3745 
          DIAGT  (*SECONDARY-STORAGE SECTION IS NON-STANDARD COBOL.*) 
          DIAGP  N,3746 
          DIAGT  (*THE EXTERNAL CLAUSE IS NON-STANDARD COBOL.*) 
          DIAGP  N,3747 
          DIAGT  (*THE RECORDING MODE CLAUSE IS NON-STANDARD COBOL.*) 
          DIAGP  N,3748 
          DIAGT  (*DEPENDING ON DATA-NAME PHRASE OF THE RECORD CLAUSE IS
, NON-STANDARD COBOL.*) 
          DIAGP  F,3749 
          DIAGT  (*AN UNSIGNED INTEGER DATA ITEM IS REQUIRED IN THE DEPE
,NDING ON PHRASE OF THE RECORD CLAUSE.*)
          DIAGP  N,3750 
          DIAGT  (*USAGE IS COMP-1 IS NON-STANDARD COBOL.*) 
          DIAGP  N,3751 
          DIAGT  (*USAGE IS COMP-2 IS NON-STANDARD COBOL.*) 
          DIAGP  N,3752 
          DIAGT  (*USAGE IS COMP-4 IS NON-STANDARD COBOL.*) 
          DIAGP  F,3753 
          DIAGT  (*THE ASSIGN CLAUSE IS ONLY ALLOWED IN THE FILE-CONTROL
, PARAGRAPH AFTER A SELECT CLAUSE.*)
          DIAGP  F,3754 
          DIAGT  (*THE MEMORY SIZE CLAUSE IS ONLY ALLOWED IN THE SOURCE-
,COMPUTER PARAGRAPH OR OBJECT-COMPUTER PARAGRAPH.*) 
          DIAGP  F,3755 
          DIAGT  (*THE CLAUSE, WITH SUPERVISOR CONTROL, IS ONLY ALLOWED 
,IN THE SOURCE-COMPUTER PARAGRAPH AND IN THE OBJECT-COMPUTER PARAGRAPH.*
,)
          DIAGP  F,3756 
          DIAGT  (*THE RESERVED WORD WHEN IS REQUIRED HERE.*) 
          DIAGP  F,3757 
          DIAGT  (*THE FIGURATIVE CONSTANT ZEROES OR THE FIGURATIVE CONS
,TANT SPACES IS REQUIRED HERE.*)
          DIAGP  F,3758 
          DIAGT  (*THE RESERVED WORD KEY OR A DATA-NAME REFERENCE IS REQ
,UIRED HERE.*)
          DIAGP  F,3759 
          DIAGT  (*THE PHRASE, DATA-NAME CONTAINS CHARACTER FROM LITERAL
,, IS REQUIRED HERE.*)
          DIAGP  F,3760 
          DIAGT  (*A QUOTED LITERAL CONTAINING ONLY THE CHARACTERS 1-9, 
,A-Z AND NOT MORE THAN ONE OCCURRENCE OF EACH, IS REQUIRED HERE.*)
          DIAGP  F,3761 
          DIAGT  (*WHEN THE PHRASE, DATA-NAME CONTAINS CHARACTER FROM LI
,TERAL, APPEARS IN MORE THAN ONE ALTERNATE RECORD KEY CLAUSE FOR THE SAM
,E FILE, THE SAME DATA-NAME MUST BE USED EACH TIME.*) 
          DIAGP  F,3762 
          DIAGT  (*IN THE PHRASE, NAME-1 IS NAME-2, NAME-1 AND NAME-2 CA
,NNOT BE THE SAME NAME.  FURTHERMORE, NAME-1 CANNOT BE DEFINED ELSEWHERE
, IN THE PROGRAM AS A MNEMONIC-NAME OR OTHER USER DEFINED WORD.*) 
          DIAGP  N,3763 
          DIAGT  (*FIPS=3 SUPPORTS THE FIGURATIVE CONSTANT ALL LITERAL.*
,)
          DIAGP  F,3764 
          DIAGT  (*THE RESERVED WORD ALL MUST BE FOLLOWED BY A NON-NUMER
,IC LITERAL OR FIGURATIVE CONSTANT.*) 
          DIAGP  N,3765 
          DIAGT  (*FIPS=2 SUPPORTS SELECT RELATIVE FILE-NAME.*) 
          DIAGP  N,3766 
          DIAGT  (*FIPS=4 SUPPORTS SELECT INDEXED FILE.*) 
          DIAGP  N,3767 
          DIAGT  (*FIPS=2 SUPPORTS SELECT RELATIVE FILE ASSIGN TO IMPLEM
,ENTOR-NAME.*)
          DIAGP  N,3768 
          DIAGT  (*FIPS=4 SUPPORTS SELECT INDEXED FILE ASSIGN TO IMPLEME
,NTOR-NAME.*) 
          DIAGP  N,3769 
          DIAGT  (*FIPS=2 SUPPORTS ACCESS MODE IS SEQUENTIAL FOR RELATIV
,E FILES.*) 
          DIAGP  N,3770 
          DIAGT  (*FIPS=4 SUPPORTS ACCESS MODE IS SEQUENTIAL FOR INDEXED
, FILES.*)
          DIAGP  N,3771 
          DIAGT  (*FIPS=2 SUPPORTS ACCESS MODE IS RANDOM FOR RELATIVE FI
,LES.*) 
          DIAGP  N,3772 
          DIAGT  (*FIPS=4 SUPPORTS ACCESS MODE IS RANDOM FOR INDEXED FIL
,ES.*)
          DIAGP  N,3773 
          DIAGT  (*FIPS=3 SUPPORTS ACCESS MODE IS DYNAMIC FOR RELATIVE F
,ILES.*)
          DIAGP  N,3774 
          DIAGT  (*FIPS=4 SUPPORTS ACCESS MODE IS DYNAMIC FOR INDEXED FI
,LES.*) 
          DIAGP  N,3775 
          DIAGT  (*FIPS=2 SUPPORTS RELATIVE KEY IS DATA-NAME.*) 
          DIAGP  N,3776 
          DIAGT  (*FIPS=2 SUPPORTS FILE STATUS IS DATA-NAME FOR RELATIVE
, FILES.*)
          DIAGP  N,3777 
          DIAGT  (*FIPS=4 SUPPORTS FILE STATUS IS DATA-NAME FOR INDEXED 
,FILES.*) 
          DIAGP  N,3778 
          DIAGT  (*FIPS=2 SUPPORTS RERUN INTEGER RECORDS OF RELATIVE FIL
,E-NAME.*)
          DIAGP  N,3779 
          DIAGT  (*FIPS=4 SUPPORTS RERUN INTEGER RECORDS OF INDEXED FILE
,-NAME.*) 
          DIAGP  N,3780 
          DIAGT  (*FIPS=4 SUPPORTS LEVEL FD DESCRIPTIONS FOR INDEXED FIL
,ES.*)
          DIAGP  N,3781 
          DIAGT  (*FIPS=2 SUPPORTS BLOCK CONTAINS FOR RELATIVE FILES.*) 
          DIAGP  N,3782 
          DIAGT  (*FIPS=4 SUPPORTS BLOCK CONTAINS FOR INDEXED FILES.*)
          DIAGP  N,3783 
          DIAGT  (*FIPS=3 SUPPORTS INTEGER TO INTEGER CHARACTERS/RECORDS
,.*)
          DIAGP  N,3784 
          DIAGT  (*FIPS=2 SUPPORTS RECORD CONTAINS FOR RELATIVE FILES.*)
          DIAGP  N,3785 
          DIAGT  (*FIPS=4 SUPPORTS RECORD CONTAINS FOR INDEXED FILES.*) 
          DIAGP  N,3786 
          DIAGT  (*FIPS=2 SUPPORTS THE VALUE OF CLAUSE FOR RELATIVE FILE
,S.*) 
          DIAGP  N,3787 
          DIAGT  (*FIPS=4 SUPPORTS THE VALUE OF CLAUSE FOR INDEXED FILES
,.*)
          DIAGP  N,3788 
          DIAGT  (*FIPS=2 SUPPORTS LABEL RECORDS CLAUSE FOR RELATIVE FIL
,ES.*)
          DIAGP  N,3789 
          DIAGT  (*FIPS=4 SUPPORTS LABEL RECORDS CLAUSE FOR INDEXED FILE
,S.*) 
          DIAGP  N,3790 
          DIAGT  (*FIPS=2 SUPPORTS THE DATA RECORDS CLAUSE FOR RELATIVE 
,FILES.*) 
          DIAGP  N,3791 
          DIAGT  (*FIPS=4 SUPPORTS THE DATA RECORDS CLAUSE FOR INDEXED F
,ILES.*)
          DIAGP  N,3792 
          DIAGT  (*FIPS=2 SUPPORTS LEVEL FD DESCRIPTIONS FOR RELATIVE FI
,LES.*) 
          DIAGP  N,3793 
          DIAGT  (*FIPS=3 SUPPORTS RESERVE INTEGER AREAS.*) 
          DIAGP  N,3794 
          DIAGT  (*FIPS=4 SUPPORTS RESERVE INTEGER AREAS.*) 
          DIAGP  N,3795 
          DIAGT  (*FIPS=3 SUPPORTS VALUE OF IMPLEMENTOR-NAME IS DATA-NAM
,E.*) 
          DIAGP  N,3796 
          DIAGT  (*FIPS=4 SUPPORTS VALUE OF IMPLEMENTOR-NAME IS DATA-NAM
,E.*) 
          DIAGP  N,3797 
          DIAGT  (*FIPS=4 SUPPORTS RECORD KEY IS DATA-NAME.*) 
          DIAGP  N,3798 
          DIAGT  (*FIPS=4 SUPPORTS ALTERNATE RECORD KEY IS DATA-NAME.*) 
          DIAGP  F,3799 
          DIAGT  (* THE RESERVED WORD KEY IS REQUIRED HERE. *)
          DIAGP  N,3800 
          DIAGT  (* AN -ASCENDING/DESCENDING- PHRASE FOLLOWING AN -INDEX
,ED BY- PHRASE IN AN -OCCURS- CLAUSE IS NON-STANDARD COBOL.*) 
          DIAGP  F,3984 
          DIAGT  (*THIS SPECIAL REGISTER NAME REFERENCE IS AMBIGUOUS. TH
,E NAME IS MULTIPLY DEFINED OR THE REFERENCE IS INCORRECTLY QUALIFIED.*)
          DIAGP  F,3985 
          DIAGT  (*UNDEFINED SPECIAL REGISTER NAME REFERENCE.*) 
          DIAGP  N,3986 
          DIAGT  (*FIPS=3 SUPPORTS THE SEPARATORS COMMA AND SEMICOLON.*)
          DIAGP  N,3988 
          DIAGT  (*THE ENVIRONMENT DIVISION IS MISSING.*) 
          DIAGP  N,3989 
          DIAGT  (*THE DATA DIVISION IS MISSING.*)
          DIAGP  F,3990 
          DIAGT  (*THIS DATA NAME REFERENCE IS AMBIGUOUS. THE NAME IS MU
,LTIPLY DEFINED OR THE REFERENCE IS NOT PROPERLY QUALIFIED.*) 
          DIAGP  F,3994 
          DIAGT  (*UNDEFINED DATA NAME REFERENCE.*) 
          DIAGP  T,3995 
          DIAGT  (*THIS ELEMENT MUST BEGIN IN THE A AREA.*) 
          DIAGP  T,3999 
          DIAGT  (*A COMMA OR SEMICOLON IS NOT ALLOWED HERE.*)
          CENTURY   4000
          DIAGP  F,4001 
          DIAGT  (*A NUMERIC PICTURE IS REQUIRED FOR THIS DATA ITEM.*)
          DIAGP  F,4002 
          DIAGT  (*CONFLICTS HAVE BEEN DETECTED BETWEEN GROUP AND SUBORD
,INATE SIGN DECLARATIONS.*) 
          DIAGP  F,4003 
          DIAGT  (*THE PICTURE STRING SPECIFIED FOR A SIGNED DATA ITEM M
,UST BE SIGNED.*) 
          DIAGP  F,4004 
          DIAGT  (*THE SIGN CLAUSE MAY ONLY BE USED WITH A DATA ITEM WHO
,SE USAGE IS DISPLAY.*) 
          DIAGP  N,4005 
          DIAGT  (*MORE THAN THREE LEVELS OF SUBSCRIPTS IS NON-STANDARD 
,COBOL.*) 
          DIAGP  F,4006 
          DIAGT  (*A DATA ITEM REFERENCED IN A KEY IS PHRASE MUST BE AT 
,THE SAME SUBSCRIPTING LEVEL AS THE ENTRY CONTAINING THE KEY IS PHRASE. 
,*) 
          DIAGP  F,4007 
          DIAGT  (*A DATA ITEM REFERENCED IN A KEY IS PHRASE MUST BE WIT
,HIN THE GROUP DEFINED BY THE ENTRY CONTAINING THE KEY IS PHRASE.*) 
          DIAGP   W,4008
          DIAGT  (*A VALUE CLAUSE MAY NOT BE USED FOR A GROUP ITEM WHOSE
, SUBORDINATE ITEMS CONTAIN A JUSTIFIED, SYNCHRONIZED, OR USAGE CLAUSE (
,OTHER THAN USAGE IS DISPLAY).*)
          DIAGP  W,4009 
          DIAGT  (*USE OF SYNCHRONIZED IN A REDEFINITION OF AN ITEM WHICH 
,H IS NOT SYNCHRONIZED MAY RESULT IN INCORRECT ALIGNMENT OF DATA.*) 
          DIAGP  F,4010 
          DIAGT  (*A PICTURE CLAUSE IS REQUIRED FOR THIS ELEMENTARY ITEM
,.*)
          DIAGP  F,4011 
          DIAGT  (*A PICTURE CLAUSE IS ONLY ALLOWED WITH AN ELEMENTARY I
,TEM.*) 
          DIAGP  W,4012 
          DIAGT  (*A PICTURE CLAUSE IS NOT ALLOWED BECAUSE USAGE IS INDE
,X OR USAGE IS COMP-2 HAS BEEN SPECIFIED.*) 
          DIAGP  F,4013 
          DIAGT  (*A DATA ITEM MUST HAVE THE SAME LEVEL NUMBER AS THE IT
,EM IT REDEFINES.*) 
          DIAGP  F,4014 
          DIAGT  (*THE EXTERNAL CLAUSE MUST NOT BE SPECIFIED FOR FILLER 
,ITEMS.*) 
          DIAGP  F,4015 
          DIAGT  (*A REDEFINES CLAUSE IS NOT ALLOWED WITH A LEVEL 01 ITE
,M IN THE FILE OR COMMUNICATION SECTION.*)
          DIAGP  F,4016 
          DIAGT  (*A JUSTIFIED, PICTURE, VALUE, OR BLANK WHEN ZERO CLAUS
,E IS NOT ALLOWED WITH A DATA ITEM WHOSE USAGE IS INDEX.*)
          DIAGP  W,4017 
          DIAGT  (*THIS DATA NAME HAS A REDEFINES CLAUSE WHICH NAMES AN 
,ITEM WITH AN OCCURS CLAUSE. THE REDEFINES CLAUSE WILL BE IGNORED.*)
          DIAGP  F,4018 
          DIAGT  (*AN ENTRY CONTAINING A REDEFINES CLAUSE MUST IMMEDIATE
,LY FOLLOW THE DESCRIPTION OF THE AREA BEING REDEFINED WITH NO INTERVENI
,NG ENTRIES THAT DEFINE NEW STORAGE AREAS.*)
          DIAGP  F,4019 
          DIAGT  (*A VALUE CLAUSE IS NOT ALLOWED WITH SUBORDINATE ENTRIE
,S IF IT APPEARS AT THE GROUP LEVEL.*)
          DIAGP  W,4020 
          DIAGT  (*IN THE FILE OR LINKAGE SECTION, THE VALUE CLAUSE IS O
,NLY ALLOWED WITH CONDITION NAME ENTRIES.*) 
          DIAGP  F,4021 
          DIAGT  (*A JUSTIFIED CLAUSE IS NOT ALLOWED WITH A DATA ITEM WH
,ICH IS NUMERIC OR FOR WHICH EDITING IS SPECIFIED.*)
          DIAGP  F,4022 
          DIAGT  (*THE EXTERNAL CLAUSE AND THE REDEFINES CLAUSE MUST NOT
, BE SPECIFIED IN THE SAME DATA DESCRIPTION ENTRY.*)
          DIAGP  F,4023 
          DIAGT  (*A BLANK WHEN ZERO CLAUSE IS ONLY ALLOWED WITH AN ELEM
,ENTARY ITEM.*) 
          DIAGP  F,4024 
          DIAGT  (*THE BLANK WHEN ZERO CLAUSE IS ALLOWED ONLY WITH ITEMS
, WHOSE PICTURE STRING IS SPECIFIED AS NUMERIC OR NUMERIC EDITED,  AND W
,HOSE USAGE IS DISPLAY.*) 
          DIAGP   W,4026
          DIAGT  (*WHEN A GROUP ITEM CONTAINS A SIGN CLAUSE , THERE MUST
, BE AT LEAST ONE SUBORDINATE ITEM WHOSE PICTURE IS SIGNED.*) 
          DIAGP  F,4027 
          DIAGT  (*A RECORD DESCRIBED IN AN INPUT CD MUST BE EXACTLY 87 
,CHARACTERS IN LENGTH.*)
          DIAGP  F,4028 
          DIAGT  (*LEVEL 66 ENTRIES THAT REFERENCE DATA ITEMS IN A RECOR
,D MUST IMMEDIATELY FOLLOW THE LAST ENTRY IN THAT RECORD.*) 
          DIAGP  F,4029 
          DIAGT  (*THE TWO DATA ITEMS REFERENCED IN A RENAMES CLAUSE MAY
, NOT BE THE SAME.*)
          DIAGP  W,4030 
          DIAGT  (*THE SIZE OF AN ITEM WHICH REDEFINES AN ITEM FOR WHICH
, THE EXTERNAL CLAUSE IS SPECIFIED MUST NOT EXCEED THE SIZE OF THE REDEF
,INED ITEM.*) 
          DIAGP  F,4031 
          DIAGT  (*A DATA ITEM REFERENCED IN A RENAMES CLAUSE MUST HAVE 
,A LEVEL NUMBER IN THE RANGE FROM 2 TO 49.*)
          DIAGP  F,4032 
          DIAGT  (*A DATA ITEM REFERENCED IN A RENAMES CLAUSE MAY NOT HA
,VE AN OCCURS CLAUSE OR BE SUBORDINATE TO AN ITEM THAT HAS AN OCCURS CLA
,USE.*) 
          DIAGP F,4033
          DIAGT  (*USAGE BIT REQUIRES BOOLEAN PICTURE.*)
          DIAGP  F,4034 
          DIAGT  (*NO PART OF THE AREA DESCRIBED BY THE SECOND DATA ITEM
, REFERENCED IN A RENAMES CLAUSE MAY BE TO THE LEFT OF THE START OF THE 
,AREA DESCRIBED BY THE FIRST DATA ITEM - AND NO PART OF THE AREA DESCRIB
,ED BY THE FIRST DATA ITEM MAY BE TO THE RIGHT OF THE END OF THE AREA DE
,SCRIBED BY THE SECOND DATA ITEM.*) 
          DIAGP  F,4035 
          DIAGT  (*WHEN THE OCCURRING ITEM IS A KEY ITEM, IT MUST BE THE
, FIRST KEY ITEM.*) 
          DIAGP  F,4036 
          DIAGT  (*THE OCCURRING DATA NAME MAY ONLY BE USED AS A KEY WHE
,N THE OCCURRING DATA NAME IS AN ELEMENTARY ITEM.*) 
          DIAGP  F,4037 
          DIAGT  (*THE VALUE CLAUSE MAY NOT BE USED IN AN ENTRY THAT CON
,TAINS AN OCCURS CLAUSE OR IN AN ENTRY THAT IS SUBORDINATE TO AN ENTRY T
,HAT CONTAINS AN OCCURS CLAUSE.*) 
          DIAGP  F,4038 
          DIAGT  (*THE VALUE CLAUSE MAY NOT BE USED IN AN ENTRY THAT CON
,TAINS A REDEFINES CLAUSE OR IN AN ENTRY THAT IS SUBORDINATE TO AN ENTRY
, THAT CONTAINS A REDEFINES CLAUSE.*) 
          DIAGP  F,4039 
          DIAGT  (*THE SIGN CLAUSE MAY ONLY BE USED FOR NUMERIC OR NUMER
,IC EDITED DATA ITEMS.*)
          DIAGP  N,4040 
          DIAGT  (*-SYNCHRONIZED- AT A GROUP LEVEL IS NON-STANDARD.*) 
          DIAGP  F,4041 
          DIAGT  (*WHEN THE DEPENDING ON OPTION IS USED , THAT ENTRY MAY
, ONLY BE FOLLOWED WITHIN THAT RECORD , BY ENTRIES THAT ARE SUBORDINATE 
,TO IT.*) 
          DIAGP  F,4042 
          DIAGT  (*AN ENTRY WHICH CONTAINS OR HAS A SUBORDINATE ENTRY WH
,ICH CONTAINS A DEPENDING ON PHRASE MAY NOT BE THE OBJECT OF A REDEFINES
, CLAUSE.*) 
          DIAGP  W,4043 
          DIAGT  (*THE VALUE CLAUSE MUST NOT BE USED IN ANY DATA DESCRIP
,TION ENTRY WHICH INCLUDES, OR IS SUBORDINATE TO AN ENTRY WHICH INCLUDES
,, THE EXTERNAL CLAUSE.*) 
          DIAGP  F,4044 
          DIAGT  (*THE AREA DESCRIBED BY THE DATA ITEM REFERENCED IN A D
,EPENDING ON PHRASE MAY NOT OVERLAP THE AREA DESCRIBED BY THE DATA ENTRY
, WHICH CONTAINS THE DEPENDING ON PHRASE.*) 
          DIAGP  F,4045 
          DIAGT  (*THE JUSTIFIED CLAUSE MAY ONLY BE USED WITH ELEMENTARY
, ITEMS.*)
          DIAGP  F,4046 
          DIAGT  (*CONFLICTS HAVE BEEN DETECTED BETWEEN GROUP AND SUBORD
,INATE USAGE DECLARATIONS.*)
          DIAGP   N,4047
          DIAGT  (*ALL ITEMS IMMEDIATELY SUBORDINATE TO A GROUP ITEM MUS
,T HAVE THE SAME LEVEL NUMBERS. THE LEVEL NUMBERS MUST BE GREATER THAN T
,HE LEVEL NUMBER OF THE GROUP ITEM.*) 
          DIAGP  F,4048 
          DIAGT  (*A DATA ITEM REFERENCED IN A RENAMES CLAUSE MUST BE WI
,THIN THE IMMEDIATELY PRECEDING RECORD.*) 
          DIAGP   W,4051
          DIAGT  (*A TERMINAL PERIOD IS REQUIRED FOR THIS DATA ENTRY.*) 
          DIAGP  N,4052 
          DIAGT  (*AN ITEM THAT CONTAINS A REDEFINES CLAUSE AND IS NOT T
,HE SAME SIZE AS THE ITEM BEING REDEFINED, IS NON-STANDARD.*) 
          DIAGP  N,4053 
          DIAGT  (*A REDEFINES CLAUSE THAT NAMES AN ITEM THAT CONTAINS A
, REDEFINES CLAUSE, IS NON-STANDARD.*)
          DIAGP  C,4054 
          DIAGT  (*COMPILER ERROR IN RECORD ACCUMULATION.*) 
          DIAGP   T,4055
          DIAGT  (*THIS ITEM IS A KEY FOR TWO OR MORE OCCURRING ITEMS.*)
          DIAGP  F,4056 
          DIAGT  (*THE DEPENDING ON IDENTIFIER MUST BE AN UNSIGNED INTEG
,ER.*)
          DIAGP  W,4057 
          DIAGT  (*A VARIABLE LENGTH GROUP CAN NOT BE SUBORDINATE TO ANO
,THER OCCURRING ITEM. THE DEPENDING OPTION IS IGNORED.*)
          DIAGP  W,4060 
          DIAGT  (*A LABEL RECORDS CLAUSE IS REQUIRED IN A FILE DESCRIPT
,ION ENTRY. -LABEL RECORDS ARE OMITTED- IS ASSUMED.*) 
          DIAGP  W,4061 
          DIAGT  (*RANDOM PROCESSING MODE IS NOT IMPLEMENTED IN THIS COM
,PILER.*) 
          DIAGP  F,4062 
          DIAGT  (*IF A FILE APPEARS IN BOTH A SAME AREA CLAUSE AND A SA
,ME RECORD AREA CLAUSE, ALL THE FILES IN THE SAME AREA CLAUSE MUST APPEA
,R IN THE SAME RECORD AREA CLAUSE.*)
          DIAGP  F,4063 
          DIAGT  (*IF A FILE APPEARS IN BOTH A SAME AREA CLAUSE AND A SA
,ME SORT OR SORT-MERGE AREA CLAUSE, ALL THE FILES IN THE SAME AREA CLAUS
,E MUST APPEAR IN THE SAME SORT OR SORT-MERGE AREA CLAUSE.*)
          DIAGP  F,4064 
          DIAGT  (*THE REPORT CLAUSE AND LINAGE CLAUSE MAY NOT BOTH BE U
,SED IN A FILE DESCRIPTION ENTRY.*) 
          DIAGP  F,4065 
          DIAGT  (*THE REPORT CLAUSE AND DATA RECORDS CLAUSE MAY NOT BOT
,H BE USED IN A FILE DESCRIPTION ENTRY.*) 
          DIAGP  F,4066 
          DIAGT  (*WHEN A REPORT CLAUSE IS USED IN A FILE DESCRIPTION, T
,HE ACCESS MODE MUST BE SEQUENTIAL.*) 
          DIAGP  F,4067 
          DIAGT  (*WHEN A FILE IS DESCRIBED AS OPTIONAL, THE ACCESS MODE
, MUST BE SEQUENTIAL.*) 
          DIAGP  F,4068 
          DIAGT  (*WHEN RERUN ON END OF REEL IS SPECIFIED FOR A FILE, TH
,E ACCESS MODE MUST BE SEQUENTIAL.*)
          DIAGP  F,4069 
          DIAGT  (*THE RELATIVE KEY FOR A FILE MAY NOT BE DEFINED WITHIN
, A RECORD OF THAT FILE.*)
          DIAGP  F,4070 
          DIAGT  (*THE RELATIVE KEY FOR A FILE MUST BE AN UNSIGNED INTEG
,ER ITEM.*) 
          DIAGP  F,4071 
          DIAGT  (*A RELATIVE FILE MUST HAVE A RELATIVE KEY NAME SPECIFI
,ED WHEN THE ACCESS MODE IS NOT SEQUENTIAL.*) 
          DIAGP  F,4072 
          DIAGT  (*INDEXED, DIRECT AND ACTUAL KEY FILES MUST HAVE A RECO
,RD KEY SPECIFIED.*)
          DIAGP  N,4073 
          DIAGT  (*THE RECORD KEY FOR AN INDEXED, DIRECT OR ACTUAL KEY F
,ILE MUST BE A DATA ITEM WITHIN A RECORD OF THAT FILE.*)
          DIAGP  F,4074 
          DIAGT  (*THE RECORD KEY MUST BE AN ALPHANUMERIC ITEM.*) 
          DIAGP  F,4075 
          DIAGT  (*THE ALTERNATE KEY FOR AN INDEXED, DIRECT AND ACTUAL K
,EY FILE MUST BE A DATA ITEM WITHIN THE RECORD OF THAT FILE.*)
          DIAGP  F,4076 
          DIAGT  (*THE RECORD KEY FOR AN INDEXED, DIRECT OR ACTUAL KEY F
,ILE CANNOT BE A DATA ITEM, OR SUBORDINATE TO A DATA ITEM, WITH AN -OCCU
,RS- CLAUSE SPECIFIED.*)
          DIAGP  N,4077 
          DIAGT  (*NO TWO KEYS FOR A INDEXED, DIRECT OR ACTUAL KEY FILE 
,MAY HAVE THE SAME LEFT CHARACTER POSITION.*) 
          DIAGP   W,4078
          DIAGT  (*THE MAXIMUM RECORD LENGTH DEFINED BY THIS RECORD DESC
,RIPTION IS GREATER THAN THE MAXIMUM RECORD LENGTH SPECIFIED IN THE RECO
,RD CONTAINS CLAUSE FOR THIS FILE.*)
          DIAGP   W,4079
          DIAGT  (*THE MINIMUM RECORD LENGTH DEFINED BY THIS RECORD DESC
,RIPTION IS LESS THAN THE MINIMUM RECORD LENGTH SPECIFIED IN THE RECORD 
,CONTAINS CLAUSE FOR THIS FILE.*) 
          DIAGP  F,4080 
          DIAGT  (*THE FILE STATUS NAME MAY NOT BE DEFINED IN THE REPORT
, SECTION.*)
          DIAGP  F,4081 
          DIAGT  (*THE FILE STATUS NAME MAY NOT BE DEFINED IN THE FILE S
,ECTION.*)
          DIAGP  F,4082 
          DIAGT  (*THE FILE STATUS ITEM MUST BE AN ALPHANUMERIC ITEM WIT
,H A LENGTH OF TWO.*) 
          DIAGP  F,4083 
          DIAGT  (*IDENTIFIERS USED IN A -VALUE OF- LABEL CLAUSE MUST BE
, DEFINED IN THE WORKING-STORAGE SECTION.*) 
          DIAGP  F,4084 
          DIAGT  (*IDENTIFIERS USED IN A -VALUE OF- LABEL CLAUSE MUST HA
,VE A USAGE OF DISPLAY.*) 
          DIAGP  F,4085 
          DIAGT  (*IDENTIFIERS USED IN A -VALUE OF- LABEL CLAUSE MUST NO
,T BE OCCURRING ITEMS NOR SUBORDINATE TO AN OCCURRING ITEM.*) 
          DIAGP  F,4086 
          DIAGT  (*THE LINAGE IDENTIFIER MUST BE AN UNSIGNED INTEGER ITE
,M.*) 
          DIAGP  F,4087 
          DIAGT  (*THE TOP LINE IDENTIFIER MUST BE AN UNSIGNED INTEGER I
,TEM.*) 
          DIAGP  F,4088 
          DIAGT  (*THE BOTTOM LINE IDENTIFIER MUST BE AN UNSIGNED INTEGE
,R ITEM.*)
          DIAGP  F,4089 
          DIAGT  (*THE FOOTING IDENTIFIER MUST BE AN UNSIGNED INTEGER IT
,EM.*)
          DIAGP   W,4090
          DIAGT  (*THE ITEMS NAMED IN A DATA RECORDS CLAUSE MUST BE DEFI
,NED AS LEVEL 1 ENTRIES WITHIN THE ASSOCIATED FILE.*) 
          DIAGP  F,4091 
          DIAGT  (*SEQUENTIAL FILES MUST NOT HAVE RELATIVE OR RECORD KEY
,S NAMED IN THE FILE CONTROL PARAGRAPH.*) 
          DIAGP  F,4092 
          DIAGT  (*THIS FILE HAS NOT BEEN NAMED IN ANY SELECT CLAUSE OR 
,THE SELECT CLAUSE HAS BEEN IGNORED.*)
          DIAGP  F,4093 
          DIAGT  (*REPORT NAMES CAN ONLY BE ASSOCIATED WITH ONE FILE.*) 
          DIAGP  F,4094 
          DIAGT  (*INDEXED, DIRECT AND ACTUAL KEY FILES CANNOT HAVE RELA
,TIVE KEYS.*) 
          DIAGP  F,4095 
          DIAGT  (*RELATIVE FILES CAN NOT HAVE RECORD KEYS.*) 
          DIAGP  F,4096 
          DIAGT  (*RELATIVE KEY IDENTIFIERS MUST NOT BE OCCURRING ITEMS 
,NOR SUBRORDINATE TO AN OCCURRING ITEM.*) 
          DIAGP  F,4097 
          DIAGT  (*MORE THAN 1 LEVEL OF -OCCURS- CANNOT BE SPECIFIED FOR
, AN ALTERNATE RECORD KEY.*)
          DIAGP  F,4098 
          DIAGT  (*FILE STATUS IDENTIFIERS MUST NOT BE OCCURRING ITEMS N
,OR SUBORDINATE TO AN OCCURRING ITEM.*) 
          DIAGP  F,4099 
          DIAGT  (*THE PICTURE FOR A COMPUTATIONAL-4 DATA ITEM MUST NOT 
,CONTAIN MORE THAN 14 DIGITS INCLUDING BOTH 9-S AND P-S.*)
          DIAGP  F,4100 
          DIAGT  (*LEVEL 77 ITEMS ARE ONLY ALLOWED IN THE WORKING-STORAG
,E SECTION AND MUST NOT BE FOLLOWED BY A LEVEL 2 THROUGH 49 ITEM.*) 
          DIAGP  F,4101 
          DIAGT  (*THE NUMBER OF 9-S AND P-S IN A COMP-1 ITEM MUST BE LE
,SS THAN 15.*)
          DIAGP  F,4102 
          DIAGT  (*A SECOND IMPLEMENTOR NAME IS REQUIRED IF THE ORGANIZA
,TION IS INDEXED, DIRECT OR ACTUAL KEY WHEN ALTERNATE KEYS ARE SPECIFIED
,.*)
          DIAGP  F,4103 
          DIAGT  (*A RECORD KEY OR AN ALTERNATE KEY CANNOT BE A GROUP IT
,EM ONE OF WHOSE SUBORDINATE ITEMS IS SPECIFIED WITH THE -OCCURS DEPENDI
,NG ON- PHRASE.*) 
          DIAGP  F,4104 
          DIAGT  (*IF A RECORD KEY OR AN ALTERNATE KEY IS AN ELEMENTARY 
,NUMERIC ITEM ITS PICTURE MUST NOT CONTAIN AN -S- UNLESS ITS USAGE IS CO
,MP-1.*)
          DIAGP  F,4105 
          DIAGT  (*A RECORD KEY OR AN ALTERNATE KEY MUST BE ALPHABETIC, 
,ALPHANUMERIC OR NUMERIC.*) 
          DIAGP  F,4107 
          DIAGT  (*WORD ADDRESS FILES CANNOT HAVE RELATIVE OR RECORD KEY
,S.*) 
          DIAGP  F,4108 
          DIAGT  (*WORD ADDRESS FILES MUST HAVE A WORD ADDRESS KEY.*) 
          DIAGP  F,4109 
          DIAGT  (*WORD ADDRESS KEYS MUST NOT BE OCCURRING ITEMS NOR SUB
,ORDINATE TO AN OCCURRING ITEM.*) 
          DIAGP  F,4110 
          DIAGT  (*WORD ADDRESS KEYS MUST BE UNSIGNED INTEGERS.*) 
          DIAGP  F,4111 
          DIAGT  (*THE ITEM WHICH IS THE OBJECT OF A DEPENDING ON PHRASE
, MUST BE AN UNSIGNED INTEGER.*)
          DIAGP  F,4112 
          DIAGT  (*THE ITEM WHICH IS THE OBJECT OF A -DEPENDING ON- PHRA
,SE MUST BE USAGE DISPLAY, COMP-1 OR COMP-4.*)
          DIAGP  F,4113 
          DIAGT  (*THE ITEM WHICH IS THE OBJECT OF A -DEPENDING ON- PHRA
,SE MUST BE 6 DIGITS OR LESS.*) 
          DIAGP  F,4114 
          DIAGT  (*THE OBJECT OF THE -DEPENDING ON- PHRASE (WHEN CONTAIN
,ED WITHIN THE RECORD) MUST BE ENTIRELY CONTAINED WITHIN THE MINIMUM REC
,ORD SIZE.*)
          DIAGP  F,4115 
          DIAGT  (*IF THE CODE-SET CLAUSE IS SPECIFIED ALL DATA IN THE F
,ILE MUST BE DESCRIBED AS USAGE IS DISPLAY.*) 
          DIAGP    T,4116 
          DIAGT  (*IF THE CODE-SET CLAUSE OR RECORDING MODE IS DECIMAL C
,LAUSE IS SPECIFIED EACH SIGNED ITEM IN THE FILE MUST HAVE A SEPARATE SI
,GN.*)
          DIAGP  F,4117 
          DIAGT  (*IF A REPORT CLAUSE IS SPECIFIED THE FILE MUST HAVE SE
,QUENTIAL ORGANIZATION.*) 
          DIAGP  F,4118 
          DIAGT  (*AN FD WITHOUT THE REPORTS CLAUSE OR AN SD MUST BE FOL
,LOWED BY AT LEAST ONE 01 RECORD DESCRIPTION ENTRY.*) 
          DIAGP  F,4119 
          DIAGT  (*LABEL RECORDS ARE STANDARD MUST BE SPECIFIED FOR MULT
,IPLE FILE TAPE FILES.*)
          DIAGP   W,4120
          DIAGT  (*A RECORD DESCRIPTION CANNOT FOLLOW AN FD CONTAINING A
, REPORTS CLAUSE.*) 
          DIAGP  F,4121 
          DIAGT  (*THE CODE-SET CLAUSE MUST REFERENCE AN ALPHABET NAME A
,ND THAT ALPHABET NAME MAY NOT BE SPECIFIED WITH THE LITERAL PHRASE.*)
          DIAGP  F,4122 
          DIAGT  (*THE BLOCK COUNT FOR A FILE MUST BE AN UNSIGNED INTEGE
,R.*) 
          DIAGP  W,4124 
          DIAGT  (*ONE OR MORE OTHER FILES ARE ASSIGNED TO THIS SAME IMP
,LEMENTOR NAME. THIS FILE CANNOT BE OPENED IF ANOTHER OF THE FILES IS AL
,READY OPEN.*)
          DIAGP  F,4125 
          DIAGT  (*ACCESS MODE RANDOM     OR DYNAMIC IS NOT ALLOWED ON F
,ILES WITH SEQUENTIAL ORGANIZATION.*) 
          DIAGP  F,4126 
          DIAGT  (*THE FIRST CHARACTER OF A FILE NAME MUST BE ALPHABETIC
, AND THE REMAINING CHARACTERS MAY BE ALPHANUMERIC (A THRU Z, AND 0 THRU
, 9).*) 
          DIAGP  F,4127 
          DIAGT  (*THE -VALUE OF- THE FILE-ID MUST BE LESS THAN 18 ALPHA
,NUMERIC CHARACTERS.*)
          DIAGP  F,4128 
          DIAGT  (*THE -VALUE OF- THE FILE-SET-ID MUST BE LESS THAN 7 AL
,PHANUMERIC CHARACTERS.*) 
          DIAGP  F,4129 
          DIAGT  (*THE -VALUE OF- THE FILE-SECTION-NUMBER MUST BE LESS T
,HAN 5 NUMERIC CHARACTERS.*)
          DIAGP  F,4130 
          DIAGT  (*THE -VALUE OF- THE FILE-SEQUENCE-NUMBER MUST BE LESS 
,THAN 5 NUMERIC CHARACTERS.*) 
          DIAGP  F,4131 
          DIAGT  (*THE -VALUE OF- THE FILE-GENERATION-NUMBER MUST BE LES
,S THAN 5 NUMERIC CHARACTERS.*) 
          DIAGP  F,4132 
          DIAGT  (*THE -VALUE OF- THE GENERATION-VERSION-NUMBER MUST BE 
,LESS THAN 3 NUMERIC CHARACTERS.*)
          DIAGP  F,4133 
          DIAGT  (*THE -VALUE OF- THE CREATION-DATE MUST BE 5 NUMERIC CH
,ARACTERS EXACTLY.*)
          DIAGP  F,4134 
          DIAGT  (*THE -VALUE OF- THE EXPIRATION-DATE MUST BE 5 NUMERIC 
,CHARACTERS EXACTLY.*)
          DIAGP  F,4135 
          DIAGT  (*THE -VALUE OF- THE ACCESSIBILITY MUST BE A SINGLE ALP
,HANUMERIC CHARACTER.*) 
          DIAGP  F,4136 
          DIAGT  (*THE ASSIGN CLAUSE FOR THIS FILE WAS NOT GIVEN OR WAS 
,IN ERROR.*)
          DIAGP  F,4137 
          DIAGT  (*THE RECORD KEY ITEM MUST HAVE A LEVEL NUMBER OF 1 THR
,U 49, OR 77 (POSSIBLE IF NON-IMBEDDED KEY FOR ACTUAL KEY OR INDEXED FIL
,E).*)
          DIAGP  F,4138 
          DIAGT  (*NO TWO KEYS FOR AN INDEXED, DIRECT OR ACTUAL KEY FILE
, MAY COINCIDE.*) 
          DIAGP  F,4140 
          DIAGT  (*THIS RECORD DESCRIPTION ENTRY WITHIN THE FILE SECTION
, REQUIRES MORE THAN 32767 CHARACTERS OF STORAGE.*) 
          DIAGP  F,4141 
          DIAGT  (*THIS DATA ITEM REQUIRES MORE THAN 131071 CHARACTERS O
,F STORAGE.*) 
          DIAGP  F,4142 
          DIAGT  (*WHEN THE PHRASE, DATA-NAME CONTAINS CHARACTER FROM LI
,TERAL, IS SPECIFIED IN AN ALTERNATE RECORD KEY CLAUSE, THE DATA-NAME MU
,ST BE DESCRIBED AS A SINGLE CHARACTER ALPHANUMERIC ITEM AND BE CONTAINE
,D WITHIN A RECORD DESCRIPTION OF THE FILE.*) 
          DIAGP  F,4143 
          DIAGT  (*FILE NAMES MAY BE UP TO SEVEN CHARACTERS LONG.  THIS 
,FILE NAME EXCEEDS SEVEN CHARACTERS.*)
          DIAGP  F,4144 
          DIAGT  (* THE SIZE OF COMMON-STORAGE HAS EXCEEDED ITS LIMIT OF
, 65,536 WORDS.*) 
          DIAGP  F,4145 
          DIAGT  (* THE SIZE OF WORKING-STORAGE HAS EXCEEDED ITS LIMIT O
,F 65,536 WORDS.*)
          DIAGP  F,4146 
          DIAGT  (* THE SIZE OF SECONDARY-STORAGE HAS EXCEEDED ITS LIMIT
, OF 65,536 WORDS.*)
          DIAGP  W,4147 
          DIAGT  (* THE MAXIMUM RECORD LENGTH SPECIFIED BY THE RECORD CL
,AUSE IS GREATER THAN THE LARGEST RECORD DESCRIPTION. THE MAXIMUM RECORD
, LENGTH HAS BEEN LOWERED TO THE SIZE OF THE LARGEST RECORD DESCRIPTION.
, *)
          DIAGP  N,4200 
          DIAGT  (*FIPS=3 SUPPORTS NESTED REDEFINES CLAUSES.*)
          DIAGP  N,4201 
          DIAGT  (*NUMERIC RECORD KEYS AND NUMERIC ALTERNATE RECORD KEYS
, ARE NON-STANDARD COBOL.*) 
          DIAGP  F,4202 
          DIAGT  (*THE OCCURRENCE LENGTH OF AN ITEM CANNOT EXCEED 65535 
,CHARACTERS.*)
          DIAGP  F,4203 
          DIAGT  (*ONLY THE FIRST REDEFINITION MAY CONTAIN VALUE CLAUSES
,.*)
          DIAGP  N,4205 
          DIAGT  (*FIPS=3 SUPPORTS FILLER USED AS CONDITION VARIABLE.*) 
          DIAGP  T,4275 
          DIAGT  (*THE SECOND IMPLEMENTOR-NAME IN THE ASSIGN CLAUSE IS U
,SED FOR THE LOGICAL FILE NAME OF THE INDEX FILE FOR INDEXED, DIRECT, OR
, ACTUAL-KEY FILES, WITH ALTERNATE RECORD KEYS.  IT IS IGNORED FOR THIS 
,FILE.*)
          DIAGP  W,4708 
          DIAGT  (*LINKAGE-SECTION ILLEGAL IN MAIN PROGRAM.*) 
          CENTURY   5000
          DIAGP  F,5001 
          DIAGT  (*THIS REPORT IS ASSOCIATED WITH A FILE THAT HAS BEEN D
,EFINED INCORRECTLY.*)
          DIAGP  W,5002 
          DIAGT  (*THE LEVEL NUMBER OF THIS FORMAT 2 ENTRY IS EQUAL TO O
,R GREATER THAN THE LEVEL NUMBER OF THE FORMAT 3 ENTRY PRECEDING IT.*)
          DIAGP  F,5003 
          DIAGT  (*THIS REPORT DOES NOT APPEAR IN A -REPORTS ARE- CLAUSE
, IN ANY FD.*)
          DIAGP  W,5004 
          DIAGT  (*A CODE CLAUSE LITERAL MUST BE A TWO CHARACTER NON NUM
,ERIC LITERAL. SPACES HAVE BEEN SUBSTITUTED.*)
          DIAGP  W,5005 
          DIAGT  (*THE CODE CLAUSE MUST BE INCLUDED (OR OMITTED) FOR ALL
, REPORTS IN THE SAME FILE.*) 
          DIAGP  T,5006 
          DIAGT  (*THIS CONTROL IDENTIFIER SHARES STORAGE WITH A MORE MI
,NOR ONE.*) 
          DIAGP  T,5007 
          DIAGT  (*THIS CONTROL IDENTIFIER SHARES STORAGE WITH A MORE MA
,JOR ONE.*) 
          DIAGP  W,5008 
          DIAGT  (*THE HEADING SPECIFICATION IS NOT AN UNSIGNED INTEGER.
, ITS IMPLICIT VALUE HAS BEEN ASSIGNED.*) 
          DIAGP  W,5009 
          DIAGT  (*THE HEADING INTEGER IS ZERO. ITS IMPLICIT VALUE HAS B
,EEN ASSIGNED.*)
          DIAGP  W,5010 
          DIAGT  (*THE FIRST DETAIL SPECIFICATION IS NOT AN UNSIGNED INT
,EGER. ITS IMPLICIT VALUE HAS BEEN ASSIGNED.*)
          DIAGP  W,5011 
          DIAGT  (*THE FIRST DETAIL SPECIFICATION IS ZERO. ITS IMPLICIT 
,VALUE HAS BEEN ASSIGNED.*) 
          DIAGP  W,5012 
          DIAGT  (*THE FIRST DETAIL INTEGER IS LESS THAN THE HEADING VAL
,UE OR ITS IMPLICIT VALUE OF 1. FIRST DETAIL-S IMPLICIT VALUE HAS BEEN A
,SSIGNED TO IT.*) 
          DIAGP  W,5013 
          DIAGT  (*THE LAST DETAIL SPECIFICATION IS NOT AN UNSIGNED INTE
,GER. ITS IMPLICIT VALUE HAS BEEN ASSIGNED.*) 
          DIAGP  W,5014 
          DIAGT  (*THE LAST DETAIL INTEGER IS ZERO. ITS IMPLICIT VALUE H
,AS BEEN ASSIGNED.*)
          DIAGP  W,5015 
          DIAGT  (*THE LAST DETAIL INTEGER IS TOO SMALL BASED ON OTHER P
,AGE CLAUSE SPECIFICATIONS. ITS IMPLICIT VALUE HAS BEEN ASSIGNED.*) 
          DIAGP  W,5016 
          DIAGT  (*THE FOOTING SPECIFICATION IS NOT AN UNSIGNED INTEGER.
, ITS IMPLICIT VALUE HAS BEEN ASSIGNED.*) 
          DIAGP  W,5017 
          DIAGT  (*THE FOOTING INTEGER IS ZERO. ITS IMPLICIT VALUE HAS B
,EEN ASSIGNED.*)
          DIAGP  W,5018 
          DIAGT  (*THE FOOTING INTEGER IS TOO SMALL BASED ON OTHER PAGE 
,CLAUSE SPECIFICATIONS. ITS IMPLICIT VALUE HAS BEEN ASSIGNED.*) 
          DIAGP  F,5019 
          DIAGT  (*THE PAGE LIMIT SPECIFICATION IS NOT AN UNSIGNED INTEG
,ER. THE PAGE CLAUSE IS TREATED AS IF OMITTED. THE REPORT WILL CONSIST O
,F A SINGLE PAGE OF INDEFINITE LENGTH.*)
          DIAGP  F,5020 
          DIAGT  (*THE PAGE LIMIT INTEGER IS ZERO. THE PAGE CLAUSE IS TR
,EATED AS IF OMITTED. THE REPORT WILL CONSIST OF A SINGLE PAGE OF INDEFI
,NITE LENGTH.*) 
          DIAGP  F,5021 
          DIAGT  (*THE PAGE LIMIT INTEGER IS LESS THAN ANOTHER PAGE CLAU
,SE SPECIFICATION. THE PAGE CLAUSE IS TREATED AS IF OMITTED. THE REPORT 
,WILL CONSIST OF A SINGLE PAGE OF INDEFINITE LENGTH.*)
          DIAGP  F,5022 
          DIAGT  (*THE PAGE LIMIT INTEGER EXCEEDS 3 SIGNIFICANT DIGITS I
,N LENGTH.*)
          DIAGP  W,5023 
          DIAGT  (*THIS REPORT IS NAMED IN MORE THAN ONE FD ENTRY.*)
          DIAGP  W,5024 
          DIAGT  (*THE LEVEL NUMBER MUST BE AN INTEGER BETWEEN 02 AND 48
, FOR FORMAT 2, OR BETWEEN 02 AND 49 FOR FORMAT 3.*)
          DIAGP  F,5025 
          DIAGT  (*THE FIRST ENTRY OF A REPORT GROUP MUST BE A FORMAT 1 
,ENTRY AND A TYPE CLAUSE MUST BE INCLUDED.*)
          DIAGP  F,5026 
          DIAGT  (*A FORMAT 2 OR 3 ENTRY SUBORDINATE TO A FORMAT 1 ENTRY
, IS MISSING.*) 
          DIAGP  F,5027 
          DIAGT  (*AT LEAST ONE FORMAT 3 ENTRY MUST BE IMMEDIATELY SUBOR
,DINATE TO A FORMAT 2 ENTRY.*)
          DIAGP  W,5028 
          DIAGT  (*FORMAT 3 ENTRIES MUST BE ELEMENTARY. THE LEVEL NUMBER
, OF THIS FORMAT 3 ENTRY IS NOT EQUAL TO THE LEVEL NUMBER OF THE FORMAT 
,3 ENTRY PRECEDING IT.*)
          DIAGP  W,5029 
          DIAGT  (*A FORMAT 2 ENTRY MUST CONTAIN AT LEAST ONE OPTIONAL C
,LAUSE.*) 
          DIAGP  F,5030 
          DIAGT  (*IF A USAGE CLAUSE APPEARS IN A FORMAT 3 ENTRY, THAT E
,NTRY MUST DEFINE A PRINTABLE ITEM.*) 
          DIAGP  W,5031 
          DIAGT  (*IF THE USAGE CLAUSE APPEARS IN A FORMAT 1 OR 2 ENTRY,
, AT LEAST ONE SUBORDINATE ENTRY MUST DEFINE A PRINTABLE ITEM.*)
          DIAGP  F,5032 
          DIAGT  (*THIS LINE NUMBER CLAUSE IS IN AN ENTRY SUBORDINATE TO
, ANOTHER ENTRY THAT CONTAINS A LINE NUMBER CLAUSE.*) 
          DIAGP  F,5033 
          DIAGT  (*A GROUP INDICATE CLAUSE MAY APPEAR ONLY IN A TYPE DET
,AIL REPORT GROUP.*)
          DIAGP  F,5034 
          DIAGT  (*A SUM CLAUSE MAY APPEAR ONLY IN A TYPE CONTROL FOOTIN
,G REPORT GROUP.*)
          DIAGP  F,5035 
          DIAGT  (*AN ENTRY THAT CONTAINS A COLUMN NUMBER CLAUSE BUT NO 
,LINE NUMBER CLAUSE MUST BE SUBORDINATE TO AN ENTRY THAT CONTAINS A LINE
, NUMBER CLAUSE.*)
          DIAGP  F,5036 
          DIAGT  (*IN A FORMAT 3 ENTRY A LINE NUMBER CLAUSE MUST NOT BE 
,THE ONLY CLAUSE SPECIFIED.*) 
          DIAGP  F,5037 
          DIAGT  (*IN FORMAT 3, AN ENTRY THAT CONTAINS A VALUE CLAUSE MU
,ST ALSO HAVE A COLUMN NUMBER CLAUSE.*) 
          DIAGP  F,5038 
          DIAGT  (*A VALID SOURCE, SUM, OR VALUE CLAUSE IS REQUIRED IN A
, FORMAT 3 ENTRY.*) 
          DIAGP  F,5039 
          DIAGT  (*A VALID PICTURE CLAUSE IS REQUIRED IN A FORMAT 3 ENTR
,Y.*) 
          DIAGP  F,5040 
          DIAGT  (*THIS CLAUSE COMBINATION IS NOT ALLOWED FOR A REPORT I
,TEM THAT CONTAINS A SUM CLAUSE.*)
          DIAGP  F,5041 
          DIAGT  (*THIS CLAUSE COMBINATION IS NOT ALLOWED FOR A REPORT I
,TEM THAT CONTAINS A SOURCE CLAUSE.*) 
          DIAGP  F,5042 
          DIAGT  (*THIS CLAUSE COMBINATION IS NOT ALLOWED FOR A REPORT I
,TEM THAT CONTAINS A VALUE CLAUSE*) 
          DIAGP  W,5043 
          DIAGT  (*THE JUSTIFIED CLAUSE CAN BE SPECIFIED ONLY AT THE ELE
,MENTARY ITEM LEVEL.*)
          DIAGP  W,5044 
          DIAGT  (*THE JUSTIFIED CLAUSE MAY NOT BE SPECIFIED FOR A NUMER
,IC, NUMERIC EDITED OR ALPHANUMERIC EDITED ITEM.*)
          DIAGP  W,5045 
          DIAGT  (*THE BLANK WHEN ZERO CLAUSE CAN BE USED ONLY FOR AN EL
,EMENTARY ITEM.*) 
          DIAGP  W,5046 
          DIAGT  (*THE BLANK WHEN ZERO CLAUSE CAN BE USED ONLY FOR AN IT
,EM SPECIFIED AS NUMERIC OR NUMERIC-EDITED.*) 
          DIAGP  F,5047 
          DIAGT  (*A GROUP INDICATE CLAUSE MAY APPEAR ONLY IN A DETAIL E
,NTRY THAT DEFINES A PRINTABLE ITEM.*)
          DIAGP  F,5049 
          DIAGT  (*LINE NUMBER INTEGER MUST BE AN UNSIGNED NON-ZERO INTE
,GER NOT EXCEEDING 3 SIGNIFICANT DIGITS IN LENGTH.*)
          DIAGP  F,5050 
          DIAGT  (*A RELATIVE LINE NUMBER CLAUSE MAY NOT PRECEDE ANY ABS
,OLUTE LINE NUMBER CLAUSE WITHIN A GIVEN REPORT GROUP.*)
          DIAGP  F,5051 
          DIAGT  (*WITHIN A GIVEN REPORT GROUP, SUCCESSIVE ABSOLUTE LINE
, NUMBER CLAUSES MUST SPECIFY INTEGERS THAT ARE IN ASCENDING ORDER.*) 
          DIAGP  F,5052 
          DIAGT  (*IF PAGE CLAUSE IS OMITTED IN A GIVEN RD, ONLY RELATIV
,E LINE NUMBER CLAUSES CAN BE SPECIFIED IN A REPORT GROUP WITHIN THAT RD
,.*)
          DIAGP  F,5053 
          DIAGT  (*A NEXT PAGE PHRASE CAN APPEAR ONLY ONCE IN A GIVEN RE
,PORT GROUP, AND IF PRESENT MUST BE IN THE FIRST LINE NUMBER CLAUSE.*)
          DIAGP  F,5054 
          DIAGT  (*A LINE NUMBER CLAUSE WITH A NEXT PAGE PHRASE MAY APPE
,AR ONLY IN THE DESCRIPTION OF A BODY GROUP OR A REPORT FOOTING REPORT G
,ROUP.*)
          DIAGP  F,5055 
          DIAGT  (*THE FIRST LINE NUMBER CLAUSE SPECIFIED WITHIN A PAGE 
,FOOTING REPORT GROUP MUST BE AN ABSOLUTE LINE NUMBER CLAUSE.*) 
          DIAGP  F,5056 
          DIAGT  (*A COLUMN NUMBER INTEGER MUST BE AN UNSIGNED NON-ZERO 
,INTEGER.*) 
          DIAGP  F,5057 
          DIAGT  (*WITHIN A GIVEN PRINT LINE, THE PRINTABLE ITEMS MUST B
,E DEFINED IN ASCENDING COLUMN NUMBER ORDER SUCH THAT EACH CHARACTER DEF
,INED OCCUPIES A UNIQUE POSITION.*) 
          DIAGP  T,5058 
          DIAGT  (*THE DESCRIPTION OF A PRINT LINE IN THIS REPORT GROUP 
,EXCEEDS 136 CHARACTERS.*)
          DIAGP  F,5059 
          DIAGT  (*A REPORT GROUP ENTRY MUST NOT CONTAIN A NEXT GROUP CL
,AUSE UNLESS THE DESCRIPTION OF THAT REPORT GROUP CONTAINS AT LEAST ONE 
,LINE NUMBER CLAUSE.*)
          DIAGP  F,5060 
          DIAGT  (*A NEXT GROUP INTEGER MUST BE AN UNSIGNED NON-ZERO INT
,EGER NOT EXCEEDING 3 SIGNIFICANT DIGITS IN LENGTH.*) 
          DIAGP  F,5061 
          DIAGT  (*IF THE PAGE CLAUSE IS OMITTED FROM AN RD ONLY A RELAT
,IVE NEXT GROUP CLAUSE MAY BE SPECIFIED IN ANY REPORT GROUP WITHIN THAT 
,RD.*)
          DIAGP  F,5062 
          DIAGT  (*THE NEXT PAGE PHRASE OF A NEXT GROUP CLAUSE MUST NOT 
,BE SPECIFIED IN A PAGE FOOTING REPORT GROUP.*) 
          DIAGP  F,5063 
          DIAGT  (*A NEXT GROUP CLAUSE MUST NOT BE SPECIFIED IN A REPORT
, FOOTING OR PAGE HEADING REPORT GROUP.*) 
          DIAGP  F,5064 
          DIAGT  (*RH, PH, CH-FINAL, CF-FINAL, PF, AND RF REPORT GROUPS 
,MAY EACH APPEAR ONLY ONCE IN THE DESCRIPTION OF A REPORT.*)
          DIAGP  F,5065 
          DIAGT  (*A PH OR A PF REPORT GROUP MAY BE SPECIFIED ONLY IF A 
,PAGE CLAUSE IS SPECIFIED IN THE CORRESPONDING RD ENTRY.*)
          DIAGP  T,5066 
          DIAGT  (*THE DATA NAME IN A CH OR CF TYPE CLAUSE MUST BE A VAL
,ID CONTROL DATA ITEM OF THE CORRESPONDING RD ENTRY.*)
          DIAGP  F,5067 
          DIAGT  (*ONLY ONE CH GROUP AND ONE CF GROUP CAN BE SPECIFIED F
,OR EACH DATA NAME (OR FINAL) THAT APPEARS IN THE CONTROL CLAUSE OF THE 
,RD ENTRY*) 
          DIAGP  W,5068 
          DIAGT  (*IF -FINAL- APPEARS IN A TYPE CLAUSE, IT MUST BE SPECI
,FIED IN THE CONTROL CLAUSE OF THE CORRESPONDING RD ENTRY.*)
          DIAGP  F,5069 
          DIAGT  (*IN CF, PH, PF, AND RF REPORT GROUPS, A SOURCE CLAUSE 
,MUST NOT REFERENCE A GROUP ITEM CONTAINING A CONTROL ITEM, OR A DATA IT
,EM SUBORDINATE TO A CONTROL ITEM, OR A REDEFINITION OR RENAMING OF ANY 
,PART OF A CONTROL ITEM. ALSO, IN PH AND PF REPORT GROUPS, A SOURCE CLAU
,SE MUST NOT REFERENCE A CONTROL DATA-NAME.*) 
          DIAGP  F,5070 
          DIAGT  (*LINE NUMBER SPECIFICATIONS FOR THIS RH REPORT GROUP C
,AUSE THE FINAL PRINT LINE TO EXCEED THE LOWER LIMIT OF FIRST DETAIL MIN
,US 1.*)
          DIAGP  F,5071 
          DIAGT  (*THE LINE NUMBER SPECIFICATIONS FOR THIS RH REPORT GRO
,UP CAUSE THE FINAL PRINT LINE TO EXCEED THE PAGE LIMIT.*)
          DIAGP  F,5072 
          DIAGT  (*NEXT GROUP INTEGER IN THIS REPORT GROUP MUST BE GREAT
,ER THAN THE FINAL LINE NUMBER OF THIS RH REPORT GROUP AND LESS THAN THE
, FIRST DETAIL INTEGER.*) 
          DIAGP  F,5073 
          DIAGT  (*THE SUM OF THE NEXT GROUP INTEGER AND THE NUMBER OF T
,HE FINAL PRINT LINE OF THIS RH REPORT GROUP MUST BE LESS THAN THE FIRST
, DETAIL INTEGER.*) 
          DIAGP  F,5074 
          DIAGT  (*THE FIRST LINE NUMBER ON WHICH A RH REPORT GROUP CAN 
,BE PRESENTED IS THE ONE SPECIFIED BY THE HEADING PHRASE OF THE PAGE CLA
,USE.*) 
          DIAGP  F,5075 
          DIAGT  (*THE FIRST PRINT LINE POSITION OF PAGE HEADING MUST NO
,T BE LESS THAN THE LINE NUMBER SPECIFIED BY THE HEADING PHRASE OF THE P
,AGE CLAUSE.*)
          DIAGP  F,5076 
          DIAGT  (*FIRST DETAIL MINUS 1 IS THE LAST LINE ON WHICH A PAGE
, HEADING PRINT LINE CAN BE PRESENTED.*)
          DIAGP  F,5077 
          DIAGT  (*THE FIRST LINE NUMBER ON WHICH A PF REPORT GROUP CAN 
,BE PRESENTED IS 1 GREATER THAN THE INTEGER OF THE FOOTING PHRASE.*)
          DIAGP  F,5078 
          DIAGT  (*LINE SPECIFICATIONS FOR THIS PF REPORT GROUP CAUSE TH
,E FINAL PRINT LINE TO EXCEED THE PAGE LIMIT.*) 
          DIAGP  F,5079 
          DIAGT  (*THE NEXT GROUP INTEGER IN THIS PF REPORT GROUP MUST B
,E GREATER THAN THE FINAL LINE OF THE REPORT GROUP AND LESS THAN THE PAG
,E LIMIT INTEGER.*) 
          DIAGP  F,5080 
          DIAGT  (*THE SUM OF THE NEXT GROUP INTEGER AND THE NUMBER OF T
,HE FINAL PRINT LINE OF THIS PF REPORT GROUP MUST NOT EXCEED THE PAGE LI
,MIT INTEGER.*) 
          DIAGP  F,5081 
          DIAGT  (*THE FIRST PRINT LINE POSITION OF THE REPORT FOOTING I
,S LESS THAN THE REPORT FOOTING UPPER LIMIT. THE MINIMUM LINE NUMBER INT
,EGER IS FOOTING-PHRASE-INTEGER + 1.*)
          DIAGP  F,5082 
          DIAGT  (*THE LINE NUMBER INDICATED BY PAGE LIMIT INTEGER IS TH
,E LAST LINE ON WHICH A REPORT FOOTING PRINT LINE CAN BE PRESENTED.*) 
          DIAGP  F,5083 
          DIAGT  (*THE FIRST LINE ON WHICH THIS RF REPORT GROUP CAN BE P
,RESENTED IS THE LINE NUMBER SPECIFIED BY THE HEADING PHRASE.*) 
          DIAGP  F,5084 
          DIAGT  (*A NEXT GROUP INTEGER MUST BE GREATER THAN OR EQUAL TO
, THE FIRST DETAIL INTEGER AND MUST BE LESS THAN OR EQUAL TO THE FOOTING
, PHRASE INTEGER.*) 
          DIAGP  F,5085 
          DIAGT  (*THE FIRST LINE NUMBER ON WHICH A BODY GROUP CAN BE PR
,ESENTED IS THE LINE NUMBER SPECIFIED BY THE FIRST DETAIL PHRASE.*) 
          DIAGP  F,5086 
          DIAGT  (*LINE NUMBER SPECIFICATIONS IN THIS REPORT GROUP CAUSE
, THE LOWER LIMIT RULE FOR BODY GROUPS TO BE VIOLATED. THE LAST LINE NUM
,BER ON WHICH A REPORT GROUP CAN BE PRESENTED IS SPECIFIED BY THE INTEGE
,R OF THE LAST-DETAIL PHRASE FOR A CH OR DE REPORT GROUP, AND BY THE INT
,EGER OF THE FOOTING PHRASE FOR A CF REPORT GROUP.*)
          DIAGP  T,5087 
          DIAGT  (*IF PAGE FOOTING AND REPORT FOOTING ARE PRESENTED ON T
,HE SAME PAGE, THE FIRST PRINT LINE POSITION OF RF WILL VIOLATE THE UPPE
,R LIMIT RULE FOR A REPORT FOOTING AS IT WILL NOT BE GREATER THAN THE FI
,NAL LINE COUNTER VALUE SET BY THE PF REPORT GROUP.*) 
          DIAGP  T,5088 
          DIAGT  (*IF THIS REPORT FOOTING IS PRESENTED ON THE SAME PAGE 
,AS A PAGE FOOTING,  SOME OR ALL OF ITS LINE NUMBERS WILL EXCEED THE PAG
,E LIMIT. SUCH LINES WILL NOT BE PRINTED.*) 
          DIAGP  T,5089 
          DIAGT  (*IF THIS PAGE HEADING IS PRESENTED ON THE SAME PAGE AS
, THE REPORT HEADING, ITS ABSOLUTE LINE NUMBER WILL NOT BE GREATER THAN 
,THE FINAL LINE COUNTER VALUE SET BY THE REPORT HEADING.*)
          DIAGP  T,5090 
          DIAGT  (*IF THIS PAGE HEADING IS PRESENTED ON THE SAME PAGE AS
, THE REPORT HEADING, SOME OR ALL OF ITS LINE NUMBERS WILL EXCEED FIRST-
,DETAIL-INTEGER MINUS 1. SUCH LINES WILL NOT BE PRINTED.*)
          DIAGP  W,5091 
          DIAGT  (*THE RECORD SIZE FOR THIS REPORT CONFLICTS WITH THE SI
,ZE SPECIFIED IN THE RECORD CONTAINS CLAUSE OF THE ASSOCIATED FD.*) 
          DIAGP  F,5092 
          DIAGT  (*THE DESCRIPTION OF A REPORT MUST SPECIFY AT LEAST ONE
, REPORT GROUP.*) 
          DIAGP  W,5093 
          DIAGT  (*A REPORT NAMED IN THE REPORTS CLAUSE OF AN FD ENTRY M
,UST BE THE SUBJECT OF AN RD ENTRY IN THE REPORT SECTION.*) 
          DIAGP  F,5094 
          DIAGT  (*IF A SOURCE CLAUSE IDENTIFIER IS A REPORT SECTION ITE
,M IT CAN ONLY BE PAGE-COUNTER, LINE-COUNTER, OR A SUM COUNTER OF THE RE
,PORT WITHIN WHICH THE SOURCE CLAUSE APPEARS.*) 
          DIAGP  F,5095 
          DIAGT  (*SOURCE CLAUSE IDENTIFIER-1 MUST BE DEFINED SUCH THAT 
,IT CONFORMS TO THE RULES FOR SENDING ITEMS IN THE MOVE STATEMENT.*)
          DIAGP  F,5096 
          DIAGT  (*WHEN DEFINED IN THE REPORT SECTION A SUM CLAUSE IDENT
,IFIER MUST BE THE NAME OF A SUM COUNTER.*) 
          DIAGP  F,5097 
          DIAGT  (*THE MOVE STATEMENT RULES DO NOT ALLOW THE MOVE OF THI
,S SUM COUNTER TO THE PRINTABLE ITEM. THE PICTURE CLAUSE FOR THE PRINTAB
,LE ITEM MUST BE CORRECTED.*) 
          DIAGP  F,5098 
          DIAGT  (*IF THE UPON PHRASE IS PRESENT AN IDENTIFIER IN A SUM 
,CLAUSE MUST NOT BE A SUM COUNTER.*)
          DIAGP  F,5099 
          DIAGT  (*A SUM COUNTER MUST NOT BE REFERENCED IN A SUM CLAUSE 
,UNLESS IT IS DEFINED IN THE SAME REPORT GROUP AS THAT SUM CLAUSE OR IS 
,DEFINED IN A MORE MINOR CONTROL FOOTING IN THE SAME REPORT.*)
          DIAGP  F,5100 
          DIAGT  (*EACH DATA-NAME IN AN UPON PHRASE MUST BE THE NAME OF 
,A DETAIL REPORT GROUP DESCRIBED IN THE SAME REPORT AS THE CONTROL FOOTI
,NG IN WHICH THE SUM CLAUSE APPEARS.*)
          DIAGP  W,5101 
          DIAGT  (*IF FINAL IS SPECIFIED IN THE RESET PHRASE, FINAL MUST
, ALSO APPEAR IN THE CONTROL CLAUSE FOR THIS REPORT.*)
          DIAGP  F,5102 
          DIAGT  (*RESET DATA-NAME MUST BE ONE OF THE DATA-NAMES SPECIFI
,ED IN THE CONTROL CLAUSE FOR THIS REPORT.*)
          DIAGP  F,5103 
          DIAGT  (*RESET DATA-NAME MUST NOT BE A LOWER LEVEL CONTROL THA
,N THE CONTROL ASSOCIATED WITH THE REPORT GROUP IN WHICH THIS RESET CLAU
,SE APPEARS.*)
          DIAGP  F,5104 
          DIAGT  (*THE MOVE STATEMENT RULES DO NOT ALLOW THE MOVE OF THI
,S VALUE CLAUSE LITERAL TO THE PRINTABLE ITEM. THE LITERAL OR THE PICTUR
,E CLAUSE MUST BE CORRECTED.*)
          DIAGP  F,5301 
          DIAGT  (*A KEY ELEMENT IS REQUIRED HERE.*)
          DIAGP  F,5302 
          DIAGT  (*A CODE CLAUSE IS ALLOWED ONLY IN AN RD ENTRY.*)
          DIAGP  F,5303 
          DIAGT  (*A LITERAL IS REQUIRED IN A CODE CLAUSE.*)
          DIAGP  F,5304 
          DIAGT  (*A CONTROL CLAUSE IS ALLOWED ONLY IN AN RD ENTRY.*) 
          DIAGP  W,5305 
          DIAGT  (*-ARE- IS THE ONLY OPTIONAL RESERVED WORD ALLOWED HERE
,.*)
          DIAGP  F,5306 
          DIAGT  (*A DATA NAME OR THE RESERVED WORD -FINAL- IS REQUIRED 
,IN A CONTROL CLAUSE.*) 
          DIAGP  W,5307 
          DIAGT  (*-IS- IS THE ONLY OPTIONAL RESERVED WORD ALLOWED HERE.
,*) 
          DIAGP  F,5308 
          DIAGT  (*A PAGE CLAUSE IS ALLOWED ONLY IN AN RD ENTRY.*)
          DIAGP  F,5309 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED HERE.*) 
          DIAGP  F,5310 
          DIAGT  (*THE RESERVED WORD -DETAIL- IS REQUIRED HERE.*) 
          DIAGP  F,5312 
          DIAGT  (*IN THE REPORT SECTION, LEVEL NUMBERS MUST BE IN THE R
,ANGE 01 THROUGH 49.*)
          DIAGP  F,5313 
          DIAGT  (*A LEVEL 01 REPORT GROUP ENTRY IS ONLY ALLOWED FOLLOWI
,NG AN RD ENTRY OR A LEVEL 02 THROUGH 49 REPORT GROUP ENTRY.*)
          DIAGP  F,5314 
          DIAGT  (*A LINE NUMBER CLAUSE IS ONLY ALLOWED IN A REPORT GROU
,P ENTRY.*) 
          DIAGP  F,5315 
          DIAGT  (*-ON- MUST BE FOLLOWED BY -NEXT PAGE- IN A LINE NUMBER
, CLAUSE.*) 
          DIAGP  F,5316 
          DIAGT  (*-PAGE- MUST FOLLOW -NEXT- IN A LINE NUMBER CLAUSE.*) 
          DIAGP  F,5317 
          DIAGT  (*EITHER AN INTEGER OR THE RESERVED WORD -PLUS- IS REQU
,IRED HERE IN A LINE NUMBER CLAUSE.*) 
          DIAGP  F,5318 
          DIAGT  (*A -NEXT GROUP- CLAUSE IS ALLOWED ONLY IN A LEVEL 01 R
,EPORT GROUP ENTRY.*) 
          DIAGP  F,5319 
          DIAGT  (*THE RESERVED WORD -GROUP- IS REQUIRED HERE IN A NEXT 
,GROUP CLAUSE.*)
          DIAGP  F,5320 
          DIAGT  (*AN INTEGER MUST FOLLOW -PLUS- IN A NEXT GROUP CLAUSE.
,*) 
          DIAGP  F,5321 
          DIAGT  (*A TYPE CLAUSE IS ONLY ALLOWED IN A LEVEL 01 REPORT GR
,OUP ENTRY.*) 
          DIAGP  F,5322 
          DIAGT  (*REPORT HEADING, PAGE HEADING, CONTROL HEADING, DETAIL
,, CONTROL FOOTING, PAGE FOOTING, OR REPORT FOOTING IS REQUIRED HERE.*) 
          DIAGP  F,5323 
          DIAGT  (*A USAGE CLAUSE IS ONLY ALLOWED IN A REPORT GROUP ENTR
,Y.*) 
          DIAGP  F,5324 
          DIAGT  (*-DISPLAY- IS REQUIRED HERE IN A USAGE CLAUSE.*)
          DIAGP  F,5325 
          DIAGT  (*LEVEL NUMBERS IN THE RANGE 02 THROUGH 49 ARE ONLY ALL
,OWED WHEN SUBORDINATE TO A LEVEL 01 REPORT GROUP ENTRY.*)
          DIAGP  F,5326 
          DIAGT  (*A BLANK WHEN ZERO CLAUSE IS ONLY ALLOWED IN A REPORT 
,GROUP ENTRY OF LEVEL 02 THROUGH 49.*)
          DIAGP  F,5327 
          DIAGT  (*-ZERO- IS REQUIRED IN A BLANK WHEN ZERO CLAUSE.*)
          DIAGP  F,5328 
          DIAGT  (*A COLUMN CLAUSE IS ONLY ALLOWED IN A REPORT GROUP ENT
,RY OF LEVEL 02 THROUGH 49.*) 
          DIAGP  F,5329 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED IN A COLUMN CLAUSE.*) 
          DIAGP  F,5330 
          DIAGT  (*A GROUP INDICATE CLAUSE IS ONLY ALLOWED IN A REPORT G
,ROUP ENTRY OF LEVEL 02 THROUGH 49.*) 
          DIAGP  F,5331 
          DIAGT  (*A JUSTIFIED CLAUSE IS ONLY ALLOWED IN A REPORT GROUP 
,ENTRY OF LEVEL 02 THROUGH 49.*)
          DIAGP  F,5332 
          DIAGT  (*A PICTURE CLAUSE IS ONLY ALLOWED IN A REPORT GROUP EN
,TRY OF LEVEL 02 THROUGH 49.*)
          DIAGP  F,5333 
          DIAGT  (*A PICTURE STRING IS REQUIRED IN A PICTURE CLAUSE.*)
          DIAGP  F,5334 
          DIAGT  (*A VALUE CLAUSE IS ONLY ALLOWED IN A REPORT GROUP ENTR
,Y OF LEVEL 02 THROUGH 49.*)
          DIAGP  F,5335 
          DIAGT  (*A LITERAL IS REQUIRED IN A VALUE CLAUSE.*) 
          DIAGP  F,5336 
          DIAGT  (*A SOURCE CLAUSE IS ONLY ALLOWED IN A REPORT GROUP ENT
,RY OF LEVEL 02 THROUGH 49.*) 
          DIAGP  F,5337 
          DIAGT  (*AN IDENTIFIER IS REQUIRED IN A SOURCE CLAUSE.*)
          DIAGP  F,5338 
          DIAGT  (*A SUM CLAUSE IS ONLY ALLOWED IN A REPORT GROUP ENTRY 
,OF LEVEL 02 THROUGH 49.*)
          DIAGP  F,5339 
          DIAGT  (*AN IDENTIFIER IS REQUIRED IN A SUM CLAUSE.*) 
          DIAGP  F,5340 
          DIAGT  (*A DATA NAME MUST FOLLOW -UPON- IN A SUM CLAUSE.*)
          DIAGP  F,5341 
          DIAGT  (*AN IDENTIFIER IS REQUIRED IN A RESET PHRASE.*) 
          DIAGP  F,5342 
          DIAGT  (*A RESET PHRASE IS ONLY ALLOWED IN A SUM CLAUSE.*)
          DIAGP  W,5343 
          DIAGT  (*THE REPORT SECTION HEADER MUST BE TERMINATED BY A PER
,IOD.*) 
          DIAGP  F,5344 
          DIAGT  (*AT LEAST ONE BODY GROUP IS REQUIRED IN A REPORT.*) 
          DIAGP  F,5346 
          DIAGT  (*A RIGHT PARENTHESIS OR A VALID SUBSCRIPT OR INDEX IS 
,REQUIRED HERE.*) 
          DIAGP  F,5347 
          DIAGT  (*AN INTEGER MUST FOLLOW -PLUS- IN A LINE NUMBER CLAUSE
,.*)
          DIAGP  F,5348 
          DIAGT  (*EITHER AN INTEGER, THE RESERVED WORD -PLUS- OR THE RE
,SERVED WORD -NEXT- IS REQUIRED HERE IN A NEXT GROUP CLAUSE.*)
          DIAGP  F,5349 
          DIAGT  (*-PAGE- MUST FOLLOW -NEXT- IN A NEXT PAGE PHRASE OF A 
,NEXT GROUP CLAUSE.*) 
          DIAGP  F,5350 
          DIAGT  (*EITHER -HEADING- OR -FOOTING- MUST FOLLOW -REPORT- IN
, A TYPE CLAUSE.*)
          DIAGP  F,5351 
          DIAGT  (*EITHER -HEADING- OR -FOOTING- MUST FOLLOW -PAGE- IN A
, TYPE CLAUSE.*)
          DIAGP  F,5352 
          DIAGT  (*EITHER -HEADING- OR -FOOTING- MUST FOLLOW -CONTROL- I
,N A TYPE CLAUSE.*) 
          DIAGP  F,5353 
          DIAGT  (*EITHER A DATA-NAME OR THE RESERVED WORD -FINAL- IS RE
,QUIRED IN A CONTROL-HEADING OR CONTROL-FOOTING TYPE CLAUSE.*)
          DIAGP  W,5361 
          DIAGT  (*THIS DUPLICATE CLAUSE IS IGNORED.*)
          DIAGP  F,5364 
          DIAGT  (*AN ERROR WAS DETECTED IN THE DESCRIPTION OF THIS ITEM
,. THAT ERROR MUST BE CORRECTED BEFORE THIS CLAUSE CAN BE COMPILED CORRE
,CTLY.*)
          DIAGP  F,5365 
          DIAGT  (*AN ITEM DEFINED IN THE REPORT SECTION MAY NOT BE REFE
,RENCED IN A CONTROLS CLAUSE.*) 
          DIAGP  W,5366 
          DIAGT  (*THIS DUPLICATE TERMINAL PERIOD IS IGNORED.*) 
          DIAGP  F,5367 
          DIAGT  (*A CONTROL IDENTIFIER MAY NOT BE A REPORT GROUP ITEM. 
,A CONTROL IDENTIFIER MAY NOT HAVE A SUBORDINATE ITEM THAT CONTAINS AN O
,CCURS DEPENDING ON CLAUSE.*) 
          DIAGP  F,5368 
          DIAGT  (*AN IDENTIFIER MAY ONLY BE REFERENCED ONCE WITHIN A CO
,NTROLS CLAUSE.*) 
          DIAGP  W,5369 
          DIAGT  (*A TERMINAL PERIOD MUST PRECEDE THIS CLAUSE.*)
          DIAGP  W,5370 
          DIAGT  (*THIS CLAUSE APPEARS AFTER A TERMINAL PERIOD.*) 
          DIAGP  F,5371 
          DIAGT  (*ONLY ONE OF SOURCE, SUM, OR VALUE CLAUSE MAY APPEAR F
,OR AN ITEM. THIS VALUE CLAUSE IS IGNORED.*)
          DIAGP  F,5372 
          DIAGT  (*ONLY ONE OF SOURCE, SUM, OR VALUE CLAUSE MAY APPEAR F
,OR AN ITEM. THIS SOURCE CLAUSE IS IGNORED.*) 
          DIAGP  F,5373 
          DIAGT  (*LINE-COUNTER MUST BE QUALIFIED WHEN THERE IS MORE THA
,N ONE REPORT.*)
          DIAGP  F,5374 
          DIAGT  (*THE QUALIFIER FOR LINE-COUNTER MUST BE A REPORT NAME.
,*) 
          DIAGP  W,5375 
          DIAGT  (*LINE COUNTER QUALIFIER NOT AN RD THAT IS ASSOCIATED W
,ITH AN FD; SOURCE CLAUSE IGNORED.*)
          DIAGP  F,5376 
          DIAGT  (*PAGE-COUNTER MUST BE QUALIFIED WHEN THERE IS MORE THA
,N ONE REPORT.*)
          DIAGP  F,5377 
          DIAGT  (*THE QUALIFIER FOR PAGE-COUNTER MUST BE A REPORT NAME.
,*) 
          DIAGP  F,5378 
          DIAGT  (*PAGE COUNTER QUALIFIER NOT AN RD THAT IS ASSOCIATED W
,ITH AN FD; SOURCE CLAUSE IGNORED.*)
          DIAGP  F,5380 
          DIAGT  (*SUBSCRIPT NOT AN INTEGER OR INDEX-NAME.*)
          DIAGP  F,5381 
          DIAGT  (*A SUBSCRIPT MAY NOT BE SUBSCRIPTED.*)
          DIAGP  F,5382 
          DIAGT  (*THIS INDEX-NAME IS NOT ASSOCIATED WITH THIS IDENTIFIE
,R.*) 
          DIAGP  F,5384 
          DIAGT  (*SUBSCRIPTS AND INDEX-NAMES MAY NOT BE MIXED.*) 
          DIAGP  W,5385 
          DIAGT  (*A SUBSCRIPT MAY NOT HAVE A RELATIVE INCREMENT.*) 
          DIAGP  F,5386 
          DIAGT  (*A RELATIVE INDEX INCREMENT MUST BE AN UNSIGNED INTEGE
,R LITERAL.*) 
          DIAGP  F,5388 
          DIAGT  (*A LITERAL SUBSCRIPT MUST BE A POSITIVE OR UNSIGNED IN
,TEGER.*) 
          DIAGP  F,5389 
          DIAGT  (*ONLY ONE OF SOURCE, SUM, OR VALUE CLAUSE MAY APPEAR F
,OR AN ITEM. THIS SUM CLAUSE IS IGNORED.*)
          DIAGP  W,5390 
          DIAGT  (*ONLY ONE OF SOURCE, SUM OR VALUE CLAUSE MAY APPEAR FO
,R AN ITEM.*) 
          DIAGP  F,5392 
          DIAGT  (*THIS SOURCE CLAUSE IS IGNORED BECAUSE OF A SUBSCRIPT 
,ERROR.*) 
          DIAGP  F,5393 
          DIAGT  (*THE DATA NAME REFERENCED IN THIS SUM CLAUSE IS EITHER
, UNDEFINED OR IS NOT PROPERLY QUALIFIED.*) 
          DIAGP  F,5394 
          DIAGT  (*THIS UPON PHRASE IS IGNORED. IT IS EITHER A DUPLICATE
, PHRASE OR ELSE HAS NO DEFINED SUM IDENTIFIER PRECEDING IT.*)
          DIAGP  F,5396 
          DIAGT  (*A SUBSCRIPT MAY NOT BE A REPORT SECTION ITEM.*)
          DIAGP  F,5397 
          DIAGT  (*AN ITEM DEFINED IN THE REPORT SECTION MAY NOT BE USED
, AS A SUBSCRIPT.*) 
          DIAGP  W,5400 
          DIAGT  (*THIS DUPLICATE PHRASE IS IGNORED.*)
          DIAGP  F,5401 
          DIAGT  (*NO SUBSCRIPTS ARE REQUIRED.*)
          DIAGP  F,5402 
          DIAGT  (*ONE SUBSCRIPT IS REQUIRED.*) 
          DIAGP  F,5403 
          DIAGT  (*TWO SUBSCRIPTS ARE REQUIRED.*) 
          DIAGP  F,5404 
          DIAGT  (*THREE SUBSCRIPTS ARE REQUIRED.*) 
          DIAGP  F,5405 
          DIAGT  (*THE DEFINITION OF THIS INDEX-NAME REQUIRES THAT IT AP
,PEAR IN THE FIRST INDEX POSITION.*)
          DIAGP  F,5406 
          DIAGT  (*THE DEFINITION OF THIS INDEX-NAME REQUIRES THAT IT AP
,PEAR IN THE SECOND INDEX POSITION.*) 
          DIAGP  F,5407 
          DIAGT  (*THE DEFINITION OF THIS INDEX-NAME REQUIRES THAT IT AP
,PEAR IN THE THIRD INDEX POSITION.*)
          DIAGP  F,5408 
          DIAGT  (*THE -BLANK WHEN ZERO- CLAUSE CANNOT BE SPECIFIED FOR 
,AN ITEM WHOSE PICTURE CONTAINS AN ASTERISK.  THE -BLANK WHEN ZERO- CLAU
,SE IS IGNORED.*) 
          DIAGP  N,5500 
          DIAGT  (*THE REPORT WRITER MODULE IS NOT SUPPORTED IN ANY LEVE
,L OF FEDERAL STANDARD COBOL.*) 
          DIAGP  F,5984 
          DIAGT  (*THIS SPECIAL REGISTER NAME REFERENCE IS AMBIGUOUS. TH
,E NAME IS MULTIPLY DEFINED OR THE REFERENCE IS INCORRECTLY QUALIFIED.*)
          DIAGP  F,5985 
          DIAGT  (*UNDEFINED SPECIAL REGISTER NAME REFERENCE.*) 
          DIAGP  N,5986 
          DIAGT  (*FIPS=3 SUPPORTS THE SEPARATORS COMMA AND SEMICOLON.*)
          DIAGP  F,5990 
          DIAGT  (*THIS DATA NAME REFERENCE IS AMBIGUOUS. THE NAME IS MU
,LTIPLY DEFINED OR THE REFERENCE IS NOT PROPERLY QUALIFIED.*) 
          DIAGP  F,5994 
          DIAGT  (*UNDEFINED DATA NAME REFERENCE.*) 
          DIAGP  W,5995 
          DIAGT  (*THIS ELEMENT MUST BEGIN IN THE A AREA.*) 
          DIAGP  T,5999 
          DIAGT  (*A COMMA OR SEMICOLON IS NOT ALLOWED HERE.*)
          CENTURY   6000
          DIAGP  C,6001 
          DIAGT  (*COMPILER ERROR.*)
          CENTURY   7000
          DIAGP  F,7001 
          DIAGT  (*A COBOL CONDITION IS REQUIRED HERE.*)
          DIAGP  F,7002 
          DIAGT  (*AN INDEX DATA ITEM CANNOT APPEAR AS AN OPERAND IN A M
,OVE, ACCEPT OR READ INTO STATEMENT.*)
          DIAGP  T,7003 
          DIAGT  (*THIS STATEMENT CANNOT BE EXECUTED BECAUSE IT FOLLOWS 
,A GO STATEMENT.*)
          DIAGP  F,7004 
          DIAGT  (*THE RESERVED WORD -SENTENCE- IS REQUIRED HERE.*) 
          DIAGP  F,7005 
          DIAGT  (*AN INDEX-NAME CANNOT APPEAR AS AN OPERAND IN A MOVE, 
,ACCEPT OR READ INTO STATEMENT.*) 
          DIAGP  F,7006 
          DIAGT  (*A COBOL STATEMENT MUST FOLLOW THE CONDITION IN AN IF 
,STATEMENT.*) 
          DIAGP  F,7007 
          DIAGT  (*THIS ELEMENT DOES NOT APPEAR IN ANY LEGAL CONTEXT.*) 
          DIAGP  F,7008 
          DIAGT  (*A COBOL STATEMENT MUST FOLLOW THE WORD -ELSE- IN AN I
,F STATEMENT.*) 
          DIAGP  F,7009 
          DIAGT  (*A LEFT PARENTHESIS HAS BEEN USED INCORRECTLY.  IT IS 
,NOT PART OF AN ARITHMETIC EXPRESSION AND IT IS NOT PART OF A CONDITION.
,*) 
          DIAGP  F,7010 
          DIAGT  (*THE OBJECT OF A RELATIONAL CONDITION IS INVALID OR MI
,SSING.*) 
          DIAGP  F,7011 
          DIAGT  (*A RIGHT PARENTHESIS IS MISSING IN A CONDITION.*) 
          DIAGP  F,7012 
          DIAGT  (*THE WORD -IS- HAS NOT BEEN FOLLOWED BY A VALID CONDIT
,ION TYPE.*)
          DIAGP  F,7013 
          DIAGT  (*THE WORD -NOT- HAS NOT BEEN FOLLOWED BY A VALID CONDI
,TION TYPE.*) 
          DIAGP  F,7014 
          DIAGT  (*THE CONDITION FOLLOWING A LOGICAL OPERATOR IS INVALID
, OR MISSING.*) 
          DIAGP  F,7015 
          DIAGT  (*THE CONDITION FOLLOWING A LOGICAL -NOT- IS INVALID OR
, MISSING.*)
          DIAGP  F,7016 
          DIAGT  (*A RIGHT PARENTHESIS IS MISSING IN AN ARITHMETIC EXPRE
,SSION.*) 
          DIAGP  F,7017 
          DIAGT  (/THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE **
, OPERATOR./) 
          DIAGP  F,7018 
          DIAGT  (/THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE * 
,OPERATOR./)
          DIAGP  F,7019 
          DIAGT  (*THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE / 
,OPERATOR.*)
          DIAGP  F,7020 
          DIAGT  (*THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE + 
,OPERATOR.*)
          DIAGP  F,7021 
          DIAGT  (*THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE - 
,OPERATOR.*)
          DIAGP  F,7022 
          DIAGT  (*THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE UN
,ARY MINUS OPERATOR.*)
          DIAGP  F,7023 
          DIAGT  (*THIS SUBSCRIPT IS INVALID. AN INTEGER LITERAL, AN INT
,EGER DATA-NAME, OR AN INDEX-NAME IS REQUIRED HERE.*) 
          DIAGP  F,7024 
          DIAGT  (*THIS RELATIVE INDEX IS INCORRECT. AN UNSIGNED INTEGER
, NUMERIC LITERAL IS REQUIRED HERE.*) 
          DIAGP  F,7025 
          DIAGT  (*THE ARITHMETIC EXPRESSION IS INVALID FOLLOWING THE LE
,FT PARENTHESIS.*)
          DIAGP  F,7026 
          DIAGT  (*A NON-DATA ITEM CANNOT APPEAR AS AN OPERAND IN AN INI
,TIALIZE, MOVE, ACCEPT, READ INTO OR WRITE FROM STATEMENT.*)
          DIAGP  F,7027 
          DIAGT  (*AN ALPHABETIC DATA ITEM CANNOT BE MOVED TO A NUMERIC 
,EDITED RECEIVING FIELD.*)
          DIAGP  F,7028 
          DIAGT  (*A COMP-4 ITEM CANNOT BE USED AS A KEY IN A SORT OR ME
,RGE STATEMENT.*) 
          DIAGP  N,7029 
          DIAGT  (*ANSI RULES SPECIFY AN EXIT PROGRAM STATEMENT MUST APP
,EAR IN A SENTENCE BY ITSELF, AND IN A PARAGRAPH BY ITSELF.*) 
          DIAGP  N,7030 
          DIAGT  (*THE IN-LINE PERFORM IS NON-STANDARD COBOL.*) 
          DIAGP  F,7031 
          DIAGT  (*AN IDENTIFIER OR AN INDEX-NAME MUST FOLLOW THE RESERV
,ED WORD VARYING IN A PERFORM STATEMENT.*)
          DIAGP  F,7032 
          DIAGT  (*THE RESERVED WORD -FROM- IS REQUIRED HERE.*) 
          DIAGP  F,7033 
          DIAGT  (*AN IDENTIFIER, INDEX-NAME, OR LITERAL IS REQUIRED FOL
,LOWING THE RESERVED WORD FROM IN A PERFORM VARYING STATEMENT.*)
          DIAGP  F,7034 
          DIAGT  (*THE RESERVED WORD -BY- IS REQUIRED HERE.*) 
          DIAGP  F,7035 
          DIAGT  (*THE INCREMENT IN A PERFORM VARYING STATEMENT MUST BE 
,AN IDENTIFIER OR A LITERAL.*)
          DIAGP  F,7036 
          DIAGT  (*THE RESERVED WORD -UNTIL- IS REQUIRED HERE.*)
          DIAGP  F,7037 
          DIAGT  (*THE RESERVED WORD -TIMES- IS REQUIRED HERE.*)
          DIAGP  W,7038 
          DIAGT  (*AN EXIT STATEMENT MUST APPEAR IN A SENTENCE BY ITSELF
, AND IN A PARAGRAPH BY ITSELF.*) 
          DIAGP  F,7039 
          DIAGT  (*AN ALPHABETIC DATA ITEM CANNOT BE MOVED TO A NUMERIC 
,RECEIVING FIELD.*) 
          DIAGP  F,7040 
          DIAGT  (*THE SUBJECT IS MISSING IN A RELATION CONDITION.*)
          DIAGP  F,7041 
          DIAGT  (*THE RESERVED WORD -SIZE- IS REQUIRED HERE.*) 
          DIAGP  W,7042 
          DIAGT  (*THE PROCEDURE DIVISION HEADER MUST BE FOLLOWED BY A P
,ERIOD.*) 
          DIAGP  W,7043 
          DIAGT  (*A SECTION HEADER IS REQUIRED HERE.*) 
          DIAGP  W,7044 
          DIAGT  (*A PARAGRAPH NAME DEFINITION MUST BE FOLLOWED BY A PER
,IOD.*) 
          DIAGP  W,7045 
          DIAGT  (*A SECTION NAME DEFINITION MUST BE FOLLOWED BY A PERIO
,D.*) 
          DIAGP  W,7046 
          DIAGT  (*A PARAGRAPH NAME DEFINITION IS REQUIRED HERE. EVERY S
,TATEMENT EXCEPT THE USE STATEMENT MUST BE IN A PARAGRAPH.*)
          DIAGP  F,7047 
          DIAGT  (*A CONSTANT SUBSCRIPT MUST NOT EXCEED THE MAXIMUM NUMB
,ER OF OCCURRENCES SPECIFIED IN THE OCCURS CLAUSE.*)
          DIAGP  F,7048 
          DIAGT  (*AN ALPHABETIC DATA ITEM CANNOT BE MOVED TO A BOOLEAN 
,RECEIVING FIELD.*) 
          DIAGP  F,7049 
          DIAGT  (*AN ALPHANUMERIC EDITED DATA ITEM CANNOT BE MOVED TO A
, BOOLEAN RECEIVING FIELD.*)
          DIAGP  F,7050 
          DIAGT  (*AN ALPHANUMERIC EDITED DATA ITEM CANNOT BE MOVED TO A
, NUMERIC EDITED RECEIVING FIELD.*) 
          DIAGP  F,7051 
          DIAGT  (*A LITERAL SUBSCRIPT MUST BE A POSITIVE OR UNSIGNED IN
,TEGER.*) 
          DIAGP  F,7052 
          DIAGT  (*THIS INDEX-NAME IS NOT ASSOCIATED WITH THIS IDENTIFIE
,R.*) 
          DIAGP  W,7053 
          DIAGT  (*SUBSCRIPTS AND INDEX-NAMES MAY NOT BE MIXED IN THE SA
,ME IDENTIFIER.*) 
          DIAGP  F,7054 
          DIAGT  (*AN ALPHANUMERIC EDITED DATA ITEM CANNOT BE MOVED TO A
, NUMERIC RECEIVING FIELD.*)
          DIAGP  F,7055 
          DIAGT  (*A SUBSCRIPT MAY NOT BE SUBSCRIPTED.*)
          DIAGP  F,7056 
          DIAGT  (*A NUMERIC EDITED DATA ITEM CANNOT BE MOVED TO AN ALPH
,ABETIC RECEIVING FIELD.*)
          DIAGP  F,7057 
          DIAGT  (*A NUMERIC EDITED DATA ITEM CANNOT BE MOVED TO A NUMER
,IC EDITED RECEIVING FIELD.*) 
          DIAGP  F,7058 
          DIAGT  (*A LITERAL OR IDENTIFIER IS REQUIRED HERE.*)
          DIAGP  F,7059 
          DIAGT  (*A NON NUMERIC LITERAL OR FIGURATIVE CONSTANT MUST FOL
,LOW THE RESERVED WORD -ALL-.*) 
          DIAGP  F,7060 
          DIAGT  (*A NUMERIC EDITED DATA ITEM CANNOT BE MOVED TO A NUMER
,IC RECEIVING FIELD.*)
          DIAGP  F,7061 
          DIAGT  (*A NUMERIC DATA ITEM CANNOT BE MOVED TO AN ALPHABETIC 
,RECEIVING FIELD.*) 
          DIAGP  F,7062 
          DIAGT  (*A DATA-NAME DEFINED IN THE REPORT SECTION MAY ONLY BE
, REFERENCED BY A GENERATE OR USE BEFORE REPORTING STATEMENT.*) 
          DIAGP  F,7063 
          DIAGT  (*A NUMERIC EDITED DATA ITEM CANNOT BE MOVED TO A BOOLE
,AN RECEIVING FIELD.*)
          DIAGP  F,7064 
          DIAGT  (*A NUMERIC DATA ITEM CANNOT BE MOVED TO A BOOLEAN RECE
,IVING FIELD.*) 
          DIAGP  F,7065 
          DIAGT  (*A NUMERIC LITERAL, THE FIGURATIVE CONSTANT -ZERO- , A
, NUMERIC DATA ITEM, OR A NUMERIC EDITED DATA ITEM MAY NOT BE MOVED TO A
,N ALPHABETIC DATA ITEM.*)
          DIAGP  F,7066 
          DIAGT  (*A DATA ITEM CANNOT BE REFERENCED IN A STATEMENT WITH 
,THE CORRESPONDING OPTION IF ITS DESCRIPTION CONTAINS THE REDEFINES CLAU
,SE.*)
          DIAGP  W,7067 
          DIAGT  (*THE OPERATOR -NOT UNEQUAL- IS NOT UNEQUAL TO EQUALS. 
,*) 
          DIAGP  F,7068 
          DIAGT  (*A MOVE STATEMENT OPERAND DEFINED IN THE SECONDARY-STO
,RAGE SECTION MUST BE NON-EDITED AND ALPHANUMERIC.*)
          DIAGP  F,7069 
          DIAGT  (*THE RESERVED WORD -ERROR- IS REQUIRED HERE.*)
          DIAGP  F,7070 
          DIAGT  (*AN IMPERATIVE STATEMENT IS REQUIRED TO COMPLETE THE O
,N SIZE ERROR PHRASE.*) 
          DIAGP  N,7071 
          DIAGT  (*WHEN THE EQUALITY OPERATOR IS NOT SPECIFIED IN THE KE
,Y PHRASE OF A START STATEMENT, THE USE OF A PARTIAL KEY WHICH IS NOT AL
,PHANUMERIC IS NON-STANDARD COBOL.*)
          DIAGP  F,7072 
          DIAGT  (*THE PRECEDING GO TO STATEMENT MUST APPEAR IN A PARAGR
,APH BY ITSELF.*) 
          DIAGP  F,7073 
          DIAGT  (*A NUMERIC LITERAL CANNOT BE MOVED TO A BOOLEAN RECEIV
,ING FIELD.*) 
          DIAGP  F,7074 
          DIAGT  (*AN INTEGER ELEMENTARY NUMERIC ITEM IS REQUIRED IN THE
, GO TO DEPENDING ON PHRASE.*)
          DIAGP  F,7075 
          DIAGT  (*THE FIGURATIVE CONSTANT SPACES CANNOT BE MOVED TO A B
,OOLEAN RECEIVING FIELD.*)
          DIAGP  F,7076 
          DIAGT  (*A NUMERIC NON INTEGER DATA ITEM CANNOT BE MOVED TO AN
, ALPHANUMERIC RECEIVING FIELD.*) 
          DIAGP  F,7077 
          DIAGT  (*A NUMERIC NON INTEGER DATA ITEM CANNOT BE MOVED TO AN
, ALPHANUMERIC EDITED RECEIVING FIELD.*)
          DIAGP  F,7078 
          DIAGT  (*THE RESERVED WORD -OVERFLOW- IS REQUIRED HERE.*) 
          DIAGP  F,7079 
          DIAGT  (*A LITERAL OR AN IDENTIFIER IS REQUIRED HERE.*) 
          DIAGP  F,7080 
          DIAGT  (*AN IDENTIFIER IS REQUIRED HERE.*)
          DIAGP  F,7081 
          DIAGT  (*THIS OPERAND MUST BE NUMERIC.*)
          DIAGP  F,7082 
          DIAGT  (*THIS OPERAND MUST BE NUMERIC OR NUMERIC-EDITED.*)
          DIAGP  N,7083 
          DIAGT  (*SERIES IDENTIFIERS ARE NOT ALLOWED IN THE ADD CORRESP
,ONDING STATEMENT NOR IN THE SUBTRACT CORRESPONDING STATEMENT.*)
          DIAGP  F,7084 
          DIAGT  (*AN IMPERATIVE STATEMENT IS REQUIRED TO COMPLETE THE O
,N OVERFLOW PHRASE.*) 
          DIAGP  F,7085 
          DIAGT  (*THE RESERVED WORD -GIVING- IS REQUIRED HERE.*) 
          DIAGP  F,7086 
          DIAGT  (*THE RESERVED WORD -BY- IS REQUIRED HERE.*) 
          DIAGP  F,7087 
          DIAGT  (*THE RESERVED WORD -INTO- OR THE RESERVED WORD -BY- IS
, REQUIRED HERE.*)
          DIAGP  W,7088 
          DIAGT  (*THIS STATEMENT MUST BE AN IMPERATIVE STATEMENT.*)
          DIAGP  F,7089 
          DIAGT  (*A NUMERIC LITERAL CANNOT BE MOVED TO AN ALPHABETIC RE
,CEIVING FIELD.*) 
          DIAGP  F,7090 
          DIAGT  (*THE RESERVED WORD -TO- IS REQUIRED HERE.*) 
          DIAGP  N,7091 
          DIAGT  (*NESTED SEARCH STATEMENTS ARE NON-STANDARD COBOL.*) 
          DIAGP  F,7092 
          DIAGT  (*A DATA NAME SUBSCRIPT MUST BE AN INTEGER ELEMENTARY N
,UMERIC ITEM.*) 
          DIAGP  F,7093 
          DIAGT  (*A NUMERIC NON INTEGER LITERAL CANNOT BE MOVED TO AN A
,LPHANUMERIC RECEIVING FIELD.*) 
          DIAGP  C,7094 
          DIAGT  (*COMPILER ERROR.*)
          DIAGP  F,7095 
          DIAGT  (*A NUMERIC NON INTEGER LITERAL CANNOT BE MOVED TO AN A
,LPHANUMERIC EDITED RECEIVING FIELD.*)
          DIAGP  F,7096 
          DIAGT  (*THE FIGURATIVE CONSTANT ZERO CANNOT BE MOVED TO AN AL
,PHABETIC RECEIVING FIELD.*)
          DIAGP  F,7097 
          DIAGT  (*THE FIGURATIVE CONSTANT SPACES CANNOT BE MOVED TO A N
,UMERIC EDITED RECEIVING FIELD.*) 
          DIAGP  F,7098 
          DIAGT  (*THE FIGURATIVE CONSTANT SPACES CANNOT BE MOVED TO A N
,UMERIC RECEIVING FIELD.*)
          DIAGP  F,7099 
          DIAGT  (*NEITHER A BOOLEAN LITERAL NOR A BOOLEAN DATA ITEM CAN
, BE MOVED TO AN ALPHABETIC RECEIVING FIELD.*)
          DIAGP  F,7100 
          DIAGT  (*NEITHER A BOOLEAN LITERAL NOR A BOOLEAN DATA ITEM CAN
, BE MOVED TO A NUMERIC EDITED RECEIVING FIELD.*) 
          DIAGP  F,7101 
          DIAGT  (*NEITHER A BOOLEAN LITERAL NOR A BOOLEAN DATA ITEM CAN
, BE MOVED TO A NUMERIC RECEIVING FIELD.*)
          DIAGP  F,7104 
          DIAGT  (*THE DEFINITION OF THIS INDEX-NAME REQUIRES THAT IT AP
,PEAR IN THE FIRST INDEX POSITION.*)
          DIAGP  F,7105 
          DIAGT  (*THE DEFINITION OF THIS INDEX-NAME REQUIRES THAT IT AP
,PEAR IN THE SECOND INDEX POSITION.*) 
          DIAGP  F,7106 
          DIAGT  (*THE DEFINITION OF THIS INDEX-NAME REQUIRES THAT IT AP
,PEAR IN THE THIRD INDEX POSITION.*)
          DIAGP  F,7107 
          DIAGT  (*THE COMPARISON OF A GROUP ITEM AND A BOOLEAN ITEM IS 
,NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7108 
          DIAGT  (*ALPHABETIC, ALPHANUMERIC, NUMERIC, ALPHANUMERIC-EDITE
,D OR NUMERIC-EDITED MUST FOLLOW REPLACING IN THE INITIALIZE STATEMENT. 
,*) 
          DIAGP  F,7109 
          DIAGT  (*THE RESERVED WORD -BY- OR THE RESERVED WORDS -DATA BY
,- ARE REQUIRED HERE.*) 
          DIAGP  F,7110 
          DIAGT  (*IN THE INITIALIZE STATEMENT, IT IS REQUIRED THAT A LI
,TERAL OR AN IDENTIFIER FOLLOW THE RESERVED WORD -BY-.*)
          DIAGP  F,7111 
          DIAGT  (*A MNEMONIC NAME IS REQUIRED HERE.*)
          DIAGP  F,7112 
          DIAGT  (*THE COMPARISON OF A NON NUMERIC LITERAL AND A BOOLEAN
, ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7113 
          DIAGT  (*IN THE ACCEPT STATEMENT, THE RESERVED WORD FROM MUST 
,BE FOLLOWED BY DATE, DAY, TIME, DAY-OF-WEEK, OR A MNEMONIC-NAME.*) 
          DIAGP  F,7114 
          DIAGT  (*THE COMPARISON OF A NON NUMERIC DATA ITEM AND A BOOLE
,AN ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7115 
          DIAGT  (*THE COMPARISON OF AN INTEGER DISPLAY ITEM AND A BOOLE
,AN ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7116 
          DIAGT  (*A GO TO STATEMENT IN AN INDEPENDENT SEGMENT MUST NOT 
,BE REFERENCED BY AN ALTER STATEMENT IN A SECTION WITH A DIFFERENT SEGME
,NT NUMBER.*) 
          DIAGP  F,7117 
          DIAGT  (*THIS PARAGRAPH CANNOT BE ALTERED.*)
          DIAGP  F,7118 
          DIAGT  (*THIS PARAGRAPH MUST BE ALTERED.*)
          DIAGP  F,7119 
          DIAGT  (*A CORRESPONDING OPERAND MUST BE A GROUP ITEM.*)
          DIAGP  F,7120 
          DIAGT  (*THE RESERVED WORD -FROM- IS REQUIRED HERE.*) 
          DIAGP  F,7121 
          DIAGT  (*THE RESERVED WORD -DEPENDING- IS REQUIRED HERE.*)
          DIAGP  F,7122 
          DIAGT  (*THE COMPARISON OF AN INTEGER LITERAL AND A BOOLEAN IT
,EM IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7123 
          DIAGT  (*THE COMPARISON OF A NUMERIC NON INTEGER LITERAL AND A
, BOOLEAN ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7124 
          DIAGT  (*THIS GO TO STATEMENT MUST APPEAR IN A PARAGRAPH BY IT
,SELF.*)
          DIAGP  F,7125 
          DIAGT  (*A LITERAL APPEARS OUT OF CONTEXT.*)
          DIAGP  F,7126 
          DIAGT  (*AN ARITHMETIC OPERATOR APPEARS OUT OF CONTEXT.*) 
          DIAGP  F,7127 
          DIAGT  (*A RELATIONAL OPERATOR APPEARS OUT OF CONTEXT.*)
          DIAGP  F,7128 
          DIAGT  (*A PERIOD APPEARS OUT OF CONTEXT.*) 
          DIAGP  F,7129 
          DIAGT  (*A LEFT PARENTHESIS APPEARS OUT OF CONTEXT.*) 
          DIAGP  F,7130 
          DIAGT  (*A RIGHT PARENTHESIS APPEARS OUT OF CONTEXT.*)
          DIAGP  F,7131 
          DIAGT  (*THE COMPARISON OF A NUMERIC DATA ITEM AND A BOOLEAN I
,TEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7132 
          DIAGT  (*A CONDITION NAME APPEARS OUT OF CONTEXT.*) 
          DIAGP  W,7133 
          DIAGT  (*AN IF STATEMENT MUST BE TERMINATED BY A PERIOD.*)
          DIAGP  F,7134 
          DIAGT  (*NO SUBSCRIPTS ARE REQUIRED.*)
          DIAGP  F,7135 
          DIAGT  (*ONE SUBSCRIPT IS REQUIRED.*) 
          DIAGP  F,7136 
          DIAGT  (*TWO SUBSCRIPTS ARE REQUIRED.*) 
          DIAGP  F,7137 
          DIAGT  (*THREE SUBSCRIPTS ARE REQUIRED.*) 
          DIAGP  F,7138 
          DIAGT  (*THE SUBJECT OF A CLASS CONDITION MUST BE AN IDENTIFIE
,R.*) 
          DIAGP  F,7139 
          DIAGT  (*A SIGN CONDITION MAY NOT HAVE AN IMPLIED SUBJECT.*)
          DIAGP  F,7140 
          DIAGT  (*A CLASS CONDITION MAY NOT HAVE AN IMPLIED SUBJECT.*) 
          DIAGP  F,7141 
          DIAGT  (*IN FORMAT 1 OF THE SET STATEMENT, AN IDENTIFIER THAT 
,APPEARS IN THE SENDING FIELD MUST BE AN INDEX NAME, AN INDEX DATA ITEM,
, OR AN INTEGER DATA ITEM.*)
          DIAGP  F,7142 
          DIAGT  (*A FILE-NAME IS REQUIRED HERE.*)
          DIAGP  F,7143 
          DIAGT  (*IN FORMAT 2 OF THE SET STATEMENT, EACH RECEIVING FIEL
,D MUST BE AN INDEX NAME.*) 
          DIAGP  F,7144 
          DIAGT  (*IN FORMAT 1 OF THE SET STATEMENT, EACH RECEIVING FIEL
,D MUST BE AN INDEX NAME WHEN THE SENDING FIELD IS A LITERAL OR INTEGER 
,DATA ITEM.*) 
          DIAGP  F,7145 
          DIAGT  (*EACH RECEIVING FIELD IN A COMPUTE STATEMENT MUST BE A
,N IDENTIFIER.*)
          DIAGP  F,7146 
          DIAGT  (*IN FORMAT 1 OF THE SET STATEMENT, EACH RECEIVING FIEL
,D MUST BE AN INDEX NAME OR AN INDEX DATA ITEM WHEN THE SENDING FIELD IS
, AN INDEX DATA ITEM.*) 
          DIAGP  F,7147 
          DIAGT  (*IN FORMAT 1 OF THE SET STATEMENT, EACH RECEIVING FIEL
,D MUST BE AN INDEX NAME, AN INDEX DATA ITEM, OR AN INTEGER DATA ITEM WH
,EN THE SENDING FIELD IS AN INDEX NAME.*) 
          DIAGP  F,7148 
          DIAGT  (*IN THE SET STATEMENT, THE RESERVED WORD SET MUST BE F
,OLLOWED BY AN INDEX-NAME, AN IDENTIFIER, A MNEMONIC-NAME, SORT, MERGE, 
,SORT-MERGE, PROGRAM, OR CODE-SET.*)
          DIAGP  F,7149 
          DIAGT  (*IN THE SET STATEMENT, THE PRECEDING OPERAND OR OPERAN
,DS MUST BE FOLLOWED BY TO, ON, OFF, UP BY, OR DOWN BY.*) 
          DIAGP  F,7150 
          DIAGT  (*AN ALPHABET-NAME IS REQUIRED HERE.*) 
          DIAGP  F,7151 
          DIAGT  (*IN THE SET STATEMENT, IT IS REQUIRED THAT A LITERAL O
,R AN IDENTIFIER FOLLOW THE WORDS TO, UP BY, OR DOWN BY.*)
          DIAGP  F,7152 
          DIAGT  (*A LITERAL THAT APPEARS AS THE SENDING FIELD IN A FORM
,AT 2 SET STATEMENT MUST BE AN INTEGER.*) 
          DIAGP  F,7153 
          DIAGT  (*IN FORMAT 1 OF THE SET STATEMENT, A LITERAL IN THE SE
,NDING FIELD MUST BE AN INTEGER THAT IS GREATER THAN ZERO.*)
          DIAGP  F,7154 
          DIAGT  (*IN FORMAT 2 OF THE SET STATEMENT, AN IDENTIFIER THAT 
,APPEARS IN THE SENDING FIELD MUST BE AN INTEGER DATA ITEM.*) 
          DIAGP  F,7155 
          DIAGT  (*THE RESERVED WORD -TO- IS REQUIRED HERE.*) 
          DIAGP  F,7156 
          DIAGT  (*THE COMPUTE STATEMENT RECEIVING IDENTIFIERS MUST BE F
,OLLOWED BY -FROM-, -EQUALS-, OR -=-.*) 
          DIAGP  F,7157 
          DIAGT  (*THE RIGHT SIDE OF A COMPUTE STATEMENT MUST BE AN IDEN
,TIFIER, A LITERAL, OR AN ARITHMETIC EXPRESSION.*)
          DIAGP  F,7158 
          DIAGT  (*IN FORMAT 1 OF THE SET STATEMENT, EACH RECEIVING FIEL
,D MUST BE AN INDEX NAME, AN INDEX DATA ITEM, OR AN INTEGER DATA ITEM.*)
          DIAGP  F,7159 
          DIAGT  (*-TALLYING- OR -REPLACING- IS REQUIRED HERE.*)
          DIAGP  F,7160 
          DIAGT  (*THE COMPARISON OF AN INDEX NAME AND A BOOLEAN ITEM IS
, NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7161 
          DIAGT  (*THE COMPARISON OF AN INDEX DATA ITEM AND A BOOLEAN IT
,EM IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7162 
          DIAGT  (*THE COMPARISON OF AN ARITHMETIC EXPRESSION AND A BOOL
,EAN DATA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  W,7163 
          DIAGT  (*AN -ALL- LITERAL IS NOT ALLOWED HERE.  THE RESERVED W
,ORD -ALL- IS IGNORED.*)
          DIAGP  F,7164 
          DIAGT  (*THIS IDENTIFIER MUST BE DESCRIBED AS USAGE IS DISPLAY
,.*)
          DIAGP  F,7165 
          DIAGT  (*A BOOLEAN DATA ITEM MAY NOT BE THE SUBJECT OF A SIGN 
,CONDITION.*) 
          DIAGP  F,7169 
          DIAGT  (*-ALL-, -LEADING-, -FIRST- OR -CHARACTERS- IS REQUIRED
, IN AN INSPECT STATEMENT WITH THE REPLACING PHRASE.*)
          DIAGP  F,7170 
          DIAGT  (*THE RESERVED WORD -FOR- IS REQUIRED HERE.*)
          DIAGP  F,7171 
          DIAGT  (*-ALL-, -LEADING- OR -CHARACTERS- IS REQUIRED IN AN IN
,SPECT STATEMENT WITH THE TALLYING PHRASE.*)
          DIAGP  F,7172 
          DIAGT  (*AN IDENTIFIER OR NON ALL LITERAL IS REQUIRED HERE.*) 
          DIAGP  F,7173 
          DIAGT  (*A NON-NUMERIC LITERAL IS REQUIRED HERE.*)
          DIAGP  F,7174 
          DIAGT  (*THIS IDENTIFIER MUST BE DESCRIBED AS USAGE IS DISPLAY
, AND CAN BE ALPHABETIC, ALPHANUMERIC, OR NUMERIC.*)
          DIAGP  F,7175 
          DIAGT  (*THE SIZE OF THE REPLACING LITERAL OR IDENTIFIER MUST 
,EQUAL THE SIZE OF THE ITEM BEING REPLACED.*) 
          DIAGP  W,7176 
          DIAGT  (*THE DATA REFERENCED BY THIS LITERAL OR IDENTIFIER MUS
,T BE ONE CHARACTER IN LENGTH.*)
          DIAGP  F,7177 
          DIAGT  (*THE RESERVED WORD REPLACING IS REQUIRED HERE.*)
          DIAGP  F,7180 
          DIAGT  (*AN ERROR WAS DETECTED IN THE DESCRIPTION OF THIS ITEM
,. THAT ERROR MUST BE CORRECTED BEFORE THIS STATEMENT CAN BE COMPILED CO
,RRECTLY.*) 
          DIAGP  F,7181 
          DIAGT  (*THE OPERAND IN A NUMERIC CLASS CONDITION MAY NOT BE D
,ESCRIBED AS ALPHABETIC.*)
          DIAGP  F,7182 
          DIAGT  (*CLASS CONDITION OPERANDS MAY NOT BE DESCRIBED AS 
, INDEX NAME OR INDEX DATA NAME.*)
          DIAGP  F,7183 
          DIAGT  (*THE OPERAND IN AN ALPHABETIC CLASS CONDITION MAY NOT 
,BE DESCRIBED AS NUMERIC.*) 
          DIAGP  F,7184 
          DIAGT  (*REFERENCE TO AN IMPLEMENTOR NAME IS INVALID IN THIS C
,ONTEXT.*)
          DIAGP     F,7185
          DIAGT     (*A SUBSCRIPTED OR REFERENCE MODIFIED ITEM IS NOT AL
,LOWED HERE.*)
          DIAGP  F,7186 
          DIAGT  (*REFERENCE TO A CD DATA NAME IS INVALID IN THIS CONTEX
,T.*) 
          DIAGP  F,7187 
          DIAGT  (*REFERENCE TO A FILE NAME IS INVALID IN THIS CONTEXT. 
,*) 
          DIAGP  F,7188 
          DIAGT  (*REFERENCE TO A SORT MERGE FILE NAME IS INVALID IN THI
,S CONTEXT.*) 
          DIAGP  F,7189 
          DIAGT  (*REFERENCE TO A CD NAME IS INVALID IN THIS CONTEXT.*) 
          DIAGP  F,7190 
          DIAGT  (*REFERENCE TO A REPORT NAME IS INVALID IN THIS CONTEXT
,.*)
          DIAGP  F,7191 
          DIAGT  (*A GROUP DATA ITEM MAY NOT BE THE SUBJECT OF A SIGN CO
,NDITION.*) 
          DIAGP  F,7192 
          DIAGT  (*A LITERAL MAY NOT BE THE SUBJECT OF A SIGN CONDITION.
,*) 
          DIAGP  F,7193 
          DIAGT  (*A NON NUMERIC DATA ITEM MAY NOT BE THE SUBJECT OF A S
,IGN CONDITION.*) 
          DIAGP  F,7194 
          DIAGT  (*AN INDEX-NAME MAY NOT BE THE SUBJECT OF A SIGN CONDIT
,ION.*) 
          DIAGP  F,7195 
          DIAGT  (*AN INDEX DATA ITEM MAY NOT BE THE SUBJECT OF A SIGN C
,ONDITION.*)
          DIAGP  F,7196 
          DIAGT  (*THE COMPARISON OF A GROUP ITEM AND AN ARITHMETIC EXPR
,ESSION IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7197 
          DIAGT  (*THE COMPARISON OF A NON NUMERIC LITERAL AND A NUMERIC
, DATA ITEM IS ALLOWED ONLY IF THE DATA ITEM IS AN INTEGER AND THE USAGE
, IS DISPLAY.*) 
          DIAGP  F,7198 
          DIAGT  (*THE COMPARISON OF AN ARITHMETIC EXPRESSION AND A NON 
,NUMERIC DATA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7199 
          DIAGT  (*THE COMPARISON OF AN ARITHMETIC EXPRESSION AND AN IND
,EX DATA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7200 
          DIAGT  (*A FILE NAME IS REQUIRED IN A CLOSE STATEMENT.*)
          DIAGP  F,7201 
          DIAGT  (*-WITH- MUST BE FOLLOWED BY -NO- IN A CLOSE REEL OR CL
,OSE UNIT STATEMENT.*)
          DIAGP  F,7202 
          DIAGT  (*-NO- MUST BE FOLLOWED BY -REWIND- IN A CLOSE STATEMEN
,T.*) 
          DIAGP  T,7203 
          DIAGT  (*THE NO REWIND OPTION IS IGNORED IN A CLOSE REEL OR CL
,OSE UNIT STATEMENT.*)
          DIAGP  F,7204 
          DIAGT  (*-FOR- MUST BE FOLLOWED BY -REMOVAL- IN A CLOSE STATEM
,ENT.*) 
          DIAGP  F,7205 
          DIAGT  (*-WITH- MUST BE FOLLOWED BY -LOCK- OR -NO REWIND- IN A
, CLOSE STATEMENT.*)
          DIAGP  F,7206 
          DIAGT  (*A FILE NAME IS REQUIRED IN A DELETE STATEMENT.*) 
          DIAGP  F,7207 
          DIAGT  (*-INPUT-, -OUTPUT-, -EXTEND-, OR -I-O- IS REQUIRED IN 
,AN OPEN STATEMENT.*) 
          DIAGP  F,7208 
          DIAGT  (*A FILE NAME IS REQUIRED IN AN OPEN STATEMENT.*)
          DIAGP  F,7209 
          DIAGT  (*-WITH- MUST BE FOLLOWED BY -NO- IN AN OPEN STATEMENT.
,*) 
          DIAGP  F,7210 
          DIAGT  (*-NO- MUST BE FOLLOWED BY -REWIND- IN AN OPEN STATEMEN
,T.*) 
          DIAGP  F,7211 
          DIAGT  (*THE RESERVE WORD -NO- IS REQUIRED HERE.*)
          DIAGP  F,7212 
          DIAGT  (*SUBSCRIPTED VARIABLE CONTAINED IN THE USING PHRASE OF
, THE ENTER STATEMENT CAN ONLY BE SUBSCRIPTED BY A CONSTANT.*)
          DIAGP  F,7214 
          DIAGT  (*A FILE NAME IS REQUIRED IN A READ STATEMENT.*) 
          DIAGP  F,7215 
          DIAGT  (*-INTO- MUST BE FOLLOWED BY AN IDENTIFIER IN A READ ST
,ATEMENT.*) 
          DIAGP  F,7216 
          DIAGT  (*-KEY- MUST BE FOLLOWED BY A DATA NAME IN A READ STATE
,MENT.*)
          DIAGP  F,7217 
          DIAGT  (*A RECORD NAME IS REQUIRED IN A REWRITE STATEMENT.*)
          DIAGP  F,7218 
          DIAGT  (*-FROM- MUST BE FOLLOWED BY AN IDENTIFIER IN A REWRITE
, STATEMENT.*)
          DIAGP  F,7219 
          DIAGT  (*A FILE NAME IS REQUIRED IN A START STATEMENT.*)
          DIAGP  F,7220 
          DIAGT  (*IN A START STATEMENT, KEY MUST BE FOLLOWED BY EQUALS,
, IS EQUAL TO, IS =, EXCEEDS, IS GREATER THAN, IS >, IS NOT LESS THAN, O
,R IS NOT <.*)
          DIAGP  F,7221 
          DIAGT  (*-NOT- MUST BE FOLLOWED BY -<- OR -LESS- IN A START ST
,ATEMENT.*) 
          DIAGP  F,7222 
          DIAGT  (*THE RELATION MUST BE FOLLOWED BY A DATA NAME IN A STA
,RT STATEMENT.*)
          DIAGP  F,7223 
          DIAGT  (*A RECORD NAME IS REQUIRED IN A WRITE STATEMENT.*)
          DIAGP  F,7224 
          DIAGT  (*-FROM- MUST BE FOLLOWED BY AN IDENTIFIER IN A WRITE S
,TATEMENT*) 
          DIAGP  F,7225 
          DIAGT  (*-ADVANCING- MUST BE FOLLOWED BY AN IDENTIFIER, AN INT
,EGER LITERAL, A MNEMONIC NAME, OR -PAGE-.*)
          DIAGP  F,7226 
          DIAGT  (*-AT- MUST BE FOLLOWED BY -END- IN A READ STATEMENT.
,*) 
          DIAGP  F,7227 
          DIAGT  (*AT MUST BE FOLLOWED BY EOP OR END-OF-PAGE IN A WRITE 
,STATEMENT.*) 
          DIAGP  F,7230 
          DIAGT  (*-INVALID KEY- MUST BE FOLLOWED BY AT LEAST ONE IMPERA
,TIVE STATEMENT.*)
          DIAGP  F,7231 
          DIAGT  (*-AT END- MUST BE FOLLOWED BY AT LEAST ONE IMPERATIVE 
,STATEMENT.*) 
          DIAGP  F,7232 
          DIAGT  (*AT END-OF-PAGE (AT EOP) MUST BE FOLLOWED BY AT LEAST 
,ONE IMPERATIVE STATEMENT.*)
          DIAGP  F,7234 
          DIAGT  (*COMPARISON OF A NUMERIC DATA ITEM AND AN INDEX DATA I
,TEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7235 
          DIAGT  (*COMPARISON OF A NUMERIC NON INTEGER LITERAL AND AN IN
,DEX DATA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7236 
          DIAGT  (*COMPARISON OF A NUMERIC LITERAL INTEGER AND AN INDEX 
,DATA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7237 
          DIAGT  (*COMPARISON OF AN INTEGER DISPLAY ITEM AND AN INDEX DA
,TA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7238 
          DIAGT  (*COMPARISON OF A NON NUMERIC DATA ITEM AND AN INDEX DA
,TA ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7239 
          DIAGT  (*COMPARISON OF A NON NUMERIC DATA ITEM AND AN INDEX - 
,NAME IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7240 
          DIAGT  (*THE COMPARISON OF A NON NUMERIC DATA ITEM AND A NUMER
,IC DATA ITEM IS ALLOWED ONLY IF THE NUMERIC DATA ITEM IS AN INTEGER AND
, ITS USAGE IS DISPLAY.*) 
          DIAGP  F,7241 
          DIAGT  (*COMPARISON OF A NON NUMERIC DATA ITEM AND A NUMERIC N
,ON INTEGER LITERAL IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7242 
          DIAGT  (*COMPARISON OF A NON NUMERIC LITERAL AND AN INDEX DATA
, ITEM IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7243 
          DIAGT  (*COMPARISON OF A NON NUMERIC LITERAL AND AN INDEX - NA
,ME IS NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7244 
          DIAGT  (*COMPARISON OF AN ARITHMETIC EXPRESSION AND A NON NUME
,RIC LITERAL IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7245 
          DIAGT  (*COMPARISON OF A GROUP ITEM AND AN INDEX DATA ITEM IS 
,NOT ALLOWED IN A RELATION CONDITION.*) 
          DIAGP  F,7246 
          DIAGT  (*COMPARISON OF A GROUP ITEM AND AN INDEX - NAME IS NOT
, ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7247 
          DIAGT  (*THE COMPARISON OF A GROUP ITEM AND A NUMERIC DATA ITE
,M IS ALLOWED ONLY IF THE DATA ITEM IS AN INTEGER AND THE USAGE IS DISPL
,AY.*)
          DIAGP  F,7248 
          DIAGT  (*THE COMPARISON OF A GROUP ITEM AND A NUMERIC NON INTE
,GER LITERAL IS NOT ALLOWED IN A RELATION CONDITION.*)
          DIAGP  F,7249 
          DIAGT  (*THE COMPARISON OF TWO LITERALS IS NOT ALLOWED IN A RE
,LATION CONDITION.*)
          DIAGP  F,7250 
          DIAGT  (*EITHER -INPUT- OR -OUTPUT- IS REQUIRED HERE.*) 
          DIAGP  F,7251 
          DIAGT  (*THE RESERVED WORD -KEY- IS REQUIRED HERE.*)
          DIAGP  F,7252 
          DIAGT  (*THIS CD-NAME MUST REFERENCE AN INPUT CD.*) 
          DIAGP  F,7253 
          DIAGT  (*THIS CD-NAME MUST REFERENCE AN OUTPUT CD.*)
          DIAGP  F,7254 
          DIAGT  (*A CD-NAME IS REQUIRED HERE.*)
          DIAGP  W,7255 
          DIAGT  (*THE CHARACTER -P- MAY NOT BE USED IN THE PICTURE ASSO
,CIATED WITH AN UNSTRING STATEMENT RECEIVING FIELD IDENTIFIER.*)
          DIAGP  F,7256 
          DIAGT  (*THIS IDENTIFIER MUST REFERENCE AN ALPHANUMERIC DATA I
,TEM.*) 
          DIAGP  F,7257 
          DIAGT  (*THE RESERVED WORD -INTO- IS REQUIRED HERE.*) 
          DIAGP  F,7258 
          DIAGT  (*THE RESERVED WORD -POINTER- IS REQUIRED HERE.*)
          DIAGP  F,7259 
          DIAGT  (*THE RESERVED WORD -DELIMITED- IS REQUIRED HERE.*)
          DIAGP  F,7260 
          DIAGT  (*EITHER AN IDENTIFIER, A NON ALL LITERAL, OR THE RESER
,VED WORD -SIZE- IS REQUIRED HERE.*)
          DIAGP  F,7261 
          DIAGT  (*THIS IDENTIFIER MUST REFERENCE AN ELEMENTARY DATA ITE
,M DESCRIBED AS USAGE IS DISPLAY.*) 
          DIAGP  F,7262 
          DIAGT  (*THE PICTURE ASSOCIATED WITH THIS IDENTIFIER MAY NOT C
,ONTAIN EDITING CHARACTERS.*) 
          DIAGP  F,7263 
          DIAGT  (*THIS IDENTIFIER MUST REFERENCE AN ELEMENTARY NUMERIC 
,INTEGER DATA ITEM.*) 
          DIAGP  F,7264 
          DIAGT  (*THE DATA AREA REFERENCED BY THIS IDENTIFIER IS TOO SM
,ALL FOR USE AS A POINTER IN THIS STATEMENT.*)
          DIAGP  F,7265 
          DIAGT  (*-MESSAGE- OR -SEGMENT- IS REQUIRED HERE.*) 
          DIAGP  F,7266 
          DIAGT  (*THE RESERVED WORD -DATA- IS REQUIRED HERE.*) 
          DIAGP  F,7267 
          DIAGT  (*IN THE UNSTRING STATEMENT, -DELIMITER IN- OR -COUNT I
,N- MAY BE SPECIFIED ONLY IF -DELIMITED BY- IS SPECIFIED.*) 
          DIAGP  F,7268 
          DIAGT  (*THIS IDENTIFIER MUST REFERENCE AN UNSIGNED INTEGER DA
,TA ITEM.*) 
          DIAGP  F,7269 
          DIAGT  (*AN INTEGER LITERAL IS REQUIRED HERE.*) 
          DIAGP  F,7270 
          DIAGT  (*AN IMPERATIVE STATEMENT IS REQUIRED TO COMPLETE THE N
,O DATA PHRASE.*) 
          DIAGP  F,7271 
          DIAGT  (*ONE OF -ESI-, -EMI-, -EGI- OR AN IDENTIFIER IS REQUIR
,ED HERE.*) 
          DIAGP  F,7272 
          DIAGT  (*A LITERAL OR THE RESERVED WORD -RUN- IS REQUIRED HERE
,.*)
          DIAGP  N,7273 
          DIAGT  (*THE USE OF A GROUP OR VARIABLE GROUP OR JUSTIFIED ITE
,M AS A STRING STATEMENT RECEIVING FIELD IS NON-STANDARD.*) 
          DIAGP  F,7275 
          DIAGT  (*AN IDENTIFIER OR A CD-NAME IS REQUIRED HERE.*) 
          DIAGP  F,7276 
          DIAGT  (*THE RESERVED WORD -COUNT- IS REQUIRED HERE.*)
          DIAGP  N,7277 
          DIAGT  (*THE DAY-OF-WEEK PHRASE IN THE ACCEPT STATEMENT IS NON
,-STANDARD.*) 
          DIAGP  N,7278 
          DIAGT  (*IN THE STOP OR DISPLAY STATEMENT THE USE OF A LITERAL
, WHICH IS NEITHER NON-NUMERIC NOR AN UNSIGNED INTEGER IS NON-STANDARD. 
,*) 
          DIAGP  W,7279 
          DIAGT  (*IF A STOP RUN STATEMENT APPEARS IN A CONSECUTIVE SEQU
,ENCE OF IMPERATIVE STATEMENTS WITHIN A SENTENCE, IT MUST APPEAR AS THE 
,LAST STATEMENT IN THAT SEQUENCE.*) 
          DIAGP  F,7280 
          DIAGT  (*THE SUBJECT OF THIS CLASS CONDITION IS DEFINED BUT NO
,T AS A DATA ITEM.*)
          DIAGP  N,7281 
          DIAGT  (*THE -BEFORE- OR -AFTER- REPLACING PHRASE OF THE INSPE
,CT STATEMENT IS NON-STANDARD.*)
          DIAGP  W,7282 
          DIAGT  (*THIS LINKAGE SECTION ITEM MUST APPEAR IN THE USING PH
,RASE OF THE PROCEDURE DIVISION HEADER IF THIS ITEM, OR ANY SUBORDINATE 
,ITEMS TO IT, ARE REFERENCED IN THE PROCEDURE DIVISION.*) 
          DIAGP  N,7283 
          DIAGT  (*THE USE OF -FROM- OR -EQUALS- IN THE COMPUTE STATEMEN
,T IS NON-STANDARD.*) 
          DIAGP  N,7284 
          DIAGT  (*THE INITIALIZE STATEMENT IS NON-STANDARD.*)
          DIAGP  N,7285 
          DIAGT  (*THE RELATIONAL OPERATOR -EQUALS- IS NON-STANDARD.*)
          DIAGP  N,7286 
          DIAGT  (*THE RELATIONAL OPERATOR -EXCEEDS- IS NON-STANDARD.*) 
          DIAGP  N,7287 
          DIAGT  (*THE RELATIONAL OPERATOR -UNEQUAL- IS NON-STANDARD.*) 
          DIAGP  T,7288 
          DIAGT  (*THERE ARE NO CORRESPONDING DATA NAMES.*) 
          DIAGP  F,7289 
          DIAGT  (*A LINE-COUNTER MAY NOT BE MODIFIED BY PROCEDURE DIVIS
,ION STATEMENTS.*)
          DIAGP  F,7290 
          DIAGT  (*A LINAGE-COUNTER MAY NOT BE MODIFIED BY PROCEDURE DIV
,ISION STATEMENTS.*)
          DIAGP  F,7291 
          DIAGT  (*A CONTROL DATA ITEM FOR A REPORT MUST NOT BE MODIFIED
, IN A USE BEFORE REPORTING PROCEDURE ASSOCIATED WITH THAT REPORT.*)
          DIAGP  N,7292 
          DIAGT  (*A CONTROL DATA ITEM MUST NOT BE REFERENCED IN A USE B
,EFORE REPORTING PROCEDURE ASSOCIATED WITH A PAGE HEADING OR PAGE FOOTIN
,G. A GROUP ITEM CONTAINING A CONTROL DATA ITEM, AN ITEM SUBORDINATE TO 
,A CONTROL DATA ITEM, OR AN ITEM WHICH REDEFINES OR RENAMES ANY PART OF 
,A CONTROL DATA ITEM MUST NOT BE REFERENCED IN A USE BEFORE REPORTING PR
,OCEDURE ASSOCIATED WITH A CONTROL FOOTING OR REPORT FOOTING.*) 
          DIAGP  N,7293 
          DIAGT  (*THE PURGE STATEMENT IS NON-STANDARD.*) 
          DIAGP  F,7294 
          DIAGT  (*A DATA ITEM CANNOT BE REFERENCED IN A STATEMENT WITH 
,THE CORRESPONDING OPTION IF ITS DESCRIPTION CONTAINS THE USAGE IS INDEX
, CLAUSE.*) 
          DIAGP  N,7295 
          DIAGT  (*ANSI RULES SPECIFY THAT THE COMPOSITE OF OPERANDS MUS
,T NOT EXCEED 18 DIGITS. FOR ADD AND SUBTRACT STATEMENTS THE COMPOSITE I
,S THE SUPERIMPOSITION OF ALL OPERANDS (EXCEPT THE GIVING OPERANDS) AFTE
,R DECIMAL POINT ALIGNMENT.*) 
          DIAGP  F,7296 
          DIAGT  (*AN ALTER STATEMENT CANNOT ALTER A SECTION NAME. A PAR
,AGRAPH NAME REFERENCE IS REQUIRED HERE.*)
          DIAGP  N,7297 
          DIAGT  (*ANSI RULES SPECIFY THAT THE COMPOSITE OF OPERANDS MUS
,T NOT EXCEED 18 DIGITS. FOR MULTIPLY AND DIVIDE STATEMENTS THE COMPOSIT
,E IS THE SUPERIMPOSITION OF ALL RECEIVING FIELDS (EXCEPT THE REMAINDER 
,RECEIVING FIELD) AFTER DECIMAL POINT ALIGNMENT.*)
          DIAGP  F,7298 
          DIAGT  (*-ON- OR -OFF- IS REQUIRED HERE.*)
          DIAGP  F,7299 
          DIAGT  (*A MNEMONIC NAME THAT IS ASSOCIATED WITH A SWITCH IS R
,EQUIRED HERE.*)
          DIAGP  F,7300 
          DIAGT  (*A SORT-MERGE FILE NAME IS REQUIRED HERE.*) 
          DIAGP  F,7301 
          DIAGT  (*A -KEY- PHRASE IS REQUIRED IN A SORT OR MERGE STATEME
,NT.*)
          DIAGP  F,7302 
          DIAGT  (*-ASCENDING- OR -DESCENDING- IS REQUIRED IN THE KEY PH
,RASE OF A SORT OR MERGE STATEMENT.*) 
          DIAGP  F,7303 
          DIAGT  (*A DATA-NAME MUST FOLLOW THE RESERVED WORD -KEY- IN A 
,SORT OR MERGE STATEMENT.*) 
          DIAGP  F,7304 
          DIAGT  (*-SEQUENCE- MUST FOLLOW -COLLATING- IN A SORT OR MERGE
, STATEMENT.*)
          DIAGP  F,7305 
          DIAGT  (*AN ALPHABET-NAME IS REQUIRED IN A COLLATING SEQUENCE 
,PHRASE.*)
          DIAGP  F,7306 
          DIAGT  (*EITHER A USING PHRASE OR AN INPUT PROCEDURE PHRASE IS
, REQUIRED HERE IN A SORT STATEMENT.*)
          DIAGP  F,7307 
          DIAGT  (*-PROCEDURE- MUST FOLLOW -INPUT- OR -OUTPUT- IN A SORT
, OR MERGE STATEMENT.*) 
          DIAGP  F,7308 
          DIAGT  (*A SECTION-NAME IS REQUIRED HERE IN AN INPUT OR OUTPUT
, PROCEDURE PHRASE.*) 
          DIAGP  F,7309 
          DIAGT  (*THE NAME REFERENCED IN AN INPUT OR OUTPUT PROCEDURE P
,HRASE MUST BE A SECTION-NAME.*)
          DIAGP  F,7310 
          DIAGT  (*A FILE-NAME REFERENCED IN A USING OR GIVING PHRASE MU
,ST NOT HAVE AN SD LEVEL INDICATOR.*) 
          DIAGP  F,7311 
          DIAGT  (*THE MAXIMUM RECORD SIZE OF THE USING, GIVING AND SD F
,ILES OF A SORT MERGE STATEMENT MUST BE THE SAME.*) 
          DIAGP  N,7312 
          DIAGT  (*THE RANGE OF AN INPUT PROCEDURE MUST NOT FORM A PART 
,OF ANY OUTPUT PROCEDURE.*) 
          DIAGP  N,7313 
          DIAGT  (*THE RANGE OF AN OUTPUT PROCEDURE MUST NOT FORM A PART
, OF ANY INPUT PROCEDURE.*) 
          DIAGP  N,7314 
          DIAGT  (*THIS INPUT PROCEDURE DOES NOT CONTAIN AT LEAST ONE RE
,LEASE STATEMENT THAT REFERENCES A RECORD WHICH IS CONTAINED IN THE FILE
, DESCRIPTION OF THE FILE THAT IS REFERENCED IN THIS SORT OR MERGE STATE
,MENT.*)
          DIAGP  N,7315 
          DIAGT  (*THIS OUTPUT PROCEDURE DOES NOT CONTAIN AT LEAST ONE R
,ETURN STATEMENT THAT REFERENCES THE FILE THAT IS REFERENCED IN THIS SOR
,T OR MERGE STATEMENT.*)
          DIAGP  F,7316 
          DIAGT  (*A FILE-NAME IS REQUIRED IN THE USING OR GIVING PHRASE
, OF A SORT OR MERGE STATEMENT.*) 
          DIAGP  F,7317 
          DIAGT  (*A GIVING PHRASE OR AN OUTPUT PROCEDURE PHRASE IS REQU
,IRED IN A SORT OR MERGE STATEMENT.*) 
          DIAGP  F,7318 
          DIAGT  (*A SORT OR MERGE STATEMENT MUST NOT APPEAR IN A DECLAR
,ATIVES SECTION.*)
          DIAGP  F,7319 
          DIAGT  (*A SORT OR MERGE STATEMENT MUST NOT APPEAR WITHIN AN I
,NPUT OR OUTPUT PROCEDURE.*)
          DIAGP  F,7320 
          DIAGT  (*THE FILE-NAME REFERENCED IN A SORT, MERGE, OR RETURN 
,STATEMENT MUST HAVE AN SD LEVEL INDICATOR.*) 
          DIAGP  F,7321 
          DIAGT  (*DATA ITEMS USED AS KEYS IN A SORT OR MERGE STATEMENT 
,MUST BE DEFINED WITHIN A RECORD OF THE SORT-MERGE FILE.*)
          DIAGP  F,7322 
          DIAGT  (*DATA ITEMS USED AS KEYS IN A SORT OR MERGE STATEMENT 
,MUST NOT BE TABLE ITEMS.*) 
          DIAGP  F,7324 
          DIAGT  (*AN INPUT OR OUTPUT PROCEDURE MUST BE CONTAINED WHOLLY
, WITHIN NON-INDEPENDENT SEGMENTS OR MUST BE CONTAINED WHOLLY WITHIN A S
,INGLE INDEPENDENT SEGMENT.*) 
          DIAGP  F,7325 
          DIAGT  (*IF A SORT OR MERGE STATEMENT APPEARS WITHIN AN INDEPE
,NDENT SEGMENT, ANY ASSOCIATED INPUT OR OUTPUT PROCEDURES MUST BE CONTAI
,NED WHOLLY WITHIN THAT SAME INDEPENDENT SEGMENT OR MUST BE CONTAINED WH
,OLLY WITHIN NON-INDEPENDENT SEGMENTS.*)
          DIAGP  F,7326 
          DIAGT  (*A USING PHRASE IS REQUIRED IN A MERGE STATEMENT.*) 
          DIAGP  F,7327 
          DIAGT  (*THE SAME FILE NAME CANNOT BE USED MORE THAN ONCE WITH
,IN A MERGE STATEMENT.*)
          DIAGP  F,7328 
          DIAGT  (*AT LEAST TWO FILE-NAMES MUST APPEAR IN THE USING PHRA
,SE OF A MERGE STATEMENT.*) 
          DIAGP  F,7329 
          DIAGT  (*ONLY ONE FILE FROM A MULTIPLE FILE REEL MAY APPEAR IN
, A MERGE STATEMENT.*)
          DIAGP  F,7330 
          DIAGT  (*A RECORD NAME IS REQUIRED HERE IN THE RELEASE STATEME
,NT.*)
          DIAGP  N,7331 
          DIAGT  (*THIS RELEASE STATEMENT IS NOT CONTAINED IN AN INPUT P
,ROCEDURE ASSOCIATED WITH A SORT STATEMENT FOR A FILE WHOSE FILE DESCRIP
,TION CONTAINS THE RECORD REFERENCED IN THIS STATEMENT.*) 
          DIAGP  F,7332 
          DIAGT  (*AN IDENTIFIER MUST FOLLOW THE WORD -FROM- IN A RELEAS
,E STATEMENT.*) 
          DIAGP  F,7333 
          DIAGT  (*THE DATA ITEM REFERENCED IN A RELEASE STATEMENT MUST 
,BE A SORT FILE RECORD.*) 
          DIAGP  N,7334 
          DIAGT  (*THE RECORD REFERENCED IN THIS RELEASE STATEMENT IS NO
,T DEFINED IN THE SORT-MERGE FILE WHICH IS REFERENCED IN THE SORT OR MER
,GE STATEMENT WHOSE INPUT PROCEDURE CONTAINS THIS STATEMENT.*)
          DIAGP  F,7335 
          DIAGT  (*AN IDENTIFIER MUST FOLLOW THE WORD -INTO- IN A RETURN
, STATEMENT.*)
          DIAGP  W,7336 
          DIAGT  (*THE RESERVED WORD -END- MUST FOLLOW -AT- IN A RETURN 
,STATEMENT.*) 
          DIAGP  N,7337 
          DIAGT  (*THIS RETURN STATEMENT IS NOT CONTAINED IN AN OUTPUT P
,ROCEDURE ASSOCIATED WITH A SORT OR MERGE STATEMENT FOR THE FILE THAT IS
, REFERENCED IN THIS STATEMENT.*) 
          DIAGP  N,7338 
          DIAGT  (*THE FILE THAT IS REFERENCED IN THIS RETURN STATEMENT 
,IS NOT REFERENCED IN A SORT OR MERGE STATEMENT WHOSE OUTPUT PROCEDURE C
,ONTAINS THIS STATEMENT.*)
          DIAGP  N,7339 
          DIAGT  (*ANSI REQUIRES FIXED LENGTH RECORDS ON THE SORT FILE I
,F THE INTO PHRASE IS SPECIFIED ON A RETURN STATEMENT.*)
          DIAGP  F,7340 
          DIAGT  (*THE IDENTIFIER IN A -FROM- OR -INTO- PHRASE MUST NOT 
,DESCRIBE THE SAME STORAGE AREA AS THE RECORD AREA.*) 
          DIAGP  F,7341 
          DIAGT  (*AN AT END PHRASE IS REQUIRED IN A RETURN STATEMENT.*)
          DIAGP  N,7342 
          DIAGT  (*DUPLICATES PHRASE IS NON-STANDARD COBOL.*) 
          DIAGP  F,7343 
          DIAGT  (*THIS SORT PROCEDURE CONTAINS NON-CONTIGUOUS SECTIONS.
,*) 
          DIAGP  F,7344 
          DIAGT  (*FOR A DIRECT OR ACTUAL KEY FILE, THE DATA-NAME IN THE
, KEY PHRASE OF A START STATEMENT MUST NOT BE THE RECORD KEY FOR THAT FI
,LE.*)
          DIAGP  C,7345 
          DIAGT  (*COMPILER ERROR - INITIALIZE COMMON BLOCK.*)
          DIAGP  F,7346 
          DIAGT  (*IF THE CODE-SET PHRASE IS SPECIFIED IN THE SET STATEM
,ENT, ALL DATA IN THE SPECIFIED FILE MUST BE DESCRIBED AS USAGE IS DISPL
,AY AND ANY SIGNED NUMERIC DATA MUST BE DESCRIBED WITH THE SIGN IS SEPAR
,ATE CLAUSE.*)
          DIAGP  F,7347 
          DIAGT  (*-DUPLICATES- MUST FOLLOW -WITH- IN A SORT STATEMENT.*
,)
          DIAGP  F,7349 
          DIAGT  (*THE MESSAGE CONTROL SYSTEM VERBS ARE NOT CURRENTLY IM
,PLEMENTED.*) 
          DIAGP  F,7350 
          DIAGT  (*THIS CONDITION NAME IS DEFINED IN THE SECONDARY-STORA
,GE SECTION.*)
          DIAGP  F,7351 
          DIAGT  (*THE OBJECT OF A -READ INTO- PHRASE MAY NOT BE AN ITEM
, DEFINED IN THE SECONDARY-STORAGE SECTION UNLESS THE IMPLICIT MOVE IS A
,LPHANUMERIC AND NON-EDITED.*)
          DIAGP  F,7352 
          DIAGT  (*THE OBJECT OF A -WRITE FROM- PHRASE MAY NOT BE AN ITE
,M DEFINED IN THE SECONDARY-STORAGE SECTION UNLESS THE IMPLICIT MOVE IS 
,ALPHANUMERIC AND NON-EDITED.*) 
          DIAGP  F,7353 
          DIAGT  (*THE OBJECT OF A -RETURN INTO- PHRASE MAY NOT BE AN IT
,EM DEFINED IN THE SECONDARY-STORAGE SECTION UNLESS THE IMPLICIT MOVE IS
, ALPHANUMERIC AND NON-EDITED.*)
          DIAGP  F,7354 
          DIAGT  (*THE OBJECT OF A -RELEASE FROM- PHRASE MAY NOT BE AN I
,TEM DEFINED IN THE SECONDARY-STORAGE SECTION UNLESS THE IMPLICIT MOVE I
,S ALPHANUMERIC AND NON-EDITED.*) 
          DIAGP  F,7355 
          DIAGT  (*A REPORT FILE CAN ONLY BE OPENED IN OUTPUT OR EXTEND 
,MODE.*)
          DIAGP  F,7356 
          DIAGT  (*ONLY SEQUENTIAL FILES CAN BE OPENED IN REVERSE OR WIT
,H NO REWIND.*) 
          DIAGP  F,7357 
          DIAGT  (*ONLY SEQUENTIAL FILES CAN BE OPENED IN EXTEND MODE.*)
          DIAGP  F,7358 
          DIAGT  (*ONLY SEQUENTIAL FILES CAN BE CLOSED WITH THE REEL OR 
,UNIT OPTIONS, OR WITH THE NO REWIND OPTION.*)
          DIAGP  F,7359 
          DIAGT  (*A FILE WHOSE ORGANIZATION IS SEQUENTIAL OR WORD-ADDRE
,SS MUST NOT BE REFERENCED BY A DELETE STATEMENT.*) 
          DIAGP  F,7360 
          DIAGT  (*A DELETE STATEMENT FOR A SEQUENTIAL ACCESS FILE MUST 
,NOT HAVE AN INVALID KEY PHRASE.*)
          DIAGP  N,7361 
          DIAGT  (*A DELETE STATEMENT FOR A RANDOM OR DYNAMIC ACCESS FIL
,E MUST HAVE EITHER AN ERROR DECLARATIVE PARAGRAPH OR AN INVALID KEY PHR
,ASE.*) 
          DIAGP  F,7362 
          DIAGT  (*A FILE WITH SEQUENTIAL OR WORD-ADDRESS ORGANIZATION M
,UST NOT BE REFERENCED BY A START STATEMENT.*)
          DIAGP  F,7363 
          DIAGT  (*A START STATEMENT MUST NOT REFERENCE A FILE WITH RAND
,OM ACCESS.*) 
          DIAGP  F,7364 
          DIAGT  (*THE DATA-NAME IN THE KEY PHRASE OF A START STATEMENT 
,THAT REFERENCES A RELATIVE FILE MUST BE THE RELATIVE KEY FOR THAT FILE.
,*) 
          DIAGP  F,7365 
          DIAGT  (*AN ERROR WAS DETECTED IN THE FILE DESCRIPTION OR FILE
, CONTROL FOR THIS FILE. THAT ERROR MUST BE CORRECTED BEFORE THIS STATEM
,ENT CAN BE COMPILED CORRECTLY.*) 
          DIAGP  N,7366 
          DIAGT  (*A START STATEMENT MUST HAVE EITHER A DECLARATIVE PARA
,GRAPH OR AN INVALID KEY PHRASE ASSOCIATED WITH IT.*) 
          DIAGP  F,7367 
          DIAGT  (*A FILE WHOSE DESCRIPTION CONTAINS A REPORTS ARE CLAUS
,E MUST NOT BE USED IN A READ, WRITE, DELETE, START, OR REWRITE STATEMEN
,T.*) 
          DIAGP  F,7369 
          DIAGT  (*A REWRITE STATEMENT USING A FILE WITH INDEXED ORGANIZ
,ATION OR WITH RELATIVE ORGANIZATION AND RANDOM OR DYNAMIC ACCESS MUST H
,AVE EITHER A DECLARATIVE PARAGRAPH OR AN INVALID KEY PHRASE ASSOCIATED 
,WITH IT.*) 
          DIAGP  F,7370 
          DIAGT  (*A FILE WITH SEQUENTIAL ACCESS WHICH DOES NOT HAVE IND
,EXED ORGANIZATION MUST NOT HAVE AN INVALID KEY PHRASE ASSOCIATED WITH I
,T IN A REWRITE STATEMENT.*)
          DIAGP  F,7371 
          DIAGT  (*THE DATA-NAME IN THE KEY PHRASE OF THE START STATEMEN
,T FOR AN INDEXED FILE MUST BE THE RECORD KEY OR AN ALTERNATE RECORD KEY
, FOR THE FILE, OR IT MUST BE A DATA ITEM SUBORDINATE TO A KEY WITH ITS 
,LEFTMOST CHARACTER POSITION COINCIDING WITH 1 AND ONLY 1 KEY.*)
          DIAGP  F,7372 
          DIAGT  (*THE DATA-NAME IN THE KEY PHRASE OF THE START STATEMEN
,T FOR A DIRECT OR ACTUAL KEY FILE MUST BE AN ALTERNATE RECORD KEY FOR T
,HAT FILE, OR IT MUST BE A DATA ITEM SUBORDINATE TO SUCH A KEY WITH ITS 
,LEFTMOST CHARACTER POSITION COINCIDING WITH THAT OF 1 AND ONLY 1 SUCH K
,EY.*)
          DIAGP  F,7373 
          DIAGT  (*THE KEY PHRASE MAY NOT BE SPECIFIED IN A READ STATEME
,NT THAT CONTAINS THE -NEXT- PHRASE NOR IN A READ STATEMENT THAT REFEREN
,CES A FILE WHOSE ORGANIZATION IS SEQUENTIAL, RELATIVE, OR WORD-ADDRESS.
,*) 
          DIAGP  F,7374 
          DIAGT  (*THE DATA-NAME USED IN THE KEY PHRASE OF A READ STATEM
,ENT MUST BE ONE OF THE RECORD KEYS ASSOCIATED WITH THAT FILE.*)
          DIAGP  N,7375 
          DIAGT  (*THIS READ STATEMENT MUST CONTAIN AN -AT END- PHRASE B
,ECAUSE NO APPLICABLE FORMAT 1 -USE- PROCEDURE EXISTS.*)
          DIAGP  N,7376 
          DIAGT  (*THIS READ STATEMENT MUST CONTAIN AN -INVALID KEY- PHR
,ASE BECAUSE NO APPLICABLE FORMAT 1 -USE- PROCEDURE EXISTS.*) 
          DIAGP  F,7377 
          DIAGT  (*AN -AT END- PHRASE IS NOT ALLOWED IN A READ STATEMENT
, UNLESS THE FILE THAT IS REFERENCED HAS SEQUENTIAL ACCESS OR THE READ S
,TATEMENT CONTAINS THE -NEXT- PHRASE AND THE FILE HAS DYNAMIC ACCESS.*) 
          DIAGP  F,7378 
          DIAGT  (*AN -INVALID KEY- PHRASE IS NOT ALLOWED IN A READ STAT
,EMENT THAT REFERENCES A FILE WITH SEQUENTIAL ACCESS OR IN A READ STATEM
,ENT THAT CONTAINS THE -NEXT- PHRASE AND REFERENCES A FILE THAT HAS DYNA
,MIC ACCESS.*)
          DIAGP  F,7379 
          DIAGT  (*THIS DATA NAME MUST BE A FILE NAME.*)
          DIAGP  F,7380 
          DIAGT  (*THIS DATA NAME MUST BE A RECORD IN THE FILE SECTION. 
,*) 
          DIAGP  F,7381 
          DIAGT  (*THE IDENTIFIER IN THE FROM PHRASE MUST NOT REFERENCE 
,THE SAME STORAGE AREA AS THE RECORD.*) 
          DIAGP  W,7382 
          DIAGT  (*FILES WITH THE OPTIONAL CLAUSE MAY ONLY BE OPENED FOR
, INPUT.*)
          DIAGP  F,7383 
          DIAGT  (*THE ADVANCING PHRASE MAY ONLY BE USED WITH SEQUENTIAL
, FILES.*)
          DIAGP  F,7384 
          DIAGT  (*THE IDENTIFIER IN THE ADVANCING PHRASE MUST BE AN UNS
,IGNED INTEGER.*) 
          DIAGP  F,7385 
          DIAGT  (*THE LITERAL IN THE ADVANCING PHRASE MUST BE AN UNSIGN
,ED INTEGER.*)
          DIAGP  N,7386 
          DIAGT  (*EITHER A DECLARATIVE PARAGRAPH OR AN INVALID KEY PHRA
,SE IS REQUIRED FOR A WRITE STATEMENT THAT REFERENCES A FILE WITH RELATI
,VE OR INDEXED ORGANIZATION.*)
          DIAGP  F,7387 
          DIAGT  (*A WRITE STATEMENT WITH AN INVALID KEY PHRASE MAY ONLY
, REFERENCE A FILE WHICH HAS RELATIVE OR INDEXED ORGANIZATION.*)
          DIAGP  F,7388 
          DIAGT  (*AN END OF PAGE CLAUSE IS ONLY ALLOWED WITH A WRITE ST
,ATEMENT WHEN THE REFERENCED FILE HAS AN ASSOCIATED LINAGE CLAUSE.*)
          DIAGP  N,7389 
          DIAGT  (*IN THE READ STATEMENT, THE INTO PHRASE MUST NOT BE US
,ED WHEN THE INPUT FILE CONTAINS LOGICAL RECORDS OF VARYING LENGTH AS IN
,DICATED BY EACH RECORD DESCRIPTION.*)
          DIAGP  N,7390 
          DIAGT  (*THE USING PHRASE OF THE ENTER STATEMENT IS NON-STANDA
,RD.*)
          DIAGP  F,7391 
          DIAGT  (*A ROUTINE NAME IS REQUIRED HERE.*) 
          DIAGP  F,7392 
          DIAGT  (*A LITERAL, A PROCEDURE NAME, A FILE NAME OR AN IDENTI
,FIER IS REQUIRED IN THE USING PHRASE OF AN ENTER STATEMENT.*)
          DIAGP  F,7393 
          DIAGT  (*ONLY AN ALPHABET-NAME ASSOCIATED WITH UNI MAY BE USED
, IN A SET CODE-SET STATEMENT.*)
          DIAGP  F,7394 
          DIAGT  (*THE ADVANCING MNEMONIC-NAME PHRASE CANNOT BE SPECIFIE
,D IN A WRITE STATEMENT WHICH REFERENCES A RECORD OF A FILE WHOSE DESCRI
,PTION CONTAINS THE LINAGE CLAUSE.*)
          DIAGP  F,7395 
          DIAGT  (*A MNEMONIC-NAME THAT APPEARS IN AN ADVANCING PHRASE M
,UST BE ASSOCIATED WITH A SINGLE CHARACTER NON-NUMERIC LITERAL.*) 
          DIAGP  F,7396 
          DIAGT  (*A REWRITE STATEMENT MUST NOT REFERENCE A FILE WHOSE O
,RGANIZATION IS WORD-ADDRESS.*) 
          DIAGP  F,7397 
          DIAGT  (*THE NEXT PHRASE CANNOT BE SPECIFIED IN A READ STATEME
,NT THAT REFERENCES A RANDOM ACCESS FILE.*) 
          DIAGP  W,7398 
          DIAGT  (*ONLY THE FIRST 7 CHARACTERS OF THIS PROGRAM OR ROUTIN
,E NAME WILL BE USED TO INTERACT WITH SYSTEM.*) 
          DIAGP  F,7399 
          DIAGT  (*FOR A PROGRAM-NAME OR ROUTINE-NAME TO BE ACCEPTED BY 
,THE SYSTEM AS AN ENTRY POINT NAME, THE FIRST CHARACTER MUST BE A LETTER
, AND IT MUST NOT CONTAIN A SPACE + : / OR '.*) 
          DIAGP  W,7401 
          DIAGT  (*A PERIOD IS REQUIRED HERE TO TERMINATE AN IMPERATIVE 
,STATEMENT.*) 
          DIAGP  F,7402 
          DIAGT  (*THE RANGE OF A PERFORM STATEMENT LOCATED IN A NON-IND
,EPENDENT SEGMENT MUST BE WHOLLY CONTAINED IN ONE OR MORE NON-INDEPENDEN
,T SEGMENTS OR WHOLLY CONTAINED IN A SINGLE INDEPENDENT SEGMENT.*)
          DIAGP  F,7403 
          DIAGT  (*THE RANGE OF A PERFORM STATEMENT LOCATED IN AN INDEPE
,NDENT SEGMENT MUST BE WHOLLY CONTAINED IN ONE OR MORE NON-INDEPENDENT S
,EGMENTS OR WHOLLY CONTAINED IN THE SAME INDEPENDENT SEGMENT AS THE PERF
,ORM STATEMENT.*) 
          DIAGP  F,7404 
          DIAGT  (*A PROCEDURE NAME MUST FOLLOW THE RESERVED WORD -THRU-
, IN A PERFORM STATEMENT.*) 
          DIAGP  N,7405 
          DIAGT  (*FIPS=3 SUPPORTS THE ARITHMETIC OPERATORS.*)
          DIAGP  N,7406 
          DIAGT  (*FIPS=3 SUPPORTS THE RELATIONAL OPERATORS <, >, =, NOT
, <, NOT >, AND NOT =.*)
          DIAGP  N,7407 
          DIAGT  (*FIPS=3 SUPPORTS CONDITION NAME REFERENCES.*) 
          DIAGP  N,7408 
          DIAGT  (*FIPS=3 SUPPORTS THE FIGURATIVE CONSTANT ALL LITERAL.*
,)
          DIAGP  N,7409 
          DIAGT  (*FIPS=2 SUPPORTS THE USING PHRASE IN THE PROCEDURE DIV
,ISION HEADER.*)
          DIAGP  N,7410 
            DIAGT  (*FIPS=3 SUPPORTS SIGN CONDITIONS.*) 
          DIAGP  N,7411 
          DIAGT  (*FIPS=3 SUPPORTS THE LOGICAL OPERATORS AND, OR, AND NO
,T.*) 
          DIAGP  N,7412 
          DIAGT  (*FIPS=3 SUPPORTS ACCEPT FROM STATEMENT.*) 
          DIAGP  N,7413 
          DIAGT  (*FIPS=3 SUPPORTS MULTIPLE RESULTS IN ARITHMETIC STATEM
,ENTS.*)
          DIAGP  N,7414 
          DIAGT  (*FIPS=3 SUPPORTS ADD CORRESPONDING.*) 
          DIAGP  N,7415 
          DIAGT  (*FIPS=3 SUPPORTS A PROCEDURE NAME SERIES IN THE ALTER 
,STATEMENT.*) 
          DIAGP  N,7416 
          DIAGT  (*FIPS=2 SUPPORTS CALL LITERAL.*)
          DIAGP  N,7417 
          DIAGT  (*FIPS=3 SUPPORTS CALL ON OVERFLOW.*)
          DIAGP  N,7418 
          DIAGT  (*FIPS=3 SUPPORTS THE CANCEL STATEMENT.*)
          DIAGP  N,7419 
          DIAGT  (*FIPS=3 SUPPORTS THE COMPUTE STATEMENT.*) 
          DIAGP  N,7420 
          DIAGT  (*FIPS=3 SUPPORTS DISPLAY UPON MNEMONIC-NAME.*)
          DIAGP  N,7421 
          DIAGT  (*FIPS=3 SUPPORTS DIVIDE REMAINDER.*)
          DIAGP  N,7422 
          DIAGT  (*FIPS=3 SUPPORTS THE DISABLE STATEMENT.*) 
          DIAGP  N,7423 
          DIAGT  (*FIPS=3 SUPPORTS THE ENABLE STATEMENT.*)
          DIAGP  N,7424 
          DIAGT  (*FIPS=2 SUPPORTS THE EXIT PROGRAM STATEMENT.*)
          DIAGP  N,7425 
          DIAGT  (*THE GENERATE STATEMENT IS NOT SUPPORTED IN ANY LEVEL 
,OF FEDERAL STANDARD COBOL.*) 
          DIAGP  N,7426 
          DIAGT  (*FIPS=3 SUPPORTS THE GO TO STATEMENT WITHOUT A PROCEDU
,RE NAME.*) 
          DIAGP  N,7427 
          DIAGT  (*THE INITIATE STATEMENT IS NOT SUPPORTED IN ANY LEVEL 
,OF FEDERAL STANDARD COBOL.*) 
          DIAGP  N,7428 
          DIAGT  (*FIPS=4 SUPPORTS THE MERGE STATEMENT.*) 
          DIAGP  N,7429 
          DIAGT  (*FIPS=3 SUPPORTS MOVE CORRESPONDING.*)
          DIAGP  N,7430 
          DIAGT  (*FIPS=3 SUPPORTS PERFORM UNTIL.*) 
          DIAGP  N,7431 
          DIAGT  (*FIPS=3 SUPPORTS PERFORM VARYING.*) 
          DIAGP  N,7432 
          DIAGT  (*FIPS=3 SUPPORTS THE RECEIVE STATEMENT.*) 
          DIAGP  N,7433 
          DIAGT  (*FIPS=3 SUPPORTS THE RELEASE STATEMENT.*) 
          DIAGP  N,7434 
          DIAGT  (*FIPS=3 SUPPORTS THE RETURN STATEMENT.*)
          DIAGP  N,7435 
          DIAGT  (*FIPS=3 SUPPORTS THE SEARCH STATEMENT.*)
          DIAGP  N,7436 
          DIAGT  (*FIPS=3 SUPPORTS THE SEND STATEMENT.*)
          DIAGP  N,7437 
          DIAGT  (*FIPS=4 SUPPORTS SORT COLLATING SEQUENCE PHRASE.*)
          DIAGP  N,7438 
          DIAGT  (*FIPS=3 SUPPORTS THE STRING STATEMENT.*)
          DIAGP  N,7439 
          DIAGT  (*FIPS=3 SUPPORTS SUBTRACT CORRESPONDING.*)
          DIAGP  N,7440 
          DIAGT  (*THE SUPPRESS STATEMENT IS NOT SUPPORTED IN ANY LEVEL 
,OF FEDERAL STANDARD COBOL.*) 
          DIAGP  N,7441 
          DIAGT  (*THE TERMINATE STATEMENT IS NOT SUPPORTED IN ANY LEVEL
, OF FEDERAL STANDARD COBOL.*)
          DIAGP  N,7442 
          DIAGT  (*FIPS=3 SUPPORTS THE UNSTRING STATEMENT.*)
          DIAGP  N,7443 
          DIAGT  (*FIPS=3 SUPPORTS THE COMPARISON OF NON NUMERIC OPERAND
,S OF UNEQUAL SIZE.*) 
          DIAGP  N,7444 
          DIAGT  (*FIPS=3 SUPPORTS CLOSE NO REWIND.*) 
          DIAGP  N,7445 
          DIAGT  (*FIPS=3 SUPPORTS CLOSE REEL FOR REMOVAL.*)
          DIAGP  N,7446 
          DIAGT  (*FIPS=3 SUPPORTS CLOSE SEQUENTIAL WITH LOCK.*)
          DIAGP  N,7447 
          DIAGT  (*FIPS=3 SUPPORTS OPEN INPUT REVERSED.*) 
          DIAGP  N,7448 
          DIAGT  (*FIPS=3 SUPPORTS OPEN NO REWIND.*)
          DIAGP  N,7449 
          DIAGT  (*FIPS=3 SUPPORTS OPEN EXTEND.*) 
          DIAGP  N,7450 
          DIAGT  (*FIPS=3 SUPPORTS READ NEXT RECORD.*)
          DIAGP  N,7451 
          DIAGT  (*FIPS=3 SUPPORTS THE SORT STATEMENT.*)
          DIAGP  N,7452 
          DIAGT  (*FIPS=4 SUPPORTS MULTIPLE SORT STATEMENTS IN ONE PROGR
,AM*) 
          DIAGP  N,7453 
          DIAGT  (*FIPS=3 SUPPORTS THE START STATEMENT FOR RELATIVE FILE
,S AND FIPS=4 SUPPORTS THE START STATEMENT FOR INDEXED FILES.*) 
          DIAGP  N,7454 
          DIAGT  (*THE USE STATEMENT FILE-NAME SERIES IS BEING DIAGNOSED
, FOR ANY FIPS LEVEL LESS THAN FIPS=4 AND WITHOUT REGARD TO FILE-NAME OR
,GANIZATION.*)
          DIAGP  N,7455 
          DIAGT  (*FIPS=3 SUPPORTS USE AFTER ERROR PROCEDURE EXTEND.*)
          DIAGP  N,7456 
          DIAGT  (*FIPS=2 SUPPORTS USE FOR DEBUGGING STATEMENT.*) 
          DIAGP  N,7457 
          DIAGT  (*FIPS=3 SUPPORTS USE FOR DEBUGGING ON IDENTIFIER, ALL 
,REFERENCES OF IDENTIFIER, FILE-NAMES, AND CD-NAMES.*)
          DIAGP  N,7458 
          DIAGT  (*HASHED-VALUE IS NON-STANDARD COBOL.*)
          DIAGP  N,7459 
          DIAGT  (*ADD CORR TO MORE THAN ONE IDENTIFIER IS NON-STANDARD 
,COBOL.*) 
          DIAGP  N,7460 
          DIAGT  (*DISPLAY WITH NO ADVANCING IS NON-STANDARD COBOL.*) 
          DIAGP  N,7461 
          DIAGT  (*MOVE CORR TO MORE THAN ONE IDENTIFIER IS NON-STANDARD
, COBOL.*)
          DIAGP  N,7462 
          DIAGT  (*FORMAT 3 OF THE SET STATEMENT IS NON-STANDARD COBOL.*
,)
          DIAGP  N,7463 
          DIAGT  (*FORMAT 4 OF THE SET STATEMENT IS NON-STANDARD COBOL.*
,)
          DIAGP  N,7464 
          DIAGT  (*SUBTRACT CORR FROM MORE THAN ONE IDENTIFIER IS NON-ST
,ANDARD COBOL.*)
          DIAGP  N,7465 
          DIAGT  (*USE FOR HASHING IS NON-STANDARD COBOL.*) 
          DIAGP  N,7466 
          DIAGT  (*AN ALTERNATE RECORD KEY WHOSE DESCRIPTION CONTAINS TH
,E OCCURS CLAUSE IS NON-STANDARD COBOL.*) 
          DIAGP  N,7467 
          DIAGT  (*THE USE OF A NON-SEQUENTIAL FILE IN THE USING PHRASE 
,OF THE SORT STATEMENT IS NON-STANDARD COBOL.*) 
          DIAGP  N,7468 
          DIAGT  (*FORMAT 5 OF THE SET STATEMENT IS NON-STANDARD COBOL.*
,)
          DIAGP  F,7469 
          DIAGT  (*THE CONDITION-NAME IN A SET STATEMENT MUST NOT BE A S
,WITCH STATUS CONDITION-NAME.*) 
          DIAGP  F,7470 
          DIAGT  (*TWO OR MORE CONDITION-NAMES HAVING THE SAME CONDITION
,AL VARIABLE MUST NOT APPEAR IN THE SAME SET STATEMENT.*) 
          DIAGP  F,7471 
          DIAGT  (*THE RESERVED WORD TRUE IS REQUIRED HERE.*) 
          DIAGP  F,7472 
          DIAGT  (*THIS INDEX-NAME CANNOT APPEAR IN THIS POSITION.*)
          DIAGP  F,7473 
          DIAGT  (*THE WRONG NUMBER OF SUBSCRIPTS HAS BEEN SPECIFIED.*) 
          DIAGP  F,7474 
          DIAGT  (*AN ARITHMETIC EXPRESSION IS REQUIRED HERE TO SPECIFY 
,THE STARTING CHARACTER POSITION IN A REFERENCE MODIFIER.*) 
          DIAGP  F,7475 
          DIAGT  (*NO SUBSCRIPTS ARE ALLOWED HERE.*)
          DIAGP  F,7476 
          DIAGT  (*THE RESERVED WORD END OR AN ARITHMETIC EXPRESSION IS 
,REQUIRED HERE TO SPECIFY THE LENGTH IN A REFERENCE MODIFIER.*) 
          DIAGP  F,7477 
          DIAGT  (*A RIGHT PARENTHESIS IS REQUIRED HERE IN A REFERENCE M
,ODIFIER.*) 
          DIAGP  F,7478 
          DIAGT  (*REFERENCE MODIFICATION IS ONLY ALLOWED ON DATA ITEMS 
,WHOSE USAGE IS DISPLAY.*)
          DIAGP  F,7479 
          DIAGT  (*REFERENCE MODIFICATION IS NOT ALLOWED IN THIS CONTEXT
,.*)
          DIAGP  F,7480 
          DIAGT  (*A BOOLEAN LITERAL IS REQUIRED HERE.*)
          DIAGP  F,7481 
          DIAGT  (*A BOOLEAN DATA ITEM IS REQUIRED HERE.*)
          DIAGP  F,7482 
          DIAGT  (*THE BOOLEAN EXPRESSION IS INVALID FOLLOWING THE BOOLE
,AN-EXOR OPERATOR.*)
          DIAGP  F,7483 
          DIAGT  (*THE BOOLEAN EXPRESSION IS INVALID FOLLOWING THE BOOLE
,AN-OR OPERATOR.*)
          DIAGP  F,7484 
          DIAGT  (*THE BOOLEAN EXPRESSION IS INVALID FOLLOWING THE BOOLE
,AN-AND OPERATOR.*) 
          DIAGP  F,7485 
          DIAGT  (*THE BOOLEAN EXPRESSION IS INVALID FOLLOWING THE BOOLE
,AN-NOT OPERATOR.*) 
          DIAGP  F,7486 
          DIAGT  (*THE BOOLEAN EXPRESSION IS INVALID FOLLOWING THE LEFT 
,PARENTHESIS.*) 
          DIAGP  F,7487 
          DIAGT  (*A RIGHT PARENTHESIS IS MISSING IN A BOOLEAN EXPRESSIO
,N.*) 
          DIAGP  F,7488 
          DIAGT  (*IS EQUAL TO, IS =, EQUALS, IS NOT EQUAL TO, IS NOT =,
, OR IS UNEQUAL TO, ARE THE LEGAL RELATIONAL OPERATORS IN A BOOLEAN RELA
,TION CONDITION.*)
          DIAGP  F,7489 
          DIAGT  (*A BOOLEAN EXPRESSION IS REQUIRED HERE.*) 
          DIAGP  F,7490 
          DIAGT  (*THIS LOGICAL FILE NAME CONTAINS MORE THAN SEVEN CHARA
,CTERS, CONTAINS NON-ALPHANUMERIC CHARACTERS, OR DOES NOT BEGIN WITH A L
,ETTER.*) 
          DIAGP  F,7491 
          DIAGT  (*THE USE OF A NON-SEQUENTIAL FILE IN THE USING PHRASE 
,OF THE MERGE STATEMENT IS ILLEGAL.*) 
          DIAGP  W,7495 
          DIAGT  (*CID LOADER TABLES ARE NOT GENERATED FOR SEGMEMTED PRO
,GRAMS.*) 
          DIAGP  F,7501 
          DIAGT  (*A NON-SUBSCRIPTED DATA NAME WHOSE DESCRIPTION CONTAIN
,S AN OCCURS CLAUSE WITH AN INDEXED BY PHRASE IS REQUIRED HERE.*) 
          DIAGP  F,7502 
          DIAGT  (*AN INDEX NAME, AN INDEX DATA ITEM, OR AN INTEGER ELEM
,ENTARY DATA ITEM MUST FOLLOW THE RESERVED WORD -VARYING- IN A SEARCH ST
,ATEMENT.*) 
          DIAGP  F,7503 
          DIAGT  (*-AT- MUST BE FOLLOWED BY -END- IN A SEARCH STATEMENT.
,*) 
          DIAGP  F,7504 
          DIAGT  (*AN IMPERATIVE STATEMENT IS REQUIRED TO COMPLETE THE A
,T END PHRASE.*)
          DIAGP  F,7505 
          DIAGT  (*A SEARCH STATEMENT MUST CONTAIN AT LEAST ONE WHEN PHR
,ASE*)
          DIAGP  F,7506 
          DIAGT  (*EITHER AN IMPERATIVE STATEMENT OR -NEXT SENTENCE- MUS
,T FOLLOW THE CONDITION IN A WHEN PHRASE OF A SEARCH STATEMENT.*) 
          DIAGP  F,7507 
          DIAGT  (*AN INDEX-NAME, AN INDEX DATA ITEM, OR AN INTEGER DATA
, ITEM IS REQUIRED IN THE VARYING PHRASE OF A SEARCH STATEMENT.*) 
          DIAGP  F,7508 
          DIAGT  (*THE RESERVED WORD -WHEN- IS REQUIRED HERE.*) 
          DIAGP  F,7509 
          DIAGT  (*AN IDENTIFIER THAT IS A KEY OF THE TABLE BEING SEARCH
,ED AND IS INDEXED BY THE FIRST INDEX NAME ASSOCIATED WITH THAT TABLE IS
, REQUIRED HERE.*)
          DIAGP  F,7510 
          DIAGT  (*AN IDENTIFIER, A LITERAL, OR AN ARITHMETIC EXPRESSION
, IS REQUIRED HERE.*) 
          DIAGP  F,7511 
          DIAGT  (*AN EQUALITY TYPE OPERATOR IS REQUIRED HERE.*)
          DIAGP  F,7512 
          DIAGT  (*A CONDITION NAME THAT IS REFERENCED IN A SEARCH ALL S
,TATEMENT MAY HAVE ONLY ONE ASSOCIATED VALUE.*) 
          DIAGP  F,7513 
          DIAGT  (*AT LEAST ONE KEY ITEM MUST BE ASSOCIATED WITH A TABLE
, WHICH IS THE OBJECT OF A SEARCH ALL STATEMENT.*)
          DIAGP  F,7514 
          DIAGT  (*THE SUBJECT OF A CONDITION IN A SEARCH ALL STATEMENT 
,MUST BE DEFINED AS A KEY OF THE TABLE THAT IS TO BE SEARCHED.*)
          DIAGP  F,7515 
          DIAGT  (*THE SUBJECT OF A CONDITION IN A SEARCH ALL STATEMENT 
,MUST BE INDEXED BY THE FIRST INDEX-NAME THAT IS ASSOCIATED WITH THE TAB
,LE THAT IS TO BE SEARCHED.*) 
          DIAGP  F,7516 
          DIAGT  (*ALL KEYS THAT ARE MORE MAJOR THAN THIS ONE MUST APPEA
,R AS SUBJECTS IN THIS CONDITION.*) 
          DIAGP  F,7517 
          DIAGT  (*THE OBJECT OF A CONDITION IN A SEARCH ALL STATEMENT M
,UST NOT CONTAIN ANY OF THE KEYS NOR THE FIRST INDEX-NAME THAT IS ASSOCI
,ATED WITH THE TABLE THAT IS TO BE SEARCHED.*)
          DIAGP  F,7519 
          DIAGT  (*THE FDL PARAMETER MUST BE SPECIFIED ON THE COBOL5 DIR
,ECTIVE WHEN CALL IDENTIFIER IS USED.*) 
          DIAGP  F,7550 
          DIAGT  (*THE RESERVED WORD CONTROL IS REQUIRED HERE.*)
          DIAGP  F,7551 
          DIAGT  (*THE ON PHRASE OF THE USE FOR ACCESS CONTROL STATEMENT
, MUST SPECIFY INPUT, I-O, INPUT I-O, OR I-O INPUT. IF THE ON PHRASE IS 
,OMITTED, I-O INPUT IS ASSUMED.*) 
          DIAGP  F,7552 
          DIAGT  (*THE RESERVED WORD REALMS OR AT LEAST ONE SPECIFIC REA
,LM-NAME MUST BE SPECIFIED IN THE USE FOR ACCESS CONTROL STATEMENT.*) 
          DIAGP  F,7553 
          DIAGT  (*THE RESERVED WORD REALMS OR AT LEAST ONE SPECIFIC REA
,LM-NAME MUST BE SPECIFIED IN THE USE FOR DEADLOCK STATEMENT.*) 
          DIAGP  F,7554 
          DIAGT  (*A REALM-NAME REFERENCE IS REQUIRED HERE.*) 
          DIAGP  F,7555 
          DIAGT  (*ONE OR MORE USE FOR ACCESS CONTROL DECLARATIVES HAVE 
,SPECIFIED EITHER INPUT OR I-O MORE THAN ONCE FOR THE SAME REALM-NAME.*)
          DIAGP  F,7556 
          DIAGT  (*THE USE FOR ACCESS CONTROL STATEMENT IS ONLY LEGAL IN
, THE DECLARATIVES PORTION OF THE PROCEDURE DIVISION.*) 
          DIAGP  F,7557 
          DIAGT  (*THE USE FOR ACCESS CONTROL SECTION HEADING IS MISSING
,.*)
          DIAGP  F,7558 
          DIAGT  (*THE USE FOR ACCESS CONTROL STATEMENT MUST CONTAIN THE
, KEY IS DATA-NAME PHRASE.*)
          DIAGP  F,7559 
          DIAGT  (*AN ACCESS CONTROL KEY MUST BE ALPHANUMERIC AND NOT 
,LONGER THAN 30 CHARACTERS.*) 
          DIAGP  F,7560 
          DIAGT  (*THE USE FOR DEADLOCK DECLARATIVE IS NOT SUPPORTED IN 
,THIS VERSION OF THE COMPILER.*)
          DIAGP  F,7561 
          DIAGT  (*THE USE FOR ACCESS CONTROL DECLARATIVE IS NOT SUPPORT
,ED IN THIS VERSION OF THE COMPILER.*)
          DIAGP  F,7562 
          DIAGT  (*IN THE START STATEMENT, THE DATA NAME SPECIFIED IN TH
,E KEY PHRASE IS A PARTIAL KEY BUT WAS NOT SPECIFICALLY DESIGNATED AS A 
,LEGAL MAJOR KEY IN THE SUBSCHEMA.*)
          DIAGP  W,7563 
          DIAGT  (*THE WITH NO REWIND PHRASE OF THE FORMAT 2 OPEN STATEM
,ENT DOES NOT APPLY TO CDCS PROCESSING.*) 
          DIAGP  W,7564 
          DIAGT  (*THE WITH LOCK PHRASE OF THE FORMAT 2 CLOSE STATEMENT 
,DOES NOT APPLY TO CDCS PROCESSING.*) 
          DIAGP  W,7587 
          DIAGT  (*A LANGUAGE NAME MUST BE -COMPASS- OR -FORTRAN-X-. -CO
,MPASS- IS ASSUMED.*) 
          DIAGP  F,7588 
          DIAGT  (*AN INDEX NAME MUST NOT BE USED IN THE USING PHRASE OF
, AN ENTER STATEMENT.*) 
          DIAGP  N,7589 
          DIAGT  (*THE OMISSION OF A LANGUAGE NAME IN THE ENTER STATEMEN
,T IS NON-STANDARD.*) 
          DIAGP  T,7590 
          DIAGT  (*THIS STATEMENT CAN NOT BE EXECUTED BECAUSE IT FOLLOWS
, A STOP RUN STATEMENT.*) 
          DIAGP  T,7591 
          DIAGT  (*THIS STATEMENT CAN NOT BE EXECUTED BECAUSE IT FOLLOWS
, AN EXIT PROGRAM STATEMENT.*)
          DIAGP  W,7593 
          DIAGT  (*THE PROCEDURE DIVISION HEADER IS MISSING.*)
          DIAGP  W,7594 
          DIAGT  (*THE RESERVED WORD -DIVISION- IS REQUIRED TO COMPLETE 
,THE PROCEDURE DIVISION HEADER.*) 
          DIAGP  F,7595 
          DIAGT  (*A REPORT NAME IS REQUIRED HERE.*)
          DIAGP  F,7596 
          DIAGT  (*A REPORT NAME OR THE NAME OF A DETAIL REPORT GROUP IS
, REQUIRED HERE.*)
          DIAGP  F,7597 
          DIAGT  (*SUMMARY REPORTING IS NOT ALLOWED FOR THIS REPORT BECA
,USE IT DOES NOT CONTAIN A CONTROL CLAUSE, OR DOES NOT CONTAIN AT LEAST 
,ONE BODY GROUP, OR BECAUSE IT CONTAINS MORE THAN ONE DETAIL GROUP.*) 
          DIAGP  F,7598 
          DIAGT  (*THE REPORT WRITER STATEMENTS INITIATE, GENERATE, AND 
,TERMINATE MAY NOT APPEAR IN A USE BEFORE REPORTING PROCEDURE.*)
          DIAGP  F,7599 
          DIAGT  (*THE SUPPRESS STATEMENT MAY NOT BE USED OUTSIDE A USE 
,BEFORE REPORTING PROCEDURE.*)
          DIAGP  F,7600 
          DIAGT  (*A GO TO STATEMENT IN ONE SORT PROCEDURE CANNOT REFERE
,NCE A PROCEDURE NAME DEFINED IN A DIFFERENT SORT PROCEDURE.*)
          DIAGP  F,7601 
          DIAGT  (*A GO TO STATEMENT APPEARING IN THE NONDECLARATIVE POR
,TION OF THE PROCEDURE DIVISION CANNOT REFERENCE A PROCEDURE NAME DEFINE
,D IN THE DECLARATIVE PORTION OF THE PROCEDURE DIVISION.*)
          DIAGP  F,7602 
          DIAGT  (*A GO TO STATEMENT APPEARING IN THE NONDECLARATIVE POR
,TION OF THE PROCEDURE DIVISION CANNOT REFERENCE A PROCEDURE NAME DEFINE
,D IN A DEBUGGING SECTION.*)
          DIAGP  F,7603 
          DIAGT  (*A GO TO STATEMENT MUST NOT REFERENCE A PROCEDURE NAME
, DEFINED IN A SORT PROCEDURE UNLESS THE GO TO STATEMENT IS IN THE SAME 
,SORT PROCEDURE.*)
          DIAGP  F,7604 
          DIAGT  (*A GO TO STATEMENT IN A DECLARATIVE SECTION MUST NOT R
,EFERENCE ANY NONDECLARATIVE PROCEDURE.*) 
          DIAGP  F,7605 
          DIAGT  (*A GO TO STATEMENT APPEARING OUTSIDE OF THE SET OF DEB
,UGGING SECTIONS MUST NOT REFERENCE ANY PROCEDURE NAME DEFINED WITHIN TH
,E SET OF DEBUGGING SECTIONS.*) 
          DIAGP  F,7606 
          DIAGT  (*A GO TO STATEMENT IN A DECLARATIVE SECTION MUST NOT R
,EFERENCE A PROCEDURE NAME DEFINED IN A SORT PROCEDURE. IT CAN ONLY REFE
,RENCE NAMES DEFINED IN THE DECLARATIVE PORTION OF THE PROCEDURE DIVISIO
,N.*) 
          DIAGP  F,7607 
          DIAGT  (*A GO TO STATEMENT IN A DEBUGGING SECTION CAN ONLY REF
,ERENCE PROCEDURE NAMES DEFINED IN THE SAME DEBUGGING SECTION.*)
          DIAGP  F,7608 
          DIAGT  (*A GO TO STATEMENT IN ONE DEBUGGING SECTION CANNOT REF
,ERENCE A PROCEDURE NAME DEFINED IN A DIFFERENT DEBUGGING SECTION.*)
          DIAGP  F,7609 
          DIAGT  (*A GO TO STATEMENT IN A DEBUGGING SECTION CANNOT REFER
,ENCE A PROCEDURE NAME DEFINED IN A SORT PROCEDURE. THE PROCEDURE NAME M
,UST BE DEFINED IN THE SAME DEBUGGING SECTION.*)
          DIAGP  F,7610 
          DIAGT  (*A GO TO STATEMENT IN A SORT PROCEDURE CANNOT REFERENC
,E A PROCEDURE NAME DEFINED OUTSIDE THAT SAME SORT PROCEDURE.*) 
          DIAGP  F,7611 
          DIAGT  (*A GO TO STATEMENT IN A SORT PROCEDURE CANNOT REFERENC
,E A PROCEDURE NAME DEFINED IN A DECLARATIVE SECTION. IT CAN ONLY REFERE
,NCE A PROCEDURE NAME DEFINED IN THE SAME SORT PROCEDURE.*) 
          DIAGP  F,7612 
          DIAGT  (*A GO TO STATEMENT IN A SORT PROCEDURE CANNOT REFERENC
,E A PROCEDURE NAME DEFINED IN A DEBUGGING SECTION. IT CAN ONLY REFERENC
,E A PROCEDURE NAME DEFINED IN THE SAME SORT PROCEDURE.*) 
          DIAGP  F,7613 
          DIAGT  (*AN ALTER STATEMENT APPEARING IN THE NONDECLARATIVE PO
,RTION OF THE PROCEDURE DIVISION CANNOT REFERENCE A PROCEDURE NAME DEFIN
,ED IN THE DECLARATIVE PORTION OF THE PROCEDURE DIVISION.*) 
          DIAGP  F,7614 
          DIAGT  (*AN ALTER STATEMENT APPEARING IN THE NONDECLARATIVE PO
,RTION OF THE PROCEDURE DIVISION CANNOT REFERENCE A PROCEDURE NAME DEFIN
,ED IN A DEBUGGING SECTION.*) 
          DIAGP  F,7615 
          DIAGT  (*AN ALTER STATEMENT MUST NOT REFERENCE A PROCEDURE NAM
,E DEFINED IN A SORT PROCEDURE UNLESS THE ALTER STATEMENT IS IN THE SAME
, SORT PROCEDURE.*) 
          DIAGP  F,7616 
          DIAGT  (*AN ALTER STATEMENT IN A DECLARATIVE SECTION MUST NOT 
,REFERENCE ANY NONDECLARATIVE PROCEDURE.*)
          DIAGP  F,7617 
          DIAGT  (*AN ALTER STATEMENT APPEARING OUTSIDE OF THE SET OF DE
,BUGGING SECTIONS MUST NOT REFERENCE ANY PROCEDURE NAME DEFINED WITHIN T
,HE SET OF DEBUGGING SECTIONS.*)
          DIAGP  F,7618 
          DIAGT  (*AN ALTER STATEMENT IN A DECLARATIVE SECTION MUST NOT 
,REFERENCE A PROCEDURE NAME DEFINED IN A SORT PROCEDURE. IT CAN ONLY REF
,ERENCE NAMES DEFINED IN THE DECLARATIVE PORTION OF THE PROCEDURE DIVISI
,ON.*)
          DIAGP  F,7619 
          DIAGT  (*AN ALTER STATEMENT IN A DEBUGGING SECTION CAN ONLY RE
,FERENCE PROCEDURE NAMES DEFINED IN THE SAME DEBUGGING SECTION.*) 
          DIAGP  F,7620 
          DIAGT  (*AN ALTER STATEMENT IN ONE DEBUGGING SECTION CANNOT RE
,FERENCE A PROCEDURE NAME DEFINED IN A DIFFERENT DEBUGGING SECTION.*) 
          DIAGP  F,7621 
          DIAGT  (*AN ALTER STATEMENT IN A DEBUGGING SECTION CANNOT REFE
,RENCE A PROCEDURE NAME DEFINED IN A SORT PROCEDURE. THE PROCEDURE NAME 
,MUST BE DEFINED IN THE SAME DEBUGGING SECTION.*) 
          DIAGP  F,7622 
          DIAGT  (*AN ALTER STATEMENT IN A SORT PROCEDURE CANNOT REFEREN
,CE A PROCEDURE NAME DEFINED OUTSIDE THAT SAME SORT PROCEDURE.*)
          DIAGP  F,7623 
          DIAGT  (*AN ALTER STATEMENT IN A SORT PROCEDURE CANNOT REFEREN
,CE A PROCEDURE NAME DEFINED IN A DECLARATIVE SECTION. IT CAN ONLY REFER
,ENCE A PROCEDURE NAME DEFINED IN THE SAME SORT PROCEDURE.*)
          DIAGP  F,7624 
          DIAGT  (*AN ALTER STATEMENT IN A SORT PROCEDURE CANNOT REFEREN
,CE A PROCEDURE NAME DEFINED IN A DEBUGGING SECTION. IT CAN ONLY REFEREN
,CE A PROCEDURE NAME DEFINED IN THE SAME SORT PROCEDURE.*)
          DIAGP  F,7625 
          DIAGT  (*A PERFORM STATEMENT APPEARING IN THE NONDECLARATIVE P
,ORTION OF THE PROCEDURE DIVISION CANNOT REFERENCE A PROCEDURE NAME DEFI
,NED IN A DEBUGGING SECTION.*)
          DIAGP  N,7626 
          DIAGT  (*A PERFORM STATEMENT MUST NOT REFERENCE A PROCEDURE NA
,ME DEFINED IN A SORT PROCEDURE UNLESS THE PERFORM STATEMENT IS IN THE S
,AME SORT PROCEDURE.*)
          DIAGP  F,7627 
          DIAGT  (*A PERFORM STATEMENT IN A DECLARATIVE SECTION MUST NOT
, REFERENCE ANY NONDECLARATIVE PROCEDURE.*) 
          DIAGP  F,7628 
          DIAGT  (*A PERFORM STATEMENT APPEARING OUTSIDE OF THE SET OF D
,EBUGGING SECTIONS MUST NOT REFERENCE ANY PROCEDURE NAME DEFINED WITHIN 
,THE SET OF DEBUGGING SECTIONS.*) 
          DIAGP  F,7629 
          DIAGT  (*A PERFORM STATEMENT IN A DECLARATIVE SECTION MUST NOT
, REFERENCE A PROCEDURE NAME DEFINED IN A SORT PROCEDURE. IT CAN ONLY RE
,FERENCE NAMES DEFINED IN THE DECLARATIVE PORTION OF THE PROCEDURE DIVIS
,ION.*) 
          DIAGP  N,7630 
          DIAGT  (*A PERFORM STATEMENT IN ONE SORT PROCEDURE CANNOT REFE
,RENCE A PROCEDURE NAME DEFINED IN A DIFFERENT SORT PROCEDURE.*)
          DIAGP  F,7631 
          DIAGT  (*A PERFORM STATEMENT IN A DEBUGGING SECTION CANNOT REF
,ERENCE A PROCEDURE NAME DEFINED IN A SORT PROCEDURE. THE PROCEDURE NAME
, MUST BE DEFINED IN THE DECLARATIVES.*)
          DIAGP  N,7632 
          DIAGT  (*A PERFORM STATEMENT IN A SORT PROCEDURE CANNOT REFERE
,NCE A PROCEDURE NAME DEFINED OUTSIDE THAT SAME SORT PROCEDURE.*) 
          DIAGP  F,7633 
          DIAGT  (*A PERFORM STATEMENT IN A SORT PROCEDURE CANNOT REFERE
,NCE A PROCEDURE NAME DEFINED IN A DECLARATIVE SECTION. IT CAN ONLY REFE
,RENCE A PROCEDURE NAME DEFINED IN THE SAME SORT PROCEDURE.*) 
          DIAGP  F,7634 
          DIAGT  (*A PERFORM STATEMENT IN A SORT PROCEDURE CANNOT REFERE
,NCE A PROCEDURE NAME DEFINED IN A DEBUGGING SECTION. IT CAN ONLY REFERE
,NCE A PROCEDURE NAME DEFINED IN THE SAME SORT PROCEDURE.*) 
          DIAGP  F,7635 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN IN THE NONDECLARATIVE P
,ORTION OF THE PROCEDURE DIVISION AND END IN THE DECLARATIVE PORTION OF 
,THE PROCEDURE DIVISION.*)
          DIAGP  F,7636 
          DIAGT  (*AN ALTER STATEMENT IN ONE SORT PROCEDURE CANNOT REFER
,ENCE A PROCEDURE NAME DEFINED IN A DIFFERENT SORT PROCEDURE.*) 
          DIAGP  F,7637 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN OUTSIDE OF A SORT PROCE
,DURE AND END INSIDE OF THE SORT PROCEDURE.*) 
          DIAGP  F,7638 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN INSIDE A DECLARATIVE SE
,CTION AND END IN THE NONDECLARATIVE PORTION OF THE PROCEDURE DIVISION. 
,*) 
          DIAGP  F,7639 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN IN ONE DECLARATIVE SECT
,ION AND END IN A DIFFERENT DECLARATIVE SECTION.*)
          DIAGP  F,7640 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN IN A DECLARATIVE SECTIO
,N AND END IN A SORT PROCEDURE.*) 
          DIAGP  F,7641 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN INSIDE A SORT PROCEDURE
, AND END OUTSIDE OF THAT SAME SORT PROCEDURE.*)
          DIAGP  F,7642 
          DIAGT  (*A PERFORM REGION CANNOT BEGIN INSIDE A SORT PROCEDURE
, AND END IN THE DECLARATIVES.*)
          DIAGP  N,7643 
          DIAGT  (*A FILE ORGANIZATION OTHER THAN SEQUENTIAL FOR THE GIV
,ING FILE IN A SORT OR MERGE STATEMENT IS NON STANDARD.*) 
          DIAGP  F,7644 
          DIAGT  (*THE ORGANIZATION OF THE GIVING FILE IN A SORT OR MERG
,E STATEMENT MUST BE SEQUENTIAL, RELATIVE, INDEXED OR ACTUAL-KEY.*) 
          DIAGP  F,7645 
          DIAGT  (*IF THE ORGANIZATION OF THE GIVING FILE IN A SORT OR M
,ERGE STATEMENT IS INDEXED OR ACTUAL-KEY, THE MAJOR SORT-MERGE KEY MUST 
,BE ASCENDING AND MUST BE EITHER THE PRIME KEY FOR THE FILE OR A REDEFIN
,ITION OF IT WITH THE SAME LENGTH.*)
          DIAGP  F,7646 
          DIAGT  (*REFERENCE TO A CONDITION-NAME IS INVALID IN THIS CONT
,EXT.*) 
          DIAGP  N,7699 
          DIAGT  (*FIPS=3 SUPPORTS CALL IDENTIFIER.*) 
          DIAGP  N,7700 
          DIAGT  (*FIPS=3 SUPPORTS ACCEPT MESSAGE COUNT.*)
          DIAGP  F,7701 
          DIAGT  (*A RENAMES DATA ITEM MAY NOT BE A RECEIVING ITEM IN AN
, INITIALIZE STATEMENT.*) 
          DIAGP  F,7703 
          DIAGT  (*AN INDEX DATA ITEM MAY NOT APPEAR AS A RECEIVING FIEL
,D IN AN INITIALIZE STATEMENT.*)
          DIAGP  F,7704 
          DIAGT  (*AN INDEX-NAME MAY NOT APPEAR AS A RECEIVING FIELD IN 
,AN INITIALIZE STATEMENT.*) 
          DIAGP  F,7705 
          DIAGT  (*IN AN INITIALIZE STATEMENT, THE OCCURS DEPENDING ON P
,HRASE MAY NOT APPEAR IN THE DESCRIPTION OF A RECEIVING FIELD OR ANY ITE
,M SUBORDINATE TO A RECEIVING FIELD.*)
          DIAGP  F,7706 
          DIAGT  (*IN AN INITIALIZE STATEMENT, THE CATEGORY OF THE SENDI
,NG ITEM MUST BE CONSISTENT WITH THE CATEGORY SPECIFIED IN THE REPLACING
, PHRASE.*) 
          DIAGP  W,7707 
          DIAGT  (*IN AN INITIALIZE STATEMENT, THE CATEGORY OF AN ELEMEN
,TARY RECEIVING ITEM MUST BE THE SAME AS THE CATEGORY SPECIFIED IN THE R
,EPLACING PHRASE.*) 
          DIAGP  N,7750 
          DIAGT  (*THE CONTINUE STATEMENT IS NON-STANDARD COBOL.*)
          DIAGP  N,7751 
          DIAGT  (*THE END-IF IS NON-STANDARD COBOL.*)
          DIAGP  N,7752 
          DIAGT  (*THE END-SEARCH IS NON-STANDARD COBOL.*)
          DIAGP  N,7753 
          DIAGT  (*DELIMITED SCOPE STATEMENTS ARE NON-STANDARD COBOL.*) 
          DIAGP  T,7754 
          DIAGT  (*THE NEXT SENTENCE PHRASE IS ILLEGAL IN A DELIMITED SC
,OPE STATEMENT.*) 
          DIAGP  N,7755 
          DIAGT  (*THE WITH TEST BEFORE/AFTER PHRASE IS NON-STANDARD COB
,OL.*)
          DIAGP  F,7756 
          DIAGT  (*AN END-PERFORM IS REQUIRED TO TERMINATE AN IN-LINE PE
,RFORM.*) 
          DIAGP  N,7757 
          DIAGT  (*THE END-PERFORM IS NON-STANDARD COBOL.*) 
          DIAGP  W,7758 
          DIAGT  (*INCOMPLETE WITH TEST PHRASE--PHRASE IGNORED.*) 
          DIAGP  W,7759 
          DIAGT  (*THE WITH TEST BEFORE/AFTER PHRASE IS ILLEGAL IN FORMA
,T 1 AND 2 PERFORM STATEMENTS--PHRASE IGNORED.*)
          DIAGP  F,7760 
          DIAGT  (*AN IMPERATIVE STATEMENT IS REQUIRED IN AN IN-LINE PER
,FORM STATEMENT.*)
          DIAGP  F,7801 
          DIAGT  (*THE USE STATEMENT MUST SPECIFY -USE BEFORE REPORTING-
,, -USE FOR DEBUGGING-, -USE FOR HASHING-, OR -USE AFTER STANDARD ERROR 
,PROCEDURE-*) 
          DIAGP  F,7802 
          DIAGT  (*USE FOR DEBUGGING MUST SPECIFY CD-NAME, PROCEDURE-NAM
,E, FILE-NAME, ALL REFERENCES OF IDENTIFIER, OR ALL PROCEDURES.*) 
          DIAGP  F,7803 
          DIAGT  (*THE SAME REPORT GROUP NAME MAY NOT APPEAR IN MORE THA
,N ONE USE BEFORE REPORTING STATEMENT.*)
          DIAGP  F,7805 
          DIAGT  (*THE RESERVED WORD -REPORTING- IS REQUIRED HERE.*)
          DIAGP  F,7806 
          DIAGT  (*THE NAME OF A REPORT GROUP IS REQUIRED HERE.*) 
          DIAGP  F,7807 
          DIAGT  (*THE RESERVED WORD ERROR OR THE RESERVED WORD EXCEPTIO
,N IS REQUIRED HERE.*)
          DIAGP  F,7808 
          DIAGT  (*THE RESERVED WORD -PROCEDURE- IS REQUIRED HERE.*)
          DIAGP  F,7809 
          DIAGT  (*USE AFTER STANDARD ERROR PROCEDURE MUST SPECIFY FILE-
,NAME, INPUT, OUTPUT, EXTEND, OR I-O.*) 
          DIAGP  F,7810 
          DIAGT  (*THIS REFERENCE IS NOT A FILE-NAME REFERENCE AS REQUIR
,ED IN THE USE AFTER STANDARD ERROR PROCEDURE ON FILE-NAME STATEMENT.*) 
          DIAGP  F,7811 
          DIAGT  (*THE NAME OF A DIRECT FILE IS REQUIRED HERE.*)
          DIAGP  N,7812 
          DIAGT  (*FIPS=3 SUPPORTS REFERENCES TO LEVEL 66 ITEMS.*)
          DIAGP  N,7813 
          DIAGT  (*FIPS=3 SUPPORTS NESTED IF STATEMENTS.*)
          DIAGP  N,7814 
          DIAGT  (*FIPS=3 SUPPORTS INSPECT LITERALS GREATER THAN ONE CHA
,RACTER IN LENGTH.*)
          DIAGP  N,7815 
          DIAGT  (*FIPS=2 SUPPORTS PROCEDURE DIVISION REFERENCES TO RELA
,TIVE FILES.*)
          DIAGP  N,7816 
          DIAGT  (*FIPS=4 SUPPORTS PROCEDURE DIVISION REFERENCES TO INDE
,XED FILES.*) 
          DIAGP  N,7817 
          DIAGT  (*FIPS=2 SUPPORTS PROCEDURE DIVISION REFERENCES TO RECO
,RD-NAMES DEFINED IN RELATIVE FILES.*)
          DIAGP  N,7818 
          DIAGT  (*FIPS=4 SUPPORTS PROCEDURE DIVISION REFERENCES TO RECO
,RD-NAMES DEFINED IN INDEXED FILES.*) 
          DIAGP  N,7821 
          DIAGT  (*FIPS=3 SUPPORTS WRITE BEFORE/AFTER ADVANCING MNEMONIC
,-NAME.*) 
          DIAGP  N,7822 
          DIAGT  (*FIPS=3 SUPPORTS WRITE BEFORE/AFTER ADVANCING IDENTIFI
,ER LINES.*)
          DIAGP  N,7823 
          DIAGT  (*FIPS=2 SUPPORTS FIXED PERMANENT SEGMENTS AND INDEPEND
,ENT SEGMENTS.*)
          DIAGP  N,7824 
          DIAGT  (*FIPS=4 SUPPORTS FIXED OVERLAYABLE SEGMENTS.*)
          DIAGP  N,7825 
          DIAGT  (*FIPS=2 SUPPORTS REFERENCES TO DEBUG-ITEM, DEBUG-LINE,
, DEBUG-NAME, DEBUG-SUB-1, DEBUG-SUB-2, DEBUG-SUB-3, AND DEBUG-CONTENTS.
,*) 
          DIAGP  N,7826 
          DIAGT  (*FIPS=3 SUPPORTS WRITE AT END-OF-PAGE IMPERATIVE-STATE
,MENT.*)
          DIAGP  N,7827 
          DIAGT  (*FIPS=4 SUPPORTS THE OPEN FILE-NAME SERIES FOR INDEXED
, FILE ORGANIZATIONS.*) 
          DIAGP  N,7828 
          DIAGT  (*FIPS=3 SUPPORTS THE OPEN FILE-NAME SERIES FOR SEQUENT
,IAL FILE ORGANIZATIONS.*)
          DIAGP  N,7829 
          DIAGT  (*FIPS=2 SUPPORTS THE OPEN FILE-NAME SERIES FOR RELATIV
,E FILE ORGANIZATIONS.*)
          DIAGP  N,7830 
          DIAGT  (*FIPS=4 SUPPORTS THE CLOSE FILE-NAME SERIES FOR INDEXE
,D FILE ORGANIZATIONS.*)
          DIAGP  N,7831 
          DIAGT  (*FIPS=3 SUPPORTS THE CLOSE FILE-NAME SERIES FOR SEQUEN
,TIAL FILE ORGANIZATIONS.*) 
          DIAGP  N,7832 
          DIAGT  (*FIPS=2 SUPPORTS THE CLOSE FILE-NAME SERIES FOR RELATI
,VE FILE ORGANIZATIONS.*) 
          DIAGP  N,7833 
          DIAGT  (*FIPS=4 SUPPORTS THE USE AFTER FILE-NAME SERIES FOR IN
,DEXED FILE ORGANIZATIONS.*)
          DIAGP  N,7834 
          DIAGT  (*FIPS=3 SUPPORTS THE USE AFTER FILE-NAME SERIES FOR SE
,QUENTIAL FILE ORGANIZATIONS.*) 
          DIAGP  N,7835 
          DIAGT  (*FIPS=3 SUPPORTS THE USE AFTER FILE-NAME SERIES FOR RE
,LATIVE FILE ORGANIZATIONS.*) 
          DIAGP  F,7850 
          DIAGT  (*THE DECLARATIVES HEADER MAY NOT APPEAR MORE THAN ONCE
,.*)
          DIAGP  F,7851 
          DIAGT  (*THIS IS NOT THE DECLARATIVES SECTION. END DECLARATIVE
,S IS UNDEFINED.*)
          DIAGP  F,7852 
          DIAGT  (*IN THE DECLARATIVES, A USE STATEMENT MUST IMMEDIATELY
, FOLLOW EACH SECTION HEADER.*) 
          DIAGP  F,7853 
          DIAGT  (*A USE STATEMENT, WHEN PRESENT, MUST IMMEDIATELY FOLLO
,W A SECTION HEADER IN THE DECLARATIVES SECTION.*)
          DIAGP  W,7854 
          DIAGT  (*A PERIOD MUST FOLLOW A USE STATEMENT.*)
          DIAGP  F,7855 
          DIAGT  (*THE DECLARATIVES, WHEN PRESENT, MUST APPEAR IMMEDIATE
,LY AFTER THE PROCEDURE DIVISION HEADER.*)
          DIAGP  W,7856 
          DIAGT  (*A PERIOD MUST FOLLOW END DECLARATIVES.*) 
          DIAGP  W,7857 
          DIAGT  (*A PERIOD MUST FOLLOW THE RESERVED WORD -DECLARATIVES-
,.*)
          DIAGP  W,7858 
          DIAGT  (*DECLARATIVES MUST BE TERMINATED BY END DECLARATIVES. 
,*) 
          DIAGP  F,7880 
          DIAGT  (*A NON-ZERO LITERAL IS REQUIRED HERE.*) 
          DIAGP  T,7881 
          DIAGT  (*THIS CANCEL STATEMENT IS IGNORED BECAUSE THE -NO CANC
,EL- OPTION WAS SPECIFIED ON THE COMPILER CONTROL CARD.*) 
          DIAGP  F,7882 
          DIAGT  (*AN UNSIGNED INTEGER LITERAL IS REQUIRED HERE.*)
          DIAGP  F,7883 
          DIAGT  (*A POSITIVE INTEGER LITERAL IS REQUIRED HERE.*) 
          DIAGP  F,7886 
          DIAGT  (*THE OPERANDS IN THE USING PHRASE MUST BE DESCRIBED AS
, LEVEL 01 OR LEVEL 77.*) 
          DIAGP  F,7888 
          DIAGT  (*THIS DATA-NAME MUST BE DEFINED IN THE LINKAGE SECTION
,.*)
          DIAGP  F,7889 
          DIAGT  (*THE SAME DATA-NAME MUST NOT APPEAR MORE THAN ONCE IN 
,THE USING PHRASE OF THE PROCEDURE DIVISION HEADER.*) 
          DIAGP  W,7890 
          DIAGT  (*PROCEDURE DIVISION USING ILLEGAL IN MAIN PROGRAM.*)
          DIAGP  F,7894 
          DIAGT  (*THE DEBUGGING SECTIONS MUST APPEAR TOGETHER IMMEDIATE
,LY AFTER THE DECLARATIVES HEADER.*)
          DIAGP  F,7895 
          DIAGT  (*AN ELEMENTARY NUMERIC DATA ITEM IS REQUIRED IF THE -W
,ITH CONVERSION- PHRASE IS SPECIFIED.*) 
          DIAGP  F,7898 
          DIAGT  (*A PROCEDURE NAME DEFINED WITHIN A DEBUGGING SECTION M
,AY NOT APPEAR IN A USE FOR DEBUGGING STATEMENT.*)
          DIAGP  F,7899 
          DIAGT  (*WHEN THE -ALL PROCEDURES- PHRASE IS SPECIFIED IN A US
,E FOR DEBUGGING STATEMENT A PROCEDURE NAME MAY NOT BE SPECIFIED IN ANY 
,USE FOR DEBUGGING STATEMENT.*) 
          DIAGP  F,7900 
          DIAGT  (*THE -ALL PROCEDURES- PHRASE MAY APPEAR ONLY ONCE IN A
, PROGRAM.*)
          DIAGP  F,7901 
          DIAGT  (*THIS PROCEDURE NAME IS ALREADY REFERENCED IN A USE FO
,R DEBUGGING STATEMENT.*) 
          DIAGP  F,7902 
          DIAGT  (*THIS IDENTIFIER IS ALREADY REFERENCED IN A USE FOR DE
,BUGGING STATEMENT.*) 
          DIAGP  F,7903 
          DIAGT  (*THE SPECIAL REGISTER -DEBUG-ITEM- IS UNDEFINED IN A P
,ROGRAM WHICH IS NOT IN DEBUGGING MODE.*) 
          DIAGP  F,7904 
          DIAGT  (*REFERENCES TO THE SPECIAL REGISTER -DEBUG-ITEM- ARE O
,NLY ALLOWED FROM WITHIN A DEBUGGING SECTION.*) 
********** THE HIGH ORDER DIAGNOSTICS ARE RESERVED FOR DRIVER - PLEASE
********** LEAVE ROOM SO THIS BOUNDARY CAN MOVE DOWNWARD IF NECESSARY 
          DIAGP  F,7984 
          DIAGT  (*THIS SPECIAL REGISTER NAME REFERENCE IS AMBIGUOUS. TH
,E NAME IS MULTIPLY DEFINED OR THE REFERENCE IS INCORRECTLY QUALIFIED.*)
          DIAGP  F,7985 
          DIAGT  (*UNDEFINED SPECIAL REGISTER NAME REFERENCE.*) 
          DIAGP  N,7986 
          DIAGT  (*FIPS=3 SUPPORTS THE SEPARATORS COMMA AND SEMICOLON.*)
          DIAGP  F,7987 
          DIAGT  (*THIS REFERENCE TO LINAGE-COUNTER IS UNDEFINED BECAUSE
, THE FILE DESCRIPTION ENTRY FOR THIS FILE DOES NOT CONTAIN A LINAGE CLA
,USE.*) 
          DIAGP  F,7989 
          DIAGT  (*THE PROCEDURE DIVISION IS MISSING.*) 
          DIAGP  F,7990 
          DIAGT  (*THIS DATA NAME REFERENCE IS AMBIGUOUS. THE NAME IS MU
,LTIPLY DEFINED OR THE REFERENCE IS INCORRECTLY QUALIFIED.*)
          DIAGP  F,7991 
          DIAGT  (*A PROCEDURE NAME REFERENCE IS NOT ALLOWED HERE.*)
          DIAGP  F,7992 
          DIAGT  (*A DATA ITEM DEFINED IN THE REPORT SECTION MAY NOT BE 
,REFERENCED IN THE PROCEDURE DIVISION.*)
          DIAGP  F,7993 
          DIAGT  (*AMBIGUOUS PROCEDURE NAME REFERENCE.*)
          DIAGP  F,7994 
          DIAGT  (*UNDEFINED DATA NAME REFERENCE.*) 
          DIAGP  W,7995 
          DIAGT  (*THIS ELEMENT MUST BEGIN IN THE A-AREA.*) 
          DIAGP  F,7996 
          DIAGT  (*UNDEFINED PROCEDURE NAME REFERENCE.*)
          DIAGP  W,7997 
          DIAGT  (*THIS ELEMENT MAY NOT BEGIN IN THE A AREA.*)
          DIAGP  F,7998 
          DIAGT  (*ONLY NON-EDITED ALPHANUMERIC MOVES MAY BE PERFORMED O
,N DATA DEFINED IN THE SECONDARY-STORAGE SECTION. NO OTHER REFERENCES AR
,E ALLOWED.*) 
          DIAGP  W,7999 
          DIAGT  (*A COMMA OR SEMICOLON IS NOT ALLOWED HERE.*)
          CENTURY   8000
          DIAGP  F,8001 
          DIAGT  (*A LITERAL SPECIFIED IN THE LITERAL PHRASE OF THE ALPH
,ABET NAME CLAUSE, IF NUMERIC, MUST HAVE A VALUE WITHIN THE RANGE OF ONE
, THROUGH THE MAXIMUM NUMBER OF CHARACTERS IN THE NATIVE CHARACTER SET. 
,THE NATIVE CHARACTER SET IS ASSUMED FOR THIS ALPHABET NAME.*)
          DIAGP  F,8002 
          DIAGT  (*A LITERAL SPECIFIED IN THE LITERAL PHRASE OF THE ALPH
,ABET NAME CLAUSE, IF NON-NUMERIC AND ASSOCIATED WITH A -THROUGH- OR -AL
,SO- PHRASE, MUST BE ONE CHARACTER IN LENGTH. THE NATIVE CHARACTER SET I
,S ASSUMED FOR THIS ALPHABET NAME.*)
          DIAGP  F,8003 
          DIAGT  (*A GIVEN CHARACTER MAY NOT BE SPECIFIED MORE THAN ONCE
, IN THE LITERAL PHRASE OF THE ALPHABET NAME CLAUSE. THE NATIVE CHARACTE
,R SET IS ASSUMED FOR THIS ALPHABET NAME.*) 
          DIAGP  T,8004 
          DIAGT  (*ALL LITERAL IN BOOLEAN EXPRESSION IS LIMITED TO 255
,CHARACTERS*) 
          DIAGP  T,8010 
          DIAGT  (*UNSIGNED NUMERIC ITEM IS  COMPARED WITH A NEGATIVE LI
,TERAL.*) 
          DIAGP  T,8011 
          DIAGT  (*ONE OR MORE NON-ALPHABETIC CHARACTERS ARE PRESENT IN 
,THIS LITERAL WHICH IS USED WITH AN ALPHABETIC DATA ITEM.*) 
          DIAGP  T,8012 
          DIAGT  (*THIS LITERAL EXCEEDS THE SIZE INDICATED BY THE ASSOCI
,ATED DATA ITEM. ONE OR MORE CHARACTERS HAVE BEEN TRUNCATED ON THE RIGHT
,.*)
          DIAGP  T,8013 
          DIAGT  (*THIS LITERAL EXCEEDS THE SIZE INDICATED BY THE ASSOCI
,ATED DATA ITEM.  ONE OR MORE CHARACTERS HAVE BEEN TRUNCATED ON THE LEFT
,.*)
          DIAGP  W,8014 
          DIAGT  (*WHEN CODESET IS ASCII-64, EBCDIC, OR STANDARD-1, F TY
,PE RECORDS ARE ASSUMED.*)
          DIAGP  W,8015 
          DIAGT  (*WHEN CODESET IS ASCII-64, EBCDIC, OR STANDARD-1, C TY
,PE BLOCKS ARE ASSUMED.*) 
          DIAGP  W,8016 
          DIAGT  (*RECORDING MODE DECIMAL SPECIFIED FOR RECORD TYPE W OR
, BLOCK TYPE I - RECORDING MODE IS RESET TO BINARY*)
          DIAGP  W,8017 
          DIAGT  (*F RECORDS WITH LENGTH LESS THAN 10 CHARACTERS MAY NOT
, BE PROCESSED CORRECTLY.*) 
          DIAGP  C,8020 
          DIAGT  (*COMPILER ERROR - INVALID OBJECT TYPE.*)
          DIAGP  C,8021 
          DIAGT  (*COMPILER ERROR - INVALID SOURCE TYPE.*)
          DIAGP  C,8022 
          DIAGT  (*COMPILER ERROR - INVALID CCT FIELD.*)
          DIAGP  C,8023 
          DIAGT  (*COMPILER ERROR - INVALID ALPHABET NAME TYPE.*) 
          DIAGP  C,8024 
          DIAGT  (*COMPILER ERROR - NO AUX ENTRY.*) 
          DIAGP  C,8025 
          DIAGT  (*COMPILER ERROR - INVALID TABLE ENTRY.*)
          DIAGP  C,8026 
          DIAGT  (*COMPILER ERROR - MAXIMUM SIZE OF GTEXT TABLE EXCEEDED
,.  NUMBER OF PROCEDURE DIVISION STATEMENTS MUST BE REDUCED.  COMPILATIO
,N MAY BE FORCED TO COMPLETION BY SPECIFYING DB=B ON THE COBOL COMMAND. 
,HOWEVER, THIS MAY RESULT IN AN UNPREDICTABLE COMPILER FAILURE OR BAD OB
,JECT CODE.*) 
          DIAGP  W,8030 
          DIAGT  (*NUMERIC FIELD IN USE LITERAL CONTAINS NON NUMERIC CHA
,RACTER, ZERO ASSUMED.*)
          DIAGP  W,8031 
          DIAGT  (*EITHER YES OR NO EXPECTED IN USE LITERAL, NO ASSUMED.
,*) 
          DIAGP  W,8032 
          DIAGT  (*DELIMITER OF = EXPECTED IN USE LITERAL, FIELD SKIPPED
,.*)
          DIAGP  W,8033 
          DIAGT  (*UNRECOGNIZED PARAMETER IN USE LITERAL, IGNORED.*)
          DIAGP  W,8034 
          DIAGT  (*UNRECOGNIZED VALUE FOR PARAMETER IN USE LITERAL, PARA
,METER IGNORED.*) 
          DIAGP  W,8035 
          DIAGT  (*NUMERIC PARAMETER IN USE LITERAL IS NOT WITHIN ALLOWE
,D BOUNDS, ZERO ASSUMED*) 
          DIAGP  W,8036 
          DIAGT  (*ASCENDING MUST BE SPECIFIED FOR DUPLICATE KEYS IF KEY
, IS WITHIN OCCURS AND ORG=NEW HAS BEEN SPECIFIED IN THE USE LITERAL OR 
,IS IMPLIED BY DEFAULT.*) 
          DIAGP  W,8037 
          DIAGT  (*WHEN FILE ORGANIZATION IS RELATIVE OR WORD-ADDRESSABL
,E, THE RECORD TYPE MUST BE U. THE USE PARAMETER HAS THEREFORE BEEN IGNO
,RED.*) 
          DIAGP  W,8039 
          DIAGT  (*NONNUMERIC LITERAL REQUIRED FOR THE VALUE CLAUSE OF T
,HIS ITEM, VALUE CLAUSE IGNORED.*)
          DIAGP  F,8040 
          DIAGT  (*A SUB-SCHEMA -RESTRICT- CLAUSE RELATES A DATA BASE ID
,ENTIFIER AND A COBOL PROGRAM DATA-NAME WHOSE PROPERTIES DIFFER.*)
          DIAGP  F,8041 
          DIAGT  (*A DATA-NAME QUALIFIER OF A RELATION SPECIFIED IN THE 
,FDL FILE IS NOT IN THE COMMON-STORAGE SECTION.*) 
          DIAGP  W,8042 
          DIAGT  (*EXD AND SDS ARE NO LONGER SUPPORTED - SEE DFC AND EFC
,*) 
          DIAGP  F,8043 
          DIAGT  (*A PRINT FILE MAY NOT CONTAIN A SYNCHRONIZED ITEM NOR 
,AN ITEM WHOSE USAGE IS NOT DISPLAY*) 
          DIAGP  W,8044 
          DIAGT  (*VALUE FOR COMMON-STORAGE IN SUBCOMPILE IGNORED.*)
          DIAGP  W,8045 
          DIAGT  (*LITERAL EXCEEDS ITEM LENGTH.  VALUE TRUNCATED.*) 
          DIAGP  W,8046 
          DIAGT  (*NUMERIC VALUE REQUIRED FOR NUMERIC ITEM.*) 
          DIAGP  W,8047 
          DIAGT  (*SIGNED VALUE ILLEGAL FOR UNSIGNED ITEM.*)
          DIAGP  W,8048 
          DIAGT  (*BOOLEAN VALUE REQUIRED FOR BOOLEAN ITEM.*) 
          TERM
