1 /*----------BEGIN gcos_ufas_record.incl.pl1----------------------------------*/
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(86-07-30,Wong), approve(86-07-30,MCR7397), audit(86-08-01,Ex),
 6      install(86-08-18,MR12.0-1131):
 7      New include file
 8                                                    END HISTORY COMMENTS */
 9 
10 /*
11    This include file contains declarations for interrpreting a standard GCOS
12    UFAS file.
13 
14    1) Written 10/85 by R.J.C. Kissel.
15 */
16 
17 /* format: style3,linecom,ifthenstmt,indthenelse,^indnoniterdo,indnoniterend,initcol3,dclind5,idind32 */
18 
19 /* A UFAS block control word. */
20 
21 dcl  gcos_ufas_bcw_ptr               ptr;
22 
23 dcl  1 gcos_ufas_bcw                 aligned based (gcos_ufas_bcw_ptr),
24        2 block_sequence_number       fixed bin (18) unsigned unaligned,
25        2 block_length                fixed bin (18) unsigned unaligned;
26 
27 /* A standard UFAS record. */
28 
29 dcl  gcos_ufas_record_ptr            ptr;
30 
31 dcl  1 gcos_ufas_record              aligned based (gcos_ufas_record_ptr),
32        2 rcw                         aligned like gcos_ufas_rcw,
33        2 data                        (0 refer (gcos_ufas_record.rcw.data_length)) bit (36) aligned;
34 
35 /* The record control word.  The character_position gives the position in the last word of end of record (with 0 = 4). */
36 
37 dcl  gcos_ufas_rcw_ptr               ptr;
38 
39 dcl  1 gcos_ufas_rcw                 aligned based (gcos_ufas_rcw_ptr),
40        2 data_length                 fixed bin (18) unsigned unaligned,
41        2 character_position          fixed bin (2) unsigned unaligned,
42        2 end_of_file                 bit (4) unaligned,
43        2 mbz                         bit (2) unaligned,
44        2 media_code                  fixed bin (4) unsigned unaligned,
45        2 report_code                 fixed bin (6) unsigned unaligned;
46 
47 /* Some constants. */
48 
49 dcl  MAX_UFAS_BLOCK_SIZE             fixed bin internal static options (constant) init (320);
50 
51 dcl  ASCII_HEADER_MEDIA_CODE         fixed bin (4) unsigned internal static options (constant) init (8);
52 dcl  ASCII_MEDIA_CODE                fixed bin (4) unsigned internal static options (constant) init (6);
53 dcl  EOF                             bit (4) internal static options (constant) init ("1111"b);
54 dcl  EOF_RCW                         bit (36) aligned internal static options (constant) init ("000000170000"b3);
55 
56 /*----------END gcos_ufas_record.incl.pl1------------------------------------*/