<< The following describes the header portion of a self-describing 00001000 file. The label is stored as the laster userlabel in an MPE 00002000 file. On HP-UX, the header occupies the first portion of the 00003000 ".sd" file. 00004000 00005000 Note: Two fields are redefined for MPE/HP-UX. Ideally, we would 00006000 like to only make the definitions appropriate to each 00007000 platform available. However, doing so results in compile 00008000 problems due to $include/$if combinations. It's up to 00009000 the programmer to insure that only the correct fields are 00010000 accessed on each platform. 00011000 >> 00012000 00013000 integer array sd'header(0:sd'label'len); 00014000 byte array sd'version(*) = sd'header; 00015000 integer array sd'reclength(*) = sd'header(4); 00016000 integer array sd'numfields(*) = sd'header(5); 00017000 integer array sd'numlabels(*) = sd'header(6); ! See note 00018000 integer array sd'fieldsperlabel(*) = sd'header(7); ! See note 00019000 integer array sd'linefeeds(*) = sd'header(6); ! See note 00020000 integer array sd'unused(*) = sd'header(7); ! See note 00021000 integer array sd'entrylen(*) = sd'header(8); 00022000 integer array sd'sort'max'keys(*) = sd'header(9); 00023000 integer array sd'sort'num'keys(*) = sd'header(10); 00024000 integer array sd'sort'keys(*) = sd'header(11); 00025000