cdc:nos2.source:opl.opl871:common:comabzf
Common COMABZF
1 Modification
Source
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;
cdc/nos2.source/opl.opl871/common/comabzf.txt · Last modified: by 127.0.0.1