*DECK DLDIAGM                                                           0;6040
          IDENT DLDIAGM                                                 000120
          ENTRY  DIAG100     THESE DIAGNOSTICS ROUND OFF HOLERITH FIELDS004240
                             TO WORD BOUNDRIES-SO WATCH OUT             004250
          ENTRY  DIAGPTR                                                046070
 DIAG100  DATA   50H  ***100**              C SCHEMA DECLARATION IS IN  046080
          DATA    7HCORRECT                                             046090
 DIAG101  DATA   42H  ***101**              C EMPTY INPUT FILE          000210
 DIAG102  DATA   45H  ***102**              C INVALID SCHEMA NAME       046100
 DIAG105  DATA   50H  ***105***             E DATA CONTROL CLAUSE INCO
          DATA   6HMPLETE 
 DIAG106  DATA   45H  ***106**              E INVALID RECORD NAME       000120
DIAG107   DATA   50H  ***107**              C PROCEDURE NAME TABLE OVE
          DATA   24HRFLOW, ** DDL ABORTED **
 DIAG108  DATA   50H  ***108***             E PERIOD MISSING
 DIAG111  DATA   50H  ***111***             E AREA UNSPECIFIED OR UNRE
          DATA   18HCOGNIZABLE KEYWORD
 DIAG112  DATA   41H  ***112**              E AREA NOT UNIQUE           046200
 DIAG114  DATA   50H  ***114**              E INCOMPLETE PROCEDURE CLA  046230
          DATA    3HUSE                                                 046240
DIAG116   DATA   51H  ***116***             E LITERAL VALUES NOT UNIQUE 
 DIAG119  DATA   47H  ***119**              E PROCEDURE UNSPECIFIED     046300
 DIAG120  DATA   48H  ***120**              E RECORD NAME NOT UNIQUE    046310
 DIAG121  DATA   50H  ***121**              E LAST ITEM IN RECORD MUST
          DATA   22H BE AN ELEMENTARY ITEM
 DIAG122  DATA   50H  ***122***             E VARIABLE DIMENSION GROUP
          DATA   40H MUST BE THE LAST ITEM ENTRY IN A RECORD
 DIAG126  DATA   50H  ***126**              E INVALID AREA IN WITHIN C  046380
          DATA    5HLAUSE                                               046390
 DIAG127  DATA   40H  ***127**              E AREA UNDEFINED            0;6400
 DIAG129  DATA   43H  ***129**              E INVALID AREA NAME         000160
          DATA   4HNAME 
DIAG133   DATA   50H  ***133***             E WORD ADDRESSABLE FILE OR
          DATA   20HGANIZATION ILLEGAL
 DIAG136  DATA   50H  ***136**              E LEVEL NUMBER NOT GREATER  046480
          DATA   29H THAN 0 AND NOT LESS THAN 100                       000581
 DIAG138  DATA   50H  ***138**              E TYPE CLAUSE OVERRIDES TH
          DATA   50HE PICTURE SPECIFICATION FOR THIS ITEM ENTRY 
 DIAG139  DATA   50H  ***139**              E ALTERNATE KEY SPECIFIED 
          DATA   19HFOR SEQUENTIAL FILE 
 DIAG140  DATA   50H  ***140**              E OCCURS CLAUSE INVALID ON  046500
          DATA   15HA RESULT CLAUSE 
DIAG141   DATA   50H  ***141***              E MULTIPLE RESULT CLAUSES
 DIAG143  DATA   50H  ***143**              E PROCEDURE UNSPECIFIED FO  046560
          DATA   15HR RESULT CLAUSE                                     046570
 DIAG144  DATA   50H  ***144**              E INVALID PROCEDURE NAME -  000590
          DATA   20H NAME TRUNCATED                                     000600
 DIAG145  DATA   50H  ***145***             E INVALID DATANAME FOR KEY
 DIAG146  DATA   50H  ***146***             E INVALID PROCEDURE NAME
 DIAG147  DATA   50H  ***147***             E USING CLAUSE VALID ONLY 
          DATA   24HFOR DA FILE, PRIMARY KEY
 DIAG148  DATA   50H  ***148***             E PRIMARY KEY DEFINED FOR 
          DATA   45HAK FILE MUST BE OF TYPE FIXED INT-1(NO INT-2) 
 DIAG149  DATA   50H  ***149**              E ALTERNATE KEY CANNOT BE 
          DATA   32HSPECIFIED BEFORE THE PRIMARY KEY
 DIAG150  DATA   50H  ***150**              E KEY LENGTH CANNOT BE GRE
          DATA   24HATER THAN 240 CHARACTERS
 DIAG151  DATA   50H  ***151**              E INVALID PROCEDURE-NAME I  046690
          DATA   30HN CHECK CLAUSE-NAME TRUNCATED                       000150
 DIAG152  DATA   50H  ***152***             T DUPLICATES NOT ALLOWED O
          DATA   41HN PRIMARY KEYS - DEFAULTED TO NOT ALLOWED 
 DIAG153  DATA   50H  ***153***             E DUPLICATES WITH FIRST OR
          DATA   37H INDEXED VALID ONLY FOR ALTERNATE KEY 
 DIAG154  DATA   50H  ***154**              E 1ST LITERAL RANGE OPTION  046740
          DATA    8H INVALID                                            046750
 DIAG156  DATA   50H  ***156**              E 2ND LITERAL RANGE OPTION  046770
          DATA    8H INVALID                                            046780
 DIAG157  DATA   50H  ***157**              E CHECK OPTION UNSPECIFIED  046790
 DIAG160  DATA   50H  ***160***             E ONLY VALID SEQUENCES ARE
          DATA   24H ASCII, COBOL OR DISPLAY
 DIAG161  DATA   50H  ***161**              E NO VALID WITHIN CLAUSE S
          DATA   30HPECIFIED IN THE CURRENT RECORD
 DIAG162  DATA   50H  ***162**              E CALL UNSPECIFIED IN ENCO  046840
          DATA   13HDING/DECODING 
 DIAG163  DATA   50H  ***163**              E UNSPECIFIED ENCODING/DEC
          DATA   15HODING PROCEDURE 
 DIAG164  DATA   50H  ***164**             E INVALID ENCODING/DECODIN 
          DATA   33HG PROCEDURE NAME - NAME TRUNCATED 
 DIAG165  DATA   50H  ***165**              E RESULT NOT SPECIFIED IN 
          DATA   21HACTUAL/VIRTUAL CLAUSE 
 DIAG166  DATA   50H  ***166**              E VIRTUAL RESULT CANNOT BE
          DATA   50H SPECIFIED WITH EITHER ENCODING/DECODING OR CALL C
          DATA   6HLAUSES 
 DIAG170  DATA   50H  ***170**              E NAME GREATER THAN 30 CHA  001250
          DATA   30HRACTERS - NAME TRUNCATED                            001260
 DIAG171  DATA   50H  ***171**              E CALL PROCEDURE-NAME UNSP  046970
          DATA    7HECIFIED                                             046980
 DIAG172  DATA   50H  ***172***             E RECORD CODE CLAUSE INCOM
          DATA   5HPLETE
 DIAG173  DATA   50H  ***173**              E INVALID OR NON-EXISTENT 
          DATA   12HLEVEL NUMBER
 DIAG176  DATA   50H  ***176**              E INVALID NAME OR INTEGER 
 DIAG187  DATA   50H  ***187**              E  MISSING BEFORE, AFTER,   000110
          DATA   50H ON ERROR DURING OPTION IN CALL STATEMENT           000120
 DIAG191  DATA   48H  ***191**              E BAD INTEGER SUBSCRIPT     000190
 DIAG192  DATA   48H  ***192**              E SEARCHING FOR A PERIOD    004340
 DIAG194  DATA   50H  ***194**              E INVALID RECORD QUALIFICA  047250
          DATA    4HTION                                                047260
 DIAG195  DATA   52H  ***195**              E PERIOD FOUND, SCAN RESUMES004360
 DIAG196  DATA   50H  ***196***             E INVALID DATANAME AFTER B
          DATA   1HY
 DIAG197  DATA   50H  ***197***             E UNDEFINED DATANAME AFTER
          DATA   3H BY
 DIAG198  DATA   50H  ***198***             E DATANAME FOLLOWING BY IS
          DATA   14HOCCURRING ITEM
 DIAG199  DATA   50H  ***199***             E VALUE MUST BE SPECIFIED 
          DATA   15HFOR RECORD CODE 
 DIAG200  DATA   50H  ***200**
          DATA   50H           INVALID IN FOLLOWING CLAUSE, SEARCHING 
          DATA   10HFOR PERIOD
 DIAG201  DATA   50H  ***201**              E PICTURE SPECIFICATION MU  002100
          DATA   24HST BE ENCLOSED IN QUOTES                            002110
 DIAG202  DATA   50H  ***202***             E RECORD NOT CONTAINED IN 
          DATA   10H THIS AREA
 DIAG203  DATA   50H  ***203***             E INVALID LITERAL IN VALUE
          DATA   7H CLAUSE
 DIAG204  DATA   50H  ***204***             E NOT ENOUGH ROOM FOR THIS
          DATA   26H LITERAL IN INTERNAL TABLE
 DIAG205  DATA   50H  ***205***             E -BY- OR -PROCEDURE- MUST
          DATA   21H FOLLOW RECORD CODE 
 DIAG206  DATA   50H  ***206***             E INTEGER MUST BE SPECIFIE
          DATA   21HD FOR PROCEDURE VALUE 
 DIAG207  DATA   50H  ***207***             E VALID RANGE FOR INTEGER 
          DATA   18HVALUE IS 1 TO 1023
 DIAG208  DATA   50H  ***208***             E NON-EMBEDDED DATANAME IL
          DATA   24HLEGAL FOR THIS FILE TYPE
 DIAG209  DATA   50H  ***209**              E INTEGER VALUES NOT UNIQU
          DATA   10HE FOR PROC
 DIAG210  DATA   50H  ***210**               E FILE CARD FOR AREA MISS
          DATA   03HING 
 DIAG211  DATA   50H  ***211***             E NO RECORD CODE SPECIFIED
          DATA   26H FOR MULTIPLE RECORD TYPES
 DIAG212  DATA   50H  ***212***             E DATANAME FOR KEY NOT DEF
          DATA   31HINED IN RECORD WITHIN THIS AREA 
 DIAG213  DATA   50H  ***213***             E RECORD CODE ALREADY SPEC
          DATA   19HIFIED FOR THIS AREA 
 DIAG214  DATA   50H  ***214***             E DATANAME NOT DEFINED IN 
          DATA   29H ANY OF THE SPECIFIED RECORDS 
 DIAG215  DATA   50H  ***215**              E ONE AND ONLY ONE PRIMARY
          DATA   27H/SORT KEY MUST BE SPECIFIED 
DIAG216   DATA   50H  ***216**              E DATA CONTROL ALREADY SPE
          DATA   20HCIFIED FOR THIS AREA
DIAG217   DATA   50H  ***217**              E RECORD CODE DATANAME SIZ
          DATA   29HE MUST BE LESS THAN 240 CHARS 
 DIAG218  DATA   50H  ***218***             T MNR VALUE INCORRECT ON F
          DATA   48HILE CARD FOR THE ABOVE AREA - DEFAULT VALUE USED
 DIAG219  DATA   50H  ***219***             E KEY ITEM CANNOT BE TYPE 
          DATA   07HCOMPLEX 
 DIAG220  DATA   50H  ***220***             T XN VALUE MISSING ON FILE
          DATA   45H CARD FOR ALTERNATE KEYS - DEFAULT VALUE USED 
 DIAG221  DATA   50H  ***221***             T ALTERNATE KEYS ARE NOT S
          DATA   44HPECIFIED -- XN VALUE ON FILE CARD IS IGNORED
 DIAG222  DATA   50H  ***222**              E NO AREA SPECIFIED IN SCH  047460
          DATA    3HEMA                                                 047470
 DIAG223  DATA   50H  ***223***             T HMB VALUE MISSING ON FIL
          DATA   48HE CARD FOR A DA FILE - DEFAULT VALUE OF 512 USED
DIAG224   DATA   50H  ***224***              E FILE CARD MUST SPECIFY 
          DATA   45HKEY TYPE, LENGTH AND POS FOR NON-EMBEDDED KEY 
 DIAG225  DATA   50H  ***225**              E ACTUAL/VIRTUAL RESULT IN  047510
          DATA   44HVALID ON DATA-AGGREGATES OR THEIR COMPONENTS        047520
 DIAG226  DATA   50H  ***226***             E CHECK VALUE OPTION IS NO
          DATA   32HT ALLOWED FOR COMPLEX DATA ITEMS
DIAG231   DATA   50H  ***231**              E CONVERSION NOT POSSIBLE 
          DATA   17HFOR CHECK LITERAL 
DIAG232   DATA   50H  ***232**              E PICTURE, VALUE PHRASE, O
          DATA   50HR PROCEDURE MAY BE SPECIFIED ONCE EACH IN CHECK CL
          DATA   4HAUSE 
DIAG233   DATA   50H  ***233**              E TABLE OVERFLOW - TOO MAN
          DATA   37HY LITERALS SPECIFIED. **DDL ABORTED** 
DIAG234   DATA   50H  ***234***             E NO PRIMARY KEY SPECIFIED
 DIAG236  DATA   50H  ***236***             E LITERALS SPECIFIED IN CH
          DATA   43HECK VALUE CLAUSE MUST BE IN ASCENDING ORDER 
DIAG237   DATA   50H  ***237***              E INTEGER-2 INVALID
 DIAG238  DATA   50H  ***238**              E DATA-BASE-DATA-NAME IS N  047780
          DATA   28HOT UNIQUE WITHIN THIS RECORD                        047790
 DIAG239  DATA   50H  ***239**              E THE ITEM ASSOCIATED WITH  047800
          DATA   50H THIS CLAUSE MUST HAVE TYPE OR PICTURE CLAUSE SPEC  000720
          DATA    6HIFIED                                               000730
 DIAG240  DATA   50H  ***240**              E ITEM ASSOCIATED WITH THI  047830
          DATA   50HS CLAUSE CANNOT BE DESCRIBED WITH A VIRTUAL RESULT  047840
          DATA    8H CLAUSE                                             003920
 DIAG246  DATA   50H  ***246**              E THE OCCURS CANNOT BE USE  047960
          DATA   20HD WITH RESULT CLAUSE
 DIAG247  DATA   50H  ***247**              E INTEGER MUST BE GREATER   047980
          DATA    6HTHAN 0                                              047990
 DIAG248  DATA   50H  ***248**              E ITEM NOT DEFINED IN THIS  048000
          DATA    7H RECORD                                             048010
 DIAG249  DATA   49H  ***249**              E ITEM MUST BE AN INTEGER   048020
 DIAG250  DATA   50H  ***250**              E ITEM IS A DATA AGGREGATE  048030
          DATA   50H COMPONENT OF A REPEATING GROUP OF VARIABLE DIMENS
          DATA    3HION                                                 048050
 DIAG251  DATA   50H  ***251**              E ITEM CANNOT BE A VIRTUAL  048060
          DATA    7H RESULT                                             048070
DIAG253   DATA   50H  ***253***             E CONVERSION ERROR ON RECO
          DATA   16HRD CODE LITERAL 
 DIAG254  DATA   50H  ***254***              E CHECK VALUE CLAUSE NOT 
          DATA   30HSPECIFIED IN DEPENDING ON ITEM
 DIAG255  DATA   50H  ***255***              E DEPENDING ON ITEM IS A 
          DATA   50HCOMPONENT OF A REPEATING GROUP OF VARIABLE DIMENSI
          DATA   2HON 
 DIAG256  DATA   50H  ***256***             E FOR AN AK FILE, KL MUST 
          DATA   43HBE SET IN FILE CARD AND MUST BE LESS THAN 9 
 DIAG258  DATA   50H  ***258**              E NESTING OF REPEATING GRO
          DATA   45HUPS MORE THAN THREE LEVELS DEEP NOT SUPPORTED 
 DIAG259  DATA   50H  ***259**              E CHECK VALUE FOR DEPENDIN
          DATA   35HG ON ITEM MUST BE GREATER THAN ZERO 
DIAG260   DATA   50H  ***260**              E ENCODING/DECODING CLAUSE
          DATA   37H CANNOT BE SPECIFIED WITH GROUP ITEMS 
DIAG261   DATA   50H  ***261**              E CALL CLAUSE CANNOT BE SP
          DATA   24HECIFIED WITH GROUP ITEMS
DIAG262   DATA   50H  ***262**              E CHECK CLAUSE CANNOT BE S
          DATA   25HPECIFIED WITH GROUP ITEMS 
DIAG264   DATA   50H  ***264***             E ACCESS-CONTROL ENTRIES M
          DATA   17HUST BE CONTIGUOUS 
DIAG265   DATA   50H  ***265***             E ACCESS-CONTROL UPDATE PR
          DATA   32HEVIOUSLY SPECIFIED FOR THIS AREA
DIAG266   DATA   50H  ***266***             E ACCESS-CONTROL RETRIEVAL
          DATA   35H PREVIOUSLY SPECIFIED FOR THIS AREA 
DIAG267   DATA   50H  ***267***             E INVALID ACCESS-CONTROL D
          DATA   07HBP NAME 
DIAG268   DATA   50H  ***268***             E ACCESS-CONTROL LITERAL L
          DATA   34HONGER THAN 30 CHARACTERS - INVALID
DIAG269   DATA   50H  ***269***             E ACCESS-CONTROL DBP NAME 
          DATA   34HLONGER THAN 7 CHARACTERS - INVALID
DIAG270   DATA   50H  ***270***             E INVALID/MISSING ACCESS-C
          DATA   11HONTROL LOCK 
DIAG279   DATA   50H  ***279***             E UNQUALIFIED ITEM NAME IS
          DATA   21H CONSIDERED UNDEFINED 
 DIAG280  DATA   50H  ***280***             E  ** DDL ABORTED, TOO MAN
          DATA   15HY SYNTAX ERRORS 
 DIAG281  DATA   50H  ***281**              E MISSING CLOSING PARENTHE  004290
          DATA    3HSIS                                                 004300
 DIAG282  DATA   50H  ***282***              T KEY INFORMATION FROM FI
          DATA   50HLE CARD INCONSISTENT WITH KEY ITEM DECLARATION, IT
          DATA   27HEM DECLARATION VALUES USED. 
 DIAG283  DATA   50H  ***283**              E KEY MAY BE NESTED AT MOS
          DATA   11HT ONE LEVEL 
 DIAG284  DATA   50H  ***284**              E MAXIMUM RECORD ENTRY LEN
          DATA   30HGTH EXCEEDED - SIMPLIFY SOURCE
 DIAG285  DATA   50H  ***285**              E MAXIMUM ITEM ENTRY LENGT
          DATA   30HH EXCEEDED - SIMPLIFY SOURCE
 DIAG286  DATA   50H  ***286**              E ITEM SIZE EXCEEDES THE M
          DATA   15HAXIMUM OF 32767 
 DIAG287  DATA   50H  ***287**              E MAXIMUM RECORD SIZE EXCE
          DATA   28HEDED FOR THE PREVIOUS RECORD
 DIAG288  DATA   50H  ***288**              E MAXIMUM DATA CONTROL ENT
          DATA   40HRY LENGTH EXCEEDED - SIMPLIFY SOURCE
 DIAG289  DATA   50H  ***289**              E MAXIMUM ITEM COUNT EXCEE
          DATA   10HDED 
 DIAG290  DATA   50H  ***290**              E MAXIMUM RECORD COUNT EXC
          DATA   10HEEDED 
 DIAG291  DATA   50H  ***291**              E MAXIMUM AREA COUNT EXCEE
          DATA   10HDED 
 DIAG292  DATA   50H  ***292**              E MAXIMUM RELATION COUNT
          DATA   10HEXCEEDED
 DIAG293  DATA   50H  ***293***             E MAXIMUM ITEM COUNT FOR A
          DATA   16H RECORD EXCEEDED
 DIAG294  DATA   50H  ***294***             E SEQUENTIAL FILE ORGANIZA   DL3A034
          DATA   21HTION IS NOT SUPPORTED                                DL3A034
 DIAG295  DATA   50H  ***295***             E MAXIMUM RELATION ENTRY L
          DATA   32HENGTH EXCEEDED - SIMPLIFY SOURCE
 DIAG296  DATA   50H  ***296***              E FATAL ERRORS, NO SCHEMA
          DATA   28H CREATED - ** DDL ABORTED **
 DIAG297   DATA   50H  ***297***              E ONLY ONE CHECK CLAUSE 
          DATA    10HIS ALLOWED 
DIAG298   DATA   50H  ***298**              E TYPE, PICTURE, OR OCCURS
          DATA   37H MUST BE SPECIFIED FOR DATA SUB-ENTRY 
 DIAG300  DATA   50H  ***300**              E INVALID PICTURE LENGTH -
          DATA   30H--- GREATER THAN 18 CHARACTERS
 DIAG301  DATA   50H  ***301**              E INVALID CHARACTER IN A N  004090
          DATA   30HUMERIC PICTURE SPECIFICATION                        004100
 DIAG302  DATA   50H  ***302**              E INVALID CHARACTER IN A F  001280
          DATA   36HLOATING POINT PICTURE-SPECIFICATION                 001290
 DIAG303  DATA   50H  ***303**              E INVALID BINARY DIGIT IN   001300
          DATA   41HA DECIMAL NUMERIC PICTURE-SPECIFICATION             001310
 DIAG304  DATA   50H  ***304**              E TWO"S COMPLEMENT NOT SUP  001320
          DATA   30HPORTED IN THIS RELEASE OF DDL                       001330
 DIAG305  DATA   50H   ***305**             E ONE"S COMPLEMENT NOT SUP  001340
          DATA   30HPORTED IN THIS RELEASE OF DDL                       001350
 DIAG306  DATA   50H   ***306**             E DOUBLY DEFINED DECIMAL P  001360
          DATA   9HOINT                                                 001370
 DIAG307  DATA   50H  ***307**              E DECIMAL POINT IS INVALID  001380
          DATA   51H IN AN ALPHA OR ALPHANUMERIC PICTURE SPECIFICATION  001390
 DIAG308  DATA   50H  ***308**              E POINT SPECIFIER IS INVAL  001400
          DATA   50HID IN THE EXPONENT PART OF A FLOATING-POINT NUMERI  001410
          DATA   24HC PICTURE SPECIFICATION                             001420
 DIAG309  DATA   50H  ***309**              E SIGN SPECIFIER IS INVALI  001430
          DATA   52HD IN AN ALPHA OR ALPHANUMERIC PICTURE SPECIFICATION 001440
 DIAG310  DATA   50H   ***310**             E SIGN SPECIFIER MUST BE L  001450
          DATA   50HOCATED TO THE LEFT OF ALL DIGITS IN THE EXPONENT P  001460
          DATA   34HART OF A FLOATING-POINT PIC-SPEC                    001470
 DIAG311  DATA   50H  ***311**              E INVALID SIGN SPECIFIER I  001480
          DATA   41HN A FLOATING-POINT PICTURE SPECIFICATION            001490
 DIAG312  DATA   50H  ***312**              E EXPONENT SPECIFIER IS IN  001500
          DATA   50HVALID IN AN ALPHA OR ALPHANUMERIC PICTURE SPECIFIC  001510
          DATA    7HATION                                               001530
 DIAG313  DATA   50H   ***313**             E DOUBLY DEFINED EXPONENT   001540
          DATA   10HSPECIFIER                                           001550
 DIAG314  DATA   50H  ***314**              E REPETITION SPECIFIER IS 
          DATA   52HIN AN INVALID LOCATION IN THE PICTURE SPECIFICATION 001570
 DIAG315  DATA   50H  ***315**              E INVALID PICTURE SPECIFIC  001580
          DATA    6HATION                                               001590
 DIAG316  DATA   50H  ***316**              E FLOATING-POINT PICTURE S  001600
          DATA   38HPECIFICATION IS MISSING EXPONENT PART               001610
 DIAG317  DATA   50H  ***317**              E ILLEGAL CHARACTERS IN A   000580
          DATA   17HPICTURE LITERAL                                     005040
 DIAG318  DATA   50H  ***318**              E DOUBLY DEFINED SIGN IN T  001630
          DATA   30HHE PICTURE SPECIFICATION                            001640
 DIAG319  DATA   50H  ***319**              E INVALID REPETITION CHARA  001650
          DATA   40HRACTER IN THE PICTURE SPECIFICATION                 001660
 DIAG320  DATA   50H  ***320**              E SIGN SPECIFIER IS NOT TH  001680
          DATA   50HE RIGHT OR LEFT MOST CHARACTER IN THE PICTURE SPEC  001690
          DATA   10HIFICATION                                           001700
 DIAG321  DATA   50H  ***321**              E DOUBLY DEFINED SYMBOL     000220
 DIAG322  DATA   50H  ***322**              E SEPERATE SIGN IS NOT SUP  000150
          DATA   20HPORTED BY CDCS                                      000160
 DIAG323  DATA   52H  ***323**              E INTEGER-1 IS ILLEGAL SIZE 001880
 DIAG324  DATA   50H  ***324**              E EXPONENT SPECIFIERS 
          DATA   38H(E OR K) ARE NOT SUPPORTED BY CDCS 1.0
DIAG325   DATA   50H  ***325***             E RECORD BUFFER OVERFLOW, 
          DATA   20H *** DDL ABORTED ***
 DIAG326  DATA   50H  ***326**              E SIGN-OVER-PUNCH(T) MUST 
          DATA   36HOCCUPY THE RIGHT-MOST DIGIT POSITION
 DIAG330  DATA   50H  ***330**              E INVALID/MISSING KEY-NAME
 DIAG331  DATA   50H  ***331**              E CONCATENATED KEY-NAME IS
          DATA   15H DOUBLY DEFINED 
 DIAG332  DATA   50H  ***332**              E DATA-NAMES BRACKET( </> 
          DATA   09H) MISSING 
 DIAG333  DATA   50H  ***333**              E DATA-NAMES MUST BE CONSE
          DATA   33HCUTIVE AND CONTIGUOUS(NO PADDING) 
 DIAG334  DATA   50H  ***334**              E 
          DATA   23H           IS UNDEFINED 
 DIAG335  DATA   50H  ***335**              E 
          DATA   44H           IS A REPEATING ITEM - NOT ALLOWED
 DIAG336  DATA   50H  ***336**              E AT LEAST ONE DATA-NAME M
          DATA   39HUST BE SPECIFIED FOR A CONCATENATED KEY 
 DIAG337  DATA   50H  ***337**              E MORE THAN 64 DATA-NAMES 
          DATA   33HNOT ALLOWED IN A CONCATENATED KEY 
 DIAG338  DATA   50H  ***338**              E KEYS MUST BE DEFINED IN 
          DATA   33HFIRST RECORD TYPE WITHIN THE AREA 
DIAG327   DATA   50H  ***327***             E FATAL ERRORS OCCURED -- 
          DATA   28HFOLLOWING STATEMENTS IGNORED
 DIAG340  DATA   50H  ***340***             E COMPRESSION PREVIOUSLY S
          DATA   22HPECIFIED FOR THIS AREA
 DIAG341  DATA   50H  ***341***             E DECOMPRESSION PREVIOUSLY
          DATA   24H SPECIFIED FOR THIS AREA
 DIAG342  DATA   50H  ***342***             E SYSTEM OR DATA-BASE-PROC
          DATA   39HEDURE MUST BE USED FOR BOTH USAGE MODES 
 DIAG343  DATA   50H  ***343***             E COMPRESSION OR DECOMPRES
          DATA   19HSION CLAUSE MISSING 
 DIAG344  DATA   50H  ***344***             E SYSTEM OR DATA-BASE-PROC
          DATA   19HEDURE NOT SPECIFIED 
 DIAG345  DATA   50H  ***345***             E COMPRESSION/DECOMPRESSIO
          DATA   26HN CLAUSE IS NOT CONTIGUOUS
 DIAG346  DATA   50H  ***346***             E INVALID TYPE OPTION -- S
          DATA   17HKIPPING TO PERIOD 
 DIAG400  DATA   50H  ***400**              E INVALID/NON-UNIQUE RELAT
          DATA    8HION NAME
 DIAG401  DATA   50H  ***401**              T RELATION NAME LONGER THA
          DATA   32HN 30 CHARACTERS---NAME TRUNCATED
 DIAG402  DATA   50H  ***402**              E RESERVED WORD JOIN MISSI
          DATA    3HING 
 DIAG403  DATA   50H  ***403**              E               DBI IS INV
          DATA   14HALID/UNDEFINED
 DIAG404  DATA   50H  ***404**              E               DBI SUBSCR
          DATA   13HIPTS IN ERROR 
 DIAG405  DATA   50H  ***405**              E SUBSCRIPT ANY CANNOT BE 
          DATA   20HUSED FOR SOURCE DBIS
 DIAG406  DATA   50H  ***406**              E               DBI SIZE E
          DATA   36HXCEEDS THE MAXIMUM OF 255 CHARACTERS
 DIAG407  DATA   50H  ***407**              E SOURCE AND TARGET DBI PI
          DATA   44HCTURE/TYPE CHARACTERISTICS MUST BE IDENTICAL
 DIAG408  DATA   50H  ***408**              E SOURCE AND TARGET DBIS D
          DATA   13HIFFER IN SIZE 
 DIAG409  DATA   50H  ***409**              E SUBSCRIPT ANY ON A TARGE
          DATA   46HT DBI CAN BE SPECIFIED ONLY FOR ALTERNATE KEYS
 DIAG410  DATA   50H  ***410**              E FILE CANNOT BE JOINED TO
          DATA   18H ITSELF(RECURSION)
 DIAG411  DATA   50H  ***411**              E ILLEGAL PATH - CYCLING
          DATA   17HOR DISCONTINUITY
 DIAG412  DATA   50H  ***412**              E RANK EXCEEDS MAXIMUM OF 
          DATA    8H64 FILES
 DIAG413  DATA   50H  ***413**              E               DBI BELONG
          DATA   50HS TO AREA WITH MULTIPLE RECORDS--NOT ALLOWED IN A 
          DATA   13HRELATION PATH 
 DIAG414  DATA   50H  ***414**              E RESERVED WORD EQ MISSING
 DIAG415  DATA   50H  ***415**              E UNABLE TO COMPLETE ENTRY
          DATA   49H - ENTRY WILL BE IGNORED - SEARCHING FOR A PERIOD 
 DIAG416  DATA   50H  ***416**              E ILLEGAL PATH - SOURCE DB
          DATA   45HI MUST BE IN SAME AREA AS PREVIOUS TARGET DBI 
 DIAG500  DATA   50H  ***500**              E INVALID CONSTRAINT NAME    F
 DIAG501  DATA   50H  ***501**              E CONSTRAINT NAME NOT UNIQ   G
          DATA   02HUE                                                   AD 
 DIAG502  DATA   50H  ***502**              E                CONSTRAIN   AQ 
          DATA   42HT DATA ITEM NOT A PRIMARY OR ALTERNATE KEY           AQ 
 DIAG503  DATA   50H  ***503**              E CONSTRAINT DATA ITEMS DI   G
          DATA   23HFFER IN CHARACTERISTICS                              G
 DIAG504  DATA   50H  ***504**              E RESERVED WORD DEPENDS MI
          DATA   06HSSING 
 DIAG505  DATA   50H  ***505**              E CYCLE DETECTED IN CONSTR   G
          DATA   05HAINTS                                                G
 DIAG506  DATA   50H  ***506**              E CONSTRAINT DATA ITEM (PA
          DATA   34HRENT) CANNOT HAVE DUPLICATE VALUES
 DIAG507  DATA   50H  ***507**              T CONSTRAINT NAME LONGER T   G
          DATA   34HHAN 30 CHARACTERS - NAME TRUNCATED                   G
 DIAG508  DATA   50H  ***508**             E DBI IN ABOVE CONSTRAINT C
          DATA   23HANNOT DEPEND ON ITSELF
  
  
 DIAGPTR  VFD    4/7,8/57,18/DIAG100,4/7,8/42,18/DIAG101                000230
          VFD    4/7,8/45,18/DIAG102,30/0                               000210
          VFD    30/0,4/0,8/56,18/DIAG105 
          VFD    4/0,8/45,18/DIAG106,4/0,8/74,18/DIAG107
          VFD    4/0,8/50,18/DIAG108,30/0 
          VFD    30/0,4/0,8/68,18/DIAG111 
          VFD    4/7,8/41,18/DIAG112,30/0 
          VFD    4/0,8/53,18/DIAG114,30/0 
          VFD    4/0,8/51,18/DIAG116,30/0 
          VFD    30/0,4/0,8/47,18/DIAG119 
          VFD    4/0,8/48,18/DIAG120,4/0,8/72,18/DIAG121
          VFD    4/0,8/90,18/DIAG122,30/0 
          VFD    60/0 
          VFD    4/0,8/55,18/DIAG126,4/0,8/40,18/DIAG127
          VFD    30/0,4/0,8/43,18/DIAG129 
          VFD    60/0 
          VFD    30/0,4/0,8/70,18/DIAG133 
          VFD    60/0 
          VFD    4/0,8/79,18/DIAG136,30/0 
          VFD    4/0,8/100,18/DIAG138,4/0,8/69,18/DIAG139 
          VFD    4/0,8/65,18/DIAG140,4/0,8/50,18/DIAG141
          VFD    30/0,4/0,8/65,18/DIAG143 
          VFD    4/0,8/70,18/DIAG144,4/0,8/50,18/DIAG145
          VFD    4/0,8/50,18/DIAG146,4/0,8/74,18/DIAG147
          VFD    4/0,8/95,18/DIAG148,4/0,8/82,18/DIAG149
          VFD    4/0,8/74,18/DIAG150
          VFD    4/0,8/80,18/DIAG151
          VFD    4/1,8/91,18/DIAG152,4/0,8/87,18/DIAG153
          VFD    4/0,8/58,18/DIAG154,30/0 
          VFD    4/0,8/58,18/DIAG156,4/0,8/50,18/DIAG157                049480
          VFD    60/0 
          VFD    4/0,8/74,18/DIAG160
          VFD    4/0,8/80,18/DIAG161
          VFD    4/0,8/63,18/DIAG162,4/0,8/65,18/DIAG163
          VFD    4/0,8/83,18/DIAG164,4/0,8/71,18/DIAG165
          VFD    4/0,8/106,18/DIAG166,30/0
          VFD    60/0 
          VFD    4/0,8/80,18/DIAG170,4/0,8/57,18/DIAG171                001780
          VFD    4/0,8/55,18/DIAG172,4/0,8/62,18/DIAG173
          VFD    60/0 
          VFD    4/0,8/51,18/DIAG176,30/0 
          VFD    60/0 
          VFD    60/0 
          VFD    60/0 
          VFD    60/0 
          VFD    30/0,4/0,8/100,18/DIAG187
          VFD    60/0 
          VFD    30/0,4/0,8/50,18/DIAG191 
          VFD    60/0 
          VFD    4/0,8/54,18/DIAG194,4/0,8/52,18/DIAG195                000740
          VFD    4/0,8/51,18/DIAG196,4/0,8/53,18/DIAG197
          VFD    4/0,8/64,18/DIAG198,4/0,8/65,18/DIAG199
          VFD    4/0,8/110,18/DIAG200,4/0,8/74,18/DIAG201 
          VFD    4/0,8/60,18/DIAG202,4/0,8/57,18/DIAG203
          VFD    4/0,8/76,18/DIAG204,4/0,8/71,18/DIAG205
          VFD    4/0,8/71,18/DIAG206,4/0,8/68,18/DIAG207
          VFD    4/0,8/74,18/DIAG208,4/0,8/60,18/DIAG209
          VFD    4/0,8/53,18/DIAG210,4/0,8/76,18/DIAG211
          VFD    4/0,8/81,18/DIAG212,4/0,8/69,18/DIAG213
          VFD    4/0,8/78,18/DIAG214,4/0,8/77,18/DIAG215
          VFD    4/0,8/70,18/DIAG216,4/0,8/79,18/DIAG217
          VFD    4/7,8/98,18/DIAG218,4/0,8/57,18/DIAG219
          VFD    4/7,8/95,18/DIAG220,4/7,8/94,18/DIAG221
          VFD    4/0,8/53,18/DIAG222,4/7,8/98,18/DIAG223
          VFD    4/0,8/95,18/DIAG224,4/0,8/100,18/DIAG225 
          VFD    4/0,8/82,18/DIAG226,30/0 
          VFD    60/0 
          VFD    30/0,4/0,8/67,18/DIAG231 
          VFD    4/0,8/104,18/DIAG232,4/0,8/87,18/DIAG233 
          VFD    4/0,8/50,18/DIAG234,30/0 
          VFD    4/0,8/93,18/DIAG236,4/0,8/50,18/DIAG237
          VFD    4/0,8/80,18/DIAG238,4/0,8/107,18/DIAG239               000140
          VFD    4/0,8/108,18/DIAG240,30/0
          VFD    60/0 
          VFD    60/0 
          VFD    4/0,8/70,18/DIAG246,4/0,8/56,18/DIAG247
          VFD    4/0,8/57,18/DIAG248,4/0,8/49,18/DIAG249                049940
          VFD    4/0,8/103,18/DIAG250,4/0,8/57,18/DIAG251               049950
          VFD    30/0,4/0,8/66,18/DIAG253 
          VFD    4/0,8/80,18/DIAG254,4/0,8/102,18/DIAG255 
          VFD    4/0,8/93,18/DIAG256,30/0 
          VFD    4/0,8/95,18/DIAG258,4/0,8/85,18/DIAG259
          VFD    4/0,8/87,18/DIAG260,4/0,8/74,18/DIAG261
          VFD    4/0,8/75,18/DIAG262,30/0 
          VFD    4/0,8/67,18/DIAG264,4/0,8/82,18/DIAG265
          VFD    4/0,8/85,18/DIAG266,4/0,8/57,18/DIAG267
          VFD    4/0,8/84,18/DIAG268,4/0,8/84,18/DIAG269
          VFD    4/0,8/61,18/DIAG270,30/0 
          VFD    60/0 
          VFD    60/0 
          VFD    60/0 
          VFD    30/0,4/0,8/71,18/DIAG279 
          VFD    4/0,8/65,18/DIAG280,4/0,8/53,18/DIAG281
          VFD    4/7,8/127,18/DIAG282,4/0,8/61,18/DIAG283 
          VFD    4/0,8/80,18/DIAG284,4/0,8/78,18/DIAG285
          VFD    4/0,8/65,18/DIAG286,4/0,8/75,18/DIAG287
          VFD    4/0,8/86,18/DIAG288,4/0,8/53,18/DIAG289
          VFD    4/0,8/55,18/DIAG290,4/0,8/53,18/DIAG291
          VFD    4/0,8/58,18/DIAG292,4/0,8/66,18/DIAG293
          VFD    4/0,8/71,18/DIAG294,4/0,8/82,18/DIAG295                 DL3A034
          VFD    4/0,8/78,18/DIAG296,4/0,8/60,18/DIAG297
          VFD    4/0,8/87,18/DIAG298,30/0 
          VFD    4/0,8/80,18/DIAG300,4/0,8/80,18/DIAG301
          VFD    4/0,8/86,18/DIAG302,4/0,8/91,18/DIAG303                000390
          VFD    4/0,8/80,18/DIAG304,4/0,8/80,18/DIAG305                000440
          VFD    4/0,8/55,18/DIAG306,4/0,8/103,18/DIAG307               000410
          VFD    4/0,8/124,18/DIAG308,4/0,8/103,18/DIAG309              002220
          VFD    4/0,8/134,18/DIAG310,4/0,8/91,18/DIAG311               000120
          VFD    4/0,8/108,18/DIAG312,4/0,8/60,18/DIAG313               000430
          VFD    4/0,8/102,18/DIAG314,4/0,8/56,18/DIAG315               050270
          VFD    4/0,8/88,18/DIAG316,4/0,8/67,18/DIAG317                000610
          VFD    4/0,8/80,18/DIAG318,4/0,8/90,18/DIAG319                000450
          VFD    4/0,8/110,18/DIAG320,4/0,8/50,18/DIAG321               000205
          VFD    4/0,8/70,18/DIAG322,4/0,8/52,18/DIAG323                000780
          VFD    4/0,8/88,18/DIAG324,4/0,8/70,18/DIAG325
          VFD    4/0,8/86,18/DIAG326,4/0,8/78,18/DIAG327
          VFD    60/0 
          VFD    4/0,8/50,18/DIAG330,4/0,8/65,18/DIAG331
          VFD    4/0,8/59,18/DIAG332,4/0,8/83,18/DIAG333
          VFD    4/0,8/73,18/DIAG334,4/0,8/94,18/DIAG335
          VFD    4/0,8/89,18/DIAG336,4/0,8/83,18/DIAG337
          VFD    4/0,8/83,18/DIAG338
          VFD    30/0 
          VFD    4/0,8/72,18/DIAG340,4/0,8/74,18/DIAG341
          VFD    4/0,8/89,18/DIAG342,4/0,8/69,18/DIAG343
          VFD    4/0,8/69,18/DIAG344,4/0,8/76,18/DIAG345
          VFD    4/0,8/67,18/DIAG346,30/0 
          BSSZ   26 
          VFD    4/0,8/58,18/DIAG400,4/7,8/82,18/DIAG401
          VFD    4/0,8/53,18/DIAG402,4/0,8/64,18/DIAG403
          VFD    4/0,8/63,18/DIAG404,4/0,8/70,18/DIAG405
          VFD    4/0,8/86,18/DIAG406,4/0,8/94,18/DIAG407
          VFD    4/0,8/63,18/DIAG408,4/0,8/96,18/DIAG409
          VFD    4/0,8/68,18/DIAG410,4/0,8/67,18/DIAG411
          VFD    4/0,8/58,18/DIAG412,4/0,8/113,18/DIAG413 
          VFD    4/0,8/50,18/DIAG414,4/0,8/99,18/DIAG415
          VFD    4/0,8/95,18/DIAG416,30/0 
          BSSZ   41                                                      AP 
          VFD    4/0,8/50,18/DIAG500,4/0,8/52,18/DIAG501                 AD 
          VFD    4/0,8/92,18/DIAG502,4/0,8/72,18/DIAG503                 AQ 
          VFD    4/0,8/56,18/DIAG504,4/0,8/55,18/DIAG505                 AD 
          VFD    4/0,8/84,18/DIAG506,4/7,8/84,18/DIAG507
          VFD    4/0,8/73,18/DIAG508,30/0 
          END                                                           050310
