1 /* BEGIN INCLUDE FILE gcos_ext_stat_.incl.pl1 */ 2 /* 3 Changes to gcos_ext_stat_ must be made here AND gcos_ext_stat_.cds 4 */ 5 /* July 77 (MRJ) Mike Jordan. */ 6 /* Change: Mel Wilson Oct 1979 for gtss compatibility (Bell Canada). */ 7 /* Change: A. N. Kepner, March, 1978 to allow courtesy call i/o within cc routines. */ 8 /* Change: Dave Ward 06/01/81 Reorganized to eliminate alm object (using cds). Use of like structures. */ 9 /* Change: Scott C. Akers 01/26/82 Add tape_buffer_size for GEINOS processing. */ 10 /* Change: Ron Barstad 83-08-02 Added activity_card_num for execution report */ 11 /* Increased size of statistics for 4js3 MMEs */ 12 13 dcl gcos_ext_stat_$abort_reason char(128) varying /* abort reason from gcos pgm */ ext; 14 dcl gcos_ext_stat_$abort_return label /* abort return point */ ext; 15 dcl gcos_ext_stat_$activity_card_num pic "9999" ext; /* card number defining current activity */ 16 dcl gcos_ext_stat_$activity_name char(8) /* name of activity to be run */ ext; 17 dcl gcos_ext_stat_$activity_start_time fixed bin(71) /* TOD start of activity */ ext; 18 dcl gcos_ext_stat_$card_num pic "9999" /* ordinal number of card in input stream */ ext; 19 dcl gcos_ext_stat_$dbs (36)bit(1) /* Debugging switch. */ ext; 20 dcl gcos_ext_stat_$default_nondollar char(2) /* filecode where nondollar cards go by default */ ext; 21 dcl gcos_ext_stat_$dir_rings (3) fixed bin(3) /* ring brackets for created catalogs */ ext; 22 dcl gcos_ext_stat_$dpno char(100) varying /* arguments for call to dpunch */ ext; 23 dcl gcos_ext_stat_$dpo char(100) varying /* arguments for call to dprint */ ext; 24 dcl gcos_ext_stat_$endfc char(2) /* endfc value for endcopy processing */ ext; 25 dcl gcos_ext_stat_$er ptr /* fib pointer for *er */ ext; 26 dcl gcos_ext_stat_$etc_filecode char(2) /* filecode where $ ETC cards should be written */ ext; 27 dcl gcos_ext_stat_$gcos_slave_area_seg ptr /* pointer to gcos slave area segment */ ext; 28 dcl gcos_ext_stat_$gf fixed bin(24)/* sw used by getfield rtn */ ext; 29 dcl gcos_ext_stat_$incode fixed bin(24) /* switches to control incode processing */ ext; 30 dcl gcos_ext_stat_$increment_hold fixed bin(24) /* Holds increment for courtesy call returns. */ ext; 31 dcl gcos_ext_stat_$initial_cpu_time fixed bin(71) /* vcu time at activity start */ ext; 32 dcl gcos_ext_stat_$input_segment_path char(168) varying /* pathname of input segment */ ext; 33 dcl gcos_ext_stat_$jcl_warnings fixed bin(24) /* number warnings issued processing control cards */ ext; 34 dcl gcos_ext_stat_$job_cpu_time fixed bin(71) /* cpu usage at job start */ ext; 35 dcl gcos_ext_stat_$job_id char(18) varying /* unique job id for file naming */ ext; 36 dcl gcos_ext_stat_$job_real_time fixed bin(71) /* job start time in microseconds */ ext; 37 dcl gcos_ext_stat_$last_mme fixed bin(24)/* number of last mme executed */ ext; 38 dcl gcos_ext_stat_$ldrss fixed bin(24) /* loader shared stg. */ ext; 39 dcl gcos_ext_stat_$max_activities fixed bin(24)/* max activities in a job */ ext; 40 dcl gcos_ext_stat_$max_mem fixed bin(19) /* maximum memory available to an activity */ ext; 41 dcl gcos_ext_stat_$mme_rtrn label /* where to return at activity end */ ext; 42 dcl gcos_ext_stat_$nondollar char(2) /* non-dollar card file code */ ext; 43 dcl gcos_ext_stat_$nongcos char(2) /* filecode where nongcos dollar cards go */ ext; 44 dcl gcos_ext_stat_$normal_return label /* nonlocal goto for normal termination */ ext; 45 dcl gcos_ext_stat_$patchfile_ptr ptr /* pointer to patchfile */ ext; 46 dcl gcos_ext_stat_$pathname_prefix char(168)var ext; 47 dcl gcos_ext_stat_$pch ptr /* pointer to fib for syspunch collector file */ ext; 48 dcl gcos_ext_stat_$pdir char(168) varying /* pathname of process directory */ ext; 49 dcl gcos_ext_stat_$prt ptr /* pointer to fib for sysprint collector file */ ext; 50 dcl gcos_ext_stat_$rs ptr /* pointer to fib for geload r* collector file */ ext; 51 dcl gcos_ext_stat_$saveseg_ptr ptr /* pointer to save segment used by save/restart */ ext; 52 dcl gcos_ext_stat_$save_dir char(168) varying /* pathname of temp save directory */ ext; 53 dcl gcos_ext_stat_$seg_rings (3) fixed bin(3) /* ring brackets for created files */ ext; 54 dcl gcos_ext_stat_$sig_ptr ptr /* saved pointer to signal_ */ ext; 55 dcl gcos_ext_stat_$skip_umc bit(1) ext; 56 dcl gcos_ext_stat_$snumb bit (30) aligned /* snumb of the current job */ ext; 57 dcl gcos_ext_stat_$sought_label char(8) /* Label from GOTO, IF, or WHEN card */ ext; 58 dcl gcos_ext_stat_$statistics (3*44) fixed bin(24) /* mme usage statistics- 3 per mme */ ext; 59 dcl gcos_ext_stat_$stop_code fixed bin(24) /* debugging, print results and stop. */ ext; 60 dcl gcos_ext_stat_$storage_limit fixed bin(19) /* activity storage limit */ ext; 61 dcl gcos_ext_stat_$sysout_limit fixed bin(35) /* sysout line limit */ ext; 62 dcl gcos_ext_stat_$sysout_lines fixed bin(35) /* sysout lines used */ ext; 63 dcl gcos_ext_stat_$system_free_pointer ptr /* pointer to area for allocating in ext; set by gcos */ ext; 64 dcl gcos_ext_stat_$tape_buffer_size fixed bin(35) external static; /* tape buffer size for GEINOS. */ 65 dcl gcos_ext_stat_$temp_dir char(168) varying /* pathname of directory to hold temp files */ ext; 66 dcl gcos_ext_stat_$temp_seg_ptr ptr ext; 67 dcl gcos_ext_stat_$termination_code bit (18) /* termination code from gcos_mme_bort_ */ ext; 68 dcl gcos_ext_stat_$time_limit fixed bin(71) /* activity time limit */ ext; 69 dcl gcos_ext_stat_$userid char(12) /* the USERID */ ext; 70 dcl gcos_ext_stat_$validation_level fixed bin(3) /* current ring of execution */ ext; 71 72 /* Courtesy Call Queue 73 A queue for courtesy call addresses which must be saved during 74 execution of courtesy call routines. A courtesy call address is 75 saved each time a MME GEROUT or MME GEINOS, which specifies a 76 courtesy call, is executed within a courtesy call routine. Each 77 time a MME GEENDC is executed a courtesy call address will be 78 removed from this FIFO queue and the corresponding courtesy call 79 routine executed until the queue is empty. The FIFO "queue" is 80 implemented in a circular fashion. "next_avail" points to the 81 next empty location in the queue. "next_out" points to the 82 entry in the queue which has been in the queue longest. When 83 entering or removing entries from the queue the appropriate index 84 is incremented modulo the length of the queue. By convention the 85 queue is empty when "next_avail" equals "next_out". A 86 second convention is that the queue is considered to overflow 87 during an attempt to add an entry to the queue which would force 88 "next_avail" to "catch up" with "next_out". This means that 89 the last empty position in the queue will never be used. 90 */ 91 92 dcl 1 gcos_ext_stat_$courtesy_call_control aligned ext 93 , 3 courtesy_call 94 , 4 hold like save_machine_conditions /* Mach. conds. restored on courtesy call returns. */ 95 , 4 next_avail fixed bin(24) /* next available empty location in cc_queue. */ 96 , 4 next_out fixed bin(24) /* next entry to remove from cc_queue. */ 97 , 4 queue (6) fixed bin(24) 98 ; 99 100 %include gcos_save_mc; 101 102 dcl 1 gcos_ext_stat_$fct aligned ext, 103 3 fct (40) like fct_entry; 104 %include gcos_fct_entry; 105 106 dcl 1 gcos_ext_stat_$save_data aligned ext, 107 3 save_data like save_data_entry; 108 %include gcos_save_data_entry; 109 110 %include gcos_file_info_block_; 111 112 dcl 1 gcos_ext_stat_$mc like mc /* machine condition from abort or fault */ ext; 113 %include mc; 114 115 dcl 1 gcos_ext_stat_$gcos_gtss ext 116 , 3 gcos_gtss_ext 117 , 4 u_state_ptr ptr 118 , 4 snumb_index fixed bin(24) 119 , 4 home_path char(168) 120 ; 121 122 /* END INCLUDE FILE gcos_ext_stat_.incl.pl1 */