Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comabzf +++|
00002 M01S00002.comabzf +++|# COMABZF - STATUS LIST FOR BLANK OR ZERO FILLING AN ITEM. #
00003 M01S00003.comabzf +++| CONTROL NOLIST;
00004 M01S00004.comabzf +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.comabzf +++| CONTROL LIST;
00006 M01S00006.comabzf +++| CONTROL FI;
00007 M01S00007.comabzf +++| BEGIN # COMABZF #
00008 M01S00008.comabzf +++|
00009 M01S00009.comabzf +++|#
00010 M01S00010.comabzf +++|*** COMABZF - STATUS LIST FOR BLANK OR ZERO FILLING AN ITEM.
00011 M01S00011.comabzf +++|*
00012 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00013 M01S00002.281l803 +++|*
00014 M01S00012.comabzf +++|* COMABZF SETS UP A STATUS LIST FOR THE TYPE OF FILLING
00015 M01S00013.comabzf +++|* REQUIRED IN AN ITEM.
00016 M01S00014.comabzf +++|#
00017 M01S00015.comabzf +++|
00018 M01S00016.comabzf +++|
00019 M01S00017.comabzf +++| STATUS TYPFILL
00020 M01S00018.comabzf +++| BFILL, # BLANK FILL #
00021 M01S00019.comabzf +++| ZFILL, # ZERO FILL #
00022 M01S00020.comabzf +++| LSTFILL; # END OF STATUS LIST #
00023 M01S00021.comabzf +++|
00024 M01S00022.comabzf +++| END # COMABZF #
00025 M01S00023.comabzf +++|
00026 M01S00024.comabzf +++| CONTROL LIST;
00027 M01S00014.comabzf +++|COMAFET
00028 M01S00005.comabzf +++| CONTROL LIST;
00029 M01S00006.comabzf +++| CONTROL FI;
00030 M01S00007.comabzf +++| BEGIN # COMAFET #
00031 M01S00008.comabzf +++|
00032 M01S00009.comabzf +++|#
00033 M01S00010.comabzf +++|*** COMAFET - CONTAINS BASED ARRAY WITH DEFINITION OF *FET* FIELDS.
00034 M01S00011.comabzf +++|*
00035 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00036 M01S00002.281l803 +++|*
00037 M01S00012.comabzf +++|* *COMAFET* CONTAINS THE *FET* DESCRIPTION WHICH IS USED BY
00038 M01S00013.comabzf +++|* *ZSETFET* IN INITIALIZING A *FET* FOR A FILE. FIELD NAMES
00039 M01S00014.comabzf +++|* BEGINNING WITH *FET$MSF* DEFINE FIELDS IN THE *MSF* *FET* ONLY.
00040 M01S00015.comabzf +++|#
00041 M01S00016.comabzf +++|
00042 M01S00017.comabzf +++| COMMON AFETCOM;
00043 M01S00018.comabzf +++| BEGIN # AFETCOM DESCRIPTION #
00044 M01S00019.comabzf +++|
00045 M01S00020.comabzf +++| BASED
00046 M01S00021.comabzf +++| ARRAY FETSET S(RFETL); # *FET* DEFINITION #
00047 M01S00022.comabzf +++| BEGIN
00048 M01S00023.comabzf +++| ITEM FET$LFN C(00,00,07); # LOGICAL FILE NAME #
00049 M01S00024.comabzf +++| ITEM FET$LN U(00,42,04); # LEVEL NUMBER #
00050 M01S00025.comabzf +++| ITEM FET$AT U(00,46,04); # ABNORMAL TERMINATION CODES #
00051 M01S00026.comabzf +++| ITEM FET$CODE U(00,50,10); # REQUEST/RETURN CODE #
00052 M01S00027.comabzf +++| ITEM FET$EOI B(00,50,01); # END-OF-INFORMATION BIT #
00053 M01S00028.comabzf +++| ITEM FET$LOCK B(00,59,01); # *FET* INTERLOCK BIT #
00054 M01S00029.comabzf +++| ITEM FET$DT U(01,00,12); # DEVICE TYPE #
00055 M01S00030.comabzf +++| ITEM FET$R B(01,12,01); # RANDOM ACCESS BIT #
00056 M01S00031.comabzf +++| ITEM FET$UP B(01,14,01); # USER PROCESSING BIT #
00057 M01S00032.comabzf +++| ITEM FET$EP B(01,15,01); # ERROR PROCESSING BIT #
00058 M01S00033.comabzf +++| ITEM FET$L U(01,36,06); # *FET* LENGTH (OVER 5 WORDS) #
00059 M01S00034.comabzf +++| ITEM FET$FRST U(01,42,18); # *FWA* OF *CIO* BUFFER #
00060 M01S00035.comabzf +++| ITEM FET$IN U(02,42,18); # IN POINTER FOR *CIO* BUFFER #
00061 M01S00036.comabzf +++| ITEM FET$OUT U(03,42,18); # OUT POINTER FOR *CIO* BUFFER
00062 M01S00037.comabzf +++| #
00063 M01S00038.comabzf +++| ITEM FET$MSFPRU U(04,00,24); # NEXT *PRU* TO WRITE TO STREAM
00064 M01S00039.comabzf +++| #
00065 M01S00040.comabzf +++| ITEM FET$FNTP U(04,00,12); # *FNT* POINTER #
00066 M01S00041.comabzf +++| ITEM FET$PRU U(04,24,18); # PHYSICAL RECORD UNIT SIZE #
00067 M01S00042.comabzf +++| ITEM FET$MSFSAF B(04,35,01); # *MSF* STREAMING ACTIVE FLAG #
00068 M01S00043.comabzf +++| ITEM FET$MSFR1 U(04,36,06); # RESERVED FOR CDC #
00069 M01S00044.comabzf +++| ITEM FET$LIM U(04,42,18); # *LWA*+1 OF *CIO* BUFFER #
00070 M01S00045.comabzf +++| ITEM FET$FWRK U(05,12,18); # *FWA* OF WORKING STORAGE #
00071 M01S00046.comabzf +++| ITEM FET$LWRK U(05,42,18); # *LWA*+1 OF WORKING STORAGE #
00072 M01S00047.comabzf +++| ITEM FET$LA U(05,42,18); # LIST ADDRESS #
00073 M01S00048.comabzf +++| ITEM FET$CRI U(06,00,30); # CURRENT RANDOM INDEX #
00074 M01S00049.comabzf +++| ITEM FET$W B(06,30,01); # RANDOM REWRITE INDEX #
00075 M01S00050.comabzf +++| ITEM FET$RR U(06,31,29); # *RSA* FOR RANDOM *I/O*
00076 M01S00051.comabzf +++| REQUEST #
00077 M01S00052.comabzf +++| ITEM FET$DEC U(06,31,29); # DETAIL ERROR CODE #
00078 M01S00053.comabzf +++| ITEM FET$IL U(07,24,18); # INDEX LENGTH #
00079 M01S00054.comabzf +++| ITEM FET$IF U(07,42,18); # *FWA* OF INDEX BUFFER #
00080 M01S00055.comabzf +++| END
00081 M01S00056.comabzf +++|
00082 M01S00057.comabzf +++| END # AFETCOM DESCRIPTION #
00083 M01S00058.comabzf +++|
00084 M01S00059.comabzf +++| END # COMAFET #
00085 M01S00060.comabzf +++|
00086 M01S00061.comabzf +++| CONTROL LIST;