*DECK QDDIAG1                                                           000320
          IDENT QDDIAG1                                                 000220
  
          TITLE  DIAGNOSTIC TABLE 1 
  
          ENTRY     DAGNOS1 
 DAGNOS1  VFD       30/0
 -        VFD       12/07,18/C001       CONCRDI 81, SCAN2 343, SCAN 1295
 -        VFD       12/07,18/C002       SCAN2 326, SCAN2 330, 
 -        VFD       12/05,18/C003 
 -        VFD       12/05,18/C004       SCAN2 948 
 -        VFD       12/04,18/C005 
 -        VFD       12/06,18/C006       SCAN2 1105
 -        VFD       12/07,18/C007       SCAN2 1208
 -        VFD       12/08,18/C008       SCAN2 533, SCAN2 762, SCAN2 1170
 -        VFD       12/05,18/C009       SCAN2 1799
 -        VFD       12/07,18/C007 
 -        VFD       12/08,18/C011       SCAN2 985 
 -        VFD       12/05,18/C012       SCAN2 1007
 -        VFD       12/06,18/C013       SCAN2 1269
 -        VFD       12/03,18/C014       SCAN2 1777
 -        VFD       12/07,18/C015       SCAN2 958 
 -        VFD       12/07,18/C016       SCAN2 1809
 -        VFD       12/05,18/C017       PASS1B 282, PASS1E 2970 
 -        VFD       12/05,18/C018       SCAN2 1379
 -        VFD       12/01,18/C019       SCAN2 913, SCAN2 928
          DATA      0 
 -        VFD       12/08,18/C022       SCAN2 1202
 -        VFD       30/0
          BSSZ      3 
 -        VFD       12/06,18/C030       SCAN2 1055
 -        VFD       12/04,18/C031       ITEMCOP 916 
 -        VFD       12/05,18/C032       ITEMCOP 582 
 -        VFD       12/06,18/C033 
 -        VFD       12/05,18/C034 
          VFD   12/03,18/C035     QDSYNTX 
          VFD   12/03,18/C036     QDSYNTX 
          VFD    12/05,18/C037                                           DL3A051
          BSSZ   6
          VFD    12/03,18/C050
          VFD    12/02,18/C051
          VFD    12/02,18/C052
          VFD    12/04,18/C053
          VFD    12/02,18/C054
          VFD    12/03,18/C055
          VFD    12/03,18/C056
          VFD    30/0 
          BSSZ   1
          VFD    12/06,18/C060
          VFD    12/03,18/C061
          VFD    12/05,18/C062
          VFD    12/02,18/C063
          VFD    12/03,18/C064
          VFD    12/03,18/C065
          VFD    12/04,18/C066
          VFD    12/08,18/C067
          VFD    12/06,18/C068
          VFD    12/04,18/C069
          VFD    12/06,18/C070
          VFD    12/05,18/C071
          VFD    12/05,18/C072
          VFD    12/07,18/C073
          VFD    12/03,18/C074
          VFD    12/05,18/C075
          VFD    12/05,18/C076
          VFD    12/07,18/C077     QDRSYNX
          VFD    12/03,18/C078
          VFD    30/0 
          VFD    12/03,18/C080
          VFD    12/04,18/C081
          VFD    12/04,18/C082
          VFD    12/04,18/C083
          VFD    12/05,18/C084
          VFD    12/05,18/C085
          VFD    12/02,18/C086
          VFD    12/03,18/C087
  
* 
 C001     DATA  50HT INCORRECT STARTING COLUMN BEFORE COLUMN 12 - GEN 
          DATA  20HERATION GOOD 
 C002     DATA  50HT VALID USE OF COMMA OR SEMICOLON IS BETWEEN LOGIC 
          DATA  20HAL SERIES ONLY 
 C003     DATA  50HT RESERVED WORD USED IN INAPPROPRIATE DIVISION 
 C004     DATA  50HT SPACE REQUIRED BEFORE LEFT PARENTHESIS 
 C005     DATA  40HT SPACE ILLEGAL BEFORE RIGHT PARENTHESIS 
 C006     DATA  50HT SENTENCE-ENDING PERIOD MUST BE FOLLOWED BY A SPA 
          DATA  10HCE 
 C007     DATA  50HE LEGITIMATE DATA-NAME CHARACTERS ARE A-Z,0-9, AND 
          DATA  20H - . CODING DROPPED
 C008     DATA  50HE DATA-NAME, NUMERIC LITERAL OR PICTURE GREATER TH 
          DATA  30HAN MAXIMUM OF 30 CHARACTERS
 C009     DATA  50HE NON-NUMERIC LITERAL GREATER THAN 255 CHARACTERS
 C011     DATA  50HT SPACE, SEMICOLON, COMMA, OR PERIOD REQUIRED AFTE 
          DATA  30HR RIGHT PARENTHESIS
 C012     DATA  50HT SPACE REQUIRED FOLLOWING PUNCTUATION 
C013      DATA   50HT CHARACTER BESIDES HYPHEN IN COLUMN 7 - CHARACTER
          DATA  10H DROPPED 
 C014     DATA  30HE MISSING CONTINUATION QUOTE 
 C015     DATA  50HT CONTINUATION HYPHEN NOT REQUIRED WHEN CONTINUING 
          DATA  20H  PARENTHESES
 C016     DATA  50HT MISSING QUOTE AT END OF NON-NUMERIC LITERAL  CLO 
          DATA  20H SING QUOTE ASSUMED
 C017     DATA  50HT FIRST WORD ON NEXT CARD SHOULD BEGIN IN COLUMN 8 
C018      DATA   50HI SEQUENCE NUMBER IN COLUMNS 1-6 BREAKS 
 C019     DATA      10H 
 C022     DATA  50HE RESERVED WORD USED IN UNAPPLICABLE DIVISION-TREA 
          DATA  30HTED AS NAME
 C030     DATA  50HT DECIMAL POINT SHOULD BE COMMA - SEE SPECIAL-NAME 
          DATA  10HS
 C031     DATA  40HE NO RECORD ON LIBRARY FOR NAMED ITEM
 C032     DATA  50HE REQUESTED ITEM NOT PART OF NAMED RECORD
 C033     DATA  50HE EQUIVALENT OR SMALLER LEVEL NUMBER FOUND BEFORE
          DATA  10HNAMED ITEM 
 C034     DATA  50HE LEVEL NUMBER NOT FIRST WORD OF ITEM DESCRIPTION
 C035     DATA  30HE ON CALL OPTION NOT SPECIFIED 
 C036     DATA  30HE DUPLICATE ON CALL OPTION 
 C037     DATA   50HT INTEGER1 FOR RECORD CONTAINS MUST INCLUDE KEYS     DL3A051
 C050     DATA   30HE RELATION-NAME IS MISSING
 C051     DATA   20HE JOIN MISSING
 C052     DATA   20HE EQ MISSING
 C053     DATA   40HE INVALID RELATIONAL OPERATORS
 C054     DATA   20HE INVALID DATA NAME 
 C055     DATA   30HE RIGHT PARENTHESIS MISSING 
 C056     DATA   30HE INVALID RELATION NAME 
 C060     DATA   50HT RELATION NAME LONGER THEN 30 CHARACTERS-NAME TRU
          DATA   10HNCATED
 C061     DATA   30HE RELATION NAME NOT UNIQUE
 C062     DATA   50HE MAX QUALIFICATION LEVELS FOR DATA NAME REACHED
 C063     DATA   20HE ERROR IN SUBSCRIPT
 C064     DATA   30HE ERROR IN PARENTHESIS
 C065     DATA   30HE CYCLING NOT ALLOWED 
 C066     DATA   40HE KEYWORD -DIVISION- EXPECTED, NOT FOUND
 C067     DATA   50HE DBI BELONGS TO AREA WITH MULTIPLE RECORDS - NOT 
          DATA   30HALLOWED IN RELATION 
 C068     DATA   50HE SOURCE DBI NOT IN SAME AREA AS PREVIOUS TARGET D
          DATA   10HBI
 C069     DATA   40HE SOURCE AND TARGET DBI IN SAME FILE
 C070     DATA   50HE SOURCE AND TARGET DBI CHARACTERISTICS MUST BE ID
          DATA   10HENTICAL 
 C071     DATA   50HE DBI SIZE EXCEEDS THE MAXIMUM OF 255 CHARACTERS
 C072     DATA   50HE -ANY- ONLY LEGAL ON TARGET ITEM IN JOIN 
 C073     DATA   50HE TARGET DBI WITH SUBSCRIPT ANY MUST BE REPEATING 
          DATA   20HALTERNATE KEY 
 C074     DATA   30HE DATA NAME UNDEFINED 
 C075     DATA   50HE MULTIPLY DEFINED/IMPROPERLY QUALIFIED DATA NAME 
 C076     DATA   50HE SUBSCRIPT MUST APPEAR ON SUBSCRIPTABLE ITEM 
 C077     DATA   50HE INVALID RESTRICT CLAUSE. SCANNING RESUMES AT NEX
          DATA   20HT RELATION ENTRY
 C078     DATA   30HE SUBSCRIPT VALUE TOO LARGE 
 C080     DATA   30HE TOO MANY SUBSCRIPTS 
 C081     DATA   40HE SUBSCRIPTABLE QUALIFIER OMITTED 
 C082     DATA   40HE DATA ITEM NOT IN RECORD OF RESTRICT 
 C083     DATA   40HE LITERAL IS OF WRONG DATA TYPE 
 C084     DATA   50HE RECORD NOT IN RELATION OR OUT OF ORDER
 C085     DATA   50HE MORE THAN ONE RESTRICT CLAUSE FOR THIS RECORD 
 C086     DATA   20HE INVALID BLOCK TYPE
 C087     DATA   30HE INVALID RECORD TYPE 
  
          END 
