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 +++|*
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
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 #
| Line S00001 Modification History |
M01 (Added by) | ns2054 |
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 +++|
| Line S00035 Modification History |
M01 (Removed by) | ns2054 |
Seq # *Modification Id* Act
----------------------------+
00038 M01S00035.ns2054 ---| ARRAY USER$PFP [0:0] P(1); # USER-S FAMILY AND USER INDEX #
| Line S00002 Modification History |
M01 (Added by) | ns2054 |
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 #
| Line S00003 Modification History |
M01 (Added by) | ns2054 |
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;