User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comtvlx

Common COMTVLX

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtvlx +++|
00002  M01S00002.comtvlx +++|#     COMTVLX - *RDF*, *PFC* EXTRACT AND ZZZVALX FILE DESCRIPTIONS.   #
00003  M01S00003.comtvlx +++|                                               CONTROL NOLIST;
00004  M01S00004.comtvlx +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comtvlx +++|                                               CONTROL LIST;
00006  M01S00006.comtvlx +++|                                               CONTROL FI;
00007  M01S00007.comtvlx +++|      BEGIN  # COMTVLX #
00008  M01S00008.comtvlx +++|
00009  M01S00009.comtvlx +++|#
00010  M01S00010.comtvlx +++|***   COMTVLX - *RDF*, PFCEXTRACT AND ZZZVALX FILE DESCRIPTIONS.
00011  M01S00011.comtvlx +++|*
00012  M01S00012.comtvlx +++|*     COMTVLX DEFINES THE SYMBOLS, *FET-S* AND *I/O* BUFFERS FOR
00013  M01S00013.comtvlx +++|*     THE FILES PROCESSED DURING THE PRESET PHASE OF *ASVAL*.
00014  M01S00014.comtvlx +++|*
00015  M01S00015.comtvlx +++|#
00016  M01S00016.comtvlx +++|
00017  M01S00017.comtvlx +++|
00018  M01S00018.comtvlx +++|      DEF LRDFRB     #64#;           # *RDF* RECORD BUFFER LENGTH #
00019  M01S00019.comtvlx +++|      DEF RDFMAXWC   #64#;           # MAX SIZE IN CONTROL WORD #
00020  M01S00020.comtvlx +++|
00021  M01S00021.comtvlx +++|#
00022  M01S00022.comtvlx +++|*     *RDF* RECORD TYPES.
00023  M01S00023.comtvlx +++|#
00024  M01S00024.comtvlx +++|
00025  M01S00025.comtvlx +++|      DEF RDFEOF     #0#;            # END OF FILE #
00026  M01S00026.comtvlx +++|      DEF RDFHDRREC  #1#;            # HEADER RECORD #
00027  M01S00027.comtvlx +++|      DEF RDFPFCREC  #2#;            # *PFC* EXTRACT RECORD #
00028  M01S00028.comtvlx +++|      DEF RDFCATREC  #3#;            # M860 CATALOG RECORD #
00029  M01S00029.comtvlx +++|
00030  M01S00030.comtvlx +++|
00031  M01S00031.comtvlx +++|      COMMON TVLXCOM;
00032  M01S00032.comtvlx +++|
00033  M01S00033.comtvlx +++|        BEGIN  # TVLXCOM COMMON BLOCK #
00034  M01S00034.comtvlx +++|                                                      #$$#
00035  M01S00035.comtvlx +++|              ITEM $$TVLX$$ C(20) = "****** COMTVLX *****";
00036  M01S00036.comtvlx +++|                                                      #$$#
00037  M01S00037.comtvlx +++|
00038  M01S00038.comtvlx +++|        ITEM RDFHDROK   B;           # FLAG INDICATES HEADER RECORD OK
00039  M01S00039.comtvlx +++|                                     #
00040  M01S00040.comtvlx +++|
00041  M01S00041.comtvlx +++|#
00042  M01S00042.comtvlx +++|*     RELEASE DATA FILE (RDF) - (BUILT BY PFDUMP) CONTAINS A
00043  M01S00043.comtvlx +++|*       HEADER, *PFC* RECORDS, AND M860 CATALOG RECORDS.  EACH
00044  M01S00044.comtvlx +++|*       DATA RECORD IS PRECEEDED BY A CONTROL WORD IDENTIFYING
00045  M01S00045.comtvlx +++|*       THE DATA TYPE AND THE DATA LENGTH.
00046  M01S00046.comtvlx +++|#
00047  M01S00047.comtvlx +++|
00048  M01S00048.comtvlx +++|
00049  M01S00049.comtvlx +++|        ITEM RDFFADR    U;           # *RDF* FILE *FET* ADDRESS #
00050  M01S00050.comtvlx +++|        ITEM RDFBADR    U;           # *RDF* FILE BUFFER ADDRESS #
00051  M01S00051.comtvlx +++|
00052  M01S00052.comtvlx +++|        ARRAY RDFFILE [0:0] S(SFETL);  # *RDF* FILE *FET* #
00053  M01S00053.comtvlx +++|          BEGIN
00054  M01S00054.comtvlx +++|          ITEM RDFF$FET   U(00,00,60);
00055  M01S00055.comtvlx +++|          END
00056  M01S00056.comtvlx +++|
00057  M01S00057.comtvlx +++|        ARRAY RDFBUF [0:0] S(LRDFBUF);  # *RDF* FILE *CIO* BUFFER #
00058  M01S00058.comtvlx +++|          BEGIN
00059  M01S00059.comtvlx +++|          ITEM RDFF$BUFF  U(00,00,60);
00060  M01S00060.comtvlx +++|          END
00061  M01S00061.comtvlx +++|
00062  M01S00062.comtvlx +++|#
00063  M01S00063.comtvlx +++|*     *RDF* FILE DATA RECORD AREA.
00064  M01S00064.comtvlx +++|#
00065  M01S00065.comtvlx +++|
00066  M01S00066.comtvlx +++|        ARRAY RDFRECORD [0:0] S(LRDFRB);  # *RDF* FILE RECORD #
00067  M01S00067.comtvlx +++|          BEGIN
00068  M01S00068.comtvlx +++|
00069  M01S00069.comtvlx +++|#
00070  M01S00070.comtvlx +++|*     *PFC* EXTRACT RECORD.
00071  M01S00071.comtvlx +++|#
00072  M01S00072.comtvlx +++|
00073  M01S00073.comtvlx +++|          ITEM RDFR$PFN   U(00,00,42);  # *PFN* #
00074  M01S00074.comtvlx +++|          ITEM RDFR$UI    U(00,42,18);  # USER INDEX #
00075  M01S00075.comtvlx +++|          ITEM RDFR$SB    U(00,57,03);  # SUBFAMILY #
00076  M01S00076.comtvlx +++|          ITEM RDFR$CREA  U(01,24,36);  # CREATION DATE #
00077  M01S00077.comtvlx +++|          ITEM RDFR$DMDT  U(02,24,36);  # DATA MODIFICATION DT #
00078  M01S00078.comtvlx +++|          ITEM RDFR$CMDT  U(03,24,36);  # CONTROL MODIFICATION DT #
00079  M01S00079.comtvlx +++|          ITEM RDFR$D     U(04,00,03);  # DISK IMAGE FLAG #
00080  M01S00080.comtvlx +++|          ITEM RDFR$UCDT  U(04,24,36);  # UTILITY CONTROL DT #
00081  M01S00081.comtvlx +++|          ITEM RDFR$ASCF  U(05,00,12);  # ASC FLAGS #
00082  M01S00082.comtvlx +++|          ITEM RDFR$FF    U(05,06,01);  # FLAG AFFRE #
00083  M01S00001.ssval2  +++|          ITEM RDFR$AT    U(05,18,06);  # ALTERNATE TYPE #
00084  M01S00083.comtvlx +++|          ITEM RDFR$ASA   U(05,24,36);  # ASA #
00085  M01S00084.comtvlx +++|        ITEM RDFR$SM    U(05,24,06);  # *SM* ID #
00086  M01S00085.comtvlx +++|
00087  M01S00086.comtvlx +++|#
00088  M01S00087.comtvlx +++|*     HEADER RECORD FIELDS.
00089  M01S00088.comtvlx +++|#
00090  M01S00089.comtvlx +++|
00091  M01S00090.comtvlx +++|          ITEM RDFH$ID    C(00,00,06);  # ID IN HEADER #
00092  M01S00091.comtvlx +++|          ITEM RDFH$FAM   C(05,00,07);  # FAMILY #
00093  M01S00092.comtvlx +++|          END
00094  M01S00093.comtvlx +++|
00095  M01S00094.comtvlx +++|#
00096  M01S00095.comtvlx +++|*     *RDF* FILE CONTROL WORD.
00097  M01S00096.comtvlx +++|#
00098  M01S00097.comtvlx +++|
00099  M01S00098.comtvlx +++|        ARRAY RDFCTLWORD [0:0] S(1);  # *RDF* FILE CONTROL WORD #
00100  M01S00099.comtvlx +++|          BEGIN
00101  M01S00100.comtvlx +++|          ITEM RDFC$DN    U(00,00,60);  # DEVICE NUMBER #
00102  M01S00101.comtvlx +++|          ITEM RDFC$SF    U(00,09,03);  # SUBFAMILY NUMBER #
00103  M01S00102.comtvlx +++|          ITEM RDFC$PDT   U(00,12,36);  # PACKED DATE-TIME #
00104  M01S00103.comtvlx +++|          ITEM RDFC$TIME  U(00,30,18);  # PFDUMP TIME #
00105  M01S00104.comtvlx +++|          ITEM RDFC$CTYP  U(00,48,03);  # CONTROL WORD TYPE #
00106  M01S00105.comtvlx +++|          ITEM RDFC$WC    U(00,51,09);  # WORD COUNT TO NEXT #
00107  M01S00106.comtvlx +++|          END
00108  M01S00107.comtvlx +++|
00109  M01S00108.comtvlx +++|
00110  M01S00109.comtvlx +++|#
00111  M01S00110.comtvlx +++|*     *PFC* EXTRACT FILES - TO BUILD FILES (ONE PER SUBFAMILY) OF
00112  M01S00111.comtvlx +++|*       *PFC* DATA EXTRACTED FROM THE *RDF* FILE OR A *PFC*
00113  M01S00112.comtvlx +++|*       CATALOG.  THE *PFC* EXTRACT RECORD IS WRITTEN FROM THE
00114  M01S00113.comtvlx +++|*       ARRAY *EXTRECORD*.
00115  M01S00114.comtvlx +++|#
00116  M01S00115.comtvlx +++|
00117  M01S00116.comtvlx +++|        ITEM PEXTFADR   U;           # *PFC* EXTRACT *FET* ADDRESS #
00118  M01S00117.comtvlx +++|        ITEM PEXTBADR   U;           # *PFC* EXTRACT BUFFER ADDRESS #
00119  M01S00118.comtvlx +++|
00120  M01S00119.comtvlx +++|        ARRAY PFCENAME [0:0] S(1);   # *PFC* EXTRACT FILE NAME #
00121  M01S00120.comtvlx +++|          BEGIN
00122  M01S00121.comtvlx +++|          ITEM PFCE$LFN   C(00,00,06) = [EXTLFN];
00123  M01S00122.comtvlx +++|          ITEM PFCE$LFNX  U(00,36,06);  # SUBFAMILY NUMBER IN *LFN* #
00124  M01S00123.comtvlx +++|          END
00125  M01S00124.comtvlx +++|
00126  M01S00125.comtvlx +++|        ARRAY PFCEXTN [0:7] S(SFETL);  # PFCEXTN *FET* #
00127  M01S00126.comtvlx +++|          BEGIN
00128  M01S00127.comtvlx +++|          ITEM PFCE$FET   U(00,00,60);
00129  M01S00128.comtvlx +++|          END
00130  M01S00129.comtvlx +++|
00131  M01S00130.comtvlx +++|        ARRAY PFCEBUF [0:7] S(LPFCEBUF);  # PFCEXTN *CIO* BUFFER #
00132  M01S00131.comtvlx +++|          BEGIN
00133  M01S00132.comtvlx +++|          ITEM PFCE$BUF   U(00,00,60);
00134  M01S00133.comtvlx +++|          END
00135  M01S00134.comtvlx +++|
00136  M01S00135.comtvlx +++|
00137  M01S00136.comtvlx +++|#
00138  M01S00137.comtvlx +++|*     ZZZVALX FILE - TO BUILD COPIES OF THE SFMCATS
00139  M01S00138.comtvlx +++|*       FROM THE *RDF* FILE.  THERE IS A SEPARATE M860 CATALOG FILE
00140  M01S00139.comtvlx +++|*       FOR EACH SUBFAMILY.
00141  M01S00140.comtvlx +++|#
00142  M01S00141.comtvlx +++|
00143  M01S00142.comtvlx +++|        ITEM ZVALFADR   U;           # ZZZVALX FILE *FET* ADDRESS #
00144  M01S00143.comtvlx +++|        ITEM ZVALBADR   U;           # ZZZVALX FILE BUFFER ADDRESS #
00145  M01S00144.comtvlx +++|
00146  M01S00145.comtvlx +++|        ARRAY ZZZVALX [0:0] S(SFETL);  # ZZZVALX FILE *FET* #
00147  M01S00146.comtvlx +++|          BEGIN
00148  M01S00147.comtvlx +++|          ITEM ZZZV$FET   U(00,00,60);
00149  M01S00148.comtvlx +++|          ITEM ZZZV$LFNC  C(00,00,07);  # *LFN* #
00150  M01S00149.comtvlx +++|          ITEM ZZZV$LFNX  U(00,36,06);  # UNIQUE *LFN* CHAR #
00151  M01S00150.comtvlx +++|          END
00152  M01S00151.comtvlx +++|
00153  M01S00152.comtvlx +++|        ARRAY ZZZVBUF [0:0] S(LZZZVBUF);  # ZZZVALX *CIO* BUFFER #
00154  M01S00153.comtvlx +++|          BEGIN
00155  M01S00154.comtvlx +++|          ITEM ZZZV$BUF   U(00,00,60);
00156  M01S00155.comtvlx +++|          END
00157  M01S00156.comtvlx +++|
00158  M01S00157.comtvlx +++|        END  # TVLXCOM COMMON BLOCK #
00159  M01S00158.comtvlx +++|
00160  M01S00159.comtvlx +++|      END  # COMTVLX #
00161  M01S00160.comtvlx +++|
00162  M01S00161.comtvlx +++|                                               CONTROL LIST;
00163  M01S00162.comtvlx +++|
cdc/nos2.source/opl.opl871/common/comtvlx.txt · Last modified: by 127.0.0.1