*DECK CBRDAGM 
          IDENT  CBRDAGM
          ENTRY  D400 
          ENTRY  RELDPTR
D400      DATA   50H  ***400***                 RN DECLARATION IS INC0
          DATA   10HRRECT 
D401      DATA   50H  ***401***                 INVALID RELATION NAME 
D402      DATA   50H  ***402***                 RELATION NAME IS NOT U
          DATA   10HNIQUE 
D403      DATA   50H  ***403***                 UNABLE TO FIND CORRESP
          DATA   40HONDING RELATION ENTRY IN THE SCHEMA 
D404      DATA   50H  ***404***                 AREA - + - TRAVERSED I
          DATA   51HN THE SCHEMA MUST BE SPECIFIED IN A REALM STATEMENT 001330
D405      DATA   50H  ***405***                 INVALID RECORD NAME 
D406      DATA   50H  ***406***                 UNABLE TO FIND RECORD 
          DATA   10HENTRY 
D407      DATA   50H  ***407***                 - + - IS AN INVALID DA
          DATA   30HTA-BASE-IDENTIFIER NAME 
D408      DATA   50H  ***408***                 DATA-BASE-IDENTIFIER -
          DATA   20H + - IS UNDEFINED 
D409      DATA   50H  ***409***                 DATA-BASE-IDENTIFIER -
          DATA   40H + - IS UNDEFINED IN THE SCHEMA 
D410      DATA   50H  ***410***                 CONVERSION NOT POSSIBL
          DATA   20HE FOR LITERAL 
D411      DATA   50H  ***411***                 INVALID USE OF DBI - -
          DATA   41H + - DOES NOT BELONG TO RESTRICTED RECORD 
 D413     DATA   50H  ***413**                  SOURCE DBI DOES NOT HA
          DATA   50HVE COMPATIBLE SCHEMA DATA REPRESENTATION WITH TARG
          DATA   10HET DBI
D414      DATA   50H  ***414***                 QUALIFICATION NOT ALLO
          DATA   26HWED ON RESTRICT DATA-NAMES
D417      DATA   50H  ***417***                 INVALID STATEMENT - EN  001350
          DATA   20HD STATEMENT EXPECTED                                001360
D418      DATA   50H  ***418***                 PERIOD MISSING          001370
D419      DATA   50H  ***419***                 EXTRANEOUS DATA IN STA  001380
          DATA   06HTEMENT                                              001390
D420      DATA   50H  ***420***                 THE NUMBER OF DIMENSIO
          DATA   50HNS SPECIFIED DOES NOT EQUAL THE NUMBER OF DIMENSIO
          DATA   28HNS DEFINED FOR ARRAY - + -
D421      DATA   50H  ***421***                 SUBSCRIPT SPECIFIED FO
          DATA   28HR ITEM WHICH IS NOT AN ARRAY
D422      DATA   50H  ***422***                 DUE TO FATAL ERRORS, C
          DATA   30HOMPILATION IS ABORTED 
D424      DATA   50H  ***424***                 VIRTUAL RESULT AND DEC
          DATA   50HODE DATA-BASE-IDENTIFIERS (IN SCHEMA) CANNOT BE US
          DATA   20HED AS QUALIFIERS
D425      DATA   50H  ***425***                 LEVEL 66, LEVEL 88 AND
          DATA   50H REDEFINED DATA-BASE-IDENTIFIERS CANNOT BE USED AS
          DATA   20H QUALIFIERS 
D426      DATA   50H  ***426***                 OWNER AREA OF THE REST
          DATA   50HRICTED RECORD WAS NOT SPECIFIED IN THE RELATION EN
          DATA   20HTRY (IN THE SCHEMA) 
D427      DATA   50H  ***427***                 INVALID OR MISSING REL  001430
          DATA   20HATIONAL OPERATOR                                    001440
D428      DATA   50H  ***428***                 EXCEEDED FIELD LENGTH,
          DATA   30H INCREASE YOUR FIELD LENGTH 
D429      DATA   50H  ***429***                 RECORD ENTRY - + - WAS
          DATA   40H PREVIOUSLY SPECIFIED IN RESTRICT CLAUSE
D430      DATA   52H  ***430***                 INVALID LOGICAL OPERATOR001460
D431      DATA   50H  ***431***                 NO END STATEMENT        001470
D432      DATA   50H  ***432***                 INVALID STATEMENT FOLL
          DATA   20HOWING END STATEMENT 
D433      DATA   50H  ***433***                 SKIPPING TO THE NEXT R
          DATA   20HESTRICT STATEMENT                                   001510
D434      DATA   52H  ***434***                 RESTRICT STATEMENT FOUND001520
D435      DATA   50H  ***435***                 COULD NOT FIND ANY MOR
          DATA   50HE RESTRICT STATEMENTS FOR THE CURRENT RELATION ENT  001540
          DATA   02HRY                                                  001550
D436      DATA   50H  ***436***                 - + - IS AN INVALID SU
          DATA   10HB-SCRIPT
D438      DATA   50H  ***438***                 TERMINATING DELIMITER 
          DATA   30HFOR SUBSCRIPT IS MISSING
D439      DATA   50H  ***439***                 THE SUBSCRIPT VALUE IS
          DATA   43H NOT WITHIN THE BOUNDS OF ARRAY DECLARATION 
D440      DATA   50H  ***440***                 DID NOT SPECIFY SUB-SC
          DATA   40HRIPT FOR ARRAY - + -                                001590
D441      DATA   50H  ***441***                 MAXIMUM RELATION COUNT
          DATA   10H EXCEEDED 
D442      DATA   50H  ***442***                 LEFT PARENTHESIS MISSI
          DATA   03HNG
D443      DATA   50H  ***443***                 RIGHT PARENTHESIS MISS
          DATA   04HING 
  
  
RELDPTR   VFD    3/0,9/60,18/D400,3/0,9/50,18/D401
          VFD    3/0,9/60,18/D402,3/0,9/90,18/D403
          VFD    3/2,9/101,18/D404,3/0,9/50,18/D405                     001610
          VFD    3/0,9/60,18/D406,3/3,9/80,18/D407
          VFD    3/2,9/70,18/D408,3/2,9/90,18/D409
          VFD    3/0,9/70,18/D410,3/2,9/91,18/D411
          VFD    30/0 
          VFD    3/0,9/110,18/D413
          VFD    3/0,9/76,18/D414,30/0
          VFD    30/0,3/0,9/70,18/D417                                  001630
          VFD    3/0,9/50,18/D418,3/0,9/56,18/D419                      001640
          VFD    3/2,9/128,18/D420,3/0,9/78,18/D421 
          VFD    3/0,9/80,18/D422,30/0
          VFD    3/0,9/120,18/D424,3/0,9/120,18/D425
          VFD    3/0,9/120,18/D426,3/0,9/70,18/D427 
          VFD    3/0,9/80,18/D428,3/1,9/90,18/D429
          VFD    3/0,9/52,18/D430,3/0,9/50,18/D431                      001660
          VFD    3/0,9/70,18/D432,3/0,9/70,18/D433
          VFD    3/0,9/52,18/D434,3/0,9/102,18/D435                     001680
          VFD    3/3,9/60,18/D436,30/0
          VFD    3/0,9/80,18/D438,3/0,9/93,18/D439
          VFD    3/2,9/90,18/D440,3/0,9/60,18/D441
          VFD    3/0,9/53,18/D442,3/0,9/54,18/D443
          END 
