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