COMPILATION LISTING OF SEGMENT stop_cobol_run Compiled by: Multics PL/I Compiler, Release 31b, of April 24, 1989 Compiled at: Bull HN, Phoenix AZ, System-M Compiled on: 05/24/89 1024.6 mst Wed Options: optimize map 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4* * * 5* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 6* * * 7* * Copyright (c) 1972 by Massachusetts Institute of * 8* * Technology and Honeywell Information Systems, Inc. * 9* * * 10* *********************************************************** */ 11 12 13 14 15 /****^ HISTORY COMMENTS: 16* 1) change(89-04-23,Zimmerman), approve(89-04-23,MCR8060), 17* audit(89-05-05,RWaters), install(89-05-24,MR12.3-1048): 18* MCR8060 stop_cobol_run.pl1 Reformatted code to new Cobol standard. 19* END HISTORY COMMENTS */ 20 21 22 /* Modified on 10/25/76 by ORN to comply with error message standards */ 23 /* Modified on 03/26/76 by ORN to call cobol_cancel_ instead of cancel_. 24* Change made in conjunction with cobol_control_ modification. */ 25 26 /* format: style3 */ 27 stop_cobol_run: 28 scr: 29 proc; 30 31 dcl nargs fixed bin; 32 dcl code fixed bin; 33 dcl arglen fixed bin; 34 dcl rdsw fixed bin; 35 dcl rfsw fixed bin; 36 dcl mcode fixed bin (35); 37 dcl i fixed bin; 38 39 dcl arg char (arglen) based (argptr); 40 41 dcl argptr ptr; 42 43 dcl cobol_control_$cobol_stop_run_command_ 44 entry (ptr, fixed bin, fixed bin, fixed bin); 45 dcl com_err_ entry options (variable); 46 dcl cu_$arg_ptr entry (fixed bin, ptr, fixed bin, fixed bin (35)); 47 dcl cu_$arg_count entry (fixed bin); 48 49 dcl error_table_$badopt fixed bin (35) ext static; 50 51 52 /*************************************/ 53 start: 54 rfsw = 0; 55 rdsw = 0; 56 call cu_$arg_count (nargs); 57 do i = 1 to nargs; 58 call cu_$arg_ptr (i, argptr, arglen, mcode); 59 if mcode ^= 0 60 then go to merror; 61 if arg = "-retd" | arg = "-retain_data" 62 then rdsw = 1; 63 else if arg = "-rf" | arg = "-retain_files" 64 then rfsw = 1; 65 else go to bad_arg_error; 66 end; 67 code = 0; 68 call cobol_control_$cobol_stop_run_command_ (null (), rdsw, rfsw, code); 69 if code ^= 0 70 then go to no_run_error; 71 return; 72 73 74 /*************************************/ 75 bad_arg_error: 76 call com_err_ (error_table_$badopt, "stop_cobol_run", arg); 77 return; 78 79 merror: 80 call com_err_ (mcode, "stop_cobol_run"); 81 return; 82 83 no_run_error: 84 call com_err_ (0, "stop_cobol_run", "There is no cobol run-unit currently active."); 85 return; 86 87 end stop_cobol_run; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 05/24/89 0836.8 stop_cobol_run.pl1 >spec>install>MR12.3-1048>stop_cobol_run.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. arg based char packed unaligned dcl 39 set ref 61 61 63 63 75* arglen 000102 automatic fixed bin(17,0) dcl 33 set ref 58* 61 61 63 63 75 75 argptr 000110 automatic pointer dcl 41 set ref 58* 61 61 63 63 75 cobol_control_$cobol_stop_run_command_ 000010 constant entry external dcl 43 ref 68 code 000101 automatic fixed bin(17,0) dcl 32 set ref 67* 68* 69 com_err_ 000012 constant entry external dcl 45 ref 75 79 83 cu_$arg_count 000016 constant entry external dcl 47 ref 56 cu_$arg_ptr 000014 constant entry external dcl 46 ref 58 error_table_$badopt 000020 external static fixed bin(35,0) dcl 49 set ref 75* i 000106 automatic fixed bin(17,0) dcl 37 set ref 57* 58* mcode 000105 automatic fixed bin(35,0) dcl 36 set ref 58* 59 79* nargs 000100 automatic fixed bin(17,0) dcl 31 set ref 56* 57 rdsw 000103 automatic fixed bin(17,0) dcl 34 set ref 55* 61* 68* rfsw 000104 automatic fixed bin(17,0) dcl 35 set ref 53* 63* 68* NAMES DECLARED BY EXPLICIT CONTEXT. bad_arg_error 000170 constant label dcl 75 set ref 63 merror 000223 constant label dcl 79 ref 59 no_run_error 000247 constant label dcl 83 ref 69 scr 000041 constant entry external dcl 27 start 000055 constant label dcl 53 stop_cobol_run 000050 constant entry external dcl 27 NAME DECLARED BY CONTEXT OR IMPLICATION. null builtin function ref 68 68 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 404 426 303 414 Length 604 303 22 141 101 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME scr 120 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME scr 000100 nargs scr 000101 code scr 000102 arglen scr 000103 rdsw scr 000104 rfsw scr 000105 mcode scr 000106 i scr 000110 argptr scr THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return_mac ext_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cobol_control_$cobol_stop_run_command_ com_err_ cu_$arg_count cu_$arg_ptr THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$badopt LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 27 000040 53 000055 55 000056 56 000057 57 000065 58 000075 59 000112 61 000114 63 000131 66 000143 67 000145 68 000146 69 000165 71 000167 75 000170 77 000222 79 000223 81 000246 83 000247 85 000302 ----------------------------------------------------------- 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