1 
 2 /* BEGIN INCLUDE FILE: gcos_ssf_records.incl.pl1 */
 3 
 4 /* Created by J. A. Bush 05/07/80 */
 5 
 6 dcl  prptr ptr;                                             /* GCOS physical record pointer */
 7 dcl  lrptr ptr;                                             /* GCOS logical record pointer */
 8 
 9 dcl 1 gc_phy_rec based (prptr) aligned,                     /* GCOS ssf format (physical record) */
10     2 bcw unaligned,                                        /* block control word */
11      (3 bsn fixed bin (18),                                 /* block serial number */
12       3 blk_size fixed bin (18)) unsigned,                  /* block size (-bcw) */
13     2 gc_phy_rec_data (0 refer (gc_phy_rec.bcw.blk_size)) bit (36);
14 
15 dcl 1 gc_log_rec based (lrptr) aligned,                     /* GCOS ssf logical record format */
16     2 rcw unaligned,                                        /* record control word */
17      (3 rsize fixed bin (18),                               /* size of rcd (-rcw) */
18       3 nchar_used fixed bin (2),                           /* characters used in last word */
19       3 file_mark fixed bin (4),                            /* file mark if rsize = 0 */
20       3 mbz1 fixed bin (2),
21       3 media_code fixed bin (4),                           /* file media code */
22       3 report_code fixed bin (6)) unsigned,                /* report code */
23     2 gc_log_rec_data (0 refer (gc_log_rec.rcw.rsize)) bit (36); /* logical record data */
24 
25 dcl  gc_phy_rec_bits bit (gc_phy_rec.bcw.blk_size * 36) based (addr (gc_phy_rec.gc_phy_rec_data));
26 dcl  gc_log_rec_bits bit (gc_log_rec.rcw.rsize * 36) based (addr (gc_log_rec.gc_log_rec_data));
27 
28 /* END INCLUDE FILE: gcos_ssf_records.incl.pl1 */