Common COMBPFP

0 Modifications
Source

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;