*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   50HN THE SCHEMA MUST BE SPECIFIED IN THE RD DIVISION 
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***                 - + - UNKNOWN SOURCE W
          DATA   10HORD 
D418      DATA   50H  ***418***                 ENTRY WAS NOT TERMINAT
          DATA   20HED BY A PERIOD
D419      DATA   50H  ***419***                 SEARCHING FOR A PERIOD
D420      DATA   50H  ***420***                 PERIOD FOUND, COMPILAT
          DATA   20HION RESUMED 
D421      DATA   50H  ***421***                 SUB-SCRIPT SPECIFIED F
          DATA   40HOR NON REPEATING ITEM - + - IS INVALID
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***                 A RELATIONAL OPERATOR 
          DATA   20H MUST BE SPECIFIED
D428      DATA   50H  ***428***                 EXCEEDED FIELD LENGTH,
          DATA   30H INCREASE YOUR FIELD ELNGTH 
D429      DATA   50H  ***429***                 RECORD ENTRY - + - WAS
          DATA   40H PREVIOUSLY SPECIFIED IN RESTRICT CLAUSE
D430      DATA   50H  ***430***                 INVALID QUALIFIER NAME
D431      DATA   50H  ***431***                 RELATION DIVISION TITL
          DATA   20HE IS INCORRECT
D432      DATA   50H  ***432***                 TITLE STATEMENT WAS NO
          DATA   30HT TERMINATED BY A PERIOD
D433      DATA   50H  ***433***                 SKIPPING TO THE NEXT R
          DATA   20HESTRICT CLAUSE
D434      DATA   50H  ***434***                 RESTRICT CLAUSE FOUND 
D435      DATA   50H  ***435***                 COULD NOT FIND ANY MOR
          DATA   50HE RESTRICT CLAUSES FOR THE CURRENT RELATION ENTRY 
D436      DATA   50H  ***436***                 - + - IS AN INVALID SU
          DATA   10HB-SCRIPT
D437      DATA   50H  ***437***                 EXCEEDED THE MAXIMUM N
          DATA   40HUMBER OF SUB-SCRIPTS ALLOWED (3)
D438      DATA   50H  ***438***                 TERMINATING DELIMITER 
          DATA   30HFOR SUB-SCRIPT IS MISSING 
D439      DATA   50H  ***439***                 THE SUB-SCRIPT VALUE E
          DATA   40HXCEEDED THE OCCURS VALUE FOR - + -
D440      DATA   50H  ***440***                 DID NOT SPECIFY SUB-SC
          DATA   40HRIPT FOR REPEATING ITEM - + - 
D441      DATA   50H  ***441***                 MAXIMUM RELATION COUNT
          DATA   10H EXCEEDED 
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/100,18/D404,3/0,9/50,18/D405 
          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/3,9/60,18/D417
          VFD    3/0,9/70,18/D418,3/0,9/50,18/D419
          VFD    3/0,9/70,18/D420,3/2,9/90,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/50,18/D430,3/0,9/70,18/D431
          VFD    3/0,9/80,18/D432,3/0,9/70,18/D433
          VFD    3/0,9/50,18/D434,3/0,9/100,18/D435 
          VFD    3/3,9/60,18/D436,3/0,9/90,18/D437
          VFD    3/0,9/80,18/D438,3/2,9/90,18/D439
          VFD    3/2,9/90,18/D440,3/0,9/60,18/D441
          END 
