1 /* BEGIN INCLUDE FILE: tape_ansi_fd.incl.pl1 */ 2 3 dcl 1 fd aligned based (cseg.fcP), /* first file chain link */ 4 2 backP ptr init (null), /* no previous links (ever) */ 5 2 nextP ptr init (null), /* pointer to next link; null if only */ 6 2 flX fixed bin init (0), /* link index is 0 */ 7 2 vlX fixed bin init (0), /* start file chain on 1st volume */ 8 /* in conjunction with eov, below, which */ 9 2 dummy_HDR2 bit (1), /* "1"b if file has dummy_HDR2 label */ 10 2 eox fixed bin init (2), /* 2 forces volume switch on first real file link */ 11 12 2 hdr1, /* HDR1 data */ 13 3 file_id char (17), /* file identifier */ 14 3 set_id char (32), /* reel id of 1st volume of multi-volume set */ 15 3 canonical_set_id char (6), /* in canonical format */ 16 3 dummy_section fixed bin, 17 3 sequence fixed bin, /* file sequence number (inter-file) */ 18 3 dummy_generation fixed bin, 19 3 dummy_version fixed bin, 20 3 creation char (5), /* holds today's date in Julian form */ 21 3 expiration char (5), /* Julian expiration date */ 22 3 access char (1), 23 3 dummy_blkcnt fixed bin (35), 24 3 system char (13), /* holds system code for labels */ 25 26 2 hdr2, /* HDR2 data */ 27 3 format fixed bin, /* logical record format code */ 28 /* 1 - U format */ 29 /* 2 - F format */ 30 /* 3 - D format (ANSI) / V format (IBM) */ 31 /* 4 - S format (ANSI) / V spanned (IBM) */ 32 3 blklen fixed bin, /* actual/maximum physical block length */ 33 3 reclen fixed bin (21), /* actual/maximum logical record length */ 34 3 dummy_next_volname char (32), 35 3 canonical_dummy_next_volname char (6), 36 3 blocked bit (1), /* "0"b - unblocked / "1"b - blocked */ 37 3 mode fixed bin, /* file data recording mode */ 38 /* 1 - ASCII, 9 mode */ 39 /* 2 - EBCDIC, 9mode */ 40 /* 3 - binary */ 41 3 bo fixed bin, /* ANSI buffer offset: # of chars preceding each block */ 42 3 cc char (1); /* IBM HDR2 control characters code */ 43 44 /* END INCLUDE FILE: tape_ansi_fd.incl.pl1 */