Common COMCPFM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcpfm +++|          CTEXT  COMCPFM - PERMANENT FILE PROCESSOR.
00002  M00S00002.comcpfm +++| PFM      SPACE  4
00003  M00S00003.comcpfm +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcpfm +++|          QUAL   COMCPFM
00005  M00S00005.comcpfm +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1970.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcpfm +++| PFM      SPACE  4
00009  M00S00008.comcpfm +++|***       PFM - PERMANENT FILE PROCESSOR.
00010  M00S00009.comcpfm +++|*         G. R. MANSFIELD.  70/10/09.
00011  M00S00010.comcpfm +++| PFM      SPACE  4
00012  M00S00011.comcpfm +++|***              PFM PERFORMS PERMANENT FILE ACTION FUNCTIONS VIA
00013  M00S00012.comcpfm +++|*         CALLS TO THE PP PROGRAM *PFM*.  THE OPERATION WILL BE
00014  M00S00013.comcpfm +++|*         PROCESSED WHEN THE BUFFER IS NOT BUSY.  IF FILE STATUS
00015  M00S00014.comcpfm +++|*         WORD = 0, THE FUNCTION WILL NOT BE PROCESSED.

Line S00001 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00001.241l630 +++|*
00017  M01S00002.241l630 +++|*         AUTO RECALL IS FORCED FOR ALL *PFM* REQUESTS EXCEPT
00018  M01S00003.241l630 +++|*         *UGET* AND *UREPLACE*.
00019  M00S00015.comcpfm +++|*
00020  M00S00016.comcpfm +++|*         ENTRY  (X2) = ADDRESS OF FET FOR FILE.
00021  M00S00017.comcpfm +++|*                (X7) = FUNCTION CODE.
00022  M00S00018.comcpfm +++|*
00023  M00S00019.comcpfm +++|*         EXIT   (X2) = ADDRESS OF FET FOR FILE.
00024  M00S00020.comcpfm +++|*
00025  M00S00021.comcpfm +++|*         USES   X - 1, 2, 6, 7.
00026  M00S00022.comcpfm +++|*                B - NONE.
00027  M00S00023.comcpfm +++|*                A - 1.
00028  M00S00024.comcpfm +++|*
00029  M00S00025.comcpfm +++|*         CALLS  SYS=.
00030  M00S00026.comcpfm +++|
00031  M00S00027.comcpfm +++|

Line S00028 Modification History
`M01` (Removed by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00032  M01S00028.241l630 ---| PFM2     RJ     =XSYS=

Line S00004 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00033  M01S00004.241l630 +++| PFM3     RJ     =XSYS=
00034  M00S00029.comcpfm +++|
00035  M00S00030.comcpfm +++| PFM=     PS                 ENTRY/EXIT
00036  M00S00031.comcpfm +++|          SA1    X2          CHECK BUFFER STATUS
00037  M00S00032.comcpfm +++|          LX1    59
00038  M00S00033.comcpfm +++|          NG     X1,PFM1     IF BUFFER NOT BUSY
00039  M00S00034.comcpfm +++|          ZR     X1,PFM=     IF BLANK FILE STATUS
00040  M00S00035.comcpfm +++|          RECALL X2
00041  M00S00036.comcpfm +++| PFM1     SA1    X2          SET FET BUSY
00042  M00S00037.comcpfm +++|          MX6    59
00043  M00S00038.comcpfm +++|          BX6    X6*X1
00044  M00S00039.comcpfm +++|          SA6    X2
00045  M00S00040.comcpfm +++|          SA1    PFMA        FORM CALL
00046  M00S00041.comcpfm +++|          BX6    X1+X2

Line S00042 Modification History
`M01` (Removed by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00047  M01S00042.241l630 ---|          LX7    24
00048  M01S00043.241l630 ---|          BX6    X6+X7
00049  M01S00044.241l630 ---|          EQ     PFM2
00050  M01S00045.241l630 ---|
00051  M01S00046.241l630 ---| PFMA     CON    0LPFM+1S40

Line S00005 Modification History
`M01` (Added by)	`241l630`

Seq #  *Modification Id* Act 
----------------------------+
00052  M01S00005.241l630 +++|          SX1    X7-24B
00053  M01S00006.241l630 +++|          ZR     X1,PFM2     IF *UGET* REQUEST
00054  M01S00007.241l630 +++|          SX1    X7-25B
00055  M01S00008.241l630 +++|          ZR     X1,PFM2     IF *UREPLACE* REQUEST
00056  M01S00009.241l630 +++|          MX1    1           SET AUTORECALL BIT
00057  M01S00010.241l630 +++|          LX1    40-59
00058  M01S00011.241l630 +++|          BX6    X6+X1
00059  M01S00012.241l630 +++| PFM2     LX7    24          ADD REQUEST CODE TO CALL
00060  M01S00013.241l630 +++|          BX6    X6+X7
00061  M01S00014.241l630 +++|          EQ     PFM3        PROCESS REQUEST
00062  M01S00015.241l630 +++|
00063  M01S00016.241l630 +++| PFMA     CON    0LPFM
00064  M00S00047.comcpfm +++|          SPACE  4
00065  M00S00048.comcpfm +++|          BASE   *
00066  M00S00049.comcpfm +++| QUAL$    IF     -DEF,QUAL$
00067  M00S00050.comcpfm +++|          QUAL   *
00068  M00S00051.comcpfm +++| PFM=     EQU    /COMCPFM/PFM=
00069  M00S00052.comcpfm +++| QUAL$    ENDIF
00070  M00S00053.comcpfm +++|          ENDX