Seq # *Modification Id* Act
----------------------------+
Line S00081 Modification History
M01 (Added by) t2807
Seq # *Modification Id* Act
----------------------------+
08637 M01S00081.t2807 +++| LDN /COMSCPS/AFAS ATTACH DEMAND FILE
08638 M00S07728.tfm +++| RJM ARF
08639 M00S07729.tfm +++| LDD FN COMPARE FILE NAMES
08640 M00S07730.tfm +++| LMC 2RRS
08641 M00S07731.tfm +++| LMD FN+1
08642 M00S07732.tfm +++| LMC 2RXD
08643 M00S07733.tfm +++| LMD FN+2
08644 M00S07734.tfm +++| LMM MFID
08645 M00S07735.tfm +++| ZJN SFV10 IF *RSXDID* FILE
Line S07736 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
08646 M01S07736.nos252 ---| ERROR ILR *TFM INVALID REQUEST*
Line S00065 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
08647 M01S00065.nos252 +++| ERROR ILR *TFM INCORRECT REQUEST*
08648 M00S07737.tfm +++|
08649 M00S07738.tfm +++| SFV10 STM UDTA CLEAR UDT ADDRESS
08650 M00S07739.tfm +++| LDD FS SET EQUIPMENT
08651 M00S07740.tfm +++| LPC 777
08652 M00S07741.tfm +++| STD DE
08653 M00S07742.tfm +++| STD T5
08654 M00S07743.tfm +++| LDD FS+1 SET FIRST TRACK
08655 M00S07744.tfm +++| STD T6
08656 M00S07745.tfm +++| LDN FSMS SET FIRST SECTOR
08657 M00S07746.tfm +++| STD T7
Line S07747 Modification History
M01 (Removed by) t5472
Seq # *Modification Id* Act
----------------------------+
08658 M01S07747.t5472 ---| SETMS
Line S00051 Modification History
M01 (Added by) t5472
Seq # *Modification Id* Act
----------------------------+
08659 M01S00051.t5472 +++| SETMS IO
Line S07748 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08660 M01S07748.274l797 ---| SFV11 LDD T6 SAVE CURRENT TRACK
Line S00339 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08661 M01S00339.274l797 +++| SFV11 RJM RND READ FIRST SECTOR OF DEMAND FILE ENTRY
08662 M01S00340.274l797 +++| LDM BUF0+2+.RJID+4 SAVE JOB EJT ORDINAL
08663 M01S00341.274l797 +++| STM SFVB
08664 M01S00342.274l797 +++| LDD T6 SAVE TRACK FOR SECOND SECTOR OF ENTRY
08665 M00S07749.tfm +++| STD DT
Line S07750 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08666 M01S07750.274l797 ---| LDD T7 SAVE CURRENT SECTOR
Line S00343 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08667 M01S00343.274l797 +++| LDD T7 SAVE SECTOR FOR SECOND SECTOR OF ENTRY
08668 M00S07751.tfm +++| STD DS
Line S00344 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08669 M01S00344.274l797 +++| RJM RND READ SECOND SECTOR OF DEMAND FILE ENTRY
08670 M01S00345.274l797 +++| LDM VBJS,PB CHECK JOB EJT ORDINAL
08671 M01S00346.274l797 +++| LMM SFVB
08672 M01S00347.274l797 +++| NJN SFV11 IF NOT THIS ENTRY
Line S00348 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
08673 M02S00348.282l826 ---| COMPARE VBES,PB,BUF0+2+.RQPF,,VSKL CHECK VSN
08674 M02S00349.282l826 ---| NJN SFV11 IF NOT THIS ENTRY
Line S00104 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
08675 M01S00104.282l826 +++| LDM BUF0+2+.RREQ
08676 M01S00105.282l826 +++| ADM BUF0+2+.RREQ+1
08677 M01S00106.282l826 +++| ADM BUF0+2+.RREQ+2
08678 M01S00107.282l826 +++| ADM BUF0+2+.RREQ+3
08679 M01S00108.282l826 +++| ADM BUF0+2+.RREQ+4
08680 M01S00109.282l826 +++| NJN SFV11 IF NO REQUEST
08681 M01S00110.282l826 +++| COMPARE VBES,PB,BUF0+2+.RQPV+5*/RSX/PVSN,,VSKL CHECK VSN
08682 M01S00111.282l826 +++| NJN SFV15.1 IF NOT THIS ENTRY
Line S00350 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08683 M01S00350.274l797 +++| LDN SFVAL GET LENGTH OF LIST
08684 M01S00351.274l797 +++| STD T1
Line S00352 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
08685 M02S00352.282l826 ---| LDM BUF0+2+.RQPD+3 GET RESOURCE TYPE
08686 M02S00353.282l826 ---| LPN 37
08687 M02S00354.282l826 ---| SHN 14
08688 M02S00355.282l826 ---| ADM BUF0+2+.RQPD+4
08689 M02S00356.282l826 ---| SHN -6
08690 M02S00357.282l826 ---| STD T2
Line S00358 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08691 M01S00358.274l797 +++| SFV15 LDM SFVA,T1 CHECK FOR MATCHING RESOURCE
Line S00359 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
08692 M02S00359.282l826 ---| SBD T2
Line S00112 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
08693 M01S00112.282l826 +++| LMM BUF0+2+.RQPV+5*/RSX/PRES+3
Line S00360 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08694 M01S00360.274l797 +++| ZJP SFV17 IF FOUND
08695 M01S00361.274l797 +++| SOD T1
08696 M01S00362.274l797 +++| PJN SFV15 IF NOT END OF LIST
Line S00363 Modification History
M01 (Added by) 274l797
M02 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
08697 M02S00363.282l826 ---| UJP SFV11 READ NEXT SECTOR
Line S00113 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
08698 M01S00113.282l826 +++| SFV15.1 LJM SFV11 READ NEXT SECTOR
Line S00364 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08699 M01S00364.274l797 +++|
08700 M01S00365.274l797 +++|
08701 M01S00366.274l797 +++| SFVA BSS 0 RESOURCE TABLE
08702 M01S00367.274l797 +++| VFD 12/0RMT 7 TRACK TAPE
08703 M01S00368.274l797 +++| VFD 12/0RNT 9 TRACK TAPE
08704 M01S00369.274l797 +++| VFD 12/0RPE 1600 BPI 9 TRACK TAPE
08705 M01S00370.274l797 +++| VFD 12/0RHD 800 BPI 9 TRACK TAPE
08706 M01S00371.274l797 +++| VFD 12/0RGE 6250 BPI 9 TRACK TAPE
08707 M01S00372.274l797 +++| VFD 12/0RCT CTS CARTRIDGE TAPE
08708 M01S00373.274l797 +++| VFD 12/0RAT ACS CARTRIDGE TAPE
08709 M01S00374.274l797 +++| SFVAL EQU *-SFVA-1 LENGTH OF RESOURCE TABLE
08710 M01S00375.274l797 +++|
08711 M01S00376.274l797 +++| SFVB BSS 1 EJT ORDINAL FROM DEMAND FILE ENTRY
08712 M01S00377.274l797 +++| RND SPACE 4,15
08713 M01S00378.274l797 +++|** RND - READ NEXT DEMAND FILE SECTOR.
08714 M01S00379.274l797 +++|*
08715 M01S00380.274l797 +++|* ENTRY (T5 - T7) = EST ORDINAL, TRACK AND SECTOR.
08716 M01S00381.274l797 +++|*
08717 M01S00382.274l797 +++|* EXIT SPECIFIED SECTOR READ.
08718 M01S00383.274l797 +++|* (T6 - T7) ADVANCED TO NEXT SECTOR.
08719 M01S00384.274l797 +++|*
08720 M01S00385.274l797 +++|* ERROR TO *ERR* IF MASS STORAGE ERROR, OR IF EOI ENCOUNTERED.
08721 M01S00386.274l797 +++|*
08722 M01S00387.274l797 +++|* USES T3, T6, T7.
08723 M01S00388.274l797 +++|*
08724 M01S00389.274l797 +++|* CALLS RDS.
08725 M01S00390.274l797 +++|*
08726 M01S00391.274l797 +++|* MACROS ENDMS, ERROR.
08727 M01S00392.274l797 +++|
08728 M01S00393.274l797 +++|
08729 M01S00394.274l797 +++| RND SUBR ENTRY/EXIT
08730 M00S07752.tfm +++| LDC BUF0
08731 M00S07753.tfm +++| STD T3
08732 M00S07754.tfm +++| RJM RDS READ SECTOR
Line S07755 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08733 M01S07755.274l797 ---| PJN SFV12 IF NOT READ ERROR
08734 M01S07756.274l797 ---| ENDMS
Line S00395 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08735 M01S00395.274l797 +++| PJN RND1 IF NOT READ ERROR
08736 M00S07757.tfm +++| ERROR MSE *EQXX, DNYY, MASS STORAGE ERROR*
08737 M00S07758.tfm +++|
Line S07759 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08738 M01S07759.274l797 ---| SFV12 LDI T3 CHECK FIRST CONTROL BYTE
08739 M01S07760.274l797 ---| NJN SFV13 IF NOT EOF
Line S00396 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08740 M01S00396.274l797 +++| RND1 LDI T3 CHECK FIRST CONTROL BYTE
08741 M01S00397.274l797 +++| NJN RND2 IF NOT EOF
08742 M00S07761.tfm +++| LDM 1,T3 CHECK NEXT CONTROL BYTE
Line S07762 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08743 M01S07762.274l797 ---| NJN SFV13 IF NOT EOI
Line S00398 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08744 M01S00398.274l797 +++| NJN RND2 IF NOT EOI
08745 M00S07763.tfm +++| ENDMS
08746 M00S07764.tfm +++| ERROR VNF *VSN NOT FOUND*
08747 M00S07765.tfm +++|
Line S07766 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08748 M01S07766.274l797 ---| SFV13 STD T7 SET NEXT SECTOR
Line S00399 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08749 M01S00399.274l797 +++| RND2 STD T7 SET NEXT SECTOR
08750 M00S07767.tfm +++| SHN 6
Line S07768 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08751 M01S07768.274l797 ---| PJN SFV14 IF NOT NEW TRACK
Line S00400 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08752 M01S00400.274l797 +++| PJN RNDX IF NOT NEW TRACK
08753 M00S07769.tfm +++| SHN -6
08754 M00S07770.tfm +++| STD T6
08755 M00S07771.tfm +++| LDN 0 CLEAR SECTOR
08756 M00S07772.tfm +++| STD T7
Line S07773 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08757 M01S07773.274l797 ---| SFV14 COMPARE VBJS,PB,BUF0+2+/RSX/RJID*5+4,,2
08758 M01S07774.274l797 ---| NJP SFV11 IF NOT THIS ENTRY
08759 M01S07775.274l797 ---| COMPARE VBES,PB,BUF0+2+/RSX/RQCW*5,,VSKL CHECK VSN
08760 M01S07776.274l797 ---| NJP SFV11 IF NOT THIS ENTRY
08761 M01S07777.274l797 ---| LDN SFVAL GET LENGTH OF LIST
08762 M01S07778.274l797 ---| STD T1
08763 M01S07779.274l797 ---| LDM BUF0+2+/RSX/RQPD*5+3 GET RESOURCE TYPE
08764 M01S07780.274l797 ---| LPN 37
08765 M01S07781.274l797 ---| SHN 14
08766 M01S07782.274l797 ---| ADM BUF0+2+/RSX/RQPD*5+4
08767 M01S07783.274l797 ---| SHN -6
08768 M01S07784.274l797 ---| STD T2
08769 M01S07785.274l797 ---| SFV15 LDM SFVA,T1 CHECK FOR MATCHING RESOURCE
08770 M01S07786.274l797 ---| SBD T2
08771 M01S07787.274l797 ---| ZJP SFV17 IF FOUND
08772 M01S07788.274l797 ---| SOD T1
08773 M01S07789.274l797 ---| PJN SFV15 IF NOT END OF LIST
08774 M01S07790.274l797 ---| LJM SFV11 READ NEXT SECTOR
08775 M01S07791.274l797 ---|
08776 M01S07792.274l797 ---| SFVA BSS 0 RESOURCE TABLE
08777 M01S07793.274l797 ---| VFD 12/0RMT 7-TRACK
08778 M01S07794.274l797 ---| VFD 12/0RNT 9-TRACK
08779 M01S07795.274l797 ---| VFD 12/0RPE 1600 BPI 9-TRACK
08780 M01S07796.274l797 ---| VFD 12/0RHD 800 BPI 9-TRACK
08781 M01S07797.274l797 ---| VFD 12/0RGE 6250 BPI 9-TRACK
08782 M01S07798.274l797 ---| SFVAL EQU *-SFVA-1 LENGTH OF RESOURCE TABLE
08783 M01S07799.274l797 ---|
08784 M01S07800.274l797 ---|
Line S00401 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08785 M01S00401.274l797 +++| UJN RNDX RETURN
08786 M01S00402.274l797 +++| SPACE 4,10
08787 M00S07801.tfm +++| OVERFLOW OVL1,BUF1
08788 M00S07802.tfm +++| OVERLAY (SEARCH GLOBAL SCRATCH POOL.),OVL1
08789 M00S07803.tfm +++| SPACE 4,10
Line S07804 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08790 M01S07804.274l797 ---|** ' LOCAL DIRECT CELLS.
Line S00403 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08791 M01S00403.274l797 +++|** LOCAL DIRECT CELLS.
08792 M00S07805.tfm +++|
08793 M00S07806.tfm +++|
08794 M00S07807.tfm +++| FP EQU S3 - S3+4 FNT SEARCH POINTERS (5 LOCATIONS)
08795 M00S07808.tfm +++| GSPS SPACE 4,10
08796 M00S07809.tfm +++|** GSP - SEARCH GLOBAL SCRATCH POOL(S).
08797 M00S07810.tfm +++|*
08798 M00S07811.tfm +++|* CALLED TO LOCATE A SCRATCH TAPE IN ANOTHER FAMILY-S
08799 M00S07812.tfm +++|* CATALOG. ONLY FAMILY-S DESIGNATED AS GLOBAL WILL BE
08800 M00S07813.tfm +++|* SEARCHED. IF A SCRATCH TAPE IS FOUND, IT IS DELETED
08801 M00S07814.tfm +++|* FROM THE FAMILY CATALOG AND RE-ENTERED INTO THE
08802 M00S07815.tfm +++|* REQUESTING FAMILY CATALOG TO HONOR USER JOB SCRATCH
08803 M00S07816.tfm +++|* REQUEST.
08804 M00S07817.tfm +++|*
08805 M00S07818.tfm +++|* ENTRY (FO) = FAMILY TAPE CATALOG FNT ORDINAL.
08806 M00S07819.tfm +++|* (PFAM - PFAM+3) = FAMILY NAME.
Line S00404 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08807 M01S00404.274l797 +++|* (SCRP) = ADDRESS IN TMST OF CORRECT SCRATCH POOL WORD.
08808 M00S07820.tfm +++|*
08809 M00S07821.tfm +++|* EXIT (FO) = RESET.
08810 M00S07822.tfm +++|* (PFAM - PFAM+3) =RESET.
08811 M00S07823.tfm +++|* TO CSA - COMPLETE SCRATCH ASSIGNMENT.
08812 M00S07824.tfm +++|*
08813 M00S07825.tfm +++|* USES FP - FP+4, PB, T1, T2, KA.
08814 M00S07826.tfm +++|*
08815 M00S07827.tfm +++|* CALLS ARF, CIE, CSA, DDE, DLB, LSV, PRP, ROC, RRP, SAC,
08816 M00S07828.tfm +++|* VIS, WRP.
08817 M00S07829.tfm +++|*
08818 M00S07830.tfm +++|* MACROS ERROR, EXOVL, MMOVE, RESTP.
08819 M00S07831.tfm +++|
08820 M00S07832.tfm +++|
08821 M00S07833.tfm +++| GSP ENTRY ENTRY/EXIT
08822 M00S07834.tfm +++| LDN FNTP INITIALIZE FNT POINTERS
08823 M00S07835.tfm +++| CRD FP
08824 M00S07836.tfm +++| MMOVE PFAM,,GSPA,,PFKL
08825 M00S07837.tfm +++| LDD FO
08826 M00S07838.tfm +++| STD FP+3
08827 M00S07839.tfm +++| STM GSPA+4
08828 M00S07840.tfm +++| LDN 0 PRESET FNT ORDINAL
08829 M00S07841.tfm +++| STD FP
08830 M00S07842.tfm +++| UJP GSP2 ENTER SEARCH LOOP
08831 M00S07843.tfm +++|
08832 M00S07844.tfm +++| GSP1 RJM ROC RESET ORIGINAL CATALOG
08833 M00S07845.tfm +++| ERROR WSA *WAIT SCRATCH ASSIGNMENT.*
08834 M00S07846.tfm +++|
08835 M00S07847.tfm +++| GSP2 LDD FO SET FNT ORDINAL
08836 M00S07848.tfm +++| STD T1
08837 M00S07849.tfm +++| LDN /PFM/PTWR SET MODE
08838 M00S07850.tfm +++| STD T2
08839 M00S07851.tfm +++| LDN RFAS RETURN CATALOG
08840 M00S07852.tfm +++| RJM ARF
08841 M00S07853.tfm +++| RJM SAC SEARCH FOR ALTERNATE CATALOG
08842 M00S07854.tfm +++| ZJP GSP1 IF END OF SEARCH
08843 M00S07855.tfm +++| RESTP CPSB SWAP TO SYSTEM BLOCK BUFFER
08844 M00S07856.tfm +++| RJM RRP READ RANDOM PRU (TMST)
08845 M00S07857.tfm +++| LDM SBST,BP
08846 M00S07858.tfm +++| LPN GFTS/10000
08847 M00S07859.tfm +++| ZJN GSP2 IF NOT GLOBAL FAMILY
08848 M00S07860.tfm +++| LDM SBST+1,BP
08849 M00S07861.tfm +++| LPN FETS+SATS+UITS
08850 M00S07862.tfm +++| NJP GSP2 IF ERROR, SUSPEND OR UTILITY ACTIVE
08851 M00S07863.tfm +++| RJM LSV LOCATE SCRATCH VOLUME
08852 M00S07864.tfm +++| NJP GSP2 IF SCRATCH NOT FOUND OR ERROR
08853 M00S07865.tfm +++| MMOVE ,BP,BUFA,,TSVL*10D
08854 M00S07866.tfm +++| RJM DDE DELETE DATA ENTRY (SECONDARY INDEX)
08855 M00S07867.tfm +++| LDM CWNE,BA
08856 M00S07868.tfm +++| NJN GSP3 IF BLOCK NOT EMPTY
08857 M00S07869.tfm +++| RJM DLB DELINK BLOCK (SECONDARY INDEX)
08858 M00S07870.tfm +++| RESTP CPPI SWAP TO PRIMARY INDEX BUFFER
08859 M00S07871.tfm +++| RJM DDE DELETE DATA ENTRY (PRIMARY INDEX)
08860 M00S07872.tfm +++| LDM CWNE,BA
08861 M00S07873.tfm +++| ZJN GSP3 IF BLOCK NOT EMPTY
08862 M00S07874.tfm +++| RJM DLB DELINK BLOCK (PRIMARY INDEX)
08863 M00S07875.tfm +++| UJN GSP4 UPDATE SCRATCH VOLUME/COUNT
08864 M00S07876.tfm +++|
08865 M00S07877.tfm +++| GSP3 RJM WRP WRITE RANDOM PRU (PRIMARY VSN INDEX)
08866 M00S07878.tfm +++| GSP4 RESTP CPSB SWAP TO SYSTEM BLOCK
Line S07879 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08867 M01S07879.274l797 ---| MMOVE BUFA+VBNV,,SBSV,BP,VSKL
08868 M01S07880.274l797 ---| LDA SBSC,BP DECREMENT SCRATCH COUNT
Line S00405 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08869 M01S00405.274l797 +++| LDM SCRP SET ADDRESS OF SCRATCH POOL WORD
08870 M01S00406.274l797 +++| ADD BP
08871 M01S00407.274l797 +++| STD T3
08872 M01S00408.274l797 +++| MMOVE BUFA+VBNV,,,T3,VSKL
08873 M01S00409.274l797 +++| LDA 3,T3 DECREMENT SCRATCH COUNT
08874 M00S07881.tfm +++| SBN 1
Line S07882 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08875 M01S07882.274l797 ---| STM SBSC+1,BP
Line S00410 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08876 M01S00410.274l797 +++| STM 4,T3
08877 M00S07883.tfm +++| SHN -14
Line S07884 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08878 M01S07884.274l797 ---| STM SBSC,BP
Line S00411 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08879 M01S00411.274l797 +++| STM 3,T3
08880 M00S07885.tfm +++| RJM WRP WRITE RANDOM PRU
08881 M00S07886.tfm +++| LDD FO SET FNT ORDINAL
08882 M00S07887.tfm +++| STD T1
08883 M00S07888.tfm +++| LDN /PFM/PTWR SET MODE
08884 M00S07889.tfm +++| STD T2
08885 M00S07890.tfm +++| LDN RFAS RETURN CATALOG
08886 M00S07891.tfm +++| RJM ARF
08887 M00S07892.tfm +++| RJM ROC RESET ORIGINAL CATALOG
08888 M00S07893.tfm +++| LDC BUFA
08889 M00S07894.tfm +++| STD PB
08890 M00S07895.tfm +++| STD KA
08891 M00S07896.tfm +++| MMOVE BUFA,,BUFC,,VSKL
08892 M00S07897.tfm +++| RJM VIS VSN INDEXED SEARCH
08893 M00S07898.tfm +++| ZJP GSP2 IF VSN FOUND
08894 M00S07899.tfm +++| RJM CIE CREATE INDEX ENTRY (VSN)
08895 M00S07900.tfm +++| LDC BUFC
08896 M00S07901.tfm +++| STD KA
08897 M00S07902.tfm +++| RJM VIS FIND NEWLY CREATED VSN INDEX
08898 M00S07903.tfm +++| NJN GSP5 IF NOT FOUND
08899 M00S07904.tfm +++| EXOVL CSA COMPLETE SCRATCH ASSIGNMENT (NO RETURN)
08900 M00S07905.tfm +++|
08901 M00S07906.tfm +++| GSP5 ERROR EID *ERROR IN INDEX DATA.*
08902 M00S07907.tfm +++|
08903 M00S07908.tfm +++| GSPA BSSZ 5 42/ FAMILY,6/ 0,12/ FNT ORDINAL
Line S07909 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08904 M01S07909.274l797 ---| TITLE ".Y." SUBROUTINES.
Line S00412 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08905 M01S00412.274l797 +++| TITLE SUBROUTINES.
08906 M00S07910.tfm +++| LSV SPACE 4,10
08907 M00S07911.tfm +++|** LSV - LOCATE SCRATCH VOLUME.
08908 M00S07912.tfm +++|*
08909 M00S07913.tfm +++|* ENTRY (PESN - PESN+3) = EXTERNAL VSN.
Line S00413 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08910 M01S00413.274l797 +++|* (SCRP) = ADDRESS IN TMST OF CORRECT SCRATCH POOL WORD.
08911 M00S07914.tfm +++|*
08912 M00S07915.tfm +++|* EXIT (A) = 0 IF FOUND.
08913 M00S07916.tfm +++|* (A) = ERROR CODE IF NOT FOUND.
08914 M00S07917.tfm +++|*
08915 M00S07918.tfm +++|* USES KA, T2.
08916 M00S07919.tfm +++|*
08917 M00S07920.tfm +++|* CALLS VIS.
08918 M00S07921.tfm +++|*
08919 M00S07922.tfm +++|* MACROS MMOVE.
08920 M00S07923.tfm +++|
08921 M00S07924.tfm +++|
08922 M00S07925.tfm +++| LSV3 LDN 0 INDICATE SCRATCH FOUND
08923 M00S07926.tfm +++|
08924 M00S07927.tfm +++| LSV SUBR ENTRY/EXIT
08925 M00S07928.tfm +++| LDC PESN
08926 M00S07929.tfm +++| STD KA
Line S07930 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08927 M01S07930.274l797 ---| LDM SBSV,BP
Line S00414 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08928 M01S00414.274l797 +++| LDM SCRP GET ADDRESS OF SCRATCH POOL WORD
08929 M01S00415.274l797 +++| ADD BP
08930 M01S00416.274l797 +++| STD T3
08931 M01S00417.274l797 +++| LDI T3 CHECK SCRATCH POOL
08932 M00S07931.tfm +++| LMC 7777
08933 M00S07932.tfm +++| NJN LSV1 IF SCRATCH AVAILABLE
08934 M00S07933.tfm +++| LDN /EMSG/WSA *WAIT SCRATCH ASSIGNMENT.*
08935 M00S07934.tfm +++| UJN LSVX RETURN
08936 M00S07935.tfm +++|
Line S07936 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
08937 M01S07936.274l797 ---| LSV1 MMOVE SBSV,BP,,KA,VSKL
Line S00418 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
08938 M01S00418.274l797 +++| LSV1 MMOVE ,T3,,KA,VSKL
08939 M00S07937.tfm +++| RJM VIS VSN INDEXED SEARCH
08940 M00S07938.tfm +++| NJN LSV2 IF NOT FOUND
08941 M00S07939.tfm +++| LDM VBST,BP
08942 M00S07940.tfm +++| LPN ASVS/10000
08943 M00S07941.tfm +++| NJN LSV3 INDICATE SCRATCH FOUND
08944 M00S07942.tfm +++| LSV2 LDN /EMSG/EID *ERROR IN INDEX DATA.*
08945 M00S07943.tfm +++| UJN LSVX RETURN
08946 M00S07944.tfm +++| PRP SPACE 4,10
08947 M00S07945.tfm +++|** PRP - PRESET RANDOM PROCESSORS.
08948 M00S07946.tfm +++|*
08949 M00S07947.tfm +++|* EXIT RANDOM PROCESSORS INITIALIZED
08950 M00S07948.tfm +++|*
08951 M00S07949.tfm +++|* USES T5 - T5+4.
08952 M00S07950.tfm +++|*
08953 M00S07951.tfm +++|* CALLS IRA.
08954 M00S07952.tfm +++|
08955 M00S07953.tfm +++|
08956 M00S07954.tfm +++| PRP SUBR ENTRY/EXIT
08957 M00S07955.tfm +++| LDD FO
08958 M00S07956.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS
08959 M00S07957.tfm +++| CRD T5
08960 M00S07958.tfm +++| LDD T5 ISOLATE EQUIPMENT
08961 M00S07959.tfm +++| LPC 777
08962 M00S07960.tfm +++| STD T5
08963 M00S07961.tfm +++| RJM IRA INITIALIZE RANDOM PROCESSORS
08964 M00S07962.tfm +++| UJN PRPX RETURN
08965 M00S07963.tfm +++| ROC SPACE 4,10
08966 M00S07964.tfm +++|** ROC - RESET ORIGINAL CATALOG.
08967 M00S07965.tfm +++|*
08968 M00S07966.tfm +++|* ENTRY (GSPA - GSPA+3) = ORIGINAL FAMILY NAME.
08969 M00S07967.tfm +++|* (GSPA+4 = ORIGINAL CATALOG FNT ORDINAL.
08970 M00S07968.tfm +++|*
08971 M00S07969.tfm +++|* EXIT (PFAM - PFAM+3) = ORIGINAL FAMILY NAME.
08972 M00S07970.tfm +++|* (FO) = ORIGINAL FAMILY ORDINAL.
08973 M00S07971.tfm +++|* ORIGINAL CATALOG ATTACHED IN WRITE MODE AND RANDOM
08974 M00S07972.tfm +++|* PROCESSORS PRESET.
08975 M00S07973.tfm +++|*
08976 M00S07974.tfm +++|* USES T1, T2.
08977 M00S07975.tfm +++|*
08978 M00S07976.tfm +++|* CALLS ARF, PRP, UTR.
08979 M00S07977.tfm +++|*
08980 M00S07978.tfm +++|* MACROS MMOVE.
08981 M00S07979.tfm +++|
08982 M00S07980.tfm +++|
08983 M00S07981.tfm +++| ROC SUBR ENTRY/EXIT
08984 M00S07982.tfm +++| MMOVE GSPA,,PFAM,,PFKL RESET FAMILY NAME
08985 M00S07983.tfm +++| LDM GSPA+4 SET FNT ORDINAL
08986 M00S07984.tfm +++| STD FO
08987 M00S07985.tfm +++| STD T1
08988 M00S07986.tfm +++| LDN /PFM/PTWR SET WRITE MODE
08989 M00S07987.tfm +++| STD T2
Line S07988 Modification History
M01 (Removed by) t2807
Seq # *Modification Id* Act
----------------------------+
08990 M01S07988.t2807 ---| LDN AFAS ATTACH CATALOG
Line S00082 Modification History
M01 (Added by) t2807
Seq # *Modification Id* Act
----------------------------+
08991 M01S00082.t2807 +++| LDN /COMSCPS/AFAS ATTACH CATALOG
08992 M00S07989.tfm +++| RJM ARF
08993 M00S07990.tfm +++| RJM UTR UPDATE TRT
08994 M00S07991.tfm +++| RJM PRP PRESET RANDOM PROCESSORS
08995 M00S07992.tfm +++| UJN ROCX RETURN
08996 M00S07993.tfm +++| SAC SPACE 4,10
08997 M00S07994.tfm +++|** SAC - SEARCH FOR ALTERNATE CATALOG.
08998 M00S07995.tfm +++|*
08999 M00S07996.tfm +++|* ENTRY (FP) = LAST FNT ORDINAL CHECKED.
09000 M00S07997.tfm +++|* (FP+2) = MAXIMUM NUMBER OF FNT ENTRIES.
09001 M00S07998.tfm +++|* (FP+3) = FNT ORDINAL OF FAMILY ENTERED.
09002 M00S07999.tfm +++|*
09003 M00S08000.tfm +++|* EXIT (A) .NE. 0 IF CATALOG FOUND.
09004 M00S08001.tfm +++|* (A) = 0 IF CATALOG NOT FOUND.
09005 M00S08002.tfm +++|* (FN - FN+4) = FAMILY NAME.
09006 M00S08003.tfm +++|* (FO) = FNT ORDINAL.
09007 M00S08004.tfm +++|* (FP) = FNT ORDINAL.
09008 M00S08005.tfm +++|*
09009 M00S08006.tfm +++|* USES CM - CM+4, FN - FN+4, FO, FS - FS+4, T1, T2.
09010 M00S08007.tfm +++|*
09011 M00S08008.tfm +++|* CALLS AFA, ARF, UTR.
09012 M00S08009.tfm +++|*
09013 M00S08010.tfm +++|* MACROS COMPARE.
09014 M00S08011.tfm +++|
09015 M00S08012.tfm +++|
09016 M00S08013.tfm +++| SAC SUBR ENTRY/EXIT
09017 M00S08014.tfm +++| SAC1 AOD FP ADVANCE POINTER
09018 M00S08015.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS
09019 M00S08016.tfm +++| SBN FSTG-FNTG
09020 M00S08017.tfm +++| CRD FN READ FNT ENTRY
09021 M00S08018.tfm +++| LDD FP
09022 M00S08019.tfm +++| LMD FP+2
09023 M00S08020.tfm +++| ZJN SACX IF END OF FNT
09024 M00S08021.tfm +++| LDD FN
09025 M00S08022.tfm +++| ZJN SAC1 IF EMPTY ENTRY
09026 M00S08023.tfm +++| LDD FN+4 CHECK FILE TYPE
09027 M00S08024.tfm +++| SHN -6
09028 M00S08025.tfm +++| LMN FAFT
09029 M00S08026.tfm +++| NJN SAC1 IF NOT CORRECT FILE TYPE
09030 M00S08027.tfm +++| COMPARE SACA,,FN,,PFKL
09031 M00S08028.tfm +++| NJN SAC1 IF NOT CATALOG
09032 M00S08029.tfm +++| LDD FP
09033 M00S08030.tfm +++| RJM AFA GET ABSOLUTE FST ADDRESS
09034 M00S08031.tfm +++| CRD FS READ FST OF FAST ATTACH FILE
09035 M00S08032.tfm +++| LDD FP
09036 M00S08033.tfm +++| LMD FP+3
09037 M00S08034.tfm +++| ZJN SAC1 IF FAMILY ENTERED
09038 M00S08035.tfm +++| SFA EST,FS
09039 M00S08036.tfm +++| CRD FS READ EST ENTRY
09040 M00S08037.tfm +++| LDD FS
09041 M00S08038.tfm +++| SHN 21-13
09042 M00S08039.tfm +++| PJP SAC1 IF NOT MASS STORAGE DEVICE
09043 M00S08040.tfm +++| SHN 21-6-21+13
09044 M00S08041.tfm +++| MJP SAC1 IF DEVICE UNAVAILABLE
09045 M00S08042.tfm +++| LDD FS+3
09046 M00S08043.tfm +++| SHN 21-13
09047 M00S08044.tfm +++| MJP SAC1 IF ACCESS NOT ALLOWED
09048 M00S08045.tfm +++| LDD FS+4
09049 M00S08046.tfm +++| SHN 3
09050 M00S08047.tfm +++| ADN PFGL
09051 M00S08048.tfm +++| CRM PFAM,ON
09052 M00S08049.tfm +++| ADN STLL-PFGL-1
09053 M00S08050.tfm +++| CRD CM GET INITIALIZE REQUESTS
09054 M00S08051.tfm +++| LDD CM CHECK INITIALIZE AND UNLOAD REQUESTS
09055 M00S08052.tfm +++| LPC 1030
09056 M00S08053.tfm +++| NJP SAC1 IF REQUESTS PENDING
09057 M00S08054.tfm +++| LDD FP SET CATALOG FNT ORDINAL
09058 M00S08055.tfm +++| STD FO
09059 M00S08056.tfm +++| STD T1
09060 M00S08057.tfm +++| LDN /PFM/PTWR SET MODE
09061 M00S08058.tfm +++| STD T2
Line S08059 Modification History
M01 (Removed by) t2807
Seq # *Modification Id* Act
----------------------------+
09062 M01S08059.t2807 ---| LDN AFAS ATTACH CATALOG
Line S00083 Modification History
M01 (Added by) t2807
Seq # *Modification Id* Act
----------------------------+
09063 M01S00083.t2807 +++| LDN /COMSCPS/AFAS ATTACH CATALOG
09064 M00S08060.tfm +++| RJM ARF
09065 M00S08061.tfm +++| RJM UTR UPDATE TRT
09066 M00S08062.tfm +++| RJM PRP PRESET RANDOM PROCESSORS
09067 M00S08063.tfm +++| LDN 1 SET CATALOG FOUND
09068 M00S08064.tfm +++| LJM SACX RETURN
09069 M00S08065.tfm +++|
09070 M00S08066.tfm +++| SACA VFD 48D/0L"TMFC" TMS CATALOG NAME
09071 M00S08067.tfm +++| SPACE 4,10
09072 M00S08068.tfm +++|** LOCAL COMMON DECKS.
09073 M00S08069.tfm +++|
09074 M00S08070.tfm +++|
09075 M00S08071.tfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY
09076 M00S08072.tfm +++| CIE$ EQU 1 DEFINE CIE - CREATE INDEXED ENTRY
09077 M00S08073.tfm +++| DDE$ EQU 1 DEFINE DDE - DELETE DATA ENTRY
09078 M00S08074.tfm +++| DLB$ EQU 1 DEFINE DLB - DELINK DATA BLOCK
09079 M00S08075.tfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK
09080 M00S08076.tfm +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH FOR KEY
09081 M00S08077.tfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BUFFER
09082 M00S08078.tfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT
09083 M00S08079.tfm +++| UTR$ EQU 1 DEFUNE UTR - UPDATE TRT
09084 M00S08080.tfm +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH
Line S08081 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
09085 M01S08081.282l826 ---|*CALL COMPGFP
09086 M00S08082.tfm +++|*CALL COMPIRA
09087 M00S08083.tfm +++|*CALL COMPTFM
09088 M00S08084.tfm +++|*CALL COMPWEI
09089 M00S08085.tfm +++| SPACE 4,10
09090 M00S08086.tfm +++|** BUFFERS.
09091 M00S08087.tfm +++|
09092 M00S08088.tfm +++|
09093 M00S08089.tfm +++| BUFA BSS TSVL*5
09094 M00S08090.tfm +++| BUFB BSS TSVL*5
09095 M00S08091.tfm +++| BUFC BSS 4
09096 M00S08092.tfm +++| SPACE 4
09097 M00S08093.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
Line S08094 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
09098 M01S08094.274l797 ---| OVERLAY (SUBFUNCTION ADMS.),OVL1
Line S00419 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
09099 M01S00419.274l797 +++| OVERLAY (ADMIT ALTERNATE USERS.),OVL1
09100 M00S08095.tfm +++| ADMS SPACE 4,10
09101 M00S08096.tfm +++|*** ADMS - ADMIT ALTERNATE USERS.
09102 M00S08097.tfm +++|*
09103 M00S08098.tfm +++|* THE ADMIT OVERLAY GRANTS PERMISSION FOR USERS OTHER
Line S08099 Modification History
M01 (Removed by) ns2763
Seq # *Modification Id* Act
----------------------------+
09104 M01S08099.ns2763 ---|* THEN THE FILE CREATOR TO ACCESS A PRIVATE FILE.
Line S00086 Modification History
M01 (Added by) ns2763
Seq # *Modification Id* Act
----------------------------+
09105 M01S00086.ns2763 +++|* THAN THE FILE CREATOR TO ACCESS A PRIVATE FILE.
09106 M00S08100.tfm +++|* THE TWO CM WORD ADMIT ENTRIES SPECIFY THE ALTERNATE
Line S08101 Modification History
M01 (Removed by) ns2763
Seq # *Modification Id* Act
----------------------------+
09107 M01S08101.ns2763 ---|* USERNAME AND THE MODE OF ACCESS THAT THAT USER CAN
09108 M01S08102.ns2763 ---|* HAVE TO THE FILE.
Line S00087 Modification History
M01 (Added by) ns2763
Seq # *Modification Id* Act
----------------------------+
09109 M01S00087.ns2763 +++|* USERNAME AND THE MODE OF ACCESS ALLOWED FOR THAT USER.
09110 M00S08103.tfm +++|*
09111 M00S08104.tfm +++|* THERE IS NO LIMIT TO THE NUMBER OF ADMIT ENTRIES
09112 M00S08105.tfm +++|* THAT CAN BE ASSOCIATED WITH A FILE AS ADDITIONAL
09113 M00S08106.tfm +++|* DATA BLOCKS WILL BE APPENDED TO THE FILE AS NEEDED.
09114 M00S08107.tfm +++|*
09115 M00S08108.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS -
09116 M00S08109.tfm +++|*
09117 M00S08110.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure
FET+0
0 2 3 8 9 16 17 18 29 ST CODE AT R FILE NAME 30 59 FILE NAME
09118 M00S08111.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ 0
Figure
+1
0 17 18 29 0 0 30 44 45 46 59 0 EP 0
09119 M00S08112.tfm +++|*T, +2 60/ 0
09120 M00S08113.tfm +++|*T, +3 60/ 0
09121 M00S08114.tfm +++|*T, +4 12/ FNT,30/ 0,18/ 0
Figure
+4
0 17 18 29 0 0 30 47 48 59 0 FNT
09122 M00S08115.tfm +++|*T, +5 42/ 0,18/ EADD
09123 M00S08116.tfm +++|*T, +6 60/ 0
09124 M00S08117.tfm +++|*T, +7 36/ VSN,24/ 0
09125 M00S08118.tfm +++|*T, +10 60/ 0
09126 M00S08119.tfm +++|*T, +11 60/ 0
09127 M00S08120.tfm +++|*T, +12 60/ FILE IDENTIFIER
Figure
+12
0 29 FILE IDENTIFIER 30 59 FILE IDENTIFIER
09128 M00S08121.tfm +++|*T, +13 42/ FID (CONT.),18/ 0
Figure
+13
0 17 18 29 0 FID (CONT.) 30 59 FID (CONT.)
09129 M00S08122.tfm +++|*T, +14 60/ 0
09130 M00S08123.tfm +++|*T, +15 60/ 0
09131 M00S08124.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure
+16
0 17 18 29 0 ALT. USERNAME 30 59 ALT. USERNAME
09132 M00S08125.tfm +++|*
Line S08126 Modification History
M01 (Removed by) ns2763
Seq # *Modification Id* Act
----------------------------+
09133 M01S08126.ns2763 ---|* USES CI, KA, PB, RI - RI+1.
Line S00088 Modification History
M01 (Added by) ns2763
Seq # *Modification Id* Act
----------------------------+
09134 M01S00088.ns2763 +++|* USES T7, KA, PB, RI - RI+1.
09135 M00S08127.tfm +++|*
Line S08128 Modification History
M01 (Removed by) ns2763
Seq # *Modification Id* Act
----------------------------+
09136 M01S08128.ns2763 ---|* CALLS AUS, CAE, GIB, MBP, SCB, TBA,
09137 M01S08129.ns2763 ---|* UIS, VIS, VSP, WRP.
Line S00089 Modification History
M01 (Added by) ns2763
Seq # *Modification Id* Act
----------------------------+
09138 M01S00089.ns2763 +++|* CALLS AUS, FTC, IBC, IIE, MBP, TBA, WRP.
09139 M00S08130.tfm +++|*
09140 M00S08131.tfm +++|* MACROS CLEAR, ERROR, LDA, MMOVE, SAVEP, RESTP.
09141 M00S08132.tfm +++|
09142 M00S08133.tfm +++|
09143 M00S08134.tfm +++| ADM ENTRY ADMIT ALTERNATE USERS
09144 M00S08135.tfm +++| LDC BUFA BUILD ADMIT ENTRY
09145 M00S08136.tfm +++| STD PB
09146 M00S08137.tfm +++| LDN PDTL
09147 M00S08138.tfm +++| CRM BUFA+5,ON
09148 M00S08139.tfm +++| CLEAR ,PB,TAEL*10D-7
09149 M00S08140.tfm +++| MMOVE PAUN,,,PB,UNKL
09150 M00S08141.tfm +++| LDM PAUN
09151 M00S08142.tfm +++| ZJP ADM3 IF NO ALTERNATE USERNAME
09152 M00S08143.tfm +++| LDM PPWD+4
09153 M00S08144.tfm +++| LPN 77
09154 M00S08145.tfm +++| STM ABAM,PB
Line S08146 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09155 M01S08146.nos252 ---| ZJP ADM3 IF INVALID ACCESS MODE
Line S00066 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09156 M01S00066.nos252 +++| ZJP ADM3 IF INCORRECT ACCESS MODE
09157 M00S08147.tfm +++| SBN FMMX
09158 M00S08148.tfm +++| RJM FTC FIND TAPE CATALOG
09159 M00S08149.tfm +++| ZJN ADM2 IF CATALOG FOUND
09160 M00S08150.tfm +++| ADM1 ERROR
09161 M00S08151.tfm +++|
09162 M00S08152.tfm +++| ADM2 LDM PESN
09163 M00S08153.tfm +++| ZJN ADM5 IF SYMBOLIC FILE NAME
09164 M00S08154.tfm +++| RESTP CPSI RESTORE VSN INDEX POINTERS
09165 M00S08155.tfm +++| LDM VBRC,BP CHECK FOR FIRST REEL
09166 M00S08156.tfm +++| SHN -6
09167 M00S08157.tfm +++| ZJN ADM4 IF NO REEL COUNT, ASSUME FIRST
09168 M00S08158.tfm +++| SBN 1
09169 M00S08159.tfm +++| ZJN ADM4 IF FIRST OF SET
Line S08160 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09170 M01S08160.nos252 ---| ADM3 LDN /EMSG/ILR *TFM INVALID REQUEST.*
Line S00067 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09171 M01S00067.nos252 +++| ADM3 LDN /EMSG/ILR *TFM INCORRECT REQUEST.*
09172 M00S08161.tfm +++| UJN ADM1 SET ERROR CODE
09173 M00S08162.tfm +++|
09174 M00S08163.tfm +++| ADM4 RESTP CPCB RESTORE BUFFER POINTERS (CATALOG)
09175 M00S08164.tfm +++| ADM5 LDM CBCT,BP CHECK FILE CATEGORY
09176 M00S08165.tfm +++| SHN -6
09177 M00S08166.tfm +++| LMN FCPU
09178 M00S08167.tfm +++| ZJN ADM3 IF PUBLIC FILE
09179 M00S08168.tfm +++| LDC PAUN
09180 M00S08169.tfm +++| STD KA
09181 M00S08170.tfm +++| LDM CBAE,BP
09182 M00S08171.tfm +++| LPN 77
09183 M00S08172.tfm +++| STD RI
09184 M00S08173.tfm +++| SHN 14
09185 M00S08174.tfm +++| LMM CBAE+1,BP
09186 M00S08175.tfm +++| STD RI+1
09187 M00S08176.tfm +++| ZJP ADM8 IF ADMIT BLOCK NOT ASSIGNED
09188 M00S08177.tfm +++| RJM AUS ALTERNATE USERNAME SEARCH
09189 M00S08178.tfm +++| NJN ADM6 IF ALTERNATE USERNAME NOT FOUND
09190 M00S08179.tfm +++| LDM ABAN,BP SAVE ACCESS COUNT
09191 M00S08180.tfm +++| STM ABAN,PB
09192 M00S08181.tfm +++| LDM ABAN+1,BP
09193 M00S08182.tfm +++| SCN 77
09194 M00S08183.tfm +++| RAM ABAN+1,PB
09195 M00S08184.tfm +++| MMOVE ,PB,,BP,TAEL*10D
09196 M00S08185.tfm +++| LDC WRP SET TO UPDATE
09197 M00S08186.tfm +++| STM ADMA
09198 M00S08187.tfm +++| UJN ADM7 REWRITE PRU
09199 M00S08188.tfm +++|
09200 M00S08189.tfm +++| ADM6 LDC BUFB DEFINE OVERFLOW BUFFER
09201 M00S08190.tfm +++| STD T7
09202 M00S08191.tfm +++| ADM7 RJM IIE INSERT INDEX ENTRY
09203 M00S08192.tfm +++| ADMA EQU *-1 (RJM TO *WRP* IF INDEX FOUND)
09204 M00S08193.tfm +++| LJM ADMX RETURN
09205 M00S08194.tfm +++|
09206 M00S08195.tfm +++| ADM8 RJM TBA TOGGLE BUFFER ASSIGNMENT
09207 M00S08196.tfm +++| RJM IBC INITIALIZE BLOCK CHAIN
09208 M00S08197.tfm +++| LDC RTAB*100
09209 M00S08198.tfm +++| STM CWRT,BA
09210 M00S08199.tfm +++| LDN TAEL
09211 M00S08200.tfm +++| STM CWEL,BA
09212 M00S08201.tfm +++| MMOVE PBUN,,CWUN,BA,UNKL
09213 M00S08202.tfm +++| LDM CWFE,BA
09214 M00S08203.tfm +++| RJM MBP MOVE BUFFER POINTER
09215 M00S08204.tfm +++| SAVEP CPAB SAVE ADMIT BUFFER POINTERS
09216 M00S08205.tfm +++| RESTP CPCB RESTORE CATALOG POINTERS
09217 M00S08206.tfm +++| LDM CPAB+3 SET ADMIT BUFFER POINTER
09218 M00S08207.tfm +++| STM CBAE,BP
09219 M00S08208.tfm +++| LDM CPAB+4
09220 M00S08209.tfm +++| STM CBAE+1,BP
09221 M00S08210.tfm +++| RJM WRP WRITE RANDOM PRU
09222 M00S08211.tfm +++| RESTP CPAB RESTORE ADMIT BUFFER POINTERS
09223 M00S08212.tfm +++| LJM ADM6 CREATE ADMIT INDEX
Line S08213 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
09224 M01S08213.274l797 ---| TITLE ".Y." SUBROUTINES.
Line S00420 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
09225 M01S00420.274l797 +++| TITLE SUBROUTINES.
09226 M00S08214.tfm +++| SPACE 4
09227 M00S08215.tfm +++|*** COMMON DECKS.
09228 M00S08216.tfm +++|
09229 M00S08217.tfm +++|
09230 M00S08218.tfm +++| AUS$ EQU 1 DEFINE AUS - ALTERNATE USERNAME SEARCH
09231 M00S08219.tfm +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY
09232 M00S08220.tfm +++| FTC$ EQU 1 DEFINE FTC - FIND TAPE CATALOG
09233 M00S08221.tfm +++| IBC$ EQU 1 DEFINE IBC - INITIALIZE BLOCK CHAIN
09234 M00S08222.tfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS
09235 M00S08223.tfm +++| VUB$ EQU 1 DEFINE VUB - VERIFY USER BLOCK
09236 M00S08224.tfm +++|*CALL COMPTFM
09237 M00S08225.tfm +++|*CALL COMPWEI
09238 M00S08226.tfm +++| SPACE 4
09239 M00S08227.tfm +++|*** BUFFERS.
09240 M00S08228.tfm +++|
09241 M00S08229.tfm +++|
09242 M00S08230.tfm +++| BUFA BSS TAEL*5
09243 M00S08231.tfm +++| BUFB BSS TAEL*5
09244 M00S08232.tfm +++| SPACE 4
09245 M00S08233.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
Line S08234 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
09246 M01S08234.274l797 ---| OVERLAY (SUBFUNCTION AUDS.),OVL1
Line S00421 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
09247 M01S00421.274l797 +++| OVERLAY (AUDIT TAPE FILE CATALOG.),OVL1
09248 M00S08235.tfm +++| SPACE 4,10
09249 M00S08236.tfm +++|** LOCAL DIRECT CELL LOCATIONS.
09250 M00S08237.tfm +++|
09251 M00S08238.tfm +++|
09252 M00S08239.tfm +++| CN EQU S1+0 - S1+4 SCRATCH WORD (5 LOCATIONS)
09253 M00S08240.tfm +++| AF EQU S2+0 AUDIT FUNCTION CODE
09254 M00S08241.tfm +++| RC EQU AF REEL COUNT (REDEFINES *AF*)
09255 M00S08242.tfm +++| WC EQU S2+1 WORD COUNT
09256 M00S08243.tfm +++| FT EQU S2+2 - S2+3 FET FIRST POINTER
09257 M00S08244.tfm +++| IN EQU S2+4 - S3+0 FET IN POINTER
09258 M00S08245.tfm +++| OT EQU S3+1 - S3+2 FET OUT POINTER
09259 M00S08246.tfm +++| LM EQU S3+3 - S3+4 FET LIMIT POINTER
09260 M00S08247.tfm +++| FA EQU S1+0 FNT ORDINAL
09261 M00S08248.tfm +++| CA EQU EC CONTINUATION ADDRESS
09262 M00S08249.tfm +++| AUDS SPACE 4,10
09263 M00S08250.tfm +++|*** AUDS - AUDIT TAPE FILE CATALOG.
09264 M00S08251.tfm +++|*
09265 M00S08252.tfm +++|* THE AUDIT OVERLAY ENABLES THE FILE CREATOR TO OBTAIN
09266 M00S08253.tfm +++|* INFORMATION ABOUT THE FILES THAT RESIDE IN THE
09267 M00S08254.tfm +++|* TAPE FILE CATALOG. IN ADDITION, ALTERNATE USERS
09268 M00S08255.tfm +++|* CAN OBTAIN AUDIT INFORMATION ABOUT SPECIFIC
09269 M00S08256.tfm +++|* FILES THAT THEY ARE PERMITTED TO ACCESS IN THE
09270 M00S08257.tfm +++|* FILE CREATORS CATALOG.
09271 M00S08258.tfm +++|*
09272 M00S08259.tfm +++|* THERE ARE FOUR MODES OF AUDIT ACCESS TO THE
09273 M00S08260.tfm +++|* TAPE FILE CATALOG-
09274 M00S08261.tfm +++|*
09275 M00S08262.tfm +++|* 1. A FULL CATALOG SEARCH. THE CATALOG IMAGE
09276 M00S08263.tfm +++|* AND ALL ASSOCIATED VSNS ARE RETURNED TO
09277 M00S08264.tfm +++|* THE REQUESTER FOR ALL FILES IN HIS/HER
09278 M00S08265.tfm +++|* CATALOG.
09279 M00S08266.tfm +++|*
09280 M00S08267.tfm +++|* 2. A SELECTIVE CATALOG SEARCH. THE CATALOG
09281 M00S08268.tfm +++|* IMAGE AND ALL ASSOCIATED VSNS ARE RETURNED
09282 M00S08269.tfm +++|* FOR A SPECIFIED FILE.
09283 M00S08270.tfm +++|*
09284 M00S08271.tfm +++|* 3. A FULL ADMIT SEARCH. THE ADMIT ENTRY IMAGE IS
09285 M00S08272.tfm +++|* RETURNED FOR ALL ADMITS ASSIGNED TO A
09286 M00S08273.tfm +++|* SPECIFIED FILE.
09287 M00S08274.tfm +++|*
09288 M00S08275.tfm +++|* 4. A SELECTIVE ADMIT SEARCH. ONLY THE ADMIT ENTRY
09289 M00S08276.tfm +++|* IMAGE FOR THE FILE AND USER SPECIFIED WILL BE
09290 M00S08277.tfm +++|* RETURNED TO THE REQUESTER.
09291 M00S08278.tfm +++|*
09292 M00S08279.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS -
09293 M00S08280.tfm +++|*
09294 M00S08281.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure
FET+0
0 2 3 8 9 16 17 18 29 ST CODE AT R FILE NAME 30 59 FILE NAME
09295 M00S08282.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ FIRST
Figure
+1
0 17 18 29 FIRST 0 30 44 45 46 59 0 EP 0
09296 M00S08283.tfm +++|*T, +2 42/ 0,18/ IN
09297 M00S08284.tfm +++|*T, +3 42/ 0,18/ OUT
09298 M00S08285.tfm +++|*T, +4 12/ FNT,30/ 0,18/ LIMIT
Figure
+4
0 17 18 29 LIMIT 0 30 47 48 59 0 FNT
09299 M00S08286.tfm +++|*T, +5 42/ 0,18/ EADD
09300 M00S08287.tfm +++|*T, +6 30/ CURRENT R.I.,30/ RANDOM REQUEST
Figure
+6
0 29 RANDOM REQUEST 30 59 CURRENT R.I.
09301 M00S08288.tfm +++|*T, +7 36/ VSN,24/ 0
09302 M00S08289.tfm +++|*T, +10 60/ 0
09303 M00S08290.tfm +++|*T, +11 60/ 0
09304 M00S08291.tfm +++|*T, +12 60/ FILE IDENTIFIER
Figure
+12
0 29 FILE IDENTIFIER 30 59 FILE IDENTIFIER
09305 M00S08292.tfm +++|*T, +13 42/ FID (CONT.),18/ 0.
Figure
+13
0 17 18 29 0. FID (CONT.) 30 59 FID (CONT.)
09306 M00S08293.tfm +++|*T, +14 60/ 0
09307 M00S08294.tfm +++|*T, +15 60/ 0
09308 M00S08295.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure
+16
0 17 18 29 0 ALT. USERNAME 30 59 ALT. USERNAME
09309 M00S08296.tfm +++|*T, +17 42/ PASSWORD,12/ 0,6/ MD
Figure
+17
0 5 6 17 18 29 MD 0 PASSWORD 30 59 PASSWORD
09310 M00S08297.tfm +++|*
09311 M00S08298.tfm +++|* EXIT TO MAIN LOOP IF NO ERROR.
09312 M00S08299.tfm +++|*
09313 M00S08300.tfm +++|* USES AF, BA, CA, CI, CN - CN+4, CM - CM+4,
09314 M00S08301.tfm +++|* RI - RI+1, WC.
09315 M00S08302.tfm +++|*
09316 M00S08303.tfm +++|* CALLS GIB, PRS, VRR, VSP.
09317 M00S08304.tfm +++|*
09318 M00S08305.tfm +++|* MACROS ENTRY, ERROR, LDA, SAVEP.
09319 M00S08306.tfm +++|
09320 M00S08307.tfm +++| AUD ENTRY AUDIT TAPE FILE CATALOG
09321 M00S08308.tfm +++| RJM PRS PRESET
09322 M00S08309.tfm +++| ADN TFRR
09323 M00S08310.tfm +++| CRD CN
09324 M00S08311.tfm +++| ADN TFPW-TFRR
09325 M00S08312.tfm +++| CRD CM
09326 M00S08313.tfm +++| LDD CM+4
Line S08314 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09327 M01S08314.nos252 ---| ZJN AUD1 IF INVALID SEARCH TYPE
Line S00068 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09328 M01S00068.nos252 +++| ZJN AUD1 IF INCORRECT SEARCH TYPE
09329 M00S08315.tfm +++| STD AF
09330 M00S08316.tfm +++| SBN MXST
09331 M00S08317.tfm +++| MJN AUD2 IF VALID SEARCH TYPE
Line S08318 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09332 M01S08318.nos252 ---| AUD1 ERROR ILR *TFM INVALID REQUEST.*
Line S00069 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09333 M01S00069.nos252 +++| AUD1 ERROR ILR *TFM INCORRECT REQUEST.*
09334 M00S08319.tfm +++|
09335 M00S08320.tfm +++| AUD2 LDD CN CHECK AUDIT CONTINUATION
09336 M00S08321.tfm +++| SHN 14
09337 M00S08322.tfm +++| STD CI
09338 M00S08323.tfm +++| SCN 77
09339 M00S08324.tfm +++| LMD CN+1
09340 M00S08325.tfm +++| NJN AUD3 IF AUDIT CONTINUATION
09341 M00S08326.tfm +++| STD CA CLEAR CONTINUATION ADDRESS
09342 M00S08327.tfm +++| LJM AUD7 BUILD PARAMETER BLOCK
09343 M00S08328.tfm +++|
09344 M00S08329.tfm +++| AUD3 STD RI+1 SET RANDOM ADDRESS (CATALOG)
09345 M00S08330.tfm +++| SHN -14
09346 M00S08331.tfm +++| STD RI
09347 M00S08332.tfm +++| LDC BUF2 SET CATALOG BUFFER ADDRESS
09348 M00S08333.tfm +++| STD BA
09349 M00S08334.tfm +++| RJM VRR VERIFY RANDOM REQUEST
09350 M00S08335.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
09351 M00S08336.tfm +++| PJN AUD5 IF VALID CONTINUATION POINTERS
09352 M00S08337.tfm +++| AUD4 ERROR BAE *BUFFER ARGUMENT ERROR.*
09353 M00S08338.tfm +++|
09354 M00S08339.tfm +++| AUD5 SAVEP FCSA SAVE CATALOG POINTERS
09355 M00S08340.tfm +++| LDD AF CHECK SEARCH TYPE
09356 M00S08341.tfm +++| LMN FAST
09357 M00S08342.tfm +++| NJN AUD6 IF NOT CATALOG CONTINUATION
09358 M00S08343.tfm +++| LDC 60D/TAEL+1+SBNI
09359 M00S08344.tfm +++| STM VSPA
09360 M00S08345.tfm +++| LDC LDNI+TAEL
09361 M00S08346.tfm +++| STM VSPB
09362 M00S08347.tfm +++| AUD6 LDD CN+3 CHECK RANDOM REQUEST
09363 M00S08348.tfm +++| SHN 14
09364 M00S08349.tfm +++| STD CI
09365 M00S08350.tfm +++| SCN 77
09366 M00S08351.tfm +++| LMD CN+4
09367 M00S08352.tfm +++| STD RI+1
09368 M00S08353.tfm +++| SHN -14
09369 M00S08354.tfm +++| STD RI
09370 M00S08355.tfm +++| RJM VRR VERIFY RANDOM REQUEST
09371 M00S08356.tfm +++| RJM GIB GET INITIAL BLOCK
09372 M00S08357.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
09373 M00S08358.tfm +++| STD CA SET CONTINUATION ADDRESS
Line S08359 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09374 M01S08359.nos252 ---| MJP AUD4 IF CONTINUATION POINTERS INVALID
Line S00070 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09375 M01S00070.nos252 +++| MJP AUD4 IF CONTINUATION POINTERS INCORRECT
09376 M00S08360.tfm +++| AUD7 LDM AUDB,AF SET PROCESSOR ADDRESS
09377 M00S08361.tfm +++| STM AUDA
09378 M00S08362.tfm +++| RJM ** PROCESS FUNCTION
09379 M00S08363.tfm +++| AUDA EQU *-1 (PROCESSOR ADDRESS)
09380 M00S08364.tfm +++| LJM AUDX RETURN
09381 M00S08365.tfm +++|
09382 M00S08366.tfm +++|
09383 M00S08367.tfm +++| AUDB INDEX TABLE OF AUDIT PROCESSORS
09384 M00S08368.tfm +++| INDEX FCST,FCS FULL CATALOG SEARCH
09385 M00S08369.tfm +++| INDEX SCST,SCS SELECTIVE CATALOG SEARCH
09386 M00S08370.tfm +++| INDEX FAST,FAS FULL ADMIT SEARCH
09387 M00S08371.tfm +++| INDEX SAST,SAS SELECTIVE ADMIT SEARCH
09388 M00S08372.tfm +++| INDEX MXST
09389 M00S08373.tfm +++| GVSS SPACE 4,10
09390 M00S08374.tfm +++|*** GVSS - GET VOLUME SERIAL NUMBERS.
09391 M00S08375.tfm +++|*
09392 M00S08376.tfm +++|* *GVS* RETURNS A SNAPSHOT CATALOG IMAGE FOR
09393 M00S08377.tfm +++|* A ASSIGNED FILE.
09394 M00S08378.tfm +++|*
09395 M00S08379.tfm +++|* ENTRY (IR - IR+3) = FET ADDRESS -
09396 M00S08380.tfm +++|*
09397 M00S08381.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure
FET+0
0 2 3 8 9 16 17 18 29 ST CODE AT R FILE NAME 30 59 FILE NAME
09398 M00S08382.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ FIRST
Figure
+1
0 17 18 29 FIRST 0 30 44 45 46 59 0 EP 0
09399 M00S08383.tfm +++|*T, +2 42/ 0,18/ IN
09400 M00S08384.tfm +++|*T, +3 42/ 0,18/ OUT
09401 M00S08385.tfm +++|*T, +4 12/ FNT,30/ 0,18/ LIMIT
Figure
+4
0 17 18 29 LIMIT 0 30 47 48 59 0 FNT
09402 M00S08386.tfm +++|*T, +5 42/ 0,18/ EADD
09403 M00S08387.tfm +++|*T, +6 30/ CURRENT R.I.,30/ RANDOM REQUEST
Figure
+6
0 29 RANDOM REQUEST 30 59 CURRENT R.I.
09404 M00S08388.tfm +++|*T, +7 36/ VSN,24/ 0
09405 M00S08389.tfm +++|*T, +10 60/ 0
09406 M00S08390.tfm +++|*T, +11 60/ 0
09407 M00S08391.tfm +++|*T, +12 60/ FILE IDENTIFIER
Figure
+12
0 29 FILE IDENTIFIER 30 59 FILE IDENTIFIER
09408 M00S08392.tfm +++|*T, +13 42/ FID (CONT.),18/0.
Figure
+13
0 17 18 29 0. FID (CONT.) 30 59 FID (CONT.)
09409 M00S08393.tfm +++|*T, +14 60/ 0
09410 M00S08394.tfm +++|*T, +15 60/ 0
09411 M00S08395.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure
+16
0 17 18 29 0 ALT. USERNAME 30 59 ALT. USERNAME
09412 M00S08396.tfm +++|*T, +17 42/ PASSWORD,12/ 0,6/ MD
Figure
+17
0 5 6 17 18 29 MD 0 PASSWORD 30 59 PASSWORD
09413 M00S08397.tfm +++|*
09414 M00S08398.tfm +++|* EXIT TO MAIN LOOP IF NO ERROR.
09415 M00S08399.tfm +++|*
09416 M00S08400.tfm +++|* USES BA, CI, CM - CM+4, FN - FN+4,
09417 M00S08401.tfm +++|* RI - RI+1, T1 - T1+4, WC.
09418 M00S08402.tfm +++|*
09419 M00S08403.tfm +++|* CALLS GIB, PRS, PTC, RRP, SAF, VSP.
09420 M00S08404.tfm +++|*
09421 M00S08405.tfm +++|* MACROS ENTRY, ERROR, LDA.
09422 M00S08406.tfm +++|
09423 M00S08407.tfm +++|
09424 M00S08408.tfm +++| GVS ENTRY ENTRY/EXIT
09425 M00S08409.tfm +++| RJM PRS PRESET
09426 M00S08410.tfm +++| CRD FN
09427 M00S08411.tfm +++| LDN 0 NO INITIAL SEARCH ADDRESS
09428 M00S08412.tfm +++| RJM SAF SEARCH FOR ASSIGNED FILE
09429 M00S08413.tfm +++| NJN GVS1 IF FILE FOUND
09430 M00S08414.tfm +++| ERROR LNF *(LFN) NOT FOUND.*
09431 M00S08415.tfm +++|
09432 M00S08416.tfm +++| GVS1 NFA FA,R
09433 M00S08417.tfm +++| ADN FSTL
09434 M00S08418.tfm +++| CRD FS GET FST/EST ENTRIES
09435 M00S08419.tfm +++| SFA EST,FS
09436 M00S08420.tfm +++| CRD CM
09437 M00S08421.tfm +++| LDD CM+3 VALIDATE MT/NT EQUIPMENT
Line S08422 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
09438 M01S08422.274l797 ---| LPC 3777
09439 M00S08423.tfm +++| LMC 2RMT
09440 M00S08424.tfm +++| ZJN GVS2 IF 7 TRACK TAPE
09441 M00S08425.tfm +++| LMC 2RNT&2RMT
09442 M00S08426.tfm +++| ZJN GVS2 IF 9 TRACK TAPE
Line S00422 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
09443 M01S00422.274l797 +++| LMC 2RCT&2RNT
09444 M01S00423.274l797 +++| ZJN GVS2 IF CTS CARTRIDGE TAPE
09445 M01S00424.274l797 +++| LMC 2RAT&2RCT
09446 M01S00425.274l797 +++| ZJN GVS2 IF ACS CARTRIDGE TAPE
09447 M00S08427.tfm +++| ERROR NMT *(LFN) NOT ON MAGNETIC TAPE.*
09448 M00S08428.tfm +++|
09449 M00S08429.tfm +++| GVS2 LDD FS+1 SET UDT ADDRESS
09450 M00S08430.tfm +++| STM UDTA
09451 M00S08431.tfm +++| LDD CP VALIDATE JOB ASSIGNMENT
09452 M00S08432.tfm +++| ADN TFSW
09453 M00S08433.tfm +++| CRD CN
Line S08434 Modification History
M01 (Removed by) 282l826
Seq # *Modification Id* Act
----------------------------+
09454 M01S08434.282l826 ---| UDTRD CM,/MTX/UJID,1
09455 M01S08435.282l826 ---| LDD CM+4
Line S00114 Modification History
M01 (Added by) 282l826
Seq # *Modification Id* Act
----------------------------+
09456 M01S00114.282l826 +++| UDTRD CM,/MTX/UVRI,1
09457 M01S00115.282l826 +++| LDD CM
09458 M00S08436.tfm +++| LMD CN
09459 M00S08437.tfm +++| ZJN GVS3 IF ASSIGNED
Line S08438 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09460 M01S08438.nos252 ---| UJN GVS4 *TFM INVALID REQUEST.*
Line S00071 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09461 M01S00071.nos252 +++| UJN GVS4 *TFM INCORRECT REQUEST.*
09462 M00S08439.tfm +++|
09463 M00S08440.tfm +++| GVS3 UDTRD CM,/MTX/UTMS,1
09464 M00S08441.tfm +++| LDD CM+4
09465 M00S08442.tfm +++| SHN 21-13
09466 M00S08443.tfm +++| PJN GVS4 IF NOT TMS CONTROLLED FILE
09467 M00S08444.tfm +++| UDTRD CM,/MTX/UTCI,1
09468 M00S08445.tfm +++| LDD CM+3 SET CATALOG ADDRESS
09469 M00S08446.tfm +++| SHN 14
09470 M00S08447.tfm +++| STD CI
09471 M00S08448.tfm +++| SCN 77
09472 M00S08449.tfm +++| LMD CM+4
09473 M00S08450.tfm +++| NJN GVS5 IF CATALOG ADDRESS
Line S08451 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09474 M01S08451.nos252 ---| GVS4 ERROR ILR *TFM INVALID REQUEST.*
Line S00072 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09475 M01S00072.nos252 +++| GVS4 ERROR ILR *TFM INCORRECT REQUEST.*
09476 M00S08452.tfm +++|
09477 M00S08453.tfm +++| GVS5 STD RI+1 SET RANDOM ADDRESS
09478 M00S08454.tfm +++| SHN -14
09479 M00S08455.tfm +++| STD RI
09480 M00S08456.tfm +++| LDC BUF0
09481 M00S08457.tfm +++| STD BA
09482 M00S08458.tfm +++| RJM GIB GET INITIAL BLOCK (CATALOG)
09483 M00S08459.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
Line S08460 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
09484 M01S08460.nos252 ---| MJN GVS4 IF POINTERS INVALID
Line S00073 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
09485 M01S00073.nos252 +++| MJN GVS4 IF POINTERS INCORRECT
09486 M00S08461.tfm +++| RJM PTC PROCESS TAPE CATALOG
09487 M00S08462.tfm +++| LJM GVSX RETURN
Line S08463 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
09488 M01S08463.274l797 ---| TITLE ".Y." SUBROUTINES.
Line S00426 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
09489 M01S00426.274l797 +++| TITLE SUBROUTINES.
09490 M00S08464.tfm +++| CCA SPACE 4,15
09491 M00S08465.tfm +++|** CCA - CHECK CATALOG ADMISSION.
09492 M00S08466.tfm +++|*
09493 M00S08467.tfm +++|* FILE ACCESS PERMISSION IS CHECKED GRANTED IF-
09494 M00S08468.tfm +++|*
09495 M00S08469.tfm +++|* 1. THE FILE BELONGS TO THE CREATOR.
09496 M00S08470.tfm +++|* 2. THE FILE IS LISTABLE BY AN ALTERNATE USER, AND THE FILE
09497 M00S08471.tfm +++|* COULD BE ACCESSED BY THE ALTERNATE USER IF THE CORRECT
09498 M00S08472.tfm +++|* PASSWORD WAS SPECIFIED.
09499 M00S08473.tfm +++|*
09500 M00S08474.tfm +++|* ON ALL ALTERNATE USER REQUESTS THE PASSWORD
09501 M00S08475.tfm +++|* IS CLEARED.
09502 M00S08476.tfm +++|*
09503 M00S08477.tfm +++|* ENTRY (BA) = ADDRESS OF BUFFER CONTAINING CATALOG.
09504 M00S08478.tfm +++|* (BP) = ADDRESS OF CATALOG ENTRY.
09505 M00S08479.tfm +++|* (CI) = CATALOG INDEX.
09506 M00S08480.tfm +++|*
09507 M00S08481.tfm +++|* EXIT (A) = 0 IF USER ADMITTED TO FILE.
09508 M00S08482.tfm +++|*
09509 M00S08483.tfm +++|* USES RI - RI+1, T1 - T1+3
09510 M00S08484.tfm +++|*
09511 M00S08485.tfm +++|* CALLS AUS.
09512 M00S08486.tfm +++|*
09513 M00S08487.tfm +++|* MACROS CLEAR, RESTP.
09514 M00S08488.tfm +++|
09515 M00S08489.tfm +++|
09516 M00S08490.tfm +++| CCA7 LDN 1 USER NOT ADMITTED TO FILE
09517 M00S08491.tfm +++|
09518 M00S08492.tfm +++| CCA SUBR ENTRY/EXIT
09519 M00S08493.tfm +++| LDM PAUN
09520 M00S08494.tfm +++| ZJN CCAX IF NOT ALTERNATE USER SEARCH
09521 M00S08495.tfm +++| LDM CBST,BP CHECK ALTERNATE CATALOG LIST ATTRIBUTE
09522 M00S08496.tfm +++| SHN 21-13
09523 M00S08497.tfm +++| PJN CCA7 IF ALTERNATE USER AUDIT NOT ALLOWED
09524 M00S08498.tfm +++| LDM CBCT,BP
09525 M00S08499.tfm +++| SHN -6
09526 M00S08500.tfm +++| LMN FCPU
09527 M00S08501.tfm +++| ZJP CCA3 IF PUBLIC FILE
09528 M00S08502.tfm +++| LDM CBAE,BP SET ADMIT INDEX
09529 M00S08503.tfm +++| LPN 77
09530 M00S08504.tfm +++| STD RI
09531 M00S08505.tfm +++| SHN 14
09532 M00S08506.tfm +++| LMM CBAE+1,BP
09533 M00S08507.tfm +++| STD RI+1
09534 M00S08508.tfm +++| ZJN CCA1 IF NO PERMIT ENTRIES
09535 M00S08509.tfm +++| LDC PAUN
09536 M00S08510.tfm +++| STD KA
09537 M00S08511.tfm +++| RJM AUS SEARCH FOR ADMIT ENTRY
09538 M00S08512.tfm +++| ZJN CCA2 IF ENTRY FOUND
09539 M00S08513.tfm +++| RESTP CPCB RESTORE CATALOG BUFFER POINTERS
09540 M00S08514.tfm +++| CCA1 LDM CBCT,BP CHECK FOR SEMI-PRIVATE FILE
09541 M00S08515.tfm +++| SHN -6
09542 M00S08516.tfm +++| LMN FCSP
09543 M00S08517.tfm +++| ZJN CCA3 IF SEMI-PRIVATE FILE
09544 M00S08518.tfm +++| UJN CCA4 RETURN
09545 M00S08519.tfm +++|
09546 M00S08520.tfm +++| CCA2 LDM ABAM,BP GET ADMIT PERMISSION MODE
09547 M00S08521.tfm +++| LPN 77
09548 M00S08522.tfm +++| STD T1
09549 M00S08523.tfm +++| RESTP CPCB RESTORE CATALOG BUFFER POINTERS
09550 M00S08524.tfm +++| LDD T1
09551 M00S08525.tfm +++|* LMN FMIU
09552 M00S08526.tfm +++| ERRNZ FMIU
09553 M00S08527.tfm +++| ZJN CCA3 IF IMPLICIT ACCESS
09554 M00S08528.tfm +++| LDM CBAM,BP INSERT ADMIT PERMISSION
09555 M00S08529.tfm +++| SCN 77
09556 M00S08530.tfm +++| ADD T1
09557 M00S08531.tfm +++| STM CBAM,BP
09558 M00S08532.tfm +++| CCA3 LDM CBAM,BP CHECK FOR *NO ACCESS*
09559 M00S08533.tfm +++| LPN 77
09560 M00S08534.tfm +++| LMN FMNA
09561 M00S08535.tfm +++| NJN CCA5 IF ACCESS ALLOWED
09562 M00S08536.tfm +++| CCA4 LDN 1
09563 M00S08537.tfm +++| UJN CCA6 RETURN
09564 M00S08538.tfm +++|
09565 M00S08539.tfm +++| CCA5 CLEAR CBPW,BP,PWKL CLEAR PASSWORD
09566 M00S08540.tfm +++| CCA6 LJM CCAX RETURN
09567 M00S08541.tfm +++| FAS SPACE 4,10
09568 M00S08542.tfm +++|** FAS - FULL ADMIT SEARCH.
09569 M00S08543.tfm +++|*
09570 M00S08544.tfm +++|* RETURNS A BUFFER OF ADMIT ENTRIES.
09571 M00S08545.tfm +++|*
09572 M00S08546.tfm +++|* ENTRY (MD) = FAST.
09573 M00S08547.tfm +++|* (FT - FT+1) = FIRST.
09574 M00S08548.tfm +++|* (IN - IN+1) = IN.
09575 M00S08549.tfm +++|* (OT - OT+1) = OUT.
09576 M00S08550.tfm +++|* (LM - LM+1) = LIMIT.
09577 M00S08551.tfm +++|*
09578 M00S08552.tfm +++|* EXIT TO MAIN LOOP IF NO ERROR.
09579 M00S08553.tfm +++|* FET+2 UPDATED.
09580 M00S08554.tfm +++|* FET+TFRR UPDATED.
09581 M00S08555.tfm +++|*
09582 M00S08556.tfm +++|* USES CI, CM - CM+4, CN - CN+4, EC, RI - RI+1.
09583 M00S08557.tfm +++|*
09584 M00S08558.tfm +++|* CALLS CIB, EOI, ERR, FTC, GIB, GNB, GNL,
09585 M00S08559.tfm +++|* MBP, SCA, TBA, WDB.
09586 M00S08560.tfm +++|*
09587 M00S08561.tfm +++|* MACROS ERROR, LDA.
09588 M00S08562.tfm +++|
09589 M00S08563.tfm +++|
09590 M00S08564.tfm +++| FAS SUBR ENTRY/EXIT
09591 M00S08565.tfm +++| LDD CA
09592 M00S08566.tfm +++| ZJN FAS1 IF NOT AUDIT CONTINUATION
09593 M00S08567.tfm +++| RJM VUB VERIFY USERS ADMIT BLOCK
09594 M00S08568.tfm +++| ZJP FAS7 IF CORRECT USER
09595 M00S08569.tfm +++| LDN /EMSG/EID ERROR IN INDEX DATA
09596 M00S08570.tfm +++| UJN FAS2 ABORT WITH ERROR
09597 M00S08571.tfm +++|
09598 M00S08572.tfm +++| FAS1 RJM FTC FIND TAPE CATALOG
09599 M00S08573.tfm +++| ZJN FAS3 IF CATALOG FOUND
09600 M00S08574.tfm +++| FAS2 ERROR CALL ERROR PROCESSING (NO RETURN)
09601 M00S08575.tfm +++|
09602 M00S08576.tfm +++| FAS3 LDD CI SET CATALOG POSITION
09603 M00S08577.tfm +++| SHN 6
09604 M00S08578.tfm +++| LMD RI
09605 M00S08579.tfm +++| STM SCAA
09606 M00S08580.tfm +++| LDD RI+1
09607 M00S08581.tfm +++| STM SCAA+1
09608 M00S08582.tfm +++| LDM CBAE,BP SET FIRST ADMIT BLOCK ADDRESS
09609 M00S08583.tfm +++| LPN 77
09610 M00S08584.tfm +++| STD RI
09611 M00S08585.tfm +++| SHN 14
09612 M00S08586.tfm +++| LMM CBAE+1,BP
09613 M00S08587.tfm +++| STD RI+1
09614 M00S08588.tfm +++| NJN FAS4 IF ADMIT BLOCK ASSIGNED
09615 M00S08589.tfm +++| ERROR NAE *NO ADMITS.*
09616 M00S08590.tfm +++|
09617 M00S08591.tfm +++| FAS4 RJM TBA TOGGLE BUFFER ASSIGNMENT
09618 M00S08592.tfm +++| RJM GIB GET INITIAL BLOCK
09619 M00S08593.tfm +++| FAS5 LDN 0 SET FIRST ADMIT ENTRY
09620 M00S08594.tfm +++| STD CI
09621 M00S08595.tfm +++| LDM CWFE,BA
09622 M00S08596.tfm +++| FAS6 RJM MBP MOVE BUFFER POINTER
09623 M00S08597.tfm +++| MJN FAS8 IF MOVE OUTSIDE OF BUFFER
09624 M00S08598.tfm +++| LDI BP
09625 M00S08599.tfm +++| ZJN FAS8 IF END OF ADMIT BLOCK
09626 M00S08600.tfm +++| AOD CI
09627 M00S08601.tfm +++| FAS7 RJM CIB CHECK INPUT BUFFER
09628 M00S08602.tfm +++| SBN TAEL
09629 M00S08603.tfm +++| MJN FAS10 IF NO ROOM IN BUFFER
09630 M00S08604.tfm +++| RJM WDB WRITE DATA TO BUFFER
09631 M00S08605.tfm +++| LDM CWEL,BA
09632 M00S08606.tfm +++| UJN FAS6 ADVANCE TO NEXT ADMIT ENTRY
09633 M00S08607.tfm +++|
09634 M00S08608.tfm +++| FAS8 RJM GNL GET NEXT LINK
09635 M00S08609.tfm +++| ZJN FAS9 IF BLOCK NOT LINKED
09636 M00S08610.tfm +++| RJM GNB GET NEXT BLOCK
09637 M00S08611.tfm +++| UJN FAS5 PROCESS ADMIT BLOCK
09638 M00S08612.tfm +++|
09639 M00S08613.tfm +++| FAS9 RJM EOI SET END OF INFORMATION
09640 M00S08614.tfm +++| LDN ZERL CLEAR CONTINUATION ADDRESS
09641 M00S08615.tfm +++| CRD BA
09642 M00S08616.tfm +++| CRM SCAA,ON
09643 M00S08617.tfm +++| FAS10 RJM SCA SET CONTINUATION ADDRESS IN FET
09644 M00S08618.tfm +++| LDN ZERL
09645 M00S08619.tfm +++| CRD CM
09646 M00S08620.tfm +++| LDD IN CURRENT POSITION OF IN
09647 M00S08621.tfm +++| STD CM+3
09648 M00S08622.tfm +++| LDD IN+1
09649 M00S08623.tfm +++| STD CM+4
09650 M00S08624.tfm +++| LDA IR+3,REL UPDATE FET
09651 M00S08625.tfm +++| ADN 2
09652 M00S08626.tfm +++| CWD CM
09653 M00S08627.tfm +++| LJM FASX RETURN
09654 M00S08628.tfm +++| FCS SPACE 4,10
09655 M00S08629.tfm +++|** FCS - FULL CATALOG SEARCH.
09656 M00S08630.tfm +++|*
09657 M00S08631.tfm +++|* RETURNS THE CATALOG IMAGE FOLLOWED BY THE
09658 M00S08632.tfm +++|* IMAGE OF THE VSN INDICIES ASSIGNED TO THE
09659 M00S08633.tfm +++|* FILE. THE BUFFER SIZE MUST BE AT LEAST AS
09660 M00S08634.tfm +++|* LARGE AS ONE CATALOG PLUS 60D VSN(S).
09661 M00S08635.tfm +++|*
09662 M00S08636.tfm +++|* ENTRY (MD) = FCST.
09663 M00S08637.tfm +++|* (FT - FT+1) = FIRST.
09664 M00S08638.tfm +++|* (IN - IN+1) = IN.
09665 M00S08639.tfm +++|* (OT - OT+1) = OUT.
09666 M00S08640.tfm +++|* (LM - LM+1) = LIMIT.
09667 M00S08641.tfm +++|* (CA) = 0 IF NOT CONTINUATION OF A
09668 M00S08642.tfm +++|* PREVIOUS REQUEST.
09669 M00S08643.tfm +++|*
09670 M00S08644.tfm +++|* EXIT BUFFER FULL.
09671 M00S08645.tfm +++|* FET UPDATED.
09672 M00S08646.tfm +++|*
09673 M00S08647.tfm +++|* USES CA, CI, CM - CM+4, RI - RI+1.
09674 M00S08648.tfm +++|*
09675 M00S08649.tfm +++|* CALLS EOI, GIB, GNL, MBP, PTC, UIS, RRP, VIS
09676 M00S08650.tfm +++|* VUB, VSP.
09677 M00S08651.tfm +++|*
09678 M00S08652.tfm +++|* MACROS ERROR, RESTP, SAVEP.
09679 M00S08653.tfm +++|
09680 M00S08654.tfm +++|
09681 M00S08655.tfm +++| FCS SUBR ENTRY/EXIT
09682 M00S08656.tfm +++| LDD CA
09683 M00S08657.tfm +++| ZJP FCS5 IF NOT AUDIT CONTINUATION
09684 M00S08658.tfm +++| RJM VUB VERIFY USERS CATALOG BLOCK
09685 M00S08659.tfm +++| ZJN FCS2 IF CORRECT USER
09686 M00S08660.tfm +++| FCS1 ERROR EID *ERROR IN INDEX DATA.*
09687 M00S08661.tfm +++|
09688 M00S08662.tfm +++|* IF THIS IS A CONTINUATION FROM THE MIDDLE OF A MULTI-FILE
09689 M00S08663.tfm +++|* SET, FIND THE CATALOG POINTERS FOR THE FIRST CATALOG OF
09690 M00S08664.tfm +++|* THE SET, SO THAT THE NEXT CATALOG RETURNED WHEN THE MULTI
09691 M00S08665.tfm +++|* FILE SET IS COMPLETE IS THE ONE FOLLOWING THE FIRST CATALOG
09692 M00S08666.tfm +++|* OF THE MULTI-FILE SET.
09693 M00S08667.tfm +++|
09694 M00S08668.tfm +++| FCS2 LDA CBQN,BP
09695 M00S08669.tfm +++| SBN 2
09696 M00S08670.tfm +++| MJP FCS14 IF FIRST FILE OF SET
09697 M00S08671.tfm +++| LIA CBVS,BP READ FIRST VSN OF FILE
09698 M00S08672.tfm +++| STD KA
09699 M00S08673.tfm +++| RJM VIS VSN INDEXED SEARCH
09700 M00S08674.tfm +++| ZJN FCS3 IF VSN FOUND
09701 M00S08675.tfm +++| ERROR ECD *ERROR IN CATALOG DATA.*
09702 M00S08676.tfm +++|
09703 M00S08677.tfm +++| FCS3 COMPARE VBES,BP,VBFV,BP,VSKL
09704 M00S08678.tfm +++| ZJN FCS4 IF FIRST VOLUME
09705 M00S08679.tfm +++| LDN CN
09706 M00S08680.tfm +++| STD KA
09707 M00S08681.tfm +++| MMOVE VBFV,BP,,KA,VSKL
09708 M00S08682.tfm +++| RJM VIS VSN INDEXED SEARCH
09709 M00S08683.tfm +++| ZJN FCS4 IF VSN FOUND
09710 M00S08684.tfm +++| ERROR EID *ERROR IN INDEX DATA.*
09711 M00S08685.tfm +++|
09712 M00S08686.tfm +++| FCS4 LDM VBCI,BP SET INDEX OF FIRST CATALOG
09713 M00S08687.tfm +++| SHN 14
09714 M00S08688.tfm +++| STM FCSA+2 *FIRST CATALOG IN SET* CATALOG INDEX
09715 M00S08689.tfm +++| SHN -14
09716 M00S08690.tfm +++| STM FCSA+3 *FIRST CATALOG IN SET* RANDOM INDEX
09717 M00S08691.tfm +++| LDM VBCI+1,BP
09718 M00S08692.tfm +++| STM FCSA+4
09719 M00S08693.tfm +++| LDM FCSA RESTORE CATALOG BUFFER POINTERS
09720 M00S08694.tfm +++| STD BA
09721 M00S08695.tfm +++| LDM FCSA+1
09722 M00S08696.tfm +++| STD BP
09723 M00S08697.tfm +++| LJM FCS16 PROCESS TAPE CATALOG
09724 M00S08698.tfm +++|
09725 M00S08699.tfm +++|
09726 M00S08700.tfm +++| FCS5 LDC PBUN
09727 M00S08701.tfm +++| STD KA
09728 M00S08702.tfm +++| RJM UIS USERNAME INDEX SEARCH
09729 M00S08703.tfm +++| NJN FCS7 IF USERNAME NOT FOUND
09730 M00S08704.tfm +++| LDM 3,BP SET CATALOG INDEX
09731 M00S08705.tfm +++| LPN 77
09732 M00S08706.tfm +++| STD RI
09733 M00S08707.tfm +++| SHN 14
09734 M00S08708.tfm +++| LMM 4,BP
09735 M00S08709.tfm +++| STD RI+1
09736 M00S08710.tfm +++| NJN FCS6 IF CATALOG ADDRESS
09737 M00S08711.tfm +++| UJN FCS7 *EMPTY CATALOG.*
09738 M00S08712.tfm +++|
09739 M00S08713.tfm +++| FCS6 LDC BUF2 SET CATALOG BUFFER
09740 M00S08714.tfm +++| STD BA
09741 M00S08715.tfm +++| RJM GIB GET INITIAL BLOCK
09742 M00S08716.tfm +++| LDM CWNE,BA
09743 M00S08717.tfm +++| NJN FCS9 IF NOT EMPTY CATALOG
09744 M00S08718.tfm +++| FCS7 ERROR ECF *EMPTY CATALOG.*
09745 M00S08719.tfm +++|
09746 M00S08720.tfm +++| FCS8 RJM GIB GET INITIAL BLOCK
09747 M00S08721.tfm +++| FCS9 RJM VUB VERIFY USERS CATALOG BLOCK
09748 M00S08722.tfm +++| NJP FCS1 IF NOT CORRECT USER
09749 M00S08723.tfm +++| LDM CWFE,BA BYPASS HEADER
09750 M00S08724.tfm +++| RJM MBP MOVE BUFFER POINTER
09751 M00S08725.tfm +++| LDN 0
09752 M00S08726.tfm +++| STD CI
09753 M00S08727.tfm +++| FCS10 AOD CI CHECK CATALOG
09754 M00S08728.tfm +++| LDI BP
09755 M00S08729.tfm +++| NJN FCS12 IF NOT HOLE
09756 M00S08730.tfm +++| FCS11 LDN TCEL ADVANCE TO NEXT CATALOG
09757 M00S08731.tfm +++| RJM MBP MOVE BUFFER POINTER
09758 M00S08732.tfm +++| PJN FCS10 IF WITHIN CURRENT BUFFER
09759 M00S08733.tfm +++| RJM GNL GET NEXT LINK
09760 M00S08734.tfm +++| NJN FCS8 IF BLOCK LINKED
09761 M00S08735.tfm +++| RJM EOI SET BUFFER STATUS
09762 M00S08736.tfm +++| LDN ZERL CLEAR CONTINUATION WORD
09763 M00S08737.tfm +++| CRD CM
09764 M00S08738.tfm +++| LDA IR+3,REL
09765 M00S08739.tfm +++| ADN TFRR
09766 M00S08740.tfm +++| CWD CM
09767 M00S08741.tfm +++| LJM FCSX RETURN
09768 M00S08742.tfm +++|
09769 M00S08743.tfm +++| FCS12 LDA CBQN,BP CHECK FOR FIRST FILE OF SET
09770 M00S08744.tfm +++| SBN 1
09771 M00S08745.tfm +++| FCS13 NJN FCS11 IF NOT FIRST FILE
09772 M00S08746.tfm +++| SAVEP FCSA SAVE CATALOG POINTERS
09773 M00S08747.tfm +++| FCS14 LDD FC CHECK FOR *TFSP* CALL
09774 M00S08748.tfm +++| LMN SSJF
09775 M00S08749.tfm +++| ZJN FCS16 IF *TFSP* CALL
09776 M00S08750.tfm +++| LDM CBRC,BP CHECK END OF LIST
09777 M00S08751.tfm +++| ZJN FCS16 IF END OF LIST
09778 M00S08752.tfm +++| LIA CBES,BP
09779 M00S08753.tfm +++| STD KA
09780 M00S08754.tfm +++| RJM VIS VSN INDEXED SEARCH
09781 M00S08755.tfm +++| ZJN FCS15 IF VSN FOUND
09782 M00S08756.tfm +++| ERROR ECD * ERROR IN CATALOG DATA *
09783 M00S08757.tfm +++|
09784 M00S08758.tfm +++| FCS15 LDD BP
09785 M00S08759.tfm +++| STD CM
09786 M00S08760.tfm +++| RESTP FCSA RESTORE CATALOG POINTERS
09787 M00S08761.tfm +++| LDM VBRD+1,CM CHECK RELEASE DATE
09788 M00S08762.tfm +++| NJN FCS13 IF CONDITIONAL RELEASE
09789 M00S08763.tfm +++| FCS16 RJM PTC PROCESS TAPE CATALOG
09790 M00S08764.tfm +++| PJN FCS17 IF BUFFER NOT FULL
09791 M00S08765.tfm +++| LJM FCSX RETURN (BUFFER FULL)
09792 M00S08766.tfm +++|
09793 M00S08767.tfm +++| FCS17 LDM CBNC,BP CHECK FOR MULTI-FILE
09794 M00S08768.tfm +++| NJN FCS19 IF MULTI-FILE
09795 M00S08769.tfm +++| RESTP FCSA RESTORE CATALOG POINTERS
09796 M00S08770.tfm +++| LDM CPRI
09797 M00S08771.tfm +++| LMD RI
09798 M00S08772.tfm +++| LMM CPRI+1
09799 M00S08773.tfm +++| LMD RI+1
09800 M00S08774.tfm +++| ZJN FCS18 IF BUFFER LOADED
09801 M00S08775.tfm +++| RJM GIB GET INITIAL BLOCK (CATALOG)
09802 M00S08776.tfm +++| RJM VUB VERIFY USERS CATALOG BLOCK
09803 M00S08777.tfm +++| NJP FCS1 IF NOT CORRECT USER
09804 M00S08778.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
09805 M00S08779.tfm +++| FCS18 LJM FCS11 ADVANCE TO NEXT CATALOG
09806 M00S08780.tfm +++|
09807 M00S08781.tfm +++| FCS19 SHN 14 PROCESS MULTI-FILE
09808 M00S08782.tfm +++| STD CI
09809 M00S08783.tfm +++| SCN 77
09810 M00S08784.tfm +++| LMM CBNC+1,BP
09811 M00S08785.tfm +++| STD RI+1
09812 M00S08786.tfm +++| SHN -14
09813 M00S08787.tfm +++| STD RI
09814 M00S08788.tfm +++| RJM GIB GET INITIAL BLOCK
09815 M00S08789.tfm +++| RJM VSP VERIFY/SET CATALOG POINTER
09816 M00S08790.tfm +++| LJM FCS16 PROCESS TAPE CATALOG
09817 M00S08791.tfm +++|
09818 M00S08792.tfm +++| FCSA BSS 5 CATALOG POINTERS (FIRST OF SET)
09819 M00S08793.tfm +++| SPACE 4
09820 M00S08794.tfm +++|
09821 M00S08795.tfm +++| PTC SPACE 4,10
09822 M00S08796.tfm +++|** PTC - PROCESS TAPE CATALOG.
09823 M00S08797.tfm +++|*
09824 M00S08798.tfm +++|* ENTRY (BA) = BUFFER ADDRESS CONTAINING CATALOG.
09825 M00S08799.tfm +++|* (BP) = BUFFER POINTER TO CATALOG.
09826 M00S08800.tfm +++|*
09827 M00S08801.tfm +++|* EXIT (A) = 0 IF COMPLETE.
09828 M00S08802.tfm +++|* (A) = 1 IF USER NOT ADMITTED TO FILE.
09829 M00S08803.tfm +++|* (A) = -0 IF BUFFER FULL ON WRITE.
09830 M00S08804.tfm +++|* (BA) = BUFFER ADDRESS (CATALOG).
09831 M00S08805.tfm +++|* (BA) = BUFFER POINTER (CATALOG).
09832 M00S08806.tfm +++|* (CI) = CATALOG INDEX.
09833 M00S08807.tfm +++|*
09834 M00S08808.tfm +++|* USES CM - CM+4, KA, RC, SCAA - SCAA+1, T1, WC.
09835 M00S08809.tfm +++|*
09836 M00S08810.tfm +++|* CALLS CCA, CIB, VIS, WBB, WDB.
09837 M00S08811.tfm +++|*
09838 M00S08812.tfm +++|* MACROS ERROR, LDA, MMOVE, MULT4, RESTP, SAVEP.
09839 M00S08813.tfm +++|
09840 M00S08814.tfm +++|
09841 M00S08815.tfm +++| PTC SUBR ENTRY/EXIT
09842 M00S08816.tfm +++| LDD CI SET CATALOG INDEX FOR CONTINUATION
09843 M00S08817.tfm +++| SHN 6
09844 M00S08818.tfm +++| LMD RI
09845 M00S08819.tfm +++| STM SCAA
09846 M00S08820.tfm +++| LDD RI+1
09847 M00S08821.tfm +++| STM SCAA+1
09848 M00S08822.tfm +++| PTC1 LDM CBRC,BP
09849 M00S08823.tfm +++| STD RC
09850 M00S08824.tfm +++| MULT4 MULTIPLY BY 4
09851 M00S08825.tfm +++| ADN TCEL+2
09852 M00S08826.tfm +++| STD WC
09853 M00S08827.tfm +++| RJM CIB CHECK INPUT BUFFER
09854 M00S08828.tfm +++| SBD WC
09855 M00S08829.tfm +++| PJN PTC3 IF ROOM IN BUFFER
09856 M00S08830.tfm +++| RJM SCA SET CONTINUATION ADDRESS
09857 M00S08831.tfm +++| LCN 0
09858 M00S08832.tfm +++| PTC2 UJP PTCX RETURN
09859 M00S08833.tfm +++|
09860 M00S08834.tfm +++| PTC3 SAVEP CPCB SAVE CATALOG POINTERS
09861 M00S08835.tfm +++| LDD FC
09862 M00S08836.tfm +++| LMN SSJF
09863 M00S08837.tfm +++| ZJN PTC5 IF CALLED BY *TFSP*
09864 M00S08838.tfm +++| RJM CCA CHECK CATALOG ADMISSION
09865 M00S08839.tfm +++| ZJN PTC5 IF USER ADMITTED TO FILE
09866 M00S08840.tfm +++| PTC4 RESTP CPCB RESTORE CATALOG POINTERS
09867 M00S08841.tfm +++| UJP PTC2 RETURN
09868 M00S08842.tfm +++|
09869 M00S08843.tfm +++| PTC5 RJM WDB WRITE DATA TO BUFFER
09870 M00S08844.tfm +++| LDN CBES SET FIRST VSN OF SET
09871 M00S08845.tfm +++| ADD BP
09872 M00S08846.tfm +++| STD T1
09873 M00S08847.tfm +++| PTC6 LDD RC CHECK END OF LIST
09874 M00S08848.tfm +++| ZJN PTC8 IF END OF LIST
09875 M00S08849.tfm +++| SOD RC
09876 M00S08850.tfm +++| LDI T1
09877 M00S08851.tfm +++| ZJN PTC8 IF END OF VSN LIST
09878 M00S08852.tfm +++| MMOVE ,,PESN,,VSKL
09879 M00S08853.tfm +++| LDC PESN LOCATE VSN
09880 M00S08854.tfm +++| STD KA
09881 M00S08855.tfm +++| RJM VIS VSN INDEX SEARCH
09882 M00S08856.tfm +++| ZJN PTC7 IF VSN FOUND
09883 M00S08857.tfm +++| ERROR ECD *ERROR IN CATALOG DATA.*
09884 M00S08858.tfm +++|
09885 M00S08859.tfm +++| PTC7 RJM WDB WRITE DATA TO BUFFER
09886 M00S08860.tfm +++| LDN 3*5 GET NEXT VSN
09887 M00S08861.tfm +++| ADD BP
09888 M00S08862.tfm +++| STD T1
09889 M00S08863.tfm +++| UJP PTC6 PROCESS NEXT VSN
09890 M00S08864.tfm +++|
09891 M00S08865.tfm +++| PTC8 LDM CPCB+2 TERMINATE CATALOG
09892 M00S08866.tfm +++| SHN 6
09893 M00S08867.tfm +++| LMM CPCB+3
09894 M00S08868.tfm +++| STM PTCA+3
09895 M00S08869.tfm +++| LDM CPCB+4
09896 M00S08870.tfm +++| STM PTCA+4
09897 M00S08871.tfm +++| LDN 1
09898 M00S08872.tfm +++| STD T1
09899 M00S08873.tfm +++| LDC PTCA
09900 M00S08874.tfm +++| RJM WBB WRITE BINARY BUFFER
09901 M00S08875.tfm +++| LDN ZERL
09902 M00S08876.tfm +++| CRD CM
09903 M00S08877.tfm +++| LDD IN CURRENT POSITION OF IN
09904 M00S08878.tfm +++| STD CM+3
09905 M00S08879.tfm +++| LDD IN+1
09906 M00S08880.tfm +++| STD CM+4
09907 M00S08881.tfm +++| LDA IR+3,REL UPDATE FET
09908 M00S08882.tfm +++| ADN 2
09909 M00S08883.tfm +++| CWD CM
09910 M00S08884.tfm +++| LDN 0 SET CATALOG COMPLETE
09911 M00S08885.tfm +++| LJM PTC4 RESTORE POINTERS AND RETURN
09912 M00S08886.tfm +++|
09913 M00S08887.tfm +++| PTCA VFD 60D/77777777777777777777B
09914 M00S08888.tfm +++| SCA SPACE 4,10
09915 M00S08889.tfm +++|** SCA - SET CONTINUATION ADDRESS.
09916 M00S08890.tfm +++|*
09917 M00S08891.tfm +++|* ENTRY (CI) = CATALOG INDEX.
09918 M00S08892.tfm +++|* (RI - RI+1) = CATALOG RANDOM ADDRESS.
09919 M00S08893.tfm +++|*
09920 M00S08894.tfm +++|* EXIT FET WORD TFRR UPDATED.
09921 M00S08895.tfm +++|*
09922 M00S08896.tfm +++|* USES SCAA+3 - SCAA+4.
09923 M00S08897.tfm +++|*
09924 M00S08898.tfm +++|* MACROS LDA.
09925 M00S08899.tfm +++|
09926 M00S08900.tfm +++|
09927 M00S08901.tfm +++| SCA SUBR ENTRY/EXIT
09928 M00S08902.tfm +++| LDD CI SET CURRENT POSITION
09929 M00S08903.tfm +++| SHN 6
09930 M00S08904.tfm +++| LMD RI
09931 M00S08905.tfm +++| STM SCAA+3
09932 M00S08906.tfm +++| LDD RI+1
09933 M00S08907.tfm +++| STM SCAA+4
09934 M00S08908.tfm +++| LDA IR+3,REL UPDATE FET
09935 M00S08909.tfm +++| ADN TFRR
09936 M00S08910.tfm +++| CWM SCAA,ON
09937 M00S08911.tfm +++| UJN SCAX RETURN
09938 M00S08912.tfm +++|
09939 M00S08913.tfm +++| SCAA VFD 60/0 CONTINUATION POINTERS
09940 M00S08914.tfm +++| SAS SPACE 4,10
09941 M00S08915.tfm +++|** SAS - SELECTIVE ADMIT SEARCH.
09942 M00S08916.tfm +++|*
09943 M00S08917.tfm +++|* ENTRY (MD) = SAST.
09944 M00S08918.tfm +++|* (FT - FT+1) = FIRST.
09945 M00S08919.tfm +++|* (IN - IN+1) = IN.
09946 M00S08920.tfm +++|* (OT - OT+1) = OUT.
09947 M00S08921.tfm +++|* (LM - LM+1) = LIMIT.
09948 M00S08922.tfm +++|*
09949 M00S08923.tfm +++|* EXIT ADMIT ENTRY WRITTEN TO BUFFER.
09950 M00S08924.tfm +++|*
09951 M00S08925.tfm +++|* USES CM - CM+4, EC, KA, RI - RI+1.
09952 M00S08926.tfm +++|*
09953 M00S08927.tfm +++|* CALLS AUS, EOI, ERR, WDB.
09954 M00S08928.tfm +++|*
09955 M00S08929.tfm +++|* MACROS ERROR, LDA, MMOVE.
09956 M00S08930.tfm +++|
09957 M00S08931.tfm +++|
09958 M00S08932.tfm +++| SAS SUBR ENTRY/EXIT
09959 M00S08933.tfm +++| LDM PAUN
09960 M00S08934.tfm +++| ZJN SAS1 IF USER = ALTERNATE USER
09961 M00S08935.tfm +++| LDD MA SWAP USERNAMES
09962 M00S08936.tfm +++| CWM PBUN,ON
09963 M00S08937.tfm +++| CWM PAUN,ON
09964 M00S08938.tfm +++| LDD MA
09965 M00S08939.tfm +++| CRM PAUN,ON
09966 M00S08940.tfm +++| CRM PBUN,ON
09967 M00S08941.tfm +++| SAS1 RJM FTC FIND TAPE CATALOG
09968 M00S08942.tfm +++| ZJN SAS2 IF CATALOG FOUND
09969 M00S08943.tfm +++| ERROR CALL ERROR PROCESSING (NO RETURN)
09970 M00S08944.tfm +++|
09971 M00S08945.tfm +++| SAS2 LDM CBAE,BP SET FIRST ADMIT BLOCK ADDRESS
09972 M00S08946.tfm +++| LPN 77
09973 M00S08947.tfm +++| STD RI
09974 M00S08948.tfm +++| SHN 14
09975 M00S08949.tfm +++| LMM CBAE+1,BP
09976 M00S08950.tfm +++| STD RI+1
09977 M00S08951.tfm +++| NJN SAS4 IF ADMIT BLOCK ASSIGNED
09978 M00S08952.tfm +++| SAS3 MMOVE PAUN,,PBUN,,UNKL
09979 M00S08953.tfm +++| ERROR UNF *(USERNAME) NOT FOUND.*
09980 M00S08954.tfm +++|
09981 M00S08955.tfm +++| SAS4 LDC PAUN SET SEARCH KEY
09982 M00S08956.tfm +++| STD KA
09983 M00S08957.tfm +++| RJM AUS ALTERNATE USERNAME SEARCH
09984 M00S08958.tfm +++| NJN SAS3 IF ALTERNATE USER NOT FOUND
09985 M00S08959.tfm +++| RJM WDB WRITE DATA TO BUFFER
09986 M00S08960.tfm +++| RJM EOI SET END OF INFORMATION
09987 M00S08961.tfm +++| LDN ZERL
09988 M00S08962.tfm +++| CRD CM
09989 M00S08963.tfm +++| LDD IN CURRENT POSITION OF IN
09990 M00S08964.tfm +++| STD CM+3
09991 M00S08965.tfm +++| LDD IN+1
09992 M00S08966.tfm +++| STD CM+4
09993 M00S08967.tfm +++| LDA IR+3,REL UPDATE FET
09994 M00S08968.tfm +++| ADN 2
09995 M00S08969.tfm +++| CWD CM
09996 M00S08970.tfm +++| LJM SASX RETURN
09997 M00S08971.tfm +++| SCS SPACE 4,10
09998 M00S08972.tfm +++|** SCS - SELECTIVE CATALOG SEARCH.
09999 M00S08973.tfm +++|*
10000 M00S08974.tfm +++|* ENTRY (MD) = SCST.
10001 M00S08975.tfm +++|* (FT - FT+1) = FIRST.
10002 M00S08976.tfm +++|* (IN - IN+1) = IN.
10003 M00S08977.tfm +++|* (OT - OT+1) = OUT.
10004 M00S08978.tfm +++|* (LM - LM+1) = LIMIT.
10005 M00S08979.tfm +++|*
10006 M00S08980.tfm +++|* USES BA, CI, CM - CM+4, KA, RI - RI+1.
10007 M00S08981.tfm +++|*
10008 M00S08982.tfm +++|* CALLS EOI, GIB, PTC, SCB, UIS, VIS, VUB.
10009 M00S08983.tfm +++|*
10010 M00S08984.tfm +++|* MACROS ERROR, LDA.
10011 M00S08985.tfm +++|
10012 M00S08986.tfm +++|
10013 M00S08987.tfm +++| SCS SUBR ENTRY/EXIT
10014 M00S08988.tfm +++| LDC PESN
10015 M00S08989.tfm +++| STD KA
10016 M00S08990.tfm +++| LDI KA
10017 M00S08991.tfm +++| NJN SCS2 IF VSN SEARCH
10018 M00S08992.tfm +++| LJM SCS9 SEARCH BY USERNAME/FILE NAME
10019 M00S08993.tfm +++|
10020 M00S08994.tfm +++| SCS1 ERROR VNF *(VSN) NOT FOUND.*
10021 M00S08995.tfm +++|
10022 M00S08996.tfm +++| SCS2 LDD CA CHECK AUDIT CONTINUATION
Line S08997 Modification History
M01 (Removed by) t5146
Seq # *Modification Id* Act
----------------------------+
10023 M01S08997.t5146 ---| NJN SCS6 IF AUDIT CONTINUATION
Line S00001 Modification History
M01 (Added by) t5146
Seq # *Modification Id* Act
----------------------------+
10024 M01S00001.t5146 +++| NJP SCS6 IF AUDIT CONTINUATION
Line S08998 Modification History
M01 (Removed by) t5146
Seq # *Modification Id* Act
----------------------------+
10025 M01S08998.t5146 ---| RJM VIS VSN INDEX SEARCH
Line S00002 Modification History
M01 (Added by) t5146
Seq # *Modification Id* Act
----------------------------+
10026 M01S00002.t5146 +++| SCS2.1 RJM VIS VSN INDEX SEARCH
10027 M00S08999.tfm +++| NJN SCS1 IF VSN NOT FOUND
10028 M00S09000.tfm +++| LDD FC
10029 M00S09001.tfm +++| LMN SSJF
10030 M00S09002.tfm +++| ZJN SCS4 IF *TFSP* CALL
10031 M00S09003.tfm +++| LDM VBRD+1,BP
10032 M00S09004.tfm +++| SCS3 NJN SCS1 IF CONDITIONALLY RELEASED
Line S09005 Modification History
M01 (Removed by) t5146
Seq # *Modification Id* Act
----------------------------+
10033 M01S09005.t5146 ---| SCS4 LDM VBCI,BP SET CATALOG ADDRESS
Line S00003 Modification History
M01 (Added by) t5146
Seq # *Modification Id* Act
----------------------------+
10034 M01S00003.t5146 +++| SCS4 LDM VBRC,BP CHECK REEL COUNT
10035 M01S00004.t5146 +++| SHN -6
10036 M01S00005.t5146 +++| SBN 1
10037 M01S00006.t5146 +++| ZJN SCS4.1 IF FIRST REEL
Line S00007 Modification History
M01 (Added by) t5146
M02 (Removed by) m1687
Seq # *Modification Id* Act
----------------------------+
10038 M02S00007.m1687 ---| LDN VBFV SET FIRST VSN
10039 M02S00008.m1687 ---| ADD BP
Line S00001 Modification History
M01 (Added by) m1687
Seq # *Modification Id* Act
----------------------------+
10040 M01S00001.m1687 +++| MMOVE VBFV,BP,SCSA,,6 SET FIRST VSN FOR SEARCH
10041 M01S00002.m1687 +++| LDC SCSA
Line S00009 Modification History
M01 (Added by) t5146
Seq # *Modification Id* Act
----------------------------+
10042 M01S00009.t5146 +++| STD KA
10043 M01S00010.t5146 +++| UJN SCS2.1 VSN INDEX SEARCH
10044 M01S00011.t5146 +++|
10045 M01S00012.t5146 +++| SCS4.1 LDM VBCI,BP SET CATALOG ADDRESS
10046 M00S09006.tfm +++| SHN 14
10047 M00S09007.tfm +++| STD CI
10048 M00S09008.tfm +++| SCN 77
10049 M00S09009.tfm +++| LMM VBCI+1,BP
Line S09010 Modification History
M01 (Removed by) t5146
Seq # *Modification Id* Act
----------------------------+
10050 M01S09010.t5146 ---| ZJN SCS1 IF NOT ASSIGNED
Line S00013 Modification History
M01 (Added by) t5146
Seq # *Modification Id* Act
----------------------------+
10051 M01S00013.t5146 +++| ZJP SCS1 IF NOT ASSIGNED
10052 M00S09011.tfm +++| SCS5 STD RI+1 SET RANDOM ADDRESS
10053 M00S09012.tfm +++| SHN -14
10054 M00S09013.tfm +++| STD RI
10055 M00S09014.tfm +++| LDC BUF2 SET CATALOG BUFFER
10056 M00S09015.tfm +++| STD BA
10057 M00S09016.tfm +++| RJM GIB GET INITIAL BLOCK
10058 M00S09017.tfm +++| RJM VUB VERIFY USERS DATA BLOCK
Line S09018 Modification History
M01 (Removed by) m1687
Seq # *Modification Id* Act
----------------------------+
10059 M01S09018.m1687 ---| NJN SCS3 IF NOT USERS DATA BLOCK
Line S00003 Modification History
M01 (Added by) m1687
Seq # *Modification Id* Act
----------------------------+
10060 M01S00003.m1687 +++| NJP SCS3 IF NOT USERS DATA BLOCK
10061 M00S09019.tfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
10062 M00S09020.tfm +++| SCS6 RJM PTC PROCESS TAPE CATALOG
10063 M00S09021.tfm +++| MJN SCS8 IF BUFFER FULL
10064 M00S09022.tfm +++| LDM CBNC,BP CHECK FOR MULTI-FILE
10065 M00S09023.tfm +++| ZJN SCS7 IF NOT MULTI-FILE
10066 M00S09024.tfm +++| SHN 14
10067 M00S09025.tfm +++| STD CI
10068 M00S09026.tfm +++| SCN 77
10069 M00S09027.tfm +++| LMM CBNC+1,BP
10070 M00S09028.tfm +++| NJN SCS5 IF NOT END OF SET
10071 M00S09029.tfm +++| SCS7 RJM EOI SET END OF INFORMATION
10072 M00S09030.tfm +++| LDN ZERL CLEAR CONTINUATION WORD
10073 M00S09031.tfm +++| CRD CM
10074 M00S09032.tfm +++| LDA IR+3,REL
10075 M00S09033.tfm +++| ADN TFRR
10076 M00S09034.tfm +++| CWD CM
10077 M00S09035.tfm +++| SCS8 LJM SCSX RETURN
10078 M00S09036.tfm +++|
10079 M00S09037.tfm +++| SCS9 LDC PBUN FILE IDENTIFIER SEARCH
10080 M00S09038.tfm +++| STD KA
10081 M00S09039.tfm +++| RJM UIS USERNAME INDEX SEARCH
10082 M00S09040.tfm +++| ZJN SCS11 IF USERNAME FOUND
10083 M00S09041.tfm +++| SCS10 ERROR FNF *(FILENAME) NOT FOUND.*
10084 M00S09042.tfm +++|
10085 M00S09043.tfm +++| SCS11 LDC BUF2 SET CATALOG BUFFER
10086 M00S09044.tfm +++| STD BA
10087 M00S09045.tfm +++| LDM UBCI,BP SET CATALOG RANDOM INDEX
10088 M00S09046.tfm +++| LPN 77
10089 M00S09047.tfm +++| STD RI
10090 M00S09048.tfm +++| SHN 14
10091 M00S09049.tfm +++| LMM UBCI+1,BP
10092 M00S09050.tfm +++| STD RI+1
10093 M00S09051.tfm +++| ZJN SCS10 IF NO RANDOM ADDRESS
10094 M00S09052.tfm +++| LDC POFI SET SEARCH KEY ADDRESS
10095 M00S09053.tfm +++| STD KA
10096 M00S09054.tfm +++| RJM SCB SEARCH CATALOG BUFFER
10097 M00S09055.tfm +++| ZJN SCS10 IF FILE NOT FOUND
10098 M00S09056.tfm +++| MJN SCS10 IF FILE NOT FOUND
10099 M00S09057.tfm +++| RJM VUB VALIDATE USERS CATALOG BLOCK
10100 M00S09058.tfm +++| ZJN SCS12 IF CORRECT USER
10101 M00S09059.tfm +++| ERROR EID *ERROR IN INDEX DATA.*
10102 M00S09060.tfm +++|
10103 M00S09061.tfm +++| SCS12 RJM PTC PROCESS TAPE CATALOG
10104 M00S09062.tfm +++| LJM SCS7 SET END OF INFORMATION
Line S00004 Modification History
M01 (Added by) m1687
Seq # *Modification Id* Act
----------------------------+
10105 M01S00004.m1687 +++|
10106 M01S00005.m1687 +++| SCSA BSSZ 5 FIRST VSN
10107 M00S09063.tfm +++| WDB SPACE 4,10
10108 M00S09064.tfm +++|** WDB - WRITE DATA TO BUFFER.
10109 M00S09065.tfm +++|*
10110 M00S09066.tfm +++|* ENTRY (BA) = BUFFER ADDRESS.
10111 M00S09067.tfm +++|* (BP) = BUFFER POINTER.
10112 M00S09068.tfm +++|* (CWEL+(BA)) = ENTRY LENGTH.
10113 M00S09069.tfm +++|* (IN - IN+1) = CURRENT BUFFER POSITION.
10114 M00S09070.tfm +++|*
10115 M00S09071.tfm +++|* EXIT (IN - IN+1) ADVANCED.
10116 M00S09072.tfm +++|* DATA WRITTEN TO CIRCULAR BUFFER AND
10117 M00S09073.tfm +++|* FET UPDATED.
10118 M00S09074.tfm +++|*
10119 M00S09075.tfm +++|* USES T1.
10120 M00S09076.tfm +++|*
10121 M00S09077.tfm +++|* CALLS WBB.
10122 M00S09078.tfm +++|
10123 M00S09079.tfm +++|
10124 M00S09080.tfm +++| WDB SUBR ENTRY/EXIT
10125 M00S09081.tfm +++| LDM CWEL,BA WRITE DATA TO BUFFER
10126 M00S09082.tfm +++| STD T1
10127 M00S09083.tfm +++| LDD BP
10128 M00S09084.tfm +++| RJM WBB WRITE BINARY BUFFER
10129 M00S09085.tfm +++| UJN WDBX RETURN
10130 M00S09086.tfm +++|
10131 M00S09087.tfm +++| SPACE 4
10132 M00S09088.tfm +++|*** COMMON DECKS.
10133 M00S09089.tfm +++|
10134 M00S09090.tfm +++|
10135 M00S09091.tfm +++| AUS$ EQU 1 DEFINE AUS - ALTERNATE USERNAME SEARCH
10136 M00S09092.tfm +++| EOI$ EQU 1 DEFINE EOI - SET END OF INFORMATION
10137 M00S09093.tfm +++| FTC$ EQU 1 DEFINE FTC - FIND TAPE CATALOG
10138 M00S09094.tfm +++| SBP$ EQU 1 DEFINE SBP - SET FET BUFFER POINTERS
10139 M00S09095.tfm +++| VRR$ EQU 1 DEFINE VRR - VERIFY RANDOM REQUEST
10140 M00S09096.tfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS
10141 M00S09097.tfm +++| VUB$ EQU 1 DEFINE VUB - VERIFY USERS CATALOG/ADMIT BLO
10142 M00S09098.tfm +++|*CALL COMPCIB
10143 M00S09099.tfm +++|*CALL COMPSAF
10144 M00S09100.tfm +++|*CALL COMPTFM
10145 M00S09101.tfm +++|*CALL COMPWBB
10146 M00S09102.tfm +++| SPACE 4
10147 M00S09103.tfm +++| ERRNG BUF2-* BYTES LEFT BEFORE BUFFER OVERFLOW
Line S00427 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
10148 M01S00427.274l797 +++| TITLE PRESET.
10149 M00S09104.tfm +++| PRS SPACE 4,15
10150 M00S09105.tfm +++|** PRS - PRESET FOR *AUD* AND *GVS*.
10151 M00S09106.tfm +++|*
10152 M00S09107.tfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS.
10153 M00S09108.tfm +++|*
10154 M00S09109.tfm +++|* EXIT (A) = ABSOLUTE FET ADDRESS.
10155 M00S09110.tfm +++|* (WC) = WORD COUNT.
10156 M00S09111.tfm +++|*
10157 M00S09112.tfm +++|* USES WC.
10158 M00S09113.tfm +++|*
10159 M00S09114.tfm +++|* CALLS CIB, SBP.
10160 M00S09115.tfm +++|*
10161 M00S09116.tfm +++|* MACROS LDA, ERROR.
10162 M00S09117.tfm +++|
10163 M00S09118.tfm +++|
10164 M00S09119.tfm +++| PRS1 LDA IR+3,REL LOAD ABSOLUTE FET ADDRESS
10165 M00S09120.tfm +++|
10166 M00S09121.tfm +++| PRS SUBR ENTRY/EXIT
10167 M00S09122.tfm +++| RJM SBP SET FET BUFFER POINTERS
10168 M00S09123.tfm +++| RJM CIB CHECK INPUT BUFFER
10169 M00S09124.tfm +++| STD WC
10170 M00S09125.tfm +++| LDC TSVL*60D+TCEL+1
10171 M00S09126.tfm +++| SBD WC
10172 M00S09127.tfm +++| MJN PRS1 IF BUFFER SIZE VALID
10173 M00S09128.tfm +++| ZJN PRS1 IF BUFFER SIZE VALID
10174 M00S09129.tfm +++| ERROR BAE *BUFFER ARGUMENT ERROR.*
10175 M00S09130.tfm +++| SPACE 4
10176 M00S09131.tfm +++| ERRNG BUF1-* BYTES LEFT BEFORE BUFFER OVERFLOW
Line S09132 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
10177 M01S09132.274l797 ---| OVERLAY (SUBFUNCTIONS AMDS, RSVS.),OVL1
Line S00428 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
10178 M01S00428.274l797 +++| OVERLAY (AMEND CATALOG ENTRY / RESERVE TAPE FILES.),OVL1
10179 M00S09133.tfm +++| SPACE 4
10180 M00S09134.tfm +++|** LOCAL DIRECT CELL LOCATIONS.
10181 M00S09135.tfm +++|
10182 M00S09136.tfm +++|
10183 M00S09137.tfm +++| JS EQU S2 - S2+4 JOB SEQUENCE WORD *UJID* (5 LOCATIONS)
10184 M00S09138.tfm +++| FA EQU S3 FNT ORDINAL
10185 M00S09139.tfm +++| AMDS SPACE 4,10
10186 M00S09140.tfm +++|*** AMDS - AMEND TAPE CATALOG ENTRY.
10187 M00S09141.tfm +++|*
10188 M00S09142.tfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS -
10189 M00S09143.tfm +++|*
10190 M00S09144.tfm +++|*T FET+0 42/ FILE NAME,1/ R,8/ AT,6/ CODE,3/ ST
Figure
FET+0
0 2 3 8 9 16 17 18 29 ST CODE AT R FILE NAME 30 59 FILE NAME
10191 M00S09145.tfm +++|*T, +1 15/ 0,1/ EP, 27/ 0,18/ 0
Figure
+1
0 17 18 29 0 0 30 44 45 46 59 0 EP 0
10192 M00S09146.tfm +++|*T, +2 60/ 0
10193 M00S09147.tfm +++|*T, +3 60/ 0
10194 M00S09148.tfm +++|*T, +4 12/ FNT,30/ 0,18/ 0
Figure
+4
0 17 18 29 0 0 30 47 48 59 0 FNT
10195 M00S09149.tfm +++|*T, +5 42/ 0,18/ EADD
10196 M00S09150.tfm +++|*T, +6 60/ 0
10197 M00S09151.tfm +++|*T, +7 36/ VSN,24/ 0
10198 M00S09152.tfm +++|*T, +10 60/ 0
10199 M00S09153.tfm +++|*T, +11 60/ 0
10200 M00S09154.tfm +++|*T, +12 60/ OLD FILE IDENTIFIER
Figure
+12
0 29 OLD FILE IDENTIFIER 30 59 OLD FILE IDENTIFIER
10201 M00S09155.tfm +++|*T, +13 42/ FID (CONT.),18/0.
Figure
+13
0 17 18 29 0. FID (CONT.) 30 59 FID (CONT.)
10202 M00S09156.tfm +++|*T, +14 60/ NEW FILE IDENTIFIER
Figure
+14
0 29 NEW FILE IDENTIFIER 30 59 NEW FILE IDENTIFIER
10203 M00S09157.tfm +++|*T, +15 42/ NFI (CONT.),6/ 0,6/ CE,6/ AN
Figure
+15
0 5 6 11 12 17 18 29 AN CE 0 NFI (CONT.) 30 59 NFI (CONT.)
10204 M00S09158.tfm +++|*T, +16 42/ ALT. USERNAME,18/ 0
Figure
+16
0 17 18 29 0 ALT. USERNAME 30 59 ALT. USERNAME
10205 M00S09159.tfm +++|*T, +17 42/ PASSWORD,6/ AC,6/ CT,6/ MD
Figure
+17
0 5 6 11 12 17 18 29 MD CT AC PASSWORD 30 59 PASSWORD
10206 M00S09160.tfm +++|*
10207 M00S09161.tfm +++|* USES EC.
10208 M00S09162.tfm +++|*
10209 M00S09163.tfm +++|* CALLS CAC, CCT, CFM, CPN, ERR, FTC, IRM,
10210 M00S09164.tfm +++|* NFI, PWD, UCW, VUB, WRP.
10211 M00S09165.tfm +++|*
10212 M00S09166.tfm +++|* MACROS MMOVE, RESTP.
10213 M00S09167.tfm +++|
10214 M00S09168.tfm +++|
10215 M00S09169.tfm +++| AMD ENTRY AMEND TAPE CATALOG ENTRY
10216 M00S09170.tfm +++| RJM FTC FIND TAPE CATALOG
10217 M00S09171.tfm +++| ZJN AMD2 IF FILE FOUND
10218 M00S09172.tfm +++| AMD1 ERROR
10219 M00S09173.tfm +++|
10220 M00S09174.tfm +++| AMD2 LDM PESN
10221 M00S09175.tfm +++| ZJN AMD4 IF SYMBOLIC FILE
10222 M00S09176.tfm +++| RESTP CPSI CHECK FOR FIRST VSN
10223 M00S09177.tfm +++| LDM VBRC,BP CHECK FOR FIRST REEL
10224 M00S09178.tfm +++| SHN -6
10225 M00S09179.tfm +++| ZJN AMD3 IF NO REEL COUNT, ASSUME FIRST
10226 M00S09180.tfm +++| SBN 1
10227 M00S09181.tfm +++| ZJN AMD3 IF FIRST OF SET
Line S09182 Modification History
M01 (Removed by) nos252
Seq # *Modification Id* Act
----------------------------+
10228 M01S09182.nos252 ---| LDN /EMSG/ILR *TFM INVALID REQUEST.*
Line S00074 Modification History
M01 (Added by) nos252
Seq # *Modification Id* Act
----------------------------+
10229 M01S00074.nos252 +++| LDN /EMSG/ILR *TFM INCORRECT REQUEST.*
10230 M00S09183.tfm +++| UJN AMD1 SET ERROR CODE
10231 M00S09184.tfm +++|
10232 M00S09185.tfm +++| AMD3 RESTP CPCB RESTORE BUFFER POINTERS (CATALOG)
10233 M00S09186.tfm +++| AMD4 RJM CPN CHANGE CHARGE AND PROJECT
10234 M00S09187.tfm +++| RJM NFI CHANGE NEW FILENAME
10235 M00S09188.tfm +++| RJM CAC CHANGE ALTERNATE CATALOG LIST ATTRIBUTE