1 /* BEGIN INCLUDE FILE gtss_snumb_xref_.incl.pl1 */
 2 /*
 3   Created: (MWilson Multics)  03/26/79 1152.0 mst Mon
 4 */
 5 
 6 dcl  u_state_ptr ptr;
 7 dcl 1 gtss_snumb_xref_ based (u_state_ptr),
 8       3 snumb_sequence pic "9999",
 9       3 entry_count fixed bin,
10       3 snumb_entry (100),
11         4 snumb char (5),
12         4 jout_id bit (12),
13         4 activity fixed bin,
14         4 status fixed bin;
15 
16 /* * snumb_entry.status key values * */
17 
18 dcl (READING_RMT, INITIATED)  init(3)             static int options(constant);
19 dcl EXECUTING       init(9)             static int options(constant);
20 dcl WAIT_MEDIA      init(11)            static int options(constant);
21 dcl TERMINATING     init(15)            static int options(constant);
22 dcl OUTPUT_WAITING  init(16)            static int options(constant);
23 dcl (OUTPUT_COMPLETE, COMPLETE)         init(17)            static int options(constant);
24 
25 /*   END INCLUDE FILE gtss_snumb_xref_.incl.pl1 */