COMPILATION LISTING OF SEGMENT gtss_abs_logout_banner_ Compiled by: Multics PL/I Compiler, Release 28d, of October 4, 1983 Compiled at: Honeywell Multics Op. - System M Compiled on: 12/10/84 1221.6 mst Mon Options: optimize map 1 /* *********************************************************** 2* * * 3* * * 4* * Copyright, (C) Honeywell Information Systems Inc., 1981 * 5* * * 6* * * 7* *********************************************************** */ 8 9 gtss_abs_logout_banner_: proc returns (char (*)); 10 11 call user_info_$limits (mlim, clim, cdate, crf, shlim, msp, csp, shsp); 12 call user_info_$login_data (pid, pjid, acct, anon, stby, wt, time_login, lw); 13 call decode_clock_value_$date_time (time_login, month, dom, year, hour, minute, second, microsecond, dow, "", code); 14 hr = hour; 15 min = minute; 16 call decode_clock_value_$date_time (clock_ (), month, dom, year, hour, minute, second, microsecond, dow, "", code); 17 call ioa_$rs ("**COST: $ ^d.00 TO DATE: $ ^d.00" 18 || "^/**ON AT ^d.^d - OFF AT ^d.^d ON ^d/^d/^d", 19 ret_string, ret_len, 20 session_cost, msp, 21 hr, min * 1000 / 60, hour, (minute * 1000 / 60) + 11, month, dom, year - 1900); 22 return (substr (ret_string, 1, ret_len)); 23 24 dcl acct char (32); 25 dcl anon fixed bin; 26 dcl cdate fixed bin (71); 27 dcl clim float bin; 28 dcl clock_ entry returns (fixed bin (71)); 29 dcl code fixed bin (35); 30 dcl crf fixed bin; 31 dcl csp float bin; 32 dcl decode_clock_value_$date_time entry (fixed bin (71), fixed bin, fixed bin, fixed bin, fixed bin, 33 fixed bin, fixed bin, fixed bin (71), fixed bin, char (3), fixed bin (35)); 34 dcl dom fixed bin; 35 dcl dow fixed bin; 36 dcl hour fixed bin; 37 dcl hr fixed bin; 38 dcl ioa_$rs entry options (variable); 39 dcl lw char (5); 40 dcl microsecond fixed bin (71); 41 dcl min fixed bin; 42 dcl minute fixed bin; 43 dcl mlim float bin; 44 dcl month fixed bin; 45 dcl msp float bin; 46 dcl pid char (22); 47 dcl pjid char (9); 48 dcl ret_len fixed bin (21); 49 dcl ret_string char (300); 50 dcl second fixed bin; 51 dcl session_cost fixed bin init (0); 52 dcl shlim (0:7) float bin; 53 dcl shsp (0:7) float bin; 54 dcl stby fixed bin; 55 dcl time_login fixed bin (71); 56 dcl wt fixed bin; 57 dcl user_info_$limits entry (float bin, float bin, fixed bin (71), fixed bin, (0:7) float bin, 58 float bin, float bin, (0:7) float bin); 59 dcl user_info_$login_data entry (char (*), char (*), char (*), fixed bin, fixed bin, fixed bin, fixed bin (71), char (*)); 60 dcl year fixed bin; 61 end; /* gtss_abs_logout_banner_ */ SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 12/10/84 1042.7 gtss_abs_logout_banner_.pl1 >spec>on>7105>gtss_abs_logout_banner_.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. acct 000100 automatic char(32) unaligned dcl 24 set ref 12* anon 000110 automatic fixed bin(17,0) dcl 25 set ref 12* cdate 000112 automatic fixed bin(71,0) dcl 26 set ref 11* clim 000114 automatic float bin(27) dcl 27 set ref 11* clock_ 000010 constant entry external dcl 28 ref 16 16 code 000115 automatic fixed bin(35,0) dcl 29 set ref 13* 16* crf 000116 automatic fixed bin(17,0) dcl 30 set ref 11* csp 000117 automatic float bin(27) dcl 31 set ref 11* decode_clock_value_$date_time 000012 constant entry external dcl 32 ref 13 16 dom 000120 automatic fixed bin(17,0) dcl 34 set ref 13* 16* 17* dow 000121 automatic fixed bin(17,0) dcl 35 set ref 13* 16* hour 000122 automatic fixed bin(17,0) dcl 36 set ref 13* 14 16* 17* hr 000123 automatic fixed bin(17,0) dcl 37 set ref 14* 17* ioa_$rs 000014 constant entry external dcl 38 ref 17 lw 000124 automatic char(5) unaligned dcl 39 set ref 12* microsecond 000126 automatic fixed bin(71,0) dcl 40 set ref 13* 16* min 000130 automatic fixed bin(17,0) dcl 41 set ref 15* 17 minute 000131 automatic fixed bin(17,0) dcl 42 set ref 13* 15 16* 17 mlim 000132 automatic float bin(27) dcl 43 set ref 11* month 000133 automatic fixed bin(17,0) dcl 44 set ref 13* 16* 17* msp 000134 automatic float bin(27) dcl 45 set ref 11* 17* pid 000135 automatic char(22) unaligned dcl 46 set ref 12* pjid 000143 automatic char(9) unaligned dcl 47 set ref 12* ret_len 000146 automatic fixed bin(21,0) dcl 48 set ref 17* 22 ret_string 000147 automatic char(300) unaligned dcl 49 set ref 17* 22 second 000262 automatic fixed bin(17,0) dcl 50 set ref 13* 16* session_cost 000263 automatic fixed bin(17,0) initial dcl 51 set ref 17* 51* shlim 000264 automatic float bin(27) array dcl 52 set ref 11* shsp 000274 automatic float bin(27) array dcl 53 set ref 11* stby 000304 automatic fixed bin(17,0) dcl 54 set ref 12* time_login 000306 automatic fixed bin(71,0) dcl 55 set ref 12* 13* user_info_$limits 000016 constant entry external dcl 57 ref 11 user_info_$login_data 000020 constant entry external dcl 59 ref 12 wt 000310 automatic fixed bin(17,0) dcl 56 set ref 12* year 000311 automatic fixed bin(17,0) dcl 60 set ref 13* 16* 17 NAME DECLARED BY EXPLICIT CONTEXT. gtss_abs_logout_banner_ 000045 constant entry external dcl 9 NAME DECLARED BY CONTEXT OR IMPLICATION. substr builtin function ref 22 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 460 502 365 470 Length 660 365 22 141 73 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME gtss_abs_logout_banner_ 310 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME gtss_abs_logout_banner_ 000100 acct gtss_abs_logout_banner_ 000110 anon gtss_abs_logout_banner_ 000112 cdate gtss_abs_logout_banner_ 000114 clim gtss_abs_logout_banner_ 000115 code gtss_abs_logout_banner_ 000116 crf gtss_abs_logout_banner_ 000117 csp gtss_abs_logout_banner_ 000120 dom gtss_abs_logout_banner_ 000121 dow gtss_abs_logout_banner_ 000122 hour gtss_abs_logout_banner_ 000123 hr gtss_abs_logout_banner_ 000124 lw gtss_abs_logout_banner_ 000126 microsecond gtss_abs_logout_banner_ 000130 min gtss_abs_logout_banner_ 000131 minute gtss_abs_logout_banner_ 000132 mlim gtss_abs_logout_banner_ 000133 month gtss_abs_logout_banner_ 000134 msp gtss_abs_logout_banner_ 000135 pid gtss_abs_logout_banner_ 000143 pjid gtss_abs_logout_banner_ 000146 ret_len gtss_abs_logout_banner_ 000147 ret_string gtss_abs_logout_banner_ 000262 second gtss_abs_logout_banner_ 000263 session_cost gtss_abs_logout_banner_ 000264 shlim gtss_abs_logout_banner_ 000274 shsp gtss_abs_logout_banner_ 000304 stby gtss_abs_logout_banner_ 000306 time_login gtss_abs_logout_banner_ 000310 wt gtss_abs_logout_banner_ 000311 year gtss_abs_logout_banner_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out ext_entry_desc return_chars_eis divide_fx1 THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. clock_ decode_clock_value_$date_time ioa_$rs user_info_$limits user_info_$login_data NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 9 000042 51 000052 11 000053 12 000077 13 000142 14 000177 15 000201 16 000203 17 000247 22 000354 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved