Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comapfp +++|
00002  M00S00002.comapfp +++|#     COMAPFP - PERMANENT FILE PARAMETERS TABLE.                      #
00003  M00S00003.comapfp +++|                                               CONTROL NOLIST;
00004  M00S00004.comapfp +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.comapfp +++|                                               CONTROL LIST;
00006  M00S00006.comapfp +++|                                               CONTROL FI;
00007  M00S00007.comapfp +++|      BEGIN  # COMAPFP #
00008  M00S00008.comapfp +++|
00009  M00S00009.comapfp +++|#
00010  M00S00010.comapfp +++|***   COMAPFP - PERMANENT FILE PARAMETERS TABLE.
00011  M00S00011.comapfp +++|*

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.281l803 +++|*     COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M01S00002.281l803 +++|*
00014  M00S00012.comapfp +++|*     COMAPFP CONTAINS THE PERMANENT FILE PARAMETERS TABLE
00015  M00S00013.comapfp +++|*     TO BE USED BY THE *SETPFP* AND *GETPFP* MACROS, AND
00016  M00S00014.comapfp +++|*     AN ARRAY FOR STORING THE USER-S FAMILY AND USER INDEX.
00017  M00S00015.comapfp +++|#
00018  M00S00016.comapfp +++|
00019  M00S00017.comapfp +++|      ARRAY PFP [0:0] P(3);          # PERMANENT FILE PARAMETER TABLE #
00020  M00S00018.comapfp +++|        BEGIN
00021  M00S00019.comapfp +++|        ITEM PFP$WRD0   I(00,00,60);  # WORD 0 #
00022  M00S00020.comapfp +++|        ITEM PFP$FAM    C(00,00,07);  # FAMILY NAME #
00023  M00S00021.comapfp +++|        ITEM PFP$STAT   U(00,42,06);  # STATUS #
00024  M00S00022.comapfp +++|        ITEM PFP$FLAG   U(00,56,04);  # FLAG #
00025  M00S00023.comapfp +++|        ITEM PFP$FG1    B(00,56,01);  # SET FAMILY NAME #
00026  M00S00024.comapfp +++|        ITEM PFP$FG2    B(00,57,01);  # SET PACK NAME #
00027  M00S00025.comapfp +++|        ITEM PFP$FG3    B(00,58,01);  # SET USER NUMBER #
00028  M00S00026.comapfp +++|        ITEM PFP$FG4    B(00,59,01);  # SET USER INDEX #

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00001.ns2054  +++|        ITEM PFP$WRD1   I(01,00,60);  # WORD 1 #
00030  M00S00027.comapfp +++|        ITEM PFP$PACK   C(01,00,07);  # PACK NAME #
00031  M00S00028.comapfp +++|        ITEM PFP$UN     C(02,00,07);  # USER NUMBER #
00032  M00S00029.comapfp +++|        ITEM PFP$UI     U(02,42,18);  # USER INDEX #
00033  M00S00030.comapfp +++|        END
00034  M00S00031.comapfp +++|
00035  M00S00032.comapfp +++|      COMMON APFPCOM;
00036  M00S00033.comapfp +++|        BEGIN  # APFPCOM #
00037  M00S00034.comapfp +++|

Seq #  *Modification Id* Act 
----------------------------+
00038  M01S00035.ns2054  ---|        ARRAY USER$PFP [0:0] P(1);   # USER-S FAMILY AND USER INDEX #

Seq #  *Modification Id* Act 
----------------------------+
00039  M01S00002.ns2054  +++|        ARRAY USER$PFP [0:0] S(2);    # USER FAMILY, UI AND PACK NAME #
00040  M00S00036.comapfp +++|          BEGIN
00041  M00S00037.comapfp +++|          ITEM USER$WRD0  U(00,00,60);  # FULL WORD DEFINITION #
00042  M00S00038.comapfp +++|          ITEM USER$FAM   C(00,00,07);  # FAMILY NAME #
00043  M00S00039.comapfp +++|          ITEM USER$UI    U(00,42,18);  # USER INDEX #

Seq #  *Modification Id* Act 
----------------------------+
00044  M01S00003.ns2054  +++|          ITEM USER$PACK  C(01,00,07);  # PACK NAME #
00045  M00S00040.comapfp +++|          END
00046  M00S00041.comapfp +++|
00047  M00S00042.comapfp +++|        END  # APFPCOM #
00048  M00S00043.comapfp +++|
00049  M00S00044.comapfp +++|      END  # COMAPFP #
00050  M00S00045.comapfp +++|
00051  M00S00046.comapfp +++|                                               CONTROL LIST;