1 /* BEGIN INCLUDE FILE gcos_gtss_dcls.incl.pl1 (MWilson Multics) 03Apr79 */
 2 
 3 dcl 1 gtss_snumb_xref_ based (gcos_gtss_ext.u_state_ptr),
 4    2 snumb_sequence pic "9999",
 5    2 entry_count fixed bin(24),
 6    2 snumb_entry (100),
 7       3 snumb char (5),
 8       3 jout_id bit (12),
 9       3 activity_no fixed bin(24),
10       3 job_status fixed bin(24);
11 
12 /** snumb_entry.job_status key values */
13 dcl (
14           COMPLETE                      init (-1)
15 ,         (READING_RMT, INITIATED)      init (3)
16 ,         WAIT_PERIPH                   init (5)
17 ,         EXECUTING                     init (9)
18 ,         WAIT_MEDIA                    init (11)
19 ,         TERMINATING                   init (15)
20 ,         OUTPUT_WAITING                init (16)
21 ,         OUTPUT_COMPLETE               init (17)
22     ) fixed bin(24)static int options(constant);
23 
24 dcl  gcos_gtss_update_$new_activity entry (fixed bin(24), fixed bin(24));
25 dcl  gcos_gtss_update_$status_update entry (fixed bin(24));
26 
27 
28 /** END INCLUDE FILE gcos_gtss.incl.pl1 */