*DECK DMLDAGM                                                           001700
          IDENT  DMLDAGM                                                001710
          ENTRY  DIAG100                                                001720
          ENTRY  DIAGPTR                                                001730
 DIAG100  DATA   50H  ***100***             C EMPTY INPUT FILE          001740
 DIAG101  DATA   50H  ***101***             F LEFT PARENTHESIS MISSING  001750
 DIAG102  DATA   50H  ***102***             F INVALID SUBSCHEMA NAME    001760
 DIAG103  DATA   51H  ***103***             F RIGHT PARENTHESIS MISSING 001770
 DIAG104  DATA   50H  ***104***             F EXTRANEOUS DATA FOLLOWIN  001780
          DATA   19HG RIGHT PARENTHESIS                                 001790
 DIAG105  DATA   50H  ***105***             F NO INVOKE STATEMENT WAS 
          DATA   31HFOUND IN PRECEDING PROGRAM UNIT                     000850
 DIAG106  DATA   50H  ***106***             F INVALID RELATIONAL OPERA
          DATA   21HTOR FOR READ RELATION 
 DIAG107  DATA   50H  ***107**              E MODE=O INVALID ON OPEN R
          DATA   07HELATION 
 DIAG108  DATA   50H  ***108***             F UNKNOWN SOURCE WORD       001800
 DIAG109  DATA   40H  ***109***             F INVALID MODE              001810
 DIAG110  DATA   50H  ***110***             F EQUAL SIGN MISSING        001820
 DIAG111  DATA   50H  ***111***             F SUBSCHEMA NOT AVAILABLE   001830
 DIAG112  DATA   50H  ***112***             F EXTRANEOUS DATA IN PARAM
          DATA   09HETER LIST 
 DIAG113  DATA   50H  ***113***             F KEY PARAMETER MISSING     001840
 DIAG114  DATA   50H  ***114***             F INVALID RELATIONAL OPERA  001850
          DATA   04HTOR                                                 001860
 DIAG115  DATA   50H  ***115***             F INVALID ITEM NAME         001870
 DIAG116  DATA   50H  ***116***             F ITEM IS NOT DEFINED AS A  001880
          DATA   19H KEY FOR THIS REALM                                 001890
 DIAG117  DATA   40H  ***117***             F PERIOD MISSING            001900
 DIAG118  DATA   50H  ***118***             C INTERNAL DML ERROR        001910
 DIAG119  DATA   50H  ***119***             F COMMA OR RIGHT PARENTHES  001920
          DATA   12HIS NOT FOUND                                        001930
 DIAG121  DATA   50H  ***121***             F PRIVACY TYPE MUST BE LIT  001950
          DATA   18HERAL OR ARRAY NAME                                  001960
 DIAG122  DATA   50H  ***122***             F INVALID PARAMETER         001970
 DIAG123  DATA   50H  ***123***             F DUPLICATE PARAMETER       001980
 DIAG124  DATA   50H  ***124***             F PRIVACY PARAMETER LITERA  001990
          DATA   31HL IS GREATER THAN 30 CHARACTERS                     002000
 DIAG125  DATA   50H  ***125***             F PRIVACY PARAMETER NOT SP  002010
          DATA   07HECIFIED                                             002020
 DIAG126  DATA   50H  ***126***             C INSUFFICIENT FIELD LENGT  002030
          DATA   15HH - DML ABORTED                                     002040
 DIAG127  DATA   50H  ***127***             F DML LANGUAGE VERSION (LV
          DATA   25H) DIFFERS FROM SUB-SCHEMA 
 DIAG128  DATA   50H  ***128***             F INVALID FORTRAN LABEL 
 DIAG129  DATA   50H  ***129***             F END= IS NOT VALID FOR FO
          DATA   10HRTRAN 4 
 DIAG130  DATA   50H  ***130***             F ERR= IS NOT VALID FOR FO
          DATA   10HRTRAN 4 
 DIAG131  DATA   50H  ***131***             F TRANSACTION PARAMETER NO
          DATA   20HT VALID FORTRAN NAME
 DIAG132  DATA   50H  ***132***             F TRANSACTION LITERAL EXCE
          DATA   17HEDS 10 CHARACTERS 
 DIAG133  DATA   50H  ***133***             F VERSION PARAMETER NOT VA
          DATA   16HLID FORTRAN NAME
 DIAG134  DATA   50H  ***134***             F VERSION LITERAL EXCEEDS 
          DATA   13H10 CHARACTERS 
 DIAG135  DATA   50H  ***135***             F LOCK TYPE PARAMETER NOT 
          DATA   18HVALID FORTRAN NAME
 DIAG136  DATA   50H  ***136***             F LOCK TYPE LITERAL EXCEED
          DATA   23HS 10 CHARACTERS/INVALID 
 DIAG137  DATA   50H  ***137***             F RESTART IDENTIFIER NOT V
          DATA   17HALID FORTRAN NAME 
 DIAG138  DATA   50H  ***138***             F ITEM IN MAJOR KEY IS INV
          DATA   04HALID
  
  
  
 DIAGPTR  VFD    4/4,8/50,18/DIAG100,4/3,8/50,18/DIAG101                002050
          VFD    4/3,8/50,18/DIAG102,4/3,8/51,18/DIAG103                002060
         VFD    4/3,8/69,18/DIAG104,4/3,8/81,18/DIAG105                 000880
          VFD    4/0,8/71,18/DIAG106
          VFD    4/0,8/57,18/DIAG107
         VFD    4/3,8/50,18/DIAG108,4/3,8/40,18/DIAG109                 000900
          VFD    4/3,8/50,18/DIAG110,4/3,8/50,18/DIAG111                002100
          VFD    4/3,8/59,18/DIAG112,4/3,8/50,18/DIAG113
          VFD    4/3,8/54,18/DIAG114,4/3,8/50,18/DIAG115                002120
          VFD    4/3,8/69,18/DIAG116,4/3,8/40,18/DIAG117                002130
          VFD    4/4,8/50,18/DIAG118,4/3,8/62,18/DIAG119                002140
         VFD    30/0,4/3,8/68,18/DIAG121                                000920
          VFD    4/3,8/50,18/DIAG122,4/3,8/50,18/DIAG123                002160
          VFD    4/3,8/81,18/DIAG124,4/3,8/57,18/DIAG125                002170
          VFD    4/4,8/65,18/DIAG126,4/3,8/75,18/DIAG127
          VFD    4/3,8/50,18/DIAG128,4/3,8/60,18/DIAG129
          VFD    4/3,8/60,18/DIAG130
          VFD    4/3,8/70,18/DIAG131
          VFD    4/3,8/67,18/DIAG132
          VFD    4/3,8/66,18/DIAG133
          VFD    4/3,8/63,18/DIAG134
          VFD    4/3,8/68,18/DIAG135
          VFD    4/3,8/73,18/DIAG136
          VFD    4/3,8/67,18/DIAG137
          VFD    4/3,8/54,18/DIAG138
          END                                                           002190
