*DECK CBDIAGM                                                           026240
          IDENT FTDIAGM                                                 005370
          ENTRY DIAGPTR 
          ENTRY D100
D100      DATA    50H  ***100***                EMPTY INPUT FILE
D107      DATA    50H  ***107***                INVALID NAME IN ALIAS S 000840
          DATA    08HTATEMENT                                           000850
D108      DATA    50H  ***108***                EQUAL SIGN MISSING      000860
D111      DATA    50H  ***111***                INVALID QUALIFIER NAME
D114      DATA    50H  ***114***                INVALID STATEMENT - REA 
          DATA    30HLM OR ALIAS STATEMENT EXPECTED 
D115      DATA    50H  ***115***                 INVALID REALM NAME 
D116      DATA    50H  ***116***                DUPLICATE REALM NAME
D119      DATA    50H  ***119***                RECORD STATEMENT NOT SP 000880
          DATA    50HECIFIED, UNABLE TO CONTINUE - COMPILATION ABORTED
D120      DATA    50H  ***120***                INVALID RECORD NAME 
D121      DATA    50H  ***121***                DUPLICATE RECORD NAME 
D122      DATA    50H  ***122***                 CANNOT LOCATE OWNER RE 
          DATA    30HALM IN THE SCHEMA
D124      DATA    50H  ***124***                INVALID ITEM NAME       000910
D125      DATA    50H  ***125***                ITEM NAME NOT UNIQUE    000920
D126      DATA    50H  ***126***                ITEM SIZE GREATER THAN
          DATA    20HMAXIMUM SIZE ALLOWED 
D127      DATA    50H  ***127***                INVALID ITEM LENGTH 
D128      DATA    50H  ***128***                LENGTH SPECIFIED FOR NO 
          DATA    16HN-CHARACTER ITEM 
D130      DATA    50H  ***130***                INVALID DIMENSION BOUND 000130
D131      DATA    50H  ***131***                THE UPPER DIMENSION BOU 
          DATA    31HND IS LESS THAN THE LOWER BOUND
D133      DATA    50H  ***133***                EXCEEDED THE MAXIMUM NU 
          DATA    26HMBER OF DIMENSIONS ALLOWED 
D138      DATA    50H  ***138***                DOUBLE PRECISION MUST B 
          DATA    24HE SPECIFIED IN FORTRAN 5 
D142      DATA    50H  ***142***                ALIAS ENTRY TYPE NOT SP 
          DATA    10HECIFIED
D143      DATA    50H  ***143***                AN ITEM IS THE ONLY ALI 
          DATA    30HAS TYPE THAT CAN BE QUALIFIED                      000950
D144      DATA    50H  ***144***                UNKNOWN QUALIFIER NAME
D145      DATA    50H  ***145***
          DATA    45H           INVALID IN THE FOLLOWING STATEMENT      000970
D146      DATA    50H  ***146***                SUBSCHEMA STATEMENT NOT 000980
          DATA    35H SPECIFIED - COMPILATION TERMINATED
D147      DATA    50H  ***147***                SCHEMA KEYWORD MISSING  001000
D148      DATA    50H  ***148***                INVALID SCHEMA OR SUB-S 
          DATA    10HCHEMA NAME 
D155      DATA    50H  ***155***                SCHEMA NAME SPECIFIED I 
          DATA    50HN THE SUB-SCHEMA DOES NOT MATCH THE SCHEMA NAME IN 
          DATA    20H THE SCHEMA
D166      DATA    50H  ***166***                INVALID SUBSCRIPT IN CL 
          DATA    10HASS MATRIX 
D169      DATA    50H  ***169***                EMPTY SCHEMA DIRECTORY
D171      DATA    50H  ***171***                INSUFFICIENT FIELD LEN
          DATA   40HGH, INCREASE YOUR FL - DDLF ABORTED 
D179      DATA    50H  ***179***                 UNABLE TO COPY AREA EN 
          DATA    40HTRIES FROM THE SCHEMA, SCHEMA IS INVALID 
 D200     DATA    50H  ***200***                RECORD STRUCTURE CAUSES 
          DATA    47H MAXIMUM NUMBER OF COMMON BLOCKS TO BE EXCEEDED
D201      DATA   50H  ***201***                  AN ALIASED NAME MUST 
          DATA   50HBE REFERENCED BY THE ALIAS-NAME SPECIFIED IN THE A
          DATA    14HLIAS STATEMENT                                     001020
D202      DATA    50H  ***202***                 MAXIMUM AREA COUNT EXC 
          DATA    05HEEDED
D204      DATA    50H  ***204***                 MAXIMUM ITEM COUNT EXC 
          DATA    05HEEDED
D203      DATA    50H  ***203***                 MAXIMUM RECORD COUNT E 
          DATA    07HXCEEDED
D205      DATA    50H  ***205***                 MAXIMUM ITEM COUNT FOR 
          DATA    18H A RECORD EXCEEDED 
D206      DATA    50H  ***206***                FATAL ERRORS OCCURRED   001090
          DATA    31H-- FOLLOWING STATEMENTS IGNORED                    001100
D210      DATA    50H  ***210***                 A RECORD HAS BEEN PREV 005390
          DATA    29HIOUSLY DEFINED FOR THIS REALM                      005400
D211      DATA    50H  ***211***                 NO DATA  ITEMS DEFINED 005410
          DATA    15HFOR THIS RECORD                                    005420
D212      DATA    50H  ***212***                 INVALID STATEMENT - EN 005430
          DATA    20HD STATEMENT EXPECTED                               005440
D213      DATA    50H  ***213***                 INVALID STATEMENT FOLL 
          DATA    20HOWING END STATEMENT
D214      DATA    50H  ***214***                 NO END STATEMENT       005470
D215      DATA    50H  ***215***                 COMMA OR EQUAL MISSING 005480
D216      DATA    50H  ***216***                 STATEMENT CONTAINS EXT 005490
          DATA    19HRANEOUS INFORMATION                                005500
D217      DATA    50H  ***217***                INTERNAL DDLF ERROR     001040
D218      DATA    50H  ***218***                TYPE CHARACTER IS NOT 
          DATA    18HVALID IN FORTRAN 4 
D219      DATA    50H  ***219***                THE LOW:HIGH BOUNDS FEA 
          DATA    30HTURE IS NOT VALID IN FORTRAN 4 
D220      DATA    50H  ***220***                TYPE BOOLEAN IS NOT VAL 
          DATA    15HID IN FORTRAN 4
  
  
 DIAGPTR  VFD    4/0,8/50,18/D100 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/58,18/D107 
          VFD    4/0,8/50,18/D108 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/50,18/D111 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/80,18/D114 
          VFD    4/0,8/50,18/D115 
          VFD    4/0,8/50,18/D116 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/100,18/D119
          VFD    4/0,8/50,18/D120,4/0,8/50,18/D121
          VFD    4/0,8/80,18/D122 
          VFD    30/0 
          VFD    4/0,8/50,18/D124,4/0,8/50,18/D125
          VFD    4/0,8/70,18/D126,4/0,8/50,18/D127
          VFD    4/0,8/66,18/D128 
          VFD    30/0 
          VFD    4/0,8/50,18/D130,4/0,8/81,18/D131
          VFD    30/0 
          VFD    4/0,8/80,18/D133 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/50,18/D138 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/60,18/D142,4/0,8/80,18/D143
          VFD     4/0,8/50,18/D144,4/0,8/95,18/D145                     001170
          VFD    4/7,8/85,18/D146,4/0,8/50,18/D147
          VFD    4/0,8/60,18/D148 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/120,18/D155
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/60,18/D166 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/50,18/D169 
          VFD    30/0 
          VFD    4/0,8/80,18/D171 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/90,18/D179 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    30/0 
          VFD    4/0,8/97,18/D200,4/0,8/144,18/D201 
          VFD     4/0,8/55,18/D202,4/0,8/57,18/D203 
          VFD     4/0,8/55,18/D204,4/0,8/68,18/D205 
          VFD     4/0,8/81,18/D206,30/0                                 001240
          VFD     60/0                                                  001250
          VFD    4/0,8/79,18/D210,4/0,8/65,18/D211                      005550
          VFD    4/0,8/70,18/D212,4/0,8/70,18/D213
          VFD    4/0,8/50,18/D214,4/0,8/50,18/D215                      005570
          VFD    4/0,8/69,18/D216,4/0,8/50,18/D217                      005580
          VFD    4/0,8/68,18/D218,4/0,8/80,18/D219
          VFD    4/0,8/65,18/D220,30/0
          END 
