*DECK QDDIAG2                                                           000340
          IDENT QDDIAG2                                                 000240
          TITLE  QDDIAG2 - DIAGNOSTIC TABLE 2 
          ENTRY DAGNOS2 
DAGNOS2   BSSZ   0
          VFD    12/05,18/C100     SYN ROOT 
          VFD    12/03,18/C101     SYN IDNTDIV
          VFD    12/03,18/C102
          VFD    12/04,18/C103     SYN DATADIV
          VFD    12/07,18/C104
          VFD    12/03,18/C105     SYN AREASEC
          VFD    12/05,18/C106                                           D2A130 
          VFD    12/03,18/C107
          VFD    12/04,18/C108     SYN ADSAAM 
          VFD    12/10,18/C109                                          000660
          VFD    12/04,18/C110     SYN ADSAAM 
          VFD    12/04,18/C111     SYN ADSAAM 
          VFD    12/04,18/C112     SYN ADSAAM 
          VFD    12/04,18/C113     SYN ADSAAM 
          VFD    12/04,18/C114     SYN ADSAAM 
          VFD    12/05,18/C115                                           D2A130 
          VFD    12/04,18/C116     SYN ADLOG
          VFD    12/04,18/C117     SYN ADBLSIZ
          VFD    12/04,18/C118     SYN ADRCSIZ
          VFD    12/07,18/C119
          VFD    12/05,18/C120                                           D2A130 
          VFD    12/05,18/C121                                           D2A130 
          VFD    12/03,18/C122    SYN RECORD
          VFD    12/05,18/C123    DLSYN XSADPRC 
          VFD    12/05,18/C124                                           D2A130 
          VFD    12/04,18/C125
          VFD    12/05,18/C126    DLSUN XNXTPRC 
          VFD    12/02,18/C127     SYN RSECT
          VFD    12/05,18/C128    DLSYN XRCNM1
          VFD    12/03,18/C129     SYN RSECT
          VFD    12/04,18/C130     SYN RSECT
          VFD    12/05,18/C131                                           D2A130 
          VFD    12/03,18/C132     SYN DDLITEM
          VFD    12/03,18/C133     SYN DDLITEM
          VFD    12/06,18/C134       SYN DDLITEM
          VFD    12/04,18/C135
          VFD    12/04,18/C136     SYN DDOC 
          VFD    12/04,18/C137     SYN DDOC 
          VFD    12/06,18/C138                                           D2A130 
          VFD    12/04,18/C139     QDLSIZE                               D2A130 
          VFD    12/06,18/C140                                          000580
          VFD    12/04,18/C141     DLSYN XDDZERR
          VFD    12/05,18/C142     QDSYNTX
          VFD    12/04,18/C143     DLSYN OC1ERR1  OC2ERR1 
          VFD    12/05,18/C144     QDLSYN 
          VFD    12/04,18/C145     DLSYN OC1ERR2  OC2ERR2 
          VFD    12/08,18/C146     QDLSIZE
          VFD    12/03,18/C147     DLSYN XL1T8
          VFD    12/2,18/C148      QDLSYN XPFR                           DL3A042
          VFD    12/05,18/C149     QDLSYN 
          VFD    12/06,18/C150     QLSYN  XINDPD
          VFD    12/04,18/C151     DLSYN XADREC1ERR 
          VFD    12/06,18/C152     DLSYN XADREC1ERR 
          VFD    12/05,18/C153     DLSYN XINDLV 
          VFD    12/06,18/C154     DLSYN XINDLV 
          VFD    12/05,18/C155     DLSYN XINDBL 
          VFD    12/06,18/C156     DLSYN XINDBL 
          VFD    12/06,18/C157     DLSYN XDATPD 
          VFD    12/03,18/C158     PICTUR 
          VFD    12/06,18/C159     PICTUR 
          VFD    12/03,18/C160     PICTUR 
          VFD    12/04,18/C161     PICTUR 
          VFD    12/06,18/C162     PICTUR 
          VFD    12/04,18/C163     PICTUR 
          VFD    12/03,18/C164     PICTUR 
          VFD    12/06,18/C165     SYN ADRCSIZ
          VFD    12/06,18/C166     SYN ADSAAM 
          VFD    12/08,18/C167     DLSYN XADBLK1
          VFD    12/03,18/C168     SYN DDUS 
          VFD    12/02,18/C169                                          000140
          VFD    12/09,18/C170
          VFD    12/05,18/C171
          VFD    30/0 
          VFD    12/04,18/C173     DLSYN DCKPRE1
          VFD    12/05,18/C174     DLSYN CHECKFILLER
          VFD    12/05,18/C175
          VFD    12/05,18/C176     DLSYN XLIT2
          VFD    12/05,18/C177         DLEOMT 
          VFD    12/05,18/C178    DLEOMT
          VFD    12/05,18/C179            DLEOMT
          VFD    12/05,18/C180            DLEOMT
          VFD    12/03,18/C181     DLSYN  -  ID NAME INVALID
          VFD    12/03,18/C182     DLSYN  -  PW NAME INVALID
          VFD    12/03,18/C183     DLSYN  -  CY NAME INVALID
          VFD    12/03,18/C184     QDSYNTX, ARSEQ 
          VFD    12/05,18/C185                                          002280
          VFD    12/05,18/C186                                          002290
          VFD    12/04,18/C187
          VFD    30/0 
          VFD    12/07,18/C189                                          002320
          VFD    12/05,18/C190                                          002330
          VFD    30/0 
          VFD    12/06,18/C192
          VFD    12/6,18/C193 
          VFD    12/9,18/C194 
          VFD    12/9,18/C195 
          VFD    12/05,18/C196
          VFD    12/07,18/C197
          VFD    12/07,18/C198
          VFD    12/05,18/C199
          VFD    12/5,18/C200          XLCKFO 
          VFD    12/5,18/C201          DLEOMT 
          VFD    12/02,18/C202
          VFD    12/03,18/C203
          VFD    12/03,18/C204
          VFD    12/03,18/C205
          VFD    12/03,18/C206
          VFD    12/02,18/C207
          VFD    12/04,18/C208
          VFD    12/06,18/C209
          VFD    12/03,18/C210
          VFD    12/05,18/C211
          VFD    12/06,18/C212
          VFD    12/04,18/C213
          VFD    12/6,18/C214 
          VFD    12/05,18/C215
          VFD    12/6,18/C216 
          VFD    12/6,18/C217 
          VFD    12/6,18/C218 
          VFD    12/7,18/C218                                            D20128A
 C100     DATA   50HC IDENTIFICATION HEADER NOT FIRST CARD OF PROGRAM 
 C101     DATA   30HE ERROR IN SUB-SCHEMA CLAUSE
 C102     DATA   30HE DATA-NAME NOT UNIQUE
C103      DATA   40HC DATA DIVISION HEADER NOT SPECIFIED
C104      DATA   50HE THE FOLLOWING WORD IS NOT VALID IN THE INDICATED
          DATA   20H STATEMENT LINE 
C105      DATA   30HE AREA NAME NOT SPECIFIED 
 C106     DATA   50HE FILE-LIMIT CLAUSE ILLEGAL WITH SEQUENTIAL FILES    D2A130 
 C107     DATA   30HE INVALID FILE ORGANIZATION 
C108      DATA   40HE INTEGER FOR FILE LIMIT NOT VALID
C109      DATA   50HT COMPUTED RECORD SIZE IS GREATER OR LESS THAN THE  000630
          DATA   50H RECORD CONTAINS SIZE, COMPUTED SIZE IS USED        000640
C110      DATA   40HE INTEGER FOR INDEX LEVEL NOT VALID 
C111      DATA   40HE INTEGER FOR INDEX BLOCK NOT VALID 
C112      DATA   40HE INTEGER FOR INDEX PADDING NOT VALID 
C113      DATA   40HE INTEGER FOR DATA PADDING NOT VALID
C114      DATA   40HE INTEGER FOR NUMBER OF BLOCKS NOT VALID
 C115     DATA   50HE DATA-PADDING CLAUSE LEGAL FOR IS/AK FILES ONLY     D2A130 
C116      DATA   40HE IMPLEMENTOR NAME FOR LOG FILE INVALID 
C117      DATA   40HE INTEGER FOR BLOCK CONTAINS NOT VALID
C118      DATA   40HE INTEGER FOR RECORD CONTAINS NOT VALID 
C119      DATA   50HT COMPUTED RECORD SIZE GREATER THAN BLOCK SIZE,COM
          DATA   20HPUTED SIZE ASSUMED
 C120     DATA   50HE INDEX-PADDING CLAUSE LEGAL FOR IS FILES ONLY       D2A130 
 C121     DATA   50HE INDEX-LEVEL CLAUSE LEGAL FOR IS FILES ONLY         D2A130 
C122      DATA   30HE RECORD NAME INVALID 
C123      DATA   50HE SDA PROC NAME GREATER THAN 7 CHARACTERS 
 C124     DATA   50HE INDEX-BLOCK CLAUSE LEGAL FOR IS FILES ONLY         D2A130 
 C125     DATA   40HE ILLEGAL CHARACTER IN PERM FILE NAME 
 C126     DATA   50HE THE NUMBER OF ON CALL STATEMENTS EXCEEDS 8
C127      DATA   20HE INVALID KEY NAME
C128      DATA   50HE ON CALL PROCEDURE NAME GREATER THAN 7 CHARACTERS
C129      DATA   30HE CALL NOT SPECIFIED
C130      DATA   40HE ON CALL PROCEDURE NAME NOT SPECIFIED
 C131     DATA   50HE NUMBER OF BLOCKS CLAUSE LEGAL FOR DA FILES ONLY    D2A130 
C132      DATA   30HE LEVEL NUMBER NOT SPECIFIED
C133      DATA   30HE INVALID LEVEL NUMBER
C134      DATA   50HE DATA NAME OR FILLER NOT SPECIFIED OR RESERVED WO
          DATA   10HRD USED 
 C135     DATA   40HE DEPENDING ON ITEM PIC SIZE EXCEEDS 6
C136      DATA   40HE INTEGER FOR OCCURS NOT SPECIFIED
C137      DATA   40HE DEPENDING ON NAME NOT SPECIFIED 
 C138     DATA   50HE NUMBER OF BLOCKS VALUE NOT BETWEEN 1 AND 1677721   D2A130 
          DATA   10H5                                                    D2A130 
 C139     DATA   40HE DEPENDING ON ITEM HAS WRONG USAGE                  D2A130 
C140      DATA   50HC DATA NAME TABLE OVERFLOW - INCREASE YOUR FIELD    000550
          DATA   10HLENGTH                                              000560
C141      DATA   40HE BAD LEVEL NUMBER - ITEM IGNORED 
 C142     DATA   50HE NO ASSIGN CLAUSE SPECIFIED FOR LOG FILE 
C143      DATA   40HE WORD OCCURS NOT FOLLOWED BY AN INTEGER
 C144     DATA   50HE PICTURE TYPE DOES NOT CORRESPOND TO USAGE TYPE
C145      DATA   40HE OCCURS INTEGER CREATER THAN 262142
 C146     DATA   50HT RECORD SIZE NOT EQUAL THROUGHOUT THE AREA, LARGE
          DATA   30HST ONE IS USED FOR MRL
C147      DATA   30HE LITERAL GREATER THAN 256
 C148     DATA   20HE PF R VALUE INVALID                                 DL3A042
 C149     DATA   50HE NO PICTURE SPECIFIED FOR ELEMENTARY ITEM
 C150     DATA   50HT INDEX PADDING PERCENT GREATER THAN 2 CHARACTERS,
          DATA   10H 5 ASSUMED
C151      DATA   40HE RECORD SIZE GREATER THAN 6 CHARACTERS 
 C152     DATA   50HT VALUE OF RECORD SIZE GREATER THAN 262141, 512 AS
          DATA   10HSUMED 
C153      DATA   50HE INDEX LEVEL SPECIFIED GREATER THAN 2 CHARACTERS 
C154      DATA   50HT INDEX LEVEL VALUE NOT BETWEEN 1 AND 64, 1 ASSUME
          DATA   10HD 
C155      DATA   50HE INDEX BLOCK SPECIFIED GREATER THAN 5 CHARACTERS 
C156      DATA   50HT INDEX BLOCK VALUE NOT BETWEEN 1 AND 32768, 512 A
          DATA   10HSSUMED
C157      DATA   50HT DATA PADDING PERCENT GREATER THAN 2 CHARACTERS, 
          DATA   10H 5 ASSUMED
 C158     DATA   30HE ILLEGAL CHARACTER IN PICTURE
 C159     DATA   50HE REPEAT COUNT IN PARENTHESES EXCEEDS MAXIMUM OF
          DATA   10H2047
 C160     DATA   30HE SYNTACTICAL ERROR IN PICTURE
 C161     DATA   40HE EXCESS REPEAT COUNT IN EDITED PICTURE 
 C162     DATA   50HE MAXIMUM OF 63 INSERTION CHARACTERS ALLOWED IN P 
          DATA   10HICTURE
 C163     DATA   40HE NON NUMERIC WITHIN PARENTHESES
 C164     DATA   30HE NUMERIC ITEM GREATER THAN 18
C165      DATA   50HE DEPENDING ON NAME IN RECORD CONTAINS CLAUSE IS
          DATA   10H INVALID
C166      DATA   50HE INTEGER IN RECORD BLOCK CONTAINS CLAUSE IS INVAL
          DATA   10HID
C167      DATA   50HT INTEGER VALUE IN RECORD BLOCK CONTAINS IS GREATE
          DATA   30HR THAN 262142, 5120 ASSUMED 
C168      DATA   30HE USAGE CLAUSE IS INCOMPLETE
C169      DATA   20HC EMPTY INPUT FILE                                  000120
 C170     DATA   50HE DUPLICATES NOT ALLOWED FOR ACTUAL OR DIRECT OR I
          DATA   32HNDEXED NEW OR WITH ALTERNATE KEY
 C171     DATA   50HE UNRECOGNIZABLE/MISPLACED SOURCE STATEMENT 
C173      DATA   40HE PICTURE ON GROUP ITEM IS INVALID
C174      DATA   50HE OCCURS CANNOT BE SPECIFIED FOR FILLER ITEMS 
C175      DATA   50HC HASH OVERFLOW TABLE SIZE EXCEEDED 
C176      DATA   50HE INDICATED POINT LOCATION GREATER THAN 31
C177      DATA   50HE DEPENDING ON ITEM NOT IN FIXED PART OF RECORD 
C178      DATA   50HE KEY NAME OR DEPENDING ON NAME UNDEFINED 
C179      DATA   50HE RECORD CONTAINS DATA NAME NOT WITHIN RECORD 
C180      DATA   50HE KEY NAME NOT WITHIN SPECIFIED AREA
 C181     DATA   30HE PF ID/UN NAME INVALID 
 C182     DATA   30HE PF PW NAME INVALID
 C183     DATA   30HE PF CY NUMBER INVALID
 C184     DATA   30HE INVALID SEQUENCE OPTION 
C185      DATA   50HE RECORD CONTAINS AND RECORD TYPE DO NOT AGREE      002200
C186      DATA   50HE BLOCK CONTAINS AND BLOCK TYPE DO NOT AGREE        002210
 C187     DATA   40HE INCOMPATIBLE BLOCK AND RECORD TYPES 
C189      DATA   50HE BOTH REC CONTAINS DEP ON AND OCCURS DEP ON CAN"T  002240
          DATA   20HBE SPECIFIED                                        002250
C190      DATA   50HE RECORD-TYPE MUST BE TRAILER-COUNT                 002260
C192      DATA   50HE DEPENDING ON ITEM NOT EQUALLY DEFINED THRU OUT T
          DATA   7HHE AREA
C193      DATA   52HE DEPENDING ON ITEM POSITION DIFFERS WITHIN THE AREA
C194      DATA   50HE TRAILER LENGTH OF A T TYPE RECORD IS NOT EQUALLY  000350
          DATA   35H DEFINED THRU OUT THE AREA                          000360
C195      DATA   50HE HEADER LENGTH OF A T TYPE RECORD IS NOT EQUALLY   000530
          DATA   35HDEFINED THRU OUT THE AREA                           000540
C196      DATA   50HE KEY SIZE IS NOT EQUALLY DEFINED WITHIN THE AREA 
C197      DATA   50HE RELATIVE KEY WORD POSITION IS NOT EQUALLY DEFINE
          DATA   20HD WITHIN THE AREA 
 C198     DATA   50HE RELATIVE KEY POSITION IN RKW IS NOT EQUALLY DEFI
          DATA   20HNED WITHIN THE AREA 
 C199     DATA   50HT BLOCK-TYPE TAKES PRECEDENCE OVER BLOCK-CONTAINS 
C200      DATA   50HE SEQUENTIAL FILE MAY NOT HAVE ALTERNATE KEY
C201      DATA   50HE FOR ACTUAL KEY FILE, KEY MUST BE INTEGER
 C202     DATA   20HE PF M NAME INVALID 
 C203     DATA   30HE PF SN OR PN NAME INVALID
 C204     DATA   30HE INDEX FILE NAME INVALID 
 C205     DATA   30HE PF PARAMETER INVALID
 C206     DATA   30HE LIBRARY NAME INVALID
 C207     DATA   20HE DUPLICATE LFN 
 C208     DATA   40HC ONLY 64 AREAS ALLOWED IN A SUBSCHEMA
 C209     DATA   50HE INDEX FILE PF PARAMETER INVALID WITH AREA TEMPOR
          DATA   10HARY 
 C210     DATA   30HE LIBRARY NOT SPECIFIED 
 C211     DATA   50HE PRIMARY KEY PREVIOUSLY SPECIFIED
 C212     DATA   50HE NO  PRIMARY KEY SPECIFIED FOR AAM OR SORTED SEQ 
          DATA   10HFILE
 C213     DATA   40HE NO KEY ALLOWED FOR THIS FILE
 C214     DATA   50HE OPEN AND CLOSE PROCEDURES MUST BE SPECIFIED WITH
          DATA   10H SEARCH 
 C215     DATA   60HE MORE THAN ONE RECORD NAMED KEY-FIELD FOR SAME AREA
 C216     DATA   60HE RECORD NAMED KEY-FIELD MUST BE LAST RECORD IN AREA
 C217     DATA   50HE RECORD NAMED KEY-FIELD INVALID WITH SEQUENTIAL F
          DATA   10HILES
 C218     DATA   50HE MORE THAN ONE ITEM/GROUP SPECIFIED FOR RECORD NA   D20128A
          DATA   20HMED KEY-FIELD                                        D20128A
  
          END 
