User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:1ms.005

Deck 1MS Part 005

38 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
07797  M01S05834.1ms13   ---|          LDC    /PMS/LRIX
Line S00023 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07798  M01S00023.1ms13   +++|          PJN    RES2        IF WRONG SECTOR READ
07799  M01S00024.1ms13   +++|          LDC    UJNI-ZJNI   SET STOP AFTER SECTOR WRITE
07800  M01S00025.1ms13   +++|          RAM    /PMS/LRIA
07801  M01S00026.1ms13   +++| RES5     LDM    CDA         GET RETURN ADDRESS
07802  M00S05835.1ms     +++|          UJN    RES3        ISSUE DAYFILE MESSAGE
07803  M00S05836.1ms     +++|
Line S05837 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07804  M01S05837.1ms13   ---| RES5     LDC    UJNI-ZJNI   SET STOP AFTER SECTOR WRITE
07805  M01S05838.1ms13   ---|          RAM    /PMS/LRIA
07806  M01S05839.1ms13   ---|          LJM    RES10       SET RETURN ADDRESS
Line S00027 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07807  M01S00027.1ms13   +++|*         PROCESS CLOSE/OVERWRITE ERROR.
07808  M00S05840.1ms     +++|
Line S00028 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07809  M01S00028.1ms13   +++| RES6     LDM    ERSD
07810  M01S00029.1ms13   +++|          ZJP    RES2        IF NO ERROR ON THE FILE
07811  M01S00030.1ms13   +++|          LDC    RRF         EXIT TO RESET POINTERS
07812  M01S00031.1ms13   +++|          UJP    RES3        ISSUE DAYFILE MESSAGE AND RETURN
07813  M01S00032.1ms13   +++|
07814  M00S05841.1ms     +++|*         PROCESS READ ERROR.
07815  M00S05842.1ms     +++|
Line S05843 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
07816  M01S05843.242l642 ---| RES6     LDM    MRSB+4
Line S00646 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07817  M02S00646.1ms13   ---| RES6     LDM    DCSA+1
Line S00033 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07818  M01S00033.1ms13   +++| RES7     LDC    4000        SET ERROR FLAG IN CONTROL WORD
07819  M01S00034.1ms13   +++|          RAM    BFMS+2-5
07820  M01S00035.1ms13   +++|          LDN    0           SET STOP FOR CONTROL WORD READ LOOP
07821  M01S00036.1ms13   +++|          STM    /RMS/CRDB
07822  M01S00037.1ms13   +++|          UJP    RES5        RETURN TO CALLER
07823  M01S00038.1ms13   +++|
07824  M01S00039.1ms13   +++| RES8     LDD    T4
07825  M00S05844.1ms     +++|          SHN    21-11D
Line S05845 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07826  M01S05845.1ms13   ---|          PJN    RES7        IF PROPER SECTOR READ
07827  M01S05846.1ms13   ---|          LDC    /RMS/CPR    COMPLETE READ
07828  M01S05847.1ms13   ---|          UJN    RES3        ISSUE DAYFILE MESSAGE
07829  M01S05848.1ms13   ---|
07830  M01S05849.1ms13   ---| RES7     LDD    FC          CHECK READ FUNCTION
Line S00040 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07831  M01S00040.1ms13   +++|          MJN    RES2        IF WRONG SECTOR READ
07832  M01S00041.1ms13   +++|          LDD    FC          CHECK READ FUNCTION
07833  M00S05850.1ms     +++|          SHN    21-5
Line S05851 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07834  M01S05851.1ms13   ---|          MJN    RES9        IF *READCW*
Line S00042 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07835  M01S00042.1ms13   +++|          MJN    RES7        IF *READCW*
07836  M00S05852.1ms     +++|          SHN    21-12-21+5+22
Line S05853 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07837  M01S05853.1ms13   ---|          PJN    RES8        IF NOT *READSKP*
Line S00043 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07838  M01S00043.1ms13   +++|          PJN    RES9        IF NOT *READSKP*
07839  M00S05854.1ms     +++|          LDC    LDNI+0
07840  M00S05855.1ms     +++|          STM    /SMR/RSKB
07841  M00S05856.1ms     +++|          LDD    HN+LJMI*    SET TERMINATION
07842  M00S05857.1ms     +++|          STM    /SMR/RSKC
07843  M00S05858.1ms     +++|          LDC    /SMR/RSK13
07844  M00S05859.1ms     +++|          STM    /SMR/RSKC+1
Line S05860 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07845  M01S05860.1ms13   ---| RES8     LDC    /RMS/CPR    SET STOPS FOR BUFFER READ LOOP
Line S00044 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07846  M01S00044.1ms13   +++| RES9     LDC    /RMS/CPR    SET STOPS FOR BUFFER READ LOOP
07847  M00S05861.1ms     +++|          STM    /RMS/BRDE
07848  M00S05862.1ms     +++|          STM    /RMS/BRDF
07849  M00S05863.1ms     +++|          STM    /RMS/EOFA
07850  M00S05864.1ms     +++|          LDD    HN+LJMI*    SET TERMINATION
07851  M00S05865.1ms     +++|          STM    /RMS/BRDT
07852  M00S05866.1ms     +++|          LDC    /RMS/BRD2
07853  M00S05867.1ms     +++|          STM    /RMS/BRDT+1
Line S05868 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07854  M01S05868.1ms13   ---|          UJN    RES10       ISSUE DAYFILE MESSAGE
Line S00045 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07855  M01S00045.1ms13   +++|          LJM    RES5        ISSUE DAYFILE MESSAGE
07856  M00S05869.1ms     +++|
Line S05870 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07857  M01S05870.1ms13   ---| RES9     LDC    4000        SET ERROR FLAG IN CONTROL WORD
07858  M01S05871.1ms13   ---|          RAM    BFMS+2-5
07859  M01S05872.1ms13   ---|          LDN    0           SET STOP FOR CONTROL WORD READ LOOP
07860  M01S05873.1ms13   ---|          STM    /RMS/CRDB
Line S05874 Modification History
M01 (Removed by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07861  M02S05874.1ms13   ---| RES10    LDC    MSRX        SET RETURN ADDRESS
Line S00647 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07862  M02S00647.1ms13   ---| RES10    LDM    CDA         GET RETURN ADDRESS
Line S05875 Modification History
M01 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07863  M01S05875.1ms13   ---|          LJM    IMR         ISSUE DAYFILE MESSAGE
Line S00046 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
07864  M01S00046.1ms13   +++|
07865  M01S00047.1ms13   +++| RESB     INDEX              TABLE OF ERROR COMPLETION PROCESSORS
07866  M01S00048.1ms13   +++|
07867  M01S00049.1ms13   +++|          INDEX  /CIO/RDF,RES8   READ
07868  M01S00050.1ms13   +++|          INDEX  /CIO/WTF,RES2   WRITE
07869  M01S00051.1ms13   +++|          INDEX  /CIO/SKP,RES1   SKIP
07870  M01S00052.1ms13   +++|          INDEX  /CIO/OPE,RES4   OPEN
07871  M01S00053.1ms13   +++|          INDEX  /CIO/CLO,RES6   CLOSE
07872  M01S00054.1ms13   +++|          INDEX  /CIO/REW,RES2   REWIND
07873  M01S00055.1ms13   +++|          INDEX  /CIO/RET,RES2   RETURN/UNLOAD
07874  M01S00056.1ms13   +++|          INDEX  /CIO/EVI,RES2   EVICT
07875  M01S00057.1ms13   +++|          INDEX  /CIO/OVW,RES6   OVERWRITE
07876  M01S00058.1ms13   +++|
07877  M01S00059.1ms13   +++|          INDEX  /CIO/MFC
07878  M01S00060.1ms13   +++|
07879  M01S00061.1ms13   +++| RESC     INDEX              TABLE OF FUNCTION CONTINUATION ROUTINES
07880  M01S00062.1ms13   +++|
07881  M01S00063.1ms13   +++|          INDEX  /CIO/RDF,/RMS/CPR   READ
07882  M01S00064.1ms13   +++|          INDEX  /CIO/WTF,/WMS/WMS3  WRITE
07883  M01S00065.1ms13   +++|          INDEX  /CIO/SKP,/PMS/SFP   SKIP
07884  M01S00066.1ms13   +++|          INDEX  /CIO/OPE,/PMS/LRIX  OPEN
07885  M01S00067.1ms13   +++|          INDEX  /CIO/CLO,/WMS/WMS3  CLOSE
07886  M01S00068.1ms13   +++|          INDEX  /CIO/REW,RRF        REWIND
07887  M01S00069.1ms13   +++|          INDEX  /CIO/RET,RRF        RETURN/UNLOAD
07888  M01S00070.1ms13   +++|          INDEX  /CIO/EVI,RRF        EVICT
07889  M01S00071.1ms13   +++|          INDEX  /CIO/OVW,/OMS/OVW10 OVERWRITE
07890  M01S00072.1ms13   +++|
07891  M01S00073.1ms13   +++|          INDEX  /CIO/MFC
07892  M00S05876.1ms     +++| ABJ      SPACE  4,15
07893  M00S05877.1ms     +++|**        ABJ - ABORT JOB.
07894  M00S05878.1ms     +++|*
07895  M00S05879.1ms     +++|*         ENTRY  (EN) = ERROR NUMBER.
07896  M00S05880.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
07897  M00S05881.1ms     +++|*                (BS - BS+4) = (FET+0).
07898  M00S05882.1ms     +++|*
07899  M00S05883.1ms     +++|*         EXIT   TO *IMR1* FOR EXIT TO *CFN*.
07900  M00S05884.1ms     +++|*
07901  M00S05885.1ms     +++|*         USES   T1, CM - CM+4.
07902  M00S05886.1ms     +++|*
07903  M00S05887.1ms     +++|*         CALLS  CTI.
07904  M00S05888.1ms     +++|*
07905  M00S05889.1ms     +++|*         MACROS MONITOR.
07906  M00S05890.1ms     +++|
07907  M00S05891.1ms     +++|
07908  M00S05892.1ms     +++|*         SET CONTROL POINT ERROR FLAG.
07909  M00S05893.1ms     +++|
07910  M00S05894.1ms     +++| ABJ      BSS    0           ENTRY
07911  M00S05895.1ms     +++|          LDM    TEPO,EN     SET CONTROL POINT ERROR FLAG
07912  M00S05896.1ms     +++|          SHN    -6
07913  M00S05897.1ms     +++|          ZJN    ABJ1        IF NO ERROR FLAG
07914  M00S05898.1ms     +++|          STD    CM+1        SET ERROR FLAG
07915  M00S05899.1ms     +++|          MONITOR CEFM
07916  M00S05900.1ms     +++| ABJ1     LDD    EN
07917  M00S05901.1ms     +++|          LMN    /CIOERR/ARG
07918  M00S05902.1ms     +++|          NJN    ABJ2        IF NOT ARGUMENT ERROR
07919  M00S05903.1ms     +++|          STD    BS          CLEAR FILE NAME
07920  M00S05904.1ms     +++|          STM    CFND        PREVENT WRITE OF FET+0
07921  M00S05905.1ms     +++|          UJN    ABJ3        COMPLETE ABORT PROCESSING
07922  M00S05906.1ms     +++|
07923  M00S05907.1ms     +++| ABJ2     LDD    FO          CHECK FET OPTIONS
07924  M00S05908.1ms     +++|          SHN    21-10
07925  M00S05909.1ms     +++|          PJN    ABJ3        IF ERROR PROCESSING NOT SELECTED
07926  M00S05910.1ms     +++|          LDN    0           CLEAR DETAILED STATUS FIELD IN FET
07927  M00S05911.1ms     +++|          STD    T1
07928  M00S05912.1ms     +++|          RJM    SDS
07929  M00S05913.1ms     +++| ABJ3     LDD    FC
07930  M00S05914.1ms     +++|          NJN    ABJ4        IF INTERNAL FUNCTION DEFINED
07931  M00S05915.1ms     +++|          STM    TACC        PREVENT ACCOUNTING FUNCTION CHARGE
07932  M00S05916.1ms     +++|
07933  M00S05917.1ms     +++|*         SET UP FET DUMP REQUEST.
07934  M00S05918.1ms     +++|
07935  M00S05919.1ms     +++| ABJ4     LDM    TEPO,EN     CHECK ERROR CONTROL
07936  M00S05920.1ms     +++|          LPN    1
07937  M00S05921.1ms     +++|          ZJN    ABJ5        IF FET DUMP NOT NEEDED
07938  M00S05922.1ms     +++|          LDD    CP          READ PPDW
07939  M00S05923.1ms     +++|          ADC    PPDW
07940  M00S05924.1ms     +++|          STD    T1
07941  M00S05925.1ms     +++|          CRD    CM
07942  M00S05926.1ms     +++|          LDD    IR+3        SET DUMP LENGTH AND FET ADDRESS
07943  M00S05927.1ms     +++|          LPN    77
07944  M00S05928.1ms     +++|          SHN    14
07945  M00S05929.1ms     +++|          LMM    FETL
07946  M00S05930.1ms     +++|          ADN    5
07947  M00S05931.1ms     +++|          SHN    6
07948  M00S05932.1ms     +++|          STD    CM+3
07949  M00S05933.1ms     +++|          LDD    IR+4
07950  M00S05934.1ms     +++|          STD    CM+4
07951  M00S05935.1ms     +++|          LDD    T1          REWRITE PPDW
07952  M00S05936.1ms     +++|          CWD    CM
07953  M00S05937.1ms     +++| ABJ5     LJM    IMR1        ISSUE MESSAGE
07954  M00S05938.1ms     +++| TMSG     SPACE  4,10
07955  M00S05939.1ms     +++|**        TMSG - TABLE OF MESSAGE ADDRESSES.
07956  M00S05940.1ms     +++|*         INDEXED BY ERROR CODE.
07957  M00S05941.1ms     +++|*
07958  M00S05942.1ms     +++|*T,       12/ ADDR
Figure

011 ADDR

07959  M00S05943.1ms     +++|*         ADDR   ADDRESS OF MESSAGE
07960  M00S05944.1ms     +++|
07961  M00S05945.1ms     +++|
07962  M00S05946.1ms     +++| TMSG     EQU    *-1
07963  M00S05947.1ms     +++|          LOC    TMSG+/CIOERR/MEC
07964  M00S05948.1ms     +++| TEPO     SPACE  4,10
07965  M00S05949.1ms     +++|**        TEPO - TABLE OF ERROR PROCESSING OPTIONS.
07966  M00S05950.1ms     +++|*         INDEXED BY ERROR CODE.
07967  M00S05951.1ms     +++|*
07968  M00S05952.1ms     +++|*T,       6/ EF, 5/ 0, 1/F
Figure

015611F 0 EF

07969  M00S05953.1ms     +++|*
07970  M00S05954.1ms     +++|*         EF     ERROR FLAG.
07971  M00S05955.1ms     +++|*         F = 1 IF FET DUMP NEEDED.
07972  M00S05956.1ms     +++|
07973  M00S05957.1ms     +++|
07974  M00S05958.1ms     +++| TEPO     EQU    *-1
07975  M00S05959.1ms     +++|
07976  M00S05960.1ms     +++| ARG      MSG    (FET ADDRESS OUT OF RANGE),PPET,0
07977  M00S05961.1ms     +++| ASD      MSG    (ASSIGNED FOR DIAGNOSTICS, FILE ),PPET,0
07978  M00S05962.1ms     +++| BLE      MSG    (BUFFER CONTROL WORD ERROR ON ),PPET,0
07979  M00S05963.1ms     +++| BUF      MSG    (BUFFER ARGUMENT ERROR ON ),PPET,1
07980  M00S05964.1ms     +++| DRE      MSG    (DEVICE ERROR ON FILE ),PPET,0
07981  M00S05965.1ms     +++| EFT      MSG    (ERROR FLAG TERMINATION, FILE ),0,0
07982  M00S05966.1ms     +++| EXO      MSG    (I/O ON EXECUTE-ONLY FILE ),PPET,0
Line S05967 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07983  M01S05967.v23l617 ---| FLN      MSG    (ILLEGAL FILE NAME ),PPET,0
Line S00031 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07984  M01S00031.v23l617 +++| FLN      MSG    (INCORRECT FILE NAME ),PPET,0
07985  M00S05968.1ms     +++| FPE      MSG    (FET PARAMETER ERROR ON ),PPET,1
07986  M00S05969.1ms     +++| FSQ      MSG    (I/O SEQUENCE ERROR ON FILE ),PPET,0
07987  M00S05970.1ms     +++| FTL      MSG    (FILE TOO LONG, FILE ),PPET,0
Line S05971 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07988  M01S05971.v23l617 ---| IEQ      MSG    (ILLEGAL EQUIPMENT ON FILE ),0,0
07989  M01S05972.v23l617 ---| IFM      MSG    (ILLEGAL MODIFICATION OF ),PPET,0
07990  M01S05973.v23l617 ---| IRQ      MSG    (ILLEGAL I/O REQUEST ON FILE ),PPET,1
Line S00032 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
07991  M01S00032.v23l617 +++| IEQ      MSG    (INCORRECT EQUIPMENT ON FILE ),0,0
07992  M01S00033.v23l617 +++| IFM      MSG    (INCORRECT MODIFICATION OF ),PPET,0
07993  M01S00034.v23l617 +++| IRQ      MSG    (INCORRECT I/O REQUEST ON FILE ),PPET,1
07994  M00S05974.1ms     +++| ITL      MSG    (INDEX TOO LARGE ON OPEN, FILE ),PPET,1
07995  M00S05975.1ms     +++| IWR      MSG    (WRITE ON READ-ONLY FILE ),PPET,0
07996  M00S05976.1ms     +++| LFL      MSG    ,FLET,0
Line S00425 Modification History
M01 (Added by) ns22000
M02 (Removed by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
07997  M02S00425.1ms16   ---| LNF      MSG    (ACCESS LEVEL NOT VALID FOR FILE ),SVET,0
07998  M02S00426.1ms16   ---| LNJ      MSG    (ACCESS LEVEL NOT VALID FOR JOB, ),SVET,0
Line S00012 Modification History
M01 (Added by) 1ms16
Seq #  *Modification Id* Act 
----------------------------+
07999  M01S00012.1ms16   +++| LNF      MSG    (FILE ACCESS LEVEL CONFLICT, ),SVET,0
08000  M01S00013.1ms16   +++| LNJ      MSG    (JOB ACCESS LEVEL CONFLICT, ),SVET,0
08001  M00S05977.1ms     +++| PRL      MSG    (PRU LIMIT, FILE ),TKET,0
08002  M00S05978.1ms     +++| RAD      MSG    (RANDOM ADDRESS NOT ON FILE ),PPET,1
08003  M00S05979.1ms     +++| RUD      MSG    (REQUEST UNDEFINED ON DEVICE, ),PPET,1
08004  M00S05980.1ms     +++| RWT      MSG    (INDEX ADDRESS OUT OF RANGE FOR ),PPET,1
08005  M00S05981.1ms     +++| TKL      MSG    ,0,1
08006  M00S05982.1ms     +++| TNA      MSG    (M.T. NOT AVAILABLE ON FILE ),PPET,0
08007  M00S05983.1ms     +++| UCF      MSG    (UNNECESSARY CIO FCT. 000 ON ),0,0
Line S00427 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08008  M01S00427.ns22000 +++| WDP      MSG    (WRITEDOWN PROHIBITED ON ),SVET,0
08009  M00S05984.1ms     +++| MEC      MSG
Line S00648 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08010  M01S00648.242l642 +++| BOS      SPACE  4,10
08011  M01S00649.242l642 +++|**        BOS - BACKUP ONE SECTOR.
08012  M01S00650.242l642 +++|*
08013  M01S00651.242l642 +++|
08014  M01S00652.242l642 +++| BOS1     LMD    T3          SAVE TRACK NUMBER
08015  M01S00653.242l642 +++| BOS2     STD    T6
08016  M01S00654.242l642 +++|          RJM    SNT         GET NEXT TRACK
08017  M01S00655.242l642 +++|          LMD    T3
08018  M01S00656.242l642 +++|          NJN    BOS1        IF NOT EQUAL TO CURRENT TRACK
08019  M01S00657.242l642 +++|          LDM    SLM         SET SECTOR TO END OF TRACK
08020  M01S00658.242l642 +++|          SBN    1
08021  M01S00659.242l642 +++|          STD    T7
08022  M01S00660.242l642 +++|
08023  M01S00661.242l642 +++| BOS      SUBR
08024  M01S00662.242l642 +++|          SOD    T7          DECREMENT SECTOR
08025  M01S00663.242l642 +++|          PJN    BOSX        IF SAME TRACK
08026  M01S00664.242l642 +++|          LDD    T6          SAVE CURRENT TRACK
08027  M01S00665.242l642 +++|          STD    T3
08028  M01S00666.242l642 +++|          LDD    FS+1        START WITH FIRST TRACK
08029  M01S00667.242l642 +++|          UJN    BOS2        ENTER LOOP
Line S00046 Modification History
M01 (Added by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
08030  M01S00046.241l630 +++| CHP      SPACE  4,10
08031  M01S00047.241l630 +++|**        CHP - CONDITIONALLY HANG PP.
08032  M01S00048.241l630 +++|*
08033  M01S00049.241l630 +++|*         EXIT   TO *CFN*.
08034  M01S00050.241l630 +++|*
08035  M01S00051.241l630 +++|*         CALLS  CHG.
08036  M01S00052.241l630 +++|
08037  M01S00053.241l630 +++|
08038  M01S00054.241l630 +++| CHP      LDK    SWET        SET SYSTEM SOFTWARE ERROR FLAG
08039  M01S00055.241l630 +++|          RJM    CHG         CONDITIONALLY HANG PP
08040  M01S00056.241l630 +++|          LJM    CFN         COMPLETE FUNCTION
08041  M00S05985.1ms     +++|          TITLE  ERROR PROCESSOR SUBROUTINES.
08042  M00S05986.1ms     +++| MDE      SPACE  4,15
08043  M00S05987.1ms     +++|**        MDE - MAP DISK ERROR.
08044  M00S05988.1ms     +++|*
08045  M00S05989.1ms     +++|*         ENTRY  (A) = DETAILED ERROR CODE FROM DRIVER.
Line S05990 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08046  M01S05990.242l642 ---|*                      6/0,1/I,5/0,6/DC
Line S05991 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08047  M02S05991.242l642 ---|*                      I = INVALID DATA FLAG.
Line S00035 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08048  M02S00035.242l642 ---|*                      I = INCORRECT DATA FLAG.
Line S05992 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08049  M01S05992.242l642 ---|*                          0 = VALID DATA.
Line S05993 Modification History
M01 (Removed by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08050  M02S05993.242l642 ---|*                          1 = INVALID DATA.
Line S00036 Modification History
M01 (Added by) v23l617
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08051  M02S00036.242l642 ---|*                          1 = INCORRECT DATA.
Line S00668 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08052  M01S00668.242l642 +++|*                6/, 8/, 4/DC
08053  M00S05994.1ms     +++|*                      DC = DRIVER ERROR CODE.
08054  M00S05995.1ms     +++|*
Line S05996 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08055  M01S05996.242l642 ---|*         EXIT   (A) = 6/0,6/NC,6/CC
Line S00669 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08056  M01S00669.242l642 +++|*         EXIT   (A) = 6/0,8/NC,4/CC
08057  M00S05997.1ms     +++|*                      NC = NOT CHANGED FROM INPUT.
08058  M00S05998.1ms     +++|*                      CC = CPU ERROR CODE EQUIVALENT TO *DC* IF *DC*
08059  M00S05999.1ms     +++|*                           IN EQUIVALENCE TABLE, OTHERWISE *DC*.
08060  M00S06000.1ms     +++|*
08061  M00S06001.1ms     +++|*         USES   T0, T1.
08062  M00S06002.1ms     +++|
08063  M00S06003.1ms     +++|
08064  M00S06004.1ms     +++| MDE1     LDD    T0          RESTORE ORIGINAL ERROR CODE
08065  M00S06005.1ms     +++|
08066  M00S06006.1ms     +++| MDE      SUBR               ENTRY/EXIT
08067  M00S06007.1ms     +++|          STD    T0          SAVE ORIGINAL ERROR CODE
Line S06008 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08068  M01S06008.242l642 ---|          LPN    77          GET DRIVER ERROR CODE
Line S00670 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08069  M02S00670.253l688 ---|          LPN    17          GET DRIVER ERROR CODE
Line S00051 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08070  M01S00051.253l688 +++|          LPN    77          GET DRIVER ERROR CODE
08071  M00S06009.1ms     +++|          STD    T1
08072  M00S06010.1ms     +++|          SBN    MXDE
08073  M00S06011.1ms     +++|          PJN    MDE1        IF CODE NOT IN TABLE
08074  M00S06012.1ms     +++|          LDM    MDEA,T1     GET EQUIVALENT CPU ERROR CODE
08075  M00S06013.1ms     +++|          SBD    T1          MAP DRIVER CODE TO CPU CODE
08076  M00S06014.1ms     +++|          ADD    T0
08077  M00S06015.1ms     +++|          UJN    MDEX        EXIT
08078  M00S06016.1ms     +++|
08079  M00S06017.1ms     +++|
08080  M00S06018.1ms     +++|          LIST   G
Line S06019 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08081  M01S06019.242l642 ---| MDEA     DEET               TABLE OF DISK ERROR EQUIVALENCES
Line S00671 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
08082  M02S00671.1ms13   ---| MDEA     EQU    *-1
Line S00074 Modification History
M01 (Added by) 1ms13
Seq #  *Modification Id* Act 
----------------------------+
08083  M01S00074.1ms13   +++| MDEA     CON    CEC.LN      ISHARED RETURN-ON-INACCESSIBLE DEVICE
Line S00672 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08084  M01S00672.242l642 +++|          ECHO   1,ERRCODE=("DREC")
08085  M01S00673.242l642 +++|          CON    CEC._ERRCODE      "TXT._ERRCODE"
08086  M00S06020.1ms     +++|          LIST   *
08087  M00S06021.1ms     +++| PTL      SPACE  4,20
08088  M00S06022.1ms     +++|**        PTL - PROCESS TRACK LIMIT.
08089  M00S06023.1ms     +++|*
08090  M00S06024.1ms     +++|*         ENTRY  (EN) = ERROR NUMBER.
08091  M00S06025.1ms     +++|*                (FO) = FET OPTIONS.
08092  M00S06026.1ms     +++|*
08093  M00S06027.1ms     +++|*         EXIT   (EN) = */ERR/EFT* IF SPECIAL ERROR FLAG SET ON CP.
08094  M00S06028.1ms     +++|*                TRACK LIMIT SYSTEM EVENT ISSUED.
08095  M00S06029.1ms     +++|*                TO *MSP* IF USER PROCESSING OF TRACK LIMIT REQUESTED
08096  M00S06030.1ms     +++|*                     (AND NO SPECIAL ERROR FLAG SET ON CP).
08097  M00S06031.1ms     +++|*                TO *COC* IF NOT USER PROCESSING OF TRACK LIMIT
08098  M00S06032.1ms     +++|*                     (AND NO SPECIAL ERROR FLAG SET ON CP).
08099  M00S06033.1ms     +++|*
08100  M00S06034.1ms     +++|*         USES   CM - CM+4.
08101  M00S06035.1ms     +++|*
08102  M00S06036.1ms     +++|*         CALLS  SES.
08103  M00S06037.1ms     +++|*
08104  M00S06038.1ms     +++|*         MACROS MONITOR.
08105  M00S06039.1ms     +++|
08106  M00S06040.1ms     +++|
08107  M00S06041.1ms     +++| PTL3     LDN    /CIOERR/EFT *ERROR FLAG TERMINATION*
08108  M00S06042.1ms     +++|          STD    EN
08109  M00S06043.1ms     +++|          STM    ERRA
08110  M00S06044.1ms     +++|
08111  M00S06045.1ms     +++| PTL      SUBR               ENTRY/EXIT
08112  M00S06046.1ms     +++|          LDN    ZERL        SET TRACK LIMIT EVENT
08113  M00S06047.1ms     +++|          CRD    CM
08114  M00S06048.1ms     +++|          LDN    TKLE
08115  M00S06049.1ms     +++|          STD    CM+4
08116  M00S06050.1ms     +++|          MONITOR  EATM
08117  M00S06051.1ms     +++|          LDD    CP          CHECK ERROR FLAG
08118  M00S06052.1ms     +++|          ADN    STSW
08119  M00S06053.1ms     +++|          CRD    CM
08120  M00S06054.1ms     +++|          LDD    CM+1
08121  M00S06055.1ms     +++|          SBN    SPET
08122  M00S06056.1ms     +++|          PJN    PTL3        IF SPECIAL ERROR TYPE
08123  M00S06057.1ms     +++|          ADN    SPET-ODET
08124  M00S06058.1ms     +++|          ZJN    PTL3        IF OPERATOR DROP ERROR FLAG
08125  M00S06059.1ms     +++|          ADN    ODET-FSET
08126  M00S06060.1ms     +++|          ZJN    PTL3        IF FORCED ERROR
08127  M00S06061.1ms     +++|          ADN    FSET-TAET
08128  M00S06062.1ms     +++|          ZJN    PTL3        IF USER BREAK TWO
08129  M00S06063.1ms     +++|          ADN    TAET-TIET
08130  M00S06064.1ms     +++|          ZJN    PTL3        IF USER BREAK ONE
08131  M00S06065.1ms     +++|          LDD    FO          CHECK USER PROCESSING
08132  M00S06066.1ms     +++|          SHN    21-11
08133  M00S06067.1ms     +++|          PJN    PTL1        IF NOT USER PROCESSING
08134  M00S06068.1ms     +++|          LDC    TLME        SET TRACK LIMIT ERROR STATUS
08135  M00S06069.1ms     +++|          RJM    SES         SET ERROR STATUS
Line S06070 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08136  M01S06070.242l642 ---|          LJM    MSP         COMPLETE MASS STORAGE PROCESSING
Line S00674 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08137  M01S00674.242l642 +++|          LJM    /WMS/WMS3   COMPLETE WRITE FUNCTION
Line S00428 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08138  M01S00428.ns22000 +++|
08139  M01S00429.ns22000 +++| PTL0     LDM    OSSM
08140  M01S00430.ns22000 +++|          ZJN    PTL0.1      IF UNSECURED SYSTEM
08141  M01S00431.ns22000 +++|          LDC    PTLB+12     SET ACCESS LEVEL MESSAGE ADDRESS
08142  M01S00432.ns22000 +++|          STD    T1
08143  M01S00433.ns22000 +++|          LDM    FSAL        GET FILE ACCESS LEVEL
08144  M01S00434.ns22000 +++|          SHN    2
08145  M01S00435.ns22000 +++|          ADC    TALV
08146  M01S00436.ns22000 +++|          RJM    ACS         MOVE ACCESS LEVEL NAME TO MESSAGE
08147  M01S00437.ns22000 +++|          LDC    =Z*.*
08148  M01S00438.ns22000 +++|          RJM    ACS
08149  M01S00439.ns22000 +++|          LDC    2R,
08150  M01S00440.ns22000 +++|          STM    PTLB+11
08151  M01S00441.ns22000 +++|          LDN    0
08152  M01S00442.ns22000 +++| PTL0.1   UJN    PTL2        WRITE CONSOLE MESSAGE
08153  M00S06071.1ms     +++|
Line S06072 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08154  M01S06072.ns22000 ---| PTL1     LDD    FS          SET EQUIPMENT NUMBER IN MESSAGE
08155  M01S06073.ns22000 ---|          LPN    77
Line S00443 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08156  M01S00443.ns22000 +++| PTL1     LDD    FS          CONVERT UPPER TWO DIGITS OF EST ORDINAL
Line S06074 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08157  M01S06074.ns22000 ---|          ZJN    PTL2        IF NO EQUIPMENT ASSIGNED
Line S00444 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08158  M01S00444.ns22000 +++|          ZJN    PTL0        IF NO EQUIPMENT ASSIGNED
08159  M01S00445.ns22000 +++|          SHN    -3
08160  M00S06075.1ms     +++|          STD    T0
08161  M00S06076.1ms     +++|          SHN    3
08162  M00S06077.1ms     +++|          LMD    T0
08163  M00S06078.1ms     +++|          SCN    70
Line S06079 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08164  M01S06079.ns22000 ---|          RAM    PTLB+1
08165  M01S06080.ns22000 ---|          LCN    1R.-1R
08166  M01S06081.ns22000 ---|          RAM    PTLB-1
08167  M01S06082.ns22000 ---|          LDC    2REQ
08168  M01S06083.ns22000 ---| PTL2     STM    PTLB
Line S00446 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08169  M01S00446.ns22000 +++|          RAM    PTLB+1
08170  M01S00447.ns22000 +++|          LDD    FS          CONVERT LOWER DIGIT OF EST ORDINAL
08171  M01S00448.ns22000 +++|          LPN    7
08172  M01S00449.ns22000 +++|          SHN    6
08173  M01S00450.ns22000 +++|          RAM    PTLB+2
08174  M01S00451.ns22000 +++|          LCN    3
08175  M01S00452.ns22000 +++| PTL2     ADC    PTLB+3      SET MESSAGE ADDRESS
08176  M01S00453.ns22000 +++|          STM    PTLA
08177  M00S06084.1ms     +++|          LDD    CP          WRITE CONSOLE *TRACK LIMIT* MESSAGE
08178  M00S06085.1ms     +++|          ADN    MS2W
Line S06086 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08179  M01S06086.ns22000 ---|          CWM    PTLA,TR
Line S00454 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08180  M01S00454.ns22000 +++|          CWM    *,TR
08181  M01S00455.ns22000 +++| PTLA     EQU    *-1         ADDRESS OF MESSAGE
08182  M00S06087.1ms     +++|          AOM    COCA        SET RECALL STACK FLAG
08183  M00S06088.1ms     +++|          LDN    TRLR-PTLR   SET TRACK LIMIT REASON CODE
08184  M00S06089.1ms     +++|          RAM    ERSA
08185  M00S06090.1ms     +++|          LDC    TLRT        SET TRACK LIMIT RECALL TIME PERIOD
08186  M00S06091.1ms     +++|          STM    ERSB
08187  M00S06092.1ms     +++|          LJM    COC         SET UP TO ENTER RECALL STACK
08188  M00S06093.1ms     +++|
08189  M00S06094.1ms     +++|
Line S06095 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08190  M01S06095.ns22000 ---| PTLA     DATA   H*TRACK LIMIT.*
08191  M01S06096.ns22000 ---| PTLB     DATA   C*EQ00.*
Line S00456 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08192  M01S00456.ns22000 +++| PTLB     DATA   C*EQ000, TRACK LIMIT.*
Line S06097 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08193  M01S06097.ns22000 ---| SDS      SPACE  4,10
Line S00457 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08194  M01S00457.ns22000 +++|          BSSZ   4           ACCESS LEVEL NAME
08195  M01S00458.ns22000 +++| SDS      SPACE  4,10
08196  M00S06098.1ms     +++|**        SDS - SET DETAILED STATUS FIELD IN FET.
08197  M00S06099.1ms     +++|*
08198  M00S06100.1ms     +++|*         ENTRY  (T1) = DETAILED STATUS.
08199  M00S06101.1ms     +++|*
08200  M00S06102.1ms     +++|*         USES   CM - CM+4.
08201  M00S06103.1ms     +++|*
08202  M00S06104.1ms     +++|*         MACROS CFET.
08203  M00S06105.1ms     +++|
08204  M00S06106.1ms     +++|
08205  M00S06107.1ms     +++| SDS      SUBR               ENTRY/EXIT
08206  M00S06108.1ms     +++|          LDM    FETL        CHECK FET LENGTH
08207  M00S06109.1ms     +++|          SBN    2
08208  M00S06110.1ms     +++|          MJN    SDSX        IF NO DETAILED STATUS FIELD IN FET
08209  M00S06111.1ms     +++|          CFET   6           SET DETAILED STATUS
08210  M00S06112.1ms     +++|          CRD    CM
08211  M00S06113.1ms     +++|          LDN    0
08212  M00S06114.1ms     +++|          STD    CM+3
08213  M00S06115.1ms     +++|          LDD    T1
08214  M00S06116.1ms     +++|          STD    CM+4
08215  M00S06117.1ms     +++|          CFET   6
08216  M00S06118.1ms     +++|          CWD    CM
08217  M00S06119.1ms     +++|          UJN    SDSX        RETURN
08218  M00S06120.1ms     +++| SES      SPACE  4,15
08219  M00S06121.1ms     +++|**        SES - SET ERROR STATUS.
08220  M00S06122.1ms     +++|*
08221  M00S06123.1ms     +++|*         ENTRY  (A)= DETAIL STATUS CODE.
08222  M00S06124.1ms     +++|*                (FC) = INTERNAL *CIO* FUNCTION CODE.
08223  M00S06125.1ms     +++|*                (FO) = FET OPTIONS.
08224  M00S06126.1ms     +++|*                (BS - BS+4) = (FET+0).
08225  M00S06127.1ms     +++|*                (DP - DP+4) = *IN* POINTER FOR READ FUNCTION.
08226  M00S06128.1ms     +++|*
08227  M00S06129.1ms     +++|*         EXIT   (A) = 0 IF ERROR PROCESSING (EP) NOT SELECTED.
08228  M00S06130.1ms     +++|*                (BS+3 - BS+4)= ERROR STATUS.
08229  M00S06131.1ms     +++|*                DETAIL STATUS SET IN BITS 0-12 OF FET+6.
08230  M00S06132.1ms     +++|*
08231  M00S06133.1ms     +++|*         USES   T0, T1, CM - CM+4.
08232  M00S06134.1ms     +++|*
08233  M00S06135.1ms     +++|*         MACROS CFET.
08234  M00S06136.1ms     +++|
08235  M00S06137.1ms     +++|
08236  M00S06138.1ms     +++| SES4     LDN    0           SET ERROR PROCESSING NOT SELECTED
08237  M00S06139.1ms     +++|
08238  M00S06140.1ms     +++| SES      SUBR               ENTRY/EXIT
Line S00675 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08239  M02S00675.253l688 ---|          LPC    6017        PRESERVE ONLY DATA TO BE RETURNED TO FET
Line S00052 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08240  M01S00052.253l688 +++|          LPC    6077        PRESERVE DATA TO BE RETURNED TO FET
08241  M00S06141.1ms     +++|          STD    T1          SAVE STATUS CODE
Line S06142 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08242  M01S06142.242l642 ---|          LPN    77
Line S00676 Modification History
M01 (Added by) 242l642
M02 (Removed by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08243  M02S00676.253l688 ---|          LPN    17
Line S00053 Modification History
M01 (Added by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
08244  M01S00053.253l688 +++|          LPN    77
08245  M00S06143.1ms     +++|          LMN    PTYE        CHECK STATUS CODE
08246  M00S06144.1ms     +++|          STD    T0          SET/CLEAR PARITY ERROR FLAG
08247  M00S06145.1ms     +++|          ZJN    SES1        IF PARITY ERROR
08248  M00S06146.1ms     +++|          LDD    T1
08249  M00S06147.1ms     +++|          LMC    TLME
08250  M00S06148.1ms     +++|          ZJN    SES2        IF TRACK LIMIT
08251  M00S06149.1ms     +++|          LDN    22-4        STATUS = 22
08252  M00S06150.1ms     +++| SES1     ADN    2           STATUS = 4
08253  M00S06151.1ms     +++| SES2     ADN    2           STATUS = 2
08254  M00S06152.1ms     +++|          SHN    11
08255  M00S06153.1ms     +++|          LMD    BS+4
08256  M00S06154.1ms     +++|          STD    BS+4
08257  M00S06155.1ms     +++|          SHN    -11-3
08258  M00S06156.1ms     +++|          LMD    BS+3
08259  M00S06157.1ms     +++|          STD    BS+3
08260  M00S06158.1ms     +++|          LDD    FO          CHECK ERROR PROCESSING SELECTED
08261  M00S06159.1ms     +++|          SHN    21-8D
08262  M00S06160.1ms     +++|          PJN    SES4        IF NOT SELECTED
08263  M00S06161.1ms     +++|          LDD    FC          GET FUNCTION CODE
08264  M00S06162.1ms     +++|          LPC    1700
08265  M00S06163.1ms     +++|          ADD    T0
08266  M00S06164.1ms     +++|          NJN    SES3        IF NOT READ PARITY ERROR
08267  M00S06165.1ms     +++|          LDD    DP+3        SAVE *IN* POINTER
08268  M00S06166.1ms     +++|          RAM    /RMS/CPRA
08269  M00S06167.1ms     +++|          LDD    DP+4
08270  M00S06168.1ms     +++|          STM    /RMS/CPRA+1
08271  M00S06169.1ms     +++| SES3     RJM    SDS         SET DETAILED STATUS
08272  M00S06170.1ms     +++|          LJM    SESX        RETURN
08273  M00S06171.1ms     +++| WEI      SPACE  4,15
08274  M00S06172.1ms     +++|**        WEI - WRITE EOI SECTOR.
08275  M00S06173.1ms     +++|*
Line S06174 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08276  M01S06174.ns22000 ---|*         ENTRY  (T5) = EQUIPMENT ORDINAL.
Line S00459 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08277  M01S00459.ns22000 +++|*         ENTRY  (T5) = EST ORDINAL.
08278  M00S06175.1ms     +++|*                (T6) = TRACK WHERE ERROR OCCURED.
08279  M00S06176.1ms     +++|*                (T7) = SECTOR WHERE ERROR OCCURED.
08280  M00S06177.1ms     +++|*                (FS+1) = FIRST TRACK OF FILE.
08281  M00S06178.1ms     +++|*
08282  M00S06179.1ms     +++|*         EXIT   (FS+2) = CURRENT TRACK.
08283  M00S06180.1ms     +++|*                (FS+3) = CURRENT SECTOR.
08284  M00S06181.1ms     +++|*
Line S06182 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08285  M01S06182.ns2090  ---|*         USES   T3, T6, T7, CM - CM+4.
Line S00193 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08286  M01S00193.ns2090  +++|*         USES   RC, T6, T7, CM - CM+4.
08287  M00S06183.1ms     +++|*
Line S06184 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08288  M01S06184.ns2090  ---|*         CALLS  SNT, /WEI/WEI.
Line S00194 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08289  M01S00194.ns2090  +++|*         CALLS  FWB, SCF, SNT, /WEI/WEI.
08290  M00S06185.1ms     +++|*
08291  M00S06186.1ms     +++|*         MACROS ENDMS, MONITOR, SETMS.
08292  M00S06187.1ms     +++|
08293  M00S06188.1ms     +++|
08294  M00S06189.1ms     +++| WEI      SUBR               ENTRY/EXIT
08295  M00S06190.1ms     +++|          LDD    FC          CHECK FOR REWRITE
08296  M00S06191.1ms     +++|          SHN    21-12
Line S06192 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08297  M01S06192.ns2090  ---|          PJN    WEI0.1      IF NOT REWRITE
Line S00195 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08298  M02S00195.242l642 ---|          PJN    WEI0        IF NOT REWRITE
Line S00677 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08299  M01S00677.242l642 +++|          PJN    WEI1        IF NOT REWRITE
08300  M00S06193.1ms     +++|          LDM    /WMS/WEIA   CHECK TRACK TABLE
Line S06194 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08301  M01S06194.ns2090  ---|          STD    T3
Line S00196 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08302  M01S00196.ns2090  +++|          STD    RC
08303  M00S06195.1ms     +++|          SBD    /WMS/NT
Line S06196 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08304  M01S06196.ns2090  ---|          MJN    WEI0.1      IF TRACK BEYOND EOI USED
08305  M01S06197.ns2090  ---|          NJN    WEI0        IF NOT AT EOI TRACK
Line S00197 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08306  M02S00197.242l642 ---|          MJP    WEI0.2      IF TRACK BEYOND EOI USED
08307  M02S00198.242l642 ---|          NJN    WEI0.1      IF NOT AT EOI TRACK
Line S00678 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08308  M01S00678.242l642 +++|          MJP    WEI3        IF TRACK BEYOND EOI USED
08309  M01S00679.242l642 +++|          NJN    WEI2        IF NOT AT EOI TRACK
08310  M00S06198.1ms     +++|          LDD    T7          CHECK OLD EOI SECTOR
08311  M00S06199.1ms     +++|          SBM    /WMS/WEIB
Line S06200 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08312  M01S06200.ns2090  ---|          PJN    WEI0.1      IF EOI NOT INTACT
08313  M01S06201.ns2090  ---| WEI0     LDD    T6          SET CURRENT TRACK IN FST
Line S00199 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08314  M02S00199.242l642 ---| WEI0     PJN    WEI0.2      IF EOI NOT INTACT
08315  M02S00200.242l642 ---| WEI0.1   LDD    T6          SET CURRENT TRACK IN FST
Line S00680 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08316  M01S00680.242l642 +++| WEI1     PJN    WEI3        IF EOI NOT INTACT
08317  M01S00681.242l642 +++| WEI2     LDD    T6          SET CURRENT TRACK IN FST
08318  M00S06202.1ms     +++|          STD    FS+2
08319  M00S06203.1ms     +++|          LDD    T7          SET CURRENT SECTOR IN FST
08320  M00S06204.1ms     +++|          STD    FS+3
08321  M00S06205.1ms     +++|          LDN    76          ONLY SET FILE WRITTEN IN FST IF REWRITE
Line S06206 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08322  M01S06206.242l642 ---|          STM    MSPA
Line S00682 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08323  M01S00682.242l642 +++|          STM    /WMS/WMSB
08324  M00S06207.1ms     +++|          LDN    1           SET FILE WRITTEN
Line S06208 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08325  M01S06208.242l642 ---|          STM    MSPB
Line S00683 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08326  M01S00683.242l642 +++|          STM    /WMS/WMSC
Line S00201 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08327  M01S00201.ns2090  +++|          RJM    SCF         SET CONTROL BUFFER INDEX INTO FNT
08328  M01S00202.ns2090  +++|          RJM    FWB         FLUSH WRITE DATA FOR BUFFERED DEVICE
08329  M00S06209.1ms     +++|          LDM    /WMS/WEIC   CHECK TRT MODIFIED
08330  M00S06210.1ms     +++|          LPN    77
Line S06211 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08331  M01S06211.ns2090  ---|          ZJN    WEIX        IF NO TRT UPDATE NEEDED
Line S00203 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08332  M01S00203.ns2090  +++|          ZJP    WEIX        IF NO TRT UPDATE NEEDED
08333  M00S06212.1ms     +++|          LDM    /WMS/WEIB   RESET OLD EOI SECTOR
08334  M00S06213.1ms     +++|          STD    CM+3
Line S06214 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08335  M01S06214.ns2090  ---|          LDI    T3          RESET OLD EOI TRACK
Line S00204 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08336  M01S00204.ns2090  +++|          LDI    RC          RESET OLD EOI TRACK
Line S06215 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08337  M01S06215.242l642 ---|          LJM    WEI3.1      RESET EOI IN TRT
Line S00684 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08338  M01S00684.242l642 +++|          LJM    WEI10       RESET EOI IN TRT
08339  M00S06216.1ms     +++|
Line S06217 Modification History
M01 (Removed by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08340  M01S06217.ns2090  ---| WEI0.1   SETMS  WRITE
Line S00205 Modification History
M01 (Added by) ns2090
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08341  M02S00205.242l642 ---| WEI0.2   SETMS  WRITE
Line S00685 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08342  M01S00685.242l642 +++|*         BACK UP AND WRITE AN EOI.
08343  M01S00686.242l642 +++|
Line S00687 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08344  M02S00687.1ms6    ---| WEI3     SETMS  IO,NS
08345  M02S00688.1ms6    ---|          LDM    RDCT
Line S00121 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08346  M01S00121.1ms6    +++| WEI3     LDD    FS+2
08347  M01S00122.1ms6    +++|          NJN    WEI3.1      IF SYSTEM SECTOR NOT WRITTEN THIS TIME
08348  M01S00123.1ms6    +++|
08349  M01S00124.1ms6    +++|*         SINCE THIS IS THE BEGINNING OF THE FILE, TRY TO START THE
08350  M01S00125.1ms6    +++|*         OPERATION OVER AGAIN USING A DIFFERENT TRACK OR DEVICE.
08351  M01S00126.1ms6    +++|
08352  M01S00127.1ms6    +++|          RJM    /WMS/RWF    REWRITE FILE
08353  M01S00128.1ms6    +++|          LJM    WEIX        RETURN
08354  M01S00129.1ms6    +++|
Line S00130 Modification History
M01 (Added by) 1ms6
M02 (Removed by) 1ms11
Seq #  *Modification Id* Act 
----------------------------+
08355  M02S00130.1ms11   ---| WEI3.1   LDM    DCSA+1
Line S00001 Modification History
M01 (Added by) 1ms11
Seq #  *Modification Id* Act 
----------------------------+
08356  M01S00001.1ms11   +++| WEI3.1   SETMS  IO,NS       RESET TO CORRECT DRIVER
08357  M01S00002.1ms11   +++|          LDM    DCSA+1
Line S00689 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08358  M01S00689.242l642 +++|          SHN    21-10
08359  M01S00690.242l642 +++|          MJN    WEI6        IF SECTORS BUFFERED IN THE HARDWARE
08360  M01S00691.242l642 +++|
08361  M01S00692.242l642 +++|*         SINCE, FOR FULL TRACK DEVICES, THE ERROR COULD HAVE OCCURED
08362  M01S00693.242l642 +++|*         IN THE CURRENT SECTOR OR THE PREVIOUS SECTOR, BACK UP TWO
08363  M01S00694.242l642 +++|*         SECTORS AND WRITE THE EOI.
08364  M01S00695.242l642 +++|
Line S06218 Modification History
M01 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08365  M01S06218.1ms6    ---|          LDD    T6          BACKSPACE 1 PRU
Line S00131 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08366  M01S00131.1ms6    +++|          LDD    T6
08367  M00S06219.1ms     +++|          LMD    FS+1
Line S06220 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08368  M01S06220.242l642 ---|          NJN    WEI1        IF NOT FIRST TRACK
Line S00696 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08369  M01S00696.242l642 +++|          NJN    WEI4        IF NOT FIRST TRACK
08370  M00S06221.1ms     +++|          LDD    T7
Line S06222 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08371  M01S06222.242l642 ---|          LMN    FSMS
08372  M01S06223.242l642 ---|          ZJN    WEI3        IF FIRST SECTOR
08373  M01S06224.242l642 ---| WEI1     SOD    T7          DECREMENT SECTOR
08374  M01S06225.242l642 ---|          PJN    WEI3        IF SAME TRACK
08375  M01S06226.242l642 ---|          LDD    T6          SAVE CURRENT TRACK
08376  M01S06227.242l642 ---|          STD    T3
08377  M01S06228.242l642 ---|          LDD    FS+1        SET FIRST TRACK
08378  M01S06229.242l642 ---|          LMD    T3
08379  M01S06230.242l642 ---| WEI2     LMD    T3          SET NEXT TRACK
08380  M01S06231.242l642 ---|          STD    T6
08381  M01S06232.242l642 ---|          RJM    SNT
08382  M01S06233.242l642 ---|          LMD    T3
08383  M01S06234.242l642 ---|          NJN    WEI2        LOOP TO CURRENT TRACK
08384  M01S06235.242l642 ---|          LDM    SLM         SET SECTOR LIMIT
08385  M01S06236.242l642 ---|          SBN    1
08386  M01S06237.242l642 ---|          STD    T7
08387  M01S06238.242l642 ---| WEI3     RJM    /WEI/WEI    WRITE EOI SECTOR
Line S00697 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08388  M01S00697.242l642 +++|          SBN    FSMS
08389  M01S00698.242l642 +++|          ZJN    WEI9        IF FIRST SECTOR
08390  M01S00699.242l642 +++|          SBN    1
08391  M01S00700.242l642 +++|          ZJN    WEI5        IF CAN ONLY BACKUP ONE SECTOR
08392  M01S00701.242l642 +++| WEI4     RJM    BOS         BACKUP ONE SECTOR
08393  M01S00702.242l642 +++| WEI5     RJM    BOS         BACKUP ONE SECTOR
08394  M01S00703.242l642 +++|          UJN    WEI9        WRITE EOI SECTOR
08395  M01S00704.242l642 +++|
08396  M01S00705.242l642 +++|*         FOR DEVICES THAT HAVE HARDWARE BUFFERING, THE EXACT POINT
08397  M01S00706.242l642 +++|*         AT WHICH THE ERROR OCCURED CANNOT BE DETERMINED.  THE EOI
08398  M01S00707.242l642 +++|*         IS WRITTEN AT THE POSITION AT WHICH THE OPERATION STARTED.
08399  M01S00708.242l642 +++|
08400  M01S00709.242l642 +++| WEI6     LDD    FS+2        RESET POSITION
Line S00710 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08401  M02S00710.1ms6    ---|          NJN    WEI7        IF THERE WAS A CURRENT TRACK
08402  M02S00711.1ms6    ---|          LDD    FS+1
08403  M02S00712.1ms6    ---|          STD    T6
08404  M02S00713.1ms6    ---|          LDN    FSMS
08405  M02S00714.1ms6    ---|          UJN    WEI8        WRITE EOI
08406  M02S00715.1ms6    ---|
08407  M02S00716.1ms6    ---| WEI7     STD    T6
Line S00132 Modification History
M01 (Added by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08408  M01S00132.1ms6    +++|          STD    T6
Line S00717 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08409  M01S00717.242l642 +++|          LDD    FS+3
08410  M01S00718.242l642 +++| WEI8     STD    T7
Line S00719 Modification History
M01 (Added by) 242l642
M02 (Removed by) 1ms6
Seq #  *Modification Id* Act 
----------------------------+
08411  M02S00719.1ms6    ---| WEI9     RJM    /WEI/WEI    WRITE EOI SECTOR
Line S00133 Modification History
M01 (Added by) 1ms6
M02 (Removed by) 1ms11
Seq #  *Modification Id* Act 
----------------------------+
08412  M02S00133.1ms11   ---| WEI9     SETMS  IO,NS       WRITE EOI SECTOR
08413  M02S00134.1ms11   ---|          RJM    /WEI/WEI
Line S00003 Modification History
M01 (Added by) 1ms11
Seq #  *Modification Id* Act 
----------------------------+
08414  M01S00003.1ms11   +++| WEI9     RJM    /WEI/WEI    WRITE EOI SECTOR
08415  M00S06239.1ms     +++|          ENDMS              END MASS STORAGE OPERATION
Line S00206 Modification History
M01 (Added by) ns2090
Seq #  *Modification Id* Act 
----------------------------+
08416  M01S00206.ns2090  +++|          RJM    SCF         SET CONTROL BUFFER INDEX INTO FNT
08417  M01S00207.ns2090  +++|          RJM    FWB         FLUSH WRITE DATA FOR BUFFERED DEVICE
08418  M00S06240.1ms     +++|          LDD    T7          DROP UNUSED TRACKS
08419  M00S06241.1ms     +++|          STD    FS+3        SET CURRENT SECTOR IN FST
08420  M00S06242.1ms     +++|          STD    CM+3
08421  M00S06243.1ms     +++|          LDD    T6
08422  M00S06244.1ms     +++|          STD    FS+2        SET CURRENT TRACK IN FST
Line S06245 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08423  M01S06245.242l642 ---| WEI3.1   LPC    3777
Line S00720 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08424  M01S00720.242l642 +++| WEI10    LPC    3777
08425  M00S06246.1ms     +++|          STD    CM+2
08426  M00S06247.1ms     +++|          LDD    T5
08427  M00S06248.1ms     +++|          STD    CM+1
08428  M00S06249.1ms     +++|          LDM    PMFF        CHECK FILE TYPE
Line S06250 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08429  M01S06250.242l642 ---|          NJN    WEI4        IF NOT DIRECT ACCESS PERMANENT FILE
Line S00721 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08430  M01S00721.242l642 +++|          NJN    WEI11       IF NOT DIRECT ACCESS PERMANENT FILE
08431  M00S06251.1ms     +++|          LDC    4000        SET DEVICE CHECKPOINT
08432  M00S06252.1ms     +++|          RAD    CM+1
Line S06253 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08433  M01S06253.242l642 ---| WEI4     MONITOR  DTKM      DROP TRACKS AND UPDATE TRT
Line S00722 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08434  M01S00722.242l642 +++| WEI11    MONITOR DTKM       RESET EOI
08435  M00S06254.1ms     +++|          LDM    CFNJ        COMPUTE NET STORAGE
08436  M00S06255.1ms     +++|          SBD    CM+3
08437  M00S06256.1ms     +++|          SHN    14
08438  M00S06257.1ms     +++|          ADM    CFNJ+1
08439  M00S06258.1ms     +++|          SBD    CM+4
Line S06259 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08440  M01S06259.242l642 ---|          PJN    WEI5        IF MORE SECTORS ALLOCATED THAN RETURNED
Line S00723 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08441  M01S00723.242l642 +++|          PJN    WEI12       IF MORE SECTOR ALLOCATED THAN RETURNED
08442  M00S06260.1ms     +++|          LDN    CICS        CHANGE TO INCREMENT FUNCTION
08443  M00S06261.1ms     +++|          STM    CFNI
08444  M00S06262.1ms     +++|          LDD    CM+3
08445  M00S06263.1ms     +++|          SBM    CFNJ
08446  M00S06264.1ms     +++|          SHN    14
08447  M00S06265.1ms     +++|          ADD    CM+4
08448  M00S06266.1ms     +++|          SBM    CFNJ+1
Line S06267 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08449  M01S06267.242l642 ---| WEI5     STM    CFNJ+1      SET SECTOR COUNT
Line S00724 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08450  M01S00724.242l642 +++| WEI12    STM    CFNJ+1      SET SECTOR COUNT
08451  M00S06268.1ms     +++|          SHN    -14
08452  M00S06269.1ms     +++|          STM    CFNJ
Line S06270 Modification History
M01 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08453  M01S06270.242l642 ---| WEI6     LJM    WEIX        RETURN
Line S00725 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08454  M01S00725.242l642 +++|          LJM    WEIX        RETURN
08455  M00S06271.1ms     +++| IDM      SPACE  4,10
08456  M00S06272.1ms     +++|**        IDM - ISSUE DAYFILE MESSAGE.
08457  M00S06273.1ms     +++|*
08458  M00S06274.1ms     +++|*         ENTRY  (ERRA) = (EN) = ERROR NUMBER.
08459  M00S06275.1ms     +++|*                (BS - BS+4) = (FET+0).
08460  M00S06276.1ms     +++|*
08461  M00S06277.1ms     +++|*         USES   T1.
08462  M00S06278.1ms     +++|*
08463  M00S06279.1ms     +++|*         CALLS  ALS, DFM.
08464  M00S06280.1ms     +++|
08465  M00S06281.1ms     +++|
08466  M00S06282.1ms     +++| IDM      SUBR               ENTRY/EXIT
08467  M00S06283.1ms     +++|          LDC    BUFA        SET BUFFER ADDRESS
08468  M00S06284.1ms     +++|          STD    T1
08469  M00S06285.1ms     +++|          LDC    1R *100
08470  M00S06286.1ms     +++|          STI    T1
08471  M00S06287.1ms     +++|          LDM    TMSG,EN     MOVE MESSAGE
08472  M00S06288.1ms     +++|          ZJN    IDMX        IF NO MESSAGE
08473  M00S06289.1ms     +++|          RJM    ACS
08474  M00S06290.1ms     +++|          LDD    BS+3        CLEAR 8TH CHARACTER
Line S06291 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08475  M01S06291.ns22000 ---|          STD    CM
Line S00460 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08476  M01S00460.ns22000 +++|          STM    IDMA
08477  M00S06292.1ms     +++|          SCN    77
08478  M00S06293.1ms     +++|          STD    BS+3
08479  M00S06294.1ms     +++|          LDN    BS          MOVE NAME
08480  M00S06295.1ms     +++|          RJM    ACS
Line S06296 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08481  M01S06296.ns22000 ---|          LDD    CM          RESTORE STATUS FIELD
08482  M01S06297.ns22000 ---|          STD    BS+3
08483  M00S06298.1ms     +++|          LDC    =Z* AT *    ADD * AT *
08484  M00S06299.1ms     +++|          RJM    ACS
08485  M00S06300.1ms     +++|          LDD    IR+3        ADD FET ADDRESS
08486  M00S06301.1ms     +++|          LPN    77
08487  M00S06302.1ms     +++|          SHN    14
08488  M00S06303.1ms     +++|          ADD    IR+4
08489  M00S06304.1ms     +++|          RJM    ANS
08490  M00S06305.1ms     +++|          LDC    =Z*.*       ADD PERIOD
08491  M00S06306.1ms     +++|          RJM    ACS
08492  M00S06307.1ms     +++|          LDC    BUFA        ISSUE MESSAGE
08493  M00S06308.1ms     +++|          RJM    DFM
Line S00461 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08494  M01S00461.ns22000 +++|          LDD    EN
08495  M01S00462.ns22000 +++|          LMN    /CIOERR/LNF
Line S00463 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08496  M02S00463.242l642 ---|          ZJN    IDM2        IF FILE ACCESS LEVEL COULD NOT BE ADVANCED
Line S00726 Modification History
M01 (Added by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08497  M01S00726.242l642 +++|          NJN    IDM1        IF FILE ACCESS LEVEL COULD BE ADVANCED
08498  M01S00727.242l642 +++|
08499  M01S00728.242l642 +++|*         ISSUE *MFFI* ACCOUNT FILE MESSAGE IF THE FILE ACCESS LEVEL
08500  M01S00729.242l642 +++|*         COULD NOT BE ADVANCED TO THE THE JOB ACCESS LEVEL.
08501  M01S00730.242l642 +++|
08502  M01S00731.242l642 +++|          LDC    SVAM+3      SET MESSAGE ADDRESS
08503  M01S00732.242l642 +++|          STD    T1
08504  M01S00733.242l642 +++|          LDN    BS          MOVE FILE NAME
08505  M01S00734.242l642 +++|          RJM    ACS
08506  M01S00735.242l642 +++|          LDC    =Z*, *
08507  M01S00736.242l642 +++|          RJM    ACS
08508  M01S00737.242l642 +++|          LDM    JSAL        GET NAME OF JOB ACCESS LEVEL
08509  M01S00738.242l642 +++|          SHN    2
08510  M01S00739.242l642 +++|          ADC    TALV
08511  M01S00740.242l642 +++|          RJM    ACS         MOVE ACCESS LEVEL NAME
08512  M01S00741.242l642 +++|          LDC    =Z*.*
08513  M01S00742.242l642 +++|          RJM    ACS
08514  M01S00743.242l642 +++|          LDC    SVAM+ACFN   ISSUE ACCOUNT FILE MESSAGE
08515  M01S00744.242l642 +++|          RJM    DFM
Line S00464 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08516  M01S00464.ns22000 +++| IDM1     LDC    *           RESTORE STATUS FIELD
08517  M01S00465.ns22000 +++| IDMA     EQU    *-1
08518  M01S00466.ns22000 +++|          STD    BS+3
08519  M00S06309.1ms     +++|          LJM    IDMX        RETURN
Line S00467 Modification History
M01 (Added by) ns22000
M02 (Removed by) 242l642
Seq #  *Modification Id* Act 
----------------------------+
08520  M02S00467.242l642 ---|
08521  M02S00468.242l642 ---|*         ISSUE *MFFI* ACCOUNT FILE MESSAGE IF THE FILE ACCESS LEVEL
08522  M02S00469.242l642 ---|*         COULD NOT BE ADVANCED TO THE THE JOB ACCESS LEVEL.
08523  M02S00470.242l642 ---|
08524  M02S00471.242l642 ---| IDM2     LDC    SVAM+3      SET MESSAGE ADDRESS
08525  M02S00472.242l642 ---|          STD    T1
08526  M02S00473.242l642 ---|          LDN    BS          MOVE FILE NAME
08527  M02S00474.242l642 ---|          RJM    ACS
08528  M02S00475.242l642 ---|          LDC    =Z*, *
08529  M02S00476.242l642 ---|          RJM    ACS
08530  M02S00477.242l642 ---|          LDM    JSAL        GET NAME OF JOB ACCESS LEVEL
08531  M02S00478.242l642 ---|          SHN    2
08532  M02S00479.242l642 ---|          ADC    TALV
08533  M02S00480.242l642 ---|          RJM    ACS         MOVE ACCESS LEVEL NAME
08534  M02S00481.242l642 ---|          LDC    =Z*.*
08535  M02S00482.242l642 ---|          RJM    ACS
08536  M02S00483.242l642 ---|          LDC    SVAM+ACFN   ISSUE ACCOUNT FILE MESSAGE
08537  M02S00484.242l642 ---|          RJM    DFM
08538  M02S00485.242l642 ---|          LJM    IDM1        RETURN
Line S00486 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08539  M01S00486.ns22000 +++|
08540  M01S00487.ns22000 +++|
08541  M01S00488.ns22000 +++| SVAM     DATA   6HMFFI,
08542  M01S00489.ns22000 +++|          BSSZ   12
08543  M00S06310.1ms     +++|          SPACE  4,10
08544  M00S06311.1ms     +++|**        COMMON DECKS.
08545  M00S06312.1ms     +++|
08546  M00S06313.1ms     +++|
08547  M00S06314.1ms     +++|*CALL     COMPACS
08548  M00S06315.1ms     +++|*CALL     COMPANS
08549  M00S06316.1ms     +++|*CALL     COMPSNT
Line S00490 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08550  M01S00490.ns22000 +++| VAL$     SET    1
08551  M01S00491.ns22000 +++|*CALL     COMPVLC
08552  M00S06317.1ms     +++|          SPACE  4,10
08553  M00S06318.1ms     +++|          USE    LITERALS
08554  M00S06319.1ms     +++| BUFA     BSS    0
08555  M00S06320.1ms     +++|          SPACE  4,10
08556  M00S06321.1ms     +++|          OVERFLOW  ERPO,BFMS
08557  M00S06322.1ms     +++|
08558  M00S06323.1ms     +++|          ERRNG  BFMS-BUFA-26D
Line S00492 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
08559  M01S00492.ns22000 +++|          TTL    1MS - MASS STORAGE INPUT/OUTPUT.
08560  M00S06324.1ms     +++|          TITLE  1MS - MASS STORAGE INPUT/OUTPUT.
08561  M00S06325.1ms     +++|          END
cdc/nos2.source/opl.opl871/deck/1ms.005.txt ยท Last modified: by 127.0.0.1