1 /* START OF: time_names_.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 4 /* */ 5 /* Name: time_names_.incl.pl1 */ 6 /* */ 7 /* This include file defines the structure of values in the time_table_. The table */ 8 /* includes a list of time zones known to the system, as well as lists of month names */ 9 /* and names of days of the week. All names are expressed in several different languages */ 10 /* to facilitate transliteration of dates into these languages. The table includes */ 11 /* the list of languages in which dates may be expressed. */ 12 /* */ 13 /* Status */ 14 /* */ 15 /* 0) Created 06/07/78: J. Falksen */ 16 /* 1) Modified 07/04/78: G. Dixon */ 17 /* */ 18 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 19 20 21 dcl time_info_$version char (8) ext static; /* Version number of all structures in the */ 22 /* time_info_. Currently = 1. */ 23 dcl Vtime_info_2 char (8) int static options(constant) init("tinfo002");%skip(4); 24 25 dcl time_info_$gmt_zone_index fixed bin (17) ext static; 26 dcl time_info_$default_language_index fixed bin (17) ext static; 27 28 dcl time_info_$date_time_keywords fixed bin ext static; /* Table of named date/time format strings */ 29 dcl 1 ti_keyword based (addr (time_info_$date_time_keywords)), 30 2 number_kwd fixed bin, /* number of keywords present */ 31 2 pad fixed bin, 32 2 e (0 refer (ti_keyword.number_kwd)), 33 3 name char (32), 34 3 str char (128)var; 35 dcl (site_date init (1), 36 site_date_time init (2), 37 site_time init (3) 38 ) fixed bin int static options (constant); 39 40 dcl time_info_$language_names fixed bin ext static; /* Table of language names, in various languages */ 41 42 dcl 1 ti_language based (addr (time_info_$language_names)), 43 2 number_lang fixed bin, /* number of language names present */ 44 2 pad fixed bin, 45 2 name (0 refer (ti_language.number_lang), 0 refer (ti_language.number_lang)) 46 char(32) varying; /* Name of the language. */ 47 /* All language names are expressed in all languages. name(i,j) gives the */ 48 /* jth language name in language i. name(i,i) gives a language name in its */ 49 /* own language. */%skip(4); 50 dcl time_info_$month_names fixed bin ext static; /* Table of month names in various languages. */ 51 52 dcl 1 ti_month based (addr (time_info_$month_names)), 53 2 number_lang fixed bin, /* number of languages in the table. */ 54 2 pad fixed bin, 55 2 e (0 refer (ti_month.number_lang), 12), 56 3 short char(8) var, /* short form of a month name, i.e., Nov */ 57 3 long char(32) var; /* long form of a month name, i.e. November */%skip(4); 58 dcl time_info_$day_names fixed bin ext static; /* Table of day names in various languages. */ 59 60 dcl 1 ti_day based (addr (time_info_$day_names)), 61 2 number_lang fixed bin, /* number of languages in the table. */ 62 2 pad fixed bin, 63 2 e (0 refer (ti_day.number_lang), 7), 64 3 short char(8) var, /* short for of a day name, i.e. Sat */ 65 3 long char(32) var; /* long form of a day name, i.e. Saturday */%skip(4); 66 dcl time_info_$offset_names fixed bin ext static; /* Table of offset names in various languages. */ 67 68 dcl 1 ti_offset based (addr (time_info_$offset_names)), 69 2 number_lang fixed bin, /* number of languages in the table. */ 70 2 number_offset fixed bin, 71 2 e (0 refer (ti_offset.number_lang), 0 refer (ti_offset.number_offset)), 72 3 short char(32) var, /* short form of an offset name, i.e. min */ 73 3 plural char(32) var, /* plural form of an offset name, i.e. minutes */ 74 3 singular char(32) var, /* singular for of an offset name, i.e. minute */ 75 3 this char(32) var; /* "this" which goes with singular */%skip(4); 76 dcl time_info_$word_names fixed bin ext static; /* Table of word names in various languages. */ 77 78 dcl 1 ti_word based (addr (time_info_$word_names)), 79 2 number_lang fixed bin, /* number of languages in the table. */ 80 2 number_word fixed bin, 81 2 short (0 refer (ti_word.number_lang), 0 refer (ti_word.number_word)) 82 char (8) var, 83 2 word (0 refer (ti_word.number_lang), 0 refer (ti_word.number_word)) 84 char(32) var; /* a "word", i.e. Midnight */ 85 86 dcl time_info_$zone_names fixed bin ext static; /* Table of known time zones. */ 87 88 dcl 1 ti_zone based (addr (time_info_$zone_names)), 89 2 number_lang fixed bin, /* number of languages in which zone names */ 90 /* are defined. */ 91 2 number_zone fixed bin, /* number of zone names in the table. */ 92 2 e (0 refer (ti_zone.number_lang), 0 refer (ti_zone.number_zone)), 93 3 short char(4) var, /* short form of the zone name. */ 94 3 long char(64) var, /* long form of the zone name */ 95 3 pad fixed bin, 96 3 delta fixed bin(71); /* offset, in microseconds, of this time zone */ 97 /* from GMT (Greenwich mean time). This value */ 98 /* should be subtracted from a clock value */ 99 /* (which is expressed in GMT by definition). */ 100 /* to obtain a date/time expressed in the */ 101 /* named time zone. */ 102 /* NOTE: zones are listed in order of descending */ 103 /* delta, from +11 to -12. print_time_zones */ 104 /* requires this. */ 105 106 107 dcl (tiw_FiscalIndicator init (11) 108 ) fixed bin int static options (constant); 109 110 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 111 /* NOTE TO MAINTAINER: Before changing this file, see the comments in */ 112 /* time_info_cds.incl.pl1 */ 113 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 114 115 /* END OF: time_names_.incl.pl1 * * * * * * * * * * * * * * * * */