         << LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION >>     00000001
$page "INCLFCB -- FCB Include File"                                     00005000
<<***********************************************************>>         00010000
<<*                                                         *>>         00015000
<<*        INCLFCB - FCB Include File                       *>>         00020000
<<*                                                         *>>         00025000
<<***********************************************************>>         00030000
COMMENT                                                                 00035000
                                                                        00040000
File Control Block (FCB)                                                00045000
------------------------                                                00050000
                                                                        00055000
The  FCB  coordinates  access  to a file on a sharable device.          00060000
At  present  the  only sharable device is a disc, so only disc          00065000
files  have  FCBs.  The  information  contained  in  an FCB is          00070000
derived  from  the  file  label.  The FCB is used to hold this          00075000
information (in memory), rather than the file label, since the          00080000
FCB can be accessed more quickly.                                       00085000
                                                                        00090000
If  the  file is opened exclusive, then the FCB will reside in          00095000
the  PXFILE  CBT (if NOCB was NOT specified), if there's room,          00100000
or in  one  of  the  user  NOBUF  CBT's. If the file is opened          00105000
sharable, then  the  FCB  will  reside  in  one  of the system          00110000
shared  FCB  CBT's.  The  DST number of the table containing a          00115000
list  of system shared CBT data segments is at absolute %1076.          00120000
The  size of  the  FCB depends on the maximum number of extents         00125000
specified  when  the  file  was  FOPENed.  There are %44 words          00130000
plus  two  per  extent  in  an  FCB.  There  will  be at least          00135000
one  extent,  since  the file label always exists in the first          00140000
extent.  The  FCB  extent  map  is  in terms of logical device          00145000
number  and  sector  address.  The file label extent map is in          00150000
terms of the volume table index and sector address.                     00155000
                                                                        00160000
     0   1   2   3         7   8        12  13  14  15                  00165000
   -----------------------------------------------------                00170000
 0 |   1   |             Complete FCB size             |  0             00175000
   |---------------------------------------------------|                00180000
 1 |                     Spare                         |  1             00185000
   |---------------------------------------------------|                00190000
 2 |                     FOPTIONS                      |  2             00195000
   |---------------------------------------------------|                00200000
 3 |               Device specification                |  3             00205000
   |---------------------------------------------------|                00210000
 4 | Prev. lock|  Dev. type  | C |     |Device subtype |  4             00215000
   |---------------------------------------------------|                00220000
 5 |               No. opens for output                |  5             00225000
   |---------------------------------------------------|                00230000
 6 |               No. opens for any mode              |  6             00235000
   |---------------------------------------------------|                00240000
 7 |                    RIN number                     |  7             00245000
   |---------------------------------------------------|                00250000
 8 |                  Exclusive status                 | 10             00255000
   |---------------------------------------------------|                00260000
 9 | C |          |  MVTABX  |       VMASK             | 11             00265000
   |---------------------------------------------------|                00270000
10 |                                                   | 12             00275000
   |                   File limit                      |                00280000
11 |                                                   | 13             00285000
   |---------------------------------------------------|                00290000
12 |                                                   | 14             00295000
   |             Mapped file identifier                |                00300000
13 |                                                   | 15             00305000
   |---------------------------------------------------|                00310000
14 |                                                   | 16             00315000
   |                End of data pointer                |                00320000
15 |                                                   | 17             00325000
   |---------------------------------------------------|                00330000
16 | No. user labels written |  No. user labels avail. | 20             00335000
   |---------------------------------------------------|                00340000
17 |             Extent size in sectors                | 21             00345000
   |---------------------------------------------------|                00350000
18 |     Blocking factor     |    Sectors per block    | 22             00355000
   |---------------------------------------------------|                00360000
19 | Sector offset to data   | Disp | No. extents - 1  | 23             00365000
   |---------------------------------------------------|                00370000
20 |           Last extent size in sectors             | 24             00375000
   |---------------------------------------------------|                00380000
21 |               No. opens input mode                | 25             00385000
   |---------------------------------------------------|                00390000
22 | Group name - 1st char.  | Group name - 2nd char.  | 26             00395000
   |---------------------------------------------------|                00400000
23 | Group name - 3rd char.  | Group name - 4th char.  | 27             00405000
   |---------------------------------------------------|                00410000
24 | Group name - 5th char.  | Group name - 6th char.  | 30             00415000
   |---------------------------------------------------|                00420000
25 | Group name - 7th char.  | Group name - 8th char.  | 31             00425000
   |---------------------------------------------------|                00430000
26 |  Acct name - 1st char.  |  Acct name - 2nd char.  | 32             00435000
   |---------------------------------------------------|                00440000
27 |  Acct name - 3rd char.  |  Acct name - 4th char.  | 33             00445000
   |---------------------------------------------------|                00450000
28 |  Acct name - 5th char.  |  Acct name - 6th char.  | 34             00455000
   |---------------------------------------------------|                00460000
29 |  Acct name - 7th char.  |  Acct name - 8th char.  | 35             00465000
   |---------------------------------------------------|                00470000
30 |                                                   | 36             00475000
   |             Start of file block number            |                00480000
31 |                                                   | 37             00485000
   |---------------------------------------------------|                00490000
32 |                                                   | 40             00495000
   |     Current number of data blocks in the file     |                00500000
33 |                                                   | 41             00505000
   |---------------------------------------------------|                00510000
34 |                                                   | 42             00515000
   |  Number of open and close records (message file)  |                00520000
35 |                                                   | 43             00525000
   |---------------------------------------------------|                00530000
36 |  Logical device number  |                         | 44             00535000
   |--------------------------                         |                00540000
37 |             First extent sector number            | 45             00545000
   |---------------------------------------------------|                00550000
   |                         .                         |                00555000
   |                         .                         |                00560000
   |                         .                         |                00565000
   |---------------------------------------------------|                00570000
   |  Logical device number  |                         |                00575000
   |--------------------------                         |                00580000
   |              Last extent sector number            |                00585000
   -----------------------------------------------------                00590000
                                                                        00595000
FCBACBDST                                                               00600000
This is the DST of the ACB that was created at the same time as         00605000
the FCB.                                                                00610000
                                                                        00615000
FCBAN                                                                   00620000
The account name of the file (with trailing blanks as needed).          00625000
                                                                        00630000
FCBBLKFACT                                                              00635000
The blocking factor of the file - the number of logical records         00640000
in a physical block. Legal values are 1 to 255.                         00645000
                                                                        00650000
FCBCLASSFLG                                                             00655000
Your guess is as good as mine.                                          00660000
                                                                        00665000
                                                                        00670000
FCBDEVICE                                                               00675000
This specifies the device on which the file resides. If it is           00680000
positive, then it represents a logical device number. If it is          00685000
negative, it represents a negative device class index.                  00690000
                                                                        00695000
                                                                        00700000
FCBDISP                                                                 00705000
This is the pending FCLOSE disposition for the file. Legal              00710000
values are:                                                             00715000
          0 - no change                                                 00720000
          1 - save permanent                                            00725000
          2 - save temporary and rewind                                 00730000
          3 - save temporary but do not rewind                          00735000
          4 - release                                                   00740000
          7 - invalid file (file label access error)                    00745000
                                                                        00750000
FCBCRUNCH                                                               00755000
This bit governs if space will be returned beyond the last              00760000
FCLOSE of the file. Legal values are:                                   00765000
          0 - no change                                                 00770000
          1 - return space beyond EOF                                   00775000
                                                                        00780000
FCBDTYPE                                                                00785000
This is the device type number of the first extent of the file.         00790000
(See the definitions of the ACB for the legal values).                  00795000
                                                                        00800000
FCBEND                                                                  00805000
Block number of the file's EOF, relative to FCBSTART.                   00810000
                                                                        00815000
FCBEOF                                                                  00820000
This is the End-Of-File pointer for the file. It represents             00825000
the number of records in the file. It can also be viewed as             00830000
the record number of the record past EOF.                               00835000
                                                                        00840000
FCBEXCLSTAT                                                             00845000
This is the exclusive status of the file access. If it is a             00850000
negative one (-1), then the file is being accessed exclusively.         00855000
Otherwise it is the number of semi-exclusive accessors.                 00860000
                                                                        00865000
FCBEXTMAP                                                               00870000
This is the extent map of the file. The number of extents is            00875000
specified by FCBNUMEXTS. If the extent descriptor is zero, then         00880000
the extent has not been allocated.                                      00885000
                                                                        00890000
FCBEXTSIZE                                                              00895000
This is the extent size in sectors. All extents in the file,            00900000
except possibly the last, have the same size. Legal values              00905000
range from 1 to 65535 sectors. This restricts the maximum               00910000
file size to be 2,097,120 sectors (268,431,360 words).                  00915000
                                                                        00920000
FCBLIM                                                                  00925000
This is the End-Of-Space pointer for the file. It represents            00930000
the maximum number of records (fixed length format) or blocks           00935000
(undefined or variable format) in the file.                             00940000
                                                                        00945000
FCBFOPTIONS                                                             00950000
This is the FOPTIONS in effect for the file.                            00955000
                                                                        00960000
FCBGN                                                                   00965000
This is the group name of the file (with trailing blanks as             00970000
needed).                                                                00975000
                                                                        00980000
FCBLABEL                                                                00985000
This is the logical device and sector number of the file label,         00990000
which is the same as the first extent descriptor.                       00995000
                                                                        01000000
FCBLASTEXTSIZE                                                          01005000
This is the size, in sectors, of the last extent in the file.           01010000
If the file has one extent then this is the same as FCBEXTSIZE.         01015000
Otherwise this value may be different from FCBEXTSIZE. This is          01020000
the size of the last phyical extent for the file. It is not the         01025000
size of the last allocated extent.                                      01030000
                                                                        01035000
FCBLBL                                                                  01040000
This is the number of user labels allocated for the file.               01045000
Since each label is a sector long, this is also the number              01050000
of sectors allocated for the user labels.                               01055000
                                                                        01060000
FCBLBLEOF                                                               01065000
This is the  End-Of-Data pointer for the user labels. It is             01070000
analogous to FCBEOF in that it represents the number of labels          01075000
written. The initial value is zero.                                     01080000
                                                                        01085000
FCBLDEV                                                                 01090000
This is the logical device number of the first extent.                  01095000
                                                                        01100000
FCBLKST                                                                 01105000
This is the previous lock state of the file and is derived              01110000
from the file label. Legal values are:                                  01115000
       0 - no accessors                                                 01120000
       1 - read                                                         01125000
       2 - write                                                        01130000
       3 - read/write                                                   01135000
                                                                        01140000
FCBMVTABX                                                               01145000
This is the mounted volume table index of the volume set in which       01150000
the file resides.  The index is the MVTAB entry into the table of       01155000
the volume set.                                                         01160000
                                                                        01165000
                                                                        01170000
FCBNUMEXTS                                                              01175000
This is the maximum number of extents, less one, allowed                01180000
for the file. It is not the number of extents presently                 01185000
allocated, which is always determined by counting non-zero              01190000
entries in the extent map.                                              01195000
                                                                        01200000
FCBNUMOPENCLSREC                                                        01205000
Number of open and close records in the message file.                   01210000
                                                                        01215000
FCBOCNT                                                                 01220000
This is the number of accessors for the file. Alternatively,            01225000
it can be viewed as the number of PACBs created for the file.           01230000
                                                                        01235000
FCBOCNTIN                                                               01240000
This is the  number  of  file  accessors  having  input access.         01245000
                                                                        01250000
FCBOCNTOUT                                                              01255000
This  is  the  number  of  file accessors having output access.         01260000
                                                                        01265000
FCBRIN                                                                  01270000
This is the RIN number used to support dynamic locking (i.e.            01275000
FLOCK and FUNLOCK) for the file. If zero, dynamic locking is            01280000
not allowed.                                                            01285000
                                                                        01290000
FCBSECTOFF                                                              01295000
This is the sector offset from the file label to the first              01300000
block of the file. This is not necessarily equal to FCBLBL+1            01305000
since an integral number of blocks are allocated for the file           01310000
and user labels.                                                        01315000
                                                                        01320000
FCBSECTPBLK                                                             01325000
This  is the number of sectors in a block for the file.                 01330000
                                                                        01335000
FCBSIZE                                                                 01340000
This  is  the  size, in words, of the complete FCB.  It                 01345000
includes the extent map.                                                01350000
                                                                        01355000
FCBSTART                                                                01360000
Block number of the file's start, excluding the file label              01365000
block.                                                                  01370000
                                                                        01375000
FCBSUBTYPE                                                              01380000
This is the device sub-type number of the first extent.                 01385000
                                                                        01390000
FCBUSERLBL                                                              01395000
This field describes the user labels for the file. It                   01400000
consists of FCBLBL and FCBLBLEOF, described separately.                 01405000
                                                                        01410000
FCBVMASK                                                                01415000
This is the mask of the volume entry of the actual volume in which      01420000
the file resides.  If this is the first volume of the private volume    01425000
set, then bit 15 is on, second volume of the set, bit 14 on, etc.       01430000
A volume can have at most 8 bits and therefore this 8 bit mask field    01435000
is the perfect size.                                                    01440000
                                                                        01445000
;                                                                       01450000
$page                                                                   01455000
<<----------------------------------------------------------->>         01460000
<<                                                           >>         01465000
<<       File Control BLock (FCB) Definitions                >>         01470000
<<                                                           >>         01475000
<<----------------------------------------------------------->>         01480000
                                                                        01485000
EQUATE                                                                  01490000
SIZEBFCB    = 36,       << Size of FCB without the extent map>>         01495000
SIZECFCB    = 38,       << Size of FCB with 1st. extent.     >>         01500000
MAXEXTENTS  = 32,                                                       01505000
SIZEDFCB    = 2*MAXEXTENTS+SIZEBFCB, << Maximum disc FCB size>>         01510000
EXT'MAP'LOC = SIZEBFCB, << Location of the extent map >>                01515000
FCB'EOF'LOC = 22;       << Word count used by IPC.    >>                01520000
                                                                        01525000
<<---------------------------------------------------------->>          01530000
<< Addressing conventions :                                 >>          01535000
<<                                                          >>          01540000
<< Module 50 conventions:                                   >>          01545000
<<    INTEGER ARRAY FCB(0:FCBSIZE-1);                       >>          01550000
<<    DOUBLE ARRAY FCBDBL(*) = FCB;                         >>          01555000
<<                                                          >>          01560000
<< Module 97 conventions:                                   >>          01565000
<<    INTEGER ARRAY FCB(0:FCBSIZE-1)=Q;                     >>          01570000
<<    DOUBLE ARRAY FCBDBL(*) = FCB;                         >>          01575000
<<---------------------------------------------------------->>          01580000
                                                                        01585000
DEFINE                                                                  01590000
ALLOC'C'FCB = PUSH(S);@FCB := TOS+1;ASSEMBLE(ADDS SIZECFCB)#,           01595000
ALLOC'D'FCB = PUSH(S);@FCB := TOS+1;ASSEMBLE(ADDS SIZEDFCB)#,           01600000
BADFCBSIZE  = NOT(%46<=X<=%144)#,                                       01605000
                                                                        01610000
<< File Control Block entries. Set up ptr FCB before use.    >>         01615000
                                                                        01620000
FCBSIZE     =FCB.(2:14)#,     << Complete size of FCB        >>         01625000
SIZEF       =(2:14)#,         << Size field of FCB           >>         01630000
FCBSPARE    =FCB(1)#,         << Spare field                 >>         01635000
FCBFOPTIONS =FCB(2)#,         << FOPTIONS                    >>         01640000
FCBDEVICE   =FCB(3)#,         << Ldev/neg. dev. class index  >>         01645000
FCBLKST     =FCB(4).(0:2)#,   << Previous lock state         >>         01650000
FCBDTYPE    =FCB(4).(2:6)#,   << device type - first extent  >>         01655000
FCBCRUNCH   =FCB(4).(8:1)#,   << Pending crunch disposition  >>         01660000
FCBSUBTYPE  =FCB(4).(12:4)#,  << Sub-type - first extent     >>         01665000
FCBOCNTOUT  =FCB(5)#,         << # Processes - ouput mode    >>         01670000
FCBOCNT     =FCB(6)#,         << # Processes - any mode      >>         01675000
FCBRIN      =FCB(7)#,         << RIN #                       >>         01680000
FCBEXCLSTAT =FCB(8)#,         << Exclusive status            >>         01685000
FCBPVINFO   =FCB(9)#,         << Non-zero if Private Volume  >>         01690000
FCBCLASSFLG =FCBPVINFO.(0:1)#,<< CLASS FLAG                  >>         01695000
FCBMVTABX   =FCBPVINFO.(4:4)#,<< Mounted volume tab indx     >>         01700000
FCBVMASK    =FCBPVINFO.(8:8)#,<< Vmask                       >>         01705000
                                                                        01710000
FCBFLIM     =FCBDBL(5)#,      << Maximum # blocks            >>         01715000
FCBMAPID    =FCBDBL(6)#,      << Mapped file identifier      >>         01720000
FCBEOF      =FCBDBL(7)#,      << End-of-Data pointer         >>         01725000
                                                                        01730000
FCBUSERLBL  =FCB(16)#,        << User labels                 >>         01735000
FCBLBLEOF   =FCB(16).(0:8)#,  << # User labels written       >>         01740000
FCBLBL      =FCB(16).(8:8)#,  << # User labels allowed       >>         01745000
FCBEXTSIZE  =FCB(17)#,        << Extent size (in sectors)    >>         01750000
FCBBLKFACT  =FCB(18).(0:8)#,  << Blocking factor             >>         01755000
FCBSECTPBLK =FCB(18).(8:8)#,  << Sectors per block           >>         01760000
FCBSECTOFF  =FCB(19).(0:8)#,  << Sector offset to data       >>         01765000
FCBDISP     =FCB (19).(8:3)#, << Pending file disposition    >>         01770000
FCBNUMEXTS  =FCB(19).(11:5)#, << Number of extents less 1    >>         01775000
FCBLASTEXTSIZE=FCB(20)#,      << Last extent size            >>         01780000
FCBOCNTIN   =FCB(21)#,        << # Processes - input mode    >>         01785000
FCBGN       =FCB(22)#,        << Group name                  >>         01790000
                                                                        01795000
FCBGN1      =FCBDBL(11)#,     << Group name - first half     >>         01800000
FCBGN2      =FCBDBL(12)#,     << Group name - second half    >>         01805000
                                                                        01810000
FCBAN       =FCB(26)#,        << Account name                >>         01815000
                                                                        01820000
FCBAN1      =FCBDBL(13)#,     << Account name - first half   >>         01825000
FCBAN2      =FCBDBL(14)#,     << Account name - second half  >>         01830000
FCBSTART    =FCBDBL(15)#,     << Absolute start block        >>         01835000
FCBSTARTLSW =FCB(31)#,        <<least signiicant of fcbstart >>         01840000
FCBEND      =FCBDBL(16)#,     << Variable length records -   >>         01845000
                              <<   end blk#, rel to start blk>>         01850000
FCBENDLSW   =FCB(33)#,        <<Least significant W of FCBEND>>         01855000
FCBHDRECS   =FCBDBL(17)#,     << # Non-data header records   >>         01860000
FCBLABEL    =FCBDBL(18)#,     << File label ldev & sector num>>         01865000
FCBLDEV     =FCB(36).(0:8)#,  << File label ldev             >>         01870000
FCBEXTMAP   =FCB(36)#;        << Extent map                  >>         01875000
                                                                        01880000
EQUATE                                                                  01885000
FMOD         =  0,        << File map modified               >>         01890000
                                                                        01895000
<< Word indices of FCB items.                                >>         01900000
                                                                        01905000
XFLIM        = 10,                                                      01910000
XEOF         = 14,                                                      01915000
XEND         = 32,                                                      01920000
EOF'END'DISP = XEND-XEOF-2;                                             01925000
                                                                        01930000
<< FOPTIONS definitions.                                     >>         01935000
                                                                        01940000
DEFINE                                                                  01945000
FCBNOEQUATE  = LOGICAL(FCBFOPTIONS.(5:1)#, << No :FILE equat.>>         01950000
FCBUNLABELLED= LOGICAL(FCBFOPTIONS.(6:1))#,<< Unlabelled tape>>         01955000
FCBCONTROL   = LOGICAL(FCBFOPTIONS.(7:1))#,<< Carriage cntrl >>         01960000
FCBASCII     = LOGICAL(FCBFOPTIONS.(13:1))#,<< Ascii/Binary  >>         01965000
                                                                        01970000
FCBFILETYPE  = FCBFOPTIONS.(2:3)#,     << File type          >>         01975000
FCBKSAM      = (FCBFILETYPE=1)#,       <<    KSAM file       >>         01980000
FCBRIO       = (FCBFILETYPE=2)#,       <<    RIO file        >>         01985000
FCBCIRFILE   = (FCBFILETYPE=4)#,       <<    Circular file   >>         01990000
FCBMSGFILE   = (FCBFILETYPE=6)#,       <<    IPC file        >>         01995000
                                                                        02000000
FCBVARFLD    = FCBFOPTIONS.(9:1)#,     << Variable bit       >>         02005000
FCBVARIABLE  = (FCBVARFLD = 1)#,       <<                    >>         02010000
                                                                        02015000
FCBFORMAT    = FCBFOPTIONS.(8:2)#,     << Record format      >>         02020000
FCBFIXED     = (FCBFORMAT = 0)#,       <<   Fixed format     >>         02025000
FCBNORMVAR   = (FCBFORMAT = 1)#,       <<   Normal variable  >>         02030000
FCBSPECVAR   = (FCBFORMAT = 3)#,       <<   Special variable >>         02035000
FCBUNDEFINED = (FCBFORMAT = 2)#,       <<   Undefined format >>         02040000
                                                                        02045000
FCBDESIGNATOR= FCBFOPTIONS.(10:3)#,    << Designator type    >>         02050000
FCBACTUAL    = (FCBDESIGNATOR = 0)#,   <<    Actual          >>         02055000
FCBSTDLIST   = (FCBDESIGNATOR = 1)#,   <<    $STDLIST        >>         02060000
FCBNEWPASS   = (FCBDESIGNATOR = 2)#,   <<    $NEWPASS        >>         02065000
FCBOLDPASS   = (FCBDESIGNATOR = 3)#,   <<    $OLDPASS        >>         02070000
FCBSTDIN     = (FCBDESIGNATOR = 4)#,   <<    $STDIN          >>         02075000
FCBSTDINX    = (FCBDESIGNATOR = 5)#,   <<    $STDINX         >>         02080000
FCBNULL      = (FCBDESIGNATOR = 6)#,   <<    $NULL           >>         02085000
                                                                        02090000
FCBDOMAIN    = FCBFOPTIONS.(14:2)#,    << File domain        >>         02095000
FCBNEW       = (FCBDOMAIN = 0)#,       <<    New             >>         02100000
FCBPERMANENT = (FCBDOMAIN = 1)#,       <<    Old permanent   >>         02105000
FCBTEMPORARY = (FCBDOMAIN = 2)#,       <<    Old temporary   >>         02110000
FCBOLD       = (FCBDOMAIN = 3)#;       <<    Old temp/perm   >>         02115000
                                                                        02120000
                                                                        02125000
                                                                        02130000
DEFINE BUILD'FCB=                                                       02135000
  LOGICAL FCB'FOPTIONS    = FCB'+2;                                     02140000
  INTEGER FCB'DEVICE      = FCB'+3;                                     02145000
  INTEGER FCB'PVINFO      = FCB'+9;                                     02150000
  DOUBLE FCB'FLIM         = FCB'+10;                                    02155000
  DOUBLE FCB'EOF          = FCB'+14;                                    02160000
  LOGICAL FCB'EXTSIZE     = FCB'+17;                                    02165000
  LOGICAL FCB'BFSPB       = FCB'+18;                                    02170000
  INTEGER FCB'NXSO        = FCB'+19;                                    02175000
  LOGICAL FCB'LASTEXTSIZE = FCB'+20;                                    02180000
  INTEGER FCB'GN          = FCB'+22;                                    02185000
  INTEGER FCB'AN          = FCB'+26;                                    02190000
  DOUBLE FCB'START        = FCB'+30;                                    02195000
  DOUBLE FCB'END          = FCB'+32;                                    02200000
  DOUBLE FCB'HDR          = FCB'+34#;                                   02205000
                                                                        02210000
DEFINE                                                                  02215000
   FCB'SECTPBLK = FCB'BFSPB.(8:8)#,                                     02220000
   FCB'BLKFACT  = FCB'BFSPB.(0:8)#,                                     02225000
   FCB'NUMEXTS  = FCB'NXSO.(11:5)#,                                     02230000
   FCB'SECTOFF  = LOG(FCB'NXSO.(0:8))#,                                 02235000
   FCB'MSGFILE  = (FCB'FOPTIONS.(2:3)=6)#,                              02240000
   FCB'CIRFILE  = (FCB'FOPTIONS.(2:3)=4)#,                              02245000
   FCB'VARIABLE = FCB'FOPTIONS.(9:1)#,                                  02250000
   FCB'ASCII    = FCB'FOPTIONS.(13:1)#,                                 02255000
   FCB'PERMANENT= FCB'FOPTIONS.(14:2)=1#,                               02260000
   FCB'MVTABX   = FCB'PVINFO.(4:4)#;                                    02265000
                                                                        02270000
                                                                        02275000
<<***********************************************************>>         02280000
<<*                                                         *>>         02285000
<<*                    End of INCLFCB                       *>>         02290000
<<*                                                         *>>         02295000
<<***********************************************************>>         02300000
