Deck PFHELPR

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.pfhelpr +++|          IDENT  PFHELPR,FWA
00002  M00S00002.pfhelpr +++|          ABS
00003  M00S00003.pfhelpr +++|          TITLE  PFHELPR - *MAGNET* HELPER FOR TAPE ALTERNATE STORAGE.
00004  M00S00004.pfhelpr +++|          SST
00005  M00S00005.pfhelpr +++|          SYSCOM B1
00006  M00S00006.pfhelpr +++|          ENTRY  PFHELPR
00007  M00S00007.pfhelpr +++|          ENTRY  RFL=
00008  M00S00008.pfhelpr +++|          ENTRY  SSJ=
00009  M00S00009.pfhelpr +++|          SPACE  4,10
00010  M00S00010.pfhelpr +++|*COMMENT  PFHELPR - HELPER FOR TAPE ALTERNATE STORAGE.

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

Seq #  *Modification Id* Act 
----------------------------+
00011  M01S00011.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORATION.  1987.

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

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00013  M00S00012.pfhelpr +++|          SPACE  4,10
00014  M00S00013.pfhelpr +++|***       PFHELPR - *MAGNET* HELPER FOR TAPE ALTERNATE STORAGE.
00015  M00S00014.pfhelpr +++|*
00016  M00S00015.pfhelpr +++|*         W. C. WELLS.       86/01/27.
00017  M00S00016.pfhelpr +++|*         P. C. SMITH.       87/03/27.
00018  M00S00017.pfhelpr +++|          SPACE  4,10
00019  M00S00018.pfhelpr +++|***       *PFHELPR* IS CALLED BY *MAGNET* AS PART OF TAPE ALTERNATE
00020  M00S00019.pfhelpr +++|*         STORAGE PROCESSING.  IT COPIES STAGE REQUESTS FROM THE
00021  M00S00020.pfhelpr +++|*         STAGE REQUEST TABLE (WITHIN *MAGNET*) TO THE STAGE REQUEST
00022  M00S00021.pfhelpr +++|*         FILE.  THIS FILE IS THEN READ BY *PFRES*.
00023  M00S00022.pfhelpr +++|          SPACE  4,10
00024  M00S00023.pfhelpr +++|*         SYMBOLIC COMMON DECKS.
00025  M00S00024.pfhelpr +++|
00026  M00S00025.pfhelpr +++|
00027  M00S00026.pfhelpr +++|*CALL     COMCMAC
00028  M00S00027.pfhelpr +++|*CALL     COMCCMD
00029  M00S00028.pfhelpr +++|*CALL     COMSMTX
00030  M00S00029.pfhelpr +++|*CALL     COMSSSD
00031  M00S00030.pfhelpr +++|*CALL     COMSPFM
00032  M00S00031.pfhelpr +++|          SPACE  4,10
00033  M00S00032.pfhelpr +++|*         STORAGE ALLOCATION.
00034  M00S00033.pfhelpr +++|
00035  M00S00034.pfhelpr +++|
00036  M00S00035.pfhelpr +++|          ORG    110B
00037  M00S00036.pfhelpr +++| FWA      BSS    0
00038  M00S00037.pfhelpr +++|
00039  M00S00038.pfhelpr +++| FBUFL    EQU    2001B
00040  M00S00039.pfhelpr +++| SSJ=     EQU    0
00041  M00S00040.pfhelpr +++|
00042  M00S00041.pfhelpr +++| F        BSS    0           STAGE REQUEST FILE
00043  M00S00042.pfhelpr +++| STRQ     FILEB  FBUF,FBUFL
00044  M00S00043.pfhelpr +++|
00045  M00S00044.pfhelpr +++| RPVB     RPVBLK END         REPRIEVE BLOCK
00046  M00S00045.pfhelpr +++|          TITLE  MAIN PROGRAM.
00047  M00S00046.pfhelpr +++| PFHELPR  BSS    0           ENTRY
00048  M00S00047.pfhelpr +++|          SB1    1
00049  M00S00048.pfhelpr +++|          RJ     PRS
00050  M00S00049.pfhelpr +++|          EQ     PFH2        SKIP ROLLOUT
00051  M00S00050.pfhelpr +++|
00052  M00S00051.pfhelpr +++|*         CHECK FOR STAGE REQUESTS.
00053  M00S00052.pfhelpr +++|
00054  M00S00053.pfhelpr +++| PFH1     ROLLOUT  PFHC
00055  M00S00054.pfhelpr +++| PFH2     RJ     GSR         CHECK FOR STAGE REQUESTS
00056  M00S00055.pfhelpr +++|          NG     B6,END      IF CANNOT READ REQUESTS
00057  M00S00056.pfhelpr +++|          NE     B6,B1,PFH1  IF NOT ENOUGH REQUESTS TO ATTACH FILE
00058  M00S00057.pfhelpr +++|
00059  M00S00058.pfhelpr +++|*         ATTACH FILE TO CLEAN UP *MAGNET*-S REQUEST TABLE.
00060  M00S00059.pfhelpr +++|
00061  M00S00060.pfhelpr +++|          ATTACH F
00062  M00S00061.pfhelpr +++|          SA1    X2
00063  M00S00062.pfhelpr +++|          MX0    -8
00064  M00S00063.pfhelpr +++|          AX1    10
00065  M00S00064.pfhelpr +++|          BX1    -X0*X1
00066  M00S00065.pfhelpr +++|          NZ     X1,PFH1     IF ERROR IN ATTACH
00067  M00S00066.pfhelpr +++|          SKIPEI F,R
00068  M00S00067.pfhelpr +++|          WRITE  X2,*
00069  M00S00068.pfhelpr +++|          SB2    PFHB        INFORM MAGNET THAT FILE IS ATTACHED
00070  M00S00069.pfhelpr +++|          RJ     SRM
00071  M00S00070.pfhelpr +++|
00072  M00S00071.pfhelpr +++|*         GET STAGE REQUEST.
00073  M00S00072.pfhelpr +++|
00074  M00S00073.pfhelpr +++| PFH3     RJ     GSR         GET NEXT STAGE REQUEST
00075  M00S00074.pfhelpr +++|          NG     B6,PFH4     IF CANNOT READ REQUESTS
00076  M00S00075.pfhelpr +++|          ZR     B6,PFH4     IF NO REQUESTS
00077  M00S00076.pfhelpr +++|          WRITEW F,B6,PFTBL
00078  M00S00077.pfhelpr +++|          EQ     PFH3        GET NEXT REQUEST
00079  M00S00078.pfhelpr +++|
00080  M00S00079.pfhelpr +++|*         IF NO MORE REQUESTS, RELEASE FILE AND CLEAR BIT.
00081  M00S00080.pfhelpr +++|
00082  M00S00081.pfhelpr +++| PFH4     WRITER F,R
00083  M00S00082.pfhelpr +++|          UNLOAD F
00084  M00S00083.pfhelpr +++| PFH5     SB2    PFHA        INFORM *MAGNET* THAT FILE IS RELEASED
00085  M00S00084.pfhelpr +++|          RJ     SRM
00086  M00S00085.pfhelpr +++|          ZR     X1,PFH1     IF SUCCESSFUL
00087  M00S00086.pfhelpr +++|          RECALL             GIVE UP CPU
00088  M00S00087.pfhelpr +++|          EQ     PFH5        TRY AGAIN
00089  M00S00088.pfhelpr +++|
00090  M00S00089.pfhelpr +++|
00091  M00S00090.pfhelpr +++| PFHA     VFD    12/AIB,24/,6/0,18/1   CLEAR *FILE ATTACHED* BIT
00092  M00S00091.pfhelpr +++| PFHB     VFD    12/AIB,24/,6/1,18/1   SET *FILE ATTACHED* BIT
00093  M00S00092.pfhelpr +++| PFHC     VFD    60/60
00094  M00S00093.pfhelpr +++| END      SPACE  4,10
00095  M00S00094.pfhelpr +++|**        END - END PROGRAM.
00096  M00S00095.pfhelpr +++|*
00097  M00S00096.pfhelpr +++|
00098  M00S00097.pfhelpr +++|
00099  M00S00098.pfhelpr +++| END      MESSAGE  (=C*PFHELPR ABORTED.*)
00100  M00S00099.pfhelpr +++|          ENDRUN
00101  M00S00100.pfhelpr +++|          SPACE  4,10
00102  M00S00101.pfhelpr +++|*         COMMON DECKS.
00103  M00S00102.pfhelpr +++|
00104  M00S00103.pfhelpr +++|
00105  M00S00104.pfhelpr +++|*CALL     COMCCIO
00106  M00S00105.pfhelpr +++|*CALL     COMCCPM
00107  M00S00106.pfhelpr +++|*CALL     COMCPFM
00108  M00S00107.pfhelpr +++|*CALL     COMCSYS
00109  M00S00108.pfhelpr +++|          LIST   X
00110  M00S00109.pfhelpr +++|*CALL     COMCSRI
00111  M00S00110.pfhelpr +++|          LIST   *
00112  M00S00111.pfhelpr +++|*CALL     COMCWTW
00113  M00S00112.pfhelpr +++|          TITLE  PRESET.
00114  M00S00113.pfhelpr +++|          USE    BUFFERS
00115  M00S00114.pfhelpr +++| PRS      SPACE  4,10
00116  M00S00115.pfhelpr +++|**        PRS - PRESET.
00117  M00S00116.pfhelpr +++|*
00118  M00S00117.pfhelpr +++|
00119  M00S00118.pfhelpr +++|
00120  M00S00119.pfhelpr +++| FBUF     BSS    0           OUTPUT BUFFER
00121  M00S00120.pfhelpr +++| PRS      SUBR               ENTRY/EXIT
00122  M00S00121.pfhelpr +++|          REPRIEVE  RPVB,SET,237B  SET REPRIEVE PROCESSING
00123  M00S00122.pfhelpr +++|          MACHID PRSA        GET MACHINE ID
00124  M00S00123.pfhelpr +++|          SA1    PRSA
00125  M00S00124.pfhelpr +++|          SA2    F           SET ID INTO STAGE REQUEST FILE NAME
00126  M00S00125.pfhelpr +++|          LX1    24
00127  M00S00126.pfhelpr +++|          BX6    X1+X2
00128  M00S00127.pfhelpr +++|          SA6    A2
00129  M00S00128.pfhelpr +++|          GETJN  PRSB        GET JOB NAME
00130  M00S00129.pfhelpr +++|          SA1    PRSB
00131  M00S00130.pfhelpr +++|          SA2    PFHA        SET JOB NAME IN *MAGNET* REQUESTS
00132  M00S00131.pfhelpr +++|          SA3    PFHB
00133  M00S00132.pfhelpr +++|          LX1    24-36
00134  M00S00133.pfhelpr +++|          BX7    X1+X2
00135  M00S00134.pfhelpr +++|          BX6    X1+X3
00136  M00S00135.pfhelpr +++|          SA7    A2
00137  M00S00136.pfhelpr +++|          SA6    A3
00138  M00S00137.pfhelpr +++|          SB2    PFHA        SEND *CLEAR BIT* REQUEST TO MAGNET
00139  M00S00138.pfhelpr +++|          RJ     SRM
00140  M00S00139.pfhelpr +++|          EQ     PRSX        RETURN
00141  M00S00140.pfhelpr +++|
00142  M00S00141.pfhelpr +++|
00143  M00S00142.pfhelpr +++| PRSA     BSS    1           MACHINE ID BUFFER
00144  M00S00143.pfhelpr +++| PRSB     BSS    1           JOB NAME BUFFER
00145  M00S00144.pfhelpr +++|
00146  M00S00145.pfhelpr +++|          BSS    FBUF+FBUFL+1-*   ALLOCATE ENOUGH SPACE FOR BUFFER
00147  M00S00146.pfhelpr +++|          BSS    8           PREVENT LOOKAHEAD REFERENCE BEYOND FL
00148  M00S00147.pfhelpr +++| RFL=     END