<< The next declarations describe one field from the label of 00001000 a self-describing file. 00002000 >> 00003000 00004000 integer array sd'field(0:sd'max'field'len); 00005000 byte array sd'field'name(*) = sd'field; 00006000 integer array sd'field'type(*) = sd'field(8); 00007000 integer array sd'field'offset(*) = sd'field(9); 00008000 integer array sd'field'bytelen(*) = sd'field(10); 00009000 integer array sd'field'repeat(*) = sd'field(11); 00010000 integer array sd'field'decplaces(*)= sd'field(12); 00011000 integer array sd'field'date'type(*)= sd'field(13); 00012000 00013000 << the following is for the sd'module to return the 00014000 field number of a qualified field >> 00014100 00014200 integer 00015000 sd'field'no 00016000 ; 00017000