cdc:nos2.source:opl.opl871:deck:modval.004
Deck MODVAL Part 004
60 Modifications
Listing Sections
- Deck MODVAL Start
- Deck MODVAL Part 1 (Line 1331)
- Deck MODVAL Part 2 (Line 2831)
- Deck MODVAL Part 3 (Line 4292)
- Deck MODVAL Part 4 (Line 5777)
- Deck MODVAL Part 5 (Line 7515)
- Deck MODVAL Part 6 (Line 8503)
- Deck MODVAL Part 7 (Line 9827)
Source
Seq # *Modification Id* Act ----------------------------+ 05777 M01S04805.modval +++| SA6 L.TAB1 CLEAR TABLES 05778 M01S04806.modval +++| SA6 L.TAB2 05779 M01S04807.modval +++| SA6 FFAB
| Line S04808 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva21 |
Seq # *Modification Id* Act ----------------------------+ 05780 M02S04808.modva21 ---| FFA10 MX6 0 CLEAR KEY LOCATIONS - 05781 M01S00028.modva21 +++| FFA10 RJ IAM ISSUE ACCOUNT FILE MESSAGE 05782 M01S00029.modva21 +++| BX6 X6-X6 CLEAR KEY LOCATIONS 05783 M01S04809.modval +++| BX7 X7-X7 05784 M01S04810.modval +++| SA6 CW CONTROL WORD AREA 05785 M01S04811.modval +++| SA6 A6+B1 05786 M01S04812.modval +++| SA7 A6+B1 05787 M01S04813.modval +++| SA6 DANA DELETE FLAG 05788 M01S04814.modval +++| SA7 EF ERROR FLAG 05789 M01S04815.modval +++| SA6 RA2+1 LEVEL-2 LINKAGE 05790 M01S04816.modval +++| SA7 DIPC K-CREATE ONLY FLAG 05791 M01S04817.modval +++| SA6 A7+1 K-UPDATE ONLY FLAG 05792 M01S00030.modva21 +++| SA6 UUFG USER NAME UPDATE FLAG 05793 M01S04818.modval +++| 05794 M01S04819.modval +++| FFA SUBR ENTRY/EXIT 05795 M01S04820.modval +++| SA3 EF CHECK INPUT ERRORS 05796 M01S04821.modval +++| NZ X3,FFA9 IF ERRORS 05797 M01S00045.241l630 +++| CUE$ IFEQ CUE$,2 05798 M01S00046.241l630 +++| 05799 M01S00047.241l630 +++|* ENSURE THAT THE CORRECT SHELL PROGRAM NAME AND THE CORRECT 05800 M01S00048.241l630 +++|* SHELL OPTIONS ARE SET FOR THE CD2000 USER ENVIRONMENT. 05801 M01S00049.241l630 +++| 05802 M01S00050.241l630 +++| SA1 AN GET USER NAME 05803 M01S00051.241l630 +++| MX0 42 05804 M01S00052.241l630 +++| BX1 X0*X1 05805 M01S00053.241l630 +++| SA2 =6LCDCCHS 05806 M01S00054.241l630 +++| BX5 X1-X2 05807 M01S00055.241l630 +++| NZ X5,FFA11 IF USER NAME IS NOT *CDCCHS* 05808 M01S00056.241l630 +++| SA1 FFAE 05809 M01S00057.241l630 +++| EQ FFA13 SET *RMSHELL* AS SHELL PROGRAM NAME 05810 M01S00058.241l630 +++| 05811 M01S00059.241l630 +++| FFA11 SA1 TANB+AUIN GET USER INDEX 05812 M01S00060.241l630 +++| MX0 -18 05813 M01S00061.241l630 +++| BX5 -X0*X1 05814 M01S00062.241l630 +++| SX1 X5-AUIMX 05815 M01S00063.241l630 +++| PL X1,FFA12 IF USER INDEX ABOVE *AUIMX* 05816 M01S00064.241l630 +++| SA1 FFAF 05817 M01S00065.241l630 +++| EQ FFA13 SET *CDSHELL* AS SHELL PROGRAM NAME 05818 M01S00066.241l630 +++| 05819 M01S00067.241l630 +++| FFA12 SA1 FFAG SET NULL SHELL PROGRAM NAME 05820 M01S00068.241l630 +++| FFA13 BX6 X1 SET SHELL PROGRAM NAME AND OPTIONS 05821 M01S00069.241l630 +++| SA6 TANB+ASHN 05822 M01S00070.241l630 +++| CUE$ ENDIF 05823 M01S04822.modval +++| SA1 TANB+ACCN 05824 M01S04823.modval +++| MX0 -18 05825 M01S04824.modval +++| BX5 -X0*X1 05826 M01S04825.modval +++| SX1 X5-AUIMX 05827 M01S04826.modval +++| NG X1,FFA0 IF USER INDEX NOT ABOVE *AUIMX* 05828 M01S04827.modval +++| SA1 FFAC SET ALL SERVICE CLASS VALIDATION FLAGS 05829 M01S04828.modval +++| BX6 X1 05830 M01S04829.modval +++| SA6 TANB+ASCV 05831 M01S04830.modval +++| EQ FFA0.5 CHECK FOR DELETES 05832 M01S04831.modval +++| 05833 M01S04832.modval +++|* ENSURE THAT THE VALIDATION BITS FOR THE USER DEFAULT SERVICE 05834 M01S04833.modval +++|* CLASSES ARE SET IN THE VALIDATION MASK. 05835 M01S04834.modval +++| 05836 M01S04835.modval +++| FFA0 SA3 CHFG 05837 M01S04836.modval +++| SA1 TANB+ASCV 05838 M01S04837.modval +++| NZ X3,FFA0.3 IF NO CHECK TO BE MADE 05839 M01S04838.modval +++| SA5 TANB+ASC1 GET SERVICE CLASS VALIDATION WORDS 05840 M01S04839.modval +++| LX5 11-59 05841 M01S04840.modval +++| SA3 TOSC-1 05842 M01S04841.modval +++| MX0 6 SEARCH TABLE FOR SERVICE CLASS ENTRY 05843 M01S04842.modval +++| LX0 18 05844 M01S04843.modval +++| FFA0.1 SB7 B0 INITIALIZE TABLE INDEX 05845 M01S04844.modval +++| SA3 A3+B1 05846 M01S04845.modval +++| LX5 6 05847 M01S04846.modval +++| SB3 X3 05848 M01S04847.modval +++| ZR X3,FFA0.3 IF END OF TABLE 05849 M01S04848.modval +++| NG B3,FFA0.1 IF ORIGIN TYPE NOT ALLOWED 05850 M01S04849.modval +++| FFA0.2 SA2 TSVM+B7 05851 M01S04850.modval +++| ZR X2,FFA0.1 IF END OF TABLE 05852 M01S04851.modval +++| SA4 TSCV+B7 GET MASK BIT 05853 M01S04852.modval +++| SB7 B7+B1 INCREMENT TABLE INDEX 05854 M01S04853.modval +++| BX3 X2-X5 05855 M01S04854.modval +++| BX3 X0*X3 05856 M01S04855.modval +++| NZ X3,FFA0.2 IF NO MATCH 05857 M01S04856.modval +++| BX1 X4+X1 SET BIT IN VALIDATION MASK 05858 M01S04857.modval +++| EQ FFA0.1 PROCESS NEXT USER DEFAULT 05859 M01S04858.modval +++|
| Line S04859 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva27 |
Seq # *Modification Id* Act ----------------------------+ 05860 M02S04859.modva27 ---| FFA0.3 SA2 FFAD
| Line S04860 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva27 |
Seq # *Modification Id* Act ----------------------------+ 05861 M02S04860.modva27 ---| ZR X2,FFA0.4 IF NOT CREATION RUN 05862 M01S00004.modva27 +++| FFA0.3 SA2 UUFG 05863 M01S00005.modva27 +++| NZ X2,FFA0.4 IF NOT NEW USER NAME 05864 M01S04861.modval +++| SA3 TANB+AHDT CHECK IF *DI* SERVICE CLASS SHOULD BE SET 05865 M01S04862.modval +++| MX0 -6 05866 M01S04863.modval +++| LX3 -18 05867 M01S04864.modval +++| BX4 -X0*X3 05868 M01S04865.modval +++| ZR X4,FFA0.4 IF NO DETACHED JOBS ALLOWED 05869 M01S04866.modval +++| SX2 DIMK SET *DI* SERVICE CLASS VALID 05870 M01S04867.modval +++| BX1 X1+X2 05871 M01S04868.modval +++| FFA0.4 BX7 X1 UPDATE VALIDATION MASK 05872 M01S04869.modval +++| SA7 A1+ 05873 M01S04870.modval +++| 05874 M01S04871.modval +++|* PROCESS DELETES. 05875 M01S04872.modval +++| 05876 M01S04873.modval +++| FFA0.5 SA1 AN CHECK BLOCK IN LEVEL-2 TABLE 05877 M01S04874.modval +++| MX0 42 05878 M01S04875.modval +++| SEARCH TAB2,X1,M 05879 M01S04876.modval +++| SA1 F.TAB2 SAVE RELATIVE POSITION IN TABLE 05880 M01S04877.modval +++| BX5 X2 05881 M01S04878.modval +++| IX7 X7-X1 05882 M01S04879.modval +++| SA3 DANA CHECK DELETED USER NAME 05883 M01S04880.modval +++| SA7 FFAA 05884 M01S04881.modval +++| ZR X3,FFA2 IF NO DELETE 05885 M01S04882.modval +++| ZR X2,FFA1 IF NO MATCH 05886 M01S04883.modval +++| MX6 0 CLEAR LEVEL-2 ENTRY 05887 M01S04884.modval +++| BX7 X2 SAVE USER NAME IN PASSWORD AREA 05888 M01S04885.modval +++| SA6 A2 05889 M01S04886.modval +++| SA7 A2+B1 05890 M01S04887.modval +++| SA1 AN 05891 M01S04888.modval +++| MX0 42 05892 M01S04889.modval +++| SEARCH TAB1,X1,M 05893 M01S04890.modval +++| FFA1 BX1 X2 05894 M01S04891.modval +++| SX2 DMSE * SYSTEM ERROR.* 05895 M01S04892.modval +++| MX6 0 05896 M01S04893.modval +++| ZR X1,ABT IF NO MATCH 05897 M01S04894.modval +++| SA6 X7+ 05898 M01S04895.modval +++| EQ FFA8 COMPLETE DELETE 05899 M01S04896.modval +++| 05900 M01S04897.modval +++|* SET DATA BLOCK IN LEVEL-2 TABLE. 05901 M01S04898.modval +++| 05902 M01S04899.modval +++| FFA2 SA4 OP CHECK OPTION 05903 M01S04900.modval +++| SX4 X4-ROPT 05904 M01S04901.modval +++| SA1 TANB+AUIN SET USER NAME AND USER INDEX 05905 M01S04902.modval +++| ZR X4,FFA3 IF REFORMAT 05906 M01S04903.modval +++| SA3 AN 05907 M01S04904.modval +++| MX0 42 05908 M01S04905.modval +++| BX1 -X0*X1 05909 M01S04906.modval +++| BX3 X0*X3 05910 M01S04907.modval +++| IX6 X1+X3 05911 M01S04908.modval +++| SA3 TANB+ACMD SET LAST MOD DATE 05912 M01S04909.modval +++| SA4 PD 05913 M01S04910.modval +++| BX3 X0*X3 05914 M01S04911.modval +++| BX7 X3+X4 05915 M01S04912.modval +++| SA7 A3 05916 M01S04913.modval +++| SA6 A1 05917 M01S04914.modval +++| NZ X1,FFA3 IF USER INDEX ALREADY ASSIGNED 05918 M01S04915.modval +++| RJ AUI 05919 M01S04916.modval +++| NG X0,FFA4 IF USER INDEX ASSIGNED 05920 M01S04917.modval +++| RJ IDE 05921 M01S04918.modval +++| EQ FFA10 RETURN 05922 M01S04919.modval +++| 05923 M01S04920.modval +++| FFA3 BX0 X0-X0 SET USER INDEX 05924 M01S04921.modval +++| SX6 X1 05925 M01S04922.modval +++| RJ CUI 05926 M01S04923.modval +++| FFA4 NZ X5,FFA6 IF MATCH 05927 M01S04924.modval +++| SA2 L.TAB2 05928 M01S04925.modval +++| SX2 X2-ABLB 05929 M01S04926.modval +++| NG X2,FFA5 IF BLOCK NOT FULL 05930 M01S04927.modval +++| BX6 X6-X6 05931 M01S04928.modval +++| SA6 A2 CLEAR TABLE 05932 M01S04929.modval +++| FFA5 ALLOC TAB2,C.TAB2 05933 M01S04930.modval +++| FFA6 SA3 FFAA SET UPDATED BLOCK 05934 M01S04931.modval +++| SA1 F.TAB2 05935 M01S04932.modval +++| IX3 X3+X1 05936 M01S04933.modval +++| MOVE ARBS,TANB,X3 05937 M01S04934.modval +++| 05938 M01S04935.modval +++|* SET USER NAME. 05939 M01S04936.modval +++| 05940 M01S04937.modval +++| SA1 AN SET FOR LEVEL-1 UPDATE 05941 M01S04938.modval +++| SX2 DMSE * SYSTEM ERROR.* 05942 M01S04939.modval +++| SA3 FFAB-1 05943 M01S04940.modval +++| SB3 ARBB 05944 M01S04941.modval +++| SB2 B0+ 05945 M01S04942.modval +++| BX6 X1 05946 M01S04943.modval +++| FFA7 SB2 B2+B1 05947 M01S04944.modval +++| SA3 A3+B1 05948 M01S04945.modval +++| GT B2,B3,ABT IF TABLE OVERFLOWED 05949 M01S04946.modval +++| NZ X3,FFA7 IF ENTRY USED 05950 M01S04947.modval +++| SA6 A3+ 05951 M01S04948.modval +++| EQ B2,B3,FFA8 IF TABLE FULL 05952 M01S04949.modval +++| SA1 UF CHECK MODE 05953 M01S04950.modval +++| ZR X1,FFA10 IF NOT UPDATE 05954 M01S04951.modval +++| FFA8 RJ WDB WRITE DATA BLOCK 05955 M01S04952.modval +++| EQ FFA10 RETURN 05956 M01S04953.modval +++| 05957 M01S04954.modval +++| 05958 M01S04955.modval +++| FFAA CON 0 HOLD TAB2 ENTRY 05959 M01S04956.modval +++| FFAB BSSZ ARBB+1 HOLD USER NAMES FOR RANDOM ADDRESS 05960 M01S04957.modval +++| FFAC VFD 36/0,12/A2MK,12/A1MK VALIDATION MASK FOR *ALL* 05961 M01S04958.modval +++| FFAD CON 0 CREATION RUN FLAG 05962 M01S00071.241l630 +++| CUE$ IFEQ CUE$,2 05963 M01S00072.241l630 +++| FFAE VFD 42/0LRMSHELL,11/0,7/13B 05964 M01S00073.241l630 +++| FFAF VFD 42/0LCDSHELL,11/0,7/13B 05965 M01S00074.241l630 +++| FFAG VFD 42/0,11/0,7/12B 05966 M01S00075.241l630 +++| CUE$ ENDIF 05967 M01S04959.modval +++| GAE SPACE 4,15 05968 M01S04960.modval +++|** GAE - GET USER ENTRY. 05969 M01S04961.modval +++|* 05970 M01S04962.modval +++|* ENTRY (X4) = USER TO BE SEARCHED FOR. 05971 M01S04963.modval +++|* (A0) = ADDRESS TO START SEARCH. 05972 M01S04964.modval +++|* (GAEA) = ENTRY COUNT. 05973 M01S04965.modval +++|* 05974 M01S04966.modval +++|* EXIT IF ENTRY FOUND. 05975 M01S04967.modval +++|* TO *ABT* IF NOT. 05976 M01S04968.modval +++|* 05977 M01S04969.modval +++|* USES X - 1, 2, 3, 5, 6. 05978 M01S04970.modval +++|* A - 1, 3, 5, 6. 05979 M01S04971.modval +++|* B - 3, 4, 5, 7. 05980 M01S04972.modval +++| 05981 M01S04973.modval +++| 05982 M01S04974.modval +++| GAE3 SA3 B3+B7 MOVE LOOP 05983 M01S04975.modval +++| BX6 X3 05984 M01S04976.modval +++| SA6 TANB+B7 05985 M01S04977.modval +++| SB7 B7+1 05986 M01S04978.modval +++| LT B7,B4,GAE3 IF NOT ALL MOVED 05987 M01S04979.modval +++| 05988 M01S04980.modval +++| GAE SUBR ENTRY/ EXIT 05989 M01S04981.modval +++| SA1 GAEA GET ENTRY COUNT 05990 M01S04982.modval +++| ZR X1,GAE2 IF NO ENTRIES 05991 M01S04983.modval +++| SX2 ARBS WORDS/ ENTRY 05992 M01S04984.modval +++| SB3 A0 FWA 05993 M01S04985.modval +++| SB4 X2 INCREMENT 05994 M01S04986.modval +++| IX2 X2*X1 WORDS IN BLOCK 05995 M01S04987.modval +++| SB7 B0 05996 M01S04988.modval +++| SB5 X2+B3 LIMIT 05997 M01S04989.modval +++| MX1 42 MASK 05998 M01S04990.modval +++| SA5 B3 FIRST WORD 05999 M01S04991.modval +++| GAE1 BX5 X1*X5 06000 M01S04992.modval +++| BX6 X5-X4 06001 M01S04993.modval +++| ZR X6,GAE3 IF HIT 06002 M01S04994.modval +++| SB3 B3+B4 06003 M01S04995.modval +++| SA5 B3 06004 M01S04996.modval +++| LT B3,B5,GAE1 IF MORE TO SEARCH 06005 M01S04997.modval +++| GAE2 SX2 DML2 * LEVEL-2 DATA BASE ERROR.* 06006 M01S04998.modval +++| EQ ABT 06007 M01S04999.modval +++| 06008 M01S05000.modval +++| 06009 M01S05001.modval +++| GAEA BSS 1 ENTRY COUNT 06010 M01S05002.modval +++| GNB SPACE 4,15 06011 M01S05003.modval +++|** GNB - GET NEXT DATA BLOCK. 06012 M01S05004.modval +++|* 06013 M01S05005.modval +++|* ENTRY (X6) = 1 IF INITIAL CALL. 06014 M01S05006.modval +++|* (X6) = 0 IF NOT INITIAL CALL. 06015 M01S05007.modval +++|* (GNBA) = LEVEL-1 BLOCK FUNCTION IN BITS 0-17 AND 06016 M01S05008.modval +++|* BIT 59 SET IF TO CLEAR LEVEL-1 TABLE. 06017 M01S05009.modval +++|* 06018 M01S05010.modval +++|* EXIT (X6) = 0 IF END OF USER ENTRIES. 06019 M01S05011.modval +++|* (TANB) = LEVEL-2 DATA BLOCK USER ENTRY. 06020 M01S05012.modval +++|* 06021 M01S05013.modval +++|* USES X - 0, 1, 2, 3, 5, 6, 7. 06022 M01S05014.modval +++|* A - 0, 1, 2, 6, 7. 06023 M01S05015.modval +++|* B - 4. 06024 M01S05016.modval +++|* 06025 M01S05017.modval +++|* MACROS FUNC, MESSAGE, READ, READW, RECALL. 06026 M01S05018.modval +++| 06027 M01S05019.modval +++| 06028 M01S05020.modval +++| GNB5 SA1 AN CHECK USER NAME 06029 M01S05021.modval +++| SA2 TANB+AUIN 06030 M01S05022.modval +++| MX0 42 06031 M01S05023.modval +++| BX3 X0*X2 06032 M01S05024.modval +++| BX1 X1-X3 06033 M01S05025.modval +++| SX6 X2 06034 M01S05026.modval +++| NZ X1,GNB3 IF NO MATCH 06035 M01S05027.modval +++| ZR X6,GNB4 IF NO USER INDEX 06036 M01S05028.modval +++| 06037 M01S05029.modval +++| GNB SUBR ENTRY/EXIT 06038 M01S05030.modval +++| ZR X6,GNB2 IF NOT INITIAL CALL 06039 M01S05031.modval +++| SA6 RA0+1 SET INITIAL LEVEL-0 RANDOM ADDRESS 06040 M01S05032.modval +++| GNB1 SX0 P 06041 M01S05033.modval +++| SA0 B0+ 06042 M01S05034.modval +++| FUNC PNAT PICK NEXT LEVEL-0 BLOCK 06043 M01S05035.modval +++| ZR X6,GNBX IF END OF USER ENTRIES 06044 M01S05036.modval +++| LX6 X3 06045 M01S05037.modval +++| BX7 X7-X7 06046 M01S05038.modval +++| SA1 GNBA 06047 M01S05039.modval +++| SA6 RA1+1 06048 M01S05040.modval +++| PL X1,GNB2 IF NOT TO CLEAR LEVEL-1 TABLE 06049 M01S05041.modval +++| SA7 L.TAB1 CLEAR LEVEL-1 TABLE 06050 M01S05042.modval +++| GNB2 RECALL P 06051 M01S05043.modval +++| SA1 P+1 06052 M01S05044.modval +++| SX6 X1 06053 M01S05045.modval +++| SA6 A1+B1 06054 M01S05046.modval +++| SA6 A6+B1 06055 M01S05047.modval +++| SA0 B1 06056 M01S05048.modval +++| SX0 P 06057 M01S05049.modval +++| SX5 N 06058 M01S05050.modval +++| SA1 GNBA GET LEVEL-1 BLOCK FUNCTION 06059 M01S05051.modval +++| FUNC X1 06060 M01S05052.modval +++| ZR X6,GNB1 IF END OF BLOCK 06061 M01S05053.modval +++| RECALL P 06062 M01S05054.modval +++| SA2 A3-B1 SET LEVEL-2 ENTRY USER NAME 06063 M01S05055.modval +++| BX6 X2 06064 M01S05056.modval +++| SA6 AN 06065 M01S05057.modval +++| SX6 B1+ SET LEVEL-2 RANDOM ADDRESS 06066 M01S05058.modval +++| LX6 29 06067 M01S05059.modval +++| BX6 X3+X6 06068 M01S05060.modval +++| SA6 P+6 06069 M01S05061.modval +++| READ P 06070 M01S05062.modval +++| READW P,CW,1 06071 M01S05063.modval +++| FUNC CCWT CRACK CONTROL WORD 06072 M01S05064.modval +++| SB4 B4-2 06073 M01S05065.modval +++| NZ B4,GNB4 IF LEVEL NUMBER WRONG 06074 M01S05066.modval +++| READW P,TANB,B2-B1 06075 M01S05067.modval +++| GNB3 READW P,TANB,ARBS 06076 M01S05068.modval +++| ZR X1,GNB5 IF TRANSFER COMPLETE 06077 M01S05069.modval +++| GNB4 MESSAGE DML2,3 * LEVEL-2 DATA BASE ERROR.* 06078 M01S05070.modval +++| EQ GNB2 LOOP FOR NEXT BLOCK 06079 M01S05071.modval +++| 06080 M01S05072.modval +++| 06081 M01S05073.modval +++| GNBA CON 0 LEVEL-1 BLOCK FUNCTION AND CLEAR FLAG 06082 M01S05074.modval +++| RDB SPACE 4,15 06083 M01S05075.modval +++|** RDB - READ DATA BLOCK. 06084 M01S05076.modval +++|* 06085 M01S05077.modval +++|* ENTRY (X5) = RANDOM ADDRESS OF DATA BLOCK. 06086 M01S05078.modval +++|* (RDBA) .NE. 0, IF NOT EXACT HIT. 06087 M01S05079.modval +++|* 06088 M01S05080.modval +++|* EXIT DATA BLOCK READ. 06089 M01S05081.modval +++|* USER ENTRY SET IN *TANB* IF EXACT HIT. 06090 M01S05082.modval +++|* (X1) .NE. 0, IF NOT EXACT HIT. 06091 M01S05083.modval +++|* (X2) = ERROR MESSAGE. 06092 M01S05084.modval +++|* 06093 M01S05085.modval +++|* USES A - ALL. 06094 M01S05086.modval +++|* B - 4. 06095 M01S05087.modval +++|* X - 1, 2, 3, 4, 5, 6, 7. 06096 M01S05088.modval +++|* 06097 M01S05089.modval +++|* CALLS GAE. 06098 M01S05090.modval +++|* 06099 M01S05091.modval +++|* MACROS ALLOC, FUNC, READ, READO, READW, RECALL. 06100 M01S05092.modval +++| 06101 M01S05093.modval +++| 06102 M01S05094.modval +++| RDB SUBR ENTRY/ EXIT 06103 M01S05095.modval +++| RECALL P 06104 M01S05096.modval +++| RECALL N 06105 M01S05097.modval +++| SX7 B1 READ LEVEL-2 BLOCK 06106 M01S05098.modval +++| LX7 29 06107 M01S05099.modval +++| BX6 X7+X5 06108 M01S05100.modval +++| BX7 X5 06109 M01S05101.modval +++| SA6 N+6 06110 M01S05102.modval +++| SA7 RA2 06111 M01S05103.modval +++| MX6 0 06112 M01S05104.modval +++| SA6 A7+B1 06113 M01S05105.modval +++| READ N 06114 M01S05106.modval +++| READO N GET CONTROL WORD 06115 M01S05107.modval +++| SA6 CW 06116 M01S05108.modval +++| FUNC CCWT 06117 M01S05109.modval +++| SB4 B4-B1 CHECK LEVEL NUMBER 06118 M01S05110.modval +++| SX6 B5 06119 M01S05111.modval +++| SA6 GAEA 06120 M01S05112.modval +++| SX2 DML2 * LEVEL-2 DATA BASE ERROR.* 06121 M01S05113.modval +++| NE B1,B4,ABT IF NOT 2 06122 M01S05114.modval +++| ALLOC TAB2,B3 06123 M01S05115.modval +++| READO N 06124 M01S05116.modval +++| READO N 06125 M01S05117.modval +++| SA2 F.TAB2 06126 M01S05118.modval +++| READW N,X2,B3 GET BLOCK 06127 M01S05119.modval +++| SX2 DML2 * LEVEL-2 DATA BASE ERROR.* 06128 M01S05120.modval +++| NZ X1,ABT IF TRANSFER INCOMPLETE 06129 M01S05121.modval +++| SA4 AN 06130 M01S05122.modval +++| SA1 N+2 CHECK WORDS LEFT IN BUFFER 06131 M01S05123.modval +++| SA3 F.TAB2 06132 M01S05124.modval +++| SA5 A1+B1 06133 M01S05125.modval +++| SA0 X3 06134 M01S05126.modval +++| BX1 X1-X5 06135 M01S05127.modval +++| NZ X1,ABT IF WORD COUNT NOT EXACT 06136 M01S05128.modval +++| 06137 M01S05129.modval +++|* SET DATA BLOCK. 06138 M01S05130.modval +++| 06139 M01S05131.modval +++| SA1 RDBA CHECK HIT 06140 M01S05132.modval +++| NZ X1,RDBX IF NOT EXACT 06141 M01S05133.modval +++| RJ GAE GET USER ENTRY 06142 M01S05134.modval +++| MX1 0 SET STATUS 06143 M01S05135.modval +++| EQ RDBX RETURN 06144 M01S05136.modval +++| 06145 M01S05137.modval +++| 06146 M01S05138.modval +++| RDBA CON 1 BLOCK FOUND FLAG 06147 M01S05139.modval +++| WDB SPACE 4,15 06148 M01S05140.modval +++|** WDB - WRITE DATA BLOCK. 06149 M01S05141.modval +++|* 06150 M01S05142.modval +++|* ENTRY (TAB2) = USER ENTRIES IN LEVEL-2 BLOCK. 06151 M01S05143.modval +++|* (FFAB) = USER NAMES IN LEVEL-2 BLOCK. 06152 M01S05144.modval +++|* 06153 M01S05145.modval +++|* EXIT LEVEL-2 BLOCK WRITTEN TO FILE. 06154 M01S05146.modval +++|* *TAB2*, *FFAB*, *RAND*, *RA2*, UPDATED APPROPRIATELY. 06155 M01S05147.modval +++|* 06156 M01S05148.modval +++|* USES X - 0, 1, 4, 5, 6, 7. 06157 M01S05149.modval +++|* A - 0, 1, 4, 5, 6, 7. 06158 M01S05150.modval +++|* B - 5, 7. 06159 M01S05151.modval +++|* 06160 M01S05152.modval +++|* MACROS ALLOC, FUNC, MESSAGE, SEARCH. 06161 M01S05153.modval +++| 06162 M01S05154.modval +++| 06163 M01S05155.modval +++| WDBBE EQU ARBB*ARBS DATA WORDS IN FULL LEVEL-2 BLOCK 06164 M01S05156.modval +++| 06165 M01S05157.modval +++| WDB8 MX6 0 CLEAR USER ENTRY 06166 M01S05158.modval +++| SA6 A4 06167 M01S05159.modval +++| SA6 FFAB CLEAR LEVEL-1 USER NAME 06168 M01S05160.modval +++| WDB9 SX6 B0+ CLEAR RANDOM ADDRESS POINTER 06169 M01S05161.modval +++| SA6 RA2+1 06170 M01S05162.modval +++| 06171 M01S05163.modval +++| WDB SUBR ENTRY/ EXIT 06172 M01S05164.modval +++| SA1 L.TAB2 SET FULL BLOCK FLAG 06173 M01S05165.modval +++| SX6 X1-WDBBE 06174 M01S05166.modval +++| SA6 WDBB 06175 M01S05167.modval +++| MX0 0 WRITE LEVEL-2 BLOCK 06176 M01S05168.modval +++| R= A0,TAB2 06177 M01S05169.modval +++| SX5 N 06178 M01S05170.modval +++| FUNC WTBT 06179 M01S05171.modval +++| 06180 M01S05172.modval +++|* UPDATE LEVEL-1. 06181 M01S05173.modval +++| 06182 M01S05174.modval +++| SA4 FFAB INITIALIZE SEARCH 06183 M01S05175.modval +++| WDB1 MX0 42 06184 M01S05176.modval +++| ZR X4,WDB4 IF NO USER NAME 06185 M01S05177.modval +++| SEARCH TAB1,X4,M 06186 M01S05178.modval +++| MX6 0 06187 M01S05179.modval +++| SA4 A4 06188 M01S05180.modval +++| SA6 A4 06189 M01S05181.modval +++| BX6 X4 06190 M01S05182.modval +++| SA1 UF CHECK MODE 06191 M01S05183.modval +++| SA6 WDBA 06192 M01S05184.modval +++| ZR X1,WDB2 IF NOT UPDATE 06193 M01S05185.modval +++| NZ X2,WDB8 IF ENTRY ALREADY EXISTS EXIT 06194 M01S05186.modval +++| WDB2 SA1 F.TAB1 PRESERVE RELATIVE ADDRESS 06195 M01S05187.modval +++| IX7 X7-X1 06196 M01S05188.modval +++| SB7 X7 06197 M01S05189.modval +++| SB5 A4 06198 M01S05190.modval +++| NZ X2,WDB3 IF ENTRY ALREADY EXISTS 06199 M01S05191.modval +++| ALLOC TAB1,C.TAB1 06200 M01S05192.modval +++| WDB3 SA1 F.TAB1 06201 M01S05193.modval +++| SA4 WDBA 06202 M01S05194.modval +++| SA5 RA2+1 06203 M01S05195.modval +++| BX6 X4 06204 M01S05196.modval +++| LX7 X5 06205 M01S05197.modval +++| SA6 B7+X1 06206 M01S05198.modval +++| SA7 A6+B1 06207 M01S05199.modval +++| SA4 B5+1 06208 M01S05200.modval +++| EQ WDB1 LOOP FOR NEXT USER 06209 M01S05201.modval +++| 06210 M01S05202.modval +++| WDB4 SA1 WDBB SET CURRENT AVAILABLE DATA RECORD 06211 M01S05203.modval +++| SA4 RA2+1 06212 M01S05204.modval +++| MX6 0 06213 M01S05205.modval +++| ZR X1,WDB5 IF FULL 06214 M01S05206.modval +++| BX6 X4 06215 M01S05207.modval +++| WDB5 SA1 DANA CHECK DELETE 06216 M01S05208.modval +++| NZ X1,WDB6 IF DELETE 06217 M01S05209.modval +++| SA6 RAND 06218 M01S05210.modval +++| WDB6 SA1 UF CHECK MODE 06219 M01S05211.modval +++| ZR X1,WDBX IF NOT UPDATE 06220 M01S05212.modval +++| SA0 TAB1 TABLE NUMBER 06221 M01S05213.modval +++| FUNC STBT SORT TABLE 06222 M01S05214.modval +++| SA1 L.TAB1 CHECK INDEX BLOCK LINKAGE 06223 M01S05215.modval +++| SX1 X1-ABLI-1 06224 M01S05216.modval +++| NG X1,WDB7 IF NO LINKAGE 06225 M01S05217.modval +++| SA1 DML1 * LEVEL-1 INDEX BLOCKS LINKED.* 06226 M01S05218.modval +++| ZR X1,WDB7 IF ALREADY DISPLAYED 06227 M01S05219.modval +++| MESSAGE A1,3,R ISSUE MESSAGE 06228 M01S05220.modval +++| SX6 B0+ 06229 M01S05221.modval +++| SA6 DML1 06230 M01S05222.modval +++| WDB7 R= A0,TAB1 WRITE TABLE 06231 M01S05223.modval +++| MX0 0 06232 M01S05224.modval +++| SX5 N 06233 M01S05225.modval +++| FUNC WTBT 06234 M01S05226.modval +++| EQ WDB9 CLEAR RANDOM ADDRESS AND EXIT 06235 M01S05227.modval +++| 06236 M01S05228.modval +++| 06237 M01S05229.modval +++| WDBA BSS 1 USER TO UPDATE 06238 M01S05230.modval +++| 06239 M01S05231.modval +++| WDBB CON 0 AVAILABLE DATA BLOCK FLAG 06240 M01S05232.modval +++| TITLE SOURCE CONVERSION SUBROUTINES. 06241 M01S05233.modval +++| ADP SPACE 4,10 06242 M01S05234.modval +++|** ADP - ADD PARENS. 06243 M01S05235.modval +++|* 06244 M01S05236.modval +++|* ENTRY (X6) = 6 CHARACTERS, RIGHT-JUSTIFIED, TO BE 06245 M01S05237.modval +++|* ENCLOSED BY PARENS. 06246 M01S05238.modval +++|* 06247 M01S05239.modval +++|* EXIT (X7) = 6 CHARACTERS ENCLOSED BY PARENS. 06248 M01S05240.modval +++|* 06249 M01S05241.modval +++|* USES X - 1, 2, 7. 06250 M01S05242.modval +++|* A - 1. 06251 M01S05243.modval +++| 06252 M01S05244.modval +++| 06253 M01S05245.modval +++| ADP SUBR ENTRY/EXIT 06254 M01S05246.modval +++| BX2 X6 06255 M01S05247.modval +++| LX2 24 06256 M01S05248.modval +++| MX1 36 06257 M01S05249.modval +++| BX2 X1*X2 ISOLATE UPPER 6 CHARACTERS 06258 M01S05250.modval +++| SA1 =4R) ( 06259 M01S05251.modval +++| BX7 X1+X2 ADD PARENS 06260 M01S05252.modval +++| LX7 42 REPOSITION CHARACTERS 06261 M01S05253.modval +++| EQ ADPX RETURN 06262 M01S05254.modval +++| AOC SPACE 4,10 06263 M01S05255.modval +++|** AOC - ALTERNATE OCTAL CONVERSION. 06264 M01S05256.modval +++|* 06265 M01S05257.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06266 M01S05258.modval +++|* (X1) = DATA FIELD RIGHT JUSTIFIED. 06267 M01S05259.modval +++|* 06268 M01S05260.modval +++|* EXIT (X6) = FIRST WORD OF CONVERTED NUMBER. 06269 M01S05261.modval +++|* (X7) = SECOND WORD OF CONVERTED NUMBER. 06270 M01S05262.modval +++|* 06271 M01S05263.modval +++|* USES A - 2, 4. 06272 M01S05264.modval +++|* B - 2, 3. 06273 M01S05265.modval +++|* X - 1, 2, 4, 7. 06274 M01S05266.modval +++|* 06275 M01S05267.modval +++|* CALLS WOD. 06276 M01S05268.modval +++| 06277 M01S05269.modval +++| 06278 M01S05270.modval +++| AOC SUBR ENTRY/EXIT 06279 M01S05271.modval +++| RJ WOD 06280 M01S05272.modval +++| SA4 A0 GET WORD 1 OF ENTRY 06281 M01S05273.modval +++| LX4 59-30 06282 M01S05274.modval +++| PL X4,AOCX IF NOT MULTIPLE WORD RESULT 06283 M01S05275.modval +++| LX4 24-59+30 06284 M01S05276.modval +++| MX2 -6 06285 M01S05277.modval +++| BX2 -X2*X4 GET NUMBER OF CHARACTERS IN MULTIPLE WORD 06286 M01S05278.modval +++| MX1 1 06287 M01S05279.modval +++| SB2 X2-10 06288 M01S05280.modval +++| SB2 B2+B2 06289 M01S05281.modval +++| SB3 B2+B2 06290 M01S05282.modval +++| SB2 B3+B2 06291 M01S05283.modval +++| SB2 B2-B1 06292 M01S05284.modval +++| AX1 B2 06293 M01S05285.modval +++| BX7 X1*X7 MASK OFF UNUSED CHARACTERS 06294 M01S05286.modval +++| SA2 =10H 06295 M01S05287.modval +++| BX2 -X1*X2 BLANK FILL REMAINDER OF WORD 06296 M01S05288.modval +++| BX7 X7+X2 06297 M01S05289.modval +++| EQ AOCX RETURN 06298 M01S05290.modval +++| 06299 M01S05291.modval +++| APC SPACE 4,10 06300 M01S05292.modval +++|** APC - APPLICATION PERMISSIONS CONVERSION FOR DISPLAY. 06301 M01S05293.modval +++|* 06302 M01S05294.modval +++|* ENTRY (TANB+AAVW) = APPLICATION PERMISSION WORD. 06303 M01S05295.modval +++|* 06304 M01S05296.modval +++|* EXIT APPLICATION PERMISSION PAGE OF K-DISPLAY SET. 06305 M01S05297.modval +++|* 06306 M01S05298.modval +++|* USES X - 2, 3, 4, 5, 6, 7. 06307 M01S05299.modval +++|* A - 3, 4, 5, 6. 06308 M01S05300.modval +++|* B - 3, 4, 5, 7. 06309 M01S05301.modval +++| 06310 M01S05302.modval +++| 06311 M01S05303.modval +++| APC SUBR ENTRY/EXIT 06312 M01S05304.modval +++| SA4 TANB+AAVW GET APPLICATION PERMISSIONS 06313 M01S05305.modval +++| SB3 59 06314 M01S05306.modval +++| SA5 TNAV-1 APPLICATION BIT POSITIONS AND NAMES 06315 M01S05307.modval +++| SB7 DSAP+1 INITIALIZE K-DISPLAY POINTER 06316 M01S05308.modval +++| MX2 -12 06317 M01S05309.modval +++| MX7 42 06318 M01S05310.modval +++| APC1 SA5 A5+B1 06319 M01S05311.modval +++| ZR X5,APCX IF END OF APPLICATION TABLE 06320 M01S05312.modval +++| BX3 -X2*X5 06321 M01S05313.modval +++| NG X5,APC1 IF SPARE APPLICATION BIT 06322 M01S05314.modval +++| SB5 X3 ACCESS BIT NUMBER 06323 M01S05315.modval +++| SB4 B3-B5 06324 M01S05316.modval +++| LX3 X4,B4 POSITION ACCESS BIT 06325 M01S05317.modval +++| BX6 X7*X5 APPLICATION NAME 06326 M01S05318.modval +++| SB4 =10HOFF 06327 M01S05319.modval +++| PL X3,APC2 IF APPLICATION NOT PERMITTED 06328 M01S05320.modval +++| SB4 =10HON 06329 M01S05321.modval +++| APC2 SA6 B7+B1 SET APPLICATION NAME 06330 M01S05322.modval +++| SA3 B4 06331 M01S05323.modval +++| BX6 X3 SET ON/OFF STATUS 06332 M01S05324.modval +++| SA6 B7 06333 M01S05325.modval +++| SB7 B7+3 06334 M01S05326.modval +++| EQ APC1 PROCESS NEXT APPLICATION 06335 M01S05327.modval +++| CAV SPACE 4,15 06336 M01S05328.modval +++|** CAV - CALCULATE ACTUAL VALUE. 06337 M01S05329.modval +++|* 06338 M01S05330.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06339 M01S05331.modval +++|* (X1) = INDEX VALUE TO BE CONVERTED TO ACTUAL VALUE. 06340 M01S05332.modval +++|* 06341 M01S05333.modval +++|* EXIT (X3) = 0 IF NO ACTUAL VALUE CONVERSION REQUIRED. 06342 M01S05334.modval +++|* ACTUAL VALUE STORED IN LIMITS MESSAGE. 06343 M01S05335.modval +++|* ACTUAL VALUE IN PARENS STORED AT K-DISPLAY ADDRESS +1. 06344 M01S05336.modval +++|* 06345 M01S05337.modval +++|* USES A - 2, 4, 5, 6, 7. 06346 M01S05338.modval +++|* B - 3, 4, 7. 06347 M01S05339.modval +++|* X - ALL. 06348 M01S05340.modval +++|* 06349 M01S05341.modval +++|* CALLS ADP, CDD, COD, ICE, INDEX CONVERSION PROCESSORS. 06350 M01S05342.modval +++| 06351 M01S05343.modval +++| 06352 M01S05344.modval +++| CAV SUBR ENTRY/EXIT 06353 M01S05345.modval +++| SA4 A0 GET 1ST WORD OF ENTRY 06354 M01S05346.modval +++| MX0 -6 06355 M01S05347.modval +++| LX4 -18 06356 M01S05348.modval +++| BX3 -X0*X4 06357 M01S05349.modval +++| ZR X3,CAVX IF NO ACTUAL VALUE CONVERSION 06358 M01S05350.modval +++| SA2 A0+2 GET 3RD WORD OF ENTRY 06359 M01S05351.modval +++| AX2 36 06360 M01S05352.modval +++| SB7 X2 PROCESSOR ADDRESS 06361 M01S05353.modval +++| AX2 18 06362 M01S05354.modval +++| SB4 X2 SHIFT VALUE 06363 M01S05355.modval +++| SB3 X3 06364 M01S05356.modval +++| LX4 59-32+18-60 06365 M01S05357.modval +++| RJ ICE CALCULATE ACTUAL VALUE 06366 M01S05358.modval +++| SA2 =10H 06367 M01S05359.modval +++| BX6 X2 06368 M01S05360.modval +++| LX7 X2 06369 M01S05361.modval +++| PL X4,CAV1 IF NOT ZERO SYSTEM DEFAULT CASE 06370 M01S05362.modval +++| ZR X1,CAV4 IF SYSTEM DEFAULT VALUE 06371 M01S05363.modval +++| CAV1 NG X1,CAV4 IF UNLIMITED 06372 M01S05364.modval +++| LX1 B4 06373 M01S05365.modval +++| EQ B3,B1,CAV2 IF OCTAL CONVERSION 06374 M01S05366.modval +++| RJ CDD CONVERT ACTUAL VALUE TO DECIMAL DISPLAY 06375 M01S05367.modval +++| EQ CAV3 ADD PARENS 06376 M01S05368.modval +++| 06377 M01S05369.modval +++| CAV2 RJ CON CONVERT ACTUAL VALUE TO OCTAL DISPLAY 06378 M01S05370.modval +++| CAV3 RJ ADP ADD PARENS 06379 M01S05371.modval +++| SA5 A0+B1 06380 M01S05372.modval +++| AX5 36 06381 M01S05373.modval +++| ZR X5,CAV4 IF NO LIMITS MESSAGE 06382 M01S05374.modval +++| SA6 X5+5 ENTER ACTUAL VALUE IN LIMITS MESSAGE 06383 M01S05375.modval +++| CAV4 SA5 A0+B1 06384 M01S05376.modval +++| AX5 18 06385 M01S05377.modval +++| SX5 X5+ 06386 M01S05378.modval +++| ZR X5,CAVX IF NO K-DISPLAY FIELD 06387 M01S05379.modval +++| SA7 X5+1 06388 M01S05380.modval +++| EQ CAVX RETURN 06389 M01S05381.modval +++| CDS SPACE 4,15 06390 M01S05382.modval +++|** CDS - CONVERT DATE TO SOURCE. 06391 M01S05383.modval +++|* 06392 M01S05384.modval +++|* ENTRY (A1) = ADDRESS OF DATE. 06393 M01S05385.modval +++|* (X1) = DATE IN FORM * YY/MM/DD.*. 06394 M01S05386.modval +++|* 06395 M01S05387.modval +++|* EXIT DATE STORED IN FORM *YYMMDD*. 06396 M01S05388.modval +++|* DATE RESET TO * IF NONEXPIRING. 06397 M01S05389.modval +++|* 06398 M01S05390.modval +++|* USES X - 1, 2, 3, 6, 7. 06399 M01S05391.modval +++|* A - 2, 3, 7. 06400 M01S05392.modval +++|* B - 2. 06401 M01S05393.modval +++| 06402 M01S05394.modval +++| 06403 M01S05395.modval +++| CDS SUBR ENTRY/EXIT 06404 M01S05396.modval +++| SA2 =10H * 06405 M01S05397.modval +++| SA3 =10H 06406 M01S05398.modval +++| BX7 X1-X3 06407 M01S05399.modval +++| ZR X7,CDS2 IF NONEXPIRING PASSWORD 06408 M01S05400.modval +++| MX6 -12 06409 M01S05401.modval +++| SB2 B1+B1 06410 M01S05402.modval +++| BX7 X7-X7 06411 M01S05403.modval +++| CDS1 LX1 18 06412 M01S05404.modval +++| BX2 -X6*X1 06413 M01S05405.modval +++| BX7 X7+X2 06414 M01S05406.modval +++| LX7 12 06415 M01S05407.modval +++| SB2 B2-B1 06416 M01S05408.modval +++| PL B2,CDS1 IF MORE DATE TO EXTRACT 06417 M01S05409.modval +++| SX2 2R 06418 M01S05410.modval +++| BX7 X7+X2 06419 M01S05411.modval +++| LX7 12 06420 M01S05412.modval +++| CDS2 BX7 X7+X2 06421 M01S05413.modval +++| SA7 A1 06422 M01S05414.modval +++| EQ CDSX RETURN 06423 M01S05415.modval +++| CON SPACE 4,10 06424 M01S05416.modval +++|** CON - CONVERT OCTAL NUMBER TO DISPLAY. 06425 M01S05417.modval +++|* 06426 M01S05418.modval +++|* ENTRY (X1) = OCTAL NUMBER. 06427 M01S05419.modval +++|* 06428 M01S05420.modval +++|* EXIT (X6) = OCTAL NUMBER IN DISPLAY CODE WITH POST RADIX B. 06429 M01S05421.modval +++|* 06430 M01S05422.modval +++|* CALLS COD, ISB. 06431 M01S05423.modval +++| 06432 M01S05424.modval +++| 06433 M01S05425.modval +++| CON SUBR ENTRY/EXIT 06434 M01S05426.modval +++| RJ COD CONVERT OCTAL TO DISPLAY 06435 M01S05427.modval +++| RJ ISB INSERT B RADIX 06436 M01S05428.modval +++| EQ CONX RETURN 06437 M01S05429.modval +++| CPS SPACE 4,15 06438 M01S05430.modval +++|** CPS - CONVERT PERMISSIONS TO SOURCE. 06439 M01S05431.modval +++|* 06440 M01S05432.modval +++|* EXIT PERMISSION BITS CONVERTED AND WRITTEN TO SOURCE. 06441 M01S05433.modval +++|* 06442 M01S05434.modval +++|* USES A - 0, 2, 4, 5, 6, 7. 06443 M01S05435.modval +++|* B - 2. 06444 M01S05436.modval +++|* X - 1, 2, 3, 4, 5, 6, 7. 06445 M01S05437.modval +++|* 06446 M01S05438.modval +++|* CALLS SFN, STB. 06447 M01S05439.modval +++|* 06448 M01S05440.modval +++|* MACROS WRITEC. 06449 M01S05441.modval +++| 06450 M01S05442.modval +++| 06451 M01S05443.modval +++| CPS SUBR ENTRY/EXIT 06452 M01S05444.modval +++| SA0 TPCS-1 06453 M01S05445.modval +++| CPS1 SA0 A0+B1 GET NEXT PERMISSION WORD 06454 M01S05446.modval +++| SA1 A0 06455 M01S05447.modval +++| SA2 =3HNUL 06456 M01S05448.modval +++| ZR X1,CPSX IF END OF TABLE 06457 M01S05449.modval +++| LX7 X1 06458 M01S05450.modval +++| BX6 X2 06459 M01S05451.modval +++| LX1 18 06460 M01S05452.modval +++| SA7 CPSA 06461 M01S05453.modval +++| SA6 X1+B1 06462 M01S05454.modval +++| WRITEC S,A6-B1 INITIALIZE IDENTIFIER VALUE 06463 M01S05455.modval +++| CPS2 SA5 CPSA GET PERMISSION WORD PARAMETERS 06464 M01S05456.modval +++| MX2 6 06465 M01S05457.modval +++| LX2 6 06466 M01S05458.modval +++| BX1 X2*X5 NEXT BIT POSITION 06467 M01S05459.modval +++| SX6 B1 06468 M01S05460.modval +++| IX7 X5+X6 06469 M01S05461.modval +++| LX5 -6 06470 M01S05462.modval +++| BX3 X2*X5 LAST BIT POSITION + 1 06471 M01S05463.modval +++| IX3 X1-X3 06472 M01S05464.modval +++| PL X3,CPS1 IF NO MORE BITS TO PROCESS 06473 M01S05465.modval +++| LX5 -30 06474 M01S05466.modval +++| BX4 X2*X5 VALIDATION WORD OFFSET 06475 M01S05467.modval +++| SA4 TANB+X4 06476 M01S05468.modval +++| SA7 A5 06477 M01S05469.modval +++| SB2 X1 06478 M01S05470.modval +++| LX6 B2 06479 M01S05471.modval +++| BX6 X6*X4 06480 M01S05472.modval +++| ZR X6,CPS2 IF BIT NOT SET 06481 M01S05473.modval +++| LX5 24 06482 M01S05474.modval +++| SB2 X5 TABLE OF PERMISSION IDENTIFIERS 06483 M01S05475.modval +++| RJ STB 06484 M01S05476.modval +++| ZR X3,CPS2 IF BIT NOT DEFINED 06485 M01S05477.modval +++| MX6 42 06486 M01S05478.modval +++| BX1 X6*X3 06487 M01S05479.modval +++| RJ SFN SPACE FILL IDENTIFIER 06488 M01S05480.modval +++| LX5 -30 06489 M01S05481.modval +++| SA6 X5+B1 06490 M01S05482.modval +++| WRITEC S,A6-B1 WRITE IDENTIFIER 06491 M01S05483.modval +++| EQ CPS2 CONTINUE PERMISSION BIT CONVERSION 06492 M01S05484.modval +++| 06493 M01S05485.modval +++| 06494 M01S05486.modval +++| CPSA CON 0 PERMISSION WORD PARAMETERS 06495 M01S05487.modval +++| TPCS SPACE 4,10 06496 M01S05488.modval +++|** TPCS - TABLE OF PERMISSION BITS CONVERSION TO SOURCE. 06497 M01S05489.modval +++|* 06498 M01S05490.modval +++|*T 18/SA,6/UBO,6/0,18/TPI,6/LBP,6/FBP
Figure
06499 M01S05491.modval +++|* SA SOURCE ENTRY ADDRESS. 06500 M01S05492.modval +++|* UBO USER BLOCK OFFSET OF VALIDATION WORD. 06501 M01S05493.modval +++|* TPI TABLE OF VALIDATION PERMISSION IDENTIFIERS. 06502 M01S05494.modval +++|* LBP LAST BIT POSITION + 1. 06503 M01S05495.modval +++|* FBP FIRST BIT POSITION. 06504 M01S05496.modval +++| 06505 M01S05497.modval +++| 06506 M01S05498.modval +++| TPCS BSS 0
| Line S05499 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva23 |
Seq # *Modification Id* Act ----------------------------+ 06507 M02S05499.modva23 ---| DTCS TMAW,AAWC,TAWI,TAWIL,0 ACCESS WORD 06508 M01S00014.modva23 +++| DTCS TMAW,AAWC,TAWI,60D,0 ACCESS WORD 06509 M01S05500.modval +++| DTCS TMAP,AAVW,TNAV,NNAB+AFAB,AFAB APPLICATIONS 06510 M01S05501.modval +++| DTCS TMSO,ASHN,TRTP,TRTPL,0 SHELL PROGRAM 06511 M01S05502.modval +++| DTCS TMAV,ASVW,TAPV,TAPVL,TAPVS SECURITY VALIDATION 06512 M01S05503.modval +++| DTCS TMLV,ASVW,TALB,TALBS,TALBS-TALBL ACCESS LEVEL 06513 M01S05504.modval +++| DTCS TMAC,ASVW,TACC,TACCL,0 ACCESS CATEGORY 06514 M01S05505.modval +++| DTCS TMVM,ASCV,TSVM,TSVML,0 SERVICE CLASS 06515 M01S05506.modval +++| CON 0 END OF TABLE 06516 M01S05507.modval +++| CSC SPACE 4,15 06517 M01S05508.modval +++|** CSC - CONVERT USER DEFAULT SERVICE CLASSES. 06518 M01S05509.modval +++|* 06519 M01S05510.modval +++|* ENTRY (A0) = ADDRESS OF *TFR* ENTRY FIRST WORD. 06520 M01S05511.modval +++|* (X1) = DATA FIELD RIGHT JUSTIFIED. 06521 M01S05512.modval +++|* 06522 M01S05513.modval +++|* EXIT (X6) = SERVICE CLASS IDENTIFIERS. 06523 M01S05514.modval +++|* 06524 M01S05515.modval +++|* USES B - 2, 3. 06525 M01S05516.modval +++|* X - ALL. 06526 M01S05517.modval +++|* 06527 M01S05518.modval +++|* CALLS STB. 06528 M01S05519.modval +++| 06529 M01S05520.modval +++| 06530 M01S05521.modval +++| CSC SUBR ENTRY/EXIT 06531 M01S05522.modval +++| SB2 TSVM 06532 M01S05523.modval +++| SB3 48 06533 M01S05524.modval +++| LX5 X1 06534 M01S05525.modval +++| BX7 X7-X7 06535 M01S05526.modval +++| LX5 -12 06536 M01S05527.modval +++| MX2 6 06537 M01S05528.modval +++| LX2 18 06538 M01S05529.modval +++| CSC1 BX1 X2*X5 EXTRACT SERVICE CLASS CHARACTER 06539 M01S05530.modval +++| MX4 -12 06540 M01S05531.modval +++| SX0 2R 06541 M01S05532.modval +++| ZR X1,CSC2 IF NO VALUE DEFINED 06542 M01S05533.modval +++| RJ STB LOCATE SERVICE CLASS CHARACTER IN TABLE 06543 M01S05534.modval +++| ZR X3,CSC2 IF NO MATCH 06544 M01S05535.modval +++| LX3 12 GET 2 CHARACTER SERVICE CLASS IDENTIFIER 06545 M01S05536.modval +++| BX0 -X4*X3 06546 M01S05537.modval +++| CSC2 LX0 B3 06547 M01S05538.modval +++| BX7 X7+X0 06548 M01S05539.modval +++| SB3 B3-12 06549 M01S05540.modval +++| LX5 6 06550 M01S05541.modval +++| PL B3,CSC1 IF MORE ENTRIES TO PROCESS 06551 M01S05542.modval +++| BX6 X7 06552 M01S05543.modval +++| EQ CSCX RETURN 06553 M01S05544.modval +++| CSD SPACE 4,15 06554 M01S05545.modval +++|** CSD - CONVERT USER DEFAULT SERVICE CLASSES TO SOURCE. 06555 M01S05546.modval +++|* 06556 M01S05547.modval +++|* ENTRY (TMUC+1) = SERVICE CLASS IDENTIFIERS. 06557 M01S05548.modval +++|* (LMFG) = 0 IF NOT PROCESSING LIMITS. 06558 M01S05549.modval +++|* 06559 M01S05550.modval +++|* EXIT USER DEFAULT SERVICE CLASSES WRITTEN TO SOURCE 06560 M01S05551.modval +++|* FILE OR LIMITS OUTPUT. 06561 M01S05552.modval +++|* 06562 M01S05553.modval +++|* USES A - 1, 5, 6. 06563 M01S05554.modval +++|* X - 0, 1, 5, 6, 7. 06564 M01S05555.modval +++|* 06565 M01S05556.modval +++|* CALLS SFN. 06566 M01S05557.modval +++|* 06567 M01S05558.modval +++|* MACROS WRITEC. 06568 M01S05559.modval +++| 06569 M01S05560.modval +++| 06570 M01S05561.modval +++| CSD SUBR ENTRY/EXIT 06571 M01S05562.modval +++| SA1 TMUC+1 GET CONVERTED DEFAULT SERVICE CLASSES 06572 M01S05563.modval +++| BX0 X1 06573 M01S05564.modval +++| SA5 TOSC 06574 M01S05565.modval +++| CSD1 SA5 A5+B1 06575 M01S05566.modval +++| MX7 12 06576 M01S05567.modval +++| BX6 X7*X0 06577 M01S05568.modval +++| LX0 12 06578 M01S05569.modval +++| ZR X5,CSDX IF END OF TABLE 06579 M01S05570.modval +++| SX1 X5+ 06580 M01S05571.modval +++| NG X1,CSD1 IF RESERVED ENTRY 06581 M01S05572.modval +++| SA1 LMFG 06582 M01S05573.modval +++| NZ X1,CSD2 IF PROCESSING LIMITS 06583 M01S05574.modval +++| BX7 X7*X5 GET ORIGIN TYPE 06584 M01S05575.modval +++| LX6 -12 06585 M01S05576.modval +++| BX1 X7+X6 06586 M01S05577.modval +++| RJ SFN SPACE FILL IDENTIFIER 06587 M01S05578.modval +++| SA6 TMUC+1 06588 M01S05579.modval +++| WRITEC S,A6-B1 WRITE DIRECTIVE TO SOURCE 06589 M01S05580.modval +++| EQ CSD1 PROCESS NEXT IDENTIFIER 06590 M01S05581.modval +++| 06591 M01S05582.modval +++| CSD2 SX1 1R 06592 M01S05583.modval +++| BX6 X6+X1 06593 M01S05584.modval +++| LX6 -6 06594 M01S05585.modval +++| SA6 X5+5 06595 M01S05586.modval +++| WRITEC O,X5 WRITE LIMITS MESSAGE 06596 M01S05587.modval +++| EQ CSD1 PROCESS NEXT IDENTIFIER 06597 M01S05588.modval +++| DAT SPACE 4,10 06598 M01S05589.modval +++|** DAT - CONVERT PACKED DATE TO DISPLAY. 06599 M01S05590.modval +++|* 06600 M01S05591.modval +++|* ENTRY (X1) = DATA FIELD RIGHT JUSTIFIED. 06601 M01S05592.modval +++|* 06602 M01S05593.modval +++|* EXIT (X6) = CONVERTED DATE IN FORM * YY/MM/DD.*. 06603 M01S05594.modval +++|* 06604 M01S05595.modval +++|* USES A - 2. 06605 M01S05596.modval +++|* X - 2, 6. 06606 M01S05597.modval +++|* 06607 M01S05598.modval +++|* MACROS EDATE. 06608 M01S05599.modval +++| 06609 M01S05600.modval +++| 06610 M01S05601.modval +++| DAT SUBR ENTRY/EXIT 06611 M01S05602.modval +++| SA2 =10H 06612 M01S05603.modval +++| BX6 X2 06613 M01S05604.modval +++| ZR X1,DATX IF NO EXPIRATION DATE 06614 M01S05605.modval +++| EDATE X1 UNPACK DATE INTO DISPLAY 06615 M01S05606.modval +++| EQ DATX RETURN 06616 M01S05607.modval +++| ISB SPACE 4,10 06617 M01S05608.modval +++|** ISB - INSERT B (RADIX). 06618 M01S05609.modval +++|* 06619 M01S05610.modval +++|* ENTRY (X6) = RIGHT JUSTIFIED DISPLAY CODE FOR OCTAL NUMBER. 06620 M01S05611.modval +++|* 06621 M01S05612.modval +++|* EXIT (X6) = RIGHT JUSTIFIED DISPLAY CODE FOR OCTAL NUMBER 06622 M01S05613.modval +++|* WITH RADIX INSERTED ON RIGHT. 06623 M01S05614.modval +++|* 06624 M01S05615.modval +++|* USES X - 0, 1, 6. 06625 M01S05616.modval +++| 06626 M01S05617.modval +++| 06627 M01S05618.modval +++| ISB SUBR ENTRY/EXIT 06628 M01S05619.modval +++| MX0 54 06629 M01S05620.modval +++| LX6 6 06630 M01S05621.modval +++| SX1 1RB 06631 M01S05622.modval +++| BX6 X0*X6 06632 M01S05623.modval +++| BX6 X1+X6 06633 M01S05624.modval +++| EQ ISBX RETURN 06634 M01S05625.modval +++| MRJ SPACE 4,15 06635 M01S05626.modval +++|** MRJ - MULTIPLE WORD RIGHT JUSTIFY. 06636 M01S05627.modval +++|* 06637 M01S05628.modval +++|* ENTRY (A2) = ADDRESS WHERE 2ND WORD IS STORED 06638 M01S05629.modval +++|* IN LIMITS MESSAGE. 06639 M01S05630.modval +++|* (X2) = 1ST WORD, RIGHT JUSTIFIED, BLANK FILLED. 06640 M01S05631.modval +++|* (X6) = 2ND WORD, RIGHT JUSTIFIED, BLANK FILLED. 06641 M01S05632.modval +++|* 06642 M01S05633.modval +++|* EXIT 1ST AND 2ND WORDS STORED IN LIMITS MESSAGE 06643 M01S05634.modval +++|* AFTER MULTIPLE WORD RIGHT JUSTIFICATION PROCESSED. 06644 M01S05635.modval +++|* 06645 M01S05636.modval +++|* USES A - 4, 6, 7. 06646 M01S05637.modval +++|* B - 2, 3, 4. 06647 M01S05638.modval +++|* X - 0, 2, 3, 4, 6, 7. 06648 M01S05639.modval +++| 06649 M01S05640.modval +++| 06650 M01S05641.modval +++| MRJ2 BX7 X2 STORE 1ST WORD 06651 M01S05642.modval +++| SA7 A2 06652 M01S05643.modval +++| 06653 M01S05644.modval +++| MRJ SUBR ENTRY/EXIT 06654 M01S05645.modval +++| SA4 =10H 06655 M01S05646.modval +++| SB2 B0 06656 M01S05647.modval +++| BX3 X6-X4 06657 M01S05648.modval +++| ZR X3,MRJ2 IF NO VALUE IN 2ND WORD 06658 M01S05649.modval +++| BX7 X2 06659 M01S05650.modval +++| SA7 A2-B1 06660 M01S05651.modval +++| MX0 6 06661 M01S05652.modval +++| BX7 X0*X3 06662 M01S05653.modval +++| NZ X7,MRJX IF BOTH WORDS FULL 06663 M01S05654.modval +++| MRJ1 LX0 -6 06664 M01S05655.modval +++| BX7 X0*X3 06665 M01S05656.modval +++| SB2 B2+6 06666 M01S05657.modval +++| ZR X7,MRJ1 IF BLANK CHARACTER 06667 M01S05658.modval +++| SB3 60 06668 M01S05659.modval +++| MX0 1 06669 M01S05660.modval +++| SB4 B2-B1 06670 M01S05661.modval +++| AX0 B4 06671 M01S05662.modval +++| SB3 B3-B2 06672 M01S05663.modval +++| LX2 B3 06673 M01S05664.modval +++| BX7 X0*X2 06674 M01S05665.modval +++| BX6 -X0*X6 06675 M01S05666.modval +++| BX7 X7+X6 06676 M01S05667.modval +++| SA7 A2 STORE 2ND WORD 06677 M01S05668.modval +++| BX6 -X0*X2 06678 M01S05669.modval +++| BX4 X0*X4 06679 M01S05670.modval +++| BX6 X6+X4 06680 M01S05671.modval +++| SA6 A2-B1 STORE FIRST WORD 06681 M01S05672.modval +++| EQ MRJX RETURN 06682 M01S05673.modval +++| PLM SPACE 4,15 06683 M01S05674.modval +++|** PLM - PRINT *LIMITS* MESSAGES. 06684 M01S05675.modval +++|* 06685 M01S05676.modval +++|* EXIT ALL *LIMITS* MESSAGES ISSUED. 06686 M01S05677.modval +++|* 06687 M01S05678.modval +++|* USES A - ALL. 06688 M01S05679.modval +++|* B - 2, 3. 06689 M01S05680.modval +++|* X - ALL. 06690 M01S05681.modval +++|* 06691 M01S05682.modval +++|* CALLS CSD, SFN. 06692 M01S05683.modval +++|* 06693 M01S05684.modval +++|* MACROS CLOCK, DATE, GETJO, GETPFP, TSTATUS, WRITEC. 06694 M01S05685.modval +++| 06695 M01S05686.modval +++| 06696 M01S05687.modval +++| PLM8 WRITEC O,(=C* *),B1 WRITE BLANK LINE 06697 M01S05688.modval +++| WRITEC X2,USUD WRITE HEADER 06698 M01S05689.modval +++| RJ CSD CONVERT USER DEFAULT SERVICE CLASSES 06699 M01S05690.modval +++| 06700 M01S05691.modval +++| PLM SUBR ENTRY/EXIT 06701 M01S05692.modval +++| SA2 DSAN GET USER NAME 06702 M01S05693.modval +++| MX7 -54 06703 M01S05694.modval +++| AX2 6 06704 M01S05695.modval +++| SA1 USRN 06705 M01S05696.modval +++| BX7 -X7*X2 06706 M01S05697.modval +++| BX7 X1+X7 06707 M01S05698.modval +++| SA7 A1 06708 M01S05699.modval +++| DATE TODT REQUEST DATE 06709 M01S05700.modval +++| CLOCK TOTM REQUEST TIME 06710 M01S05701.modval +++| GETJO TSTATUS GET JOB ORIGIN 06711 M01S05702.modval +++| SA1 TSTATUS 06712 M01S05703.modval +++| SX1 X1-TXOT 06713 M01S05704.modval +++| NZ X1,PLM1 IF NOT *TXOT* 06714 M01S05705.modval +++| TSTATUS TSTATUS 06715 M01S05706.modval +++| SA3 TSTATUS 06716 M01S05707.modval +++| SA2 =0LNAMIAF 06717 M01S05708.modval +++| MX1 36 06718 M01S05709.modval +++| BX3 X1*X3 06719 M01S05710.modval +++| BX6 X3-X2 06720 M01S05711.modval +++| NZ X6,PLM1 IF NOT NETWORK TERMINAL 06721 M01S05712.modval +++| SA6 TFPA+1 CLEAR NON-NETWORK TERMINAL LIMITS MESSAGES 06722 M01S05713.modval +++| SA6 TFRO+1 06723 M01S05714.modval +++| SA6 TFPX+1 06724 M01S05715.modval +++| SA6 TFTT+1 06725 M01S05716.modval +++| PLM1 GETPFP PLMA REQUEST FAMILY NAME 06726 M01S05717.modval +++| SA1 PLMA 06727 M01S05718.modval +++| BX6 X6-X6 CLEAR POINTERS 06728 M01S05719.modval +++| SA6 A1+B1 06729 M01S05720.modval +++| SA6 A6+B1 06730 M01S05721.modval +++| RJ SFN SPACE FILL NAME 06731 M01S05722.modval +++| SA2 FAM 06732 M01S05723.modval +++| LX6 59-17 06733 M01S05724.modval +++| MX3 -42 06734 M01S05725.modval +++| BX6 -X3*X6 06735 M01S05726.modval +++| BX6 X2+X6 06736 M01S05727.modval +++| SA0 TFR TABLE TO FORMAT RECORDS 06737 M01S05728.modval +++| SA6 A2 06738 M01S05729.modval +++| SA5 OF 06739 M01S05730.modval +++| BX0 X0-X0 06740 M01S05731.modval +++| ZR X5,PLM3.1 IF OUTPUT TO TERMINAL 06741 M01S05732.modval +++| PLM2 SA1 A0 GET WORD 1 OF ENTRY 06742 M01S05733.modval +++| SA2 A0+B1 GET WORD 2 OF ENTRY 06743 M01S05734.modval +++| ZR X1,PLM6 IF END OF TABLE 06744 M01S05735.modval +++| SA1 A2+B1 GET WORD 3 OF ENTRY 06745 M01S05736.modval +++| AX2 36 06746 M01S05737.modval +++| BX0 X2 06747 M01S05738.modval +++| SA0 A1+B1 ADVANCE TABLE ENTRY 06748 M01S05739.modval +++| SX5 X1 06749 M01S05740.modval +++| BX2 X0+X5 06750 M01S05741.modval +++| ZR X2,PLM2 IF NO LIMITS OR HEADER MESSAGE 06751 M01S05742.modval +++| SA2 OF 06752 M01S05743.modval +++| ZR X2,PLM4 IF OUTPUT TO TERMINAL 06753 M01S05744.modval +++| SX7 B1+ 06754 M01S05745.modval +++| ZR X5,PLM3 IF NO HEADER 06755 M01S05746.modval +++| SX7 B1+B1 06756 M01S05747.modval +++| ZR X0,PLM3 IF NO LIMITS MESSAGE 06757 M01S05748.modval +++| SX7 X7+B1 06758 M01S05749.modval +++| PLM3 SA2 PLMB 06759 M01S05750.modval +++| IX6 X2-X7 06760 M01S05751.modval +++| SA6 A2 06761 M01S05752.modval +++| PL X6,PLM4 IF ENOUGH ROOM ON PAGE 06762 M01S05753.modval +++| SA3 LPPG 06763 M01S05754.modval +++| SX6 X3-2 06764 M01S05755.modval +++| IX6 X6-X7 06765 M01S05756.modval +++| SA6 A2 06766 M01S05757.modval +++| PLM3.1 WRITEC O,LITL WRITE PAGE HEADER 06767 M01S05758.modval +++| WRITEC X2,(=C* *),B1 WRITE BLANK LINE 06768 M01S05759.modval +++| PLM4 ZR X5,PLM5 IF NO HEADER MESSAGE 06769 M01S05760.modval +++| WRITEC O,(=C* *),B1 WRITE BLANK LINE 06770 M01S05761.modval +++| WRITEC X2,X5 WRITE HEADER 06771 M01S05762.modval +++| PLM5 ZR X0,PLM2 IF NO LIMITS MESSAGE 06772 M01S05763.modval +++| WRITEC O,X0 ISSUE LIMITS MESSAGE 06773 M01S05764.modval +++| EQ PLM2 PROCESS NEXT ENTRY 06774 M01S05765.modval +++| 06775 M01S05766.modval +++|* WRITE ALLOWED PERMISSIONS LIMIT MESSAGES. 06776 M01S05767.modval +++| 06777 M01S05768.modval +++| PLM6 SA2 PLMC GET *TAPL* INDEX 06778 M01S05769.modval +++| SA1 TAPL+X2 GET ALLOWED PERMISSIONS LIMITS PARAMETERS 06779 M01S05770.modval +++| ZR X1,PLM8 IF END OF TABLE 06780 M01S05771.modval +++| SX6 X2+B1 06781 M01S05772.modval +++| SA6 A2 06782 M01S05773.modval +++| MX2 -6 06783 M01S05774.modval +++| BX3 -X2*X1 NUMBER OF PERMISSION BITS 06784 M01S05775.modval +++| AX1 6 06785 M01S05776.modval +++| BX4 -X2*X1 USER BLOCK OFFSET 06786 M01S05777.modval +++| SA4 TANB+X4 GET PERMISSION BITS FROM USER BLOCK 06787 M01S05778.modval +++| AX1 6 06788 M01S05779.modval +++| SB2 X3-1 06789 M01S05780.modval +++| MX6 1 06790 M01S05781.modval +++| AX6 B2 06791 M01S05782.modval +++| MX5 -12 06792 M01S05783.modval +++| BX5 -X5*X1 LIMITS HEADER ADDRESS 06793 M01S05784.modval +++| AX1 30 06794 M01S05785.modval +++| SA1 X1+B1 GET FIRST BIT POSITION 06795 M01S05786.modval +++| SB3 59 06796 M01S05787.modval +++| SB2 X1+B2 06797 M01S05788.modval +++| SB2 B3-B2 06798 M01S05789.modval +++| LX1 X4,B2 06799 M01S05790.modval +++| BX0 X4 06800 M01S05791.modval +++| BX6 X6*X1
| Line S05792 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva28 |
Seq # *Modification Id* Act ----------------------------+ 06801 M02S05792.modva28 ---| ZR X6,PLM6 IF NO PERMISSIONS GRANTED
| Line S05793 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva28 |
Seq # *Modification Id* Act ----------------------------+ 06802 M02S05793.modva28 ---| WRITEC O,(=C* *),B1 WRITE BLANK LINE 06803 M01S00001.modva28 +++| NZ X6,PLM6.1 IF ANY PERMISSIONS GRANTED 06804 M01S00002.modva28 +++| PL X6,PLM6 IF NO PERMISSIONS GRANTED 06805 M01S00003.modva28 +++| PLM6.1 WRITEC O,(=C* *),B1 WRITE BLANK LINE 06806 M01S05794.modval +++| WRITEC X2,X5 WRITE HEADER MESSAGE 06807 M01S05795.modval +++| SA1 PLMC GET *TAPL* INDEX 06808 M01S05796.modval +++| SA1 TAPL-1+X1 GET *TAPL* ENTRY 06809 M01S05797.modval +++| AX1 24 06810 M01S05798.modval +++| SA5 X1 FWA-1 TABLE OF LIMITS MESSAGE ADDRESSES 06811 M01S05799.modval +++| AX1 18 06812 M01S05800.modval +++| SA0 X1 FWA-1 TABLE OF BIT NAMES AND POSITIONS 06813 M01S05801.modval +++| PLM7 SA5 A5+B1 06814 M01S05802.modval +++| SA0 A0+B1 06815 M01S05803.modval +++| ZR X5,PLM6 IF END OF MESSAGE TABLE 06816 M01S05804.modval +++| NG X5,PLM7 IF PERMISSION NOT ALLOWED 06817 M01S05805.modval +++| SA3 A0 06818 M01S05806.modval +++| MX4 -12 06819 M01S05807.modval +++| BX4 -X4*X3 06820 M01S05808.modval +++| SB2 X4 06821 M01S05809.modval +++| SB3 59 06822 M01S05810.modval +++| SB2 B3-B2 06823 M01S05811.modval +++| LX4 X0,B2 06824 M01S05812.modval +++| PL X4,PLM7 IF PERMISSION NOT GRANTED 06825 M01S05813.modval +++| WRITEC O,X5 WRITE PERMISSION MESSAGE 06826 M01S05814.modval +++| EQ PLM7 CONTINUE PROCESSING MESSAGES 06827 M01S05815.modval +++| 06828 M01S05816.modval +++| 06829 M01S05817.modval +++| PLMA CON 0 FAMILY NAME 06830 M01S05818.modval +++| PLMB CON 0 PAGE LINE COUNTER 06831 M01S05819.modval +++| PLMC CON 0 *TAPL* INDEX 06832 M01S05820.modval +++| TAPL SPACE 4,10 06833 M01S05821.modval +++|** TAPL - TABLE OF ALLOWED PERMISSIONS LIMITS PARAMETERS. 06834 M01S05822.modval +++|* 06835 M01S05823.modval +++|*T 18/TBP,18/TLM,12/LHR,6/UBO,6/NPB
Figure
06836 M01S05824.modval +++|* TBP FWA-1 TABLE OF BIT POSITIONS. 06837 M01S05825.modval +++|* TLM FWA-1 TABLE OF LIMITS MESSAGE ADDRESSES. 06838 M01S05826.modval +++|* LHR LIMITS HEADER MESSAGE ADDRESS. 06839 M01S05827.modval +++|* UBO USER BLOCK OFFSET FOR PERMISSION DATA WORD. 06840 M01S05828.modval +++|* NPB NUMBER OF PERMISSION BITS. 06841 M01S05829.modval +++| 06842 M01S05830.modval +++| 06843 M01S05831.modval +++| TAPL BSS 0 06844 M01S05832.modval +++| APLW TAWI,ALP,ALLW,AAWC ACCESS WORD 06845 M01S05833.modval +++| APLW TNAV,APP,APPH,AAVW APPLICATIONS
| Line S05834 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2427 |
Seq # *Modification Id* Act ----------------------------+ 06846 M02S05834.ns2427 ---| APLW TNAV+TLAV-AFAB,LAP,TLAP,AAVW LOCAL APPLICATIONS 06847 M01S05835.modval +++| APLW TRTP,ASP,RMFP,ASHN *RDF* PERMISSIONS 06848 M01S05836.modval +++| APLW TAPV,APV,AAPP,ASVW SECURITY VALIDATIONS 06849 M01S05837.modval +++| APLW TACC,CAT,VCAT,ASAC ACCESS CATEGORIES 06850 M01S05838.modval +++| APLW TALB,ALV,ALVA,ASVW ACCESS LEVELS 06851 M01S05839.modval +++| APLW TSVM,SCL,USVM,ASCV USER SERVICE CLASS 06852 M01S05840.modval +++| CON 0 END OF TABLE 06853 M01S05841.modval +++| STB SPACE 4,15 06854 M01S05842.modval +++|** STB - SEARCH TABLE. 06855 M01S05843.modval +++|* 06856 M01S05844.modval +++|* ENTRY (X1) = VALUE TO COMPARE. 06857 M01S05845.modval +++|* (X2) = MASK. 06858 M01S05846.modval +++|* (B2) = TABLE ADDRESS. 06859 M01S05847.modval +++|* 06860 M01S05848.modval +++|* EXIT (X3) = TABLE ENTRY ON MATCH. 06861 M01S05849.modval +++|* = 0 IF NO MATCH. 06862 M01S05850.modval +++|* (A3) = ADDRESS OF MATCHING TABLE ENTRY. 06863 M01S05851.modval +++|* 06864 M01S05852.modval +++|* USES X - 3, 6. 06865 M01S05853.modval +++|* A - 3. 06866 M01S05854.modval +++| 06867 M01S05855.modval +++| 06868 M01S05856.modval +++| STB SUBR 06869 M01S05857.modval +++| SA3 B2-1 06870 M01S05858.modval +++| STB1 SA3 A3+1 06871 M01S05859.modval +++| BX6 X3-X1 06872 M01S05860.modval +++| BX6 X2*X6 06873 M01S05861.modval +++| ZR X3,STBX IF END OF TABLE 06874 M01S05862.modval +++| NZ X6,STB1 IF NOT YET MATCH 06875 M01S05863.modval +++| EQ STBX RETURN 06876 M01S05864.modval +++| SRD SPACE 4,25 06877 M01S05865.modval +++|** SRD - SET RECORD DISPLAYS. 06878 M01S05866.modval +++|* 06879 M01S05867.modval +++|* ENTRY *TANB* SET TO PROPER USER BLOCK. 06880 M01S05868.modval +++|* 06881 M01S05869.modval +++|* EXIT K-DISPLAY PROPERLY FORMATTED. 06882 M01S05870.modval +++|* S-OPTION PROPERLY FORMATTED. 06883 M01S05871.modval +++|* VALUES ENTERED IN LIMITS MESSAGES. 06884 M01S05872.modval +++|* 06885 M01S05873.modval +++|* USES A - ALL. 06886 M01S05874.modval +++|* B - 2, 3, 4, 5, 7. 06887 M01S05875.modval +++|* X - ALL. 06888 M01S05876.modval +++|* 06889 M01S05877.modval +++|* CALLS APC, CAV, ICE, MRJ, SFN, 06890 M01S05878.modval +++|* DISPLAY CONVERSION PROCESSORS. 06891 M01S05879.modval +++|* 06892 M01S05880.modval +++|* MACROS EDATE. 06893 M01S05881.modval +++| 06894 M01S05882.modval +++|
| Line S05883 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06895 M02S05883.v23l617 ---| SRD14 RJ APC DISPLAY APPLICATION PERMISSIONS 06896 M01S00337.v23l617 +++| SRD16 RJ APC DISPLAY APPLICATION PERMISSIONS 06897 M01S05884.modval +++| 06898 M01S05885.modval +++| SRD SUBR ENTRY/EXIT 06899 M01S05886.modval +++| SA1 TANB+ACCD SET CREATION DATE 06900 M01S05887.modval +++| AX1 18 06901 M01S05888.modval +++| SX1 X1 06902 M01S05889.modval +++| EDATE X1 UNPACK AND CONVERT DATE 06903 M01S05890.modval +++| SA1 TANB+ACMD SET LAST MODIFICATION DATE 06904 M01S05891.modval +++| SA6 DSAC1
| Line S05892 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06905 M02S05892.v23l617 ---| SA6 DSAC2
| Line S05893 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06906 M02S05893.v23l617 ---| SA6 DSAC3
| Line S05894 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06907 M02S05894.v23l617 ---| SA6 DSAC4 06908 M01S05895.modval +++| SX1 X1+ 06909 M01S05896.modval +++| EDATE X1 UNPACK AND CONVERT DATE 06910 M01S05897.modval +++| SA6 DSAU
| Line S05898 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06911 M02S05898.v23l617 ---| SA6 DSAU1
| Line S05899 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06912 M02S05899.v23l617 ---| SA6 DSAU2
| Line S05900 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06913 M02S05900.v23l617 ---| SA6 DSAU3 06914 M01S05901.modval +++| SA1 AN SET USER NAME 06915 M01S05902.modval +++| SX6 1R/ 06916 M01S05903.modval +++| BX1 X1+X6 06917 M01S05904.modval +++| LX1 -6 06918 M01S05905.modval +++| RJ SFN 06919 M01S05906.modval +++| SA6 TMBS 06920 M01S05907.modval +++| SX1 1R &1R/ 06921 M01S05908.modval +++| LX1 -6 06922 M01S05909.modval +++| BX6 X1-X6 06923 M01S05910.modval +++| SA6 DSAN 06924 M01S05911.modval +++| SA6 DSAN1 06925 M01S05912.modval +++| SA6 DSAN2 06926 M01S05913.modval +++| SA6 DSAN3 06927 M01S00338.v23l617 +++| SA6 DSAN4 06928 M01S05914.modval +++| SA0 TFR-3 TABLE TO FORMAT RECORD 06929 M01S05915.modval +++| SRD1 SA0 A0+3 06930 M01S05916.modval +++| SA4 A0+ GET WORD 1 OF ENTRY
| Line S05917 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 06931 M02S05917.v23l617 ---| ZR X4,SRD14 IF END OF TABLE 06932 M01S00339.v23l617 +++| ZR X4,SRD16 IF END OF TABLE 06933 M01S05918.modval +++| SB7 X4 PROCESSOR ADDRESS 06934 M01S05919.modval +++| LX4 6 06935 M01S05920.modval +++| MX2 -6 06936 M01S05921.modval +++| BX1 -X2*X4 USER BLOCK OFFSET 06937 M01S05922.modval +++| LX4 6 06938 M01S05923.modval +++| BX3 -X2*X4 STARTING BIT NUMBER 06939 M01S05924.modval +++| LX4 6 06940 M01S05925.modval +++| BX2 -X2*X4 NUMBER OF BITS IN FIELD 06941 M01S05926.modval +++| SA1 TANB+X1 GET DATA WORD 06942 M01S05927.modval +++| MX6 1 06943 M01S05928.modval +++| SB4 X2 06944 M01S05929.modval +++| SB2 B4-B1 06945 M01S05930.modval +++| AX6 B2 06946 M01S05931.modval +++| SB2 60 06947 M01S05932.modval +++| SB3 X3+B4 06948 M01S05933.modval +++| SB2 B2-B3 06949 M01S05934.modval +++| LX1 B2 06950 M01S05935.modval +++| BX2 X6*X1 06951 M01S05936.modval +++| LX1 X2,B4 06952 M01S05937.modval +++| BX7 X1 06953 M01S05938.modval +++| LX4 59-31-18 06954 M01S05939.modval +++| PL X4,SRD2 IF DATA TO BE PASSED RIGHT JUSTIFIED 06955 M01S05940.modval +++| BX1 X2 PASS DATA LEFT JUSTIFIED 06956 M01S05941.modval +++| SRD2 SA3 A0+2 GET WORD 3 OF ENTRY 06957 M01S05942.modval +++| LX3 -18 06958 M01S05943.modval +++| SB3 X3 ALTERNATE BLOCK ADDRESS 06959 M01S05944.modval +++| ZR B3,SRD3 IF NO ALTERNATE BLOCK 06960 M01S05945.modval +++| SB3 B3+B1 06961 M01S05946.modval +++| SA1 X7+B3 06962 M01S05947.modval +++| BX7 X1 06963 M01S05948.modval +++| SRD3 SA7 SRDA SAVE DATA FIELD 06964 M01S05949.modval +++| RJ ICE EXECUTE DISPLAY FORMAT PROCESSOR 06965 M01S05950.modval +++| SA4 A0 GET WORD 1 OF ENTRY 06966 M01S05951.modval +++| LX4 0-35 06967 M01S05952.modval +++| SX0 B1 06968 M01S05953.modval +++| BX0 X0*X4 06969 M01S05954.modval +++| SB5 X0 CONTINUATION WORD FLAG 06970 M01S05955.modval +++| SB2 B5+B5 06971 M01S05956.modval +++| SB2 B2+B5 06972 M01S05957.modval +++| SB3 A0+B1 06973 M01S05958.modval +++| SA5 B3-B2 GET WORD 2 OF ENTRY 06974 M01S05959.modval +++| SA3 A0 GET MULTIPLE WORD RESULT FLAG 06975 M01S05960.modval +++| SX2 X5 06976 M01S05961.modval +++| LX3 59-30 06977 M01S05962.modval +++| AX5 18 06978 M01S05963.modval +++| LX4 24-0+35 06979 M01S05964.modval +++| SA1 SRDA GET DATA VALUE 06980 M01S05965.modval +++| MX0 -6 06981 M01S05966.modval +++| ZR X2,SRD4 IF NO SOURCE ADDRESS 06982 M01S05967.modval +++| SB2 B1+B5 06983 M01S05968.modval +++| SA6 X2+B2 06984 M01S05969.modval +++| PL X3,SRD4 IF NOT MULTIPLE WORD RESULT 06985 M01S05970.modval +++| SA7 A6+B1 06986 M01S05971.modval +++| SRD4 NG X3,SRD7 IF MULTIPLE WORD RESULT 06987 M01S05972.modval +++| BX2 -X0*X4 UNLIMITED VALUE 06988 M01S05973.modval +++| LX4 59-33-24 06989 M01S05974.modval +++| LX0 X4,B1 06990 M01S05975.modval +++| ZR X2,SRD5 IF NO UNLIMITED VALUE 06991 M01S05976.modval +++| IX2 X1-X2
| Line S05977 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2516b |
Seq # *Modification Id* Act ----------------------------+ 06992 M02S05977.ns2516b ---| NZ X2,SRD5 IF DATA VALUE NOT UNLIMITED 06993 M01S00004.ns2516b +++| NG X2,SRD5 IF NOT UNLIMITED 06994 M01S05978.modval +++| SA2 =9AUNLIMITED 06995 M01S05979.modval +++| BX6 X2 06996 M01S05980.modval +++| NG X4,SRD6 IF *SYSTEM* DEFAULT TO BE DISPLAYED 06997 M01S05981.modval +++| SRD5 PL X0,SRD7 IF NOT ZERO SYSTEM DEFAULT 06998 M01S05982.modval +++| NZ X1,SRD7 IF NOT ZERO DATA VALUE 06999 M01S05983.modval +++| SRD6 SA2 =10HSYSTEM 07000 M01S05984.modval +++| BX6 X2 07001 M01S05985.modval +++| SX4 B1 RIGHT JUSTIFY FOR LIMITS 07002 M01S05986.modval +++| SRD7 SB2 X5 07003 M01S05987.modval +++| AX5 18
| Line S05988 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07004 M02S05988.v23l617 ---| ZR B2,SRD8 IF NO K-DISPLAY FIELD 07005 M01S00340.v23l617 +++| ZR B2,SRD10 IF NO K-DISPLAY FIELD
| Line S05989 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07006 M02S05989.v23l617 ---| SA6 B2+B5 07007 M01S00341.v23l617 +++| BX0 X3 07008 M01S00342.v23l617 +++| LX0 -1 07009 M01S00343.v23l617 +++| SA6 B2+B5 07010 M01S00344.v23l617 +++| NG X0,SRD9 IF ALREADY LEFT JUSTIFIED 07011 M01S00345.v23l617 +++| SA1 =10H 07012 M01S00346.v23l617 +++| BX1 X1-X6 07013 M01S00347.v23l617 +++| MX0 -6 07014 M01S00348.v23l617 +++| ZR X1,SRD9 IF BLANK WORD 07015 M01S00349.v23l617 +++| SA6 SRDB 07016 M01S00350.v23l617 +++| SRD8 LX6 6 LEFT JUSTIFY FIELD 07017 M01S00351.v23l617 +++| BX2 -X0*X6 07018 M01S00352.v23l617 +++| SX2 X2-1R 07019 M01S00353.v23l617 +++| ZR X2,SRD8 IF BLANK CHARACTER 07020 M01S00354.v23l617 +++| LX6 -6 07021 M01S00355.v23l617 +++| SA6 B2+B5 07022 M01S00356.v23l617 +++| SA2 SRDB 07023 M01S00357.v23l617 +++| BX6 X2
| Line S05990 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07024 M02S05990.v23l617 ---| PL X3,SRD8 IF NOT MULTIPLE WORD RESULT 07025 M01S00358.v23l617 +++| SRD9 PL X3,SRD10 IF NOT MULTIPLE WORD RESULT
| Line S05991 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07026 M02S05991.v23l617 ---| SA7 A6+B1 07027 M01S00359.v23l617 +++| SA7 A6+1
| Line S05992 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07028 M02S05992.v23l617 ---| SRD8 ZR X5,SRD13 IF NO LIMITS MESSAGE 07029 M01S00360.v23l617 +++| SRD10 ZR X5,SRD15 IF NO LIMITS MESSAGE 07030 M01S05993.modval +++| SA2 X5+5 GET MULTIPLE ENTRY 1ST WORD 07031 M01S05994.modval +++| LX4 59-34-59+33 07032 M01S05995.modval +++| SA6 A2 STORE LIMITS VALUE
| Line S05996 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07033 M02S05996.v23l617 ---| PL X3,SRD9 IF NOT MULTIPLE WORD RESULT 07034 M01S00361.v23l617 +++| PL X3,SRD11 IF NOT MULTIPLE WORD RESULT 07035 M01S05997.modval +++| SA6 A2-B1 07036 M01S05998.modval +++| SA7 A2 07037 M01S05999.modval +++| BX2 X6 07038 M01S06000.modval +++| LX6 X7
| Line S06001 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07039 M02S06001.v23l617 ---| SRD9 PL X4,SRD13 IF NO RIGHT JUSTIFY FOR LIMITS FIELD 07040 M01S00362.v23l617 +++| SRD11 PL X4,SRD15 IF NO RIGHT JUSTIFY FOR LIMITS FIELD 07041 M01S06002.modval +++| SA1 =10H 07042 M01S06003.modval +++| BX1 X1-X6
| Line S06004 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07043 M02S06004.v23l617 ---| ZR X1,SRD11 IF BLANK WORD 07044 M01S00363.v23l617 +++| ZR X1,SRD13 IF BLANK WORD 07045 M01S06005.modval +++| MX0 -6
| Line S06006 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07046 M02S06006.v23l617 ---| SRD10 BX7 -X0*X6 RIGHT JUSTIFY BLANK FILLED DATA 07047 M01S00364.v23l617 +++| SRD12 BX7 -X0*X6 RIGHT JUSTIFY BLANK FILLED DATA 07048 M01S06007.modval +++| SX7 X7-1R 07049 M01S06008.modval +++| LX6 -6
| Line S06009 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07050 M02S06009.v23l617 ---| ZR X7,SRD10 IF BLANK 07051 M01S00365.v23l617 +++| ZR X7,SRD12 IF BLANK 07052 M01S06010.modval +++| LX6 6 07053 M01S06011.modval +++| SA6 A2 STORE RIGHT JUSTIFIED LIMITS VALUE
| Line S06012 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07054 M02S06012.v23l617 ---| SRD11 NG X3,SRD12 IF MULTIPLE WORD RESULT
| Line S06013 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07055 M02S06013.v23l617 ---| ZR B5,SRD13 IF NOT CONTINUATION ENTRY
| Line S06014 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07056 M02S06014.v23l617 ---| SRD12 RJ MRJ RIGHT JUSTIFY MULTIPLE WORD
| Line S06015 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 07057 M02S06015.v23l617 ---| SRD13 SA1 SRDA GET DATA VALUE 07058 M01S00366.v23l617 +++| SRD13 NG X3,SRD14 IF MULTIPLE WORD RESULT 07059 M01S00367.v23l617 +++| ZR B5,SRD15 IF NOT CONTINUATION ENTRY 07060 M01S00368.v23l617 +++| SRD14 RJ MRJ RIGHT JUSTIFY MULTIPLE WORD 07061 M01S00369.v23l617 +++| SRD15 SA1 SRDA GET DATA VALUE 07062 M01S06016.modval +++| RJ CAV CALCULATE ACTUAL VALUE 07063 M01S06017.modval +++| NZ X3,SRD1 IF ACTUAL VALUE CALCULATED 07064 M01S06018.modval +++| SA1 SRDA 07065 M01S06019.modval +++| NZ X1,SRD1 IF DATA VALUE PRESENT 07066 M01S06020.modval +++| SA1 A0+B1 CLEAR LIMITS MESSAGE 07067 M01S06021.modval +++| MX6 18 07068 M01S06022.modval +++| LX6 -6 07069 M01S06023.modval +++| BX6 -X6*X1 07070 M01S06024.modval +++| SA6 A1+ 07071 M01S06025.modval +++| EQ SRD1 CONTINUE RECORD FORMATTING 07072 M01S06026.modval +++| 07073 M01S06027.modval +++| 07074 M01S06028.modval +++| SRDA CON 0 DATA FIELD 07075 M01S00370.v23l617 +++| SRDB CON 0 K-DISPLAY DATA FIELD BEFORE LEFT JUSTIFY 07076 M01S06029.modval +++| TITLE MISCELLANEOUS ROUTINES. 07077 M01S06030.modval +++| ABT SPACE 4,10 07078 M01S06031.modval +++|** ABT - ABORT EXIT. 07079 M01S06032.modval +++| 07080 M01S06033.modval +++| 07081 M01S06034.modval +++| ABM BSS 0 ENTRY 07082 M01S06035.modval +++| MESSAGE CCDR,0,R ISSUE COMMAND TO DAYFILE 07083 M01S06036.modval +++| EQ ABT ABORT 07084 M01S06037.modval +++| 07085 M01S06038.modval +++| ABE BSS 0 ENTRY 07086 M01S00002.modva33 +++| SX2 DMGV * GENVAL ABORTED.* 07087 M01S06039.modval +++| SA1 GENF
| Line S06040 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07088 M02S06040.modva33 ---| ZR X1,ABE1 IF NOT *GENVAL*
| Line S06041 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07089 M02S06041.modva33 ---| SX2 DMGV * GENVAL ABORTED.*
| Line S06042 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07090 M02S06042.modva33 ---| EQ ABT ABORT
| Line S06043 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07091 M02S06043.modva33 ---|
| Line S06044 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva33 |
Seq # *Modification Id* Act ----------------------------+ 07092 M02S06044.modva33 ---| ABE1 SX2 DMAB * MODVAL ABORTED.* 07093 M01S00003.modva33 +++| NZ X1,ABT IF *GENVAL* 07094 M01S00004.modva33 +++| SX2 DMAB * MODVAL ABORTED.* 07095 M01S00005.modva33 +++| SA1 PSWF 07096 M01S00006.modva33 +++| ZR X1,ABT IF NOT *PASSWOR* 07097 M01S00007.modva33 +++| SX2 DMPA * ERROR IN PASSWOR ARGUMENTS.* 07098 M01S00008.modva33 +++| SA1 TSTB+1 07099 M01S00009.modva33 +++| AX1 54-0 07100 M01S00010.modva33 +++| ZR X1,ABT IF NOT NETWORK TERMINAL 07101 M01S00011.modva33 +++| WRITEC O,TRMB RESET CURSOR POSITIONING 07102 M01S00012.modva33 +++| SX2 DMPA RESET ERROR MESSAGE 07103 M01S06045.modval +++|* EQ ABT ABORT 07104 M01S06046.modval +++| 07105 M01S06047.modval +++| ABT BSS 0 ENTRY 07106 M01S06048.modval +++| MESSAGE X2,3 ISSUE ERROR MESSAGE 07107 M01S06049.modval +++| RJ COB CHECK OUTPUT BUFFER 07108 M01S06050.modval +++| SA1 ABTA 07109 M01S06051.modval +++| ZR X1,ABT1 IF UPDATE NOT PERFORMED 07110 M01S06052.modval +++| RJ SUI SET AVAILABLE USER INDICES 07111 M01S06053.modval +++| ABT1 SA3 RAPF CHECK SYSTEM FILE ATTACHED 07112 M01S06054.modval +++| ZR X3,ABT2 IF NOT ATTACHED 07113 M01S06055.modval +++| RETURN U 07114 M01S06056.modval +++| RECALL N 07115 M01S06057.modval +++| RETURN P 07116 M01S06058.modval +++| ABT2 SA1 GENF 07117 M01S06059.modval +++| ZR X1,ABT3 IF NOT *GENVAL* 07118 M01S06060.modval +++| RETURN P 07119 M01S06061.modval +++| RETURN U 07120 M01S06062.modval +++| ABT3 RJ CAF CHECK ALTERNATE FAMILY 07121 M01S06063.modval +++| ABORT 07122 M01S06064.modval +++| 07123 M01S06065.modval +++| 07124 M01S06066.modval +++| ABTA CON 0 SET IF UPDATE PERFORMED 07125 M01S00013.modva33 +++| ABTB RPVBLK ABE *REPRIEVE* BLOCK 07126 M01S06067.modval +++| ACI SPACE 4,20 07127 M01S06068.modval +++|** ACI - ASSEMBLE CHARACTERS INTERFACE. 07128 M01S06069.modval +++|* 07129 M01S06070.modval +++|* ENTRY (X1) = BIT STRING OF CHARACTERS TO PERMIT. 07130 M01S06071.modval +++|* (X6) = BIT STRING OF CHARACTER TO SUPPRESS. 07131 M01S06072.modval +++|* 07132 M01S06073.modval +++|* EXIT (CBUF - CBUF+CBUFL) = LEFT JUSTIFIED 07133 M01S06074.modval +++|* ASSEMBLED CHARACTERS. 07134 M01S06075.modval +++|* (X4) = NUMBER OF CHARACTERS. 07135 M01S06076.modval +++|* (B5) = SEPARATOR ( 0 IF END-OF-LINE). 07136 M01S06077.modval +++|* (B6) = 0 IF ENTRY TERMINATION. 07137 M01S06078.modval +++|* (B6) .NE. 0 IF ASSEMBLY COMPLETE. 07138 M01S06079.modval +++|* (ET) = -1 IF EOF. 07139 M01S06080.modval +++|* (ET) = 1 IF */* ENTRY TERMINATION. 07140 M01S06081.modval +++|* 07141 M01S06082.modval +++|* USES X - 0, 1, 2, 4, 6, 7. 07142 M01S06083.modval +++|* A - 1, 2, 6, 7. 07143 M01S06084.modval +++|* B - 2, 4. 07144 M01S06085.modval +++|* 07145 M01S06086.modval +++|* MACROS FUNC. 07146 M01S06087.modval +++| 07147 M01S06088.modval +++| 07148 M01S06089.modval +++| ACI SUBR ENTRY/EXIT 07149 M01S06090.modval +++| SA6 ACIC SAVE BIT STRING TO SUPPRESS 07150 M01S06091.modval +++| BX7 X1 07151 M01S06092.modval +++| SX6 B0 07152 M01S06093.modval +++| SA7 ACIB SAVE BIT STRING TO PERMIT 07153 M01S06094.modval +++| SA6 ACIA CLEAR CHARACTER COUNT 07154 M01S06095.modval +++| SA6 ACID CLEAR CHARACTER BUFFER INDEX 07155 M01S06096.modval +++| SB2 CBUFL-1 07156 M01S06097.modval +++| ACI1 SA6 CBUF+B2 CLEAR CHARACTER BUFFER 07157 M01S06098.modval +++| SB2 B2-1 07158 M01S06099.modval +++| PL B2,ACI1 IF CLEAR NOT COMPLETE 07159 M01S06100.modval +++| ACI2 SX0 I INPUT FET ADDRESS 07160 M01S06101.modval +++| SA2 ACIC CHARACTERS TO BE SUPPRESSED 07161 M01S06102.modval +++| SA1 ACIB CHARACTERS TO BE ALLOWED 07162 M01S06103.modval +++| BX6 X2 07163 M01S06104.modval +++| FUNC ASCT ASSEMBLE CHARACTERS 07164 M01S06105.modval +++| SA2 ACID 07165 M01S06106.modval +++| SA6 CBUF+X2 STORE ASSEMBLED CHARACTERS 07166 M01S06107.modval +++| SA1 ACIA 07167 M01S06108.modval +++| SB4 X4-10 07168 M01S06109.modval +++| IX4 X1+X4 INCREMENT CHARACTER COUNT 07169 M01S06110.modval +++| NG B4,ACIX IF SEPARATOR ENCOUNTERED 07170 M01S06111.modval +++| BX7 X4 07171 M01S06112.modval +++| SA7 A1 07172 M01S06113.modval +++| SX7 X2-CBUFL-1 07173 M01S06114.modval +++| PL X7,ACI2 IF BUFFER FULL 07174 M01S06115.modval +++| SX7 X2+B1 07175 M01S06116.modval +++| SA7 A2 INCREMENT CHARACTER BUFFER INDEX 07176 M01S06117.modval +++| EQ ACI2 ASSEMBLE MORE CHARACTERS 07177 M01S06118.modval +++| 07178 M01S06119.modval +++| 07179 M01S06120.modval +++| ACIA BSS 1 CHARACTER COUNT 07180 M01S06121.modval +++| ACIB BSS 1 BIT STRING OF CHARACTERS TO PERMIT 07181 M01S06122.modval +++| ACIC BSS 1 BIT STRING OF CHARACTERS TO SUPPRESS 07182 M01S06123.modval +++| ACID BSS 1 CHARACTER BUFFER INDEX 07183 M01S06124.modval +++| ADT SPACE 4,10 07184 M01S06125.modval +++|** ADT - ADD TERM TO CURRENT DATE. 07185 M01S06126.modval +++|* 07186 M01S06127.modval +++|* ENTRY (X1) = TERM VALUE. 07187 M01S06128.modval +++|* 07188 M01S06129.modval +++|* EXIT (X2) = (X6) = NEW PACKED DATE. 07189 M01S06130.modval +++|* 07190 M01S06131.modval +++|* USES A - 2, 7. 07191 M01S06132.modval +++|* X - 2, 6, 7. 07192 M01S06133.modval +++|* 07193 M01S06134.modval +++|* MACROS SYSTEM. 07194 M01S06135.modval +++| 07195 M01S06136.modval +++| 07196 M01S06137.modval +++| ADT SUBR ENTRY/EXIT 07197 M01S06138.modval +++| BX7 X1 SET UP *CPM* PARAMETER WORD 07198 M01S06139.modval +++| SA7 ADTA 07199 M01S06140.modval +++| SYSTEM CPM,R,A7,121B*100B ADD TERM TO CURRENT DATE 07200 M01S06141.modval +++| SA2 A7 GET NEW PACKED DATE 07201 M01S06142.modval +++| BX6 X2 07202 M01S06143.modval +++| EQ ADTX RETURN 07203 M01S06144.modval +++| 07204 M01S06145.modval +++| 07205 M01S06146.modval +++| ADTA BSS 1 *CPM* PARAMETERS 07206 M01S06147.modval +++| AUI SPACE 4,15 07207 M01S06148.modval +++|** AUI - ASSIGN USER INDEX. 07208 M01S06149.modval +++|* 07209 M01S06150.modval +++|* 07210 M01S06151.modval +++|* ENTRY NO USER INDEX IN *TANB* BLOCK. 07211 M01S06152.modval +++|* 07212 M01S06153.modval +++|* EXIT (X0) .LT. 0, IF USER INDEX SET. 07213 M01S06154.modval +++|* (X0) .GE. 0, IF USER INDEX NOT SET. 07214 M01S06155.modval +++|* (B3) = MESSAGE, IF USER INDEX NOT SET. 07215 M01S06156.modval +++|* 07216 M01S06157.modval +++|* USES X - 0, 1, 6, 7. 07217 M01S06158.modval +++|* A - 1, 6, 7. 07218 M01S06159.modval +++|* B - 2, 3, 4, 5. 07219 M01S06160.modval +++| 07220 M01S06161.modval +++| 07221 M01S06162.modval +++| AUI4 MX0 1 SET UI USED 07222 M01S06163.modval +++| SB5 B5+B2 07223 M01S06164.modval +++| BX1 X0+X1 07224 M01S06165.modval +++| SB4 B4-B2 07225 M01S06166.modval +++| LX6 X1,B4 07226 M01S06167.modval +++| SX7 B5+B1 07227 M01S06168.modval +++| SA6 A1 07228 M01S06169.modval +++| SA1 TANB+AUIN SET INDEX IN RECORD BLOCK 07229 M01S06170.modval +++| MX0 42 07230 M01S06171.modval +++| BX1 X0*X1 07231 M01S06172.modval +++| BX7 X1+X7 07232 M01S06173.modval +++| SA7 A1 07233 M01S06174.modval +++| 07234 M01S06175.modval +++| AUI SUBR ENTRY/ EXIT 07235 M01S06176.modval +++| SB3 AUIMX-1
| Line S06177 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | nccaui |
Seq # *Modification Id* Act ----------------------------+ 07236 M02S06177.nccaui ---| SA1 TAUI-1
| Line S06178 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | nccaui |
Seq # *Modification Id* Act ----------------------------+ 07237 M02S06178.nccaui ---| SB5 B0 07238 M01S00001.nccaui +++| SA1 TAUI+2-1 07239 M01S00002.nccaui +++| SB5 2*60D 07240 M01S06179.modval +++| SB4 60 CONSTANT 60 07241 M01S06180.modval +++| AUI1 SA1 A1+B1 07242 M01S06181.modval +++| SB2 B0 07243 M01S06182.modval +++| GE B5,B3,AUI3 IF ALL ASSIGNED 07244 M01S06183.modval +++| AUI2 PL X1,AUI4 IF UI FREE 07245 M01S06184.modval +++| LX1 1 07246 M01S06185.modval +++| SB2 B2+B1 07247 M01S06186.modval +++| LT B2,B4,AUI2 IF MORE TO CHECK 07248 M01S06187.modval +++| SB5 B5+B4 07249 M01S06188.modval +++| EQ AUI1 LOOP FOR NEXT WORD 07250 M01S06189.modval +++| 07251 M01S06190.modval +++| AUI3 SX0 B0+ SET ERROR 07252 M01S06191.modval +++| SB3 ERUN **** NO USER INDICES AVAILABLE. 07253 M01S06192.modval +++| EQ AUIX RETURN 07254 M01S00371.v23l617 +++| CDP SPACE 4,15 07255 M01S00372.v23l617 +++|** CDP - CLEAR DEFAULT PERMISSION BITS. 07256 M01S00373.v23l617 +++|* 07257 M01S00374.v23l617 +++|* ENTRY (A0) = ADDRESS OF *TPCW* ENTRY. 07258 M01S00375.v23l617 +++|* (X4) = PERMISSION CONTROL WORD. 07259 M01S00376.v23l617 +++|* 07260 M01S00377.v23l617 +++|* EXIT (X4) = NEW PERMISSION CONTROL WORD. 07261 M01S00378.v23l617 +++|* DEFAULT BITS CLEARED IN PERMISSION CONTROL WORD. 07262 M01S00379.v23l617 +++|* PERMISSION CONTROL DEFAULT MASK BIT SET. 07263 M01S00380.v23l617 +++|* 07264 M01S00381.v23l617 +++|* USES X - 0, 1, 2, 3, 4, 6. 07265 M01S00382.v23l617 +++|* A - 1, 6. 07266 M01S00383.v23l617 +++|* B - 2, 3. 07267 M01S00384.v23l617 +++| 07268 M01S00385.v23l617 +++| 07269 M01S00386.v23l617 +++| CDP SUBR ENTRY/EXIT 07270 M01S00387.v23l617 +++| SA1 A0 07271 M01S00388.v23l617 +++| MX2 -6 07272 M01S00389.v23l617 +++| LX1 -18 07273 M01S00390.v23l617 +++| BX3 -X2*X1 NUMBER OF PERMISSION BITS 07274 M01S00391.v23l617 +++| LX1 -6 07275 M01S00392.v23l617 +++| BX2 -X2*X1 SHIFT FOR MASK 07276 M01S00393.v23l617 +++| SB2 X3-1 MASK BITS 07277 M01S00394.v23l617 +++| SB3 X2 MASK SHIFT 07278 M01S00395.v23l617 +++| MX0 1 07279 M01S00396.v23l617 +++| AX0 B2 07280 M01S00397.v23l617 +++| LX0 B3 07281 M01S00398.v23l617 +++| BX4 -X0*X4 CLEAR DEFAULT PERMISSIONS 07282 M01S00399.v23l617 +++| SB2 A0-TPCW PREVENT ADDITIONAL CLEAR OF DEFAULT BITS 07283 M01S00400.v23l617 +++| SA1 PCDW 07284 M01S00401.v23l617 +++| SX2 B1 07285 M01S00402.v23l617 +++| LX2 B2 07286 M01S00403.v23l617 +++| BX6 X1+X2 07287 M01S00404.v23l617 +++| SA6 A1 07288 M01S00405.v23l617 +++| EQ CDPX RETURN 07289 M01S06193.modval +++| CEP SPACE 4,10 07290 M01S06194.modval +++|** CEP - CLEAR ERROR PROCESSING. 07291 M01S06195.modval +++|* 07292 M01S06196.modval +++|* ENTRY (A1) = FET ADDRESS. 07293 M01S06197.modval +++|* 07294 M01S06198.modval +++|* USES X - 0, 2, 6. 07295 M01S06199.modval +++|* A - 2, 6. 07296 M01S06200.modval +++| 07297 M01S06201.modval +++| 07298 M01S06202.modval +++| CEP SUBR ENTRY/EXIT 07299 M01S06203.modval +++| SA2 A1+B1 CLEAR ERROR PROCESSING BIT 07300 M01S06204.modval +++| SX0 B1 07301 M01S06205.modval +++| LX0 44 07302 M01S06206.modval +++| BX6 -X0*X2 07303 M01S06207.modval +++| SA6 A2 07304 M01S06208.modval +++| EQ CEPX RETURN 07305 M01S06209.modval +++| CER SPACE 4,20 07306 M01S06210.modval +++|** CER - CHECK FOR ERROR. 07307 M01S06211.modval +++|*
| Line S06212 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07308 M02S06212.modva18 ---|* ENTRY (A1) = FET ADDRESS.
| Line S06213 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07309 M02S06213.modva18 ---|* (B4) = RETURN CONTROL ADDRESS, ONLY REQUIRED WHEN
| Line S06214 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07310 M02S06214.modva18 ---|* *CER* CALLED FROM PRESET.
| Line S06215 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07311 M02S06215.modva18 ---|* (X1) = FIRST WORD OF FET.
| Line S06216 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07312 M02S06216.modva18 ---|*
| Line S06217 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07313 M02S06217.modva18 ---|* EXIT ABORT IF ERROR ENCOUNTERED WHEN *CER* NOT CALLED FROM
| Line S06218 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07314 M02S06218.modva18 ---|* PRESET.
| Line S06219 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07315 M02S06219.modva18 ---|*
| Line S06220 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07316 M02S06220.modva18 ---|* ABORT IF ERROR ENCOUNTERED WHEN *CER* CALLED FROM
| Line S06221 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07317 M02S06221.modva18 ---|* PRESET AND JOB IS TIME-SHARING ORIGIN.
| Line S06222 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07318 M02S06222.modva18 ---|*
| Line S06223 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07319 M02S06223.modva18 ---|* ABORT IF ERROR IS NOT *FILE BUSY* FROM *PFM*.
| Line S06224 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07320 M02S06224.modva18 ---|*
| Line S06225 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07321 M02S06225.modva18 ---|* IF ERROR ENCOUNTERED WHEN *CER* CALLED FROM PRESET
| Line S06226 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07322 M02S06226.modva18 ---|* AND JOB IS NOT TIME-SHARING ORIGIN, CONTROL IS
| Line S06227 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07323 M02S06227.modva18 ---|* RETURNED TO ADDRESS SPECIFIED BY (B4) AFTER ROLLOUT
| Line S06228 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07324 M02S06228.modva18 ---|* IS COMPLETE.
| Line S06229 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07325 M02S06229.modva18 ---|*
| Line S06230 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07326 M02S06230.modva18 ---|* USES X - 0, 1, 2, 6.
| Line S06231 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07327 M02S06231.modva18 ---|* A - 2, 6.
| Line S06232 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07328 M02S06232.modva18 ---|*
| Line S06233 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07329 M02S06233.modva18 ---|* MACROS ROLLOUT. 07330 M01S00011.modva18 +++|* ENTRY (A1) = FET ADDRESS. 07331 M01S00012.modva18 +++|* (X1) = FIRST WORD OF FET. 07332 M01S00013.modva18 +++|* (B4) = RETURN ADDRESS. CONTROL IS RETURNED HERE 07333 M01S00014.modva18 +++|* IF THE FILE IS FOUND BUSY. 07334 M01S00015.modva18 +++|* 07335 M01S00016.modva18 +++|* EXIT TO (B4) AFTER WAITING FOR FILE TO BECOME AVAILABLE. 07336 M01S00017.modva18 +++|* TO *ABE* IF ONE OF THE FOLLOWING CONDITIONS - 07337 M01S00018.modva18 +++|* 1. AN ERROR OTHER THAN FILE BUSY WAS ENCOUNTERED. 07338 M01S00019.modva18 +++|* 2. AN ERROR IS PRESENT AND *CER* WAS NOT CALLED FROM 07339 M01S00020.modva18 +++|* *PRESET*. 07340 M01S00021.modva18 +++|* TO *ABT* IF AN INTERACTIVE JOB HAS MADE TEN 07341 M01S00022.modva18 +++|* UNSUCCESSFUL ATTEMPTS TO ATTACH THE VALIDATION FILE. 07342 M01S00023.modva18 +++|* 07343 M01S00024.modva18 +++|* USES X - 0, 1, 2, 6. 07344 M01S00025.modva18 +++|* A - 2, 6. 07345 M01S00026.modva18 +++|* 07346 M01S00027.modva18 +++|* MACROS MESSAGE, ROLLOUT. 07347 M01S06234.modval +++| 07348 M01S06235.modval +++| 07349 M01S06236.modval +++| CER SUBR ENTRY/EXIT 07350 M01S06237.modval +++| MX0 -4 CHECK FOR ERROR 07351 M01S06238.modval +++| AX1 10 07352 M01S06239.modval +++| BX0 -X0*X1 07353 M01S06240.modval +++| ZR X0,CERX IF NO ERROR 07354 M01S06241.modval +++| SX0 X0-/ERRMSG/FBS 07355 M01S06242.modval +++| NZ X0,ABE IF NOT *FILE BUSY* RETURN FROM *PFM*
| Line S06243 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07356 M02S06243.modva18 ---| CERA SA2 OT
| Line S06244 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07357 M02S06244.modva18 ---| SX2 X2-TXOT
| Line S06245 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07358 M02S06245.modva18 ---|* EQ ABE (IF NOT PRESET CALL)
| Line S06246 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07359 M02S06246.modva18 ---| NZ X2,CER1 IF NOT TIME-SHARING JOB 07360 M01S00028.modva18 +++| SA2 CERA 07361 M01S00029.modva18 +++| NZ X2,ABE IF NOT PRESET CALL 07362 M01S00030.modva18 +++| SX1 A1-U 07363 M01S00031.modva18 +++| ZR X1,CER3 IF *VALINDS* REQUEST 07364 M01S06247.modval +++| SA2 CERC 07365 M01S06248.modval +++| SX6 X2-1
| Line S06249 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07366 M02S06249.modva18 ---| ZR X6,ABE IF RETRY COUNT EXCEEDED 07367 M01S00032.modva18 +++| ZR X6,CER2 IF RETRY COUNT EXCEEDED 07368 M01S06250.modval +++| SA6 A2+
| Line S06251 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07369 M02S06251.modva18 ---| CER1 ROLLOUT ROLLOUT UNTIL FILE NOT BUSY 07370 M01S00033.modva18 +++| MESSAGE DMWV,2,R * WAITING FOR VALIDATION FILE.* 07371 M01S00034.modva18 +++| ROLLOUT CERD ROLLOUT FOR 5 SECONDS 07372 M01S00035.modva18 +++| MESSAGE (=C**),2,R 07373 M01S06252.modval +++| JP B4 RETURN CONTROL 07374 M01S06253.modval +++|
| Line S06254 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07375 M02S06254.modva18 ---|
| Line S06255 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07376 M02S06255.modva18 ---| CERB EQ ABE ABORT
| Line S06256 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07377 M02S06256.modva18 ---|
| Line S06257 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07378 M02S06257.modva18 ---|
| Line S06258 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | modva18 |
Seq # *Modification Id* Act ----------------------------+ 07379 M02S06258.modva18 ---| CERC CON 10 RETRY COUNT FOR TELEX JOBS 07380 M01S00036.modva18 +++| CER2 SA2 OT 07381 M01S00037.modva18 +++| SX2 X2-IAOT 07382 M01S00038.modva18 +++| NZ X2,CER3 IF NOT INTERACTIVE JOB 07383 M01S00039.modva18 +++| SX2 DMVB * VALIDATION FILE BUSY.* 07384 M01S00040.modva18 +++| EQ ABT ABORT 07385 M01S00041.modva18 +++| 07386 M01S00042.modva18 +++| CER3 ROLLOUT CERB 07387 M01S00043.modva18 +++| JP B4 RETRY 07388 M01S00044.modva18 +++| 07389 M01S00045.modva18 +++| 07390 M01S00046.modva18 +++| CERA CON 0 PRESET CALL FLAG 07391 M01S00047.modva18 +++| CERB CON 0 FAST ATTACH FILE BUSY TIMED/EVENT ROLLOUT 07392 M01S00048.modva18 +++| CERC CON 10 RETRY COUNT 07393 M01S00049.modva18 +++| CERD CON 5 PARAMETER WORD FOR TIMED ROLLOUT 07394 M01S06259.modval +++| CLN SPACE 4,15 07395 M01S06260.modval +++|** CLN - CHECK LINE NUMBER. 07396 M01S06261.modval +++|* 07397 M01S06262.modval +++|* 07398 M01S06263.modval +++|* ENTRY (X1) = AVAILABLE LINES REQUESTED. UPPER 30 BITS 07399 M01S06264.modval +++|* CONTAIN LINES USED IF LESS. 07400 M01S06265.modval +++|* 07401 M01S06266.modval +++|* EXIT NEW PAGE GENERATED IF NECESSARY. 07402 M01S06267.modval +++|* 07403 M01S06268.modval +++|* USES X - 1, 2, 6, 7. 07404 M01S06269.modval +++|* A - 1, 2, 6. 07405 M01S06270.modval +++|* 07406 M01S06271.modval +++|* CALLS CDD. 07407 M01S06272.modval +++|* 07408 M01S06273.modval +++|* MACROS CLOCK, DATE, WRITEC, WRITEH, WRITEW. 07409 M01S06274.modval +++| 07410 M01S06275.modval +++| 07411 M01S06276.modval +++| CLN4 SA6 LC SET NEW LINE COUNT 07412 M01S06277.modval +++| 07413 M01S06278.modval +++| CLN SUBR ENTRY/EXIT 07414 M01S06279.modval +++| SA2 LC 07415 M01S06280.modval +++| IX6 X2-X1 07416 M01S06281.modval +++| PL X6,CLN4 IF ENOUGH ROOM ON PAGE 07417 M01S06282.modval +++| BX7 X1 07418 M01S06283.modval +++| AX7 30 07419 M01S06284.modval +++| ZR X7,CLN1 IF LINES USED = LINES REQUESTED 07420 M01S06285.modval +++| SX1 X1 07421 M01S06286.modval +++| IX6 X2-X7 07422 M01S06287.modval +++| IX2 X2-X1 07423 M01S06288.modval +++| PL X2,CLN4 IF ENOUGH ROOM ON PAGE 07424 M01S06289.modval +++| BX1 X7 07425 M01S06290.modval +++| CLN1 BX6 -X1 SAVE LINES USED COMPLEMENTED 07426 M01S06291.modval +++| SA6 CLNB 07427 M01S06292.modval +++| DATE DATE 07428 M01S06293.modval +++| CLOCK TIME 07429 M01S06294.modval +++| SA1 PN GET PAGE NUMBER 07430 M01S06295.modval +++| SX6 X1+B1 INCREMENT 07431 M01S06296.modval +++| SA6 A1 07432 M01S06297.modval +++| RJ CDD CONVERT 07433 M01S06298.modval +++| LX6 6*4 07434 M01S06299.modval +++| SA6 PAGE 07435 M01S06300.modval +++| WRITEW O,CLNA,1 07436 M01S06301.modval +++| WRITEW O,CCDR,8 WRITE COMMAND IN HEADER LINE 07437 M01S06302.modval +++| WRITEH O,DATE,6 07438 M01S06303.modval +++| SA1 OP CHECK OPTION 07439 M01S06304.modval +++| SX1 X1-LOPT 07440 M01S06305.modval +++| NZ X1,CLN2 IF NOT LIST 07441 M01S06306.modval +++| WRITEC O,SUBT1 07442 M01S06307.modval +++| WRITEC O,SUBT2 07443 M01S06308.modval +++| WRITEC O,(=1L ) 07444 M01S06309.modval +++| SA1 CLNB 07445 M01S06310.modval +++| SA2 LPPG GET LINES PER PAGE 07446 M01S06311.modval +++| IX6 X1+X2 07447 M01S06312.modval +++| SX6 X6-5 07448 M01S06313.modval +++| EQ CLN3 CHECK OUTPUT FILE TYPE 07449 M01S06314.modval +++| 07450 M01S06315.modval +++| CLN2 SA1 CLNB SET LINES REMAINING ON PAGE 07451 M01S06316.modval +++| SA2 LPPG GET LINES PER PAGE 07452 M01S06317.modval +++| IX6 X1+X2 07453 M01S06318.modval +++| SX6 X6-2 07454 M01S06319.modval +++| CLN3 SA1 OF CHECK OUTPUT FILE TYPE 07455 M01S06320.modval +++| NZ X1,CLN4 IF NOT A TERMINAL FILE 07456 M01S06321.modval +++| MX6 1 07457 M01S06322.modval +++| BX6 -X6 07458 M01S06323.modval +++| EQ CLN4 RETURN 07459 M01S06324.modval +++| 07460 M01S06325.modval +++| 07461 M01S06326.modval +++| CLNA CON 1H1 CARRIAGE CONTROL 07462 M01S06327.modval +++| CLNB CON 0 LINES USED COMPLEMENT 07463 M01S06328.modval +++| 07464 M01S06329.modval +++| LC CON 0 LINE COUNT 07465 M01S06330.modval +++| PN CON 1 PAGE NUMBER 07466 M01S06331.modval +++| 07467 M01S06332.modval +++| DATE DATA 1H HEADER 07468 M01S06333.modval +++| TIME DATA 1H 07469 M01S06334.modval +++| CON 0APAGE 07470 M01S06335.modval +++| PAGE DATA 1H 07471 M01S06336.modval +++| CON 0 07472 M01S06337.modval +++| CON 1L 07473 M01S06338.modval +++| SUBT1 DIS ,* USER USER CREATION LAST MOD* 07474 M01S06339.modval +++| SUBT2 DIS ,* NAME INDEX DATE DATE* 07475 M01S06340.modval +++| COB SPACE 4,15
| Line S06341 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07476 M02S06341.ns2417 ---|** COB - CHECK OUTPUT BUFFER FOR END OF RUN PROCESSING. 07477 M01S00001.ns2417 +++|** COB - CHECK OUTPUT BUFFER. 07478 M01S06342.modval +++|*
| Line S06343 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07479 M02S06343.ns2417 ---|* ENTRY JUST PREVIOUS TO END OF RUN.
| Line S06344 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07480 M02S06344.ns2417 ---|*
| Line S06345 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07481 M02S06345.ns2417 ---|* EXIT OUTPUT BUFFER DUMPED IF NECESSARY, AND PAGE PARITY
| Line S06346 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07482 M02S06346.ns2417 ---|* MAINTAINED. 07483 M01S00002.ns2417 +++|* EXIT OUTPUT BUFFER FLUSHED IF NECESSARY AND *SSST* STATUS 07484 M01S00003.ns2417 +++|* REMOVED FROM OUTPUT FILE. 07485 M01S06347.modval +++|* 07486 M01S06348.modval +++|* USES X - 1, 2. 07487 M01S06349.modval +++|* A - 1, 2. 07488 M01S06350.modval +++|*
| Line S06351 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07489 M02S06351.ns2417 ---|* MACROS RECALL, SETFS, STATUS, WRITEH, WRITER. 07490 M01S00004.ns2417 +++|* MACROS SETFS, STATUS, WRITER. 07491 M01S06352.modval +++| 07492 M01S06353.modval +++|
| Line S06354 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07493 M02S06354.ns2417 ---| COB1 RECALL O CHECK DATA PRESENT
| Line S06355 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07494 M02S06355.ns2417 ---| SA1 O+2
| Line S06356 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07495 M02S06356.ns2417 ---| SA2 O+3
| Line S06357 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07496 M02S06357.ns2417 ---| IX1 X1-X2
| Line S06358 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07497 M02S06358.ns2417 ---| ZR X1,COB2 IF EMPTY
| Line S06359 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07498 M02S06359.ns2417 ---| WRITER O
| Line S06360 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07499 M02S06360.ns2417 ---|
| Line S06361 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07500 M02S06361.ns2417 ---| COB2 SA2 OF
| Line S06362 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07501 M02S06362.ns2417 ---| ZR X2,COBX IF TERMINAL FILE 07502 M01S00005.ns2417 +++| COB SUBR ENTRY/ EXIT 07503 M01S00006.ns2417 +++| SA1 CLN CHECK IF SUBROUTINE *CLN* EVER CALLED 07504 M01S00007.ns2417 +++| SA2 PLM CHECK IF SUBROUTINE *PLM* EVER CALLED 07505 M01S00008.ns2417 +++| BX2 X1+X2 07506 M01S00009.ns2417 +++| ZR X2,COBX IF NO OUTPUT WRITTEN 07507 M01S00010.ns2417 +++| WRITER O,R FLUSH OUTPUT 07508 M01S00011.ns2417 +++| SA1 OF 07509 M01S00012.ns2417 +++| ZR X1,COBX IF TERMINAL FILE 07510 M01S06363.modval +++| STATUS O,P
| Line S06364 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07511 M02S06364.ns2417 ---| SA1 X2 CHECK IF FILE EXISTS
| Line S06365 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07512 M02S06365.ns2417 ---| MX2 4
| Line S06366 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07513 M02S06366.ns2417 ---| LX1 46
| Line S06367 Modification History | |
|---|---|
M01 (Added by) | modval |
M02 (Updated by) | ns2417 |
Seq # *Modification Id* Act ----------------------------+ 07514 M02S06367.ns2417 ---| BX2 X2*X1
Proceed to Part 5
cdc/nos2.source/opl.opl871/deck/modval.004.txt · Last modified: by 127.0.0.1