*COMDECK COMDDIAG - DIAGNOSTIC MESSAGES                                       COMDDIA 
#**********************************************************************# COMDDIA
#                                                                      # COMDDIA
#                     DIAGNOSTIC MESSAGES                              # COMDDIA
#                                                                      # COMDDIA
#**********************************************************************# COMDDIA
                                                                         COMDDIA
      DEF  D008      # 008#; #E  DATA-NAME, NUMERIC LITERAL OR PICTURE # COMDDIA
                             #   GREATER THAN MAX OF 30 CHARACTERS     # COMDDIA
      DEF  D009      # 009#; #E  NON-NUMERIC LITERAL GREATER THAN      # COMDDIA
                             #   255 CHARACTERS                        # COMDDIA
      DEF D035       # 035#; #E NO ON CALL OPTION SPECIFIED            #
      DEF D036       # 036#; #E DUPLICATE ON CALL OPTION               #
                                                                         COMDDIA
      DEF  D037      # 037#; #T INTEGER1 FOR RECORD CONTAINS #           DL3A051
                                                                         DL3A051
      DEF  D050      # 050#; #E  RELATION-NAME IS MISSING              # COMDDIA
      DEF  D051      # 051#; #E  JOIN MISSING                          # COMDDIA
      DEF  D052      # 052#; #E  EQ MISSING                            # COMDDIA
      DEF  D053      # 053#; #E  INVALID RELATIONAL OPERATORS          # COMDDIA
      DEF  D054      # 054#; #E  INVALID DATA NAME                     # COMDDIA
      DEF  D055      # 055#; #E  RIGHT PARENTHESIS MISSING             # COMDDIA
      DEF  D056      # 056#; #E  INVALID RELATION NAME                 # COMDDIA
                                                                         COMDDIA
      DEF  D060      # 060#; #T  RELATION NAME LONGER THAN 30 CHARS    # COMDDIA
                             #   NAME TRUNCATED                        # COMDDIA
      DEF  D061      # 061#; #E  RELATION NAME NOT UNIQUE              # COMDDIA
      DEF  D062      # 062#; #E  MAX QUALIFICATION LEVELS FOR DATA     # COMDDIA
                             #   NAME REACHED                          # COMDDIA
      DEF  D063      # 063#; #E  ERROR IN SUBSCRIPT                    # COMDDIA
      DEF  D064      # 064#; #E  ERROR IN PARENTHESIS                  # COMDDIA
      DEF  D065      # 065#; #E  CYCLING NOT ALLOWED                   # COMDDIA
      DEF  D066      # 066#; #E  KEYWORD -DIVISION- EXPECTED, NOT FOUND# COMDDIA
      DEF  D067      # 067#; #E  DBI BELONGS TO ARE WITH MULTIPLE      # COMDDIA
                             #   RECORDS - NOT ALLOWED IN RELATION     # COMDDIA
      DEF  D068      # 068#; #E  SOURCE DBI NOT IN SAME AREA AS        # COMDDIA
                             #   PREVIOUS TARGET DBI                   # COMDDIA
      DEF  D069      # 069#; #E  SOURCE AND TARGET DBI IN SAME FILE    # COMDDIA
      DEF  D070      # 070#; #E  SOURCE AND TARGET DBI CHARACTERISICS  # COMDDIA
                             #   MUST BE IDENTICAL                     # COMDDIA
      DEF  D071      # 071#; #E  DBI SIZE EXCEEDS MAX OF 255 CHARS     # COMDDIA
      DEF  D072      # 072#; #E  -ANY- ONLY LEGAL ON TARGET ITEM IN    # COMDDIA
                             #   JOIN                                  # COMDDIA
      DEF  D073      # 073#; #E  TARGET DBI WITH SUBSCRIPT ANY MUST BE # COMDDIA
                             #   REPEATING ALTERNATE KEY               # COMDDIA
      DEF  D074      # 074#; #E  DATA NAME UNDEFINED                   # COMDDIA
      DEF  D075      # 075#; #E  MULTIPLY DEFINED/IMPROPERLY QUALIFIED # COMDDIA
                             #   DATA NAME                             # COMDDIA
      DEF  D076      # 076#; #E  SUBSCRIPT MUST APPEAR ON SUBSCRIPTABLE# COMDDIA
                             #   ITEM                                  # COMDDIA
      DEF  D077      # 077#; #E  INVALID RESTRICT CLAUSE. SCANNING     #
                             #   RESUMES AT NEXT RELATION ENTRY        #
      DEF  D078      # 078#; #E  SUBSCRIPT VALUE TOO LARGE             # COMDDIA
                                                                         COMDDIA
      DEF  D080      # 080#; #E  TOO MANY SUBSCRIPTS                   # COMDDIA
      DEF  D081      # 081#; #E  SUBSCRIPTABLE QUALIFIER OMITTED       # COMDDIA
      DEF  D082      # 082#; #E  DATA NAME NOT IN RECORD OF RESTRICT   # COMDDIA
      DEF  D083      # 083#; #E  LITERAL IS OF WRONG DATA TYPE         # COMDDIA
      DEF  D084      # 084#; #E  RECORD NOT IN RELATION OR OUT OF ORDER# COMDDIA
      DEF  D085      # 085#; #E  MORE THAN ONE RESTRICT CLAUSE FOR     # COMDDIA
                             #   THIS RECORD                           # COMDDIA
      DEF  D086      # 086#; #E  INVALID BLOCK TYPE                    # COMDDIA
      DEF  D087      # 087#; #E  INVALID RECORD TYPE                   # COMDDIA
                                                                         COMDDIA
      DEF  D100      # 100#; #C  IDENTIFICATION HEADER NOT FIRST CARD  # COMDDIA
                             #   OF PROGRAM                            # COMDDIA
      DEF  D101      # 101#; #E  ERROR IN SUBSCHEMA CLAUSE             # COMDDIA
      DEF  D102      # 102#; #E  DATA-NAME NOT UNIQUE                  # COMDDIA
      DEF  D103      # 103#; #C  DATA DIVISION HEADER NOT SPECIFIED    # COMDDIA
      DEF  D104      # 104#; #E  THE FOLLOWING WORD IS NOT VALID IN    # COMDDIA
                             #   THE INDICATED STATEMENT LINE          # COMDDIA
      DEF  D105      # 105#; #E  AREA NAME NOT SPECIFIED               # COMDDIA
      DEF  D106      # 106#; #E  FILE-LIMIT CLAUSE INVALID WITH        # COMDDIA
                             #   SEQUENTIAL FILES                      # COMDDIA
      DEF  D107      # 107#; #E  INVALID FILE ORGANIZATION             # COMDDIA
      DEF  D108      # 108#; #E  INTEGER FOR FILE LIMIT NOT VALID      # COMDDIA
      DEF  D109      # 109#; #T  COMPUTED RECORD SIZE IS GREATER OR    # COMDDIA
                             #   LESS THAN THE RECORD CONTAINS SIZE,   # COMDDIA
                             #   COMPUTED SIZE IS USED                 # COMDDIA
      DEF  D110      # 110#; #E  INTEGER FOR INDEX LEVEL NOT VALID     # COMDDIA
      DEF  D111      # 111#; #E  INTEGER FOR INDEX BLOCK NOT VALID     # COMDDIA
      DEF  D112      # 112#; #E  INTEGER FOR INDEX PADDING NOT VALID   # COMDDIA
      DEF  D113      # 113#; #E  INTEGER FOR DATA PADDING NOT VALID    # COMDDIA
      DEF  D114      # 114#; #E  INTEGER FOR NUMBER OF BLOCKS NOT VALID# COMDDIA
      DEF  D115      # 115#; #E  DATA-PADDING LEGAL FOR IS OR AK FILES # COMDDIA
      DEF  D116      # 116#; #E  IMPLEMENTOR NAME FOR LOG FILE INVALID # COMDDIA
      DEF  D117      # 117#; #E  INTEGER FOR BLOCK CONTAINS NOT VALID  # COMDDIA
      DEF  D118      # 118#; #E  INTEGER FOR RECORD CONTAINS NOT VALID # COMDDIA
      DEF  D119      # 119#; #T  COMPUTED RECORD SIZE GREATER THAN     # COMDDIA
                             #   BLOCK SIZE, COMPUTED SIZE ASSUMED     # COMDDIA
      DEF  D120      # 120#; #E  INDEX PADDING LEGAL FOR IS FILES ONLY # COMDDIA
      DEF  D121      # 121#; #E  INDEX LEVEL LEGAL FOR IS FILES ONLY   # COMDDIA
      DEF  D122      # 122#; #E  RECORD NAME INVALID                   # COMDDIA
      DEF  D123      # 123#; #E  SDA PROC NAME GREATER THAN 7 CHARS    # COMDDIA
      DEF  D124      # 124#; #E  INDEX BLOCK LEGAL FOR IS FILES ONLY   # COMDDIA
      DEF  D125      # 125#; #E  ILLEGAL CHAR IN PERM FILE NAME        # COMDDIA
      DEF  D126      # 126#; #E  THE NUMBER OF ON CALL STATEMENTS      # COMDDIA
                             #   EXCEEDS 8                             #
      DEF  D127      # 127#; #E  INVALID KEY NAME                      # COMDDIA
      DEF  D128      # 128#; #E  ON CALL PROC NAME GT 7 CHARS          # COMDDIA
      DEF  D129      # 129#; #E  CALL NOT SPECIFIED                    # COMDDIA
      DEF  D130      # 130#; #E  ON CALL PROC NAME NOT SPECIFIED       # COMDDIA
      DEF  D131      # 131#; #E  NUMBER OF BLOCKS LEGAL FOR DA FILES   # COMDDIA
      DEF  D132      # 132#; #E  LEVEL NUMBER NOT SPECIFIED            # COMDDIA
      DEF  D133      # 133#; #E  INVALID LEVEL NUMBER                  # COMDDIA
      DEF  D134      # 134#; #E  DATA NAME OR FILLER NOT SPECIFIED OR  # COMDDIA
                             #   RESERVED WORD USED                    # COMDDIA
      DEF  D135      # 135#; #E  DEPENDING ON ITEM PIC SIZE EXCEEDS 6  # COMDDIA
      DEF  D136      # 136#; #E  INTEGER FOR OCCURS NOT SPECIFIED      # COMDDIA
      DEF  D137      # 137#; #E  DEPENDING ON ITEM NOT SPECIFIED       # COMDDIA
      DEF  D138      # 138#; #E  NUMBER OF BLOCKS VALUE NOT BETWEEN    # COMDDIA
                             #   1 AND 16777215                        # COMDDIA
      DEF  D139      # 139#; #E  DEPENDING ON ITEM HAS WRONG USAGE     # COMDDIA
      DEF  D140      # 140#; #C  DATA NAME TABLE OVERFLOW - INCREASE FL# COMDDIA
      DEF  D141      # 141#; #E  BAD LEVEL NUMBER - ITEM IGNORED       # COMDDIA
      DEF  D142      # 142#; #E  NO ASSIGN CLAUSE SPECIFIED FOR LOG    #
                             #   FILE                                  #
      DEF  D143      # 143#; #E  WORD OCCURS NOT FOLLOWED BY INTEGER   # COMDDIA
      DEF  D144      # 144#; #E  PICTURE TYPE DOES NOT CORRESPOND TO   #
                             #   USAGE TYPE                            #
      DEF  D145      # 145#; #E  OCCURS INTEGER GT 262142              # COMDDIA
      DEF  D146      # 146#; #T  RECORD SIZE NOT EQUAL IN SAME AREA,   #
                             #   LARGEST ONE IS USED FOR MRL           #
      DEF  D147      # 147#; #E  LITERAL GREATER THAN 256              # COMDDIA
      DEF  D148      # 148#; #E  PF R VALUE INVALID                    # DL3A042
      DEF  D149      # 149#; #E  NO PIC SPECIFIED FOR ELEMENTARY ITEM  #
      DEF  D150      # 150#; #T  INDEX PADDING PERCENT GREATER THAN 2 # 
                             #   CHARACTER, 5 ASSUMED                  #
      DEF  D151      # 151#; #E  RECORD SIZE GREATER THAN 6 CHARS      # COMDDIA
      DEF  D152      # 152#; #T  VALUE OF RECORD SIZE GT 262142, 512   # COMDDIA
                             #   ASSUMED                               # COMDDIA
      DEF  D153      # 153#; #E  INDEX LEVEL SPECIFIED GT 2 CHARS      # COMDDIA
      DEF  D154      # 154#; #T  INDEX LEVEL VALUE NOT BETWEEN 1 AND   # COMDDIA
                             #   64                                    # COMDDIA
      DEF  D155      # 155#; #E  INDEX BLOCK SPECIFIED GT 5 CHARS      # COMDDIA
      DEF  D156      # 156#; #T  INDEX BLOCK VALUE NOT BETWEEN 1 AND   # COMDDIA
                             #   32768, 512 ASSUMED                    # COMDDIA
      DEF  D157      # 157#; #T  DATA PADDING PERCENT GREATER THAN     # COMDDIA
                             #   2 CHARACTERS, 5 ASSUMED               # COMDDIA
      DEF  D158      # 158#; #E  ILLEGAL CHARACTER IN PICTURE          #
      DEF  D159      # 159#; #E  REPEAT COUNT IN PARENTHESES EXCEEDS   #
                             #   MAXIMUM OF 2047                       #
      DEF  D160      # 160#; #E  SYNTACTICAL ERROR IN PICTURE          #
      DEF  D161      # 161#; #E  EXCESS REPEAT COUNT IN EDITED PICTURE #
      DEF  D162      # 162#; #E  MAXIMUM OF 63 INSERTION CHARACTER     #
                             #   ALLOWED IN PICTURE                    # COMDDIA
      DEF  D163      # 163#; #E  NON-NUMERIC WITHIN PARENTHESES        #
      DEF  D164      # 164#; #E  NUMERIC ITEM GREATER THAN 18          #
      DEF  D165      # 165#; #E  DEPENDING ON NAME IN RECORD CONTAINS  # COMDDIA
                             #   CLAUSE IS INVALID                     # COMDDIA
      DEF  D166      # 166#; #E  INTEGER IN RECORD BLOCK CONTAINS      # COMDDIA
                             #   CLAUSE IS INVALID                     # COMDDIA
      DEF  D167      # 167#; #T  INTEGER VALUE IN RECORD BLOCK CONTAINS# COMDDIA
                             #   IS GREATER THAN 262142, 5120 ASSUMED  # COMDDIA
      DEF  D168      # 168#; #E  USAGE CLAUSE IS INCOMPLETE            # COMDDIA
      DEF  D169      # 169#; #C  EMPTY INPUT FILE                      # COMDDIA
      DEF  D170      # 170#; #E  DUPLICATES INVALID FOR ACTUAL OR      # COMDDIA
                             #   DIRECT OR INDEXED ORGANIZATION WHERE  # COMDDIA
                             #   ALTERNATE KEY EXISTS                  # COMDDIA
      DEF  D171      # 171#; #E  UNRECOGNIZABLE/MISPLACED STATEMENT    # COMDDIA
      DEF  D172      # 172#; #E  EDITING ON GROUP ITEM NAME IS INVALID # COMDDIA
      DEF  D173      # 173#; #E  PICTURE ON GROUP ITEM NAME IS INVALID # COMDDIA
      DEF  D174      # 174#; #E  OCCURS CANNOT BE SPECIFIED FOR FILLER # COMDDIA
      DEF  D175      # 175#; #C  HASH OVERFLOW TABLE SIZE EXCEEDED     # COMDDIA
      DEF  D176      # 176#; #E  INDICATED POINT LOCATION GT 31        # COMDDIA
      DEF  D177      # 177#; #E  DEPDNING ON ITEM NOT IN FIXED PART    # COMDDIA
                             #   OF RECORD                             # COMDDIA
      DEF  D178      # 178#; #E  KEY OR DEPENDING ON NAME UNDEFINED    # COMDDIA
      DEF  D179      # 179#; #E  RECORD CONTAINS DATA NAME NOT WITHIN  # COMDDIA
                             #   RECORD                                # COMDDIA
      DEF  D180      # 180#; #E  KEY NAME NOT WITHIN SPECIFIED AREA    # COMDDIA
      DEF  D181      # 181#; #E  PF ID/UN NAME INVALID                 # COMDDIA
      DEF  D182      # 182#; #E  PF PW NAME INVALID                    # COMDDIA
      DEF  D183      # 183#; #E  PF CY NUMBER INVALID                  # COMDDIA
                                                                         COMDDIA
      DEF  D185      # 185#; #E  RECORD CONTAINS AND RECORD TYPE DO    # COMDDIA
                             #   NOT AGREE                             # COMDDIA
      DEF  D186      # 186#; #E  BLOCK CONTAINS AND BLOCK TYPE DO NOT  # COMDDIA
                             #   AGREE                                 # COMDDIA
      DEF  D187      # 187#; #E  INCOMPATIBLE BLOCK AND RECORD TYPES   # COMDDIA
                                                                         COMDDIA
      DEF  D189      # 189#; #E  BOTH REC CONTAINS DEP ON AND OCCURS   # COMDDIA
                             #   DEP ON CAN"T BE SPECIFIED             # COMDDIA
      DEF  D190      # 190#; #E  RECORD-TYPE MUST BE TRAILER COUNT     # COMDDIA
      DEF  D192      # 192#; #E  DEPENDING ON ITEM NOT EQUALLY DEFINED # COMDDIA
                             #   THROUGHOUT THE AREA                   # COMDDIA
      DEF  D193      # 193#; #E  DEPENDING ON ITEM POSITION DIFFERS    # COMDDIA
                             #   WITHIN THE AREA                       # COMDDIA
      DEF  D194      # 194#; #E  TRAILER LENGTH OF T TYPE RECORD NOT   # COMDDIA
                             #   EQUALLY DEFINED THROUGHOUT THE AREA   # COMDDIA
      DEF  D195      # 195#; #E  HEADER LENGTH OF A T TYPE RECORD IS   # COMDDIA
                             #   NOT EQUALLY DEFINED THRU OUT THE AREA # COMDDIA
      DEF  D196      # 196#; #E  KEY SIZE IS NOT EQUALLY DEFINED       # COMDDIA
                             #   WITHIN THE AREA                       # COMDDIA
      DEF  D197      # 197#; #E  RKW IS NOT EQUALLY DEFINED WITHIN AREA# COMDDIA
      DEF  D198      # 198#; #E  RKP IN RKW NOT EQUALLY DEFINED WITHIN # COMDDIA
                             #   THE AREA                              # COMDDIA
      DEF  D199      # 199#; #T  BLOCK-TYPE TAKES PRECEDENCE OVER      # COMDDIA
                             #   BLOCK-CONTAINS                        # COMDDIA
      DEF  D200      # 200#; #E  SEQUENTIAL FILE MAY NOT HAVE ALTERNATE# COMDDIA
                             #   KEYS                                  # COMDDIA
      DEF  D201      # 201#; #E  FOR ACTUAL KEY FILES, KEY MUST BE     # COMDDIA
                             #   INTEGER                               # COMDDIA
      DEF  D202      # 202#; #E  PF M NAME INVALID                     # COMDDIA
      DEF  D203      # 203#; #E  PF SN/PN NAME INVALID                 # COMDDIA
      DEF  D204      # 204#; #E  INDEX FILE NAME INVALID               # COMDDIA
      DEF  D205      # 205#; #E  PF PARAMETER INVALID                  # COMDDIA
      DEF  D206      # 206#; #E  LIBRARY NAME INVALID                  # COMDDIA
      DEF  D207      # 207#; #E  DUPLICATE LFN                         # COMDDIA
      DEF  D208      # 208#; #C  ONLY 64 AREAS ALLOWED IN A SUBSCHEMA  # COMDDIA
      DEF  D209      # 209#; #E  INDEX FILE PF PARAMETER INVALID WITH  # COMDDIA
                             #   AREA TEMPORARY                        # COMDDIA
      DEF  D210      # 210#; #E  LIBRARY NOT SPECIFIED                 # COMDDIA
      DEF  D211      # 211#; #E  PRIMARY KEY PREVIOUSLY DEFINED        # COMDDIA
      DEF  D212      # 212#; #E  NO PRIMARY KEY SPECIFIED FOR AAM OR   # COMDDIA
                             #   SORTED SEQ FILE                       # COMDDIA
      DEF  D213      # 213#; #E  NO KEY ALLOWED FOR THIS FILE          # COMDDIA
      DEF  D214      # 214#; #E  OPEN AND CLOSE PROCEDURES MUST BE     # COMDDIA
                             #   SPECIFIED WITH SEARCH                 # COMDDIA
      DEF  D215      # 215#; #E  MORE THAN ONE RECORD NAMED KEY-FIELD  # COMDDIA
      DEF  D216      # 216#; #E  RECORD NAMED KEY-FIELD MUST BE LAST   # COMDDIA
                             #   RECORD IN AREA                        # COMDDIA
      DEF  D217      # 217#; #E  RECORD NAMED KEY-FIELD INVALID WITH   # COMDDIA
                             #   SEQUENTIAL FILES                      # COMDDIA
      DEF  D218      # 218#; #E  MORE THAN ONE ITEM SPECIFIED FOR      # COMDDIA
                             #   RECORD NAMED KEY-FIELD                # COMDDIA
                                                                         COMDDIA
