Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comkarf +++| CTEXT COMKARF - ALLOCATE TAF/CRM RECOVERY FILES.
00002 M00S00002.comkarf +++| SPACE 4,10
00003 M00S00003.comkarf +++| BASE D
| Line S00004 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00004 M01S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00006 M00S00005.comkarf +++| IF -DEF,QUAL$
00007 M00S00006.comkarf +++| QUAL COMKARF
00008 M00S00007.comkarf +++| ENDIF
00009 M00S00008.comkarf +++| SPACE 4,10
| Line S00009 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00010 M01S00009.ns2023 ---|*** ARF - ALLOCATE TAF/CRM RECOVERY FILES.
| Line S00001 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00001.ns2023 +++|*** AAF - ALLOCATE TAF/CRM RECOVERY FILES.
00012 M00S00010.comkarf +++|*
00013 M00S00011.comkarf +++|* L. E. LOVETT 80/04/01.
00014 M00S00012.comkarf +++| SPACE 4,10
| Line S00013 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00015 M01S00013.ns2023 ---|*** ARF - ALLOCATE TAF/CRM RECOVERY FILES.
| Line S00002 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00016 M01S00002.ns2023 +++|*** AAF - ALLOCATE TAF/CRM RECOVERY FILES.
00017 M00S00014.comkarf +++|*
| Line S00015 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00018 M01S00015.ns2023 ---|* THIS ROUTINE ALLOCATES QUICK AND LONG RECOVERY FILES
00019 M01S00016.ns2023 ---|* WHICH ARE USED BY TAF/CRM RECOVERY.
00020 M01S00017.ns2023 ---|* DEPENDING ON AN ENTRY CODE ONE QRF OR ONE LRF IS ALLOCATED.
00021 M01S00018.ns2023 ---|* THE CALLER MUST MAKE THE FILE PERMANENT.
| Line S00003 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00022 M01S00003.ns2023 +++|* THIS ROUTINE ALLOCATES BEFORE IMAGE AND AFTER IMAGE
00023 M01S00004.ns2023 +++|* RECOVERY FILES WHICH ARE USED BY *TAF/CRM* RECOVERY.
00024 M01S00005.ns2023 +++|* DEPENDING ON AN ENTRY CODE ONE *BRF* AND ONE *ARF* IS
00025 M01S00006.ns2023 +++|* ALLOCATED. THE CALLER MUST MAKE THE FILE PERMANENT.
00026 M00S00019.comkarf +++|* THE FILES WILL BE REWOUND BEFORE AND AFTER ALLOCATION.
| Line S00020 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00027 M01S00020.ns2023 ---|* LONG RECOVERY FILES WILL BE IN EMPTY CONDITION I.E.
| Line S00007 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00028 M01S00007.ns2023 +++|* AFTER IMAGE RECOVERY FILES WILL BE IN EMPTY CONDITION I.E.
00029 M00S00021.comkarf +++|* *EOF* WILL BE WRITTEN IMMEDIATELY AFTER THE HEADER
00030 M00S00022.comkarf +++|* RECORD.
00031 M00S00023.comkarf +++|* FIRST RECORD OF THE FILE ALLOCATED WILL BE A *HEADER*
00032 M00S00024.comkarf +++|* RECORD, WHICH IS SUPPLIED BY THE CALLER.
00033 M00S00025.comkarf +++| SPACE 4,10
| Line S00026 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00034 M01S00026.ns2023 ---|** ARF - ALLOCATE TAF/CRM RECOVERY FILE.
| Line S00008 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00035 M01S00008.ns2023 +++|** AAF - ALLOCATE TAF/CRM RECOVERY FILES.
00036 M00S00027.comkarf +++|*
00037 M00S00028.comkarf +++|* THE FILE HEADER MUST BE SET BY THE CALLER AS IT WILL
00038 M00S00029.comkarf +++|* APPEAR ON THE FILE, EXCEPT THE CREATION DATE AND TIME FIELD
00039 M00S00030.comkarf +++|* IS SET BY THE APPROPRIATE SUBROUTINE OF *ARF*.
00040 M00S00031.comkarf +++|*
00041 M00S00032.comkarf +++|* ENTRY (A0) = FWA OF FILE FET.
00042 M00S00033.comkarf +++|* (A5) = FWA OF FILE HEADER.
00043 M00S00034.comkarf +++|* (X5) = FIRST WORD OF FILE HEADER.
00044 M00S00035.comkarf +++|* (B1) = 1.
00045 M00S00036.comkarf +++|* (B7) = ENTRY CODE.
| Line S00037 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00046 M01S00037.ns2023 ---|* = 0, TO ALLOCATE A LONG RECOVERY FILE.
00047 M01S00038.ns2023 ---|* = 1, TO ALLOCATE A QUICK RECOVERY FILE.
| Line S00009 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00048 M01S00009.ns2023 +++|* = 0, TO ALLOCATE A AFTER IMAGE RECOVERY FILE.
00049 M01S00010.ns2023 +++|* = 1, TO ALLOCATE A BEFORE IMAGE RECOVERY FILE.
00050 M00S00039.comkarf +++|*
00051 M00S00040.comkarf +++|* EXIT (X6) = EXIT CONDITION.
00052 M00S00041.comkarf +++|* = 0, IF NO ERRORS ENCOUNTERED.
00053 M00S00042.comkarf +++|* > 0, CONTAINS CIO ERROR CODE.
00054 M00S00043.comkarf +++|* < 0, IF CONTENTS OF B7 ARE INVALID UPON ENTRY.
00055 M00S00044.comkarf +++|*
00056 M00S00045.comkarf +++|* USES X - NONE.
00057 M00S00046.comkarf +++|* B - 6.
00058 M00S00047.comkarf +++|* A - NONE.
00059 M00S00048.comkarf +++|*
00060 M00S00049.comkarf +++|* CALLS ALF, AQF, QSF.
00061 M00S00050.comkarf +++|
| Line S00051 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00062 M01S00051.ns2023 ---| ARF SUBR ENTRY/EXIT
| Line S00011 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00063 M01S00011.ns2023 +++| AAF SUBR ENTRY/EXIT
00064 M00S00052.comkarf +++| RJ QSF PRESET FET FIELDS
| Line S00053 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00065 M01S00053.ns2023 ---| NZ X6,ARFX IF CIO ERRORS ON REWIND - RETURN
| Line S00012 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00066 M01S00012.ns2023 +++| NZ X6,AAFX IF *CIO* ERRORS ON REWIND - RETURN
00067 M00S00054.comkarf +++| SB6 0 REQUEST CODE 0
| Line S00055 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00068 M01S00055.ns2023 ---| NE B7,B6,ARF1 IF REQUEST CODE NOT 0
00069 M01S00056.ns2023 ---| RJ ALF ALLOCATE LRF
00070 M01S00057.ns2023 ---| EQ ARFX RETURN
| Line S00013 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00071 M01S00013.ns2023 +++| NE B7,B6,AAF1 IF REQUEST CODE NOT 0
00072 M01S00014.ns2023 +++| RJ ALF ALLOCATE *ARF*
00073 M01S00015.ns2023 +++| EQ AAFX RETURN
00074 M00S00058.comkarf +++|
| Line S00059 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00075 M01S00059.ns2023 ---| ARF1 SB6 B6+1 REQUEST CODE 1
00076 M01S00060.ns2023 ---| NE B7,B6,ARF2 IF REQUEST CODE NOT 1
00077 M01S00061.ns2023 ---| RJ AQF ALLOCATE QRF
00078 M01S00062.ns2023 ---| EQ ARFX RETURN
| Line S00016 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00079 M01S00016.ns2023 +++| AAF1 SB6 B6+1 REQUEST CODE 1
00080 M01S00017.ns2023 +++| NE B7,B6,AAF2 IF REQUEST CODE NOT 1
00081 M01S00018.ns2023 +++| RJ AQF ALLOCATE *BRF*
00082 M01S00019.ns2023 +++| EQ AAFX RETURN
00083 M00S00063.comkarf +++|
| Line S00064 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00084 M01S00064.ns2023 ---| ARF2 SX6 -1
00085 M01S00065.ns2023 ---| EQ ARFX RETURN TO CALLER, WITH ERROR INDICATION
| Line S00020 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00086 M01S00020.ns2023 +++| AAF2 SX6 -1
00087 M01S00021.ns2023 +++| EQ AAFX RETURN TO CALLER, WITH ERROR INDICATION
00088 M00S00066.comkarf +++|
| Line S00067 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00089 M01S00067.ns2023 ---| ARFA CON 0 CURRENT PDATE
| Line S00022 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00090 M01S00022.ns2023 +++| AAFA CON 0 CURRENT PDATE
00091 M00S00068.comkarf +++| SPACE 4,10
| Line S00069 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00092 M01S00069.ns2023 ---|** ALF - ALLOCATE LONG RECOVERY FILE.
00093 M01S00070.ns2023 ---|*
00094 M01S00071.ns2023 ---|* THIS SUBROUTINE ALLOCATES ONE LONG RECOVERY FILE
| Line S00023 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00095 M01S00023.ns2023 +++|** ALF - ALLOCATE AFTER IMAGE RECOVERY FILE.
00096 M01S00024.ns2023 +++|*
00097 M01S00025.ns2023 +++|* THIS SUBROUTINE ALLOCATES ONE AFTER IMAGE RECOVERY FILE
00098 M00S00072.comkarf +++|* FOR TAF/CRM.
00099 M00S00073.comkarf +++|* THE FILE TO PREALLOCATE MUST HAVE BEEN REWOUND
00100 M00S00074.comkarf +++|* BY THE CALLER.
00101 M00S00075.comkarf +++|*
00102 M00S00076.comkarf +++|* ENTRY (A0) = FWA OF FILE FET.
00103 M00S00077.comkarf +++|* (A5) = FWA OF FILE HEADER.
00104 M00S00078.comkarf +++|* (X5) = FIRST WORD OF FILE HEADER.
00105 M00S00079.comkarf +++|* (B1) = 1.
00106 M00S00080.comkarf +++|*
00107 M00S00081.comkarf +++|* EXIT (X6) = EXIT CONDITION.
00108 M00S00082.comkarf +++|* 0 IF NO ERRORS ENCOUNTERED.
00109 M00S00083.comkarf +++|* .NE. 0 CONTAINS CIO ERROR CODE.
00110 M00S00084.comkarf +++|*
00111 M00S00085.comkarf +++|* USES X - 0, 1, 2, 3, 5, 6.
00112 M00S00086.comkarf +++|* B - 6, 7.
00113 M00S00087.comkarf +++|* A - 1, 2, 5, 6.
00114 M00S00088.comkarf +++|*
00115 M00S00089.comkarf +++|* CALLS QER, RFH.
00116 M00S00090.comkarf +++|*
00117 M00S00091.comkarf +++|* MACROS REWIND, REWRITEF, REWRITER, WRITE.
00118 M00S00092.comkarf +++|
00119 M00S00093.comkarf +++| ALF SUBR ENTRY/EXIT
00120 M00S00094.comkarf +++| MX6 0
00121 M00S00095.comkarf +++| SA1 A0+B1 FIRST
00122 M00S00096.comkarf +++| SA2 A0+4 LIMIT
00123 M00S00097.comkarf +++| SX1 X1
00124 M00S00098.comkarf +++| SX2 X2
00125 M00S00099.comkarf +++| IX2 X2-X1 AMOUNT OF BUFFER SPACE IN WORDS
00126 M00S00100.comkarf +++| BX0 X2 (X0) = AVAILABLE BUFFER SPACE
00127 M00S00101.comkarf +++| SB6 X2-1 SET COUNT OF WORDS TO ZERO OUT
00128 M00S00102.comkarf +++| ALF1 SA6 X1+B6 CLEAR ENTIRE BUFFER
00129 M00S00103.comkarf +++| SB6 B6-B1
00130 M00S00104.comkarf +++| PL B6,ALF1 IF MORE TO ZERO OUT
00131 M00S00105.comkarf +++| MX5 -TAFLN MASK FOR FILE LENGTH
00132 M00S00106.comkarf +++| SA2 A5+TAFLW-TAFNW
00133 M00S00107.comkarf +++| AX2 TAFLS-TAFLN+1
00134 M00S00108.comkarf +++| BX2 -X5*X2 EXTRACT FILE LENGTH (PRU-S)
00135 M00S00109.comkarf +++| SX5 B1+
00136 M00S00110.comkarf +++| IX5 X2+X5 ADD ONE PRU FOR HEADER RECORD
00137 M00S00111.comkarf +++| EQ ALF3 ENTER FILE PREALLOCATION LOOP
00138 M00S00112.comkarf +++|
00139 M00S00113.comkarf +++| ALF2 SA2 A0
00140 M00S00114.comkarf +++| LX2 59-0 COMPLETE BIT FROM FET
00141 M00S00115.comkarf +++| PL X2,ALF3 IF IO NOT COMPLETE
00142 M00S00116.comkarf +++| RJ QER CHECK FOR IO ERRORS ON FILE
00143 M00S00117.comkarf +++| NZ X6,ALFX IF CIO ERRORS - RETURN
00144 M00S00118.comkarf +++| WRITE A0
00145 M00S00119.comkarf +++| ALF3 ZR X5,ALF7 IF NO MORE PRU*S TO ALLOCATE
00146 M00S00120.comkarf +++| SA1 A0+2 IN
00147 M00S00121.comkarf +++| SA2 A1+B1 OUT
00148 M00S00122.comkarf +++| IX2 X2-X1 COMPUTE EMPTY SPACE
00149 M00S00123.comkarf +++| SB7 X2+
00150 M00S00124.comkarf +++| GT B7,ALF4 IF NO WRAP AROUND
00151 M00S00125.comkarf +++| IX2 X2+X0 SUBTRACT FROM TOTAL SPACE
00152 M00S00126.comkarf +++| ALF4 SX6 X2-64
00153 M00S00127.comkarf +++| NG X6,ALF2 IF LESS THAN ONE PRU
00154 M00S00128.comkarf +++| AX2 6 WORDS TO PRUS
00155 M00S00129.comkarf +++| IX3 X5-X2
00156 M00S00130.comkarf +++| PL X3,ALF5 IF AVAILABLE PRU*S .LE. REQUIRED PRU*S
00157 M00S00131.comkarf +++| SX2 X5+ CHANGE AVAILABLE PRU*S TO REQUIRED PRU*S
00158 M00S00132.comkarf +++| ALF5 SB7 X2+ SET DECREMENT COUNT
00159 M00S00133.comkarf +++| LX2 6
00160 M00S00134.comkarf +++| IX6 X1+X2 IN = IN + AVAILABLE SPACE
00161 M00S00135.comkarf +++| SA1 A2+B1 LIMIT
00162 M00S00136.comkarf +++| SX1 X1
00163 M00S00137.comkarf +++| IX3 X6-X1 IN - LIMIT
00164 M00S00138.comkarf +++| SA2 A0+B1 FIRST
00165 M00S00139.comkarf +++| NG X3,ALF6 IF NO WRAP AROUND
00166 M00S00140.comkarf +++| SX2 X2
00167 M00S00141.comkarf +++| IX6 X2+X3 RECOMPUTE IN
00168 M00S00142.comkarf +++| ALF6 SA6 A2+B1 SET IN POINTER
00169 M00S00143.comkarf +++| SX2 B7
00170 M00S00144.comkarf +++| IX5 X5-X2 DECREMENT PRU COUNT
00171 M00S00145.comkarf +++| NZ X5,ALF2 IF MORE PRU-S TO ALLOCATE
00172 M00S00146.comkarf +++| SB7 X6 SAVE LAST *IN* PIONTER
00173 M00S00147.comkarf +++| RECALL A0 WAIT FOR COMPLETION
00174 M00S00148.comkarf +++| SA1 A0+3 *OUT*
00175 M00S00149.comkarf +++| SX2 B7 LAST *IN*
00176 M00S00150.comkarf +++| BX1 X1-X2
00177 M00S00151.comkarf +++| NZ X1,ALF2 IF I/O COMPLETED BEFORE LAST *IN* STORED
00178 M00S00152.comkarf +++|*
00179 M00S00153.comkarf +++|* WRITE FILE HEADER.
00180 M00S00154.comkarf +++|*
00181 M00S00155.comkarf +++| ALF7 RECALL A0
00182 M00S00156.comkarf +++| RJ QER FETCH CIO STATUS
00183 M00S00157.comkarf +++| NZ X6,ALFX IF CIO ERROR - RETURN
00184 M00S00158.comkarf +++| REWIND A0,R
00185 M00S00159.comkarf +++| RJ RFH REWRITE FILE HEADER
00186 M00S00160.comkarf +++| EQ ALFX RETURN
00187 M00S00161.comkarf +++| SPACE 4,10
| Line S00162 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00188 M01S00162.ns2023 ---|** AQF - ALLOCATE QUICK RECOVERY FILE.
00189 M01S00163.ns2023 ---|*
00190 M01S00164.ns2023 ---|* THIS SUBROUTINE ALLOCATES ONE QUICK RECOVERY FILE FOR
| Line S00026 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00191 M01S00026.ns2023 +++|** AQF - ALLOCATE BEFORE IMAGE RECOVERY FILE.
00192 M01S00027.ns2023 +++|*
00193 M01S00028.ns2023 +++|* THIS SUBROUTINE ALLOCATES ONE BEFORE IMAGE RECOVERY FILE FOR
00194 M00S00165.comkarf +++|* TAF/CRM RECOVERY.
00195 M00S00166.comkarf +++|* THE FILE TO PREALLOCATE MUST BE REWOUND BY THE CALLER.
| Line S00167 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00196 M01S00167.ns2023 ---|* THE QRF BUFFER SIZE IS ASSUMED TO BE AN EVEN
00197 M01S00168.ns2023 ---|* MULTIPLE OF 64 WORDS (SEE *IAM* QRF BUFFER ALLOCATION).
| Line S00029 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00198 M01S00029.ns2023 +++|* THE BRF BUFFER SIZE IS ASSUMED TO BE AN EVEN
00199 M01S00030.ns2023 +++|* MULTIPLE OF 64 WORDS (SEE *IAM* BRF BUFFER ALLOCATION).
00200 M00S00169.comkarf +++|*
00201 M00S00170.comkarf +++|* ENTRY (A0) = FWA OF FILE FET.
00202 M00S00171.comkarf +++|* (A5) = FWA OF FILE HEADER.
00203 M00S00172.comkarf +++|* (X5) = FIRST WORD OF FILE.
00204 M00S00173.comkarf +++|* (B1) = 1.
00205 M00S00174.comkarf +++|*
00206 M00S00175.comkarf +++|* EXIT (X6) = EXIT CONDITION.
00207 M00S00176.comkarf +++|* 0 IF NO ERRORS.
00208 M00S00177.comkarf +++|* .NE. 0 CONTAINS CIO ERROR CODE.
00209 M00S00178.comkarf +++|*
00210 M00S00179.comkarf +++|* USES X - 1, 2, 5, 6.
00211 M00S00180.comkarf +++|* B - 6.
00212 M00S00181.comkarf +++|* A - 1, 2, 5, 6.
00213 M00S00182.comkarf +++|*
00214 M00S00183.comkarf +++|* CALLS QSF, QER.
00215 M00S00184.comkarf +++|*
00216 M00S00185.comkarf +++|* MACROS PDATE, REWIND, WRITER.
00217 M00S00186.comkarf +++|
00218 M00S00187.comkarf +++| AQF SUBR ENTRY/EXIT
00219 M00S00188.comkarf +++| SB6 TQHDL-1 FILE HEADER LENGTH
| Line S00189 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00220 M01S00189.ns2023 ---| PDATE ARFA PACKED DATE/TIME
00221 M01S00190.ns2023 ---| SA2 ARFA PACKED DATE/TIME
| Line S00031 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00222 M01S00031.ns2023 +++| PDATE AAFA PACKED DATE/TIME
00223 M01S00032.ns2023 +++| SA2 AAFA PACKED DATE/TIME
00224 M00S00191.comkarf +++| SA1 A5+TQCDW-TQFNW
00225 M00S00192.comkarf +++| LX2 TQCDS-35 POSITION DATE/TIME
00226 M00S00193.comkarf +++| MX6 36
00227 M00S00194.comkarf +++| BX1 -X6*X1
00228 M00S00195.comkarf +++| BX6 X1+X2 MERGE DATE/TIME
00229 M00S00196.comkarf +++| SA6 A1 CREATION DATE/TIME TO HEADER
00230 M00S00197.comkarf +++| SA1 A0+B1 FIRST
00231 M00S00198.comkarf +++| AQF1 SA2 A5+B6 MOVE HEADER TO FILE BUFFER
00232 M00S00199.comkarf +++| BX6 X2
00233 M00S00200.comkarf +++| SA6 X1+B6
00234 M00S00201.comkarf +++| SB6 B6-B1 DECREMENT COUNT REMAINING
00235 M00S00202.comkarf +++| PL B6,AQF1 IF MORE HEADER REMAINS
00236 M00S00203.comkarf +++| SX6 X1+TQHDL FIRST + HEADER LENGTH
00237 M00S00204.comkarf +++| SA6 A1+B1 SET IN
00238 M00S00205.comkarf +++| WRITER A0,R
00239 M00S00206.comkarf +++| RJ QER FETCH CIO STATUS
00240 M00S00207.comkarf +++| NZ X6,AQFX IF CIO ERROR - RETURN
00241 M00S00208.comkarf +++| SA2 A5+TQNSW-TQFNW
00242 M00S00209.comkarf +++| SX5 X5+
00243 M00S00210.comkarf +++| AX2 30 NUMBER OF SEGMENTS
00244 M00S00211.comkarf +++| IX2 X2*X5 NUMBER OF RECORDS TO WRITE
00245 M00S00212.comkarf +++| SA5 A0+4
00246 M00S00213.comkarf +++| SA1 A0+B1 FIRST
00247 M00S00214.comkarf +++| SX5 X5
00248 M00S00215.comkarf +++| SX1 X1
00249 M00S00216.comkarf +++| IX5 X5-X1 LIMIT - FIRST
00250 M00S00217.comkarf +++| SB6 X5-1 NO OF WORDS TO ZERO OUT
00251 M00S00218.comkarf +++| AQF2 SA6 X1+B6 CLEAR BUFFER AREA
00252 M00S00219.comkarf +++| SB6 B6-B1
00253 M00S00220.comkarf +++| PL B6,AQF2 IF NOT COMPLETE
00254 M00S00221.comkarf +++| SB6 X2+ SET NUMBER OF RECORDS TO WRITE
00255 M00S00222.comkarf +++| SA2 A0+4 LIMIT
00256 M00S00223.comkarf +++| AQF3 SX6 X2-2 INSURE WORDS NOT MULTIPLE OF 64
00257 M00S00224.comkarf +++| SA6 A0+2 IN
00258 M00S00225.comkarf +++| SX6 X1
00259 M00S00226.comkarf +++| SA6 A6+B1 SET OUT = FIRST
00260 M00S00227.comkarf +++| SA1 X1+5 SET RECORD NUMBER
00261 M00S00228.comkarf +++| SX6 X1+B1 UPDATE RECORD COUNT
00262 M00S00229.comkarf +++| SA6 A1 RECORD NUMBER TO FET
00263 M00S00230.comkarf +++| WRITER A0,R
00264 M00S00231.comkarf +++| RJ QER FETCH CIO STATUS
00265 M00S00232.comkarf +++| NZ X6,AQFX IF CIO ERROR - RETURN
00266 M00S00233.comkarf +++| SA2 A0+4 LIMIT
00267 M00S00234.comkarf +++| SA1 A0+B1 FIRST
00268 M00S00235.comkarf +++| SB6 B6-B1 DECREMENT RECORD COUNT
00269 M00S00236.comkarf +++| NE B6,B0,AQF3 IF MORE RECORDS TO WRITE
00270 M00S00237.comkarf +++| SX2 B1
00271 M00S00238.comkarf +++| LX2 45-0 UP BIT
00272 M00S00239.comkarf +++| BX6 -X2*X1 CLEAR UP BIT
00273 M00S00240.comkarf +++| LX2 47-45-0 R BIT
00274 M00S00241.comkarf +++| BX6 X1+X2 SET R BIT
00275 M00S00242.comkarf +++| SA6 A1+
00276 M00S00243.comkarf +++| REWIND A0,R
00277 M00S00244.comkarf +++| RJ QER FETCH CIO STATUS
00278 M00S00245.comkarf +++| EQ AQFX RETURN
00279 M00S00246.comkarf +++| SPACE 4,10
00280 M00S00247.comkarf +++|** RFH - REWRITE THE FILE HEADER ON AN *ARF* FILE.
00281 M00S00248.comkarf +++|*
00282 M00S00249.comkarf +++|* THIS SUBROUTINE CLEARS THE *UP* BIT, SETS THE *R* BIT,
00283 M00S00250.comkarf +++|* PACKS THE DATE/TIME THEN REWRITES THE FILE HEADER. AN
00284 M00S00251.comkarf +++|* *EOF* MARKER IS WRITTEN AFTER THE HEADER.
00285 M00S00252.comkarf +++|*
00286 M00S00253.comkarf +++|* ENTRY (A0) = FWA OF FILE FET.
00287 M00S00254.comkarf +++|* (A5) = FWA OF FILE HEADER.
00288 M00S00255.comkarf +++|* (B1) = 1.
00289 M00S00256.comkarf +++|* (ARFA) = PACKED DATE/TIME.
00290 M00S00257.comkarf +++|*
00291 M00S00258.comkarf +++|* EXIT (X6) = 0 - IF NO ERRORS.
00292 M00S00259.comkarf +++|* .NE. 0 IF CIO ERRORS.
00293 M00S00260.comkarf +++|* FILE HEADER REWRITTEN FOLLOWED BY *EOF* MARKER.
00294 M00S00261.comkarf +++|*
00295 M00S00262.comkarf +++|* USES X - 1, 2, 6.
00296 M00S00263.comkarf +++|* B - 1, 6.
00297 M00S00264.comkarf +++|* A - 1, 2, 6.
00298 M00S00265.comkarf +++|*
00299 M00S00266.comkarf +++|* CALLS QER.
00300 M00S00267.comkarf +++|*
00301 M00S00268.comkarf +++|* MACROS PDATE, REWRITER, REWRITEF, REWIND.
00302 M00S00269.comkarf +++|
00303 M00S00270.comkarf +++| RFH SUBR ENTRY/EXIT
| Line S00271 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00304 M01S00271.ns2023 ---| PDATE ARFA PACKED DATE/TIME
| Line S00033 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00305 M01S00033.ns2023 +++| PDATE AAFA
00306 M00S00272.comkarf +++| SA1 A0+B1
00307 M00S00273.comkarf +++| MX2 59
00308 M00S00274.comkarf +++| LX2 45-0 UP BIT
00309 M00S00275.comkarf +++| BX1 X2*X1 CLEAR UP BIT
00310 M00S00276.comkarf +++| LX2 47-45-0 R BIT
00311 M00S00277.comkarf +++| BX6 -X2+X1 SET R BIT
| Line S00278 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00312 M01S00278.ns2023 ---| SA2 ARFA PACKED DATE/TIME
| Line S00034 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00313 M01S00034.ns2023 +++| SA2 AAFA PACKED DATE/TIME
00314 M00S00279.comkarf +++| SA6 A1
00315 M00S00280.comkarf +++| BX6 X2
00316 M00S00281.comkarf +++| SA6 A5+TACDW-TAFNW
00317 M00S00282.comkarf +++| SB6 TAHDL-1 FILE HEADER LENGTH
00318 M00S00283.comkarf +++| RFH1 SA2 A5+B6 MOVE FILE HEADER TO FILE BUFFER
00319 M00S00284.comkarf +++| BX6 X2
00320 M00S00285.comkarf +++| SA6 X1+B6
00321 M00S00286.comkarf +++| SB6 B6-B1
00322 M00S00287.comkarf +++| PL B6,RFH1 IF NOT COMPLETED
00323 M00S00288.comkarf +++| SA1 A1+B1
00324 M00S00289.comkarf +++| SX6 X1+TAHDL
00325 M00S00290.comkarf +++| SA6 A1 SET IN
00326 M00S00291.comkarf +++| REWRITER A0,R WRITE FILE HEADER IN PLACE
00327 M00S00292.comkarf +++| REWRITEF A0,R WRITE *EOF* TO SET FILE EMPTY
00328 M00S00293.comkarf +++| REWIND A0,R
00329 M00S00294.comkarf +++| RJ QER FETCH CIO STATUS
00330 M00S00295.comkarf +++| EQ RFHX RETURN
00331 M00S00296.comkarf +++| SPACE 4,10
00332 M00S00297.comkarf +++|** QER - CHECK CIO ERROR ON FILE.
00333 M00S00298.comkarf +++|*
00334 M00S00299.comkarf +++|* RETURNS CIO ERROR CODE TO CALLER.
00335 M00S00300.comkarf +++|*
00336 M00S00301.comkarf +++|* ENTRY (A0) = FWA OF FET.
00337 M00S00302.comkarf +++|*
00338 M00S00303.comkarf +++|* EXIT (X6) = CIO ERROR CODE.
00339 M00S00304.comkarf +++|*
00340 M00S00305.comkarf +++|* USES X - 1, 6.
00341 M00S00306.comkarf +++|* B - NONE.
00342 M00S00307.comkarf +++|* A - 1.
00343 M00S00308.comkarf +++|*
00344 M00S00309.comkarf +++|* CALLS QER.
00345 M00S00310.comkarf +++|
00346 M00S00311.comkarf +++| QER SUBR ENTRY/EXIT
00347 M00S00312.comkarf +++| SA1 A0
00348 M00S00313.comkarf +++| MX6 -4
00349 M00S00314.comkarf +++| AX1 10
00350 M00S00315.comkarf +++| BX6 -X6*X1 CIO ERROR CODE
00351 M00S00316.comkarf +++| EQ QERX RETURN
00352 M00S00317.comkarf +++| SPACE 4,10
00353 M00S00318.comkarf +++|** QSF - PRESET FET FIELDS.
00354 M00S00319.comkarf +++|*
00355 M00S00320.comkarf +++|* SETS/CLEARS THE FOLLOWING FET FIELDS:
00356 M00S00321.comkarf +++|* SET EP AND UP BITS.
00357 M00S00322.comkarf +++|* CLEARS R BIT, AND CURRENT RANDOM INDEX.
00358 M00S00323.comkarf +++|* SET FILE NAME.
00359 M00S00324.comkarf +++|* IT ALSO REWINDS THE FILE.
00360 M00S00325.comkarf +++|*
00361 M00S00326.comkarf +++|* ENTRY (A0) = FWA OF FILE FET.
00362 M00S00327.comkarf +++|* (X5) = FILE NAME.
00363 M00S00328.comkarf +++|* (B1) = 1.
00364 M00S00329.comkarf +++|*
00365 M00S00330.comkarf +++|* EXIT (X6) = CIO ERROR CODE.
00366 M00S00331.comkarf +++|*
00367 M00S00332.comkarf +++|* USES X - 0, 1, 6.
00368 M00S00333.comkarf +++|* B - NONE.
00369 M00S00334.comkarf +++|* A - 1, 6.
00370 M00S00335.comkarf +++|*
00371 M00S00336.comkarf +++|* CALLS NONE.
00372 M00S00337.comkarf +++|*
00373 M00S00338.comkarf +++|* MACROS REWIND.
00374 M00S00339.comkarf +++|
00375 M00S00340.comkarf +++| QSF SUBR ENTRY/EXIT
00376 M00S00341.comkarf +++| MX0 42 FILE MASK
00377 M00S00342.comkarf +++| BX6 X0*X5
00378 M00S00343.comkarf +++| SA1 A0
00379 M00S00344.comkarf +++| BX1 -X0*X1
00380 M00S00345.comkarf +++| BX6 X1+X6
00381 M00S00346.comkarf +++| SA6 A0 FILE NAME TO FET
00382 M00S00347.comkarf +++| MX0 1
00383 M00S00348.comkarf +++| SA1 A1+B1 FET+1
00384 M00S00349.comkarf +++| LX0 48-0 R BIT
00385 M00S00350.comkarf +++| BX1 -X0*X1 CLEAR R BIT
00386 M00S00351.comkarf +++| SX6 3
00387 M00S00352.comkarf +++| LX6 44-0 EP, UP BITS
00388 M00S00353.comkarf +++| BX6 X1+X6 SET EP AND UP BITS
00389 M00S00354.comkarf +++| SA6 A1
00390 M00S00355.comkarf +++| BX6 X6-X6
00391 M00S00356.comkarf +++| SA6 A0+6 CLEAR CURRENT RANDOM INDEX
00392 M00S00357.comkarf +++| REWIND A0,R
00393 M00S00358.comkarf +++| RJ QER CHECK CIO ERROR
00394 M00S00359.comkarf +++| EQ QSFX RETURN
00395 M00S00360.comkarf +++| SPACE 4,10
00396 M00S00361.comkarf +++| BASE *
00397 M00S00362.comkarf +++|QUAL$ IF -DEF,QUAL$
00398 M00S00363.comkarf +++| QUAL *
| Line S00364 Modification History |
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00399 M01S00364.ns2023 ---| ARF EQU /COMKARF/ARF
| Line S00035 Modification History |
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act
----------------------------+
00400 M01S00035.ns2023 +++| AAF EQU /COMKARF/AAF
00401 M00S00365.comkarf +++| RFH EQU /COMKARF/RFH
00402 M00S00366.comkarf +++|QUAL$ ENDIF
00403 M00S00367.comkarf +++| ENDX