1
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
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