Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.combpfp +++|
00002 M01S00002.combpfp +++|# COMBPFP - PERMANENT FILE PARAMETERS TABLE. #
00003 M01S00003.combpfp +++| CONTROL NOLIST;
00004 M01S00004.combpfp +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.combpfp +++| CONTROL LIST;
00006 M01S00006.combpfp +++| CONTROL FI;
00007 M01S00007.combpfp +++| BEGIN # COMBPFP #
00008 M01S00008.combpfp +++|
00009 M01S00009.combpfp +++|#
00010 M01S00010.combpfp +++|*** COMBPFP - PERMANENT FILE PARAMETERS TABLE.
00011 M01S00011.combpfp +++|*
00012 M01S00012.combpfp +++|* COMBPFP CONTAINS THE PERMANENT FILE PARAMETERS TABLE
00013 M01S00013.combpfp +++|* TO BE USED BY THE *SETPFP* AND *GETPFP* MACROS, AND
00014 M01S00014.combpfp +++|* AN ARRAY FOR STORING THE USER-S FAMILY AND USER INDEX.
00015 M01S00015.combpfp +++|#
00016 M01S00016.combpfp +++|
00017 M01S00017.combpfp +++| ARRAY PFP [0:0] P(3); # PERMANENT FILE PARAMETER TABLE #
00018 M01S00018.combpfp +++| BEGIN
00019 M01S00019.combpfp +++| ITEM PFP$WRD0 I(00,00,60); # WORD 0 #
00020 M01S00020.combpfp +++| ITEM PFP$FAM C(00,00,07); # FAMILY NAME #
00021 M01S00021.combpfp +++| ITEM PFP$STAT U(00,42,06); # STATUS #
00022 M01S00022.combpfp +++| ITEM PFP$FLAG U(00,56,04); # FLAG #
00023 M01S00023.combpfp +++| ITEM PFP$FG1 B(00,56,01); # SET FAMILY NAME #
00024 M01S00024.combpfp +++| ITEM PFP$FG2 B(00,57,01); # SET PACK NAME #
00025 M01S00025.combpfp +++| ITEM PFP$FG3 B(00,58,01); # SET USER NUMBER #
00026 M01S00026.combpfp +++| ITEM PFP$FG4 B(00,59,01); # SET USER INDEX #
00027 M01S00027.combpfp +++| ITEM PFP$WRD1 I(01,00,60); # WORD 1 #
00028 M01S00028.combpfp +++| ITEM PFP$PACK C(01,00,07); # PACK NAME #
00029 M01S00029.combpfp +++| ITEM PFP$UN C(02,00,07); # USER NUMBER #
00030 M01S00030.combpfp +++| ITEM PFP$UI U(02,42,18); # USER INDEX #
00031 M01S00031.combpfp +++| END
00032 M01S00032.combpfp +++|
00033 M01S00033.combpfp +++| COMMON BPFPCOM;
00034 M01S00034.combpfp +++|
00035 M01S00035.combpfp +++| BEGIN # BPFPCOM #
00036 M01S00036.combpfp +++|
00037 M01S00037.combpfp +++| ARRAY USER$PFP [0:0] S(2); # USER FAMILY, UI AND PACK NAME #
00038 M01S00038.combpfp +++| BEGIN
00039 M01S00039.combpfp +++| ITEM USER$WRD0 U(00,00,60); # FULL WORD DEFINITION #
00040 M01S00040.combpfp +++| ITEM USER$FAM C(00,00,07); # FAMILY NAME #
00041 M01S00041.combpfp +++| ITEM USER$UI U(00,42,18); # USER INDEX #
00042 M01S00042.combpfp +++| ITEM USER$PACK C(01,00,07); # PACK NAME #
00043 M01S00043.combpfp +++| END
00044 M01S00044.combpfp +++|
00045 M01S00045.combpfp +++| END # BPFPCOM #
00046 M01S00046.combpfp +++|
00047 M01S00047.combpfp +++| END # COMBPFP #
00048 M01S00048.combpfp +++|
00049 M01S00049.combpfp +++| CONTROL LIST;