<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00005000
<<*****************************************************>>               00010000
<<************ B E G I N   M P E   V   *******************>>            00015000
<<************ JDT   I N C L U D E  *******************>>               00020000
<<*****************************************************>>               00025000
<<*******************************************************>>             00030000
COMMENT                                                                 00035000
  This is the include file for the MPE  V JDT (Job Directory            00040000
Table)                                                                  00045000
The user should note that it is required that the user set up           00050000
the addressing mode within the code accessing the variables of          00055000
this table.  It is also required that in conjunction with set-          00060000
ting up the addressing mode tht the user use an array called            00065000
"JDTARR" to reference the variables of the JDT.  In this                00070000
include file only the header information of the table ( the             00075000
first 24 words) has been included for your use.  This is done           00080000
because the individual tables contained within the JDT (File            00085000
Equation Table, Job Data Segment Directory Table, Job Temp.             00090000
File Equation Table, Job Line Equation, and Job Control Word            00095000
Table) can be of variable length for the entries within the             00100000
tables.  This makes it very difficult to specify individual             00105000
words for a given entry format.   Therefore, it is up to the            00110000
coder to create his/her own system of accessing the information         00115000
contained in individual table entries.  This include file will          00120000
provide you with the beginning offsets into the JDT for each of         00125000
the above mentioned tables, the work area, and job type/number          00130000
and jobsession main pin number.                                         00135000
;                                                                       00140000
                                                                        00145000
$IF X8 = OFF                                                            00150000
$CONTROL NOLIST                                                         00155000
$IF                                                                     00160000
COMMENT                                                                 00165000
                                                                        00170000
  1) How to use when doing an EXCHANGEDB to the JDT:                    00175000
                                                                        00180000
           INTEGER ARRAY JDTARR(*) = DB + 0:                            00185000
                      .                                                 00190000
                      .                                                 00195000
                      .                                                 00200000
           PROCEDURE GETJDTINFO:                                        00205000
           BEGIN                                                        00210000
           INTEGER JFEQINDEX := 0:                                      00215000
           INTEGER ENTRYSIZE, NAMELENGTH:                               00220000
           DOUBLE INTEGER PMASK:                                        00225000
                      .                                                 00230000
                      .                                                 00235000
           ENTRYSIZE := JDTJTFEQPTR.(0:8):                              00240000
           NAMELENGTH := JDTJTFEQPTR.(8:8):                             00245000
           JFEQINDEX := JDTJTFEQPTR + NAMELENGTH + 1:                   00250000
           PMASK := JDTARR(JFEQINDEX): <<PMASK WORD>>                   00255000
           END:                                                         00260000
                      JDT - JOB DIRECTORY TABLE                         00265000
                      -------------------------                         00270000
         |-----------------------|                                      00275000
       0 |   MAX SEG SIZE(WDS)   |         1 entry per job              00280000
         |-----------------------|         DST # in PXGLOB              00285000
       1 |    POINTER TO JDSD    |                                      00290000
         |-----------------------|                                      00295000
       2 |    POINTER TO JTFD    |                                      00300000
         |-----------------------|                                      00305000
       3 |    POINTER TO JFEQ    |                                      00310000
         |-----------------------|                                      00315000
       4 |    POINTER TO JLEQ    |                                      00320000
         |-----------------------|                                      00325000
       5 |  POINTER TO JJCW      |                                      00330000
         |-----------------------|                                      00335000
       6 |POINTER TO FREE SPACE  |                                      00340000
         |-----------------------|                                      00345000
         ~      WORK  AREA       ~                                      00350000
         ~        15 words       ~                                      00355000
         |-----------------------|                                      00360000
JDSJNUM  |TY|       NUM          |    job number                        00365000
         |-----------------------|                                      00370000
         | JSMPIN                |    main process number               00375000
         |-----------------------|                                      00380000
         ~       JOB DATA        ~                                      00385000
JDSD     ~   SEGMENT DIRECTORY   ~                                      00390000
         |-----------------------|                                      00395000
         |                       |                                      00400000
         ~     JOB TEMPORARY     ~                                      00405000
JTFD          FILE DIRECTORY                                            00410000
         ~                       ~                                      00415000
         |                       |                                      00420000
         |-----------------------|                                      00425000
         |                       |                                      00430000
         |                       |                                      00435000
         ~       JOB FILE        ~                                      00440000
JFEQ          EQUATION TABLE                                            00445000
         ~                       ~                                      00450000
         |-----------------------|                                      00455000
         ~       JOB LINE        ~                                      00460000
JLEQ     ~   EQUATION TABLE      ~                                      00465000
         |-----------------------|                                      00470000
         |                       |                                      00475000
         ~   JOB CONTROL WORD    ~                                      00480000
         ~   TABLE   (JJCW)      ~                                      00485000
         |-----------------------|                                      00490000
         |                       |                                      00495000
         |       FREE SPACE      |                                      00500000
         |-----------------------|                                      00505000
                                                                        00510000
                                                                        00515000
BEGINNING OF ENTRY FORMAT:                                              00520000
                                                                        00525000
    |-----------------------|                                           00530000
    |entry      |name       |                                           00535000
    | size      | size wds. |                                           00540000
    |-----------------------|                                           00545000
    |   c1      |    c2     |                                           00550000
    |-----------------------|                                           00555000
                               ---                                      00560000
    |-----------------------|    |                                      00565000
    |   cn      |   %40     |    |                                      00570000
    |-----------------------|    |                                      00575000
    |                       |    |                                      00580000
    |    entry information  |    |                                      00585000
    |                       |    |                                      00590000
    |                       |                                           00595000
    |                       |    |                                      00600000
    |-----------------------|    |                                      00605000
                                 |                                      00610000
                           The name is a concatenation                  00615000
                           of up to 3 subnames.                         00620000
                           Bit 0 of 1st character of each               00625000
                           subname is 1.                                00630000
                                                                        00635000
                                                                        00640000
             JOB DATA SEGMENT DIRECTORY ENTRY - (IN JDT)                00645000
             -------------------------------------------                00650000
  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                        00655000
|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|                       00660000
|           4           |           1           |                       00665000
|-----------------------------------------------|                       00670000
|                 SEGMENT ID                    |                       00675000
|-----------------------------------------------|                       00680000
|         EXTRA DATA SEGMENT DST INDEX          |                       00685000
|-----------------------------------------------|                       00690000
|           # OF PROCESSES ACCESSING            |                       00695000
|-----------------------------------------------|                       00700000
                 JOB TEMPORARY FILE ENTRY - (IN JDT)                    00705000
                 -----------------------------------                    00710000
                                                                        00715000
  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                        00720000
|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|                       00725000
|  ENTRY SIZE (WORDS)   |   NAME SIZE (WORDS)   |                       00730000
|-----------------------------------------------|                       00735000
~                                               ~                       00740000
           NAME-ACTUAL FILE DESIGNATOR         -----beginning           00745000
~                                               ~   of entry            00750000
|-----------------------------------------------|  format               00755000
|    VOLUME POINTER     |                       |                       00760000
|-----------------------|                       |                       00765000
|              FILE LABEL POINTER               |                       00770000
|-----------------------------------------------|                       00775000
                                                                        00780000
                 FILE EQUATION TABLE ENTRY - (IN JDT)                   00785000
                 ------------------------------------                   00790000
                                                                        00795000
                                                                        00800000
  0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                        00805000
|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|                       00810000
|  ENTRY SIZE (WORDS)   |   NAME SIZE (WORDS)   |                       00815000
|-----------------------------------------------|                       00820000
~                                               ~                       00825000
                      NAME                                              00830000
~              (FORMAL DESIGNATOR)              ~                       00835000
|-----------------------------------------------|                       00840000
|                     PMASK                     |                       00845000
|                                               |*                      00850000
|                                               |                       00855000
|-----------------------------------------------|                       00860000
|  NAME LENGTH (BYTES)  | DEVICE LENGTH (BYTES) |                       00865000
|-----------------------------------------------|                       00870000
~                                               ~                       00875000
             NAME-ACTUAL DESIGNATOR                                     00880000
~             (may not be present)              ~                       00885000
|-----------------------------------------------|                       00890000
~                                               ~                       00895000
                DEVICE/CLASS NAME                                       00900000
~             (may not be present)              ~                       00905000
|-----------------------------------------------|                       00910000
|                   FOPTIONS                    |*                      00915000
|-----------------------------------------------|                       00920000
|                   AOPTIONS                    |*                      00925000
|-----------------------------------------------|                       00930000
|       #BUFFERS        |  INIT ALLOC  |D |T |S |<-disposition          00935000
|-----------------------------------------------|   BIT13 DEL           00940000
|                  RECORD SIZE                  |   BIT14 TEMP          00945000
|-----------------------------------------------|   BIT15 SAVE          00950000
| # EXTENTS    |////////|     BLOCK FACTOR      |                       00955000
|-----------------------------------------------|                       00960000
|                     FILE                      |                       00965000
|-----------------------------------------------|                       00970000
|                     SIZE                      |                       00975000
|-----------------------------------------------|                       00980000
|                   FILE CODE                   |                       00985000
|-----------------------------------------------|                       00990000
|   OUTPRI  |     NUMCOPIES      |              |                       00995000
|-----------------------------------------------|                       01000000
|   REF COUNT     |     # OF USER LABELS        |                       01005000
|-----------------------------------------------|                       01010000
|         NATIVE LANGUAGE SUPPORT               |                       01015000
|-----------------------------------------------|                       01020000
|           LENGTH  FORMS=/LABEL=               |                       01025000
|-----------------------------------------------|                       01030000
|                FORMS/LABEL                    |                       01035000
~                   ARRAY                       ~                       01040000
~                                               ~                       01045000
|-----------------------------------------------|                       01050000
     JOB LINE EQUATION ENTRY                                            01055000
     -----------------------                                            01060000
                                                                        01065000
   |-----------------------------------------------|                    01070000
   |   ENTRY SIZE (WORDS)  |   DESIG. SIZE (WORDS) |                    01075000
   |-----------------------------------------------|                    01080000
   |                    FORMAL                     |                    01085000
   ~                LINE DESIGNATOR                ~                    01090000
   ~                   (1-4 WORDS)                 ~                    01095000
   |-----------------------------------------------|                    01100000
  0|                    PMASK1                     |0                   01105000
   |-----------------------------------------------|                    01110000
  1| REF CNT        5|P |         PMASK2           |1 P=FLAG            01115000
   |-----------------------------------------------|                    01120000
  2|      NAME LENGTH      |       DEV LENGTH      |2                   01125000
   |-----------------------------------------------|                    01130000
  3|                                               |3                   01135000
   |                                               |                    01140000
  4|                     NAME                      |4                   01145000
   |                                               |                    01150000
  5|       ( END OF LEQ ENTRY IF NON-BLANK )       |5                   01155000
   |                                               |                    01160000
  6|                                               |6                   01165000
   |-----------------------------------------------|                    01170000
  7|                                               |                    01175000
   |                                               |                    01180000
 10|                                               |8                   01185000
   |                     DEVICE                    |                    01190000
 11|                                               |9                   01195000
   |                                               |                    01200000
 12|                                               |10                  01205000
   |-----------------------------------------------|                    01210000
 13|                     PMASK3                    |11                  01215000
   |-----------------------------------------------|                    01220000
 14| DRIVER NAME LENGTH    |                       |12                  01225000
   |-----------------------------------------------|                    01230000
 15|                                               |13                  01235000
   |                                               |                    01240000
 16|                                               |14                  01245000
   |                   DRIVER NAME                 |                    01250000
 17|                                               |15                  01255000
   |                                               |                    01260000
 20|                                               |16                  01265000
   |-----------------------------------------------|                    01270000
 21|                   LIST PNTR                   |17                  01275000
   |-----------------------------------------------|                    01280000
 22|                    COPTIONS                   |18                  01285000
   |-----------------------------------------------|                    01290000
 23|                    AOPTIONS                   |19                  01295000
   |-----------------------------------------------|                    01300000
 24|                    DOPTIONS                   |20                  01305000
   |-----------------------------------------------|                    01310000
 25|                NUMBER OF BUFFERS              |21                  01315000
   |-----------------------------------------------|                    01320000
 26|               BUFFER SIZE IN WORDS            |22                  01325000
   |-----------------------------------------------|                    01330000
 27|              INSPEED (2 words)                |23                  01335000
   |-----------------------------------------------|                    01340000
 31|              OUTSPEED (2 words)               |25                  01345000
   |-----------------------------------------------|                    01350000
 33|                  POLL REPEAT                  |27                  01355000
   |-----------------------------------------------|                    01360000
 34|                   POLL DELAY                  |28                  01365000
   |-----------------------------------------------|                    01370000
 35|                 C TRACE INFO                  |29                  01375000
   |-----------------------------------------------|                    01380000
 36|                LOCAL ID PNTR                  |30 \                01385000
   |-----------------------------------------------|   |                01390000
 37|               REMOTE ID PNTR                  |31 | REL            01395000
   |-----------------------------------------------|   | TO             01400000
 40|                 SUPLIST PNTR                  |32 | ORIG           01405000
   |-----------------------------------------------|   |OF LEQ          01410000
 41|                PHONE LIST PNTR                |33 | ENTRY          01415000
   |-----------------------------------------------|   |                01420000
 42|                 POLLIST PNTR                  |34 |                01425000
   |-----------------------------------------------|   |                01430000
 43|                MISC ARRAY PNTR                |35 /                01435000
   |-----------------------------------------------|                    01440000
                                                                        01445000
                                                                        01450000
       JJCW     JOB CONTROL WORD TABLE                                  01455000
       ----     --- ------- ---- -----                                  01460000
                                                                        01465000
      |---------------------------------|   Name may be                 01470000
      | NAME SIZE (BYTES)|              |   alphanumeric                01475000
      |------------------|              |   string beginning            01480000
      |                                 |   w/ an alpha                 01485000
      ~                                 ~   between 1 and 255           01490000
                                            chars. long.                01495000
                                                                        01500000
      ~             NAME                ~                               01505000
      |                                 | TY  00 = OK                   01510000
      |---------------------------------|     01 = WARN                 01515000
      | TY |       MODIFIER             |     10 = FATAL                01520000
      |---------------------------------|     11 = SYSTEM               01525000
                                                                        01530000
      MODIFIER = VALUE FROM 0 TO %377777                                01535000
             AOPTIONS AND FOPTIONS WORD BREAKDOWN                       01540000
             ------------------------------------                       01545000
                                                                        01550000
OPTION WORD 2           OPTION WORD 1                                   01555000
 (AOPTIONS)              (FOPTIONS)                                     01560000
                                                                        01565000
 0|---|                  0|---|                                         01570000
  | 0 |                   | 0 |                                         01575000
  |   |                   |   |                                         01580000
  | 0 |                   | 0 |                                         01585000
  |   |                   |---|                                         01590000
  | 0 |                  2|   |                                         01595000
  |---|                   |   |file type                                01600000
 3|   |copy              3|   |                                         01605000
  |---|                   |---|                                         01610000
 4|   |no-wait            | 0 |                                         01615000
  |---|                   |---|                                         01620000
 5|   |                  5| 0 |disallow files                           01625000
  |   |multi-             |---|                                         01630000
 6|   |access            6|   |labelled tape                            01635000
  |---|                   |---|carriage                                 01640000
 7|   |inhibit buff.     7|   |control                                  01645000
  |---|                   |---|                                         01650000
 8|   |                  8|   |                                         01655000
  |   |exclusive          |   |record format                            01660000
 9|   |                  9|   |                                         01665000
  |---|                   |---|                                         01670000
10|   |dynamic locking  10|   |                                         01675000
  |---|multi-             |   |default                                  01680000
11|   |record             |   |designator                               01685000
  |---|                   |   |                                         01690000
12|   |                 12|   |                                         01695000
  |   |                   |---|                                         01700000
  |   |access type      13|   |ascii/binary                             01705000
  |   |                   |---|                                         01710000
  |   |                 14|   |                                         01715000
  |   |                   |   |domain                                   01720000
15|   |                 15|   |                                         01725000
  |---|                   |---|                                         01730000
                 PMASK WORD BREAKDOWN                                   01735000
                 --------------------                                   01740000
                                                                        01745000
               --------- PMASK WORD 2                                   01750000
               |   ----- PMASK WORD 1                                   01755000
               |   |                                                    01760000
             |---|---|0                                                 01765000
FILE TYPE    |   |   |BLOCK FACTOR                                      01770000
             |---|---|                                                  01775000
LABELLED TAPE|   |   |RECSIZE                                           01780000
             |---|---|                                                  01785000
FRMS MESSAGE |   |   |DISPOSITION                                       01790000
             |---|---|                                                  01795000
USER LABELS  |   |   |NUMBUFFERS                                        01800000
             |---|---|                                                  01805000
NLS          |   |   |INHIBIT BUFFERING                                 01810000
             |---|---|                                                  01815000
VTERM        |   |   |EXCLUSIVE                                         01820000
             |---|---|                                                  01825000
POINTER ENTRY|   |   |MULTI-RECORD                                      01830000
             |---|---|                                                  01835000
DYN.LOCKING  |   |   |ACCESS TYPE                                       01840000
             |---|---|                                                  01845000
WAIT,NOWAIT  |   |   |COPY,NOCOPY                                       01850000
             |---|---|                                                  01855000
MULTI ACCESS |   |   |CARRIAGE CONTROL                                  01860000
             |---|---|                                                  01865000
NUMCOP       |   |   |RECORD FORMAT                                     01870000
             |---|---|                                                  01875000
OUTPRI       |   |   |DEFAULT DESIGNATOR                                01880000
             |---|---|                                                  01885000
FILECODE     |   |   |ASCII/BINARY                                      01890000
             |---|---|                                                  01895000
FILESIZE     |   |   |DOMAIN                                            01900000
             |---|---|                                                  01905000
NUMEXTS      |   |   |DEVICE                                            01910000
             |---|---|                                                  01915000
INIT ALLOC   |   |   |NAME                                              01920000
             |---|---|                                                  01925000
                     15                                                 01930000
;     << END COMMENT  >>                                                01935000
$IF X8 = OFF                                                            01940000
$CONTROL LIST                                                           01945000
$IF                                                                     01950000
                                                                        01955000
                                                                        01960000
                                                                        01965000
<<***********************************************************>>         01970000
<<                                                           >>         01975000
<< B E G I N  M P E  V  J D T  I N C L    F I L E   D E C L. >>         01980000
<<                                                           >>         01985000
<<***********************************************************>>         01990000
                                                                        01995000
EQUATE                                                                  02000000
   JDT'MAX'LEN    = 50 * 128 - 4,                                       02005000
   JDTHEADERSIZE  = 24;                                                 02010000
                                                                        02015000
DEFINE                                                                  02020000
                                                                        02025000
   JDTMAXSEGSIZE = JDTARR(0)#, <<max. segment size  >>                  02030000
   JDTJTDSDPTR   = JDTARR(1)#, <<job data seg directory >>              02035000
   JDTJTFDPTR    = JDTARR(2)#, <<beginning of temp file >>              02040000
                               <<description table      >>              02045000
   JDTJTFEQPTR   = JDTARR(3)#, <<file equation table ptr>>              02050000
   JDTJTLEQPTR   = JDTARR(4)#, <<job line equation table>>              02055000
                               <<pointer.               >>              02060000
   JDTJJCWPTR    = JDTARR(5)#, <<points to beginning of >>              02065000
   JDTJTJCWPTR   = JDTARR(5)#, <<JCW table              >>              02070000
   JDTFREESPCPTR = JDTARR(6)#, <<pointer to beginning of>>              02075000
                               <<free space at the end  >>              02080000
                               <<of the JDT.            >>              02085000
   JDTWORKAREA   = JDTARR(7)#, <<beginning of work area >>              02090000
   JDTJOBTYPENUM = JDTARR(22)#, << gets whole word      >>              02095000
   JDTJOBTYPE    = JDTARR(22).(0:2)#,                                   02100000
   JDTJNUMBER    = JDTARR(22).(2:14)#,                                  02105000
   JDTMAINPIN    = JDTARR(23)#;                                         02110000
<<*************************************************************>>       02115000
<<                                                             >>       02120000
<< BELOW ARE THE DEFINES AND EQUATES FOR THE PARAMETER MASKS   >>       02125000
<< AND THE AOPTIONS AND FOPTIONS.                              >>       02130000
<<                                                             >>       02135000
<<*************************************************************>>       02140000
DEFINE                                                                  02145000
   FEQ'ACTUAL'NAME   = PMASK1.(15:1)#,                                  02150000
   FEQ'DEVICE        = PMASK1.(14:1)#,                                  02155000
   FEQ'DOMAIN        = PMASK1.(13:1)#,                                  02160000
   FEQ'ASCII         = PMASK1.(12:1)#,                                  02165000
   FEQ'DEFAULT'DESIG = PMASK1.(11:1)#,                                  02170000
   FEQ'REC'FMT       = PMASK1.(10:1)#,                                  02175000
   FEQ'CCTL          = PMASK1.(9:1)#,                                   02180000
   FEQ'COPY          = PMASK1.(8:1)#,                                   02185000
   FEQ'ACCESS'TYPE   = PMASK1.(7:1)#,                                   02190000
   FEQ'MULTI'REC     = PMASK1.(6:1)#,                                   02195000
   FEQ'EXCLUSIVE     = PMASK1.(5:1)#,                                   02200000
   FEQ'BUF'INHIBIT   = PMASK1.(4:1)#,                                   02205000
   FEQ'NUM'BUFFS     = PMASK1.(3:1)#,                                   02210000
   FEQ'DISP          = PMASK1.(2:1)#,                                   02215000
   FEQ'REC'SIZE      = PMASK1.(1:1)#,                                   02220000
   FEQ'BLOCK'FACTOR  = PMASK1.(0:1)#,                                   02225000
                                                                        02230000
   FEQ'INIT'ALLOC    = PMASK2.(15:1)#,                                  02235000
   FEQ'NUM'EXTENTS   = PMASK2.(14:1)#,                                  02240000
   FEQ'FILE'SIZE     = PMASK2.(13:1)#,                                  02245000
   FEQ'FILE'CODE     = PMASK2.(12:1)#,                                  02250000
   FEQ'OUT'PRI       = PMASK2.(11:1)#,                                  02255000
   FEQ'NUM'COPIES    = PMASK2.(10:1)#,                                  02260000
   FEQ'MULTI'ACCESS  = PMASK2.(9:1)#,                                   02265000
   FEQ'WAIT          = PMASK2.(8:1)#,                                   02270000
   FEQ'DYNAMIC'LOCK  = PMASK2.(7:1)#,                                   02275000
   FEQ'BACK'FILE'REF = PMASK2.(6:1)#,                                   02280000
   FEQ'VTERM         = PMASK2.(5:1)#,                                   02285000
   FEQ'FORMS         = PMASK2.(2:1)#,                                   02290000
   FEQ'LABELED'TAPE  = PMASK2.(1:1)#,                                   02295000
   FEQ'FILE'TYPE     = PMASK2.(0:1)#                                    02300000
;                                                                       02305000
DEFINE                                                                  02310000
   AOPT'COPY         = AOPTIONS.(3:1)#,                                 02315000
   AOPT'NOWAIT       = AOPTIONS.(4:1)#,                                 02320000
   AOPT'MULTI'ACCESS = AOPTIONS.(5:2)#,                                 02325000
   AOPT'NOBUFF       = AOPTIONS.(7:1)#,                                 02330000
   AOPT'EXCLUSIVE'AC = AOPTIONS.(8:2)#,                                 02335000
   AOPT'LOCKING      = AOPTIONS.(10:1)#,                                02340000
   AOPT'MULTI'RECORD = AOPTIONS.(11:1)#,                                02345000
   AOPT'ACCESS'TYPE  = AOPTIONS.(12:4)#                                 02350000
;                                                                       02355000
                                                                        02360000
DEFINE                                                                  02365000
   FOPT'FILE'TYPE    = FOPTIONS.(2:3)#,                                 02370000
   FOPT'TAPE'LABEL'F = FOPTIONS.(6:1)#,                                 02375000
   FOPT'CCTL         = FOPTIONS.(7:1)#,                                 02380000
   FOPT'RECORD'FMT   = FOPTIONS.(8:2)#,                                 02385000
   FOPT'DEFAULT'DES  = FOPTIONS.(10:3)#,                                02390000
   FOPT'ASCII'BINARY = FOPTIONS.(13:1)#,                                02395000
   FOPT'DOMAIN       = FOPTIONS.(14:2)#                                 02400000
;                                                                       02405000
