Common COMBPFP

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.combpfp +++|
00002  M00S00002.combpfp +++|#     COMBPFP - PERMANENT FILE PARAMETERS TABLE.                      #
00003  M00S00003.combpfp +++|                                               CONTROL NOLIST;
00004  M00S00004.combpfp +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.combpfp +++|                                               CONTROL LIST;
00006  M00S00006.combpfp +++|                                               CONTROL FI;
00007  M00S00007.combpfp +++|      BEGIN  # COMBPFP #
00008  M00S00008.combpfp +++|
00009  M00S00009.combpfp +++|#
00010  M00S00010.combpfp +++|***   COMBPFP - PERMANENT FILE PARAMETERS TABLE.
00011  M00S00011.combpfp +++|*
00012  M00S00012.combpfp +++|*     COMBPFP CONTAINS THE PERMANENT FILE PARAMETERS TABLE
00013  M00S00013.combpfp +++|*     TO BE USED BY THE *SETPFP* AND *GETPFP* MACROS, AND
00014  M00S00014.combpfp +++|*     AN ARRAY FOR STORING THE USER-S FAMILY AND USER INDEX.
00015  M00S00015.combpfp +++|#
00016  M00S00016.combpfp +++|
00017  M00S00017.combpfp +++|      ARRAY PFP [0:0] P(3);          # PERMANENT FILE PARAMETER TABLE #
00018  M00S00018.combpfp +++|        BEGIN
00019  M00S00019.combpfp +++|        ITEM PFP$WRD0   I(00,00,60);  # WORD 0 #
00020  M00S00020.combpfp +++|        ITEM PFP$FAM    C(00,00,07);  # FAMILY NAME #
00021  M00S00021.combpfp +++|        ITEM PFP$STAT   U(00,42,06);  # STATUS #
00022  M00S00022.combpfp +++|        ITEM PFP$FLAG   U(00,56,04);  # FLAG #
00023  M00S00023.combpfp +++|        ITEM PFP$FG1    B(00,56,01);  # SET FAMILY NAME #
00024  M00S00024.combpfp +++|        ITEM PFP$FG2    B(00,57,01);  # SET PACK NAME #
00025  M00S00025.combpfp +++|        ITEM PFP$FG3    B(00,58,01);  # SET USER NUMBER #
00026  M00S00026.combpfp +++|        ITEM PFP$FG4    B(00,59,01);  # SET USER INDEX #
00027  M00S00027.combpfp +++|        ITEM PFP$WRD1   I(01,00,60);  # WORD 1 #
00028  M00S00028.combpfp +++|        ITEM PFP$PACK   C(01,00,07);  # PACK NAME #
00029  M00S00029.combpfp +++|        ITEM PFP$UN     C(02,00,07);  # USER NUMBER #
00030  M00S00030.combpfp +++|        ITEM PFP$UI     U(02,42,18);  # USER INDEX #
00031  M00S00031.combpfp +++|        END
00032  M00S00032.combpfp +++|
00033  M00S00033.combpfp +++|      COMMON BPFPCOM;
00034  M00S00034.combpfp +++|
00035  M00S00035.combpfp +++|        BEGIN  # BPFPCOM #
00036  M00S00036.combpfp +++|
00037  M00S00037.combpfp +++|      ARRAY USER$PFP [0:0] S(2);    # USER FAMILY, UI AND PACK NAME #
00038  M00S00038.combpfp +++|          BEGIN
00039  M00S00039.combpfp +++|          ITEM USER$WRD0  U(00,00,60);  # FULL WORD DEFINITION #
00040  M00S00040.combpfp +++|          ITEM USER$FAM   C(00,00,07);  # FAMILY NAME #
00041  M00S00041.combpfp +++|          ITEM USER$UI    U(00,42,18);  # USER INDEX #
00042  M00S00042.combpfp +++|          ITEM USER$PACK  C(01,00,07);  # PACK NAME #
00043  M00S00043.combpfp +++|          END
00044  M00S00044.combpfp +++|
00045  M00S00045.combpfp +++|        END  # BPFPCOM #
00046  M00S00046.combpfp +++|
00047  M00S00047.combpfp +++|      END  # COMBPFP #
00048  M00S00048.combpfp +++|
00049  M00S00049.combpfp +++|                                               CONTROL LIST;