1 /* BEGIN INCLUDE FILE ... time_offset_array.incl.pl1 ... 06/07/83 J Falksen */ 2 3 /* * * * * * * * * * * * * * * * * * * * * * * * * */ 4 /* */ 5 /* Name: time_offset_array.incl.pl1 */ 6 /* */ 7 /* This is an array form of time_offset_. See details in */ 8 /* time_offset_.incl.pl1 */ 9 /* */ 10 /* Status */ 11 /* 06/07/83 jaf 0) Created */ 12 /* */ 13 /* * * * * * * * * * * * * * * * * * * * * * * * * */ 14 15 dcl 1 time_offset_array aligned based(Ptime_offset_array), 16 2 version char (8), 17 2 fxbu (8) bit(1) unal, /* which fxb units in use */ 18 2 flbu (8) bit(1) unal, /* which flb units in use */ 19 2 pad bit(20) unal, 20 2 day_in_week fixed bin (24), 21 2 fxb (8) fixed bin (71), /* fixed values */ 22 2 flb (8) float dec (59); /* float values */ 23 24 /* ------------------------------------------------------------------------- */ 25 /* Names of the elements of the 4 Arrays */ 26 /* ------------------------------------------------------------------------- */ 27 28 dcl (yr init (1), /* The size of a year is dependant upon WHICH */ 29 /* year. The (adjusted) clock value is the */ 30 /* reference for this. */ 31 mo init (2), /* The size of a month is dependant upon WHICH */ 32 /* month of WHICH year. The (adjusted) clock */ 33 /* value is the reference for this. */ 34 35 wk init (3), /* weeks */ 36 da init (4), /* days */ 37 hr init (5), /* hours */ 38 min init (6), /* minutes */ 39 sec init (7), /* seconds */ 40 Usec init (8) /* microseconds */ 41 ) fixed bin int static options (constant); 42 43 dcl Ptime_offset_array ptr, 44 Vtime_offset_array_1 char (8) int static options(constant) init("1"); 45 46 /* END INCLUDE FILE ..... time_offset_array.incl.pl1 ..... */