Deck PFLOAD Part 013

34 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S04187 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08260  M02S04187.ns22000 ---|          LX1    59-11
Line S04188 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08261  M02S04188.ns22000 ---|          SA6    WWRT        CLEAR BUFFER POINTER
Line S04189 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08262  M02S04189.ns22000 ---|          SX7    SSBFL       INITIALIZE SYSTEM SECTOR LENGTH
Line S04190 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08263  M02S04190.ns22000 ---|          SA7    PDBC
Line S04191 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08264  M02S04191.ns22000 ---|          PL     X1,PDB1     IF INDIRECT ACCESS FILE
Line S04192 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08265  M02S04192.ns22000 ---|
Line S04193 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08266  M02S04193.ns22000 ---|*         SET DEVICE NUMBER FOR DIRECT ACCESS FILE IN LINKAGE WORD.
Line S04194 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08267  M02S04194.ns22000 ---|
Line S04195 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08268  M02S04195.ns22000 ---|          SA1    TCBF+FCEO   GET DN FROM CATALOG
Line S04196 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08269  M02S04196.ns22000 ---|          MX0    -6
Line S04197 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08270  M02S04197.ns22000 ---|          LX1    -36
Line S04198 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08271  M02S04198.ns22000 ---|          BX6    -X0*X1
Line S04199 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08272  M02S04199.ns22000 ---|          LX6    48
Line S04200 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08273  M02S04200.ns22000 ---|          NZ     X6,PDB1     IF DEVICE SPECIFIED IN CATALOG
Line S04201 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08274  M02S04201.ns22000 ---|          SA1    CPAR+/COMSPFS/CPDN  SET MASTER DEVICE NUMBER
Line S04202 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08275  M02S04202.ns22000 ---|          LX1    48
Line S04203 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08276  M02S04203.ns22000 ---|          BX6    X1
Line S04204 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08277  M02S04204.ns22000 ---|          NZ     X1,PDB1     IF DN SPECIFIED
Line S04205 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08278  M02S04205.ns22000 ---|          MX6    1           SET 4000B FOR PACK DAF DN
Line S04206 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08279  M02S04206.ns22000 ---| PDB1     LX6    24
Line S04207 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08280  M02S04207.ns22000 ---|
Line S04208 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08281  M02S04208.ns22000 ---|*         SET CATALOG ADDRESS IN LINKAGE WORD.
Line S04209 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08282  M02S04209.ns22000 ---|
Line S04210 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08283  M02S04210.ns22000 ---|          SA1    CATS+2      GET ADDRESS OF CATALOG ENTRY
Line S04211 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08284  M02S04211.ns22000 ---|          LX1    36
Line S04212 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08285  M02S04212.ns22000 ---|          BX6    X6+X1
Line S04213 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08286  M02S04213.ns22000 ---|          SA6    LWRD
Line S04214 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08287  M02S04214.ns22000 ---|          NG     X3,PDB13    IF PHYSICAL EOR
Line S04215 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08288  M02S04215.ns22000 ---|          EQ     PDB3
Line S04216 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08289  M02S04216.ns22000 ---|
Line S04217 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08290  M02S04217.ns22000 ---| PDB2     RJ     RCW         READ CONTROL WORD
Line S04218 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08291  M02S04218.ns22000 ---|          NZ     X7,PDB25    IF PARITY ERROR
Line S04219 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08292  M02S04219.ns22000 ---|          SX0    X3-3
Line S04220 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08293  M02S04220.ns22000 ---|          NZ     X0,PDB12    IF NOT DATA TYPE
Line S04221 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08294  M02S04221.ns22000 ---|
Line S04222 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08295  M02S04222.ns22000 ---|*         BREAK UP CONTROL WORD
Line S04223 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08296  M02S04223.ns22000 ---|
Line S04224 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08297  M02S04224.ns22000 ---| PDB3     SA4    CWBF        CHECK FOR ERROR CONTROL WORD
Line S04225 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08298  M02S04225.ns22000 ---|          SA3    ERCW
Line S04226 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08299  M02S04226.ns22000 ---|          MX0    42
Line S04227 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08300  M02S04227.ns22000 ---|          BX2    X0*X4
Line S04228 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08301  M02S04228.ns22000 ---|          BX2    X2-X3
Line S04229 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08302  M02S04229.ns22000 ---|          ZR     X2,PDB26    IF ERROR CONTROL WORD
Line S04230 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08303  M02S04230.ns22000 ---|          MX0    51
Line S04231 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08304  M02S04231.ns22000 ---|          BX1    -X0*X4      SET NUMBER OF WORDS
Line S04232 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08305  M02S04232.ns22000 ---|          AX4    9
Line S04233 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08306  M02S04233.ns22000 ---|          AX0    6
Line S04234 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08307  M02S04234.ns22000 ---|          BX0    -X0*X4      SET DATA MARK
Line S04235 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08308  M02S04235.ns22000 ---|          IX5    X5+X1       INCREMENT WORD COUNT
Line S04236 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08309  M02S04236.ns22000 ---|
Line S04237 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08310  M02S04237.ns22000 ---|*         CHECK FOR SYSTEM SECTOR.
Line S04238 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08311  M02S04238.ns22000 ---|
Line S04239 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08312  M02S04239.ns22000 ---|          SA3    PDBC        GET REMAINING SYSTEM SECTOR LENGTH
Line S04240 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08313  M02S04240.ns22000 ---|          SX4    X0-4
Line S04241 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08314  M02S04241.ns22000 ---|          BX7    X7-X7
Line S04242 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08315  M02S04242.ns22000 ---|          BX6    X4+X3
Line S04243 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08316  M02S04243.ns22000 ---|          ZR     X6,PDB12    IF SYSTEM SECTOR NOT BOI
Line S04244 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08317  M02S04244.ns22000 ---|          ZR     X4,PDB4     IF SYSTEM SECTOR
Line S04245 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08318  M02S04245.ns22000 ---|          ZR     X3,PDB6     IF SYSTEM SECTOR PROCESSING COMPLETED
Line S04246 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08319  M02S04246.ns22000 ---|          SX7    X3-SSBFL
Line S04247 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08320  M02S04247.ns22000 ---|          ZR     X7,PDB5     IF BOI NOT SYSTEM SECTOR
Line S04248 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08321  M02S04248.ns22000 ---|          EQ     PDB28       PROCESS TRUNCATED SYSTEM SECTOR
Line S04249 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08322  M02S04249.ns22000 ---|
Line S04250 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08323  M02S04250.ns22000 ---| PDB4     IX7    X3-X1       DECREMENT REMAINING SYSTEM SECTOR LENGTH
Line S04251 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08324  M02S04251.ns22000 ---|          NG     X7,PDB29    IF SYSTEM SECTOR TOO LONG
Line S04252 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08325  M02S04252.ns22000 ---|
Line S04253 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08326  M02S04253.ns22000 ---|*         READ TAPE INTO BUFFER
Line S04254 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08327  M02S04254.ns22000 ---|
Line S04255 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08328  M02S04255.ns22000 ---| PDB5     SA7    PDBC        SAVE REMAINING SYSTEM SECTOR LENGTH
Line S04256 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08329  M02S04256.ns22000 ---| PDB6     ZR     X5,PDB8     IF NO WORDS TO READ
Line S04257 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08330  M02S04257.ns22000 ---|          SA4    WWRT        POINTER TO NEXT AVAILABLE WORD
Line S04258 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08331  M02S04258.ns22000 ---|          BX3    -X4
Line S04259 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08332  M02S04259.ns22000 ---|          SX3    X3+100B
Line S04260 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08333  M02S04260.ns22000 ---|          IX2    X5-X3
Line S04261 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08334  M02S04261.ns22000 ---|          PL     X2,PDB7     IF NOT ENOUGH SPACE
Line S04262 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08335  M02S04262.ns22000 ---|          IX6    X4+X5       NEW POINTER
Line S04263 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08336  M02S04263.ns22000 ---|          SA6    A4
Line S04264 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08337  M02S04264.ns22000 ---|          CWREAD TAPE,TDBF+X4,X5
Line S04265 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08338  M02S04265.ns22000 ---|          NZ     X7,PDB25    IF PARITY ERROR
Line S04266 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08339  M02S04266.ns22000 ---|          BX5    X5-X5       CLEAR WORD COUNT
Line S04267 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08340  M02S04267.ns22000 ---|          ZR     X0,PDB2     IF NO FILE MARK
Line S04268 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08341  M02S04268.ns22000 ---|          SX2    X0-4
Line S04269 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08342  M02S04269.ns22000 ---|          ZR     X2,PDB2     IF FIRST PART OF SPLIT SYSTEM SECTOR
Line S04270 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08343  M02S04270.ns22000 ---|          SX0    X0-1
Line S04271 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08344  M02S04271.ns22000 ---|          ZR     X0,PDB10    IF EOR
Line S04272 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08345  M02S04272.ns22000 ---|          SX5    =C* MISSING EOR.*
Line S04273 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08346  M02S04273.ns22000 ---|          RJ     SEM         SEND ERROR MESSAGE
Line S04274 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08347  M02S04274.ns22000 ---|          EQ     PDB22       PROCESS TAPE ERROR
Line S04275 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08348  M02S04275.ns22000 ---|
Line S04276 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08349  M02S04276.ns22000 ---|*         PROCESS BUFFER WITH NOT ENOUGH SPACE AVAILABLE.
Line S04277 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08350  M02S04277.ns22000 ---|
Line S04278 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08351  M02S04278.ns22000 ---| PDB7     BX6    X6-X6       RESET WORDS WRITTEN
Line S04279 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08352  M02S04279.ns22000 ---|          SA6    A4
Line S04280 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08353  M02S04280.ns22000 ---|          IX5    X5-X3       WORDS LEFT IN  MAIN BUFFER
Line S04281 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08354  M02S04281.ns22000 ---|          CWREAD TAPE,TDBF+X4,X3
Line S04282 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08355  M02S04282.ns22000 ---|          NZ     X7,PDB25    IF PARITY ERROR
Line S04283 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08356  M02S04283.ns22000 ---|          SX6    100B
Line S04284 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08357  M02S04284.ns22000 ---|          EQ     PDB14       PROCESS BLOCK
Line S04285 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08358  M02S04285.ns22000 ---|
Line S04286 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08359  M02S04286.ns22000 ---|*         PROCESS FILE MARKS.
Line S04287 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08360  M02S04287.ns22000 ---|
Line S04288 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08361  M02S04288.ns22000 ---| PDB8     ZR     X0,PDB2     IF PLAIN DATA BLOCK
Line S04289 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08362  M02S04289.ns22000 ---|          SX2    X0-4
Line S04290 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08363  M02S04290.ns22000 ---|          ZR     X2,PDB2     IF SYSTEM SECTOR
Line S04291 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08364  M02S04291.ns22000 ---|          SX2    X0-1
Line S04292 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08365  M02S04292.ns22000 ---|          NZ     X2,PDB11    IF NOT EOR
Line S04293 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08366  M02S04293.ns22000 ---|
Line S04294 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08367  M02S04294.ns22000 ---|*         PROCESS EOR WITH ZERO LENGTH PRU.
Line S04295 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08368  M02S04295.ns22000 ---|
Line S04296 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08369  M02S04296.ns22000 ---|          BX6    X6-X6       SET PRU LENGTH TO ZERO
Line S04297 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08370  M02S04297.ns22000 ---| PDB9     BX0    X0-X0       CLEAR DATA MARK
Line S04298 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08371  M02S04298.ns22000 ---|          EQ     PDB14       PROCESS DATA BLOCK
Line S04299 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08372  M02S04299.ns22000 ---|
Line S04300 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08373  M02S04300.ns22000 ---|*         PROCESS EOR WITH SHORT PRU.
Line S04301 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08374  M02S04301.ns22000 ---|
Line S04302 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08375  M02S04302.ns22000 ---| PDB10    SA1    WWRT        SET PRU LENGTH
Line S04303 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08376  M02S04303.ns22000 ---|          BX6    X1
Line S04304 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08377  M02S04304.ns22000 ---|          BX7    X7-X7       CLEAR WORDS WRITTEN
Line S04305 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08378  M02S04305.ns22000 ---|          SA7    A1
Line S04306 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08379  M02S04306.ns22000 ---|          EQ     PDB14       PROCESS DATA BLOCK
Line S04307 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08380  M02S04307.ns22000 ---|
Line S04308 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08381  M02S04308.ns22000 ---|*         PROCESS EOF.
Line S04309 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08382  M02S04309.ns22000 ---|
Line S04310 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08383  M02S04310.ns22000 ---| PDB11    SX6    DLEF        SET EOF INDICATOR
Line S04311 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08384  M02S04311.ns22000 ---|          LX6    54
Line S04312 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08385  M02S04312.ns22000 ---|          EQ     PDB9        CLEAR DATA MARK
Line S04313 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08386  M02S04313.ns22000 ---|
Line S04314 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08387  M02S04314.ns22000 ---|*         PROCESS EOI.
Line S04315 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08388  M02S04315.ns22000 ---|
Line S04316 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08389  M02S04316.ns22000 ---| PDB12    NG     X3,PDB13    IF EOI
Line S04317 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08390  M02S04317.ns22000 ---|          SX5    =C* NO EOI FOR FILE.*
Line S04318 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08391  M02S04318.ns22000 ---|          RJ     SEM
Line S04319 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08392  M02S04319.ns22000 ---|          EQ     PDB22       PROCESS MISSING EOI
Line S04320 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08393  M02S04320.ns22000 ---|
Line S04321 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08394  M02S04321.ns22000 ---| PDB13    SX0    3           SET EOI CONDITION
Line S04322 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08395  M02S04322.ns22000 ---|          SX6    DLEI        SET EOI INDICATOR
Line S04323 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08396  M02S04323.ns22000 ---|          LX6    54
Line S04324 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08397  M02S04324.ns22000 ---|
Line S04325 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08398  M02S04325.ns22000 ---|*         PROCESS DATA BLOCK
Line S04326 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08399  M02S04326.ns22000 ---|
Line S04327 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08400  M02S04327.ns22000 ---| PDB14    SA1    LWRD        SET PRU LENGTH
Line S04328 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08401  M02S04328.ns22000 ---|          MX2    48
Line S04329 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08402  M02S04329.ns22000 ---|          BX2    -X2*X6
Line S04330 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08403  M02S04330.ns22000 ---|          SB7    X2+B1
Line S04331 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08404  M02S04331.ns22000 ---|          MX2    42
Line S04332 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08405  M02S04332.ns22000 ---|          LX2    54
Line S04333 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08406  M02S04333.ns22000 ---|          BX1    X2*X1
Line S04334 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08407  M02S04334.ns22000 ---|          BX6    X6+X1
Line S04335 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08408  M02S04335.ns22000 ---|          SX3    X0-4
Line S04336 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08409  M02S04336.ns22000 ---|          ZR     X3,PDB15    IF SYSTEM SECTOR
Line S04337 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08410  M02S04337.ns22000 ---|          SA1    LENA        DECREMENT LENGTH
Line S04338 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08411  M02S04338.ns22000 ---|          SX2    B1
Line S04339 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08412  M02S04339.ns22000 ---|          IX7    X1-X2
Line S04340 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08413  M02S04340.ns22000 ---|          SX3    X0-3
Line S04341 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08414  M02S04341.ns22000 ---|          IX1    X7-X2
Line S04342 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08415  M02S04342.ns22000 ---|          PL     X1,PDB16    IF MORE LENGTH INDICATED BY CATALOG
Line S04343 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08416  M02S04343.ns22000 ---|          ZR     X3,PDB17    IF EOI
Line S04344 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08417  M02S04344.ns22000 ---|          EQ     PDB22       PROCESS FILE TOO LONG
Line S04345 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08418  M02S04345.ns22000 ---|
Line S04346 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08419  M02S04346.ns22000 ---|*         PROCESS SYSTEM SECTOR.
Line S04347 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08420  M02S04347.ns22000 ---|
Line S04348 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08421  M02S04348.ns22000 ---| PDB15    SX1    DLSS        SET SYSTEM SECTOR INDICATOR
Line S04349 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08422  M02S04349.ns22000 ---|          LX1    54
Line S04350 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08423  M02S04350.ns22000 ---|          BX6    X6+X1
Line S04351 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08424  M02S04351.ns22000 ---|          BX0    X0-X0       CLEAR DATA MARK
Line S04352 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08425  M02S04352.ns22000 ---|          EQ     PDB18       WRITE SYSTEM SECTOR TO DATA FILE
Line S04353 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08426  M02S04353.ns22000 ---|
Line S04354 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08427  M02S04354.ns22000 ---|*         WRITE SECTOR TO DATA FILE.
Line S04355 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08428  M02S04355.ns22000 ---|
Line S04356 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08429  M02S04356.ns22000 ---| PDB16    ZR     X3,PDB21    IF FILE TOO SHORT
Line S04357 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08430  M02S04357.ns22000 ---| PDB17    SA7    A1          SAVE REMAINING LENGTH
Line S04358 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08431  M02S04358.ns22000 ---| PDB18    SA6    LWRD        SAVE DATA LINKAGE WORD
Line S04359 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08432  M02S04359.ns22000 ---|          SB6    A6          SET BUFFER ADDRESS
Line S04360 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08433  M02S04360.ns22000 ---| PDB19    SX2    DATA
Line S04361 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08434  M02S04361.ns22000 ---|          RJ     WPR         WRITE SECTOR TO DATA FILE
Line S04362 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08435  M02S04362.ns22000 ---|          NZ     B7,PDB20    IF WRITE ERROR
Line S04363 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08436  M02S04363.ns22000 ---|          SX1    X0-3
Line S04364 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08437  M02S04364.ns22000 ---|          NZ     X1,PDB6     IF NOT EOI
Line S04365 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08438  M02S04365.ns22000 ---|          SX6    B1+         SELECT FILE LOADING
Line S04366 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08439  M02S04366.ns22000 ---|          EQ     PDBX        EXIT
Line S04367 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08440  M02S04367.ns22000 ---|
Line S04368 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08441  M02S04368.ns22000 ---|*         PROCESS DATA WRITE ERROR.
Line S04369 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08442  M02S04369.ns22000 ---|
Line S04370 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08443  M02S04370.ns22000 ---| PDB20    BX6    X0          SAVE ARCHIVE CONTROL WORD PARAMETERS
Line S04371 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08444  M02S04371.ns22000 ---|          LX7    X5
Line S04372 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08445  M02S04372.ns22000 ---|          SA6    PDBA
Line S04373 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08446  M02S04373.ns22000 ---|          SA7    A6+B1
Line S04374 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08447  M02S04374.ns22000 ---|          RJ     DWE         PROCESS DATA WRITE ERROR
Line S04375 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08448  M02S04375.ns22000 ---|          SA1    PDBA        RESTORE ARCHIVE CONTROL WORD PARAMETERS
Line S04376 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08449  M02S04376.ns22000 ---|          SA2    A1+B1
Line S04377 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08450  M02S04377.ns22000 ---|          BX0    X1
Line S04378 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08451  M02S04378.ns22000 ---|          LX5    X2
Line S04379 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08452  M02S04379.ns22000 ---|          SA1    LWRD        RESTORE SECTOR WORD COUNT
Line S04380 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08453  M02S04380.ns22000 ---|          MX2    -12
Line S04381 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08454  M02S04381.ns22000 ---|          BX3    -X2*X1
Line S04382 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08455  M02S04382.ns22000 ---|          SB6    A1          RESTORE BUFFER ADDRESS
Line S04383 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08456  M02S04383.ns22000 ---|          SA1    BFCA        CHECK IF ERROR ON CURRENT FILE
Line S04384 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08457  M02S04384.ns22000 ---|          SA2    CATS+2
Line S04385 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08458  M02S04385.ns22000 ---|          SB7    X3+B1
Line S04386 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08459  M02S04386.ns22000 ---|          BX7    X1-X2
Line S04387 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08460  M02S04387.ns22000 ---|          NZ     X7,PDB19    IF ERROR NOT ON CURRENT FILE
Line S04388 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08461  M02S04388.ns22000 ---|          SA1    LENA        LENGTH NOT WRITTEN TO BUFFER
Line S04389 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08462  M02S04389.ns22000 ---|          SA3    X2+FCLF     ADJUST CATALOG LENGTH
Line S04390 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08463  M02S04390.ns22000 ---|          LX1    36
Line S04391 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08464  M02S04391.ns22000 ---|          IX7    X3-X1
Line S04392 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08465  M02S04392.ns22000 ---|          SX6    B1          SELECT FILE LOADING
Line S04393 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08466  M02S04393.ns22000 ---|          SA7    A3
Line S04394 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08467  M02S04394.ns22000 ---|          SA6    SKER        SET SKIP TO EOR FLAG
Line S04395 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08468  M02S04395.ns22000 ---|          EQ     PDBX        EXIT
Line S04396 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08469  M02S04396.ns22000 ---|
Line S04397 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08470  M02S04397.ns22000 ---|*         PROCESS FILE TOO SHORT.
Line S04398 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08471  M02S04398.ns22000 ---|
Line S04399 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08472  M02S04399.ns22000 ---| PDB21    SA1    MSGH+2      SET UP TRUNCATED FILE MESSAGE
Line S04400 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08473  M02S04400.ns22000 ---|          SA2    A1+B1
Line S04401 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08474  M02S04401.ns22000 ---|          BX6    X1
Line S04402 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08475  M02S04402.ns22000 ---|          BX7    X2
Line S04403 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08476  M02S04403.ns22000 ---|          SA6    PDBB+2
Line S04404 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08477  M02S04404.ns22000 ---|          SA7    A6+B1
Line S04405 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08478  M02S04405.ns22000 ---|          SX5    PDBB        SEND ERROR MESSAGE
Line S04406 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08479  M02S04406.ns22000 ---|          RJ     SEM
Line S04407 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08480  M02S04407.ns22000 ---|          EQ     PDB24       PROCESS TRUNCATED FILE
Line S04408 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08481  M02S04408.ns22000 ---|
Line S04409 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08482  M02S04409.ns22000 ---|*         PROCESS ERRORS.
Line S04410 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08483  M02S04410.ns22000 ---|
Line S04411 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08484  M02S04411.ns22000 ---| PDB22    SX5    MSGH        SEND TAPE ERROR MESSAGE
Line S04412 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08485  M02S04412.ns22000 ---|          RJ     SEM
Line S04413 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08486  M02S04413.ns22000 ---| PDB23    SX6    B1+         SET SKIP TO EOR FLAG
Line S04414 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08487  M02S04414.ns22000 ---|          SA6    SKER
Line S04415 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08488  M02S04415.ns22000 ---| PDB24    SA2    LENA        UPDATE LENGTH IN CATALOG
Line S04416 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08489  M02S04416.ns22000 ---|          SX1    B1
Line S04417 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08490  M02S04417.ns22000 ---|          IX7    X2-X1       ALLOW FOR EOI SECTOR
Line S04418 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08491  M02S04418.ns22000 ---|          ZR     X7,PDB13    IF NO CATALOG CHANGE
Line S04419 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08492  M02S04419.ns22000 ---|          MX6    0
Line S04420 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08493  M02S04420.ns22000 ---|          SA6    A2
Line S04421 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08494  M02S04421.ns22000 ---|          RECALL DATA        WAIT FOR PFU COMPLETION
Line S04422 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08495  M02S04422.ns22000 ---|          SA1    CATS+2      SET NEW LENGTH IN CATALOG
Line S04423 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08496  M02S04423.ns22000 ---|          SA2    X1+FCLF
Line S04424 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08497  M02S04424.ns22000 ---|          LX2    24
Line S04425 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08498  M02S04425.ns22000 ---|          IX6    X2-X7       NEW FILE LENGTH
Line S04426 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08499  M02S04426.ns22000 ---|          LX6    36
Line S04427 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08500  M02S04427.ns22000 ---|          SA6    A2
Line S04428 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08501  M02S04428.ns22000 ---|          EQ     PDB13       FORCE EOI
Line S04429 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08502  M02S04429.ns22000 ---|
Line S04430 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08503  M02S04430.ns22000 ---|*         PROCESS PARITY ERROR.
Line S04431 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08504  M02S04431.ns22000 ---|
Line S04432 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08505  M02S04432.ns22000 ---| PDB25    SX5    MSGF        SEND PARITY ERROR MESSAGE
Line S04433 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08506  M02S04433.ns22000 ---|          RJ     SEM
Line S04434 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08507  M02S04434.ns22000 ---|          EQ     PDB23       PROCESS ERROR
Line S04435 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08508  M02S04435.ns22000 ---|
Line S04436 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08509  M02S04436.ns22000 ---|*         PROCESS ERROR CONTROL WORD.
Line S04437 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08510  M02S04437.ns22000 ---|
Line S04438 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08511  M02S04438.ns22000 ---| PDB26    SX6    FEDT        SET DATA ERROR IN CATALOG
Line S04439 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08512  M02S04439.ns22000 ---|          RJ     SCE
Line S04440 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08513  M02S04440.ns22000 ---|          SA1    CWBF        CLEAR CONTROL WORD ERROR FLAGS
Line S04441 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08514  M02S04441.ns22000 ---|          MX7    -15
Line S04442 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08515  M02S04442.ns22000 ---|          BX6    -X7*X1
Line S04443 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08516  M02S04443.ns22000 ---|          LX1    -15         GET ERROR TYPE
Line S04444 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08517  M02S04444.ns22000 ---|          MX7    -3
Line S04445 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08518  M02S04445.ns22000 ---|          BX2    -X7*X1
Line S04446 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08519  M02S04446.ns22000 ---|          SA6    A1
Line S04447 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08520  M02S04447.ns22000 ---|          ZR     X2,PDB21    IF TRUNCATED FILE ERROR
Line S04448 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08521  M02S04448.ns22000 ---|          SA1    CPAR+/COMSPFS/CPEO
Line S04449 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08522  M02S04449.ns22000 ---|          NZ     X1,PDB27    IF BAD FILE PROCESSING SUPPRESSED
Line S04450 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08523  M02S04450.ns22000 ---|          SX7    X2-2
Line S04451 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08524  M02S04451.ns22000 ---|          NZ     X7,PDB3     IF NOT SUPPRESSED FILE CONTROL WORD
Line S04452 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08525  M02S04452.ns22000 ---| PDB27    RJ     DIF         DELETE INCOMPLETE FILE
Line S04453 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08526  M02S04453.ns22000 ---|          SX7    B1          SET SKIP TO EOR FLAG
Line S04454 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08527  M02S04454.ns22000 ---|          BX6    X6-X6       CLEAR LOAD FLAG
Line S04455 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08528  M02S04455.ns22000 ---|          SA7    SKER
Line S04456 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08529  M02S04456.ns22000 ---|          EQ     PDBX        EXIT
Line S04457 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08530  M02S04457.ns22000 ---|
Line S04458 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08531  M02S04458.ns22000 ---|*         PROCESS WRONG LENGTH SYSTEM SECTOR.
Line S04459 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08532  M02S04459.ns22000 ---|
Line S04460 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08533  M02S04460.ns22000 ---| PDB28    EDITS  MSFN,MES9   * PFLOAD - SYSTEM SECTOR TRUNCATED*
Line S04461 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08534  M02S04461.ns22000 ---|          EQ     PDB30       SEND ERROR MESSAGE
Line S04462 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08535  M02S04462.ns22000 ---|
Line S04463 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08536  M02S04463.ns22000 ---| PDB29    EDITS  MSFN,MES10  * PFLOAD - SYSTEM SECTOR TOO LONG*
Line S04464 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08537  M02S04464.ns22000 ---| PDB30    RJ     SEM
Line S04465 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08538  M02S04465.ns22000 ---|          EQ     PDB27       DELETE INCOMPLETE FILE
Line S04466 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08539  M02S04466.ns22000 ---|
Line S04467 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08540  M02S04467.ns22000 ---| PDBA     BSS    2           ARCHIVE CONTROL WORD PARAMETERS
Line S04468 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08541  M02S04468.ns22000 ---| WWRT     BSSZ   1           WORDS WRITTEN
Line S04469 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08542  M02S04469.ns22000 ---| ERCW     VFD    42/7HERROR**,18/0
Line S04470 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08543  M02S04470.ns22000 ---| PDBB     DATA   40H FILE TRUNCATED
Line S04471 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08544  M02S04471.ns22000 ---| PDBC     BSSZ   1           REMAINING SYSTEM SECTOR LENGTH
Line S04472 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08545  M02S04472.ns22000 ---| PDI      SPACE  4,20
Line S04473 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08546  M02S04473.ns22000 ---|**        PDI - PROCESS DESTINATION INDEX.
Line S04474 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08547  M02S04474.ns22000 ---|*
Line S04475 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08548  M02S04475.ns22000 ---|*         ENTRY  (TCBF) = CATALOG ENTRY FOR CURRENT FILE.
Line S04476 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08549  M02S04476.ns22000 ---|*                (CPAR+/COMSPFS/CPDI) = DESTINATION INDEX.
Line S04477 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08550  M02S04477.ns22000 ---|*                (TMDD) = TABLE OF MASTER DEVICE DESCRIPTIONS.
Line S04478 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08551  M02S04478.ns22000 ---|*
Line S04479 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08552  M02S04479.ns22000 ---|*         EXIT   (TCBF) = UPDATED WITH DESTINATION INDEX IF SPECIFIED.
Line S04480 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08553  M02S04480.ns22000 ---|*                (MDDS) = MASTER DEVICE DESCRIPTION FOR FILE.
Line S04481 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08554  M02S04481.ns22000 ---|*                (CPAR+/COMSPFS/CPDN) = MASTER DEVICE NUMBER FOR FILE.
Line S04482 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08555  M02S04482.ns22000 ---|*
Line S04483 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08556  M02S04483.ns22000 ---|*         USES   X - 1, 2, 3, 6, 7.
Line S04484 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08557  M02S04484.ns22000 ---|*                A - 1, 2, 6, 7.
Line S04485 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08558  M02S04485.ns22000 ---|
Line S04486 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08559  M02S04486.ns22000 ---|
Line S04487 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08560  M02S04487.ns22000 ---| PDI      SUBR               ENTRY/EXIT
Line S04488 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08561  M02S04488.ns22000 ---|          SA1    CPAR+/COMSPFS/CPDI
Line S04489 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08562  M02S04489.ns22000 ---|          SA2    TCBF+FCUI
Line S04490 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08563  M02S04490.ns22000 ---|          ZR     X1,PDI1     IF DESTINATION DEVICE NOT SPECIFIED
Line S04491 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08564  M02S04491.ns22000 ---|          MX3    42
Line S04492 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08565  M02S04492.ns22000 ---|          BX2    X3*X2       PUT DESTINATION INDEX IN CATALOG
Line S04493 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08566  M02S04493.ns22000 ---|          IX6    X2+X1
Line S04494 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08567  M02S04494.ns22000 ---|          BX2    X1
Line S04495 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08568  M02S04495.ns22000 ---|          SA6    A2+
Line S04496 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08569  M02S04496.ns22000 ---| PDI1     MX3    -3          GET MASTER DEVICE DESCRIPTION
Line S04497 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08570  M02S04497.ns22000 ---|          BX2    -X3*X2
Line S04498 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08571  M02S04498.ns22000 ---|          SA1    TMDD+X2
Line S04499 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08572  M02S04499.ns22000 ---|          SX3    77B
Line S04500 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08573  M02S04500.ns22000 ---|          LX6    X1          SAVE MASTER DEVICE DESCRIPTION
Line S04501 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08574  M02S04501.ns22000 ---|          BX7    X3*X1       SET MASTER DEVICE NUMBER
Line S04502 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08575  M02S04502.ns22000 ---|          SA6    MDDS
Line S04503 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08576  M02S04503.ns22000 ---|          SA7    CPAR+/COMSPFS/CPDN
Line S04504 Modification History
M01 (Added by) pfload
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08577  M02S04504.ns22000 ---|          EQ     PDIX
Line S00061 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08578  M02S00061.ns22000 ---| RAS      SPACE  4,10
Line S00062 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08579  M02S00062.ns22000 ---|**        RAS - RETURN AVAILABLE SPACE.
Line S00063 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08580  M02S00063.ns22000 ---|*
Line S00064 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08581  M02S00064.ns22000 ---|*         ENTRY  (X5) = SECOND WORD OF *MSTT* TABLE ENTRY FOR DEVICE.
Line S00065 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08582  M02S00065.ns22000 ---|*
Line S00066 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08583  M02S00066.ns22000 ---|*         EXIT   (X1) = NUMBER OF AVAILABLE SECTORS ON DEVICE.
Line S00067 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08584  M02S00067.ns22000 ---|*
Line S00068 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08585  M02S00068.ns22000 ---|*         USES   X - 0, 1, 2, 5, 6, 7.
Line S00069 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08586  M02S00069.ns22000 ---|*                A - 1, 6, 7.
Line S00070 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08587  M02S00070.ns22000 ---|*
Line S00071 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08588  M02S00071.ns22000 ---|*         MACROS SYSTEM.
Line S00072 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08589  M02S00072.ns22000 ---|
Line S00073 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08590  M02S00073.ns22000 ---|
Line S00074 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08591  M02S00074.ns22000 ---| RAS      SUBR               ENTRY/EXIT
Line S00075 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08592  M02S00075.ns22000 ---|          LX5    12          ADD MST ADDRESS TO *RSB* CALL
Line S00076 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08593  M02S00076.ns22000 ---|          MX0    -12
Line S00077 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08594  M02S00077.ns22000 ---|          BX2    -X0*X5
Line S00078 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08595  M02S00078.ns22000 ---|          ERRNZ  TDGL        CODE DEPENDS ON VALUE
Line S00079 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08596  M02S00079.ns22000 ---|          SA1    RASA
Line S00080 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08597  M02S00080.ns22000 ---|          LX2    3+18
Line S00081 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08598  M02S00081.ns22000 ---|          MX0    42
Line S00082 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08599  M02S00082.ns22000 ---|          LX0    18
Line S00083 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08600  M02S00083.ns22000 ---|          BX1    X0*X1
Line S00084 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08601  M02S00084.ns22000 ---|          BX6    X1+X2
Line S00085 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08602  M02S00085.ns22000 ---|          MX7    1
Line S00086 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08603  M02S00086.ns22000 ---|          SA7    RASB
Line S00087 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08604  M02S00087.ns22000 ---|          BX6    -X7*X6
Line S00088 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08605  M02S00088.ns22000 ---|          SA6    A1
Line S00089 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08606  M02S00089.ns22000 ---|          SYSTEM RSB,R,A6    READ MST WORD
Line S00090 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08607  M02S00090.ns22000 ---|          SA1    RASB
Line S00091 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08608  M02S00091.ns22000 ---|          MX0    -12
Line S00092 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08609  M02S00092.ns22000 ---|          BX1    -X0*X1      TRACKS AVAILABLE
Line S00093 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08610  M02S00093.ns22000 ---|          LX5    12
Line S00094 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08611  M02S00094.ns22000 ---|          BX2    -X0*X5      SECTOR LIMIT
Line S00095 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08612  M02S00095.ns22000 ---|          IX1    X1*X2       SECTORS AVAILABLE
Line S00096 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08613  M02S00096.ns22000 ---|          EQ     RASX        RETURN
Line S00097 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08614  M02S00097.ns22000 ---|
Line S00098 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08615  M02S00098.ns22000 ---| RASA     VFD    24/1,18/0,18/RASB  *RSB* PARAMETER WORD
Line S00099 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08616  M02S00099.ns22000 ---| RASB     CON    0           MST WORD RETURN
Line S00100 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08617  M02S00100.ns22000 ---| SLD      SPACE  4,10
Line S00101 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08618  M02S00101.ns22000 ---|**        SLD - SELECT LARGEST DEVICE.
Line S00102 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08619  M02S00102.ns22000 ---|*
Line S00103 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08620  M02S00103.ns22000 ---|*         ENTRY  *MSTT* TABLE SET UP.
Line S00104 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08621  M02S00104.ns22000 ---|*                PFC ENTRY FOR FILE IN *TCBF*.
Line S00105 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08622  M02S00105.ns22000 ---|*
Line S00106 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08623  M02S00106.ns22000 ---|*         EXIT   (X4) = 0 IF NO DEVICE FOUND.
Line S00107 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08624  M02S00107.ns22000 ---|*                (X5) = .LT. 0 IF NO SPACE FOR FILE ON ANY DEVICE.
Line S00108 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08625  M02S00108.ns22000 ---|*                (DAEQ) = EQUIPMENT NUMBER OF DEVICE.
Line S00109 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08626  M02S00109.ns22000 ---|*                PROPER DEVICE NUMBER SET IN FILE-S PFC ENTRY.
Line S00110 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08627  M02S00110.ns22000 ---|*
Line S00111 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08628  M02S00111.ns22000 ---|*         USES   X - ALL.
Line S00112 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08629  M02S00112.ns22000 ---|*                A - 1, 2, 3, 5, 7.
Line S00113 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08630  M02S00113.ns22000 ---|*                B - 2, 3, 7.
Line S00114 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08631  M02S00114.ns22000 ---|*
Line S00115 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08632  M02S00115.ns22000 ---|*         CALLS  RAS.
Line S00116 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08633  M02S00116.ns22000 ---|
Line S00117 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08634  M02S00117.ns22000 ---|
Line S00118 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08635  M02S00118.ns22000 ---| SLD      SUBR               ENTRY/EXIT
Line S00119 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08636  M02S00119.ns22000 ---|          SB7    MSTT-2      INITIALIZE SEARCH ADDRESS
Line S00120 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08637  M02S00120.ns22000 ---|          SX4    B0+         INITIALIZE MAXIMUM SPACE
Line S00121 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08638  M02S00121.ns22000 ---| SLD1     SB7    B7+2        CHECK NEXT DEVICE IN *MSTT*
Line S00122 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08639  M02S00122.ns22000 ---|          SA5    B7+B1
Line S00123 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08640  M02S00123.ns22000 ---|          ZR     X5,SLD2     IF END OF TABLE
Line S00124 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08641  M02S00124.ns22000 ---|          SA2    TCBF+FCUI
Line S00125 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08642  M02S00125.ns22000 ---|          MX0    -3
Line S00126 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08643  M02S00126.ns22000 ---|          BX2    -X0*X2      LAST DIGIT OF USER INDEX
Line S00127 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08644  M02S00127.ns22000 ---|          SB3    X2+8-59
Line S00128 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08645  M02S00128.ns22000 ---|          AX3    X5,B3       POSITION MASK BIT
Line S00129 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08646  M02S00129.ns22000 ---|          PL     X3,SLD1     IF USER INDEX NOT ON DEVICE
Line S00130 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08647  M02S00130.ns22000 ---|          RJ     RAS         RETURN AVAILABLE SPACE
Line S00131 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08648  M02S00131.ns22000 ---|          IX2    X1-X4
Line S00132 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08649  M02S00132.ns22000 ---|          NG     X2,SLD1     IF PREVIOUS MAXIMUM WAS GREATER
Line S00133 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08650  M02S00133.ns22000 ---|          BX4    X1          SET NEW MAXIMUM
Line S00134 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08651  M02S00134.ns22000 ---|          SB2    A5-B1       SAVE TABLE WORD ADDRESS
Line S00135 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08652  M02S00135.ns22000 ---|          EQ     SLD1        CONTINUE SEARCH
Line S00136 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08653  M02S00136.ns22000 ---|
Line S00137 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08654  M02S00137.ns22000 ---|*         SET DEVICE NUMBER OF LARGEST DEVICE IN PFC.
Line S00138 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08655  M02S00138.ns22000 ---|
Line S00139 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08656  M02S00139.ns22000 ---| SLD2     ZR     X4,SLDX     IF NO DEVICE FOUND
Line S00140 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08657  M02S00140.ns22000 ---|          SA1    TCBF+FCLF   GET FILE LENGTH
Line S00141 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08658  M02S00141.ns22000 ---|          AX1    36
Line S00142 Modification History
M01 (Added by) ns2047
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08659  M02S00142.ns22000 ---|          IX5    X4-X1
Proceed to Part 14