User Tools

Site Tools


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