Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.qmove +++| IDENT QMOVE1,OVLA,QMOVE,01,00
00002 M00S00002.qmove +++| ABS
00003 M00S00003.qmove +++| SST
00004 M00S00004.qmove +++| SYSCOM B1
00005 M00S00005.qmove +++|*COMMENT QMOVE - QUEUE MOVE PROCESSOR.
| Line S00006 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00008 M00S00007.qmove +++| TITLE QMOVE - QUEUE MOVE PROCESSOR.
00009 M00S00008.qmove +++| SPACE 4
00010 M00S00009.qmove +++|*** QMOVE - QUEUE MOVE PROCESSOR.
00011 M00S00010.qmove +++|* A. J. BEEKMAN. 76/03/11.
00012 M00S00011.qmove +++| SPACE 4
00013 M00S00012.qmove +++|*** *QMOVE* IS A UTILITY PROGRAM THAT MOVES QUEUE FILES FROM ONE
00014 M00S00013.qmove +++|* MASS STORAGE DEVICE TO ANOTHER AND PROVIDES A LIST OF ALL
00015 M00S00014.qmove +++|* FILES MOVED WITH INFORMATION RELATIVE TO EACH.
00016 M00S00015.qmove +++| SPACE 4
00017 M00S00016.qmove +++|*** *QMOVE* MAY BE CALLED FROM THE CONSOLE BY THE QUEUED FILE
| Line S00017 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00018 M01S00017.v23l617 ---|* SUPERVISOR PROGRAM (X.QFSP.) OR BY CONTROL STATEMENT. THE
00019 M01S00018.v23l617 ---|* CONTROL STATEMENT FORMAT IS -
| Line S00001 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00020 M01S00001.v23l617 +++|* SUPERVISOR PROGRAM (X.QFSP.) OR BY COMMAND. THE
00021 M01S00002.v23l617 +++|* COMMAND FORMAT IS -
00022 M00S00019.qmove +++|*
00023 M00S00020.qmove +++|* QMOVE(P1=A1,P2=A2,...,PN=AN)
00024 M00S00021.qmove +++|*
00025 M00S00022.qmove +++|* WHERE P1 - PN ARE ANY OF THE FOLLOWING VALID PARAMETERS -
00026 M00S00023.qmove +++|*
00027 M00S00024.qmove +++|* MI = MACHINE ID.
00028 M00S00025.qmove +++|*
00029 M00S00026.qmove +++|* FM = FAMILY NAME TO MOVE FROM.
00030 M00S00027.qmove +++|*
00031 M00S00028.qmove +++|* DN = DEVICE NUMBER (FAMILY MUST BE SPECIFIED FIRST).
00032 M00S00029.qmove +++|*
00033 M00S00030.qmove +++|* THE FM AND DN PARAMETERS ARE USED TO DESCRIBE THE
00034 M00S00031.qmove +++|* FAMILY AND DEVICE OR SET OF FAMILIES OR DEVICES FROM
00035 M00S00032.qmove +++|* WHICH THE QUEUED FILES SHOULD BE MOVED. FM MAY BE
00036 M00S00033.qmove +++|* *ALL*, IN WHICH CASE DN MUST ALSO BE *ALL*.
00037 M00S00034.qmove +++|*
00038 M00S00035.qmove +++|* DF = DESTINATION FAMILY NAME.
00039 M00S00036.qmove +++|*
00040 M00S00037.qmove +++|* DD = DESTINATION DEVICE NUMBER (DESTINATION FAMILY MUST
00041 M00S00038.qmove +++|* BE SPECIFIED FIRST).
00042 M00S00039.qmove +++|*
00043 M00S00040.qmove +++|* THE DF AND DD PARAMETERS ARE USED TO DESCRIBE THE
00044 M00S00041.qmove +++|* FAMILY AND DEVICE TO WHICH THE QUEUED FILES SHOULD BE
00045 M00S00042.qmove +++|* MOVED. *ALL* IS NOT A LEGAL VALUE FOR THESE
00046 M00S00043.qmove +++|* PARAMETERS.
00047 M00S00044.qmove +++|*
00048 M00S00045.qmove +++|* FU = FAMILY NAME FOR USER INDEX.
00049 M00S00046.qmove +++|*
00050 M00S00047.qmove +++|* UI = USER INDEX RANGE (0 - 377777B).
00051 M00S00048.qmove +++|*
00052 M00S00049.qmove +++|* THE FU AND UI PARAMETERS DESCRIBE THE FAMILY AND USER
00053 M00S00050.qmove +++|* INDICIES OF THE QUEUED FILES WHICH ARE TO BE MOVED.
00054 M00S00051.qmove +++|*
00055 M00S00052.qmove +++|* DA = MOVE DATE RANGE. FORM IS YYMMDD WHERE YY IS THE
00056 M00S00053.qmove +++|* YEAR, MM THE MONTH, AND DD THE DAY. IT CAN ALSO BE
00057 M00S00054.qmove +++|* SPECIFIED AS ALL (DA=ALL) WHICH WILL SELECT ALL DATES.
00058 M00S00055.qmove +++|*
00059 M00S00056.qmove +++|* FS = FILE SIZE RANGE IN PRUS (0-777777B).
00060 M00S00057.qmove +++|* IF 777777B IS SPECIFIED, SIZES LARGER ARE ALSO INCLUDED.
00061 M00S00058.qmove +++|*
00062 M00S00059.qmove +++|* JSN = JOB SEQUENCE NUMBERS OF FILES TO MOVE. UP TO 5
00063 M00S00060.qmove +++|* ALLOWED. IF PREVIOUSLY ENTERED, THE JSN WILL BE
00064 M00S00061.qmove +++|* CLEARED.
00065 M00S00062.qmove +++|*
00066 M00S00063.qmove +++|* ID = ID RANGE OF BATCH AND SYSTEM ORIGIN FILES TO MOVE
00067 M00S00064.qmove +++|* (0 - 77B).
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00068 M01S00001.ns22000 +++|*
00069 M01S00002.ns22000 +++|* LA = LOWER SECURITY ACCESS LEVEL (1-7 CHARACTERS).
00070 M01S00003.ns22000 +++|*
00071 M01S00004.ns22000 +++|* UA = UPPER SECURITY ACCESS LEVEL (1-7 CHARACTERS).
00072 M00S00065.qmove +++|*
| Line S00066 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00073 M01S00066.ns22000 ---|* TUI= DESTINATION TUI OF REMOTE BATCH ORIGIN FILES TO MOVE.
| Line S00005 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00074 M01S00005.ns22000 +++|* TUI= DESITNATION TUI OF REMOTE BATCH FILES TO MOVE
00075 M00S00067.qmove +++|* TUI=0 IMPLIES MOVE ALL REMOTE BATCH FILES.
00076 M00S00068.qmove +++|*
00077 M00S00069.qmove +++|* TF = DESTINATION FAMILY FOR TERMINAL FOR SELECTING FILES
00078 M00S00070.qmove +++|* IN THE REMOTE BATCH QUEUE.
00079 M00S00071.qmove +++|*
00080 M00S00072.qmove +++|* FC = FORMS CODE. MAY BE A SINGLE ENTRY (FC=F1), A LIST
00081 M00S00073.qmove +++|* (FC=F1/F2/F3), OR A RANGE (FC=F1-F2) WHERE F1 IS
00082 M00S00074.qmove +++|* 2 CHARACTERS, ALL, OR NULL (SPECIFIED BY **).
00083 M00S00075.qmove +++|*
| Line S00076 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00084 M01S00076.v23l617 ---|* I = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A CONTROL
00085 M01S00077.v23l617 ---|* STATEMENT PARAMETER SPECIFYING WHAT FILE SHOULD
| Line S00003 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00086 M01S00003.v23l617 +++|* I = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A
00087 M01S00004.v23l617 +++|* COMMAND PARAMETER SPECIFYING WHAT FILE SHOULD
00088 M00S00078.qmove +++|* BE READ FOR INPUT DIRECTIVES. THESE DIRECTIVES
00089 M00S00079.qmove +++|* CONSIST OF ANY LEGAL K-DISPLAY INPUT OR COMMANDS.
00090 M00S00080.qmove +++|* THESE DIRECTIVES WILL BE PROCESSED AFTER THE
| Line S00081 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00091 M01S00081.v23l617 ---|* CONTROL STATEMENT DIRECTIVES BUT BEFORE ANY
| Line S00005 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00092 M01S00005.v23l617 +++|* COMMAND DIRECTIVES BUT BEFORE ANY
00093 M00S00082.qmove +++|* K-DISPLAY INPUT IS ACCEPTED.
00094 M00S00083.qmove +++|*
00095 M00S00084.qmove +++|* L = FILE NAME TO RECEIVE OUTPUT.
00096 M00S00085.qmove +++|*
00097 M00S00086.qmove +++|* TP = TYPE TO MOVE.
00098 M00S00087.qmove +++|* A - MOVE ACTIVE QUEUE FILES.
00099 M00S00088.qmove +++|* I - MOVE INACTIVE QUEUE FILES.
00100 M00S00089.qmove +++|* ALL - MOVE ACTIVE AND INACTIVE QUEUE FILES.
00101 M00S00090.qmove +++|*
00102 M00S00091.qmove +++|* OP = MOVE OPTION.
00103 M00S00092.qmove +++|* A - LEAVE QUEUE FILES AS ACTIVE FILES.
00104 M00S00093.qmove +++|* I - LEAVE QUEUE FILES AS INACTIVE FILES.
00105 M00S00094.qmove +++|*
| Line S00095 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00106 M01S00095.ns22000 ---|* OT = DT. SELECT ORIGIN TYPE BY DISPOSITION TYPE. MAY BE
00107 M01S00096.ns22000 ---|* ENTERED MORE THAN ONCE. OPTION WILL BE CLEARED
| Line S00006 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00108 M01S00006.ns22000 +++|* DS = DT. SELECT FILE DESTINATION BY DISPOSITION TYPE.
00109 M01S00007.ns22000 +++|* MAY BE ENTERED MORE ONCE. OPTION WILL BE CLEARED
00110 M00S00097.qmove +++|* IF PREVIOUSLY SELECTED.
00111 M00S00098.qmove +++|* OT MAY BE -
| Line S00099 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00112 M01S00099.ns22000 ---|* BC - BATCH ORIGIN.
00113 M01S00100.ns22000 ---|* RB - REMOTE BATCH ORIGIN.
00114 M01S00101.ns22000 ---|* SY - SYSTEM ORIGIN.
| Line S00008 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00115 M01S00008.ns22000 +++|* BC - BATCH.
00116 M01S00009.ns22000 +++|* RB - REMOTE BATCH.
00117 M00S00102.qmove +++|* DT MAY BE -
00118 M00S00103.qmove +++|* SF - SPECIAL INSTALLATION DEFINED QUEUE FILES.
00119 M00S00104.qmove +++|* IN - INPUT.
00120 M00S00105.qmove +++|* PU - PUNCH.
00121 M00S00106.qmove +++|* PL - PLOT.
00122 M00S00107.qmove +++|* PR - PRINT (ANY PRINTER).
00123 M00S00108.qmove +++|* P2 - PRINT (512 PRINTER).
00124 M00S00109.qmove +++|* LR - PRINT (580-12 PRINTER).
00125 M00S00110.qmove +++|* LS - PRINT (580-16 PRINTER).
00126 M00S00111.qmove +++|* LT - PRINT (580-20 PRINTER).
| Line S00001 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
00127 M01S00001.241l630 +++|* LX - PRINT (5870 NIP).
00128 M01S00002.241l630 +++|* LY - PRINT (5970 NIP).
00129 M00S00112.qmove +++|* WT - WAIT.
00130 M00S00113.qmove +++|* PRINT - ALL PRINT TYPES.
00131 M00S00114.qmove +++|* ALL - ALL TYPES.
00132 M00S00115.qmove +++|* NONE - NO TYPES.
00133 M00S00116.qmove +++|*
00134 M00S00117.qmove +++|* PO = PROCESSING OPTIONS WHERE OPTIONS ARE DEFINED AS
00135 M00S00118.qmove +++|* THE FOLLOWING -
| Line S00119 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00136 M01S00119.v23l617 ---|* N - IF SPECIFIED, ONLY CONTROL STATEMENT DIRECTIVES
| Line S00006 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00137 M01S00006.v23l617 +++|* N - IF SPECIFIED, ONLY COMMAND DIRECTIVES
00138 M00S00120.qmove +++|* WILL BE PROCESSED. K-DISPLAY IS AVAILABLE
00139 M00S00121.qmove +++|* FOR MONITORING THE UTILITY PROGRESS, BUT NO
00140 M00S00122.qmove +++|* K-DISPLAY INPUT IS ALLOWED. THE N PARAMETER
00141 M00S00123.qmove +++|* IS IMPLIED ON ALL NON-SYSTEM ORIGIN JOBS.
00142 M00S00124.qmove +++|* E - IF SPECIFIED, ERRORED FILE PROCESSING STATUS
00143 M00S00125.qmove +++|* WILL BE TOGGLED.
00144 M00S00126.qmove +++|* F - IF SPECIFIED, ON ACTIVATE REQUESTS ENTRIES WILL
00145 M00S00127.qmove +++|* BE MADE IN THE FOT FOR THE INACTIVE FAMILIES
00146 M00S00128.qmove +++|* AND THE FILES WILL BE QUEUED. DEFAULT IS TO
00147 M00S00129.qmove +++|* IGNORE THOSE FILES.
| Line S00001 Modification History |
M01 (Added by) | ns2330 |
Seq # *Modification Id* Act
----------------------------+
00148 M01S00001.ns2330 +++|* I - IF SPECIFIED, INACTIVE INPUT QUEUE FILES WILL BE
00149 M01S00002.ns2330 +++|* ACTIVATED WHEN THE OWNER FAMILY IS NOT PRESENT.
| Line S00001 Modification History |
M01 (Added by) | ns2490 |
Seq # *Modification Id* Act
----------------------------+
00150 M01S00001.ns2490 +++|* U - IF SPECIFIED, UNCONDITIONALLY LOAD FILES WITHIN
00151 M01S00002.ns2490 +++|* SECURITY RESTRAINTS AND SYSTEM FILE INTEGRITY.
00152 M00S00130.qmove +++|*
00153 M00S00131.qmove +++|* DEFAULT VALUES DEFINED IN *QFSP*.
00154 M00S00132.qmove +++|*
00155 M00S00133.qmove +++|* *K* DISPLAY COMMANDS AVAILABLE TO *QMOVE* ARE -
00156 M00S00134.qmove +++|*
00157 M00S00135.qmove +++|* GO. - PROCEED WITH PROCESSING.
00158 M00S00136.qmove +++|* STOP. - TERMINATE INPUT, END RUN.
00159 M00S00137.qmove +++|* RESET. - RESET PARAMETERS TO DEFAULT VALUES.
00160 M00S00138.qmove +++|* OUT. - RELEASE FILE SPECIFIED BY L PARAMETER TO PRINTER.
00161 M00S00139.qmove +++|* ERROR. - TOGGLE STATUS OF ERRORED FILE PROCESSING. IF SET,
00162 M00S00140.qmove +++|* ERRORED FILES WILL BE MOVED. DEFAULT IS NOT SET.
00163 M00S00141.qmove +++|* FAMILY. - IF SPECIFIED, ON ACTIVATE REQUESTS ENTRIES
00164 M00S00142.qmove +++|* WILL BE MADE IN THE FOT FOR THE INACTIVE FAMILIES
00165 M00S00143.qmove +++|* AND THE FILES WILL BE QUEUED. DEFAULT IS
00166 M00S00144.qmove +++|* TO IGNORE THOSE FILES.
00167 M00S00145.qmove +++| SPACE 4
00168 M00S00146.qmove +++|** ENTRY CONDITIONS.
00169 M00S00147.qmove +++|*
00170 M00S00148.qmove +++|* *QMOVE* IS ENTERED VIA RETURN JUMP FROM *QFSP*.
00171 M00S00149.qmove +++|*
00172 M00S00150.qmove +++|* *TARA* = FWA OF THE PARAMETER TABLE.
| Line S00010 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00173 M01S00010.ns22000 +++|* *TDAA* = FWA OF DEVICE ACCESS LEVEL TABLE.
00174 M00S00151.qmove +++|* *TEQA* = FWA OF THE MASS STORAGE EQUIPMENT TABLE.
00175 M00S00152.qmove +++|* *QFTA* = *QFTP* WORD FROM CENTRAL MEMORY RESIDENT.
00176 M00S00153.qmove +++|* *FOTA* = FWA OF THE FAMILY ORDINAL TABLE.
00177 M00S00154.qmove +++| SPACE 4
00178 M00S00155.qmove +++|*** DAYFILE MESSAGES.
00179 M00S00156.qmove +++|*
00180 M00S00157.qmove +++|* THE FOLLOWING MESSAGES ARE ISSUED TO THE DAYFILE AND
00181 M00S00158.qmove +++|* THE *K* DISPLAY UNLESS NOTED OTHERWISE.
00182 M00S00159.qmove +++|*
00183 M00S00160.qmove +++|*
00184 M00S00161.qmove +++|* * FOT FULL - FILES IGNORED.* - SOME OF THE QUEUED FILES
00185 M00S00162.qmove +++|* WERE NOT PROCESSED BECAUSE THERE WAS NO FOT ENTRY FOR THE
00186 M00S00163.qmove +++|* CREATION AND/OR THE DESTINATION FAMILY AND THE FOT WAS
00187 M00S00164.qmove +++|* FULL (MESSAGE ISSUED BY *COMCVQF*). (DAYFILE ONLY).
00188 M00S00165.qmove +++|*
| Line S00166 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00189 M01S00166.ns22000 ---|* * JSN EQNN TRACK TTTT LENGTH ERROR.* = THE QUEUE
| Line S00011 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00190 M01S00011.ns22000 +++|* * JSN EQNNNN TRACK TTTT LENGTH ERROR.* = THE QUEUE
00191 M00S00167.qmove +++|* FILE ON THE SPECIFIED EQUIPMENT AND TRACK WAS
00192 M00S00168.qmove +++|* DETECTED AS HAVING A LENGTH ERROR AT RECOVERY TIME.
00193 M00S00169.qmove +++|* CONTACT AN ANALYST AND BRING THIS TO HIS ATTENTION.
00194 M00S00170.qmove +++|* (DAYFILE ONLY).
00195 M00S00171.qmove +++|*
| Line S00172 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00196 M01S00172.v23l617 ---|* * ILLEGAL MOVE REQUESTED.* = ONE OF THE FOLLOWING
| Line S00007 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00197 M01S00007.v23l617 +++|* * INCORRECT MOVE REQUESTED.* = ONE OF THE FOLLOWING
00198 M00S00173.qmove +++|* CONDITIONS IS TRUE -
00199 M00S00174.qmove +++|* 1) DEVICE SPECIFIED IS NOT MASS STORAGE.
00200 M00S00175.qmove +++|* 2) DESTINATION DEVICE IS REMOVABLE AND OPTION IS A.
00201 M00S00176.qmove +++|* 3) DESTINATION DEVICE HAS ERROR IDLE SET.
00202 M00S00177.qmove +++|* ENTER THE CORRECT PARAMETERS AND RETRY OPERATION.
| Line S00012 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00203 M01S00012.ns22000 +++|*
| Line S00013 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00204 M02S00013.v23l617 ---|* * INVALID DEVICE ACCESS LEVEL.*
| Line S00008 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00205 M01S00008.v23l617 +++|* * INCORRECT DEVICE ACCESS LEVEL.*
| Line S00014 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00206 M01S00014.ns22000 +++|* THE JOB DOING THE *QMOVE* IS NOT VALIDATED FOR THE
00207 M01S00015.ns22000 +++|* ACCESS LEVELS OF THE DEVICE.
00208 M00S00178.qmove +++|*
00209 M00S00179.qmove +++|* * IQFT FILE ERROR DN XX FAMILY AAAAAAA.* = AN ERROR HAS
00210 M00S00180.qmove +++|* BEEN ENCOUNTERED ATTACHING OR READING THE IQFT FILE.
00211 M00S00181.qmove +++|* THE MESSAGE FOLLOWING THIS MESSAGE IN THE DAYFILE
00212 M00S00182.qmove +++|* DESCRIBES THE ERROR. (DAYFILE ONLY).
00213 M00S00183.qmove +++|*
00214 M00S00184.qmove +++|* * OUTPUT FILE NAME CONFLICT.* = THE SPECIFIED OUTPUT
00215 M00S00185.qmove +++|* FILE NAME CONFLICTS WITH A NAME ALREADY IN USE.
00216 M00S00186.qmove +++|* CHANGE THE OUTPUT FILE NAME AND RETRY.
00217 M00S00187.qmove +++|*
00218 M00S00188.qmove +++|* * QFT THRESHOLD LIMIT.* = THE QFT THRESHOLD FOR THE
00219 M00S00189.qmove +++|* NUMBER OF QUEUE FILES ALLOWED IN THE QFT AS
00220 M00S00190.qmove +++|* A RESULT OF REQUEUING HAS BEEN REACHED. NO
00221 M00S00191.qmove +++|* MORE QUEUE FILES MAY BE ACTIVATED UNTIL SOME OF THESE
00222 M00S00192.qmove +++|* FILES ARE RELEASED.
00223 M00S00193.qmove +++|*
00224 M00S00194.qmove +++|* * QMOVE ABORTED.* = AN ERROR HAS BEEN DETECTED WHICH
00225 M00S00195.qmove +++|* IS NOT PROCESSED BY QMOVE ERROR PROCESSING. ATTEMPTS
00226 M00S00196.qmove +++|* HAVE BEEN MADE TO REMEDY THE SITUATION, BUT DISCRETION
00227 M00S00197.qmove +++|* SHOULD BE USED IN CONTINUED USE OF QMOVE. IN ANY
00228 M00S00198.qmove +++|* CASE, AN ANALYST SHOULD BE CONTACTED. CHECK THE
00229 M00S00199.qmove +++|* DAYFILE FOR THE ERROR THAT CAUSED THE ABORT.
00230 M00S00200.qmove +++|*
00231 M00S00201.qmove +++|* * QUEUE STATUS INDEFINITE.* = QMOVE HAS NOT BEEN ABLE TO
00232 M00S00202.qmove +++|* FINISH THE CLEAN UP AFTER AN ERROR OR ERROR EXIT. THE
00233 M00S00203.qmove +++|* STATUS OF IQFTS AND QUEUED FILES IS UNKNOWN. A LEVEL ZERO
00234 M00S00204.qmove +++|* DEADSTART IS RECOMMENDED TO CLEAN UP THE IQFT FILES.
| Line S00001 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
00235 M01S00001.ns2099 +++|*
00236 M01S00002.ns2099 +++|* * IQFT NOT FOUND.* = ALL DEVICES SHOULD HAVE
00237 M01S00003.ns2099 +++|* AN IQFT FILE. DEVICE SHOULD BE INITIALIZED TO CREATE
00238 M01S00004.ns2099 +++|* AN IQFT.
00239 M00S00205.qmove +++|*
00240 M00S00206.qmove +++|* * QUEUES UNRECOVERABLE THIS DEVICE.* = THE IQFT FILE
00241 M00S00207.qmove +++|* ON THE SPECIFIED DEVICE CANNOT BE READ PROPERLY. AN
00242 M00S00208.qmove +++|* ANALYST SHOULD BE CONTACTED. (DAYFILE ONLY).
00243 M00S00209.qmove +++|*
00244 M00S00210.qmove +++|* * XXXX FILES ACTIVATED DNYY FM AAAAAAA.* = NUMBER OF
00245 M00S00211.qmove +++|* QUEUED FILES ACTIVATED THIS DEVICE.
00246 M00S00212.qmove +++|*
00247 M00S00213.qmove +++|* * XXXX QUEUE FILES INTERLOCKED.* = NUMBER OF QUEUE FILES
00248 M00S00214.qmove +++|* INTERLOCKED ON THE DESTINATION DEVICE DUE TO
00249 M00S00215.qmove +++|* UNRECOVERABLE WRITE ERRORS OCCURING WHILE WRITING TO THAT
00250 M00S00216.qmove +++|* DEVICE.
00251 M00S00217.qmove +++|*
00252 M00S00218.qmove +++|* * XXXX FILES DEQUEUED DNYY FM AAAAAAA.* = NUMBER OF
00253 M00S00219.qmove +++|* QUEUED FILES DEQUEUED THIS DEVICE.
00254 M00S00220.qmove +++|*
00255 M00S00221.qmove +++|* * XXXX FILES IGNORED DNYY FM AAAAAAA.* = NUMBER OF
00256 M00S00222.qmove +++|* QUEUED FILE IGNORED THIS DEVICE ON THIS OPERATION.
00257 M00S00223.qmove +++|*
00258 M00S00224.qmove +++|* * XXXX FILES MOVED (A) DNYY FM AAAAAAA.* = NUMBER OF
00259 M00S00225.qmove +++|* ACTIVE QUEUED FILES MOVED AND LEFT ACTIVE THIS DEVICE.
00260 M00S00226.qmove +++|*
00261 M00S00227.qmove +++|* * XXXX FILES MOVED (I) DNYY FM AAAAAAA.* = NUMBER OF
00262 M00S00228.qmove +++|* INACTIVE QUEUED FILES MOVED AND LEFT INACTIVE THIS
00263 M00S00229.qmove +++|* DEVICE.
00264 M00S00230.qmove +++| SPACE 4
00265 M00S00231.qmove +++|*** *K* DISPLAY OPERATOR MESSAGES.
00266 M00S00232.qmove +++|*
00267 M00S00233.qmove +++|* * NO OUTPUT FILE EXISTS.* = NO OUTPUT FILE HAS BEEN
00268 M00S00234.qmove +++|* CREATED PREVIOUS TO ENTERING THE *OUT* COMMAND.
00269 M00S00235.qmove +++|*
00270 M00S00236.qmove +++|* * OUTPUT FILE RELEASED.* = OUTPUT FILE RELEASED TO PRINTER.
00271 M00S00237.qmove +++|*
00272 M00S00238.qmove +++|* * QMOVE COMPLETE.* = THE SPECIFIED OPERATION HAS BEEN
00273 M00S00239.qmove +++|* COMPLETED.
00274 M00S00240.qmove +++| SPACE 4
00275 M00S00241.qmove +++|* COMMON DECKS.
00276 M00S00242.qmove +++|
00277 M00S00243.qmove +++|*CALL COMCMAC
00278 M00S00244.qmove +++|*CALL COMCCMD
00279 M00S00245.qmove +++|*CALL COMSACC
| Line S00016 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00280 M01S00016.ns22000 +++|*CALL COMSDSP
00281 M00S00246.qmove +++|*CALL COMSJIO
00282 M00S00247.qmove +++| LIST X
00283 M00S00248.qmove +++|*CALL COMSIOQ
00284 M00S00249.qmove +++|*CALL COMSQFS
| Line S00001 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00285 M01S00001.ns21000 +++|*CALL COMSSFM
00286 M00S00250.qmove +++| LIST -X
| Line S00017 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00287 M01S00017.ns22000 +++|*CALL COMSMLS
00288 M01S00018.ns22000 +++|*CALL COMSSCD
00289 M00S00251.qmove +++|*CALL COMSSSE
00290 M00S00252.qmove +++|*CALL COMSSSJ
00291 M00S00253.qmove +++| TITLE ASSEMBLY CONSTANTS.
00292 M00S00254.qmove +++|**** ASSEMBLY CONSTANTS.
00293 M00S00255.qmove +++|
00294 M00S00256.qmove +++| BUFL EQU 1001B FET CIRCULAR BUFFER LENGTH
00295 M00S00257.qmove +++| IBUFL EQU 1001B IQFT BUFFER LENGTH
00296 M00S00258.qmove +++| QBUFL EQU 2041B QUEUED FILE DATA BUFFER LENGTH
00297 M00S00259.qmove +++| SBUFL EQU 101B SYSTEM SECTOR BUFFER LENGTH
00298 M00S00260.qmove +++| WBUFL EQU 110B WORKING BUFFER LENGTH
| Line S00019 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00299 M01S00019.ns22000 +++| LNUM EQU TPPA+PPLN LINE NUMBER
00300 M01S00020.ns22000 +++| PDFE EQU TPPA+PPPD PRINT DENSITY FORMAT EFFECTOR
00301 M00S00261.qmove +++|****
00302 M00S00262.qmove +++| SPACE 4,10
00303 M00S00263.qmove +++|* *DSP* FLAG BIT EQUIVALENCES.
00304 M00S00264.qmove +++|
00305 M00S00265.qmove +++|
00306 M00S00266.qmove +++| FRDC EQU 20B DISPOSITION CODE
00307 M00S00267.qmove +++| TITLE RESERVED LOCATIONS AND FETS.
00308 M00S00268.qmove +++|* RESERVED LOCATIONS.
00309 M00S00269.qmove +++|
00310 M00S00270.qmove +++| ORG OVLA
00311 M00S00271.qmove +++|
00312 M00S00272.qmove +++| QNUM CON 1 QUEUE FILE NUMBER
00313 M00S00273.qmove +++| PNUM CON 1 PAGE NUMBER
| Line S00274 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00314 M01S00274.ns22000 ---| LNUM CON LINP LINE NUMBER
00315 M00S00275.qmove +++| LIST CON 0 OUTPUT PRESENT FLAG
00316 M00S00276.qmove +++| RECF CON 0 LIST ANOTHER RECORD FLAG
00317 M00S00277.qmove +++| DSPB CON 0 TYPE OF FILES TO MOVE
00318 M00S00278.qmove +++| MVCT CON 0 MOVE COUNT OF QUEUE FILES MOVED
00319 M00S00279.qmove +++| IGCT CON 0 COUNT OF QUEUE FILES IGNORED
00320 M00S00280.qmove +++| EFCT CON 0 COUNT OF QUEUE FILES INTERLOCKED
00321 M00S00281.qmove +++| REQF CON O REQUEUE FLAG
00322 M00S00282.qmove +++| SPACE 4
00323 M00S00283.qmove +++|* FETS.
00324 M00S00284.qmove +++|
00325 M00S00285.qmove +++| O BSS 0 OUTPUT FILE
00326 M00S00286.qmove +++| OUTPUT FILEB OBUF,BUFL,(FET=7)
00327 M00S00287.qmove +++|
00328 M00S00288.qmove +++| Q BSS 0 QUEUE FILE
00329 M00S00289.qmove +++| QNAME FILEB QBUF,QBUFL,EPR,(FET=13)
00330 M00S00290.qmove +++|
| Line S00291 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00331 M01S00291.ns21000 ---| S BSS 0 SYSTEM SECTOR
00332 M01S00292.ns21000 ---| SS FILEB SBUF,SBUFL,EPR,(FET=8)
| Line S00002 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00333 M01S00002.ns21000 +++| S BSS 0 SYSTEM SECTOR
00334 M01S00003.ns21000 +++| E BSS 0 EOI SECTOR
00335 M01S00004.ns21000 +++| SSEOI FILEB SBUF,SBUFL,EPR,(FET=8)
00336 M00S00293.qmove +++|
00337 M00S00294.qmove +++| D BSS 0 DESTINATION QUEUE FILE
00338 M00S00295.qmove +++| DQFILE FILEB DBUF,QBUFL,EPR,(FET=13)
00339 M00S00296.qmove +++|
00340 M00S00297.qmove +++| IQ BSS 0 OLD IQFT FILE
00341 M00S00298.qmove +++| "RFIQ" FILEB IBUF,IBUFL,EPR,(FET=8)
00342 M00S00299.qmove +++|
00343 M00S00300.qmove +++| NIQ BSS 0 NEW IQFT FILE FOR CURRENT DEVICE
00344 M00S00301.qmove +++| "RFNI" FILEB NBUF,BUFL,(FET=8)
00345 M00S00302.qmove +++|
00346 M00S00303.qmove +++| MIQ BSS 0 NEW IQFT FILE FOR MOVE DEVICE
00347 M00S00304.qmove +++| "RFMI" FILEB MBUF,BUFL,EPR,(FET=8)
00348 M00S00305.qmove +++|
00349 M00S00306.qmove +++| T BSS 0 TEMPORARY IQFT ENTRY BUFFER
00350 M00S00307.qmove +++| TEMP FILEB TBUF,BUFL,EPR,(FET=9)
00351 M00S00308.qmove +++| QMOVE TITLE MAIN ROUTINE.
00352 M00S00309.qmove +++|** QMOVE - MAIN ROUTINE.
00353 M00S00310.qmove +++|*
00354 M00S00311.qmove +++|* CALL PRESET IF NECESSARY, DETERMINE WHETHER *GO* OR
00355 M00S00312.qmove +++|* *OUT* HAS BEEN SPECIFIED, CALL THE ROUTINES TO PROCESS
00356 M00S00313.qmove +++|* THE FUNCTION, THEN CLEAN UP FOR THE RETURN TO *QFSP*.
00357 M00S00314.qmove +++|*
00358 M00S00315.qmove +++|* ENTRY (QFTS) = 0 IF INITIAL CALL TO *QMOVE* FROM *QFSP*.
00359 M00S00316.qmove +++|* .NE. 0 ON ALL FOLLOWING CALLS.
00360 M00S00317.qmove +++|*
00361 M00S00318.qmove +++|* USES X - ALL.
00362 M00S00319.qmove +++|* A - 1, 2, 4, 6, 7.
00363 M00S00320.qmove +++|* B - 1.
00364 M00S00321.qmove +++|*
00365 M00S00322.qmove +++|* CALLS CID, MQF, OFN, OUT, PRS, RAF.
00366 M00S00323.qmove +++|*
00367 M00S00324.qmove +++|* MACROS ABORT, MEMORY, RETURN, SETFS, WRITER.
00368 M00S00325.qmove +++|
00369 M00S00326.qmove +++|
00370 M00S00327.qmove +++| QMOVE SUBR ENTRY/EXIT
00371 M00S00328.qmove +++| SB1 1
00372 M00S00329.qmove +++| SA1 QFTS
00373 M00S00330.qmove +++| SX6 B0+ CLEAR NEW RECORD AND ERROR EXIT FLAGS
00374 M00S00331.qmove +++| SA6 RECF
00375 M00S00332.qmove +++| SA6 ERRC
00376 M00S00333.qmove +++| NZ X1,QMO1 IF PRESET UNNECESSARY
00377 M00S00334.qmove +++| RJ PRS PRESET
00378 M00S00335.qmove +++| QMO1 RJ OFN SET OUTPUT FILE NAME
00379 M00S00336.qmove +++| NZ X5,QMO3 IF FILE NAME CONFLICT
00380 M00S00337.qmove +++|
00381 M00S00338.qmove +++|* DETERMINE FUNCTION.
00382 M00S00339.qmove +++|
00383 M00S00340.qmove +++| SA2 TARA+ARFC CHECK FUNCTION
00384 M00S00341.qmove +++| MX0 -12
00385 M00S00342.qmove +++| BX3 -X0*X2
00386 M00S00343.qmove +++| ZR X3,QMO2 IF *GO* COMMAND
00387 M00S00344.qmove +++|
00388 M00S00345.qmove +++|* PROCESS *OUT* COMMAND.
00389 M00S00346.qmove +++|
00390 M00S00347.qmove +++| RJ OUT DISPOSE OUTPUT FILE
00391 M00S00348.qmove +++| BX2 X2-X2 SET NO *K* DISPLAY BUFFER
00392 M00S00349.qmove +++| EQ QMOVEX RETURN
00393 M00S00350.qmove +++|
00394 M00S00351.qmove +++|* PROCESS *GO* COMMAND.
00395 M00S00352.qmove +++|
00396 M00S00353.qmove +++| QMO2 SA1 TARA+ARTP SET TYPE OF FILES TO MOVE
00397 M00S00354.qmove +++| MX0 -12
00398 M00S00355.qmove +++| BX6 -X0*X1
00399 M00S00356.qmove +++| SA6 DSPB
| Line S00357 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00400 M01S00357.v23l617 ---| RJ CID CHECK FOR ILLEGAL DEVICES
| Line S00009 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00401 M01S00009.v23l617 +++| RJ CID CHECK FOR INCORRECT DEVICES
00402 M00S00358.qmove +++| NZ X5,QMO3 IF ERROR
00403 M00S00359.qmove +++| RJ MQF MOVE QUEUED FILES
00404 M00S00360.qmove +++| NZ X5,QMO3 IF ERROR
00405 M00S00361.qmove +++| SX5 MES1 *QMOVE COMPLETE.*
00406 M00S00362.qmove +++|
00407 M00S00363.qmove +++|* RETURN LOCAL FILES AND CLOSE OUTPUT.
00408 M00S00364.qmove +++|
00409 M00S00365.qmove +++| QMO3 RETURN Q,R
00410 M00S00366.qmove +++| RETURN D,R
00411 M00S00367.qmove +++| RETURN S,R
00412 M00S00368.qmove +++| RETURN NIQ,R
00413 M00S00369.qmove +++| RETURN MIQ,R
00414 M00S00370.qmove +++| SETFS O,0
00415 M00S00371.qmove +++| SA1 RECF
00416 M00S00372.qmove +++| ZR X1,QMO4 IF NO NEW OUTPUT RECORD
00417 M00S00373.qmove +++| WRITER O FLUSH BUFFER
00418 M00S00374.qmove +++|
00419 M00S00375.qmove +++|* RESET FIELD LENGTH.
00420 M00S00376.qmove +++|
| Line S00377 Modification History |
M01 (Removed by) | ns2340 |
Seq # *Modification Id* Act
----------------------------+
00421 M01S00377.ns2340 ---| QMO4 SX7 BUFFL RESET POINTERS
| Line S00001 Modification History |
M01 (Added by) | ns2340 |
Seq # *Modification Id* Act
----------------------------+
00422 M01S00001.ns2340 +++| QMO4 SX7 IBUF+IBUFL RESET POINTERS
00423 M00S00378.qmove +++| SA4 IQ+4 RESET *LIMIT*
00424 M00S00379.qmove +++| MX0 42
00425 M00S00380.qmove +++| BX6 X0*X4
00426 M00S00381.qmove +++| BX7 X6+X7
| Line S00382 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00427 M01S00382.ns21000 ---| SA7 A4+
| Line S00005 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00428 M01S00005.ns21000 +++| SA7 A4
00429 M00S00383.qmove +++| SX0 X5 SAVE MESSAGE ADDRESS
00430 M00S00384.qmove +++| MEMORY CM,,R,BUFFL RESET ORIGINAL FIELD LENGTH
00431 M00S00385.qmove +++|
00432 M00S00386.qmove +++|* EXIT TO *QFSP*.
00433 M00S00387.qmove +++|
00434 M00S00388.qmove +++| SX3 IQ RETURN ATTACHED IQFT FILE
00435 M00S00389.qmove +++| RJ RAF
00436 M00S00390.qmove +++| SA1 ERRD
00437 M00S00391.qmove +++| NZ X1,QMO5 IF *PO=N* SPECIFIED AND ABORT SET
00438 M00S00392.qmove +++| SX5 X0
00439 M00S00393.qmove +++| BX2 X2-X2 SET NO *K* DISPLAY BUFFER
00440 M00S00394.qmove +++| EQ QMOVEX RETURN
00441 M00S00395.qmove +++|
00442 M00S00396.qmove +++| QMO5 ABORT
00443 M00S00397.qmove +++| CID TITLE PRIMARY SUBROUTINES.
| Line S00398 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00444 M01S00398.v23l617 ---|** CID - CHECK FOR ILLEGAL DEVICES.
| Line S00010 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00445 M01S00010.v23l617 +++|** CID - CHECK FOR INCORRECT DEVICES.
00446 M00S00399.qmove +++|*
| Line S00400 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00447 M01S00400.v23l617 ---|* ISSUE THE ERROR MESSAGE * ILLEGAL MOVE REQUESTED* IF
| Line S00011 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00448 M01S00011.v23l617 +++|* ISSUE THE ERROR MESSAGE * INCORRECT MOVE REQUESTED* IF
00449 M00S00401.qmove +++|* ANY OF THE FOLLOWING CASES IS TRUE -
00450 M00S00402.qmove +++|*
00451 M00S00403.qmove +++|* 1) DEVICE SPECIFIED IS NOT MASS STORAGE.
00452 M00S00404.qmove +++|* 2) DESTINATION DEVICE HAS ERROR IDLE SET.
00453 M00S00405.qmove +++|* 3) DESTINATION DEVICE IS REMOVABLE AND OPTION IS A.
00454 M00S00406.qmove +++|*
00455 M00S00407.qmove +++|* ENTRY (DSPB) = 0, MOVE INACTIVE QUEUES.
00456 M00S00408.qmove +++|* = 1, MOVE ACTIVE QUEUES.
00457 M00S00409.qmove +++|* = 2, MOVE ALL QUEUES.
00458 M00S00410.qmove +++|*
00459 M00S00411.qmove +++|* EXIT (X5) = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
00460 M00S00412.qmove +++|* = 0 IF NO ERROR.
| Line S00413 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00461 M01S00413.ns22000 ---|* (CEQP) = EQUIPMENT NUMBER.
| Line S00021 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00462 M01S00021.ns22000 +++|* (CEQP) = EST ORDINAL.
00463 M00S00414.qmove +++|*
00464 M00S00415.qmove +++|* USES X - 0, 1, 2, 5, 6.
00465 M00S00416.qmove +++|* A - 1, 2, 6.
00466 M00S00417.qmove +++|*
00467 M00S00418.qmove +++|* CALLS DND.
00468 M00S00419.qmove +++|*
00469 M00S00420.qmove +++|* MACROS MESSAGE.
00470 M00S00421.qmove +++|
00471 M00S00422.qmove +++|
| Line S00423 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00472 M01S00423.v23l617 ---| CID2 SX5 MES3 * ILLEGAL MOVE REQUESTED.*
| Line S00012 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00473 M01S00012.v23l617 +++| CID2 SX5 MES3 * INCORRECT MOVE REQUESTED.*
00474 M00S00424.qmove +++| MESSAGE X5
00475 M00S00425.qmove +++|
00476 M00S00426.qmove +++| CID SUBR ENTRY/EXIT
00477 M00S00427.qmove +++|
00478 M00S00428.qmove +++|* DETERMINE FIRST EQUIPMENT TO MOVE FROM.
00479 M00S00429.qmove +++|
| Line S00430 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00480 M01S00430.ns22000 ---| SX6 -1 PRESET EQUIPMENT NUMBER
| Line S00022 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00481 M01S00022.ns22000 +++| SX6 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
00482 M00S00431.qmove +++| SA6 CEQP
00483 M00S00432.qmove +++| RJ DND DETERMINE FIRST EQUIPMENT
00484 M00S00433.qmove +++| ZR X4,CID2 IF DEVICE NOT IN TABLE (NON-MASS STORAGE)
00485 M00S00434.qmove +++|
00486 M00S00435.qmove +++|* CHECK LEGAL DESTINATION FAMILY.
00487 M00S00436.qmove +++|
| Line S00437 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00488 M01S00437.ns22000 ---| SA1 TARA+ARDD CHECK EQUIPMENT NUMBER
| Line S00023 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00489 M01S00023.ns22000 +++| SA1 TARA+ARDD CHECK EST ORDINAL
00490 M00S00438.qmove +++| MX0 -12
00491 M00S00439.qmove +++| BX6 -X0*X1
00492 M00S00440.qmove +++| SA2 TMSA+X6 CHECK FOR ERROR IDLE
| Line S00441 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00493 M01S00441.ns21000 ---| LX2 59-11
00494 M01S00442.ns21000 ---| NG X2,CID2 IF ERROR IDLE ON DEVICE
00495 M01S00443.ns21000 ---| SA2 TEQA+X6 CHECK FOR REMOVABLE DEVICE
00496 M01S00444.ns21000 ---| LX2 59-1
00497 M01S00445.ns21000 ---| PL X2,CID1 IF NOT REMOVABLE DEVICE
00498 M01S00446.ns21000 ---| SA1 TARA+AROP
| Line S00006 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
00499 M01S00006.ns21000 +++| SA1 TEQA+X6 CHECK FOR REMOVABLE DEVICE
00500 M01S00007.ns21000 +++| LX2 59-11
00501 M01S00008.ns21000 +++| LX1 59-1
00502 M01S00009.ns21000 +++| NG X2,CID2 IF ERROR IDLE ON DEVICE
00503 M01S00010.ns21000 +++| PL X1,CID1 IF NOT REMOVABLE DEVICE
00504 M01S00011.ns21000 +++| SA1 TARA+AROP CHECK MOVE OPTION
00505 M00S00447.qmove +++| NZ X1,CID2 IF LEAVE ACTIVE
00506 M00S00448.qmove +++| CID1 BX5 X5-X5 CLEAR ERROR FLAG
00507 M00S00449.qmove +++| EQ CIDX RETURN
00508 M00S00450.qmove +++| MQF SPACE 4,20
00509 M00S00451.qmove +++|** MQF - MOVE QUEUED FILES.
00510 M00S00452.qmove +++|*
00511 M00S00453.qmove +++|* PRESET OUTPUT AND CALL ROUTINES TO PROCESS THE MOVING
00512 M00S00454.qmove +++|* OF THE QUEUED FILES, PROCESSING THE FILES ONE DEVICE
00513 M00S00455.qmove +++|* AT A TIME.
00514 M00S00456.qmove +++|*
00515 M00S00457.qmove +++|* ENTRY (DSPB) = 0, MOVE INACTIVE QUEUES.
00516 M00S00458.qmove +++|* = 1, MOVE ACTIVE QUEUES.
00517 M00S00459.qmove +++|* = 2, MOVE ALL QUEUES.
00518 M00S00460.qmove +++|*
00519 M00S00461.qmove +++|* EXIT (X5) = 0 IF NO ERROR.
00520 M00S00462.qmove +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
00521 M00S00463.qmove +++|*
00522 M00S00464.qmove +++|* USES X - 0, 1, 2, 5, 6, 7.
00523 M00S00465.qmove +++|* A - 0, 1, 2, 6, 7.
00524 M00S00466.qmove +++|* B - 6.
00525 M00S00467.qmove +++|*
00526 M00S00468.qmove +++|* CALLS CTF, DND, IDM, PAQ, PIQ.
00527 M00S00469.qmove +++|*
00528 M00S00470.qmove +++|* MACROS CLOCK, DATE, EREXIT, MEMORY, WRITE.
00529 M00S00471.qmove +++|
00530 M00S00472.qmove +++|
00531 M00S00473.qmove +++| MQF6 NZ X4,MQF4 IF NOT END OF DEVICES
00532 M00S00474.qmove +++| BX5 X5-X5 CLEAR ERROR FLAG
00533 M00S00475.qmove +++|
00534 M00S00476.qmove +++| MQF SUBR ENTRY/EXIT
00535 M00S00477.qmove +++| SX6 B0+ CLEAR FORCED IQFT FLAG
00536 M00S00478.qmove +++| SA6 DEQB
00537 M00S00479.qmove +++|
00538 M00S00480.qmove +++|* SET UP OUTPUT HEADER AND PARAMETERS.
00539 M00S00481.qmove +++|
00540 M00S00482.qmove +++| DATE BOHA1 SET DATE IN HEADER
00541 M00S00483.qmove +++| CLOCK BOHA2 SET TIME IN HEADER
00542 M00S00484.qmove +++| WRITE O,* PRESET WRITE FUNCTION
00543 M00S00485.qmove +++| SX6 B1+ SET QUEUE FILE AND PAGE NUMBERS
00544 M00S00486.qmove +++| SA6 QNUM
00545 M00S00487.qmove +++| SA6 PNUM
| Line S00488 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00546 M01S00488.ns22000 ---| MQF1 SX7 LINP SET LINE NUMBER TO END OF PAGE
| Line S00024 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00547 M01S00024.ns22000 +++| SA6 PDFE+1 SET PRINT DENSITY FORMAT CONTROL FLAG
00548 M01S00025.ns22000 +++| MQF1 SX7 99999 FORCE PAGE EJECT
00549 M00S00489.qmove +++| SA7 LNUM
00550 M00S00490.qmove +++|
00551 M00S00491.qmove +++|* PROCESS MOVING OF QUEUE FILES.
00552 M00S00492.qmove +++|
00553 M00S00493.qmove +++| SX6 B0+ PRESET FILE COUNTS
00554 M00S00494.qmove +++| SA6 MVCT
00555 M00S00495.qmove +++| SA6 IGCT
00556 M00S00496.qmove +++| SA6 EFCT
00557 M00S00497.qmove +++| SA6 REQF CLEAR REQUEUE FLAG
00558 M00S00498.qmove +++| SA1 DSPB CHECK TYPE TO MOVE
00559 M00S00499.qmove +++| NZ X1,MQF2 IF MOVING ACTIVE FILES
00560 M00S00500.qmove +++| SA2 TARA+AROP
00561 M00S00501.qmove +++| ZR X2,MQF4 IF LEAVING INACTIVE
00562 M00S00502.qmove +++| RJ CTF CREATE TABLE OF ACTIVE FAMILIES
00563 M00S00503.qmove +++| BX7 X7-X7 CLEAR FOT FULL FLAG
00564 M00S00504.qmove +++| SA7 FOTF
00565 M00S00505.qmove +++| MX6 1 SET REQUEUE FLAG
00566 M00S00506.qmove +++| SA6 REQF
00567 M00S00507.qmove +++| EQ MQF4 PROCESS INACTIVE QUEUE FILES
00568 M00S00508.qmove +++|
00569 M00S00509.qmove +++| MQF2 SX0 B0 SET INITIAL CALL
00570 M00S00510.qmove +++| MQF3 EREXIT ERR SET ERROR EXIT
00571 M00S00511.qmove +++| RJ PAQ PROCESS ACTIVE QUEUE FILES
00572 M00S00512.qmove +++| EQ MQF5 ISSUE MESSAGES
00573 M00S00513.qmove +++|
00574 M00S00514.qmove +++| MQF4 EREXIT ERR SET ERROR EXIT
00575 M00S00515.qmove +++| RJ PIQ PROCESS INACTIVE QUEUE FILES
00576 M00S00516.qmove +++| MQF5 SA0 X5 SAVE ERROR
00577 M00S00517.qmove +++| EREXIT 0 CLEAR ERROR EXIT
00578 M00S00518.qmove +++| RJ IDM ISSUE DAYFILE MESSAGES
00579 M00S00519.qmove +++| SX5 A0+
00580 M00S00520.qmove +++| NZ X5,MQFX IF ERROR
00581 M00S00521.qmove +++|
00582 M00S00522.qmove +++|* CHECK FOR MORE DEVICES TO PROCESS.
00583 M00S00523.qmove +++|
00584 M00S00524.qmove +++| RJ DND DETERMINE NEXT DEVICE
00585 M00S00525.qmove +++| SA1 DSPB
00586 M00S00526.qmove +++| ZR X1,MQF6 IF MOVING INACTIVE FILES
00587 M00S00527.qmove +++| SB6 RBUF+QFTE SET QFT BUFFER ADDRESS
00588 M00S00528.qmove +++| SX0 B1+ SET NON-INITIAL CALL
00589 M00S00529.qmove +++| NZ X4,MQF3 IF NOT END OF DEVICES
00590 M00S00530.qmove +++| SA1 DSPB
00591 M00S00531.qmove +++| SX5 X1-1
00592 M00S00532.qmove +++| ZR X5,MQFX IF MOVE ONLY ACTIVE FILES
00593 M00S00533.qmove +++|
00594 M00S00534.qmove +++|* SET UP FOR INACTIVE FILE MOVE.
00595 M00S00535.qmove +++|
00596 M00S00536.qmove +++| BX6 X6-X6 SET INACTIVE FILE MOVE
00597 M00S00537.qmove +++| SA6 A1
00598 M00S00538.qmove +++| MEMORY CM,,R,BUFFL RESET FIELD LENGTH
00599 M00S00539.qmove +++| SX7 B1 RESET QUEUE NUMBER
00600 M00S00540.qmove +++| SA7 QNUM
| Line S00541 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00601 M01S00541.ns22000 ---| SX6 -B1 DETERMINE FIRST EQUIPMENT
| Line S00026 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00602 M01S00026.ns22000 +++| SX6 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
00603 M00S00542.qmove +++| SA6 CEQP
00604 M00S00543.qmove +++| RJ DND
00605 M00S00544.qmove +++| EQ MQF1 PROCESS INACTIVE QUEUE FILES
00606 M00S00545.qmove +++| OFN SPACE 4,20
00607 M00S00546.qmove +++|** OFN - SET OUTPUT FILE NAME.
00608 M00S00547.qmove +++|*
00609 M00S00548.qmove +++|* SET UP THE OUTPUT FILE FET. ISSUE AN ERROR MESSAGE
00610 M00S00549.qmove +++|* IF THE OUTPUT FILE NAME SPECIFIED IS QNAME, SS,
00611 M00S00550.qmove +++|* DQFILE, IQF, NIQFT, MIQFT, TEMP OR ANY OTHER NAME
00612 M00S00551.qmove +++|* CURRENTLY EXISTING IN ANOTHER FET.
00613 M00S00552.qmove +++|*
00614 M00S00553.qmove +++|* EXIT (LIST) = 0 IF FILE NAME CHANGED.
00615 M00S00554.qmove +++|* (X5) = 0 IF NO FILE NAME CONFLICT.
00616 M00S00555.qmove +++|* = ADDRESS OF *K* DISPLAY MESSAGE IF CONFLICT.
00617 M00S00556.qmove +++|*
00618 M00S00557.qmove +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
00619 M00S00558.qmove +++|* A - 1, 2, 3, 4, 5, 6.
00620 M00S00559.qmove +++|*
00621 M00S00560.qmove +++|* MACROS MESSAGE.
00622 M00S00561.qmove +++|
00623 M00S00562.qmove +++|
00624 M00S00563.qmove +++| OFN3 SX5 MES4 *OUTPUT FILE NAME CONFLICT.*
00625 M00S00564.qmove +++| MESSAGE X5
00626 M00S00565.qmove +++|
00627 M00S00566.qmove +++| OFN SUBR ENTRY/EXIT
00628 M00S00567.qmove +++|
00629 M00S00568.qmove +++|* COMPARE CURRENT AND SPECIFIED NAMES.
00630 M00S00569.qmove +++|
00631 M00S00570.qmove +++| SA1 O GET CURRENT OUTPUT FILE NAME
00632 M00S00571.qmove +++| SA3 TARA+ARLL CHECK SPECIFIED OUTPUT FILE NAME
00633 M00S00572.qmove +++| MX0 42
00634 M00S00573.qmove +++| BX4 X1-X3
00635 M00S00574.qmove +++| BX2 X0*X4
00636 M00S00575.qmove +++| BX6 X6-X6 INITIALIZE LIST FLAG
00637 M00S00576.qmove +++| ZR X2,OFN2 IF NO FILE NAME CHANGE
00638 M00S00577.qmove +++| SA6 LIST
00639 M00S00578.qmove +++|
00640 M00S00579.qmove +++|* CHECK FOR FILE NAME CONFLICTS.
00641 M00S00580.qmove +++|
00642 M00S00581.qmove +++| SA1 Q QUEUE FILE
00643 M00S00582.qmove +++| BX1 X0*X1
00644 M00S00583.qmove +++| BX1 X1-X3
00645 M00S00584.qmove +++| ZR X1,OFN3 IF FILE NAME CONFLICT
00646 M00S00585.qmove +++| SA2 IQ OLD IQFT FILE
00647 M00S00586.qmove +++| SA4 NIQ NEW IQFT ON CURRENT DEVICE
00648 M00S00587.qmove +++| SA5 MIQ NEW IQFT ON MOVE DEVICE
00649 M00S00588.qmove +++| OFN1 BX2 X0*X2
00650 M00S00589.qmove +++| BX4 X0*X4
00651 M00S00590.qmove +++| BX5 X0*X5
00652 M00S00591.qmove +++| BX2 X2-X3
00653 M00S00592.qmove +++| BX4 X4-X3
00654 M00S00593.qmove +++| BX5 X5-X3
00655 M00S00594.qmove +++| ZR X2,OFN3 IF CONFLICT
00656 M00S00595.qmove +++| ZR X4,OFN3 IF CONFLICT
00657 M00S00596.qmove +++| ZR X5,OFN3 IF CONFLICT
00658 M00S00597.qmove +++| NZ X6,OFN2 IF ALL NAMES CHECKED
00659 M00S00598.qmove +++| SA2 S SYSTEM SECTOR
00660 M00S00599.qmove +++| SA4 D DESTINATION QUEUE FILE
00661 M00S00600.qmove +++| SA5 T TEMPORARY FILE
00662 M00S00601.qmove +++| SX6 B1
00663 M00S00602.qmove +++| EQ OFN1 CHECK REMAINDER OF FET-S
00664 M00S00603.qmove +++|
00665 M00S00604.qmove +++|* SET OUTPUT FILE NAME IN FET.
00666 M00S00605.qmove +++|
00667 M00S00606.qmove +++| OFN2 SX1 3
00668 M00S00607.qmove +++| BX6 X3+X1
00669 M00S00608.qmove +++| BX5 X5-X5 CLEAR ERROR FLAG
00670 M00S00609.qmove +++| SA6 O
00671 M00S00610.qmove +++| EQ OFNX RETURN
00672 M00S00611.qmove +++| OUT SPACE 4,20
00673 M00S00612.qmove +++|** OUT - RELEASE OUTPUT FILE TO PRINTER.
00674 M00S00613.qmove +++|*
00675 M00S00614.qmove +++|* RELEASE THE OUTPUT FILE, IF ONE EXISTS, TO THE PRINTER
00676 M00S00615.qmove +++|* AND ISSUE AN INFORMATIVE MESSAGE AS TO WHETHER OR NOT
00677 M00S00616.qmove +++|* ONE WAS RELEASED.
00678 M00S00617.qmove +++|*
00679 M00S00618.qmove +++|* ENTRY (LIST) .NE. 0 IF OUTPUT FILE WRITTEN.
00680 M00S00619.qmove +++|*
00681 M00S00620.qmove +++|* EXIT (LIST) = 0.
00682 M00S00621.qmove +++|* (X5) = *K* DISPLAY MESSAGE ADDRESS.
00683 M00S00622.qmove +++|*
00684 M00S00623.qmove +++|* USES X - 2, 5, 6.
00685 M00S00624.qmove +++|* A - 2, 6.
00686 M00S00625.qmove +++|*
00687 M00S00626.qmove +++|* CALLS CBL.
00688 M00S00627.qmove +++|*
00689 M00S00628.qmove +++|* MACROS ROUTE.
00690 M00S00629.qmove +++|
00691 M00S00630.qmove +++|
00692 M00S00631.qmove +++| OUT1 SX5 MES7 *NO OUTPUT FILE EXISTS.*
00693 M00S00632.qmove +++|
00694 M00S00633.qmove +++| OUT SUBR ENTRY/EXIT
00695 M00S00634.qmove +++| SA2 LIST CHECK IF OUTPUT EXISTS
00696 M00S00635.qmove +++| ZR X2,OUT1 IF NO OUTPUT FILE
00697 M00S00636.qmove +++|
00698 M00S00637.qmove +++|* RELEASE OUTPUT FILE.
00699 M00S00638.qmove +++|
00700 M00S00639.qmove +++| RJ CBL CLEAR ROUTE BLOCK
00701 M00S00640.qmove +++| SA2 O GET FILE NAME
00702 M00S00641.qmove +++| MX6 42
00703 M00S00642.qmove +++| BX6 X6*X2
00704 M00S00643.qmove +++| SA6 BLOCK *DSP* PARAMETER BLOCK
00705 M00S00644.qmove +++| SA2 OUTA
00706 M00S00645.qmove +++| BX6 X2
00707 M00S00646.qmove +++| SA6 A6+B1
00708 M00S00647.qmove +++| ROUTE BLOCK,RECALL
00709 M00S00648.qmove +++| BX6 X6-X6 CLEAR OUTPUT FLAG
00710 M00S00649.qmove +++| SA6 LIST
00711 M00S00650.qmove +++| SX5 MES8 *OUTPUT FILE RELEASED.*
00712 M00S00651.qmove +++| EQ OUTX RETURN
00713 M00S00652.qmove +++|
00714 M00S00653.qmove +++|
00715 M00S00654.qmove +++| OUTA VFD 24/0,12/2HPR,6/0,18/FRDC
00716 M00S00655.qmove +++| AQF TITLE SECONDARY SUBROUTINES.
00717 M00S00656.qmove +++|** AQF - ATTACH QUEUE FILE AND READ SYSTEM SECTOR.
00718 M00S00657.qmove +++|*
00719 M00S00658.qmove +++|* SEARCH THE IQFT BUFFER UNTIL THE NEXT ENTRY THAT MEETS
00720 M00S00659.qmove +++|* THE REQUIREMENTS SPECIFIED IN THE FET IS FOUND, THEN
00721 M00S00660.qmove +++|* ATTACH THAT FILE TO THE CONTROL POINT, ISSUE A *READ* ON
00722 M00S00661.qmove +++|* THE FILE AND ALSO READ THE SYSTEM SECTOR FOR THE FILE.
00723 M00S00662.qmove +++|*
00724 M00S00663.qmove +++|* ENTRY (X5) = FUNCTION TO ATTACH FILE.
00725 M00S00664.qmove +++|*
00726 M00S00665.qmove +++|* EXIT (X5) = 0 IF NO ERROR.
00727 M00S00666.qmove +++|* .LT. 0, SKIP FILE.
00728 M00S00667.qmove +++|* .GT. 0, *K* DISPLAY MESSAGE ADDRESS.
00729 M00S00668.qmove +++|* (X6) .NE. 0 IF END OF BUFFER.
00730 M00S00669.qmove +++|* (AQFA) .NE. 0 IF READ ERROR.
00731 M00S00670.qmove +++|* (AQFB) .EQ. 0 IF ERROR ATTACHING QUEUED FILE.
| Line S00001 Modification History |
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act
----------------------------+
00732 M01S00001.ns2156 +++|* (RTFC) = ENTRY TIME, IF ACTIVE FILE.
00733 M01S00002.ns2156 +++|* = -1, IF INACTIVE FILE.
00734 M00S00671.qmove +++|*
00735 M00S00672.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
00736 M00S00673.qmove +++|* A - 0, 1, 2, 3, 5, 6, 7.
00737 M00S00674.qmove +++|* B - 6.
00738 M00S00675.qmove +++|*
00739 M00S00676.qmove +++|* CALLS CER, EPR.
00740 M00S00677.qmove +++|*
00741 M00S00678.qmove +++|* MACROS QCALL, READCW, RENAME, REWIND, WRITECW.
00742 M00S00679.qmove +++|
00743 M00S00680.qmove +++|
00744 M00S00681.qmove +++| AQF SUBR ENTRY/EXIT
00745 M00S00682.qmove +++| BX6 X6-X6 CLEAR FLAGS
00746 M00S00683.qmove +++| SA6 AQFA
00747 M00S00684.qmove +++| SA6 A6+B1
| Line S00003 Modification History |
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act
----------------------------+
00748 M01S00003.ns2156 +++| SX7 X5 SAVE FUNCTION
00749 M01S00004.ns2156 +++| SA7 AQFC
00750 M00S00685.qmove +++| REWIND Q,R
00751 M00S00686.qmove +++| REWIND S,R
00752 M00S00687.qmove +++| REWIND D,R
00753 M00S00688.qmove +++|
00754 M00S00689.qmove +++|* ATTACH QUEUE FILE.
00755 M00S00690.qmove +++|
00756 M00S00691.qmove +++| SA0 T ATTACH FILE
00757 M00S00692.qmove +++| QCALL X5,T
00758 M00S00693.qmove +++| RJ CER CHECK FOR ERROR
00759 M00S00694.qmove +++| NZ X5,AQF2 IF ERROR
00760 M00S00695.qmove +++| SA1 T+3 ADVANCE *OUT* POINTER
00761 M00S00696.qmove +++| SA2 A1-B1
00762 M00S00697.qmove +++| IX2 X2-X1 *IN* - *OUT*
00763 M00S00698.qmove +++| SX6 B1+ SET FLAG FOR NO ATTACH
00764 M00S00699.qmove +++| SA6 AQFB
00765 M00S00700.qmove +++| ZR X2,AQFX IF END OF BUFFER
00766 M00S00701.qmove +++| SX7 X1+QFEWL
00767 M00S00702.qmove +++| SA7 A1
00768 M00S00703.qmove +++| MX0 24
00769 M00S00704.qmove +++| SA2 X1+ INSERT QUEUE FILE NAME IN FETS
00770 M00S00705.qmove +++| BX6 X0*X2
00771 M00S00706.qmove +++| MX0 -18
00772 M00S00707.qmove +++| SA3 Q
00773 M00S00708.qmove +++| BX3 -X0*X3
00774 M00S00709.qmove +++| BX7 X6+X3
00775 M00S00710.qmove +++| SA1 S
00776 M00S00711.qmove +++| BX1 -X0*X1
00777 M00S00712.qmove +++| SA7 A3
00778 M00S00713.qmove +++| SA2 D
00779 M00S00714.qmove +++| BX7 X6+X1
00780 M00S00715.qmove +++| SA7 A1
00781 M00S00716.qmove +++| BX2 -X0*X2
00782 M00S00717.qmove +++| BX6 X6+X2
00783 M00S00718.qmove +++| SA6 A2
00784 M00S00719.qmove +++| WRITECW D,* PRESET WRITE FUNCTION
00785 M00S00720.qmove +++|
00786 M00S00721.qmove +++|* READ SYSTEM SECTOR.
00787 M00S00722.qmove +++|
00788 M00S00723.qmove +++| SA0 S
00789 M00S00724.qmove +++| SX7 -1 SET FLAG
00790 M00S00725.qmove +++| SA7 AQFB
00791 M00S00726.qmove +++| QCALL QRSF,S
00792 M00S00727.qmove +++| RJ CER CHECK FOR ERROR
00793 M00S00728.qmove +++| NZ X5,AQF2 IF ERROR
| Line S00005 Modification History |
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act
----------------------------+
00794 M01S00005.ns2156 +++| SA2 AQFC
00795 M01S00006.ns2156 +++| SX3 X2-AQFF
00796 M01S00007.ns2156 +++| SX7 -1
00797 M01S00008.ns2156 +++| NZ X3,AQF0.1 IF INACTIVE FILE
00798 M01S00009.ns2156 +++| SA1 S+3 SAVE ENTRY TIME
00799 M01S00010.ns2156 +++| SX2 5
00800 M01S00011.ns2156 +++| SX3 IOSS+ENTQ*5-BFMS-2
00801 M01S00012.ns2156 +++| IX6 X3/X2
00802 M01S00013.ns2156 +++| IX1 X1+X6
00803 M01S00014.ns2156 +++| SA1 X1
00804 M01S00015.ns2156 +++| MX0 -24
00805 M01S00016.ns2156 +++| BX7 -X0*X1
00806 M01S00017.ns2156 +++| AQF0.1 SA7 RTFC
00807 M00S00729.qmove +++|
00808 M00S00730.qmove +++|* RENAME OLD QUEUE FILE.
00809 M00S00731.qmove +++|
00810 M00S00732.qmove +++| AQF1 SA1 =5LQNAME
00811 M00S00733.qmove +++| SA0 Q
00812 M00S00734.qmove +++| RENAME Q,X1
00813 M00S00735.qmove +++| RJ CER CHECK FOR ERROR
00814 M00S00736.qmove +++| SB6 TLEP SET ERROR TABLE ADDRESS
00815 M00S00737.qmove +++| NZ X5,AQF3 IF ERROR
00816 M00S00738.qmove +++| SX7 B1+ SET FLAG FOR NO ATTACH
00817 M00S00739.qmove +++| SA7 AQFB
00818 M00S00740.qmove +++| READCW Q READ QUEUE FILE
00819 M00S00741.qmove +++| BX6 X6-X6 CLEAR END OF BUFFER
00820 M00S00742.qmove +++| EQ AQFX RETURN
00821 M00S00743.qmove +++|
00822 M00S00744.qmove +++|* PROCESS *QFM* ERROR.
00823 M00S00745.qmove +++|
00824 M00S00746.qmove +++| AQF2 SB6 TQEP SET ERROR TABLE ADDRESS
00825 M00S00747.qmove +++| AQF3 RJ EPR PROCESS ERROR
00826 M00S00748.qmove +++| NZ X5,AQFX IF ERROR
00827 M00S00749.qmove +++| SA7 AQFA SAVE READ ERROR MESSAGE ADDRESS
00828 M00S00750.qmove +++| SA7 CPFA
00829 M00S00751.qmove +++| EQ AQF1 RENAME OLD QUEUE FILE
00830 M00S00752.qmove +++|
00831 M00S00753.qmove +++| AQFA CON 0 READ ERROR FLAG
00832 M00S00754.qmove +++| AQFB CON 1 ATTACHING FLAG
| Line S00018 Modification History |
M01 (Added by) | ns2156 |
Seq # *Modification Id* Act
----------------------------+
00833 M01S00018.ns2156 +++| AQFC CON 0 FUNCTION
00834 M00S00755.qmove +++| BOF SPACE 4,20
00835 M00S00756.qmove +++|** BOF - BUILD OUTPUT FILE.
00836 M00S00757.qmove +++|*
00837 M00S00758.qmove +++|* WRITE ONE ENTRY TO THE OUTPUT FILE AND CALL THE
00838 M00S00759.qmove +++|* ROUTINE TO WRITE PAGE HEADERS WHEN NECESSARY.
00839 M00S00760.qmove +++|*
00840 M00S00761.qmove +++|* ENTRY (X7) = DISPOSITION FIELD ADDRESS.
00841 M00S00762.qmove +++|* (LNUM) = CURRENT LINE NUMBER.
00842 M00S00763.qmove +++|* (PNUM) = CURRENT PAGE NUMBER.
00843 M00S00764.qmove +++|* (QNUM) = CURRENT QUEUE FILE NUMBER.
00844 M00S00765.qmove +++|* (CEQP) = CURRENT EQUIPMENT.
00845 M00S00766.qmove +++|*
00846 M00S00767.qmove +++|* EXIT (LNUM) = NEXT LINE NUMBER.
00847 M00S00768.qmove +++|* (PNUM) = NEXT PAGE NUMBER.
00848 M00S00769.qmove +++|* (QNUM) = NEXT QUEUE FILE NUMBER.
00849 M00S00770.qmove +++|*
00850 M00S00771.qmove +++|* USES X - 1, 2, 3, 5, 6, 7.
00851 M00S00772.qmove +++|* A - 1, 2, 3, 5, 6, 7.
00852 M00S00773.qmove +++|* B - 7.
00853 M00S00774.qmove +++|*
00854 M00S00775.qmove +++|* CALLS BOH, FQO.
00855 M00S00776.qmove +++|*
00856 M00S00777.qmove +++|* MACROS WRITEC, WRITEW.
00857 M00S00778.qmove +++|
00858 M00S00779.qmove +++|
00859 M00S00780.qmove +++| BOF SUBR ENTRY/EXIT
00860 M00S00781.qmove +++| SA7 BOFA SAVE DISPOSITION FIELD ADDRESS
00861 M00S00782.qmove +++| SA1 LNUM LINE NUMBER
| Line S00783 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00862 M01S00783.ns22000 ---| SX7 X1-LINP
00863 M01S00784.ns22000 ---| NZ X7,BOF1 IF NOT END OF PAGE
| Line S00027 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00864 M01S00027.ns22000 +++| SA2 A1+B1
00865 M01S00028.ns22000 +++| IX7 X1-X2
00866 M01S00029.ns22000 +++| NG X7,BOF1 IF NOT END OF PAGE
00867 M00S00785.qmove +++|
00868 M00S00786.qmove +++|* WRITE HEADER AND SET RECORD FLAGS.
00869 M00S00787.qmove +++|
00870 M00S00788.qmove +++| RJ BOH BUILD OUTPUT PAGE HEADER
00871 M00S00789.qmove +++| SA2 PNUM CHECK PAGE NUMBER
00872 M00S00790.qmove +++| SX6 X2-2
00873 M00S00791.qmove +++| NZ X6,BOF1 IF NOT FIRST PAGE
00874 M00S00792.qmove +++| SA3 LIST INCREMENT OUTPUT FLAG
00875 M00S00793.qmove +++| SX7 X3+B1
00876 M00S00794.qmove +++| SA7 A3
00877 M00S00795.qmove +++| SA7 RECF SET CURRENT RECORD FLAG
00878 M00S00796.qmove +++|
00879 M00S00797.qmove +++|* WRITE ONE LINE TO OUTPUT FILE.
00880 M00S00798.qmove +++|
00881 M00S00799.qmove +++| BOF1 SA3 CEQP CURRENT EQUIPMENT
00882 M00S00800.qmove +++| SB7 TEQA+X3 ADDRESS OF FAMILY/DEVICE
00883 M00S00801.qmove +++| SA1 QNUM INCREMENT QUEUE NUMBER
00884 M00S00802.qmove +++| SX6 X1+B1
00885 M00S00803.qmove +++| SA6 A1
00886 M00S00804.qmove +++| SA2 T+3 IQFT ENTRY ADDRESS
| Line S00805 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00887 M01S00805.ns22000 ---| SX2 X2-QFEWL
00888 M01S00806.ns22000 ---| SA5 BOFA DISPOSITION FIELD ENTRY
00889 M01S00807.ns22000 ---| SA3 X5+
| Line S00030 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00890 M01S00030.ns22000 +++| SX5 X2-QFEWL SET IQFT ENTRY ADDRESS
00891 M01S00031.ns22000 +++| SA2 BOFA GET DISPOSITION FIELD ENTRY
00892 M01S00032.ns22000 +++| SA3 X2+
00893 M00S00808.qmove +++| RJ FQO FORMAT OUTPUT LINE
00894 M00S00809.qmove +++| WRITEW O,B3,B2-2
00895 M00S00810.qmove +++|
00896 M00S00811.qmove +++|* WRITE DISPOSITION FIELD TO OUTPUT.
00897 M00S00812.qmove +++|
00898 M00S00813.qmove +++| SA3 BOFA DISPOSITION FIELD ADDRESS
00899 M00S00814.qmove +++| WRITEC O,X3
00900 M00S00815.qmove +++| SA2 LNUM INCREMENT LINE NUMBER
00901 M00S00816.qmove +++| SX7 X2+B1
00902 M00S00817.qmove +++| SA7 A2
00903 M00S00818.qmove +++| EQ BOFX RETURN
00904 M00S00819.qmove +++|
00905 M00S00820.qmove +++| BOFA CON 0 DISPOSITION FIELD ADDRESS
00906 M00S00821.qmove +++| BOFB DATA C*QFT THRESHOLD - FILE IGNORED*
00907 M00S00822.qmove +++| BOFD DATA C*READ ERROR - FILE IGNORED*
00908 M00S00823.qmove +++| BOFE DATA C*READ ERROR - FILE MOVED*
00909 M00S00824.qmove +++| BOFF DATA C*SYSTEM SECTOR ERROR - FILE IGNORED*
00910 M00S00825.qmove +++| BOFG DATA C*TRACK LIMIT - FILE IGNORED*
00911 M00S00826.qmove +++| BOFH DATA C*DUPLICATE FILE NAME - FILE IGNORED*
| Line S00033 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00912 M02S00033.v23l617 ---| BOFI DATA C*INVALID ACCESS LEVEL - FILE IGNORED*
| Line S00013 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
00913 M01S00013.v23l617 +++| BOFI DATA C*INCORRECT ACCESS LEVEL - FILE IGNORED*
00914 M00S00827.qmove +++| BLANK DATA C* *
00915 M00S00828.qmove +++| BOH SPACE 4,20
00916 M00S00829.qmove +++|** BOH - BUILD OUTPUT FILE PAGE HEADER.
00917 M00S00830.qmove +++|*
00918 M00S00831.qmove +++|* BUILD THE HEADER LINES FOR EACH PAGE AND WRITE THESE
00919 M00S00832.qmove +++|* LINES TO OUTPUT.
00920 M00S00833.qmove +++|*
00921 M00S00834.qmove +++|* ENTRY (PNUM) = PAGE NUMBER.
00922 M00S00835.qmove +++|* (QNUM) = QUEUE NUMBER.
00923 M00S00836.qmove +++|* (DSPB) = DISPOSITION BEFORE MOVE.
| Line S00034 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00924 M01S00034.ns22000 +++|* (PDFE+1) = SET IF PRINT DENSITY FORMAT EFFECTOR
00925 M01S00035.ns22000 +++|* NOT YET WRITTEN.
00926 M00S00837.qmove +++|*
00927 M00S00838.qmove +++|* EXIT (PNUM) = NEXT PAGE NUMBER.
00928 M00S00839.qmove +++|* (LNUM) = LINE NUMBER FOLLOWING HEADER.
00929 M00S00840.qmove +++|*
00930 M00S00841.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
00931 M00S00842.qmove +++|* A - 1, 2, 3, 6, 7.
00932 M00S00843.qmove +++|*
00933 M00S00844.qmove +++|* CALLS CDD, COD, SFN.
00934 M00S00845.qmove +++|*
00935 M00S00846.qmove +++|* MACROS RECALL, WRITEW.
00936 M00S00847.qmove +++|
00937 M00S00848.qmove +++|
00938 M00S00849.qmove +++| BOH SUBR ENTRY/EXIT
00939 M00S00850.qmove +++|
00940 M00S00851.qmove +++|* SET PAGE NUMBER IN HEADER.
00941 M00S00852.qmove +++|
00942 M00S00853.qmove +++| SA1 PNUM INCREMENT PAGE NUMBER
00943 M00S00854.qmove +++| SX6 X1+B1
00944 M00S00855.qmove +++| SA6 A1
00945 M00S00856.qmove +++| RJ CDD CONVERT NUMBER
00946 M00S00857.qmove +++| MX0 36 SET IN HEADER
00947 M00S00858.qmove +++| SA1 BOHA3
00948 M00S00859.qmove +++| BX1 X0*X1
00949 M00S00860.qmove +++| BX6 -X0*X6
00950 M00S00861.qmove +++| BX7 X1+X6
00951 M00S00862.qmove +++| SA7 A1+
00952 M00S00863.qmove +++| RECALL O
00953 M00S00864.qmove +++|
00954 M00S00865.qmove +++|* WRITE HEADER TO OUTPUT.
00955 M00S00866.qmove +++|
| Line S00036 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00956 M01S00036.ns22000 +++| SA1 PDFE+1 GET PRINT DENSITY FORMAT CONTROL FLAG
00957 M01S00037.ns22000 +++| BX7 X7-X7
00958 M01S00038.ns22000 +++| SA7 A1
00959 M01S00039.ns22000 +++| WRITEW O,A1-B1,X1 CONDITIONALLY WRITE FORMAT EFFECTOR
00960 M00S00867.qmove +++| WRITEW O,BOHA,BOHAL
00961 M00S00868.qmove +++| WRITEW O,BOHB,BOHBL
00962 M00S00869.qmove +++| SA1 QNUM QUEUE NUMBER
00963 M00S00870.qmove +++| SX7 X1-1
00964 M00S00871.qmove +++| SX5 B0+ SET NO EXTRA LINES
00965 M00S00872.qmove +++| NZ X7,BOH1 IF NOT FIRST QUEUE
00966 M00S00873.qmove +++|
00967 M00S00874.qmove +++|* PUT DESTINATION FAMILY AND DEVICE IN HEADER.
00968 M00S00875.qmove +++|
00969 M00S00876.qmove +++| SA2 TARA+ARDF DESTINATION FAMILY
00970 M00S00877.qmove +++| MX0 42
00971 M00S00878.qmove +++| BX1 X0*X2
00972 M00S00879.qmove +++| RJ SFN SPACE FILL NAME
00973 M00S00880.qmove +++| SA3 BOHC2 CLEAR PREVIOUS FAMILY
00974 M00S00881.qmove +++| MX0 18
00975 M00S00882.qmove +++| BX3 X0*X3
00976 M00S00883.qmove +++| LX6 -18
00977 M00S00884.qmove +++| BX6 -X0*X6
00978 M00S00885.qmove +++| BX7 X6+X3
00979 M00S00886.qmove +++| SA7 A3
00980 M00S00887.qmove +++| SA1 TARA+ARDD DESTINATION DEVICE
00981 M00S00888.qmove +++| MX0 12
00982 M00S00889.qmove +++| BX1 X0*X1
00983 M00S00890.qmove +++| LX1 12
00984 M00S00891.qmove +++| RJ COD CONVERT TO DISPLAY CODE
00985 M00S00892.qmove +++| SA2 BOHC3 CLEAR PREVIOUS DEVICE
00986 M00S00893.qmove +++| MX0 -12
00987 M00S00894.qmove +++| BX2 X0*X2
00988 M00S00895.qmove +++| BX6 -X0*X6
00989 M00S00896.qmove +++| BX7 X6+X2
00990 M00S00897.qmove +++| SA7 A2+
00991 M00S00898.qmove +++|
00992 M00S00899.qmove +++|* PUT DISPOSITION BEFORE AND AFTER MOVE IN HEADER.
00993 M00S00900.qmove +++|
00994 M00S00901.qmove +++| SA3 TARA+AROP
00995 M00S00902.qmove +++| SA2 BOHC4A+X3 DISPOSITION AFTER MOVE
00996 M00S00903.qmove +++| SA1 DSPB
00997 M00S00904.qmove +++| SA3 BOHC1A+X1 DISPOSITION BEFORE MOVE
00998 M00S00905.qmove +++| BX6 X2
00999 M00S00906.qmove +++| SA6 BOHC4
01000 M00S00907.qmove +++| BX7 X3
01001 M00S00908.qmove +++| SA7 BOHC1
01002 M00S00909.qmove +++| WRITEW O,BOHC,BOHCL
01003 M00S00910.qmove +++| SX5 2 SET TWO EXTRA LINES
01004 M00S00911.qmove +++|
01005 M00S00912.qmove +++|* FINISH WRITING HEADER.
01006 M00S00913.qmove +++|
01007 M00S00914.qmove +++| BOH1 WRITEW O,BOHD,BOHDL
01008 M00S00915.qmove +++| SX7 X5+8 SET LINE NUMBER
01009 M00S00916.qmove +++| SA7 LNUM
01010 M00S00917.qmove +++| EQ BOHX RETURN
01011 M00S00918.qmove +++|
01012 M00S00919.qmove +++| BOHA DATA C*1 QMOVE PROCESSOR. YY/MM/DD. HH
01013 M00S00920.qmove +++|,.MM.SS. PAGE *
01014 M00S00921.qmove +++| BOHA1 EQU *-4 DATE
01015 M00S00922.qmove +++| BOHA2 EQU *-3 TIME
01016 M00S00923.qmove +++| BOHA3 EQU *-2 PAGE
01017 M00S00924.qmove +++| BOHAL EQU *-BOHA
01018 M00S00925.qmove +++|
01019 M00S00926.qmove +++| BOHB DATA H*0* CARRIAGE CONTROL
01020 M00S00927.qmove +++| DATA H/ *** MOVED QUEUE FILE/
01021 M00S00928.qmove +++| DATA C/ DISPOSITION ***/
01022 M00S00929.qmove +++| BOHBL EQU *-BOHB
01023 M00S00930.qmove +++|
01024 M00S00931.qmove +++| BOHC DATA H*0 XXXXXXXX FILES MOVED TO FAMILY AAAAAAA*
01025 M00S00932.qmove +++| DATA C* DEVICE NN AND LEFT YYYYYYYY *
01026 M00S00933.qmove +++| BOHC1 EQU *-8 DISPOSITION BEFORE MOVE
01027 M00S00934.qmove +++| BOHC2 EQU *-5 FAMILY
01028 M00S00935.qmove +++| BOHC3 EQU *-4 DEVICE
01029 M00S00936.qmove +++| BOHC4 EQU *-2 DISPOSITION AFTER MOVE
01030 M00S00937.qmove +++| BOHCL EQU *-BOHC
01031 M00S00938.qmove +++|
01032 M00S00939.qmove +++| BOHC1A DATA H* INACTIVE*
01033 M00S00940.qmove +++| DATA H* ACTIVE*
01034 M00S00941.qmove +++| DATA H* ACTIVE*
01035 M00S00942.qmove +++| BOHC4A DATA H*INACTIVE *
01036 M00S00943.qmove +++| DATA H*ACTIVE *
01037 M00S00944.qmove +++|
01038 M00S00945.qmove +++| BOHD DATA H*0* CARRIAGE CONTROL
| Line S00946 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01039 M01S00946.ns22000 ---| DATA C*
01040 M01S00947.ns22000 ---|,LENGTH*
| Line S00040 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01041 M01S00040.ns22000 +++| DATA C* LENGTH
01042 M01S00041.ns22000 +++|,ACCESS*
01043 M00S00948.qmove +++| DATA H* * CARRIAGE CONTROL
| Line S00949 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01044 M01S00949.ns22000 ---| DATA C* NO. JSN MID FAMILY DN DT OT DATE
01045 M01S00950.ns22000 ---|,(PRUS) ERRORS *
| Line S00042 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
01046 M02S00042.241l630 ---| DATA C* NO. JSNS MID FAMILY DN DT DS DATE (PRUS)
| Line S00003 Modification History |
M01 (Added by) | 241l630 |
Seq # *Modification Id* Act
----------------------------+
01047 M01S00003.241l630 +++| DATA C* NUM JSNS MID FAMILY DN DT DS DATE (PRUS)
| Line S00043 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01048 M01S00043.ns22000 +++|,LEVEL DISPOSITION ERRORS*
01049 M00S00951.qmove +++| DATA C* *
01050 M00S00952.qmove +++| BOHDL EQU *-BOHD
01051 M00S00953.qmove +++| CDI SPACE 4,20
01052 M00S00954.qmove +++|** CDI - REWRITE CURRENT DEVICE IQFT.
01053 M00S00955.qmove +++|*
01054 M00S00956.qmove +++|* COPY THE REMAINDER OF THE OLD IQFT TO THE NEW CURRENT
01055 M00S00957.qmove +++|* DEVICE IQFT. IF QFT THRESHOLD HAS BEEN REACHED, THE
01056 M00S00958.qmove +++|* ENTRIES ARE VERIFIED AND THOSE MEETING SPECIFICATIONS
01057 M00S00959.qmove +++|* ARE NOTED ON THE OUTPUT FILE.
01058 M00S00960.qmove +++|*
01059 M00S00961.qmove +++|* ENTRY (X7) = DISPOSITION FIELD ADDRESS.
01060 M00S00962.qmove +++|* (IGCT) = COUNT OF FILES IGNORED ON DEVICE.
01061 M00S00963.qmove +++|* (NAQS) .LT. 0 IF THRESHOLD REACHED.
01062 M00S00964.qmove +++|*
01063 M00S00965.qmove +++|* EXIT (IGCT) = UPDATED COUNT OF IGNORED FILES.
01064 M00S00966.qmove +++|* (X5) = 0 IF NO ERROR.
01065 M00S00967.qmove +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
01066 M00S00968.qmove +++|*
| Line S00969 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01067 M01S00969.ns22000 ---|* USES X - 0, 1, 2, 5, 6, 7.
01068 M01S00970.ns22000 ---|* A - 1, 2, 7.
01069 M01S00971.ns22000 ---|*
01070 M01S00972.ns22000 ---|* CALLS BOF, VIE.
| Line S00044 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01071 M01S00044.ns22000 +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
01072 M01S00045.ns22000 +++|* A - 1, 2, 3, 7.
01073 M01S00046.ns22000 +++|* B - 2.
01074 M01S00047.ns22000 +++|*
01075 M01S00048.ns22000 +++|* CALLS BOF, CAF, VIE.
01076 M00S00973.qmove +++|*
01077 M00S00974.qmove +++|* MACROS READW, WRITEW.
01078 M00S00975.qmove +++|
01079 M00S00976.qmove +++|
01080 M00S00977.qmove +++| CDI SUBR ENTRY/EXIT
01081 M00S00978.qmove +++| SA7 CDIA SAVE ADDRESS
01082 M00S00979.qmove +++|
01083 M00S00980.qmove +++|* READ REMAINDER OF OLD IQFT.
01084 M00S00981.qmove +++|
01085 M00S00982.qmove +++| CDI1 BX5 X5-X5 CLEAR ERROR STATUS
01086 M00S00983.qmove +++| READW IQ,IQFE,QFEWL
01087 M00S00984.qmove +++| NZ X5,CDIX IF MASS STORAGE ERROR
01088 M00S00985.qmove +++| NZ X1,CDIX IF EOF/EOI
01089 M00S00986.qmove +++|
01090 M00S00987.qmove +++|* BUILD OUTPUT FILE IF THRESHOLD REACHED.
01091 M00S00988.qmove +++|
01092 M00S00989.qmove +++| SA2 NAQS
01093 M00S00990.qmove +++| PL X2,CDI2 IF THRESHOLD NOT REACHED
01094 M00S00991.qmove +++| SA1 IQFE+8
01095 M00S00992.qmove +++| NG X1,CDI2 IF LENGTH ERROR
| Line S00049 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01096 M01S00049.ns22000 +++| SA1 TARA+AROP SELECT ORIGIN TYPE ACCESS LEVEL CHECK
01097 M01S00050.ns22000 +++| SB2 X1+
01098 M01S00051.ns22000 +++| SA1 TARA+ARUA SET ACCESS LEVEL LIMITS
01099 M01S00052.ns22000 +++| SA2 TARA+ARLA
01100 M01S00053.ns22000 +++| SA3 IQFE+INSQ GET *INSQ* WORD OF QFT ENTRY
01101 M01S00054.ns22000 +++| RJ CAF CHECK ACCESS LEVEL OF FILE
01102 M01S00055.ns22000 +++| NZ X1,CDI2 IF FILE NOT SELECTED
01103 M00S00993.qmove +++| BX6 X6-X6
01104 M00S00994.qmove +++| RJ VIE VERIFY IQFT ENTRY
01105 M00S00995.qmove +++| NZ X1,CDI2 IF NO MATCH
01106 M00S00996.qmove +++| SX7 TBUF REWIND POINTERS
01107 M00S00997.qmove +++| SA7 T+2
01108 M00S00998.qmove +++| SA7 T+3
01109 M00S00999.qmove +++| SA2 CEQP SET CURRENT EQUIPMENT IN ENTRY
01110 M00S01000.qmove +++| LX2 48
01111 M00S01001.qmove +++| MX0 12
01112 M00S01002.qmove +++| SA1 IQFE+1
| Line S01003 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01113 M01S01003.ns22000 ---| BX6 -X0*X1 CLEAR OLD EQUIPMENT NUMBER
| Line S00056 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01114 M01S00056.ns22000 +++| BX6 -X0*X1 CLEAR OLD EST ORDINAL
01115 M00S01004.qmove +++| BX7 X6+X2
01116 M00S01005.qmove +++| SA7 A1
01117 M00S01006.qmove +++| WRITEW T,IQFE,QFEWL MOVE ENTRY TO BUFFER
01118 M00S01007.qmove +++| SA2 T+2 SET *OUT* = *IN*
01119 M00S01008.qmove +++| SX7 X2
01120 M00S01009.qmove +++| SA7 A2+B1
01121 M00S01010.qmove +++| SA1 CDIA SET DISPOSITION FIELD ADDRESS
01122 M00S01011.qmove +++| SX7 X1+
01123 M00S01012.qmove +++| RJ BOF
01124 M00S01013.qmove +++|
01125 M00S01014.qmove +++|* BUILD NEW IQFT.
01126 M00S01015.qmove +++|
01127 M00S01016.qmove +++| CDI2 WRITEW NIQ,IQFE,QFEWL
01128 M00S01017.qmove +++| SA2 IGCT INCREMENT COUNT
01129 M00S01018.qmove +++| SX7 X2+B1
01130 M00S01019.qmove +++| SA7 A2
01131 M00S01020.qmove +++| EQ CDI1 READ NEXT ENTRY
01132 M00S01021.qmove +++|
01133 M00S01022.qmove +++| CDIA CON 0 DISPOSITION FIELD ADDRESS
| Line S00012 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01134 M01S00012.ns21000 +++| CED SPACE 4,15
01135 M01S00013.ns21000 +++|** CED - COPY EOI SECTOR TO DESTINATION DEVICE.
01136 M01S00014.ns21000 +++|*
01137 M01S00015.ns21000 +++|* ENTRY OLD QUEUE FILE HAS BEEN RENAMED AS *QNAME*.
01138 M01S00016.ns21000 +++|*
01139 M01S00017.ns21000 +++|* EXIT EOI WRITTEN FROM OLD FILE TO NEW FILE.
01140 M01S00018.ns21000 +++|*
01141 M01S00019.ns21000 +++|* USES X - 0, 1, 2, 6.
01142 M01S00020.ns21000 +++|* A - 1, 2, 6.
01143 M01S00021.ns21000 +++|*
01144 M01S00022.ns21000 +++|* MACROS QCALL.
01145 M01S00023.ns21000 +++|
01146 M01S00024.ns21000 +++|
01147 M01S00025.ns21000 +++| CED SUBR ENTRY/EXIT
01148 M01S00026.ns21000 +++| SA1 =5LQNAME SET OLD QUEUE FILE NAME INTO FET
01149 M01S00027.ns21000 +++| SA2 E
01150 M01S00028.ns21000 +++| MX0 -18
01151 M01S00029.ns21000 +++| BX2 -X0*X2
01152 M01S00030.ns21000 +++| BX6 X1+X2
01153 M01S00031.ns21000 +++| SA6 A2
01154 M01S00032.ns21000 +++| SA1 A2+B1 REWIND FET
01155 M01S00033.ns21000 +++| SX6 X1
01156 M01S00034.ns21000 +++| SA6 A1+B1
01157 M01S00035.ns21000 +++| SA6 A6+B1
01158 M01S00036.ns21000 +++| QCALL QREF,E READ EOI SECTOR
01159 M01S00037.ns21000 +++| SA1 E SET NEW FILE INTO FET
01160 M01S00038.ns21000 +++| SA2 D
01161 M01S00039.ns21000 +++| MX0 42
01162 M01S00040.ns21000 +++| BX2 X0*X2
01163 M01S00041.ns21000 +++| BX1 -X0*X1
01164 M01S00042.ns21000 +++| BX6 X1+X2
01165 M01S00043.ns21000 +++| SA6 A1
01166 M01S00044.ns21000 +++| QCALL QWEF,E WRITE EOI SECTOR
01167 M01S00045.ns21000 +++| EQ CEDX RETURN
01168 M00S01023.qmove +++| CPF SPACE 4,20
01169 M00S01024.qmove +++|** CPF - COPY FILE TO DESTINATION DEVICE.
01170 M00S01025.qmove +++|*
01171 M00S01026.qmove +++|* COPY ONE QUEUE FILE FROM THE SOURCE DEVICE TO THE
01172 M00S01027.qmove +++|* DESTINATION DEVICE USING CONTROL WORDS.
01173 M00S01028.qmove +++|*
01174 M00S01029.qmove +++|* ENTRY (AQFA) .NE. 0 IF PREVIOUS READ ERROR.
01175 M00S01030.qmove +++|*
01176 M00S01031.qmove +++|* EXIT (X5) = 0 IF NO ERROR.
01177 M00S01032.qmove +++|* .LT. 0, SKIP CURRENT FILE.
01178 M00S01033.qmove +++|* .GT. 0, *K* DISPLAY MESSAGE ADDRESS.
01179 M00S01034.qmove +++|*
01180 M00S01035.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
01181 M00S01036.qmove +++|* A - 0, 1, 3, 7.
01182 M00S01037.qmove +++|* B - 6.
01183 M00S01038.qmove +++|*
| Line S01039 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01184 M01S01039.ns21000 ---|* CALLS CER, EPR.
| Line S00046 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01185 M01S00046.ns21000 +++|* CALLS CED, CER, EPR.
01186 M00S01040.qmove +++|*
| Line S01041 Modification History |
M01 (Removed by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01187 M01S01041.ns2349 ---|* MACROS READW, WRITECW, WRITEW.
| Line S00001 Modification History |
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01188 M01S00001.ns2349 +++|* MACROS READW, UTL, WRITECW, WRITEW.
01189 M00S01042.qmove +++|
01190 M00S01043.qmove +++|
| Line S01044 Modification History |
M01 (Removed by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01191 M01S01044.ns2349 ---| CPF5 SA0 D FLUSH BUFFER
| Line S00002 Modification History |
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01192 M01S00002.ns2349 +++| CPF5 UTL CLEAR CLEAR *UTL=* ENTRY POINT IN *SEPW*
01193 M01S00003.ns2349 +++| SA0 D FLUSH BUFFER
01194 M00S01045.qmove +++| WRITECW A0,R
01195 M00S01046.qmove +++| RJ CER CHECK FOR ERROR
01196 M00S01047.qmove +++| NZ X5,CPF3 IF ERROR
| Line S00047 Modification History |
M01 (Added by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
01197 M01S00047.ns21000 +++| RJ CED COPY EOI TO DESTINATION DEVICE
| Line S00004 Modification History |
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01198 M01S00004.ns2349 +++| UTL SET RESET *UTL=* ENTRY POINT
01199 M00S01048.qmove +++|
01200 M00S01049.qmove +++| CPF SUBR ENTRY/EXIT
01201 M00S01050.qmove +++| SA1 AQFA
01202 M00S01051.qmove +++| NZ X1,CPF1 IF PREVIOUS READ ERROR
01203 M00S01052.qmove +++| SX7 BLANK SAVE NO ERROR DISPOSITION FIELD ADDRESS
01204 M00S01053.qmove +++| SA7 CPFA
01205 M00S01054.qmove +++|
01206 M00S01055.qmove +++|* COPY FILE.
01207 M00S01056.qmove +++|
| Line S01057 Modification History |
M01 (Removed by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01208 M01S01057.ns2349 ---| CPF1 SA0 Q READ CONTROL WORD
| Line S00005 Modification History |
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01209 M01S00005.ns2349 +++| CPF1 UTL SET SET *UTL=* ENTRY POINT
01210 M01S00006.ns2349 +++| SA0 Q READ CONTROL WORD
01211 M00S01058.qmove +++| READW A0,WBUF,B1
01212 M00S01059.qmove +++| NZ X1,CPF5 IF EOI
01213 M00S01060.qmove +++| SA1 WBUF CHECK FOR PARITY ERROR
01214 M00S01061.qmove +++| SX5 TCEPA SET PARITY ERROR CODE
01215 M00S01062.qmove +++| NG X1,CPF4 IF ERROR
01216 M00S01063.qmove +++| RJ CER CHECK FOR OTHER ERROR
01217 M00S01064.qmove +++| ZR X5,CPF2 IF NO ERROR
01218 M00S01065.qmove +++| SX6 X5-TCEPA
01219 M00S01066.qmove +++| NZ X6,CPF3 IF ERROR OTHER THAN PARITY ERROR
01220 M00S01067.qmove +++| CPF2 SA1 WBUF FIND BLOCK SIZE
01221 M00S01068.qmove +++| SX2 5
01222 M00S01069.qmove +++| SX3 X1+4 ROUND UP
01223 M00S01070.qmove +++| IX0 X3/X2
01224 M00S01071.qmove +++| READW Q,WBUF+1,X0+B1 READ REST OF BLOCK
| Line S00007 Modification History |
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01225 M01S00007.ns2349 +++| UTL CLEAR CLEAR *UTL=* ENTRY POINT
01226 M00S01072.qmove +++| SA0 D
01227 M00S01073.qmove +++| WRITEW A0,WBUF,X0+2
01228 M00S01074.qmove +++| RJ CER CHECK FOR ERROR
01229 M00S01075.qmove +++| ZR X5,CPF1 IF NO ERROR
01230 M00S01076.qmove +++|
01231 M00S01077.qmove +++|* PROCESS ERROR.
01232 M00S01078.qmove +++|
01233 M00S01079.qmove +++| CPF3 SX7 X5-11B
01234 M00S01080.qmove +++| NZ X7,CPF4 IF NOT SPECIAL MASS STORAGE ERROR
01235 M00S01081.qmove +++| SA3 A0+6 GET ERROR CODE
01236 M00S01082.qmove +++| MX0 -9
01237 M00S01083.qmove +++| BX5 -X0*X3
01238 M00S01084.qmove +++| SX5 X5+11B BIAS ERROR CODE
01239 M00S01085.qmove +++| CPF4 SB6 TCEP SET ERROR TABLE ADDRESS
01240 M00S01086.qmove +++| RJ EPR PROCESS ERROR
01241 M00S01087.qmove +++| NZ X5,CPFX IF ERROR
01242 M00S01088.qmove +++| SA7 CPFA SAVE DISPOSITION FIELD ADDRESS
| Line S00008 Modification History |
M01 (Added by) | ns2349 |
Seq # *Modification Id* Act
----------------------------+
01243 M01S00008.ns2349 +++| UTL SET RESET *UTL=* ENTRY POINT
01244 M00S01089.qmove +++| JP B6 CONTINUE PROCESSING
01245 M00S01090.qmove +++|
01246 M00S01091.qmove +++| CPFA CON 0 DISPOSITION FIELD ADDRESS
01247 M00S01092.qmove +++| CUF SPACE 4,20
01248 M00S01093.qmove +++|** CUF - CLEAN UP CURRENT FILE AFTER ERROR.
01249 M00S01094.qmove +++|*
01250 M00S01095.qmove +++|* ASSURE THAT THE CURRENT FILE AND IQFT ENTRY, IF
01251 M00S01096.qmove +++|* NECESSARY, ARE REPLACED ON THE SOURCE DEVICE AFTER
01252 M00S01097.qmove +++|* AN ERROR HAS OCCURED.
01253 M00S01098.qmove +++|*
01254 M00S01099.qmove +++|* ENTRY (X5) = ERROR MESSAGE ADDRESS.
01255 M00S01100.qmove +++|* = 0 IF CURRENTLY PROCESSING AN ERROR.
01256 M00S01101.qmove +++|* (A0) = FET ADDRESS.
01257 M00S01102.qmove +++|* (AQFB) = 0 IF ERROR ATTACHING QUEUED FILE.
01258 M00S01103.qmove +++|* (DSPB) = 0, MOVE INACTIVE QUEUES.
01259 M00S01104.qmove +++|* = 1, MOVE ACTIVE QUEUES.
01260 M00S01105.qmove +++|* = 2, MOVE ALL QUEUES.
01261 M00S01106.qmove +++|*
01262 M00S01107.qmove +++|* EXIT (X4) = ERROR MESSAGE ADDRESS.
01263 M00S01108.qmove +++|* (X5) = 0 IF NO NEW ERROR.
01264 M00S01109.qmove +++|* = MESSAGE ADDRESS IF ERROR RETURNING FILE.
01265 M00S01110.qmove +++|*
01266 M00S01111.qmove +++|* USES X - 1, 4, 5, 6, 7.
01267 M00S01112.qmove +++|* A - 1, 4, 5, 6, 7.
01268 M00S01113.qmove +++|*
01269 M00S01114.qmove +++|* CALLS RTS.
01270 M00S01115.qmove +++|*
01271 M00S01116.qmove +++|* MACROS MOVE, WRITEW.
01272 M00S01117.qmove +++|
01273 M00S01118.qmove +++|
01274 M00S01119.qmove +++| CUF SUBR ENTRY/EXIT
01275 M00S01120.qmove +++| SX6 X5+ SAVE ERROR ADDRESS
01276 M00S01121.qmove +++| SA6 CUFA
01277 M00S01122.qmove +++| SA1 AQFB
01278 M00S01123.qmove +++| NZ X1,CUF1 IF NOT ATTACHING ERROR
01279 M00S01124.qmove +++| SA5 T+3 *OUT*
01280 M00S01125.qmove +++| MOVE QFEWL,X5,IQFE
01281 M00S01126.qmove +++| SX7 X5+QFEWL UPDATE *OUT* POINTER
01282 M00S01127.qmove +++| SA7 A5
01283 M00S01128.qmove +++| BX5 X5-X5 CLEAR ERROR
01284 M00S01129.qmove +++| SA1 DSPB
01285 M00S01130.qmove +++| NZ X1,CUF2 IF MOVING ACTIVE
01286 M00S01131.qmove +++| WRITEW NIQ,IQFE,QFEWL WRITE ENTRY BACK TO IQFT
01287 M00S01132.qmove +++| SA1 IGCT INCREMENT IGNORED COUNT
01288 M00S01133.qmove +++| SX6 X1+B1
01289 M00S01134.qmove +++| SA6 A1
01290 M00S01135.qmove +++| EQ CUF2 RESET ERROR ADDRESS
01291 M00S01136.qmove +++|
01292 M00S01137.qmove +++| CUF1 RJ RTS RETURN QUEUE FILE TO SOURCE DEVICE
01293 M00S01138.qmove +++| CUF2 SA4 CUFA RESET ERROR ADDRESS
01294 M00S01139.qmove +++| EQ CUFX RETURN
01295 M00S01140.qmove +++|
01296 M00S01141.qmove +++| CUFA CON 0 ERROR ADDRESS
01297 M00S01142.qmove +++| DEQ SPACE 4,30
01298 M00S01143.qmove +++|** DEQ - DEQUEUE ACTIVE FILES.
01299 M00S01144.qmove +++|*
01300 M00S01145.qmove +++|* BUILD A NEW IQFT FROM A BUFFER OF PSEUDO IQFT ENTRIES
01301 M00S01146.qmove +++|* AND CALL ROUTINES TO PHYSICALLY MOVE THE FILES FROM
01302 M00S01147.qmove +++|* ONE DEVICE TO ANOTHER.
01303 M00S01148.qmove +++|*
01304 M00S01149.qmove +++|* ENTRY (DEQB) .NE. 0 IF NEW IQFT ALREADY CREATED ON DEVICE.
01305 M00S01150.qmove +++|* (ATTA) .NE. 0 IF IQFT ATTACHED.
01306 M00S01151.qmove +++|* (PAQA) .NE. 0 IF MORE QFT-S TO PROCESS.
01307 M00S01152.qmove +++|*
01308 M00S01153.qmove +++|* EXIT (X5) = 0 IF NO ERROR.
01309 M00S01154.qmove +++|* = *K* DISPLAY MESSAGE ADDRESS IF ERROR.
01310 M00S01155.qmove +++|* (ATTA) = 0 IF ALL QFT ENTRIES PROCESSED.
01311 M00S01156.qmove +++|* (DEQB) .NE. 0 IF NEW IQFT CREATED.
01312 M00S01157.qmove +++|*
01313 M00S01158.qmove +++|* USES X - 0, 1, 2, 3, 5, 6, 7.
01314 M00S01159.qmove +++|* A - 0, 1, 2, 3, 6, 7.
01315 M00S01160.qmove +++|* B - 6.
01316 M00S01161.qmove +++|*
| Line S01162 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01317 M01S01162.ns2099 ---|* CALLS AQF, ATT, BOF, CER, CPF, EPR,
01318 M01S01163.ns2099 ---|* IIM, NIF, RNI, RTD, SFD, SPF.
| Line S00005 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01319 M01S00005.ns2099 +++|* CALLS AQF, ATT, BOF, CER, CPF, EPR, IIM,
01320 M01S00006.ns2099 +++|* RNI, RTD, SFD, SPF.
01321 M00S01164.qmove +++|*
| Line S01165 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01322 M01S01165.ns2099 ---|* MACROS QCALL, SKIPEI, WRITE, WRITEF.
| Line S00007 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01323 M01S00007.ns2099 +++|* MACROS MESSAGE, SKIPEI, WRITE.
01324 M00S01166.qmove +++|
01325 M00S01167.qmove +++|
01326 M00S01168.qmove +++|* CHECK FOR END OF QFT.
01327 M00S01169.qmove +++|
01328 M00S01170.qmove +++| DEQ4 SX5 B0+ CLEAR ERROR FLAG
01329 M00S01171.qmove +++| SA3 PAQA
01330 M00S01172.qmove +++| NZ X3,DEQX IF MORE QFT-S TO PROCESS
01331 M00S01173.qmove +++| DEQ5 RJ RNI RETURN NEW IQFT
01332 M00S01174.qmove +++| SA6 ATTA
01333 M00S01175.qmove +++|
01334 M00S01176.qmove +++| DEQ SUBR ENTRY/EXIT
01335 M00S01177.qmove +++| SA1 ATTA
01336 M00S01178.qmove +++| NZ X1,DEQ2 IF FILE ALREADY ATTACHED
01337 M00S01179.qmove +++| SX6 DTQF PRESET DETACH FUNCTION
01338 M00S01180.qmove +++| SA6 DEQA
01339 M00S01181.qmove +++|
01340 M00S01182.qmove +++|* CHECK FOR IQFT ON DEVICE TO MOVE TO.
01341 M00S01183.qmove +++|
01342 M00S01184.qmove +++| SA2 TARA+ARDD GET EQUIPMENT TO MOVE TO
01343 M00S01185.qmove +++| MX0 -12
01344 M00S01186.qmove +++| BX5 -X0*X2
01345 M00S01187.qmove +++| SA1 TEQA+X5 CHECK FOR IQFT
01346 M00S01188.qmove +++| LX1 59-0
01347 M00S01189.qmove +++| NG X1,DEQ1 IF AN IQFT FILE ON THIS DEVICE
01348 M00S01190.qmove +++| SA2 DEQB
01349 M00S01191.qmove +++| NZ X2,DEQ1 IF FILE PREVIOUSLY FORCED ON DEVICE
| Line S01192 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01350 M01S01192.ns2099 ---|
01351 M01S01193.ns2099 ---|* FORCE NEW IQFT ON DEVICE.
01352 M01S01194.ns2099 ---|
01353 M01S01195.ns2099 ---| SX7 PGQF SET PURGE FUNCTION
01354 M01S01196.ns2099 ---| SA7 DEQA
01355 M01S01197.ns2099 ---| SA0 MIQ CREATE NEW IQFT FILE
| Line S00001 Modification History |
M01 (Added by) | ns2043 |
M02 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01356 M02S00001.ns2099 ---| SA1 A0+B1 CLEAR ERROR PROCESSING
01357 M02S00002.ns2099 ---| MX0 1
01358 M02S00003.ns2099 ---| LX0 44-59
01359 M02S00004.ns2099 ---| BX6 -X0*X1
01360 M02S00005.ns2099 ---| SA6 A1
| Line S01198 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01361 M01S01198.ns2099 ---| RJ NIF
| Line S00006 Modification History |
M01 (Added by) | ns2043 |
M02 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01362 M02S00006.ns2099 ---| SA1 A0+B1 RESET ERROR PROCESSING
01363 M02S00007.ns2099 ---| MX0 1
01364 M02S00008.ns2099 ---| LX0 44-59
01365 M02S00009.ns2099 ---| BX6 X0+X1
01366 M02S00010.ns2099 ---| SA6 A1
| Line S01199 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01367 M01S01199.ns2099 ---| WRITEF MIQ,R
01368 M01S01200.ns2099 ---| QCALL STQF,MIQ SET NEW IQFT
01369 M01S01201.ns2099 ---| SX6 B1+ SET FILE FORCED ON DEVICE FLAG
01370 M01S01202.ns2099 ---| SA6 DEQB
| Line S00008 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01371 M01S00008.ns2099 +++| SX5 MES11 * IQFT NOT FOUND.*
01372 M01S00009.ns2099 +++| MESSAGE X5
01373 M01S00010.ns2099 +++| EQ DEQ5 EXIT WITH ERROR
01374 M00S01203.qmove +++|
01375 M00S01204.qmove +++|* ATTACH IQFT FILE.
01376 M00S01205.qmove +++|
| Line S01206 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01377 M01S01206.ns22000 ---| DEQ1 SA2 TARA+ARDD EQUIPMENT NUMBER
| Line S00057 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01378 M01S00057.ns22000 +++| DEQ1 SA2 TARA+ARDD EST ORDINAL
01379 M00S01207.qmove +++| MX0 -12
01380 M00S01208.qmove +++| BX2 -X0*X2
01381 M00S01209.qmove +++| SX3 MIQ ATTACH IQFT
01382 M00S01210.qmove +++| SA0 X3+
01383 M00S01211.qmove +++| RJ ATT
| Line S01212 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01384 M01S01212.ns2099 ---| SKIPEI X3,R POSITION FILE
01385 M00S01213.qmove +++| WRITE MIQ,* PRESET WRITE FUNCTION
01386 M00S01214.qmove +++| ZR X5,DEQ2 IF NO ERROR
01387 M00S01215.qmove +++| SA2 TARA+ARDD ISSUE IQFT ERROR MESSAGE
01388 M00S01216.qmove +++| MX0 -12
01389 M00S01217.qmove +++| BX2 -X0*X2
01390 M00S01218.qmove +++| RJ IIM
01391 M00S01219.qmove +++| RJ CER CLEAR ERROR
01392 M00S01220.qmove +++| SB6 TQEP SET ERROR TABLE ADDRESS
01393 M00S01221.qmove +++| RJ EPR PROCESS ERROR
01394 M00S01222.qmove +++| EQ DEQX RETURN
01395 M00S01223.qmove +++|
| Line S01224 Modification History |
M01 (Removed by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01396 M01S01224.ns2099 ---| DEQ2 SA1 T SET *QFM* PARAMETERS IN FET
| Line S00011 Modification History |
M01 (Added by) | ns2099 |
Seq # *Modification Id* Act
----------------------------+
01397 M01S00011.ns2099 +++| DEQ2 SKIPEI MIQ,R
01398 M01S00012.ns2099 +++| WRITE MIQ,*
01399 M01S00013.ns2099 +++| SA1 T
01400 M00S01225.qmove +++| RJ SPF
01401 M00S01226.qmove +++|
01402 M00S01227.qmove +++|* ATTACH QUEUE FILES THAT MEET ALL SPECIFICATIONS.
01403 M00S01228.qmove +++|
01404 M00S01229.qmove +++| DEQ3 SX5 AQFF SET ATTACH FUNCTION
01405 M00S01230.qmove +++| RJ AQF ATTACH FILE
01406 M00S01231.qmove +++| NG X5,DEQ3 IF SKIP FILE
01407 M00S01232.qmove +++| NZ X5,DEQ5 IF ERROR
01408 M00S01233.qmove +++| NZ X6,DEQ4 IF END OF BUFFER
01409 M00S01234.qmove +++|
01410 M00S01235.qmove +++|* MOVE IQFT ENTRY AND QUEUE FILE TO DESTINATION DEVICE.
01411 M00S01236.qmove +++|
01412 M00S01237.qmove +++| RJ SFD SET FILE ON DESTINATION DEVICE
01413 M00S01238.qmove +++| NG X5,DEQ3 IF SKIP FILE
01414 M00S01239.qmove +++| NZ X5,DEQ5 IF ERROR
01415 M00S01240.qmove +++| RJ CPF COPY FILE TO DESTINATION DEVICE
01416 M00S01241.qmove +++| NG X5,DEQ3 IF SKIP FILE
01417 M00S01242.qmove +++| NZ X5,DEQ5 IF ERROR
01418 M00S01243.qmove +++| RJ RTD RETURN FILES
01419 M00S01244.qmove +++| NG X5,DEQ3 IF SKIP FILE
01420 M00S01245.qmove +++| NZ X5,DEQ5 IF ERROR
01421 M00S01246.qmove +++| RJ BOF BUILD OUTPUT FILE
01422 M00S01247.qmove +++| EQ DEQ3 PROCESS NEXT FILE
01423 M00S01248.qmove +++|
01424 M00S01249.qmove +++| DEQA CON 0 DETACH/PURGE IQFT FUNCTION
01425 M00S01250.qmove +++| DEQB CON 0 IQFT FORCED ON DEVICE FLAG
01426 M00S01251.qmove +++| EPR SPACE 4,30
01427 M00S01252.qmove +++|** EPR - ERROR CODE PROCESSOR.
01428 M00S01253.qmove +++|*
01429 M00S01254.qmove +++|* USE THE GIVEN ERROR CODE TO FIND THE CORRECT ERROR
01430 M00S01255.qmove +++|* MESSAGE OR PROCESSOR IN THE ERROR TABLES. IF A PROCESSOR
01431 M00S01256.qmove +++|* IS NEEDED, IT IS EXECUTED, THEN CONTROL IS SENT BACK TO
01432 M00S01257.qmove +++|* THE CALLING SUBROUTINE.
01433 M00S01258.qmove +++|*
01434 M00S01259.qmove +++|* ENTRY (X5) = ERROR CODE.
01435 M00S01260.qmove +++|* (B6) = ERROR TABLE ADDRESS.
01436 M00S01261.qmove +++|* (A0) = FET ADDRESS.
01437 M00S01262.qmove +++|* (DSPB) = 0, MOVE INACTIVE QUEUES.
01438 M00S01263.qmove +++|* = 1, MOVE ACTIVE QUEUES.
01439 M00S01264.qmove +++|* = 2, MOVE ALL QUEUES.
01440 M00S01265.qmove +++|* (PAQA) = NEXT ENTRY IN QFT BUFFER IF *DSPB* .NE. 0.
01441 M00S01266.qmove +++|* (ERRC) .NE. 0 IF ALREADY PROCESSING AN ERROR EXIT.
01442 M00S01267.qmove +++|*
01443 M00S01268.qmove +++|* EXIT (X5) = 0 IF TO CONTINUE PROCESSING.
01444 M00S01269.qmove +++|* .LT. 0 IF SKIP FILE.
01445 M00S01270.qmove +++|* .GT. 0 IF *K* DISPLAY MESSAGE ADDRESS.
01446 M00S01271.qmove +++|* (X7) = DISPOSITION FIELD ADDRESS.
01447 M00S01272.qmove +++|* (B6) = PROCESSING ADDRESS IF *CIO* ERROR.
01448 M00S01273.qmove +++|* (IGCT) INCREMENTED IF MOVING INACTIVE.
01449 M00S01274.qmove +++|* TO *ERR3* IF PROCESSING AN ERROR EXIT OR SECOND ERROR
01450 M00S01275.qmove +++|* FOUND WHILE PROCESSING FIRST ERROR.
01451 M00S01276.qmove +++|*
01452 M00S01277.qmove +++|* USES X - 1, 2, 3, 5, 6, 7.
01453 M00S01278.qmove +++|* A - 1, 2, 5, 6, 7.
01454 M00S01279.qmove +++|* B - 6, 7.
01455 M00S01280.qmove +++|*
01456 M00S01281.qmove +++|* CALLS BOF, CDI, CER, CUF, PCI, RTS, SFD, SQB.
01457 M00S01282.qmove +++|*
01458 M00S01283.qmove +++|* MACROS MESSAGE, QCALL, READCW, REWIND, WRITECW.
01459 M00S01284.qmove +++|
01460 M00S01285.qmove +++|
01461 M00S01286.qmove +++| EPR SUBR ENTRY/EXIT
01462 M00S01287.qmove +++| SA1 ERRC
01463 M00S01288.qmove +++| NZ X1,ERR3 IF PROCESSING ERROR EXIT
01464 M00S01289.qmove +++|
01465 M00S01290.qmove +++|* CHECK FOR UNKNOWN ERROR CODE.
01466 M00S01291.qmove +++|
01467 M00S01292.qmove +++| SA2 B6-B1 NUMBER OF TABLE ENTRIES
01468 M00S01293.qmove +++| IX6 X5-X2
01469 M00S01294.qmove +++| PL X6,EPR1 IF NOT IN TABLE
01470 M00S01295.qmove +++|
01471 M00S01296.qmove +++|* GET ERROR MESSAGE ADDRESS FROM TABLE.
01472 M00S01297.qmove +++|
01473 M00S01298.qmove +++| SA5 B6+X5
01474 M00S01299.qmove +++| ZR X5,EPR1 IF DEFAULT MESSAGE TO BE USED
01475 M00S01300.qmove +++| NG X5,EPR2 IF PROCESSOR ADDRESS
01476 M00S01301.qmove +++| SB6 A5+
01477 M00S01302.qmove +++| EPR1 SA5 B6 SET ERROR MESSAGE ADDRESS
01478 M00S01303.qmove +++| MESSAGE X5
01479 M00S01304.qmove +++| SX2 IQ CHECK FOR ATTACH IQFT FILE ERRORS
01480 M00S01305.qmove +++| SX3 MIQ
01481 M00S01306.qmove +++| SX1 A0+
01482 M00S01307.qmove +++| IX6 X2-X1
01483 M00S01308.qmove +++| IX7 X3-X1
01484 M00S01309.qmove +++| ZR X6,EPRX IF OLD IQFT ERROR
01485 M00S01310.qmove +++| ZR X7,EPRX IF NEW IQFT ERROR
01486 M00S01311.qmove +++| RJ CUF CLEAN UP FILE
01487 M00S01312.qmove +++| NZ X5,ERR3 IF ERROR
01488 M00S01313.qmove +++| SX5 X4+ RESET ORIGINAL ERROR
01489 M00S01314.qmove +++| EQ EPRX RETURN
01490 M00S01315.qmove +++|
01491 M00S01316.qmove +++| EPR2 SB7 X5 SET PROCESSOR ADDRESS
01492 M00S01317.qmove +++| JP B7 JUMP TO PROCESSOR
01493 M00S01318.qmove +++|
01494 M00S01319.qmove +++| EPR3 NZ X5,ERR3 IF ERROR
01495 M00S01320.qmove +++| RJ BOF BUILD OUTPUT FILE
01496 M00S01321.qmove +++| SX5 -B1 SET SKIP FILE
01497 M00S01322.qmove +++| EQ EPRX RETURN
| Line S00058 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01498 M01S00058.ns22000 +++| EAL SPACE 4,10
| Line S00059 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01499 M02S00059.v23l617 ---|** EAL - PROCESS INVALID ACCESS LEVEL.
| Line S00014 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01500 M01S00014.v23l617 +++|** EAL - PROCESS INCORRECT ACCESS LEVEL.
| Line S00060 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01501 M01S00060.ns22000 +++|
01502 M01S00061.ns22000 +++|
01503 M01S00062.ns22000 +++| EAL BX5 X5-X5 SET NO ERROR MESSAGE
01504 M01S00063.ns22000 +++| RJ CUF CLEAN UP FILE
| Line S00064 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01505 M02S00064.v23l617 ---| SX7 BOFI *INVALID ACCESS LEVEL - FILE IGNORED*
| Line S00015 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01506 M01S00015.v23l617 +++| SX7 BOFI *INCORRECT ACCESS LEVEL - FILE IGNORED*
| Line S00065 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
01507 M01S00065.ns22000 +++| EQ EPR3 COMPLETE PROCESSING
01508 M00S01323.qmove +++| EDF SPACE 4
01509 M00S01324.qmove +++|** EDF - PROCESS DUPLICATE FILE NAME.
01510 M00S01325.qmove +++|
01511 M00S01326.qmove +++|
01512 M00S01327.qmove +++| EDF BX5 X5-X5 SET NO ERROR MESSAGE
01513 M00S01328.qmove +++| RJ CUF CLEAN UP FILE
01514 M00S01329.qmove +++| SX7 BOFH *DUPLICATE FILE NAME - FILE IGNORED*
01515 M00S01330.qmove +++| EQ EPR3 COMPLETE PROCESSING
01516 M00S01331.qmove +++| EPE SPACE 4
01517 M00S01332.qmove +++|** EPE - PROCESS WRITE PARITY ERRORS.
01518 M00S01333.qmove +++|
01519 M00S01334.qmove +++|
01520 M00S01335.qmove +++| EPE SX2 Q CHECK IF READ ERROR
01521 M00S01336.qmove +++| SX3 A0
01522 M00S01337.qmove +++| IX6 X2-X3
01523 M00S01338.qmove +++| ZR X6,ERM IF READ MASS STORAGE ERROR
01524 M00S01339.qmove +++| QCALL IQFF,D INTERLOCK QUEUED FILE
01525 M00S01340.qmove +++| RJ CER CHECK FOR ERROR
01526 M00S01341.qmove +++| NZ X5,ERR3 IF ERROR
01527 M00S01342.qmove +++| SA1 EFCT INCREMENT INTERLOCKED FILE COUNT
01528 M00S01343.qmove +++| SX6 X1+B1
01529 M00S01344.qmove +++| SA6 A1
01530 M00S01345.qmove +++| REWIND Q,R
01531 M00S01346.qmove +++| REWIND D,R
01532 M00S01347.qmove +++| RJ SFD SET FILE ON DEVICE
01533 M00S01348.qmove +++| NZ X5,ERR3 IF ERROR OR SKIP FILE
01534 M00S01349.qmove +++| WRITECW D,* PRESET WRITE FUNCTION
01535 M00S01350.qmove +++| READCW Q BEGIN READ
01536 M00S01351.qmove +++| SB6 CPF1 SET PROCESSING ADDRESS
01537 M00S01352.qmove +++| SA2 CPFA RESET CURRENT DISPOSITION FIELD
01538 M00S01353.qmove +++| SX7 X2
01539 M00S01354.qmove +++| EQ EPRX RETURN
01540 M00S01355.qmove +++| ERM SPACE 4
01541 M00S01356.qmove +++|** ERM - PROCESS READ MASS STORAGE ERRORS.
01542 M00S01357.qmove +++|
01543 M00S01358.qmove +++|
01544 M00S01359.qmove +++| ERM SA2 TARA+ARFC CHECK ERRORED FILE PROCESSING STATUS
01545 M00S01360.qmove +++| LX2 59-57
01546 M00S01361.qmove +++| NG X2,ERM1 IF PROCESSING SELECTED
01547 M00S01362.qmove +++|
01548 M00S01363.qmove +++|* PROCESS READ ERRORS WITH ERRORED FILE PROCESSING DESELECTED.
01549 M00S01364.qmove +++|
01550 M00S01365.qmove +++| RJ RTS RETURN FILE TO SOURCE DEVICE
01551 M00S01366.qmove +++| SX7 BOFD *READ ERROR - FILE IGNORED*
01552 M00S01367.qmove +++| EQ EPR3 COMPLETE PROCESSING
01553 M00S01368.qmove +++|
01554 M00S01369.qmove +++|* PROCESS READ ERRORS WITH ERRORED FILE PROCESSING SELECTED.
01555 M00S01370.qmove +++|
01556 M00S01371.qmove +++| ERM1 SX5 B0+ CLEAR ERROR
01557 M00S01372.qmove +++| SB6 CPF2 SET *CPF* PROCESSING ADDRESS
01558 M00S01373.qmove +++| SX7 BOFE *READ ERROR - FILE MOVED*
01559 M00S01374.qmove +++| EQ EPRX RETURN
01560 M00S01375.qmove +++| ESS SPACE 4
| Line S01376 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01561 M01S01376.v23l617 ---|** ESS - PROCESS INVALID SYSTEM SECTOR ERRORS.
| Line S00016 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
01562 M01S00016.v23l617 +++|** ESS - PROCESS INCORRECT SYSTEM SECTOR ERRORS.
01563 M00S01377.qmove +++|
01564 M00S01378.qmove +++|
01565 M00S01379.qmove +++| ESS BX5 X5-X5 SET NO ERROR MESSAGE
01566 M00S01380.qmove +++| RJ CUF CLEAN UP FILE
01567 M00S01381.qmove +++| SX7 BOFF *SYSTEM SECTOR ERROR - FILE IGNORED*
01568 M00S01382.qmove +++| EQ EPR3 COMPLETE PROCESSING
01569 M00S01383.qmove +++| ETL SPACE 4
01570 M00S01384.qmove +++|** ETL - PROCESS TRACK LIMIT.
01571 M00S01385.qmove +++|
01572 M00S01386.qmove +++|
01573 M00S01387.qmove +++| ETL RJ RTS RETURN QUEUE FILE TO SOURCE DEVICE
01574 M00S01388.qmove +++| NZ X5,ERR3 IF ERROR
01575 M00S01389.qmove +++| SX7 BOFG *TRACK LIMIT - FILE IGNORED*
01576 M00S01390.qmove +++| RJ BOF BUILD OUTPUT FILE
01577 M00S01391.qmove +++| SA2 DSPB
01578 M00S01392.qmove +++| ZR X2,ETL3 IF MOVING INACTIVE
01579 M00S01393.qmove +++|
01580 M00S01394.qmove +++|* EMPTY BUFFER CONTENTS.
01581 M00S01395.qmove +++|
01582 M00S01396.qmove +++| ETL1 SA1 T+2 *IN*
01583 M00S01397.qmove +++| SA5 A1+B1 *OUT*
01584 M00S01398.qmove +++| IX7 X1-X5
01585 M00S01399.qmove +++| ZR X7,ETL2 IF END OF BUFFER
01586 M00S01400.qmove +++| SX6 X5+QFEWL ADVANCE *OUT*
01587 M00S01401.qmove +++| SA6 A5
01588 M00S01402.qmove +++| BX7 X7-X7 ZERO FAMILY/MACHINE ID WORD OF IQFT ENTRY
01589 M00S01403.qmove +++| SA7 X5+9
01590 M00S01404.qmove +++| SX7 BOFG *TRACK LIMIT - FILE IGNORED*
01591 M00S01405.qmove +++| RJ BOF BUILD OUTPUT FILE
01592 M00S01406.qmove +++| EQ ETL1 PROCESS NEXT ENTRY
01593 M00S01407.qmove +++|
01594 M00S01408.qmove +++| ETL2 SA1 PAQA SET NEXT ENTRY ADDRESS
01595 M00S01409.qmove +++| SB6 X1+
01596 M00S01410.qmove +++| ZR X1,ETL4 IF ALL QFT ENTRIES PROCESSED
01597 M00S01411.qmove +++| RJ SQB SEARCH QFT BUFFER
01598 M00S01412.qmove +++| SA6 PAQA SAVE STATUS
01599 M00S01413.qmove +++| EQ ETL1 PROCESS NEXT ENTRY
01600 M00S01414.qmove +++|
01601 M00S01415.qmove +++|* REWRITE IQFT.
01602 M00S01416.qmove +++|
01603 M00S01417.qmove +++| ETL3 SX6 -1 SET THRESHOLD FLAG
01604 M00S01418.qmove +++| SA6 NAQS
01605 M00S01419.qmove +++| SX7 BOFG *TRACK LIMIT - FILE IGNORED*
01606 M00S01420.qmove +++| RJ CDI COPY OLD TO NEW IQFT
01607 M00S01421.qmove +++| NZ X5,ERR3 IF ERROR
01608 M00S01422.qmove +++| SX6 B0+ CLEAR THRESHOLD AND FLAG
01609 M00S01423.qmove +++| SA6 NAQS
01610 M00S01424.qmove +++| SA6 PIQA
01611 M00S01425.qmove +++|
01612 M00S01426.qmove +++|* SET FOR RETURN.
01613 M00S01427.qmove +++|
01614 M00S01428.qmove +++| ETL4 SX5 MC07 *TRACK LIMIT*
01615 M00S01429.qmove +++| MESSAGE X5
01616 M00S01430.qmove +++| EQ EPRX RETURN
01617 M00S01431.qmove +++| ERP$ SPACE 4,20
01618 M00S01432.qmove +++|** ERP$ - *READW*/*WRITEW* ERROR PROCESSOR.
01619 M00S01433.qmove +++|*
01620 M00S01434.qmove +++|* PROCESS ERRORS FOUND DURING A *READW* OR *WRITEW* CALL.
01621 M00S01435.qmove +++|*
01622 M00S01436.qmove +++|* ENTRY FROM *COMCCIO*.
01623 M00S01437.qmove +++|* (X2) = FET ADDRESS.
01624 M00S01438.qmove +++|* (X7) = ERROR CODE FROM FET.
01625 M00S01439.qmove +++|*
01626 M00S01440.qmove +++|* EXIT (X5) .NE. 0 IF TRACK LIMIT.
01627 M00S01441.qmove +++|* (X5) .EQ. *MES5* IF IQFT READ ERROR.
01628 M00S01442.qmove +++|* (X2) = FET ADDRESS IF READ PARITY ERROR.
01629 M00S01443.qmove +++|* TO *CPFX* IF TRACK LIMIT.
01630 M00S01444.qmove +++|* TO *CPF1* IF WRITE PARITY ERROR.
01631 M00S01445.qmove +++|* TO *ERPX$* IF READ PARITY ERROR.
01632 M00S01446.qmove +++|* TO *RDW=* IF IQFT READ ERROR.
01633 M00S01447.qmove +++|*
01634 M00S01448.qmove +++|* USES X - 1, 2, 3, 5, 6.
01635 M00S01449.qmove +++|* A - 1, 2, 6.
01636 M00S01450.qmove +++|* B - 6.
01637 M00S01451.qmove +++|*
01638 M00S01452.qmove +++|* CALLS CER, EPR, IIM, PCI.
01639 M00S01453.qmove +++|*
01640 M00S01454.qmove +++|* MACROS MESSAGE.
01641 M00S01455.qmove +++|
01642 M00S01456.qmove +++|
01643 M00S01457.qmove +++| ERP$ SX6 X2-Q
01644 M00S01458.qmove +++| ZR X6,ERP1 IF READ PARITY ERROR
01645 M00S01459.qmove +++| SX6 X2-IQ
01646 M00S01460.qmove +++| ZR X6,ERP2 IF IQFT READ ERROR
01647 M00S01461.qmove +++|
01648 M00S01462.qmove +++|* PROCESS WRITE ERRORS.
01649 M00S01463.qmove +++|
01650 M00S01464.qmove +++| SB6 TCEP SET ERROR TABLE ADDRESS
01651 M00S01465.qmove +++| RJ CER CHECK FOR ERROR
01652 M00S01466.qmove +++| RJ EPR PROCESS ERROR
01653 M00S01467.qmove +++| NZ X5,CPFX IF TRACK LIMIT
01654 M00S01468.qmove +++| EQ CPF1 JUMP TO PROCESS WRITE PARITY ERROR
01655 M00S01469.qmove +++|
01656 M00S01470.qmove +++|* CLEAR READ PARITY STATUS IN FET.
01657 M00S01471.qmove +++|
01658 M00S01472.qmove +++| ERP1 SA1 X2 CLEAR ERROR STATUS
01659 M00S01473.qmove +++| SX3 17BS10
01660 M00S01474.qmove +++| BX6 -X3*X1