cdc:nos2.source:opl.opl871:deck:magnet.008
Deck MAGNET Part 008
50 Modifications
Listing Sections
- Deck MAGNET Start
- Deck MAGNET Part 1 (Line 1090)
- Deck MAGNET Part 2 (Line 2068)
- Deck MAGNET Part 3 (Line 3112)
- Deck MAGNET Part 4 (Line 4270)
- Deck MAGNET Part 5 (Line 5334)
- Deck MAGNET Part 6 (Line 6411)
- Deck MAGNET Part 7 (Line 7562)
- Deck MAGNET Part 8 (Line 8704)
- Deck MAGNET Part 9 (Line 9988)
- Deck MAGNET Part 10 (Line 11161)
Source
Seq # *Modification Id* Act ----------------------------+ 08704 M01S01861.282l826 +++|* B - 3, 4, 5, 6, 7. 08705 M00S02763.magnet +++|*
| Line S02764 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08706 M01S02764.282l826 ---|* USES A - 1, 2, 6. 08707 M01S02765.282l826 ---|* B - 5, 6, 7. 08708 M01S02766.282l826 ---|* X - 0, 1, 2, 3, 4, 5, 6. 08709 M01S02767.282l826 ---|* 08710 M00S02768.magnet +++|* CALLS SBS. 08711 M00S02769.magnet +++|
| Line S01862 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08712 M01S01862.282l826 +++| 08713 M01S01863.282l826 +++|* PROCESS REQUEST ON *S* OR *L* FORMAT TAPE. 08714 M00S02770.magnet +++| 08715 M00S02771.magnet +++| PCR4 AX1 1 08716 M00S02772.magnet +++| MX0 4 08717 M00S02773.magnet +++| ZR X1,PCR3 IF FET LENGTH .LE. 6 08718 M00S02774.magnet +++| LX0 35-59 08719 M00S02775.magnet +++| BX6 X0*X2 GET LEVEL NUMBER 08720 M00S02776.magnet +++| ZR X6,PCR5 IF LEVEL 0 08721 M00S02777.magnet +++| BX6 X0+X2 SET LEVEL 17B 08722 M00S02778.magnet +++| SA6 A2 08723 M00S02779.magnet +++| PCR5 SX0 1000B SET DEFAULT BLOCK SIZE 08724 M00S02780.magnet +++| RJ SBS SET BLOCK SIZE FOR S/L FORMAT 08725 M00S02781.magnet +++|
| Line S01864 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08726 M01S01864.282l826 +++|* BUILD REQUEST AND CHECK END OF SET AND POSITION LOST. 08727 M01S01865.282l826 +++| 08728 M01S01866.282l826 +++| PCR6 SA1 A0+UST2 08729 M01S01867.282l826 +++| SX7 4074B 08730 M01S01868.282l826 +++| LX3 12 08731 M01S01869.282l826 +++| SX6 B4-/CIO/SKP 08732 M01S01870.282l826 +++| LX1 59-6 08733 M01S01871.282l826 +++| ZR X6,PCR7 IF SKIP FUNCTION 08734 M01S01872.282l826 +++| SX7 4060B CLEAR TERMINATION CONDITION 08735 M01S01873.282l826 +++| PCR7 BX5 X7*X3 EXTRACT FUNCTION FLAGS 08736 M01S01874.282l826 +++| MX6 2 08737 M01S01875.282l826 +++| SX7 TPRO+B4 SET REQUEST 08738 M01S01876.282l826 +++| BX6 X6*X1 08739 M01S01877.282l826 +++| LX5 24 SET REQUEST PARAMETERS 08740 M01S01878.282l826 +++| ZR X6,PCRX IF NOT END OF SET OR POSITION LOST 08741 M01S01879.282l826 +++| ZR B6,PCR9 IF *POSMF* FUNCTION 08742 M01S01880.282l826 +++| PL X6,PCR8 IF NOT END OF SET 08743 M01S01881.282l826 +++| SX5 IOS * INCORRECT OPERATION AT END OF SET* 08744 M01S01882.282l826 +++| EQ ABR ABORT REQUEST 08745 M01S01883.282l826 +++| 08746 M01S01884.282l826 +++| PCR8 SX2 B4-/CIO/REW 08747 M01S01885.282l826 +++| ZR X2,PCRX IF *REWIND* FUNCTION 08748 M01S01886.282l826 +++| SX5 FPI * FILE POSITION INDETERMINATE* 08749 M01S01887.282l826 +++| EQ ABR ABORT REQUEST 08750 M01S01888.282l826 +++| 08751 M01S01889.282l826 +++| PCR9 MX6 -59 08752 M01S01890.282l826 +++| BX6 -X6*X1 CLEAR END OF SET FLAG 08753 M01S01891.282l826 +++| LX6 6-6-59+6 08754 M01S01892.282l826 +++| SA6 A1 08755 M01S01893.282l826 +++| 08756 M00S02782.magnet +++| PCR SUBR ENTRY/EXIT
| Line S02783 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08757 M01S02783.282l826 ---| SA1 A0+UST4 CHECK FORMAT 08758 M01S02784.282l826 ---| SA2 A3+B1 GET EXTERNAL CODE
| Line S02785 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08759 M02S02785.282l826 ---| LX1 24
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08760 M02S00083.282l826 ---| LX1 36
| Line S02786 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08761 M01S02786.282l826 ---| MX6 1
| Line S01894 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08762 M01S01894.282l826 +++| 08763 M01S01895.282l826 +++|* CHECK FOR REWIND OR REEL CHECK BEFORE *CIO* OPERATION. 08764 M01S01896.282l826 +++| 08765 M01S01897.282l826 +++| SA2 A0+UST2 08766 M01S01898.282l826 +++| MX6 -2 08767 M01S01899.282l826 +++| LX3 6 08768 M01S01900.282l826 +++| MX7 -4 08769 M01S01901.282l826 +++| LX2 0-10 08770 M01S01902.282l826 +++| BX7 -X7*X3 08771 M01S01903.282l826 +++| BX2 -X6*X2 08772 M01S01904.282l826 +++| LX3 -6 08773 M01S01905.282l826 +++| SB3 X2 08774 M01S01906.282l826 +++| SB4 X7+ INTERNAL FUNCTION CODE 08775 M01S01907.282l826 +++| EQ B3,B1,PCR0 IF NO REWIND OR REEL CHECK REQUIRED 08776 M01S01908.282l826 +++| SX5 B0+ 08777 M01S01909.282l826 +++| SX7 PRWF 08778 M01S01910.282l826 +++| GT B3,B1,PCRX IF REWIND BEFORE REQUEST 08779 M01S01911.282l826 +++| SX7 PCHR 08780 M01S01912.282l826 +++| EQ PCRX PERFORM INITIAL REEL CHECK 08781 M01S01913.282l826 +++| 08782 M01S01914.282l826 +++|* CHECK FET PARAMETERS. 08783 M01S01915.282l826 +++| 08784 M01S01916.282l826 +++| PCR0 SA1 A0+UST4 CHECK FORMAT 08785 M01S01917.282l826 +++| SA2 A0+UCIB GET EXTERNAL CODE 08786 M01S01918.282l826 +++| LX1 24
| Line S02787 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 08787 M01S02787.ns22000 ---| AX1 48
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 08788 M01S00084.ns22000 +++| AX1 54 08789 M00S02788.magnet +++| SB7 X1-TFF 08790 M00S02789.magnet +++| NZ B7,PCR1 IF NOT F FORMAT
| Line S01919 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08791 M01S01919.282l826 +++| MX6 1 08792 M00S02790.magnet +++| LX6 52-59 08793 M00S02791.magnet +++| BX1 X6*X3 GET *READN*/*WRITEN* FLAG 08794 M00S02792.magnet +++| NZ X1,PCR1 IF *READN*/*WRITEN* 08795 M00S02793.magnet +++| LX6 53-59-52+59 08796 M00S02794.magnet +++| BX6 X3+X6 SET *READCW*/*WRITECW* FLAG
| Line S02795 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08797 M01S02795.282l826 ---| SA6 A3
| Line S01920 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08798 M01S01920.282l826 +++| SA6 A3+ 08799 M00S02796.magnet +++| BX3 X6 08800 M00S02797.magnet +++| PCR1 LX2 58-48 08801 M00S02798.magnet +++| MX1 -7 08802 M00S02799.magnet +++| LX3 18 08803 M00S02800.magnet +++| BX4 -X1*X2 GET EXTERNAL FUNCTION CODE 08804 M00S02801.magnet +++| MX6 -6 08805 M00S02802.magnet +++| SB6 X4-110B/4 CHECK FOR *POSMF* 08806 M00S02803.magnet +++| BX1 -X6*X3 FET LENGTH - 5 08807 M00S02804.magnet +++| LX2 59-41-58+48 08808 M00S02805.magnet +++| SB5 X1-13+5 08809 M00S02806.magnet +++| LX3 -18 08810 M00S02807.magnet +++| SX6 1001B 08811 M00S02808.magnet +++| NZ B6,PCR2 IF NOT *POSMF* 08812 M00S02809.magnet +++| PL B5,PCR2 IF FET LENGTH .GE. 13D 08813 M00S02810.magnet +++| PL X2,PCR3 IF NOT EXTENDED LABELS 08814 M00S02811.magnet +++| PCR2 SB7 B7-TFS+TFF 08815 M00S02812.magnet +++| MX5 -18 08816 M00S02813.magnet +++| LX2 41-59 08817 M00S02814.magnet +++| BX5 -X5*X2 *MLRS* VALUE 08818 M00S02815.magnet +++| IX6 X5-X6 08819 M00S02816.magnet +++| EQ B7,B1,PCR4 IF L FORMAT
| Line S02817 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08820 M01S02817.282l826 ---| NZ B7,PCRX IF NOT S FORMAT
| Line S01921 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08821 M01S01921.282l826 +++| NZ B7,PCR6 IF NOT S FORMAT 08822 M00S02818.magnet +++| NG X6,PCR4 IF MLRS .LE. 1000B 08823 M00S02819.magnet +++| 08824 M00S02820.magnet +++|* PROCESS BUFFER ARGUMENT ERROR. 08825 M00S02821.magnet +++|
| Line S02822 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08826 M01S02822.282l826 ---| PCR3 SX7 MAB ISSUE ERROR MESSAGE AND ABORT JOB 08827 M01S02823.282l826 ---| SX5 BAE *BUFFER ARGUMENT ERROR* 08828 M01S02824.282l826 ---| EQ EXI2 MAKE *1MT* REQUEST
| Line S01922 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08829 M01S01922.282l826 +++| PCR3 SX5 BAE * BUFFER ARGUMENT ERROR* 08830 M01S01923.282l826 +++| EQ ABR ABORT REQUEST 08831 M01S01924.282l826 +++| PUR SPACE 4,10 08832 M01S01925.282l826 +++|** PUR - PRE-PROCESS UNIT RETURN. 08833 M01S01926.282l826 +++|* 08834 M01S01927.282l826 +++|* ENTRY (X6) = *UFRQ* 08835 M01S01928.282l826 +++|* 08836 M01S01929.282l826 +++|* EXIT (X7) = REQUEST. 08837 M01S01930.282l826 +++|* (X5) = 0. 08838 M01S01931.282l826 +++|* TO *HGU* IF INCORRECT PROCESSOR SEQUENCE NUMBER. 08839 M01S01932.282l826 +++|* 08840 M01S01933.282l826 +++|* USES X - 0, 1, 2, 5, 6, 7. 08841 M01S01934.282l826 +++|* A - 1, 6. 08842 M01S01935.282l826 +++| 08843 M01S01936.282l826 +++| 08844 M01S01937.282l826 +++| PUR SUBR ENTRY/EXIT 08845 M01S01938.282l826 +++| 08846 M01S01939.282l826 +++|* THE RETURN UNIT PROCESSORS ARE DIVIDED INTO SEQUENCES SUCH 08847 M01S01940.282l826 +++|* THAT PROCESSING CAN BE RESUMED AFTER A *1MT* OR *1MU* ERROR. 08848 M01S01941.282l826 +++| 08849 M01S01942.282l826 +++| MX0 -12 08850 M01S01943.282l826 +++| LX6 -36 08851 M01S01944.282l826 +++| BX1 -X0*X6 CURRENT SEQUENCE NUMBER 08852 M01S01945.282l826 +++| SX5 B0 08853 M01S01946.282l826 +++| SX2 X1-PURAL 08854 M01S01947.282l826 +++| PL X2,HGU IF INCORRECT SEQUENCE NUMBER, HANG UNIT 08855 M01S01948.282l826 +++| SA1 PURA+X1 GET PROCESSOR 08856 M01S01949.282l826 +++| SX2 B1 08857 M01S01950.282l826 +++| IX6 X6+X2 ADVANCE SEQUENCE NUMBER FOR REENTRY 08858 M01S01951.282l826 +++| LX6 36 08859 M01S01952.282l826 +++| SX7 X1 SET UNIT RETURN PROCESSOR 08860 M01S01953.282l826 +++| SA6 A0+UFRQ 08861 M01S01954.282l826 +++| EQ PURX RETURN 08862 M01S01955.282l826 +++| 08863 M01S01956.282l826 +++| 08864 M01S01957.282l826 +++| PURA BSS 0 TABLE OF RETURN UNIT PROCESSORS 08865 M01S01958.282l826 +++| CON PRTA FIRST SEQUENCE 08866 M01S01959.282l826 +++| CON PRTB SECOND SEQUENCE 08867 M01S01960.282l826 +++| CON PRTC THIRD SEQUENCE 08868 M01S01961.282l826 +++| PURAL EQU *-PURA MAXIMUM SEQUENCE + 1
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | magne22 |
Seq # *Modification Id* Act ----------------------------+ 08869 M01S00033.magne22 +++| PVD SPACE 4,15 08870 M01S00034.magne22 +++|** PVD - PROCESS VOLUME IN DRIVE ERROR. 08871 M01S00035.magne22 +++|* 08872 M01S00036.magne22 +++|* ENTRY (A0) = UDT ADDRESS OF UNIT ENCOUNTERING ERROR. 08873 M01S00037.magne22 +++|* (B3) = MOUNT REQUEST ERROR CODE. 08874 M01S00038.magne22 +++|* 08875 M01S00039.magne22 +++|* EXIT DISMOUNT INITIATED IF DRIVE IN USE ERROR. 08876 M01S00040.magne22 +++|* DISMOUNT INITIATED ON UNIT INDICATED IN RESPONSE IF 08877 M01S00041.magne22 +++|* VOLUME IN DRIVE ERROR, UNIT IS ON THIS SYSTEM, AND 08878 M01S00042.magne22 +++|* NO MOUNT OR DISMOUNT ACTIVITY IS PRESENT. 08879 M01S00043.magne22 +++|* 08880 M01S00044.magne22 +++|* USES X - 1, 2, 3, 6, 7. 08881 M01S00045.magne22 +++|* A - 0, 1, 3. 08882 M01S00046.magne22 +++|* B - 2, 3, 4. 08883 M01S00047.magne22 +++|* 08884 M01S00048.magne22 +++|* CALLS DAU. 08885 M01S00049.magne22 +++| 08886 M01S00050.magne22 +++| 08887 M01S00051.magne22 +++| PVD SUBR ENTRY/EXIT 08888 M01S00052.magne22 +++| 08889 M01S00053.magne22 +++|* CHECK FOR ERROR REQUIRING FORCED DISMOUNT. 08890 M01S00054.magne22 +++| 08891 M01S00055.magne22 +++| SB4 B3-/ATF/DIU 08892 M01S00056.magne22 +++| ZR B4,PVD2 IF DRIVE IN USE ERROR 08893 M01S00057.magne22 +++| SB4 B3-/ATF/VID 08894 M01S00058.magne22 +++| NZ B4,PVDX IF NOT VOLUME IN DRIVE ERROR 08895 M01S00059.magne22 +++| 08896 M01S00060.magne22 +++|* SEARCH FOR UNIT WITH VOLUME MOUNTED. 08897 M01S00061.magne22 +++| 08898 M01S00062.magne22 +++| SA1 RCAL+1+/ATF/RQP1 08899 M01S00063.magne22 +++| SB2 -1 08900 M01S00064.magne22 +++| TB3 -UNITL,UBUF 08901 M01S00065.magne22 +++| TB4 0,UBUF,LWA 08902 M01S00066.magne22 +++| MX6 21 08903 M01S00067.magne22 +++| LX6 -36 08904 M01S00068.magne22 +++| TX2 0,UACI 08905 M01S00069.magne22 +++| BX6 X6*X1 DRIVE IDENTIFICATION FROM RESPONSE 08906 M01S00070.magne22 +++| LX2 3 08907 M01S00071.magne22 +++| MX7 12 08908 M01S00072.magne22 +++| LX7 -36 08909 M01S00073.magne22 +++| PVD1 SB3 B3+UNITL ADVANCE UDT ADDRESS 08910 M01S00074.magne22 +++| EQ B3,B4,PVDX IF END OF UDT ENTRIES 08911 M01S00075.magne22 +++| SA1 B3+UST1 08912 M01S00076.magne22 +++| SA3 B3+UMST 08913 M01S00077.magne22 +++| SB2 B2+B1 ADVANCE UDT ORDINAL 08914 M01S00078.magne22 +++| LX1 59-49 08915 M01S00079.magne22 +++| PL X1,PVD1 IF NOT ACS UNIT 08916 M01S00080.magne22 +++| SA0 B3 SET UDT ADDRESS 08917 M01S00081.magne22 +++| BX1 X7*X3 08918 M01S00082.magne22 +++| BX1 X1+X2 DRIVE IDENTIFICATION 08919 M01S00083.magne22 +++| BX1 X1-X6 08920 M01S00084.magne22 +++| NZ X1,PVD1 IF NOT INDICATED UNIT 08921 M01S00085.magne22 +++| SA1 ACCU 08922 M01S00086.magne22 +++| MX6 -3 08923 M01S00087.magne22 +++| BX6 -X6*X3 08924 M01S00088.magne22 +++| NZ X6,PVDX IF MOUNT OR DISMOUNT OR CONTROL PATH ERROR 08925 M01S00089.magne22 +++| LX1 B2 08926 M01S00090.magne22 +++| PL X1,PVDX IF UNIT NOT ACCESSIBLE 08927 M01S00091.magne22 +++| 08928 M01S00092.magne22 +++|* DISMOUNT UNIT. 08929 M01S00093.magne22 +++| 08930 M01S00094.magne22 +++| PVD2 RJ DAU DISMOUNT UNIT 08931 M01S00095.magne22 +++| EQ PVDX RETURN
| Line S01962 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08932 M01S01962.282l826 +++| PVE SPACE 4,15 08933 M01S01963.282l826 +++|** PVE - PROCESS VSN ERROR ON ACS UNIT MOUNT. 08934 M01S01964.282l826 +++|* 08935 M01S01965.282l826 +++|* ENTRY (A0) = UDT ADDRESS. 08936 M01S01966.282l826 +++|* (B2) = UDT ORDINAL. 08937 M01S01967.282l826 +++|* (X1) = VSN LEFT JUSTIFIED. 08938 M01S01968.282l826 +++|* (B3) = *COMSATF* ERROR CODE. 08939 M01S01969.282l826 +++|* 08940 M01S01970.282l826 +++|* EXIT ENTRY MADE IN VSN ERROR TABLE. 08941 M01S01971.282l826 +++|* VSN EVENT ISSUED IF UNIT UNASSIGNED WITH NO ACTIVITY.
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | magne22 |
Seq # *Modification Id* Act ----------------------------+ 08942 M01S00096.magne22 +++|* (B3) = *COMSATF* ERROR CODE.
| Line S01972 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08943 M01S01972.282l826 +++|* 08944 M01S01973.282l826 +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 08945 M01S01974.282l826 +++|* A - 2, 3, 6, 7. 08946 M01S01975.282l826 +++|* 08947 M01S01976.282l826 +++|* CALLS MQE. 08948 M01S01977.282l826 +++| 08949 M01S01978.282l826 +++| 08950 M01S01979.282l826 +++| PVE SUBR ENTRY/EXIT
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | magne22 |
Seq # *Modification Id* Act ----------------------------+ 08951 M01S00097.magne22 +++| SB4 B3-/ATF/MXVE 08952 M01S00098.magne22 +++| PL B4,PVEX IF NOT VSN ERROR
| Line S01980 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 08953 M01S01980.282l826 +++| SA2 VET-1 08954 M01S01981.282l826 +++| MX0 36 08955 M01S01982.282l826 +++| BX1 X0*X1 VSN WITH ERROR 08956 M01S01983.282l826 +++| PVE1 SA2 A2+1 GET NEXT ENTRY 08957 M01S01984.282l826 +++| NZ X2,PVE1 IF NOT END OF ENTRIES 08958 M01S01985.282l826 +++| SX3 A2-VET-VETL 08959 M01S01986.282l826 +++| ZR X3,PVEX IF TABLE FULL 08960 M01S01987.282l826 +++| SX7 B0+ 08961 M01S01988.282l826 +++| SX6 B3-/ATF/MXFE ERROR CODE 08962 M01S01989.282l826 +++| SX3 B0+ 08963 M01S01990.282l826 +++| PL X6,PVE2 IF TRANSIENT VSN ERROR 08964 M01S01991.282l826 +++| SX6 B3-/ATF/URL 08965 M01S01992.282l826 +++| SX3 /RSX/UOL 08966 M01S01993.282l826 +++| ZR X6,PVE2 IF UNREADABLE OPTICAL LABEL 08967 M01S01994.282l826 +++| SX3 /RSX/NAC SET NOT IN ACS 08968 M01S01995.282l826 +++| PVE2 BX6 X1+X3 08969 M01S01996.282l826 +++| SA6 A2 SET VSN AND ERROR 08970 M01S01997.282l826 +++| SA7 A2+1 TERMINATE ENTRIES 08971 M01S01998.282l826 +++| SA2 A0+UVRI 08972 M01S01999.282l826 +++| SA3 A0+UREQ 08973 M01S02000.282l826 +++| NZ X2,PVEX IF UNIT ASSIGNED OR SELECTED FOR UNIT SWAP 08974 M01S02001.282l826 +++| NZ X3,PVEX IF PROCESSOR ACTIVE 08975 M01S02002.282l826 +++| SX5 A6-VET SET ORDINAL OF ERROR TABLE ENTRY 08976 M01S02003.282l826 +++| SX7 PVME ISSUE EVENT TO ROLL IN *RESEX* 08977 M01S02004.282l826 +++| RJ MQE MAKE QUEUE ENTRY 08978 M01S02005.282l826 +++| EQ PVEX RETURN
| Line S02825 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 08979 M01S02825.253l688 ---| RFL SPACE 4,10 08980 M01S02826.253l688 ---|** RFL - REDUCE FIELD LENGTH.
| Line S00376 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 08981 M01S00376.253l688 +++| RFL SPACE 4,20 08982 M01S00377.253l688 +++|** RFL - REDUCE FIELD LENGTH AND REPACK QUEUES. 08983 M01S00378.253l688 +++|* 08984 M01S00379.253l688 +++|* THE REDUCTION OF FIELD LENGTH IS PERFORMED BEFORE 08985 M01S00380.253l688 +++|* THE TABLES ARE COMPRESSED (WHICH MEANS THAT IT TAKES 08986 M01S00381.253l688 +++|* 32 SECONDS BEFORE THE SPACE IS RELEASED). THIS IS DONE 08987 M01S00382.253l688 +++|* SINCE VARIOUS TAPE ALTERNATE STORAGE RELATED PROGRAMS 08988 M01S00383.253l688 +++|* MAY BE READING THE STAGE REQUEST TABLE (*TSRP*), AND 08989 M01S00384.253l688 +++|* REDUCING THE MEMORY FROM UNDER THEM COULD CAUSE THEM TO 08990 M01S00385.253l688 +++|* ABORT. WHILE THIS STILL MAY HAPPEN IF THEY DO NOT GET 08991 M01S00386.253l688 +++|* THE CPU FOR 32 SECONDS, IT IS UNLIKELY. 08992 M01S00387.253l688 +++|* 08993 M01S00388.253l688 +++|* (TSRP) IS SET TO ZERO DURING THE TABLE PACK. BY 08994 M01S00389.253l688 +++|* DOING THIS, *COMCSRI* WILL WAIT UNTIL THE PACK IS 08995 M01S00390.253l688 +++|* COMPLETE. 08996 M01S00391.253l688 +++|* 08997 M01S00392.253l688 +++|* USES X - 1, 2, 3, 4, 6, 7. 08998 M01S00393.253l688 +++|* A - 1, 2, 3, 4, 6, 7. 08999 M01S00394.253l688 +++|* B - 2, 3, 4, 5, 6. 09000 M01S00395.253l688 +++|* 09001 M01S00396.253l688 +++|* MACROS MEMORY. 09002 M00S02827.magnet +++| 09003 M00S02828.magnet +++|
| Line S02829 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09004 M01S02829.253l688 ---| RFL2 SA6 A6+B1 STORE ENTRY 09005 M01S02830.253l688 ---| EQ RFL1 CONTINUE REPACKING QUEUE
| Line S00397 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09006 M01S00397.253l688 +++| RFL SUBR ENTRY/EXIT 09007 M01S00398.253l688 +++| SA1 TSRP 09008 M01S00399.253l688 +++| SA2 TSRL 09009 M01S00400.253l688 +++| SA3 FLST 09010 M01S00401.253l688 +++| IX1 X1+X2 LWA+1 OF TABLE 09011 M01S00402.253l688 +++| AX3 30 GET CURRENT FIELD LENGTH 09012 M01S00403.253l688 +++| SX4 X1+2*PFTBL+77B+6 ADD GAP 09013 M01S00404.253l688 +++| AX4 6 09014 M01S00405.253l688 +++| LX4 6 09015 M01S00406.253l688 +++| IX6 X3-X4 09016 M01S00407.253l688 +++| ZR X6,RFL1 IF NO MEMORY CHANGE 09017 M01S00408.253l688 +++| MEMORY CM,A3,R,X4 REDUCE MEMORY 09018 M00S02831.magnet +++|
| Line S02832 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09019 M01S02832.253l688 ---| RFL SUBR ENTRY/EXIT 09020 M01S02833.253l688 ---| TA1 0,UQUE REPACK QUEUE
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09021 M01S00409.253l688 +++|* REPACK *UQUE* TABLE. 09022 M01S00410.253l688 +++| 09023 M01S00411.253l688 +++| RFL1 TA1 0,UQUE REPACK QUEUE 09024 M00S02834.magnet +++| BX6 X1 09025 M00S02835.magnet +++| SA6 A1
| Line S02836 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09026 M01S02836.253l688 ---| RFL1 SA1 A1+B1 SEARCH TABLE
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09027 M01S00412.253l688 +++| RFL2 SA1 A1+B1 SEARCH TABLE 09028 M00S02837.magnet +++| BX6 X1
| Line S02838 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09029 M01S02838.253l688 ---| NZ X1,RFL2 IF ENTRY 09030 M01S02839.253l688 ---| PL X1,RFL1 IF NOT END OF TABLE
| Line S00413 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09031 M01S00413.253l688 +++| ZR X1,RFL3 IF NO ENTRY 09032 M01S00414.253l688 +++| SA6 A6+B1 STORE ENTRY 09033 M01S00415.253l688 +++| EQ RFL2 CONTINUE REPACKING QUEUE 09034 M01S00416.253l688 +++| 09035 M01S00417.253l688 +++| RFL3 PL X1,RFL2 IF NOT END OF TABLE 09036 M00S02840.magnet +++| SA6 A6+B1 INSURE TABLE TERMINATION 09037 M00S02841.magnet +++| SA6 A6+B1
| Line S02842 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09038 M01S02842.253l688 ---| SX4 A6+6+77B SET NEEDED FL 09039 M01S02843.253l688 ---| SA3 FLST 09040 M01S02844.253l688 ---| AX4 6 09041 M01S02845.253l688 ---| LX4 6 09042 M01S02846.253l688 ---| AX3 30 09043 M01S02847.253l688 ---| IX6 X3-X4 09044 M01S02848.253l688 ---| ZR X6,RFLX IF NO FL REDUCTION NEEDED 09045 M01S02849.253l688 ---| MEMORY CM,FLST,R,X4 REDUCE MEMORY
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09046 M01S00418.253l688 +++| 09047 M01S00419.253l688 +++|* REPACK *PFM* REQUEST TABLE. 09048 M01S00420.253l688 +++| 09049 M01S00421.253l688 +++| SB4 A6+6+PFTBL SET DESIRED INTERTABLE GAP 09050 M01S00422.253l688 +++| SA2 TSRP 09051 M01S00423.253l688 +++| SA3 A2-B1 09052 M01S00424.253l688 +++| SB2 X2 FWA OF *PFM* REQUEST TABLE 09053 M01S00425.253l688 +++| SB3 X3 LENGTH OF TABLE 09054 M01S00426.253l688 +++| SB5 PFTBL 09055 M01S00427.253l688 +++| SB6 -B5 09056 M01S00428.253l688 +++| BX6 X6-X6 09057 M01S00429.253l688 +++| SA6 A2 FLAG TABLE-PACK-IN-PROGRESS TO STAGES 09058 M01S00430.253l688 +++| GE B4,B2,RFL5 IF CANNOT MOVE FRONT OF TABLE DOWN 09059 M01S00431.253l688 +++| RFL4 SB2 B2-B5 MOVE TABLE FWA BACKWARDS 09060 M01S00432.253l688 +++| SB3 B3+B5 INCREMENT LENGTH 09061 M01S00433.253l688 +++| SA6 B2+ SET ENTRY IDLE 09062 M01S00434.253l688 +++| LT B4,B2,RFL4 IF MORE SPACE TO MOVE TABLE 09063 M01S00435.253l688 +++| RFL5 ZR B3,RFL8 IF NO LENGTH TO TABLE 09064 M01S00436.253l688 +++| SB3 B3-B5 09065 M01S00437.253l688 +++| SA1 B3+B2 GET ENTRY 09066 M01S00438.253l688 +++| ZR X1,RFL5 IF LAST ENTRY IS IDLE 09067 M01S00439.253l688 +++| RFL6 LE B3,B6,RFL7 IF MOVED BEYOND FILL POINTER 09068 M01S00440.253l688 +++| SB6 B6+B5 ADVANCE FILL POINTER 09069 M01S00441.253l688 +++| SA1 B2+B6 09070 M01S00442.253l688 +++| NZ X1,RFL6 IF THIS ENTRY IS IN USE 09071 M01S00443.253l688 +++| SA4 B2+B3 MOVE WORDS 0 AND 1 09072 M01S00444.253l688 +++| SA2 A4+B1 09073 M01S00445.253l688 +++| SA7 A1 09074 M01S00446.253l688 +++| BX6 X4 09075 M01S00447.253l688 +++| LX7 X2 09076 M01S00448.253l688 +++| SA1 A2+B1 MOVE WORDS 2 AND 3 09077 M01S00449.253l688 +++| SA2 A1+B1 09078 M01S00450.253l688 +++| SA6 B2+B6 09079 M01S00451.253l688 +++| SA7 A6+B1 09080 M01S00452.253l688 +++| BX6 X1 09081 M01S00453.253l688 +++| LX7 X2 09082 M01S00454.253l688 +++| SA1 A2+B1 MOVE WORDS 4 AND 5 09083 M01S00455.253l688 +++| SA2 A1+B1 09084 M01S00456.253l688 +++| SA6 A7+B1 09085 M01S00457.253l688 +++| SA7 A6+B1 09086 M01S00458.253l688 +++| BX6 X1 09087 M01S00459.253l688 +++| LX7 X2 09088 M01S00460.253l688 +++| SA1 A2+B1 MOVE WORDS 6 AND 7 09089 M01S00461.253l688 +++| SA2 A1+B1 09090 M01S00462.253l688 +++| SA6 A7+B1 09091 M01S00463.253l688 +++| SA7 A6+B1 09092 M01S00464.253l688 +++| BX6 X1 09093 M01S00465.253l688 +++| LX7 X2 09094 M01S00466.253l688 +++| SA6 A7+B1 09095 M01S00467.253l688 +++| SA7 A6+B1 09096 M01S00468.253l688 +++| ERRNZ PFTBL-8 CODE ASSUMES 8 WORD ENTRY 09097 M01S00469.253l688 +++| EQ RFL5 CHECK NEXT ENTRY 09098 M01S00470.253l688 +++| 09099 M01S00471.253l688 +++| RFL7 SB3 B3+PFTBL RESTORE TABLE LENGTH 09100 M01S00472.253l688 +++| RFL8 SX7 B3 UPDATE LENGTH AND FWA 09101 M01S00473.253l688 +++| SX6 B2 09102 M01S00474.253l688 +++| SA1 TSRM 09103 M01S00475.253l688 +++| SA7 TSRL UPDATE LENGTH 09104 M01S00476.253l688 +++| SX7 X1+B1 INCREMENT MODIFICATION COUNTER 09105 M01S00477.253l688 +++| SA7 A1 09106 M01S00478.253l688 +++| SA6 A7-B1 UPDATE FWA 09107 M00S02850.magnet +++| EQ RFLX RETURN 09108 M00S02851.magnet +++| SBS SPACE 4,30
| Line S02852 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09109 M01S02852.274l797 ---|* SBS - SET BLOCK SIZE FOR S/L FORMAT TAPES.
| Line S02057 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09110 M01S02057.274l797 +++|** SBS - SET BLOCK SIZE FOR S/L FORMAT TAPES. 09111 M00S02853.magnet +++|* 09112 M00S02854.magnet +++|* BLOCK SIZE IS CALCULATED AS FOLLOWS- 09113 M00S02855.magnet +++|* 1) MLRS FIELD IS USED IF NON - ZERO. 09114 M00S02856.magnet +++|* 2) 1000B IS USED IF S FORMAT AND MLRS = 0. 09115 M00S02857.magnet +++|* 3) IF BUFFER SIZE IS .LT. MLRS, BUFFER SIZE IS USED 09116 M00S02858.magnet +++|* UNLESS READ SKIP. 09117 M00S02859.magnet +++|* 4) IF L FORMAT AND MLRS = 0, BLOCK SIZE IS 09118 M00S02860.magnet +++|* COMPUTED AS FOLLOWS. 09119 M00S02861.magnet +++|* A) LIMIT-FIRST-1 IF NOT CONTROL WORD OPERATION 09120 M00S02862.magnet +++|* B) LIMIT-FIRST-2 IF 260/264 OPERATION 09121 M00S02863.magnet +++|* C) LIMIT-FIRST-3 IF 200/204 OPERATION 09122 M00S02864.magnet +++|* D) 377777B IF *READSKP* 09123 M00S02865.magnet +++|* 09124 M00S02866.magnet +++|* ENTRY (B7) = 0, IF S FORMAT. 09125 M00S02867.magnet +++|* (X0) = 1000B. 09126 M00S02868.magnet +++|* (X2) = (UDT UCIB WORD). 09127 M00S02869.magnet +++|* (X3) = (UDT UCIA WORD). 09128 M00S02870.magnet +++|* (X4) = EXTERNAL *CIO* FUNCTION CODE/4. 09129 M00S02871.magnet +++|* (X5) = *MLRS* FIELD VALUE. 09130 M00S02872.magnet +++|* (A0) = UDT ADDRESS. 09131 M00S02873.magnet +++|* (A2) = UDT ADDRESS + UCIB. 09132 M00S02874.magnet +++|* 09133 M00S02875.magnet +++|* USES X - 1, 2, 4, 5, 6. 09134 M00S02876.magnet +++|* A - 1, 6.
| Line S02877 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09135 M01S02877.282l826 ---|* B - 7. 09136 M00S02878.magnet +++| 09137 M00S02879.magnet +++| 09138 M00S02880.magnet +++| SBS4 IX4 X6-X5 09139 M00S02881.magnet +++| PL X4,SBS5 IF *MLRS* .LT. BUFFER SIZE 09140 M00S02882.magnet +++| ZR X1,SBS5 IF *READSKP* 09141 M00S02883.magnet +++| SX5 X6+ SET *MLRS* TO BUFFER SIZE 09142 M00S02884.magnet +++| SBS5 SX6 X5-1001B 09143 M00S02885.magnet +++| SA1 A0+UST4
| Line S02886 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09144 M01S02886.282l826 ---| MX2 -36
| Line S02006 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09145 M01S02006.282l826 +++| MX2 36 09146 M00S02887.magnet +++| SX4 B0+
| Line S02888 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09147 M01S02888.282l826 ---| BX1 -X2*X1
| Line S02007 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09148 M01S02007.282l826 +++| BX1 X2*X1 09149 M00S02889.magnet +++| NG X6,SBS6 IF NO OVERFLOW COUNT 09150 M00S02890.magnet +++| SX6 LBWD CALCULATE OVERFLOW 09151 M00S02891.magnet +++| SX2 X6 09152 M00S02892.magnet +++| SX4 X5 09153 M00S02893.magnet +++| IX6 X5/X6 09154 M00S02894.magnet +++| IX2 X6*X2 CALCULATE REMAINDER 09155 M00S02895.magnet +++| IX5 X4-X2 09156 M00S02896.magnet +++| SX4 X6
| Line S02897 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09157 M01S02897.282l826 ---| LX4 36 09158 M00S02898.magnet +++| SBS6 PL X5,SBS7 IF WORD COUNT POSITIVE 09159 M00S02899.magnet +++| SX5 B0+ SET WORD COUNT ZERO
| Line S02900 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09160 M01S02900.282l826 ---| SBS7 LX5 48
| Line S02008 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09161 M01S02008.282l826 +++| SBS7 LX5 12 09162 M00S02901.magnet +++| BX4 X5+X4 09163 M00S02902.magnet +++| IX6 X1+X4 09164 M00S02903.magnet +++| SA6 A1 09165 M00S02904.magnet +++| 09166 M00S02905.magnet +++| SBS SUBR ENTRY/EXIT 09167 M00S02906.magnet +++| SA1 A0+UCIC 09168 M00S02907.magnet +++| SX6 X1 CALCULATE DEFAULT BLOCK SIZE 09169 M00S02908.magnet +++| AX1 24 09170 M00S02909.magnet +++| SX1 X1+B1 09171 M00S02910.magnet +++| IX6 X6-X1 09172 M00S02911.magnet +++| SX1 X4-20B/4 09173 M00S02912.magnet +++| PL X6,SBS1 IF FET PARAMETERS PRESENT 09174 M00S02913.magnet +++| SX6 377777B SET MAXIMUM DEFAULT BLOCK SIZE 09175 M00S02914.magnet +++| SBS1 BX4 X3 09176 M00S02915.magnet +++| LX4 0-52 09177 M00S02916.magnet +++| NZ B7,SBS2 IF NOT S FORMAT 09178 M00S02917.magnet +++| IX2 X6-X0 09179 M00S02918.magnet +++| NG X2,SBS2 IF BUFFER SIZE .LT. 1000B WORDS 09180 M00S02919.magnet +++| BX6 X0 SET FOR MAXIMUM OF 1000B WORDS 09181 M00S02920.magnet +++| SBS2 NZ X5,SBS4 IF MLRS FIELD SPECIFIED 09182 M00S02921.magnet +++| BX5 X0 09183 M00S02922.magnet +++| MX2 -2 09184 M00S02923.magnet +++| ZR B7,SBS4 IF S FORMAT 09185 M00S02924.magnet +++| BX4 -X2*X4 CONTROL WORD FLAGS 09186 M00S02925.magnet +++| IX6 X6-X4 09187 M00S02926.magnet +++| NZ X1,SBS3 IF NOT *READSKP* 09188 M00S02927.magnet +++| SX6 377777B SET MAXIMUM BLOCK SIZE 09189 M00S02928.magnet +++| SBS3 SX5 X6 09190 M00S02929.magnet +++| EQ SBS5 BUILD *UST4*
| Line S02009 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09191 M01S02009.282l826 +++| SPR SPACE 4,10 09192 M01S02010.282l826 +++|** SPR - SET PREVIEW DISPLAY REQUEST. 09193 M01S02011.282l826 +++|* 09194 M01S02012.282l826 +++|* ENTRY (X3) = 0 IF NO ERROR MESSAGE. 09195 M01S02013.282l826 +++|* (X3) = *COMSRSX* MESSAGE CODE IF ERROR MESSAGE TO BE 09196 M01S02014.282l826 +++|* DISPLAYED. 09197 M01S02015.282l826 +++|* 09198 M01S02016.282l826 +++|* EXIT UDT SET WITH PREVIEW DISPLAY REQUEST. 09199 M01S02017.282l826 +++|* 09200 M01S02018.282l826 +++|* USES X - 1, 2, 3, 6. 09201 M01S02019.282l826 +++|* A - 1, 2, 6. 09202 M01S02020.282l826 +++| 09203 M01S02021.282l826 +++|
| Line S02022 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
M02 (Removed by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 09204 M02S02022.ns2773 ---| SPR SUBR 0 ENTRY/EXIT
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | ns2773 |
Seq # *Modification Id* Act ----------------------------+ 09205 M01S00083.ns2773 +++| SPR SUBR ENTRY/EXIT
| Line S02023 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09206 M01S02023.282l826 +++| SA1 A0+UISN 09207 M01S02024.282l826 +++| SA2 A0+UVRI 09208 M01S02025.282l826 +++| MX6 42 09209 M01S02026.282l826 +++| LX3 12 09210 M01S02027.282l826 +++| BX1 X6*X1 09211 M01S02028.282l826 +++| BX6 X1+X3 SET ERROR CODE 09212 M01S02029.282l826 +++| LX2 59-0 09213 M01S02030.282l826 +++| SA6 A1 09214 M01S02031.282l826 +++| NG X2,SPRX IF MESSAGE ALREADY SET 09215 M01S02032.282l826 +++| MX6 1 09216 M01S02033.282l826 +++| SA6 OPRF SET NEW REQUEST FLAG 09217 M01S02034.282l826 +++| BX6 X2+X6 SET MESSAGE FLAG 09218 M01S02035.282l826 +++| LX6 0-0-59+0 09219 M01S02036.282l826 +++| SA6 A2 09220 M01S02037.282l826 +++| EQ SPRX RETURN 09221 M01S02038.282l826 +++| SUA SPACE 4,15 09222 M01S02039.282l826 +++|** SUA - SET UDT ADDRESS. 09223 M01S02040.282l826 +++|* 09224 M01S02041.282l826 +++|* ENTRY (X5) = UDT ORDINAL (BITS 0 - 11). 09225 M01S02042.282l826 +++|* 09226 M01S02043.282l826 +++|* EXIT (X6) .GE. 0 IF INCORRECT UDT ADDRESS. 09227 M01S02044.282l826 +++|* (A0) = UDT ADDRESS IF NO ERROR. 09228 M01S02045.282l826 +++|* (B2) = UDT ORDINAL IF NO ERROR. 09229 M01S02046.282l826 +++|* 09230 M01S02047.282l826 +++|* USES X - 6, 7. 09231 M01S02048.282l826 +++|* A - 0. 09232 M01S02049.282l826 +++|* B - 2. 09233 M01S02050.282l826 +++| 09234 M01S02051.282l826 +++| 09235 M01S02052.282l826 +++| SUA SUBR ENTRY/EXIT 09236 M01S02053.282l826 +++| MX7 -12 09237 M01S02054.282l826 +++| SX6 UNITL 09238 M01S02055.282l826 +++| BX7 -X7*X5 UDT ORDINAL 09239 M01S02056.282l826 +++| IX6 X6*X7 UDT OFFSET 09240 M01S02057.282l826 +++| SB2 X7 SET UDT ORDINAL 09241 M01S02058.282l826 +++| TA0 X6,UBUF SET UDT ADDRESS 09242 M01S02059.282l826 +++| TX6 A0,-UBUF,LWA 09243 M01S02060.282l826 +++| EQ SUAX RETURN
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09244 M02S00085.253l688 ---| SPACE 4,15 09245 M02S00086.253l688 ---|** MSG - SEND MESSAGE.
| Line S00479 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09246 M01S00479.253l688 +++| SPACE 4,10 09247 M01S00480.253l688 +++|* COMMON DECKS. 09248 M01S00481.253l688 +++| 09249 M01S00482.253l688 +++| 09250 M01S00483.253l688 +++|*CALL COMCCPM
| Line S02061 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09251 M01S02061.282l826 +++|*CALL COMCMVE
| Line S00484 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09252 M01S00484.253l688 +++|*CALL COMCSYS
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | magne17 |
Seq # *Modification Id* Act ----------------------------+ 09253 M01S00088.magne17 +++|*CALL COMCWOD
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | magne17 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09254 M02S00089.274l797 ---|*CALL COMCZTB
| Line S00485 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09255 M01S00485.253l688 +++| TITLE *PFM*/TAPE ALTERNATE STORAGE ROUTINES. 09256 M01S00486.253l688 +++|** *PFM*/TAPE ALTERNATE STORAGE ROUTINES.
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 09257 M01S00087.ns22000 +++|*
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09258 M02S00088.253l688 ---|* ENTRY (X1) = ADDRESS OF MESSAGE. 09259 M02S00089.253l688 ---|* (X6) = MESSAGE OPTION(S) 09260 M02S00090.253l688 ---|* BIT 16 = AUTO RECALL. 09261 M02S00091.253l688 ---|* BITS 0 - 15 = MESSAGE OPTION(S).
| Line S00487 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09262 M01S00487.253l688 +++|* THESE ROUTINES WILL BE OVERWRITTEN BY UDT-S IF 09263 M01S00488.253l688 +++|* TAPE ALTERNATE STORAGE PROCESSING IS NOT SELECTED. 09264 M01S00489.253l688 +++| 09265 M01S00490.253l688 +++| USE /STAGE/ 09266 M01S00491.253l688 +++| NETAB BSS 0 UDT START IF NO TAPE ALTERNATE STORAGE 09267 M01S00492.253l688 +++| QUAL STAGE 09268 M01S00493.253l688 +++| SPACE 4,10 09269 M01S00494.253l688 +++|* LOCAL STORAGE. 09270 M01S00495.253l688 +++| 09271 M01S00496.253l688 +++| MVSN DATA 0 MORE VSN-S WAITING FOR PROCESSING 09272 M01S00497.253l688 +++| ROLF DATA 0 ROLLIN EVENT TO BE ISSUED 09273 M01S00498.253l688 +++| SJIF DATA 0 VSN FOR STAGE JOB TO BE INITIATED 09274 M01S00499.253l688 +++| SPACE 4,10 09275 M01S00500.253l688 +++|* HANDLE RELOCATABLE INSTRUCTIONS. 09276 M01S00501.253l688 +++| 09277 M01S00502.253l688 +++| TINST RMT 09278 M01S00503.253l688 +++| TINSTL. EQU *-TINST START OF TAPE ALTERNATE ONLY ENTRIES 09279 M01S00504.253l688 +++| TINST RMT 09280 M01S00505.253l688 +++| CRJ SPACE 4,60 09281 M01S00506.253l688 +++|** CRJ - CHECK FOR REQUEST FROM STAGING JOB.
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 09282 M01S00092.ns22000 +++|*
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09283 M02S00093.253l688 ---|* EXIT RETURN WHEN OPERATION COMPLETE.
| Line S00507 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09284 M01S00507.253l688 +++|* PROCESS THE FOLLOWING REQUESTS FROM *RESEX*/*PFRES*.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 09285 M01S00094.ns22000 +++|*
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09286 M02S00095.253l688 ---|* USES X - 1, 6.
| Line S00508 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09287 M01S00508.253l688 +++|* *SEV* (3) - SET STAGING VSN LIST.
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 09288 M01S00096.ns22000 +++|*
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09289 M02S00097.253l688 ---|* CALLS SYS=.
| Line S00509 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09290 M01S00509.253l688 +++|*T RCAL 12/ FC,12/ MVSN,18/ STARTING OFFSET,18/ 1
Figure RCAL
09291 M01S00510.253l688 +++|* 09292 M01S00511.253l688 +++|* MVSN NONZERO, IF MORE VSN-S TO BE REQUESTED. 09293 M01S00512.253l688 +++|* STARTING OFFSET INDEX INTO TABLE TO ADD THESE VSN-S. 09294 M01S00513.253l688 +++|* A STARTING OFFSET OF ZERO CLEARS THE 09295 M01S00514.253l688 +++|* TABLE BEFORE COPYING THE VSN-S. 09296 M01S00515.253l688 +++|* 09297 M01S00516.253l688 +++|* THE REMAINING WORDS HAVE THE FOLLOWING FORMAT- 09298 M01S00517.253l688 +++|* 09299 M01S00518.253l688 +++|*T 20/ ,1/B,3/RTY,12/ TF,24/ PACKED VSN
Figure
09300 M01S00519.253l688 +++|* 09301 M01S00520.253l688 +++|* B SELECT BACKUP VSN. 09302 M01S00521.253l688 +++|* RTY RETRY COUNT. 09303 M01S00522.253l688 +++|* TF *FCTF* FLAGS FROM PFC. 09304 M01S00523.253l688 +++|* PACKED VSN PACKED VSN OF STAGING TAPE (12/VP,12/VS) 09305 M01S00524.253l688 +++|* VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX 09306 M01S00525.253l688 +++|* VS = NUMERIC VSN SUFFIX (0000 TO 4095). 09307 M01S00526.253l688 +++|* 09308 M01S00527.253l688 +++|* 09309 M01S00528.253l688 +++|* *RER* (4) - REMOVE ENTRY FROM STAGE REQUEST TABLE. 09310 M01S00529.253l688 +++|* 09311 M01S00530.253l688 +++|*T RCAL 12/ FC,30/ UNIQUE ID,18/ 1
Figure RCAL
09312 M01S00531.253l688 +++|* 09313 M01S00532.253l688 +++|* UNIQUE ID UNIQUE IDENTIFIER OF ENTRY TO DELETE. 09314 M01S00533.253l688 +++|* 09315 M01S00534.253l688 +++|* 09316 M01S00535.253l688 +++|* *TJE* (5) - TERMINATE ENTRY IN ACTIVE STAGE JOB TABLE. 09317 M01S00536.253l688 +++|* 09318 M01S00537.253l688 +++|*T RCAL 12/ FC,24/ JSN,6/ ,18/ 1
Figure RCAL
09319 M01S00538.253l688 +++|* 09320 M01S00539.253l688 +++|* JSN JSN OF JOB ENTRY TO DELETE FROM TABLE. 09321 M01S00540.253l688 +++|* 09322 M01S00541.253l688 +++|* 09323 M01S00542.253l688 +++|* *QSR* (6) - REQUEUE STAGE REQUEST. 09324 M01S00543.253l688 +++|* 09325 M01S00544.253l688 +++|*T RCAL 12/ FC,20/ ,1/B,3/RTY,6/ ,18/ 8
Figure RCAL
09326 M01S00545.253l688 +++|*T, 6/ 1,3/ AL,19/ ,2/ P,6/ DN,12/ TRACK,12/ SECTOR
Figure
09327 M01S00546.253l688 +++|*T, 12/ TF,6/,18/ FSN,24/ PACKED VSN
Figure
09328 M01S00547.253l688 +++|*T, 42/ PFN,18/ UI
Figure
09329 M01S00548.253l688 +++|*T, 24/ JSN,15/ ,21/ EVENT
Figure
09330 M01S00549.253l688 +++|*T, 42/ FAMILY,18/
Figure
09331 M01S00550.253l688 +++|*T, 1/I,23/ LENGTH,36/ CREATION DATE-TIME
Figure
09332 M01S00551.253l688 +++|* 09333 M01S00552.253l688 +++|* 09334 M01S00553.253l688 +++|* B SELECT BACKUP VSN. 09335 M01S00554.253l688 +++|* RTY RETRY COUNT. 09336 M01S00555.253l688 +++|* AL ACCESS LEVEL OF THE FILE. 09337 M01S00556.253l688 +++|* P *PFC* ENTRY ORDINAL. 09338 M01S00557.253l688 +++|* DN DEVICE NUMBER. 09339 M01S00558.253l688 +++|* TRACK TRACK FOR THE *PFC* ENTRY. 09340 M01S00559.253l688 +++|* SECTOR SECTOR FOR THE *PFC* ENTRY. 09341 M01S00560.253l688 +++|* TF *FCTF* FLAGS FROM PFC. 09342 M01S00561.253l688 +++|* FSN FILE SEQUENCE NUMBER ON ARCHIVE TAPE. 09343 M01S00562.253l688 +++|* PACKED VSN PACKED VSN OF STAGING TAPE (12/VP,12/VS) 09344 M01S00563.253l688 +++|* VP = TWO-CHARACTER DISPLAY CODE VSN PREFIX 09345 M01S00564.253l688 +++|* VS = NUMERIC VSN SUFFIX (0000 TO 4095). 09346 M01S00565.253l688 +++|* PFN PERMANENT FILE NAME. 09347 M01S00566.253l688 +++|* UI USER INDEX. 09348 M01S00567.253l688 +++|* JSN JSN OF THE JOB REQUESTING THE FILE. 09349 M01S00568.253l688 +++|* EVENT EVENT THE JOB WILL ROLL OUT ON. 09350 M01S00569.253l688 +++|* FAMILY THE FAMILY/PACK CONTAINING THE PFC ENTRY. 09351 M01S00570.253l688 +++|* I SET IF INDIRECT ACCESS FILE. 09352 M01S00571.253l688 +++|* LENGTH LENGTH OF THE FILE IN SECTORS. 09353 M01S00572.253l688 +++|* CREATION DATE-TIME PACKED DATE AND TIME OF FILE CREATION. 09354 M01S00573.253l688 +++|* 09355 M01S00574.253l688 +++|* 09356 M01S00575.253l688 +++|* *AIB* (7) - ALTER STAGE JOB INITIALIZATION BIT. 09357 M01S00576.253l688 +++|* 09358 M01S00577.253l688 +++|*T RCAL 12/ FC,24/ JSN,5/ ,1/I,18/ 1
Figure RCAL
09359 M01S00578.253l688 +++|* 09360 M01S00579.253l688 +++|* JSN JSN OF JOB ENTRY TO CHANGE. 09361 M01S00580.253l688 +++|* I NEW VALUE FOR INITIALIZATION BIT. 09362 M01S00581.253l688 +++|* 09363 M01S00582.253l688 +++|* ENTRY (A5) = RCAL. 09364 M01S00583.253l688 +++|* (X5) = FIRST WORD OF REQUEST. 09365 M01S00584.253l688 +++|* 09366 M01S00585.253l688 +++|* EXIT (X5) = 0, IF REQUEST PROCESSED. 09367 M01S00586.253l688 +++|* (RCAL) CLEARED, IF REQUEST PROCESSED. 09368 M01S00587.253l688 +++|* (X5) PRESERVED IF NOT TAPE ALTERNATE STORAGE REQUEST. 09369 M01S00588.253l688 +++|* (A5) PRESERVED IF NOT TAPE ALTERNATE STORAGE REQUEST. 09370 M01S00589.253l688 +++|* 09371 M01S00590.253l688 +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 09372 M01S00591.253l688 +++|* A - 1, 2, 3, 5, 6, 7. 09373 M01S00592.253l688 +++|* B - 2, 3, 4, 5, 6. 09374 M01S00593.253l688 +++|* 09375 M01S00594.253l688 +++|* CALLS FJE, QPR.
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 09376 M01S00098.ns22000 +++| 09377 M01S00099.ns22000 +++|
| Line S00595 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09378 M02S00595.282l826 ---| CRJ10 BX5 X5-X5 INDICATE REQUEST PROCESSED 09379 M02S00596.282l826 ---| BX6 X6-X6 CLEAR REQUEST 09380 M02S00597.282l826 ---| SA6 RCAL
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09381 M02S00100.282l826 ---|
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
M03 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09382 M03S00101.282l826 ---| MSG1 BX6 X6+X1 09383 M03S00102.282l826 ---| RJ SYS= PROCESS REQUEST
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09384 M02S00103.282l826 ---|
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Removed by) | 253l688 |
M03 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09385 M03S00104.282l826 ---| MSG= PS ENTRY/EXIT 09386 M03S00105.282l826 ---| LX6 24 MERGE OPTION(S) AND ADDRESS 09387 M03S00106.282l826 ---| BX1 X6+X1 09388 M03S00107.282l826 ---| SX6 3RMSG FORM *MSG* REQUEST 09389 M03S00108.282l826 ---| LX6 42 09390 M03S00109.282l826 ---| EQ MSG1 PROCESS *MSG* REQUEST
| Line S02930 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09391 M02S02930.282l826 ---| RCL SPACE 4,10 09392 M02S02931.282l826 ---|** RCL - PLACE PROGRAM ON RECALL.
| Line S00598 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09393 M02S00598.282l826 ---| CRJ SUBR ENTRY/EXIT
| Line S02062 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09394 M01S02062.282l826 +++| CRJ BSS 0 ENTRY
| Line S00599 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09395 M01S00599.253l688 +++| BX7 X5 09396 M01S00600.253l688 +++| AX7 48 POSITION FUNCTION CODE
| Line S00601 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09397 M02S00601.282l826 ---| SX0 X7-AIB-1 09398 M02S00602.282l826 ---| PL X0,CRJX IF NOT REQUEST FROM STAGING JOB
| Line S00603 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09399 M01S00603.253l688 +++| SX0 X7-SEV
| Line S00604 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09400 M02S00604.282l826 ---| NG X0,CRJX IF NOT REQUEST FROM STAGING JOB 09401 M02S00605.282l826 ---| SA1 TAJP 09402 M02S00606.282l826 ---| ZR X1,CRJ10 IF TAPE ALTERNATE STORAGE NOT ACTIVE
| Line S00607 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09403 M01S00607.253l688 +++| 09404 M01S00608.253l688 +++|* *SEV* (3) - SET STAGING VSN LIST. 09405 M01S00609.253l688 +++| 09406 M01S00610.253l688 +++| NZ X0,CRJ4 IF NOT *SEV* REQUEST 09407 M01S00611.253l688 +++| SA1 TVSP POINTER TO VSN TABLE 09408 M01S00612.253l688 +++| AX5 18 09409 M01S00613.253l688 +++| SB5 X5 GET STARTING OFFSET 09410 M01S00614.253l688 +++| MX7 -1 09411 M01S00615.253l688 +++| SB2 X1 FWA OF VSN TABLE 09412 M01S00616.253l688 +++| AX5 18 POSITION FLAGS 09413 M01S00617.253l688 +++| AX1 48 09414 M01S00618.253l688 +++| BX7 -X7*X5 EXTRACT *MORE* FLAG 09415 M01S00619.253l688 +++| SB3 X1 LENGTH OF VSN TABLE 09416 M01S00620.253l688 +++| SX6 B0+ 09417 M01S00621.253l688 +++| SA7 MVSN SET *MORE* VSN FLAG
| Line S00622 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09418 M02S00622.282l826 ---| GE B5,B3,CRJ10 IF BEYOND END OF TABLE
| Line S02063 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09419 M01S02063.282l826 +++| GE B5,B3,CPRX IF BEYOND END OF TABLE
| Line S00623 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09420 M01S00623.253l688 +++| SB6 B5+RCALL-1 OFFSET OF LAST NEW ENTRY 09421 M01S00624.253l688 +++| NZ B5,CRJ2 IF NOT FIRST BLOCK 09422 M01S00625.253l688 +++| SB4 B0 STARTING OFFSET TO CLEAR 09423 M01S00626.253l688 +++| CRJ1 SA6 B2+B4 09424 M01S00627.253l688 +++| SB4 B4+B1 09425 M01S00628.253l688 +++| LT B4,B3,CRJ1 IF MORE TO CLEAR 09426 M01S00629.253l688 +++| CRJ2 SA1 A5+B1 GET FIRST ENTRY 09427 M01S00630.253l688 +++| LE B6,B3,CRJ3 IF NOT GOING BEYOND MAXIMUM 09428 M01S00631.253l688 +++| SB6 B3 09429 M01S00632.253l688 +++| CRJ3 BX6 X1 09430 M01S00633.253l688 +++| SA1 A1+B1 09431 M01S00634.253l688 +++| SA6 B2+B5 09432 M01S00635.253l688 +++| SB5 B5+B1
| Line S00636 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09433 M02S00636.282l826 ---| ZR X6,CRJ10 IF ZERO WORD TRANSFERRED
| Line S02064 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09434 M01S02064.282l826 +++| ZR X6,CPRX IF ZERO WORD TRANSFERRED
| Line S00637 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09435 M01S00637.253l688 +++| LT B5,B6,CRJ3 IF MORE TO TRANSFER
| Line S00638 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09436 M02S00638.282l826 ---| EQ CRJ10 COMPLETE REQUEST
| Line S02065 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09437 M01S02065.282l826 +++| EQ CPRX COMPLETE REQUEST
| Line S00639 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09438 M01S00639.253l688 +++| 09439 M01S00640.253l688 +++|* *RER* (4) - REMOVE ENTRY FROM STAGE REQUEST TABLE. 09440 M01S00641.253l688 +++|
| Line S00642 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09441 M02S00642.282l826 ---| CRJ4 SX0 X0-1
| Line S02066 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09442 M01S02066.282l826 +++| CRJ4 SX0 X7-RER
| Line S00643 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09443 M01S00643.253l688 +++| NZ X0,CRJ6 IF NOT *RER* REQUEST 09444 M01S00644.253l688 +++| SA3 TSRL 09445 M01S00645.253l688 +++| SA2 A3+B1 09446 M01S00646.253l688 +++| AX5 18 POSITION UNIQUE ID 09447 M01S00647.253l688 +++| SB2 X2+6 OFFSET TO FIRST ENTRY 09448 M01S00648.253l688 +++| MX7 -30
| Line S00649 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09449 M02S00649.282l826 ---| CRJ5 ZR X3,CRJ10 IF NOT FOUND (IGNORE REQUEST)
| Line S02067 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09450 M01S02067.282l826 +++| CRJ5 ZR X3,CPRX IF NOT FOUND (IGNORE REQUEST)
| Line S00650 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09451 M01S00650.253l688 +++| SX3 X3-PFTBL 09452 M01S00651.253l688 +++| SA1 X3+B2 09453 M01S00652.253l688 +++| BX1 X1-X5 09454 M01S00653.253l688 +++| BX6 -X7*X1 09455 M01S00654.253l688 +++| NZ X6,CRJ5 IF NOT THIS ENTRY 09456 M01S00655.253l688 +++| SA6 A1 CLEAR UNIQUE ID WORD 09457 M01S00656.253l688 +++| SA6 A1-6 CLEAR FIRST WORD (FREE ENTRY)
| Line S00657 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09458 M02S00657.282l826 ---| EQ CRJ10 COMPLETE REQUEST
| Line S02068 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09459 M01S02068.282l826 +++| EQ CPRX COMPLETE REQUEST
| Line S00658 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09460 M01S00658.253l688 +++| 09461 M01S00659.253l688 +++|* *TJE* (5) - TERMINATE ENTRY IN ACTIVE STAGE JOB TABLE. 09462 M01S00660.253l688 +++|
| Line S00661 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09463 M02S00661.282l826 ---| CRJ6 SX0 X0-1
| Line S02069 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09464 M01S02069.282l826 +++| CRJ6 SX0 X7-TJE
| Line S00662 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09465 M01S00662.253l688 +++| NZ X0,CRJ8 IF NOT *TJE* REQUEST 09466 M01S00663.253l688 +++| LX5 12 POSITION JSN 09467 M01S00664.253l688 +++| RJ FJE FIND JOB ENTRY 09468 M01S00665.253l688 +++| NZ X7,CRJ7 IF JOB NOT FOUND 09469 M01S00666.253l688 +++| SA7 A1+ CLEAR JOB TABLE ENTRY 09470 M01S00667.253l688 +++| CRJ7 SA1 MVSN
| Line S00668 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09471 M02S00668.282l826 ---| ZR X1,CRJ10 IF NO PENDING REQUEST
| Line S02070 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09472 M01S02070.282l826 +++| ZR X1,CPRX IF NO PENDING REQUEST
| Line S00669 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09473 M01S00669.253l688 +++| SA1 SJIF CHECK IF STAGING JOB INITIATION IS PENDING
| Line S00670 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09474 M02S00670.282l826 ---| NZ X1,CRJ10 IF INITIATION FLAG ALREADY SET
| Line S02071 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09475 M01S02071.282l826 +++| NZ X1,CPRX IF INITIATION FLAG ALREADY SET
| Line S00671 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09476 M01S00671.253l688 +++| MX6 59 FORCE INITIATION OF STAGING JOB 09477 M01S00672.253l688 +++| SA6 A1
| Line S00673 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09478 M02S00673.282l826 ---| EQ CRJ10 COMPLETE REQUEST
| Line S02072 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09479 M01S02072.282l826 +++| EQ CPRX COMPLETE REQUEST
| Line S00674 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09480 M01S00674.253l688 +++| 09481 M01S00675.253l688 +++|* *QSR* (6) - REQUEUE STAGE REQUEST. 09482 M01S00676.253l688 +++|
| Line S00677 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09483 M02S00677.282l826 ---| CRJ8 SX0 X0-1
| Line S02073 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09484 M01S02073.282l826 +++| CRJ8 SX0 X7-QSR
| Line S00678 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09485 M01S00678.253l688 +++| NZ X0,CRJ9 IF NOT *QSR* REQUEST 09486 M01S00679.253l688 +++| SA5 A5+B1 INCREMENT TO FWA OF *TDAM* BLOCK 09487 M01S00680.253l688 +++| RJ QPR QUEUE *PFM* REQUEST
| Line S00681 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09488 M02S00681.282l826 ---| EQ CRJ10 COMPLETE REQUEST
| Line S02074 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09489 M01S02074.282l826 +++| EQ CPRX COMPLETE REQUEST
| Line S00682 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09490 M01S00682.253l688 +++| 09491 M01S00683.253l688 +++|* *AIB* (7) - ALTER STAGE JOB INITIALIZATION BIT. 09492 M01S00684.253l688 +++| 09493 M01S00685.253l688 +++| CRJ9 LX5 12 POSITION JSN 09494 M01S00686.253l688 +++| RJ FJE FIND JOB ENTRY IN ACTIVE JOB TABLE
| Line S00687 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09495 M02S00687.282l826 ---| NZ X7,CRJ10 IF JOB ENTRY NOT FOUND
| Line S02075 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09496 M01S02075.282l826 +++| NZ X7,CPRX IF JOB ENTRY NOT FOUND
| Line S00688 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09497 M01S00688.253l688 +++| LX5 24-18-12 09498 M01S00689.253l688 +++| MX6 59 09499 M01S00690.253l688 +++| LX6 24-0 09500 M01S00691.253l688 +++| BX1 X6*X1 CLEAR CURRENT SETTING 09501 M01S00692.253l688 +++| BX6 -X6*X5 ISOLATE DESIRED SETTING 09502 M01S00693.253l688 +++| BX7 X6+X1 09503 M01S00694.253l688 +++| SA7 A1 UPDATE ACTIVE JOB TABLE ENTRY 09504 M01S00695.253l688 +++| ZR X6,CRJ7 IF CLEARING BIT
| Line S00696 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09505 M02S00696.282l826 ---| EQ CRJ10 COMPLETE REQUEST
| Line S02076 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 09506 M01S02076.282l826 +++| EQ CPRX COMPLETE REQUEST
| Line S00697 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09507 M01S00697.253l688 +++| FJE SPACE 4,15 09508 M01S00698.253l688 +++|** FJE - FIND JOB ENTRY IN ACTIVE STAGING JOB TABLE. 09509 M00S02932.magnet +++|*
| Line S02933 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09510 M01S02933.253l688 ---|* EXIT REQUEST PROCESSED.
| Line S00699 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09511 M01S00699.253l688 +++|* ENTRY (X5) = 24/JSN ,36/ 09512 M00S02934.magnet +++|*
| Line S02935 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09513 M01S02935.253l688 ---|* USES X - 1, 6.
| Line S00700 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09514 M01S00700.253l688 +++|* EXIT (A1) = ADDRESS OF JOB ENTRY. 09515 M01S00701.253l688 +++|* (X1) = JOB ENTRY. 09516 M01S00702.253l688 +++|* (X7) = 0, IF JOB ENTRY FOUND. 09517 M01S00703.253l688 +++|* 09518 M01S00704.253l688 +++|* USES X - 1, 2, 6, 7. 09519 M00S02936.magnet +++|* A - 1.
| Line S00705 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09520 M01S00705.253l688 +++|* B - 5, 6. 09521 M01S00706.253l688 +++| 09522 M01S00707.253l688 +++| 09523 M01S00708.253l688 +++| FJE SUBR ENTRY/EXIT 09524 M01S00709.253l688 +++| TB6 -1,TAJP,LWA 09525 M01S00710.253l688 +++| TB5 0,TAJP 09526 M01S00711.253l688 +++| MX6 24 09527 M01S00712.253l688 +++| FJE1 SA1 B6+ 09528 M01S00713.253l688 +++| BX2 X1-X5 09529 M01S00714.253l688 +++| BX7 X6*X2 09530 M01S00715.253l688 +++| ZR X7,FJEX IF JSN MATCHES 09531 M01S00716.253l688 +++| SB6 B6-B1 09532 M01S00717.253l688 +++| GE B6,B5,FJE1 IF MORE ENTRIES TO EXAMINE 09533 M01S00718.253l688 +++| EQ FJEX RETURN (ENTRY NOT FOUND) 09534 M01S00719.253l688 +++| IRE SPACE 4,20 09535 M01S00720.253l688 +++|** IRE - ISSUE ROLLIN EVENT AND/OR INITIATE STAGE JOB. 09536 M00S02937.magnet +++|*
| Line S02938 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09537 M01S02938.253l688 ---|* CALLS SYS=.
| Line S00721 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09538 M01S00721.253l688 +++|* CHECK FLAGS ONLY WHEN TWO SECOND INTERVAL HAS ELAPSED. 09539 M01S00722.253l688 +++|* 09540 M01S00723.253l688 +++|* ENTRY (ROLF) .NE. 0 IF ROLLIN EVENT TO BE ISSUED. 09541 M01S00724.253l688 +++|* (SJIF) .NE. 0 IF STAGING JOB TO BE INITIATED.
| Line S02058 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09542 M01S02058.274l797 +++|* (X5) = *ITIM* SET FOR 2 SECOND INTERVAL TEST.
| Line S00725 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09543 M01S00725.253l688 +++|* 09544 M01S00726.253l688 +++|* EXIT (ROLF) = 0 IF ROLLIN EVENT ISSUED. 09545 M01S00727.253l688 +++|* (SJIF) = 0 IF STAGING JOB INITIATED.
| Line S02059 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09546 M01S02059.274l797 +++|* (X5) = *ITIM* SET FOR 2 SECOND INTERVAL TEST.
| Line S00728 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09547 M01S00728.253l688 +++|* 09548 M01S00729.253l688 +++|* USES X - 1, 2, 4, 6. 09549 M01S00730.253l688 +++|* A - 1, 2, 4, 6. 09550 M01S00731.253l688 +++|* 09551 M01S00732.253l688 +++|* CALLS ISJ. 09552 M01S00733.253l688 +++|* 09553 M01S00734.253l688 +++|* MACROS EESET. 09554 M00S02939.magnet +++| 09555 M00S02940.magnet +++|
| Line S02941 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09556 M01S02941.253l688 ---| RCL1 LX6 42 PROCESS REQUEST 09557 M01S02942.253l688 ---| RJ SYS=
| Line S00735 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09558 M01S00735.253l688 +++| IRE SUBR ENTRY/EXIT
| Line S00736 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09559 M02S00736.274l797 ---| SA1 ITIM CHECK ELAPSED SECONDS 09560 M02S00737.274l797 ---| LX1 59-2 09561 M02S00738.274l797 ---| PL X1,IREX IF NOT 2 SECONDS 09562 M00S02943.magnet +++|
| Line S02944 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09563 M01S02944.253l688 ---| RCL= SUBR ENTRY/EXIT 09564 M01S02945.253l688 ---| SX6 3RRCL FORM RECALL REQUEST 09565 M01S02946.253l688 ---| EQ RCL1 PROCESS REQUEST 09566 M01S02947.253l688 ---| SYS SPACE 4,10 09567 M01S02948.253l688 ---|** SYS - PROCESS SYSTEM REQUEST.
| Line S00739 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09568 M01S00739.253l688 +++|* ISSUE EVENT TO ROLL IN EXISTING STAGE JOB. 09569 M01S00740.253l688 +++| 09570 M01S00741.253l688 +++| SA2 ROLF CHECK *ROLLIN REQUESTED* FLAG 09571 M01S00742.253l688 +++| ZR X2,IRE1 IF ROLLIN NOT REQUESTED 09572 M01S00743.253l688 +++| SX6 B0+ CLEAR FLAG 09573 M01S00744.253l688 +++| SA6 A2 09574 M01S00745.253l688 +++| EESET /EVENT/VSNE+7777B ISSUE ROLLIN EVENT 09575 M01S00746.253l688 +++| 09576 M01S00747.253l688 +++|* INITIATE NEW STAGE JOB. 09577 M01S00748.253l688 +++| 09578 M01S00749.253l688 +++| IRE1 SA4 SJIF 09579 M01S00750.253l688 +++| ZR X4,IREX IF STAGE JOB INITIATION NOT REQUESTED 09580 M01S00751.253l688 +++| RJ ISJ INITIATE NEW STAGE JOB 09581 M01S00752.253l688 +++| EQ IREX RETURN 09582 M01S00753.253l688 +++| ISJ SPACE 4,20 09583 M01S00754.253l688 +++|** ISJ - INITIATE STAGING JOB. 09584 M00S02949.magnet +++|*
| Line S02950 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09585 M01S02950.253l688 ---|* ENTRY (X6) = SYSTEM REQUEST.
| Line S00755 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09586 M01S00755.253l688 +++|* INITIATE A STAGE JOB UNLESS ANY OF THE FOLLOWING ARE TRUE. 09587 M01S00756.253l688 +++|* A STAGE JOB ALREADY HAS THIS VSN ASSIGNED. 09588 M01S00757.253l688 +++|* A STAGE JOB IS CURRENTLY IN INITIALIZATION. 09589 M01S00758.253l688 +++|* ALL POSSIBLE STAGE JOBS ARE ALREADY ACTIVE. 09590 M00S02951.magnet +++|*
| Line S02952 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09591 M01S02952.253l688 ---|* EXIT REQUEST PROCESSED.
| Line S00759 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09592 M02S00759.274l797 ---|* ENTRY (X4) = 36/ ,24/ PACKED VSN
| Line S02060 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09593 M01S02060.274l797 +++|* ENTRY (X4) = 34/0,1/ MEDIUM,1/0,24/ PACKED VSN
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2661 |
Seq # *Modification Id* Act ----------------------------+ 09594 M01S00001.ns2661 +++|* (X4) .LT. 0, IF SPECIAL STAGING JOB TO BE INITIATED, 09595 M01S00002.ns2661 +++|* OR IF JOB TO BE INITIATED FOR ANY VSN. 09596 M00S02953.magnet +++|*
| Line S02954 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09597 M01S02954.253l688 ---|* USES A - 6.
| Line S00760 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09598 M01S00760.253l688 +++|* EXIT (SJIF) = 0, IF STAGE JOB INITIATED OR NOT NEEDED. 09599 M01S00761.253l688 +++|* (SJIF) = VSN, IF INITIATION SHOULD BE RETRIED LATER. 09600 M01S00762.253l688 +++|* (ROLF) .NE. 0, IF ANOTHER JOB IS IN INITIALIZATION. 09601 M01S00763.253l688 +++|* 09602 M01S00764.253l688 +++|* USES X - 1, 2, 3, 4, 6, 7.
| Line S00765 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09603 M02S00765.274l797 ---|* A - 1, 2, 6. 09604 M02S00766.274l797 ---|* B - 4, 5, 6, 7.
| Line S02061 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09605 M01S02061.274l797 +++|* A - 1, 2, 3, 6. 09606 M01S02062.274l797 +++|* B - 3, 4, 5, 6, 7.
| Line S00767 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09607 M01S00767.253l688 +++|* 09608 M01S00768.253l688 +++|* MACROS ROUTE, WRITER. 09609 M00S02955.magnet +++| 09610 M00S02956.magnet +++|
| Line S00769 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09611 M01S00769.253l688 +++| ISJ8 SX6 B1+ SET ROLLIN FLAG 09612 M01S00770.253l688 +++| SA6 ROLF 09613 M01S00771.253l688 +++| 09614 M01S00772.253l688 +++| ISJ SUBR ENTRY/EXIT 09615 M01S00773.253l688 +++| BX6 X4 SAVE VSN IN CASE UNABLE TO START JOB 09616 M01S00774.253l688 +++| SA6 SJIF
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09617 M01S00001.magne18 +++| SB3 B0 SET TO TAPE FOR SPECIAL STAGING JOB 09618 M01S00002.magne18 +++| NG X4,ISJ0 IF SPECIAL STAGING JOB
| Line S02063 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09619 M01S02063.274l797 +++| MX3 -1 09620 M01S02064.274l797 +++| LX6 59-25+1 POSITION MEDIUM FLAG 09621 M01S02065.274l797 +++| BX6 -X3*X6
| Line S02066 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09622 M02S02066.magne18 ---| SB3 X6 0 = TAPE, 1 = OPTICAL DISK
| Line S00775 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09623 M02S00775.magne18 ---| TB5 0,TAJP FWA OF ACTIVE STAGE JOB TABLE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09624 M01S00003.magne18 +++| SB3 X6+ 0 = TAPE, 1 = OPTICAL DISK 09625 M01S00004.magne18 +++| ISJ0 TB5 0,TAJP FWA OF ACTIVE STAGE JOB TABLE
| Line S00776 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09626 M01S00776.253l688 +++| TB7 -1,TAJP,LWA LAST ENTRY IN TABLE
| Line S00777 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09627 M02S00777.magne18 ---| SB6 B5
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09628 M01S00005.magne18 +++| SB6 B5+
| Line S00778 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09629 M02S00778.274l797 ---| MX3 -24
| Line S02067 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09630 M01S02067.274l797 +++| SA3 ISJH
| Line S00779 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09631 M02S00779.magne18 ---| SB4 B0 SET AVAILABLE ENTRY NOT FOUND
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | magne18 |
Seq # *Modification Id* Act ----------------------------+ 09632 M01S00006.magne18 +++| SB4 B0+ SET AVAILABLE ENTRY NOT FOUND
| Line S00780 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09633 M02S00780.274l797 ---| BX4 -X3*X4 ISOLATE VSN
| Line S02068 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09634 M01S02068.274l797 +++| BX4 X3*X4 ISOLATE VSN/MEDIUM FLAG 09635 M00S02957.magnet +++|
| Line S02958 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09636 M01S02958.253l688 ---| SYS1 XJ
| Line S00781 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09637 M01S00781.253l688 +++|* LOOK FOR AVAILABLE STAGING JOB. 09638 M00S02959.magnet +++|
| Line S02960 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09639 M01S02960.253l688 ---| SYS= SUBR ENTRY/EXIT 09640 M01S02961.253l688 ---| SA6 B1 ENTER REQUEST 09641 M01S02962.253l688 ---| EQ SYS1 CHECK REQUEST COMPLETE 09642 M01S02963.253l688 ---| TITLE REQUEST PROCESSORS.
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09643 M01S00782.253l688 +++| ISJ1 SA1 B6+ LOAD JOB TABLE ENTRY 09644 M01S00783.253l688 +++| NZ X1,ISJ2 IF ENTRY IN USE 09645 M01S00784.253l688 +++| NZ B4,ISJ2 IF AVAILABLE ENTRY ALREADY FOUND 09646 M01S00785.253l688 +++| SB4 B6+ SAVE ADDRESS OF AVAILABLE ENTRY
| Line S00786 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09647 M02S00786.274l797 ---| ISJ2 BX6 -X3*X1 ISOLATE VSN
| Line S02069 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09648 M01S02069.274l797 +++| ISJ2 BX6 X3*X1 ISOLATE VSN/MEDIUM FLAG
| Line S00787 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09649 M01S00787.253l688 +++| BX7 X6-X4 09650 M01S00788.253l688 +++| ZR X7,ISJ7 IF MATCHING VSN FOUND 09651 M01S00789.253l688 +++| LX1 59-24 09652 M01S00790.253l688 +++| PL X1,ISJ3 IF JOB NOT IN INITIALIZATION
| Line S02070 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09653 M01S02070.274l797 +++| NE B3,ISJ3 IF OPTICAL DISK STAGING
| Line S00791 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09654 M01S00791.253l688 +++| SB4 -B6 INDICATE JOB IN INITIALIZATION FOUND 09655 M01S00792.253l688 +++| ISJ3 SB6 B6+1 09656 M01S00793.253l688 +++| LE B6,B7,ISJ1 IF MORE ENTRIES TO EXAMINE 09657 M01S00794.253l688 +++| NG B4,ISJ8 IF JOB IN INITIALIZATION FOUND 09658 M01S00795.253l688 +++| NZ B4,ISJ4 IF AVAILABLE ENTRY FOUND 09659 M01S00796.253l688 +++| EQ ISJX RETURN 09660 M01S00797.253l688 +++| 09661 M01S00798.253l688 +++|* INITIATE NEW STAGING JOB. 09662 M01S00799.253l688 +++|
| Line S00800 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09663 M02S00800.274l797 ---| ISJ4 SA1 ISJE SET *NORMAL* STAGING JOB 09664 M02S00801.274l797 ---| NE B4,B5,ISJ5 IF NOT SPECIAL STAGING JOB 09665 M02S00802.274l797 ---| SA1 ISJF SET *SPECIAL* STAGING JOB
| Line S02071 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09666 M01S02071.274l797 +++| ISJ4 SA1 ISJE *STAGE,S* 09667 M01S02072.274l797 +++| EQ B4,B5,ISJ5 IF SPECIAL STAGING JOB 09668 M01S02073.274l797 +++| SA1 A1+B1 *STAGE* 09669 M01S02074.274l797 +++| EQ B3,ISJ5 IF NORMAL STAGING JOB FROM TAPE 09670 M01S02075.274l797 +++| SA1 A1+B1 *STAGE,O*
| Line S00803 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09671 M01S00803.253l688 +++| ISJ5 BX6 X1 09672 M01S00804.253l688 +++| SA6 ISJC SET TYPE OF STAGING JOB 09673 M01S00805.253l688 +++| REWIND ISJA,R 09674 M01S00806.253l688 +++| SX6 ISJB+ISJBL FILL BUFFER BY SETTING *IN* 09675 M01S00807.253l688 +++| SA6 X2+2 09676 M01S00808.253l688 +++| WRITER X2,R FLUSH BUFFER 09677 M01S00809.253l688 +++| SA1 X2 SET FILE NAME INTO *DSP* BLOCK 09678 M01S00810.253l688 +++| SA2 ISJD 09679 M01S00811.253l688 +++| MX7 42 09680 M01S00812.253l688 +++| BX1 X7*X1 09681 M01S00813.253l688 +++| SX7 7776B CLEAR OLD ERROR CODE AND COMPLETE BIT 09682 M01S00814.253l688 +++| BX2 X7*X2 09683 M01S00815.253l688 +++| BX6 X1+X2 09684 M01S00816.253l688 +++| SA6 A2 09685 M01S00817.253l688 +++| ROUTE ISJD,R ROUTE JOB TO INPUT QUEUE 09686 M01S00818.253l688 +++| 09687 M01S00819.253l688 +++|* SET JSN IN ACTIVE STAGING JOB TABLE ENTRY. 09688 M01S00820.253l688 +++| 09689 M01S00821.253l688 +++| ISJ6 SA1 ISJD GET ACTUAL JSN FROM *DSP* BLOCK 09690 M01S00822.253l688 +++| MX6 24 09691 M01S00823.253l688 +++| BX6 X6*X1
| Line S02076 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09692 M01S02076.274l797 +++| NE B3,ISJ6.1 IF OPTICAL DISK STAGING
| Line S00824 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09693 M01S00824.253l688 +++| SX7 B1 SET *INITIALIZATION IN PROGRESS* FLAG 09694 M01S00825.253l688 +++| LX7 24-0 09695 M01S00826.253l688 +++| BX6 X6+X7
| Line S00827 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09696 M02S00827.274l797 ---| SA6 B4 SET JSN INTO ACTIVE JOB TABLE ENTRY
| Line S02077 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09697 M01S02077.274l797 +++| ISJ6.1 EQ B4,B5,ISJ6.2 IF SPECIAL STAGING JOB 09698 M01S02078.274l797 +++| EQ B3,ISJ6.2 IF TAPE STAGING 09699 M01S02079.274l797 +++| SA1 SJIF 09700 M01S02080.274l797 +++| BX6 X1+X6 SET ASSIGNED VSN IN JOB TABLE 09701 M01S02081.274l797 +++| ISJ6.2 SA6 B4
| Line S00828 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09702 M01S00828.253l688 +++| NE B4,B5,ISJ7 IF NOT SPECIAL STAGING JOB 09703 M01S00829.253l688 +++| MX2 -24 09704 M01S00830.253l688 +++| BX6 -X2+X6 SET VSN IN FORCE = 77777777B 09705 M01S00831.253l688 +++| SA6 B4
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2661 |
Seq # *Modification Id* Act ----------------------------+ 09706 M01S00003.ns2661 +++| SA1 SJIF CHECK IF NORMAL STAGE REQUEST PENDING 09707 M01S00004.ns2661 +++| PL X1,ISJX IF NORMAL REQUEST PENDING, RETRY LATER
| Line S00832 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09708 M01S00832.253l688 +++| ISJ7 BX6 X6-X6 CLEAR *SJIF* 09709 M01S00833.253l688 +++| SA6 SJIF 09710 M01S00834.253l688 +++| EQ ISJX RETURN 09711 M01S00835.253l688 +++| 09712 M01S00836.253l688 +++| 09713 M01S00837.253l688 +++| ISJA BSS 0 09714 M01S00838.253l688 +++| ZZZJOB FILEC ISJB,ISJBL+1 09715 M01S00839.253l688 +++| 09716 M01S00840.253l688 +++| ISJB DATA C*STAGING.* 09717 M01S00841.253l688 +++| DATA C*NORERUN.* 09718 M01S00842.253l688 +++| DATA C*GET,STAGE/NA.* 09719 M01S00843.253l688 +++| ISJC DATA C*STAGE,X.* 09720 M01S00844.253l688 +++| ISJBL EQU *-ISJB 09721 M01S00845.253l688 +++| 09722 M01S00846.253l688 +++| ISJD BSS 0 *DSP* BLOCK 09723 M01S00847.253l688 +++| VFD 42/0LZZZJOB,6/0,1/1,4/0,6/SYOT,1/0 09724 M01S00848.253l688 +++| VFD 24/0,12/2RNO,3/0,1/1,2/0,18/1S17+1S12+1S4 09725 M01S00849.253l688 +++| VFD 60/0 09726 M01S00850.253l688 +++| VFD 60/0 09727 M01S00851.253l688 +++| VFD 12/0,12/2RCT,36/0 09728 M01S00852.253l688 +++| VFD 60/0 09729 M01S00853.253l688 +++| VFD 60/0 09730 M01S00854.253l688 +++|
| Line S00855 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09731 M02S00855.274l797 ---| ISJE DATA C*STAGE.* NORMAL STAGING JOB 09732 M02S00856.274l797 ---| ISJF DATA C*STAGE,S.* SPECIAL STAGING JOB
| Line S02082 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09733 M01S02082.274l797 +++| ISJE DATA C*STAGE,S.* SPECIAL STAGING JOB 09734 M01S02083.274l797 +++| ISJF DATA C*STAGE.* NORMAL STAGING JOB (TAPE) 09735 M01S02084.274l797 +++| ISJG DATA C*STAGE,O.* NORMAL STAGING JOB (OPTICAL DISK) 09736 M01S02085.274l797 +++| ISJH CON 00000000000277777777B
| Line S00857 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09737 M01S00857.253l688 +++| ISM SPACE 4,15 09738 M01S00858.253l688 +++|** ISM - ISSUE STATISTICAL MESSAGE. 09739 M01S00859.253l688 +++|* 09740 M01S00860.253l688 +++|* ENTRY (A5) = FWA OF *PFM* STAGE REQUEST. 09741 M01S00861.253l688 +++|* 09742 M01S00862.253l688 +++|* USES X - 0, 1, 6. 09743 M01S00863.253l688 +++|* A - 1. 09744 M01S00864.253l688 +++|* B - 2, 3, 5. 09745 M01S00865.253l688 +++|* 09746 M01S00866.253l688 +++|* CALLS CDD, COD, SNM. 09747 M01S00867.253l688 +++|* 09748 M01S00868.253l688 +++|* MACROS MESSAGE. 09749 M01S00869.253l688 +++| 09750 M01S00870.253l688 +++| 09751 M01S00871.253l688 +++| ISM SUBR ENTRY/EXIT
| Line S00872 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09752 M02S00872.274l797 ---| SA1 A5+2 GET PERMANENT FILE NAME
| Line S02086 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09753 M01S02086.274l797 +++| SB5 -ISMA SET UP FOR TAPE REQUEST 09754 M01S02087.274l797 +++| SB3 ISMB 09755 M01S02088.274l797 +++| SA1 A5 CHECK TYPE OF REQUEST 09756 M01S02089.274l797 +++| AX1 54 09757 M01S02090.274l797 +++| SX1 X1-2 09758 M01S02091.274l797 +++| NZ X1,ISM1 IF NOT OPTICAL DISK REQUEST 09759 M01S02092.274l797 +++| SA1 A5+1 GET ARCHIVE FILE VERSION NUMBER 09760 M01S02093.274l797 +++| MX0 -12 09761 M01S02094.274l797 +++| AX1 24 09762 M01S02095.274l797 +++| BX1 -X0*X1 09763 M01S02096.274l797 +++| RJ CDD CONVERT TO DECIMAL DISPLAY 09764 M01S02097.274l797 +++| SB2 B2-B1 09765 M01S02098.274l797 +++| MX1 1 GENERATE CHARACTER MASK 09766 M01S02099.274l797 +++| AX1 B2 09767 M01S02100.274l797 +++| BX1 X1*X4 REMOVE SPACES 09768 M01S02101.274l797 +++| SB5 -ISMC 09769 M01S02102.274l797 +++| SB3 ISMB 09770 M01S02103.274l797 +++| SB2 1R+ 09771 M01S02104.274l797 +++| RJ SNM SET VERSION NUMBER INTO MESSAGE 09772 M01S02105.274l797 +++| SB5 ISMB 09773 M01S02106.274l797 +++| ISM1 SA1 A5+2 GET PERMANENT FILE NAME
| Line S00873 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09774 M01S00873.253l688 +++| MX0 42 09775 M01S00874.253l688 +++| BX1 X0*X1
| Line S00875 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09776 M02S00875.274l797 ---| SB3 ISMB 09777 M02S00876.274l797 ---| SB5 -ISMA
| Line S00877 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09778 M01S00877.253l688 +++| SB2 1R# 09779 M01S00878.253l688 +++| RJ SNM SET PERMANENT FILE NAME INTO MESSAGE 09780 M01S00879.253l688 +++| SA1 A5+2 GET USER INDEX 09781 M01S00880.253l688 +++| BX1 -X0*X1 09782 M01S00881.253l688 +++| RJ COD CONVERT TO OCTAL DISPLAY 09783 M01S00882.253l688 +++| SB2 B2-B1 09784 M01S00883.253l688 +++| MX1 1 GENERATE CHARACTER MASK 09785 M01S00884.253l688 +++| AX1 B2
| Line S00885 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09786 M02S00885.274l797 ---| BX1 X1*X4 REMOVE SPACES SPACES
| Line S02107 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09787 M01S02107.274l797 +++| BX1 X1*X4 REMOVE SPACES
| Line S00886 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09788 M01S00886.253l688 +++| SB5 ISMB 09789 M01S00887.253l688 +++| SB2 1R$ 09790 M01S00888.253l688 +++| RJ SNM SET USER INDEX INTO MESSAGE 09791 M01S00889.253l688 +++| SA1 A5+4 GET FAMILY/PACK NAME 09792 M01S00890.253l688 +++| BX1 X0*X1 09793 M01S00891.253l688 +++| SB2 1R& 09794 M01S00892.253l688 +++| RJ SNM SET FAMILY/PACK NAME INTO MESSAGE 09795 M01S00893.253l688 +++| SA1 A5+B1 GET VSN SUFFIX 09796 M01S00894.253l688 +++| MX0 -12 09797 M01S00895.253l688 +++| BX1 -X0*X1 09798 M01S00896.253l688 +++| SX1 X1+10000D FORCE LEADING ZEROES 09799 M01S00897.253l688 +++| RJ CDD CONVERT TO DECIMAL DISPLAY 09800 M01S00898.253l688 +++| MX0 -24 09801 M01S00899.253l688 +++| BX6 -X0*X6 09802 M01S00900.253l688 +++| LX6 24 09803 M01S00901.253l688 +++| SA1 A5+B1 GET VSN PREFIX 09804 M01S00902.253l688 +++| MX0 12 09805 M01S00903.253l688 +++| LX1 36 09806 M01S00904.253l688 +++| BX1 X0*X1 09807 M01S00905.253l688 +++| BX1 X1+X6 COMBINE VSN PREFIX AND SUFFIX 09808 M01S00906.253l688 +++| SB2 1R- 09809 M01S00907.253l688 +++| RJ SNM SET VSN INTO MESSAGE 09810 M01S00908.253l688 +++| SA1 A5+7 GET RETRY COUNT 09811 M01S00909.253l688 +++| AX1 36 09812 M01S00910.253l688 +++| RJ CDD CONVERT TO DECIMAL DISPLAY 09813 M01S00911.253l688 +++| MX0 -6 MASK TO ONE DIGIT 09814 M01S00912.253l688 +++| BX1 -X0*X6 09815 M01S00913.253l688 +++| LX1 -6 LEFT JUSTIFY 09816 M01S00914.253l688 +++| SB2 1R= 09817 M01S00915.253l688 +++| RJ SNM SET RETRY COUNT INTO MESSAGE 09818 M01S00916.253l688 +++| MESSAGE ISMB,5 ISSUE STATISTICAL MESSAGE TO ACCOUNT FILE 09819 M01S00917.253l688 +++| EQ ISMX RETURN 09820 M01S00918.253l688 +++| 09821 M01S00919.253l688 +++| 09822 M01S00920.253l688 +++| ISMA DATA C*STBS, #######, $$$$$$, &&&&&&&, ------, =.* 09823 M01S00921.253l688 +++|* DATA C*STBS, FILENAM, USERIN, FAMPACK, VSNVSN, R.* 09824 M01S00922.253l688 +++| ISMAL EQU *-ISMA LENGTH OF MESSAGE 09825 M01S00923.253l688 +++| ISMB BSS ISMAL MESSAGE ASSEMBLY BUFFER
| Line S02108 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09826 M01S02108.274l797 +++| ISMC DATA C*SOBS, #######, $$$$$$, &&&&&&&, ------, ++++, =.* 09827 M01S02109.274l797 +++|* DATA C*SOBS, FILENAM, USERIN, FAMPACK, VSNVSN, VERS, R.*
| Line S00924 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09828 M01S00924.253l688 +++| QPR SPACE 4,20 09829 M01S00925.253l688 +++|** QPR - QUEUE *PFM* REQUEST. 09830 M01S00926.253l688 +++|* 09831 M01S00927.253l688 +++|* ENTRY (A5) = FWA OF REQUEST BLOCK (IF FROM *PFM*). 09832 M01S00928.253l688 +++|* (A5) = FWA+1 OF REQUEST BLOCK (IF FROM A CPU PROGRAM). 09833 M01S00929.253l688 +++|* (X5) = FIRST WORD OF REQUEST. 09834 M01S00930.253l688 +++|* IN BOTH ENTRIES, (A5) POINTS TO THE FIRST WORD OF THE 09835 M01S00931.253l688 +++|* *PFM* *TDAM* ENTRY. IF THE REQUEST COMES FROM A CPU 09836 M01S00932.253l688 +++|* PROGRAM, THE LAST WORD IS REFORMATTED AND MOVED TO THE 09837 M01S00933.253l688 +++|* FRONT OF THE *SIC* BLOCK. THIS IS TO ACCOMODATE *SIC*. 09838 M01S00934.253l688 +++|* 09839 M01S00935.253l688 +++|* EXIT REQUEST CLEARED (IF (A5) = PFTB). 09840 M01S00936.253l688 +++|* 09841 M01S00937.253l688 +++|* USES X - 0, 1, 2, 3, 4, 6, 7.
| Line S00938 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09842 M02S00938.274l797 ---|* A - 1, 2, 3, 6, 7.
| Line S02110 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09843 M01S02110.274l797 +++|* A - 1, 2, 3, 4, 6, 7.
| Line S00939 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09844 M01S00939.253l688 +++|* B - 2, 3, 4. 09845 M01S00940.253l688 +++|*
| Line S00941 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09846 M02S00941.274l797 ---|* CALLS ISM.
| Line S02111 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09847 M01S02111.274l797 +++|* CALLS ISJ, ISM.
| Line S00942 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09848 M01S00942.253l688 +++|* 09849 M01S00943.253l688 +++|* MACROS PDATE. 09850 M01S00944.253l688 +++| 09851 M01S00945.253l688 +++| 09852 M01S00946.253l688 +++| QPR SUBR ENTRY/EXIT 09853 M01S00947.253l688 +++| ZR X5,QPRX IF NO REQUEST 09854 M01S00948.253l688 +++| PDATE A5+7 ADD CURRENT DATE AND TIME TO REQUEST 09855 M01S00949.253l688 +++| SX2 A5-PFTB CHECK IF *PFM* REQUEST 09856 M01S00950.253l688 +++| ZR X2,QPR1 IF *PFM* CALL 09857 M01S00951.253l688 +++| 09858 M01S00952.253l688 +++|* PROCESS RE-REQUEST. 09859 M01S00953.253l688 +++| 09860 M01S00954.253l688 +++| SA1 A5-B1 RETRIEVE RETRY INFORMATION 09861 M01S00955.253l688 +++| SA2 A5+7 MERGE WITH PACKED DATE AND TIME 09862 M01S00956.253l688 +++| MX6 24 09863 M01S00957.253l688 +++| LX1 12 09864 M01S00958.253l688 +++| BX6 X6*X1 09865 M01S00959.253l688 +++| BX6 X6+X2 09866 M01S00960.253l688 +++| SA6 A2 UPDATE RETRY INFORMATION 09867 M01S00961.253l688 +++| 09868 M01S00962.253l688 +++|* MERGE UNIQUE ID INTO REQUEST. 09869 M01S00963.253l688 +++| 09870 M01S00964.253l688 +++| QPR1 SA2 QPRA ADVANCE UNIQUE ID COUNTER 09871 M01S00965.253l688 +++| MX0 -30 09872 M01S00966.253l688 +++| SX7 X2+2 INCREMENT VALUE 09873 M01S00967.253l688 +++| BX6 -X0*X7 ASSURE NO OVERFLOW 09874 M01S00968.253l688 +++| SA7 A2 09875 M01S00969.253l688 +++| SA6 A5+6 SET UNIQUE ID INTO BLOCK
| Line S02112 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09876 M01S02112.274l797 +++| RJ ISM ISSUE STATISTICAL MESSAGE
| Line S00970 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
M02 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09877 M02S00970.274l797 ---| RJ ISM ISSUE STATISTICAL MESSAGE
| Line S00971 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09878 M01S00971.253l688 +++| 09879 M01S00972.253l688 +++|* MOVE REQUEST INTO *PFRT* TABLE. 09880 M01S00973.253l688 +++| 09881 M01S00974.253l688 +++| SA3 TSRL GET CURRENT LENGTH 09882 M01S00975.253l688 +++| SA2 A3+B1 GET FWA OF TABLE 09883 M01S00976.253l688 +++| IX4 X3+X2 09884 M01S00977.253l688 +++| SB2 X2 SET FWA 09885 M01S00978.253l688 +++| SB3 X3 SET LENGTH 09886 M01S00979.253l688 +++| SB4 -PFTBL SET CURRENT OFFSET 09887 M01S00980.253l688 +++| QPR2 SB4 B4+PFTBL 09888 M01S00981.253l688 +++| GE B4,B3,QPR3 IF END OF TABLE 09889 M01S00982.253l688 +++| SA1 B2+B4 09890 M01S00983.253l688 +++| NZ X1,QPR2 IF NOT FREE SLOT 09891 M01S00984.253l688 +++| SX4 A1 SET ADDRESS OF SLOT 09892 M01S00985.253l688 +++| QPR3 SA1 A5 TRANSFER REQUEST ENTRY 09893 M01S00986.253l688 +++| SA2 A1+B1 MOVE WORDS 0 AND 1 09894 M01S00987.253l688 +++| BX6 X1 09895 M01S00988.253l688 +++| LX7 X2 09896 M01S00989.253l688 +++| SA1 A2+B1 MOVE WORDS 2 AND 3 09897 M01S00990.253l688 +++| SA2 A1+B1 09898 M01S00991.253l688 +++| SA6 X4 09899 M01S00992.253l688 +++| SA7 A6+B1 09900 M01S00993.253l688 +++| BX6 X1 09901 M01S00994.253l688 +++| LX7 X2 09902 M01S00995.253l688 +++| SA1 A2+B1 MOVE WORDS 4 AND 5 09903 M01S00996.253l688 +++| SA2 A1+B1 09904 M01S00997.253l688 +++| SA6 A7+B1 09905 M01S00998.253l688 +++| SA7 A6+B1 09906 M01S00999.253l688 +++| BX6 X1 09907 M01S01000.253l688 +++| LX7 X2 09908 M01S01001.253l688 +++| SA1 A2+B1 MOVE WORDS 6 AND 7 09909 M01S01002.253l688 +++| SA2 A1+B1 09910 M01S01003.253l688 +++| SA6 A7+B1 09911 M01S01004.253l688 +++| SA7 A6+B1 09912 M01S01005.253l688 +++| BX6 X1 09913 M01S01006.253l688 +++| LX7 X2 09914 M01S01007.253l688 +++| SA6 A7+B1 09915 M01S01008.253l688 +++| SA7 A6+B1 09916 M01S01009.253l688 +++| LT B4,B3,QPR4 IF NOT EXTENDING TABLE 09917 M01S01010.253l688 +++| 09918 M01S01011.253l688 +++|* CHECK IF ADDITIONAL MEMORY NEEDED. 09919 M01S01012.253l688 +++| 09920 M01S01013.253l688 +++| SA2 FLST CHECK AVAILABLE MEMORY 09921 M01S01014.253l688 +++| SX6 B3+PFTBL 09922 M01S01015.253l688 +++| SX7 X6+B2 LWA+1 OF TABLE 09923 M01S01016.253l688 +++| AX2 30 09924 M01S01017.253l688 +++| SA6 TSRL UPDATE LENGTH 09925 M01S01018.253l688 +++| SX6 X7+PFTBL*2+77 ALLOW FOR TWO MORE REQUESTS / ROUND UP 09926 M01S01019.253l688 +++| AX6 6 09927 M01S01020.253l688 +++| LX6 6 09928 M01S01021.253l688 +++| IX2 X2-X6 09929 M01S01022.253l688 +++| PL X2,QPR4 IF NO NEED TO GET MORE MEMORY 09930 M01S01023.253l688 +++| SA6 ROLF SET ROLLIN EVENT FLAG 09931 M01S01024.253l688 +++| MEMORY CM,A2,R,X7+MEMI 09932 M01S01025.253l688 +++| 09933 M01S01026.253l688 +++|* INITIATE STAGING JOB TO PROCESS REQUEST. 09934 M01S01027.253l688 +++| 09935 M01S01028.253l688 +++| QPR4 SA4 A5+B1 SET VSN
| Line S02113 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 09936 M01S02113.274l797 +++| SA1 A5 09937 M01S02114.274l797 +++| MX3 -24 09938 M01S02115.274l797 +++| AX1 54 09939 M01S02116.274l797 +++| SX1 X1-1 0 = TAPE, 1 = OPTICAL DISK 09940 M01S02117.274l797 +++| LX1 25 09941 M01S02118.274l797 +++| BX4 -X3*X4 ISOLATE VSN 09942 M01S02119.274l797 +++| BX4 X1+X4 SET MEDIUM FLAG
| Line S01029 Modification History | |
|---|---|
M01 (Added by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09943 M01S01029.253l688 +++| RJ ISJ INITIATE STAGING JOB 09944 M01S01030.253l688 +++| SX6 A5-PFTB 09945 M01S01031.253l688 +++| NZ X6,QPRX IF NOT *PFM* CALL 09946 M01S01032.253l688 +++| SA6 PFTB CLEAR REQUEST 09947 M01S01033.253l688 +++| EQ QPRX RETURN 09948 M01S01034.253l688 +++| 09949 M01S01035.253l688 +++| 09950 M01S01036.253l688 +++| QPRA CON 1 UNIQUE ID = 2*(REQUESTS RECEIVED) + 1 09951 M01S01037.253l688 +++| SPACE 4,10 09952 M01S01038.253l688 +++|* COMMON DECKS FOR TAPE ALTERNATE STORAGE PROCESSING. 09953 M01S01039.253l688 +++| 09954 M01S01040.253l688 +++| 09955 M01S01041.253l688 +++|*CALL COMCCDD 09956 M01S01042.253l688 +++|*CALL COMCCOD 09957 M01S01043.253l688 +++|*CALL COMCCIO 09958 M01S01044.253l688 +++|*CALL COMCSNM 09959 M00S02964.magnet +++| BUFFERS SPACE 4,10 09960 M00S02965.magnet +++| TITLE BUFFER AREA. 09961 M00S02966.magnet +++|** BUFFER ASSIGNMENTS. 09962 M00S02967.magnet +++| 09963 M00S02968.magnet +++| 09964 M00S02969.magnet +++| USE BUFFERS 09965 M00S02970.magnet +++| TDTAB SPACE 4,10
| Line S02971 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09966 M01S02971.253l688 ---|** COMMON DECKS. 09967 M01S02972.253l688 ---|
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2498 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09968 M02S00001.253l688 ---| 09969 M02S00002.253l688 ---|*CALL COMCDCM 09970 M02S00003.253l688 ---|*CALL COMCCPM
| Line S02973 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09971 M01S02973.253l688 ---| 09972 M00S02974.magnet +++| QUAL PRESET 09973 M00S02975.magnet +++| TDTAB BSS 0
| Line S02976 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09974 M01S02976.253l688 ---|
| Line S02977 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09975 M02S02977.253l688 ---|* RESOURCE EQUIVALENCES. MUST BE LOCATED HERE SO THAT 09976 M02S02978.253l688 ---|* GENERATED CODE IS DISCARDED. 09977 M02S02979.253l688 ---|
| Line S02980 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09978 M01S02980.253l688 ---| QUAL COMSRSX 09979 M01S02981.253l688 ---|*CALL COMSRSX 09980 M01S02982.253l688 ---| QUAL * 09981 M01S02983.253l688 ---|
| Line S00782 Modification History | |
|---|---|
M01 (Added by) | 252l678 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09982 M02S00782.253l688 ---| ERRNZ /COMSRSX/PBEL-PBEL COMSMTX/COMSRSX OUT OF SYNC
| Line S02984 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09983 M01S02984.253l688 ---| ERRNZ /COMSRSX/VJID-VJID COMSMTX/COMSRSX OUT OF SYNC 09984 M01S02985.253l688 ---| ERRNZ /COMSRSX/VVSN-VVSN COMSMTX/COMSRSX OUT OF SYNC
| Line S02986 Modification History | |
|---|---|
M01 (Removed by) | ns21000 |
M02 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09985 M02S02986.253l688 ---| 09986 M02S02987.253l688 ---| ORG TDTAB
| Line S02988 Modification History | |
|---|---|
M01 (Removed by) | 253l688 |
Seq # *Modification Id* Act ----------------------------+ 09987 M01S02988.253l688 ---|
Proceed to Part 9
cdc/nos2.source/opl.opl871/deck/magnet.008.txt · Last modified: (external edit)