Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:pfs.002
Deck PFS Part 002
10 Modifications
Listing Sections
- Deck PFS Start
- Deck PFS Part 1 (Line 1353)
- Deck PFS Part 2 (Line 2825)
- Deck PFS Part 3 (Line 4271)
Source
Seq # *Modification Id* Act ----------------------------+ 02825 M01S02006.286l859 ---| SA6 BTDS+1
| Line S00749 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02826 M01S00749.286l859 +++| SA6 D.BD+1 02827 M01S00750.286l859 +++| SA6 D.BT+1 02828 M00S02007.pfs +++| EQ PBDX RETURN 02829 M00S02008.pfs +++| 02830 M00S02009.pfs +++| PBD1.1 SX2 B0+ SET CONVERSION MODE FOR DATE
| Line S02010 Modification History | |
|---|---|
M01 (Removed by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02831 M01S02010.ns2628 ---| RJ VDT VALIDATE DATE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02832 M01S00025.ns2628 +++| RJ VDE VALIDATE DATE 02833 M00S02011.pfs +++| PL X6,PBD3 IF NO ERROR 02834 M00S02012.pfs +++| PBD2 SX6 ERRG SET PARAMETER ERROR 02835 M00S02013.pfs +++| SA6 ERFL 02836 M00S02014.pfs +++| EQ PBD5 PROCESS TIME ENTRY 02837 M00S02015.pfs +++| 02838 M00S02016.pfs +++| PBD3 LX6 18 POSITION CONVERTED DATE 02839 M00S02017.pfs +++| PBD4 SA1 PARC+/COMSPFS/CPBD COMBINE DATE WITH EXISTING TIME 02840 M00S02018.pfs +++| MX2 -18 02841 M00S02019.pfs +++| BX1 -X2*X1 02842 M00S02020.pfs +++| BX6 X6+X1 02843 M00S02021.pfs +++| SA6 A1 POST IN CONVERTED PARAMETER TABLE 02844 M00S02022.pfs +++| 02845 M00S02023.pfs +++|* PROCESS BEFORE TIME. 02846 M00S02024.pfs +++| 02847 M00S02025.pfs +++| PBD5 SA1 EPBT 02848 M00S02026.pfs +++| NZ X1,PBD6 IF TIME ENTERED 02849 M00S02027.pfs +++| EQ PBD9 CHECK K-DISPLAY POSTING REQUIREMENT 02850 M00S02028.pfs +++| 02851 M00S02029.pfs +++| PBD6 SA2 /COMSPFS/UTLC CHECK ENTRY VALIDITY
| Line S02030 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02852 M01S02030.286l859 ---| SB4 EPBT-ENTP 02853 M01S02031.286l859 ---| SA2 TVUP+X2 02854 M01S02032.286l859 ---| LX0 B4,X2
| Line S00751 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02855 M01S00751.286l859 +++| SA4 TVUP+EPBT-ENTP 02856 M01S00752.286l859 +++| SB4 X2 02857 M01S00753.286l859 +++| LX0 B4,X4 02858 M00S02033.pfs +++| PL X0,PBD7 IF NOT VALID ENTRY 02859 M00S02034.pfs +++| SA4 EPBT CHECK FOR RESET TO ZERO 02860 M00S02035.pfs +++| SA2 =1L0 02861 M00S02036.pfs +++| BX6 X4-X2 02862 M00S02037.pfs +++| NZ X6,PBD6.1 IF ZERO NOT SPECIFIED FOR BEFORE TIME 02863 M00S02038.pfs +++| SA2 PBDA POST ZEROES IN K-DISPLAY 02864 M00S02039.pfs +++| BX7 X2
| Line S02040 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02865 M01S02040.286l859 ---| SA7 BTDS+1
| Line S00754 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02866 M01S00754.286l859 +++| SA7 D.BT+1 02867 M00S02041.pfs +++| EQ PBD8 COMBINE TIME WITH EXISTING DATE 02868 M00S02042.pfs +++| 02869 M00S02043.pfs +++| PBD6.1 SX2 B1+ SET CONVERSION MODE FOR TIME
| Line S02044 Modification History | |
|---|---|
M01 (Removed by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02870 M01S02044.ns2628 ---| RJ VDT VALIDATE TIME
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02871 M01S00026.ns2628 +++| RJ VDE VALIDATE TIME 02872 M00S02045.pfs +++| PL X6,PBD8 IF NO ERROR 02873 M00S02046.pfs +++| PBD7 SX6 ERRG SET ERROR FLAG 02874 M00S02047.pfs +++| SA6 ERFL 02875 M00S02048.pfs +++| EQ PBDX RETURN 02876 M00S02049.pfs +++|
| Line S02050 Modification History | |
|---|---|
M01 (Removed by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02877 M01S02050.ns2628 ---| PBD8 SA1 PARC+/COMSPFS/CPBD COMBINE TIME WITH EXISTING DATE
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02878 M01S00027.ns2628 +++| PBD8 SA1 PARC+/COMSPFS/CPBD 02879 M01S00028.ns2628 +++| NZ X2,PBD8.1 IF RELATIVE TIME ENTRY 02880 M00S02051.pfs +++| MX2 42 02881 M00S02052.pfs +++| BX1 X2*X1
| Line S02053 Modification History | |
|---|---|
M01 (Removed by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02882 M01S02053.ns2628 ---| BX6 X6+X1 02883 M01S02054.ns2628 ---| SA6 A1 POST IN CONVERTED PARAMETER TABLE
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2628 |
Seq # *Modification Id* Act ----------------------------+ 02884 M01S00029.ns2628 +++| BX6 X6+X1 MERGE ENTERED TIME WITH DATE 02885 M01S00030.ns2628 +++| PBD8.1 SA6 PARC+/COMSPFS/CPBD POST IN CONVERTED PARAMETER TABLE 02886 M00S02055.pfs +++| PBD9 SA4 PARC+/COMSPFS/CPBD 02887 M00S02056.pfs +++| ZR X4,PBDX IF NOTHING TO DISPLAY 02888 M00S02057.pfs +++| MX5 -18 SAVE TIME 02889 M00S02058.pfs +++| BX5 -X5*X4 02890 M00S02059.pfs +++| AX4 18 DISPLAY DATE 02891 M00S02060.pfs +++| EDATE X4
| Line S02061 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02892 M01S02061.286l859 ---| SA6 BDDS+1
| Line S00755 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02893 M01S00755.286l859 +++| SA6 D.BD+1 02894 M00S02062.pfs +++| ETIME X5 DISPLAY TIME
| Line S02063 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02895 M01S02063.286l859 ---| SA6 BTDS+1
| Line S00756 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02896 M01S00756.286l859 +++| SA6 D.BT+1 02897 M00S02064.pfs +++| SA1 DFAD 02898 M00S02065.pfs +++| ZR X1,PBDX IF AFTER DATE/TIME NOT DEFAULTED 02899 M00S02066.pfs +++| BX6 X6-X6 02900 M00S02067.pfs +++| SA6 PARC+/COMSPFS/CPAD CLEAR AFTER DATE CONVERTED ENTRY 02901 M00S02068.pfs +++| SA6 DFAD CLEAR DEFAULTED AFTER DATE/TIME FLAG 02902 M00S02069.pfs +++| SA1 PBDA 02903 M00S02070.pfs +++| BX6 X1
| Line S02071 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02904 M01S02071.286l859 ---| SA6 ADDS+1 RESET K-DISPLAY AFTER DATE 02905 M01S02072.286l859 ---| SA6 ATDS+1 RESET K-DISPLAY AFTER TIME
| Line S00757 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02906 M01S00757.286l859 +++| SA6 D.AD+1 RESET K-DISPLAY AFTER DATE 02907 M01S00758.286l859 +++| SA6 D.AT+1 RESET K-DISPLAY AFTER TIME 02908 M00S02073.pfs +++| EQ PBDX RETURN 02909 M00S02074.pfs +++|
| Line S00759 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02910 M01S00759.286l859 +++| PBDA DATA H*0* K-DISPLAY RESET CONSTANT 02911 M01S00760.286l859 +++| PCS SPACE 4,20 02912 M01S00761.286l859 +++|** PCS - PROCESS CHARGE AND PROJECT NUMBER SELECTIONS. 02913 M01S00762.286l859 +++|* 02914 M01S00763.286l859 +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 02915 M01S00764.286l859 +++|* (EPCN) = ENTERED CHARGE NUMBER SELECTION. 02916 M01S00765.286l859 +++|* (EPSPN) = ENTERED PROJECT NUMBER SELECTION. 02917 M01S00766.286l859 +++|* (EPCCN) = ENTERED CHARGE NUMBER DELETION. 02918 M01S00767.286l859 +++|* (EPCPN) = ENTERED PROJECT NUMBER DELETION. 02919 M01S00768.286l859 +++|* 02920 M01S00769.286l859 +++|* EXIT CHARGE AND PROJECT NUMBER SELECTIONS UPDATED IF NO 02921 M01S00770.286l859 +++|* ERROR. 02922 M01S00771.286l859 +++|* CHARGE AND PROJECT NUMBER SELECTIONS DISPLAY UPDATED 02923 M01S00772.286l859 +++|* IF NO ERROR. 02924 M01S00773.286l859 +++|* (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 02925 M01S00774.286l859 +++|* 02926 M01S00775.286l859 +++|* USES X - 1, 2, 3, 6, 7. 02927 M01S00776.286l859 +++|* A - 1, 2, 3, 6, 7. 02928 M01S00777.286l859 +++|* B - 2, 3, 4, 5, 6. 02929 M01S00778.286l859 +++|* 02930 M01S00779.286l859 +++|* CALLS ACS, APS, DCS, RCS, RPS. 02931 M00S02075.pfs +++|
| Line S02076 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02932 M01S02076.286l859 ---| PBDA DATA H*0* K-DISPLAY RESET CONSTANT
| Line S00780 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 02933 M01S00780.286l859 +++| 02934 M01S00781.286l859 +++|* SAVE SELECTIONS TABLE POINTERS AND UPDATE K DISPLAY. 02935 M01S00782.286l859 +++| 02936 M01S00783.286l859 +++| PCS5 SX6 B4 02937 M01S00784.286l859 +++| SX7 B5 02938 M01S00785.286l859 +++| SA6 PCSA SAVE ASSUMED CHARGE NUMBER ADDRESS 02939 M01S00786.286l859 +++| SA7 PCSB SAVE END OF ENTRIES ADDRESS 02940 M01S00787.286l859 +++| RJ DCS DISPLAY CHARGE AND PROJECT SELECTIONS 02941 M01S00788.286l859 +++| 02942 M01S00789.286l859 +++| PCS SUBR ENTRY/EXIT 02943 M01S00790.286l859 +++| 02944 M01S00791.286l859 +++|* SET SELECTIONS TABLE POINTERS. 02945 M01S00792.286l859 +++| 02946 M01S00793.286l859 +++| SA1 PCSA 02947 M01S00794.286l859 +++| SA2 PCSB 02948 M01S00795.286l859 +++| SB2 /COMSPFS/TCNS SET FWA OF SELETIONS 02949 M01S00796.286l859 +++| SB3 /COMSPFS/TCNS+/COMSPFS/TCNSL SET LWA+1 OF SELECTIONS 02950 M01S00797.286l859 +++| SB4 X1 SET ASSUMED CHARGE NUMBER ADDRESS 02951 M01S00798.286l859 +++| SB5 X2 SET END OF ENTRIES ADDRESS 02952 M01S00799.286l859 +++| 02953 M01S00800.286l859 +++|* PROCESS CHARGE NUMBER ENTRY. 02954 M01S00801.286l859 +++| 02955 M01S00802.286l859 +++| SA1 EPCN 02956 M01S00803.286l859 +++| SA2 /COMSPFS/UTLC 02957 M01S00804.286l859 +++| SA3 TVUP+EPCN-ENTP 02958 M01S00805.286l859 +++| SX7 ERRG * ENTERED PARAMETER NOT VALID.* 02959 M01S00806.286l859 +++| ZR X1,PCS1 IF NO CHARGE NUMBER SELECTION 02960 M01S00807.286l859 +++| SB6 X2 02961 M01S00808.286l859 +++| LX3 B6 02962 M01S00809.286l859 +++| PL X3,PCS4 IF *CN* PARAMETER NOT VALID FOR UTILITY 02963 M01S00810.286l859 +++| RJ ACS ADD CHARGE NUMBER SELECTION 02964 M01S00811.286l859 +++| SX7 ERRS * CN, SPN ENTRIES AT MAXIMUM.* 02965 M01S00812.286l859 +++| NZ X6,PCS4 IF NO ROOM FOR ENTRY 02966 M01S00813.286l859 +++| 02967 M01S00814.286l859 +++|* PROCESS PROJECT NUMBER ENTRY. 02968 M01S00815.286l859 +++| 02969 M01S00816.286l859 +++| PCS1 SA1 EPSPN 02970 M01S00817.286l859 +++| SA2 /COMSPFS/UTLC 02971 M01S00818.286l859 +++| SA3 TVUP+EPSPN-ENTP 02972 M01S00819.286l859 +++| SX7 ERRG * ENTERED PARAMETER NOT VALID.* 02973 M01S00820.286l859 +++| ZR X1,PCS2 IF NO PROJECT NUMBER SELECTION 02974 M01S00821.286l859 +++| SB6 X2 02975 M01S00822.286l859 +++| LX3 B6 02976 M01S00823.286l859 +++| PL X3,PCS4 IF *SPN* PARAMETER NOT VALID FOR UTILITY 02977 M01S00824.286l859 +++| SX7 ERRW * SPN SPECIFIED BUT NOT CN.* 02978 M01S00825.286l859 +++| ZR B4,PCS4 IF NO SELECTION CHARGE NUMBER 02979 M01S00826.286l859 +++| SA2 A1+1 02980 M01S00827.286l859 +++| RJ APS ADD PROJECT NUMBER SELECTION 02981 M01S00828.286l859 +++| SX7 ERRS * CN, SPN ENTRIES AT MAXIMUM.* 02982 M01S00829.286l859 +++| NZ X6,PCS4 IF PROJECT ENTRY NOT MADE 02983 M01S00830.286l859 +++| 02984 M01S00831.286l859 +++|* PROCESS CHARGE NUMBER DELETION. 02985 M01S00832.286l859 +++| 02986 M01S00833.286l859 +++| PCS2 SA1 EPCCN 02987 M01S00834.286l859 +++| SA2 /COMSPFS/UTLC 02988 M01S00835.286l859 +++| SA3 TVUP+EPCCN-ENTP 02989 M01S00836.286l859 +++| SX7 ERRG * ENTERED PARAMETER NOT VALID.* 02990 M01S00837.286l859 +++| ZR X1,PCS3 IF NO CHARGE NUMBER DELETION 02991 M01S00838.286l859 +++| SB6 X2 02992 M01S00839.286l859 +++| LX3 B6 02993 M01S00840.286l859 +++| PL X3,PCS4 IF *CCN* PARAMETER NOT VALID FOR UTILITY 02994 M01S00841.286l859 +++| RJ RCS REMOVE CHARGE NUMBER SELECTION 02995 M01S00842.286l859 +++| 02996 M01S00843.286l859 +++|* PROCESS PROJECT NUMBER DELETION. 02997 M01S00844.286l859 +++| 02998 M01S00845.286l859 +++| PCS3 SA1 EPCPN 02999 M01S00846.286l859 +++| SA2 /COMSPFS/UTLC 03000 M01S00847.286l859 +++| SA3 TVUP+EPCPN-ENTP 03001 M01S00848.286l859 +++| SX7 ERRG * ENTERED PARAMETER NOT VALID.* 03002 M01S00849.286l859 +++| ZR X1,PCS5 IF NO PROJECT NUMBER DELETION 03003 M01S00850.286l859 +++| SB6 X2 03004 M01S00851.286l859 +++| LX3 B6 03005 M01S00852.286l859 +++| PL X3,PCS4 IF *CPN* PARAMETER NOT VALID FOR UTILITY 03006 M01S00853.286l859 +++| ZR B4,PCS5 IF NO CHARGE NUMBER IN EFFECT 03007 M01S00854.286l859 +++| SA2 A1+B1 03008 M01S00855.286l859 +++| RJ RPS REMOVE PROJECT NUMBER SELECTION 03009 M01S00856.286l859 +++| EQ PCS5 SAVE TABLE POINTERS 03010 M01S00857.286l859 +++| 03011 M01S00858.286l859 +++|* SET ERROR FLAG. 03012 M01S00859.286l859 +++| 03013 M01S00860.286l859 +++| PCS4 SA7 ERFL SET ERROR FLAG 03014 M01S00861.286l859 +++| EQ PCS5 SAVE TABLE POINTERS 03015 M01S00862.286l859 +++| 03016 M01S00863.286l859 +++| 03017 M01S00864.286l859 +++| PCSA CON 0 ASSUMED CHARGE NUMBER ADDRESS 03018 M01S00865.286l859 +++| PCSB CON /COMSPFS/TCNS+3 END OF ENTRIES ADDRESS 03019 M00S02077.pfs +++| PDP SPACE 4,30 03020 M00S02078.pfs +++|** PDP - PROCESS DECIMAL PARAMETERS. 03021 M00S02079.pfs +++|* 03022 M00S02080.pfs +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 03023 M00S02081.pfs +++|* EDEC = FIRST ENTERED DECIMAL PARAMETER. 03024 M00S02082.pfs +++|* CPDM = FIRST CONVERTED DECIMAL PARAMETER.
| Line S02083 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03025 M01S02083.286l859 ---|* DADM = FIRST DECIMAL K-DISPLAY ADDRESS. 03026 M00S02084.pfs +++|* NDEC = NUMBER OF DECIMAL PARAMETERS. 03027 M00S02085.pfs +++|* 03028 M00S02086.pfs +++|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03029 M00S02087.pfs +++|* VALID DECIMAL PARAMETERS POSTED IN THE K-DISPLAY. 03030 M00S02088.pfs +++|* VALID DECIMAL PARAMETERS CONVERTED FROM DISPLAY CODE 03031 M00S02089.pfs +++|* TO BINARY AND POSTED IN THEIR CORRESPONDING 03032 M00S02090.pfs +++|* CONVERTED PARAMETER TABLE LOCATIONS. 03033 M00S02091.pfs +++|* 03034 M00S02092.pfs +++|* USES A - 0, 1, 5, 6.
| Line S02093 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03035 M01S02093.286l859 ---|* B - 2, 3, 4, 7. 03036 M01S02094.286l859 ---|* X - 0, 1, 4, 5, 6.
| Line S00866 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03037 M01S00866.286l859 +++|* B - 2, 3, 4, 6, 7. 03038 M01S00867.286l859 +++|* X - 1, 4, 5, 6. 03039 M00S02095.pfs +++|* 03040 M00S02096.pfs +++|* CALLS DXB, RPT, SPT. 03041 M00S02097.pfs +++| 03042 M00S02098.pfs +++| 03043 M00S02099.pfs +++| PDP SUBR ENTRY/EXIT
| Line S02100 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03044 M01S02100.286l859 ---| SA1 /COMSPFS/UTLC INITIALIZE VALIDATION MASK 03045 M01S02101.286l859 ---| SB4 EDEC-ENTP 03046 M01S02102.286l859 ---| SA1 TVUP+X1 03047 M01S02103.286l859 ---| LX0 B4,X1
| Line S00868 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03048 M01S00868.286l859 +++| SA1 /COMSPFS/UTLC 03049 M00S02104.pfs +++| SB2 EDEC SET FWA OF ENTERED DECIMAL PARAMETERS 03050 M00S02105.pfs +++| SB4 PARC+CPDM SET FWA OF CONVERTED DECIMAL PARAMETERS
| Line S02106 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03051 M01S02106.286l859 ---| SA0 DADM SET FWA OF DECIMAL K-DISPLAY ADDRESSES 03052 M00S02107.pfs +++| SB3 NDEC SET NUMBER OF DECIMAL PARAMETERS
| Line S02108 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03053 M01S02108.286l859 ---| SB7 B1 SET CONVERSION MODE TO DECIMAL FOR *DXB* 03054 M01S02109.286l859 ---| PDP1 SA5 B2
| Line S00869 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03055 M01S00869.286l859 +++| SB7 1 SET CONVERSION MODE TO DECIMAL FOR *DXB* 03056 M01S00870.286l859 +++| SB6 X1+ SET UTILITY CODE SHIFT COUNT 03057 M01S00871.286l859 +++| PDP1 SA1 B2+TVUP-ENTP 03058 M01S00872.286l859 +++| SA5 B2+ 03059 M01S00873.286l859 +++| SA0 X1 SET DISPLAY ADDRESS 03060 M01S00874.286l859 +++| LX1 B6 03061 M00S02110.pfs +++| ZR X5,PDP4 IF PARAMETER NOT ENTERED
| Line S02111 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03062 M01S02111.286l859 ---| PL X0,PDP2 IF NOT VALID ENTRY
| Line S00875 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03063 M01S00875.286l859 +++| PL X1,PDP2 IF PARAMETER NOT VALID FOR UTILITY 03064 M00S02112.pfs +++| SX6 1R* 03065 M00S02113.pfs +++| LX6 -6 03066 M00S02114.pfs +++| BX6 X6-X5 03067 M00S02115.pfs +++| NZ X6,PDP1.1 IF NOT SET UNLIMITED 03068 M00S02116.pfs +++| MX6 1 SET UNLIMITED VALUE 03069 M00S02117.pfs +++| BX6 -X6 03070 M00S02118.pfs +++| SA1 PDPA GET DISPLAY VALUE 03071 M00S02119.pfs +++| EQ PDP3 PROCESS NEXT PARAMETER 03072 M00S02120.pfs +++| 03073 M00S02121.pfs +++| PDP1.1 RJ SPT SAVE POINTERS 03074 M00S02122.pfs +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 03075 M00S02123.pfs +++| RJ RPT RESTORE POINTERS 03076 M00S02124.pfs +++| SA1 B2+ GET ENTERED VALUE FOR DISPLAY 03077 M00S02125.pfs +++| ZR X4,PDP3 IF NO ERROR 03078 M00S02126.pfs +++| PDP2 SX6 ERRG SET ERROR FLAG 03079 M00S02127.pfs +++| SA6 ERFL 03080 M00S02128.pfs +++| EQ PDP4 CONTINUE WITH NEXT PARAMETER 03081 M00S02129.pfs +++| 03082 M00S02130.pfs +++| PDP3 SA6 B4 SET CONVERTED PARAMETER 03083 M00S02131.pfs +++| BX6 X1 SET DISPLAY VALUE
| Line S02132 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03084 M01S02132.286l859 ---| SA1 A0 03085 M01S02133.286l859 ---| SA6 X1
| Line S00876 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03086 M01S00876.286l859 +++| SA6 A0+1 03087 M00S02134.pfs +++| PDP4 SB2 B2+B1 INCREMENT POINTERS 03088 M00S02135.pfs +++| SB3 B3-B1
| Line S02136 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03089 M01S02136.286l859 ---| SB4 B4+B1 03090 M01S02137.286l859 ---| SA0 A0+B1 03091 M01S02138.286l859 ---| LX0 B1,X0
| Line S00877 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03092 M01S00877.286l859 +++| SB4 B4+1 03093 M00S02139.pfs +++| NZ B3,PDP1 IF MORE DECIMAL PARAMETERS 03094 M00S02140.pfs +++| EQ PDPX RETURN 03095 M00S02141.pfs +++| 03096 M00S02142.pfs +++| 03097 M00S02143.pfs +++| PDPA DATA H*NO LIMIT * 03098 M00S02144.pfs +++| PFD SPACE 4,15 03099 M00S02145.pfs +++|** PFD - PROCESS FILE SELECTION DELETIONS. 03100 M00S02146.pfs +++|* 03101 M00S02147.pfs +++|* ENTRY (EPCUI) = USER INDEX TO CLEAR. 03102 M00S02148.pfs +++|* (EPCPF) = PERMANENT FILE NAME TO CLEAR. 03103 M00S02149.pfs +++|* 03104 M00S02150.pfs +++|* EXIT SPECIFIED FILE SELECTIONS REMOVED FROM SELECTION 03105 M00S02151.pfs +++|* BUFFER. 03106 M00S02152.pfs +++|* 03107 M00S02153.pfs +++|* USES X - 0, 1, 2, 3, 6, 7. 03108 M00S02154.pfs +++|* A - 1, 2, 3, 5, 6, 7. 03109 M00S02155.pfs +++|* B - 2, 7. 03110 M00S02156.pfs +++|* 03111 M00S02157.pfs +++|* CALLS DFS, DXB. 03112 M00S02158.pfs +++| 03113 M00S02159.pfs +++| 03114 M00S02160.pfs +++| 03115 M00S02161.pfs +++| PFD9 SX6 ERRG * ENTERED PARAMETER NOT VALID.* 03116 M00S02162.pfs +++| SA6 ERFL 03117 M00S02163.pfs +++| 03118 M00S02164.pfs +++| PFD SUBR ENTRY/EXIT 03119 M00S02165.pfs +++| SA5 EPCUI 03120 M00S02166.pfs +++| ZR X5,PFD3 IF NO CLEAR USER INDEX ENTERED 03121 M00S02167.pfs +++| SB7 B0+ SET OCTAL CONVERSION 03122 M00S02168.pfs +++| RJ DXB CONVERT USER INDEX 03123 M00S02169.pfs +++| NZ X4,PFD9 IF ERROR IN CONVERSION 03124 M00S02170.pfs +++| BX1 X6 03125 M00S02171.pfs +++| AX6 17 03126 M00S02172.pfs +++| NZ X6,PFD9 IF USER INDEX TOO LARGE 03127 M00S02173.pfs +++| SA2 PARC+/COMSPFS/CPUI 03128 M00S02174.pfs +++| BX6 X1-X2 03129 M00S02175.pfs +++| LX1 -18 03130 M00S02176.pfs +++| NZ X6,PFD1 IF NOT CLEARING CURRENT USER INDEX 03131 M00S02177.pfs +++| SA3 =1L0 03132 M00S02178.pfs +++| SA6 A2+ CLEAR CURRENT USER INDEX 03133 M00S02179.pfs +++| BX7 X3 SET DISPLAY VALUE
| Line S02180 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03134 M01S02180.286l859 ---| SA7 UIDP+1
| Line S00878 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03135 M01S00878.286l859 +++| SA7 D.UI+1 03136 M00S02181.pfs +++| PFD1 MX0 18 03137 M00S02182.pfs +++| SB2 B0 INITIALIZE SELECTIONS FOUND 03138 M00S02183.pfs +++| SA2 SBUF-1 03139 M00S02184.pfs +++| PFD2 SA2 A2+1 READ NEXT SELECTION 03140 M00S02185.pfs +++| ZR X2,PFD6 IF END OF SELECTIONS 03141 M00S02186.pfs +++| BX6 X0*X2 03142 M00S02187.pfs +++| IX6 X6-X1 03143 M00S02188.pfs +++| NG X6,PFD2 IF BELOW USER INDEX 03144 M00S02189.pfs +++| NZ X6,PFD6 IF PAST USER INDEX 03145 M00S02190.pfs +++| SB2 B2+1 COUNT SELECTION FOUND 03146 M00S02191.pfs +++| EQ PFD2 CHECK NEXT SELECTION 03147 M00S02192.pfs +++| 03148 M00S02193.pfs +++|* PROCESS FILE NAME DELETIONS. 03149 M00S02194.pfs +++| 03150 M00S02195.pfs +++| PFD3 SA1 EPCPF 03151 M00S02196.pfs +++| SA2 PARC+/COMSPFS/CPUI 03152 M00S02197.pfs +++| ZR X1,PFDX IF NO CLEAR FILE NAME ENTERED 03153 M00S02198.pfs +++| ZR X2,PFDX IF NO USER INDEX IN EFFECT 03154 M00S02199.pfs +++| BX1 X1+X2 MERGE USER INDEX AND FILE NAME 03155 M00S02200.pfs +++| LX1 -18 03156 M00S02201.pfs +++| SA2 SBUF-1 03157 M00S02202.pfs +++| SX7 1 SET NO PREVIOUS FILE SELECTION 03158 M00S02203.pfs +++| MX0 18 03159 M00S02204.pfs +++| PFD4 SA2 A2+B1 03160 M00S02205.pfs +++| ZR X2,PFDX IF END OF SELECTIONS 03161 M00S02206.pfs +++| BX3 X7 SET PREVIOUS FILE SELECTION FLAG 03162 M00S02207.pfs +++| BX2 X2-X1 03163 M00S02208.pfs +++| BX7 X0*X2 03164 M00S02209.pfs +++| NZ X2,PFD4 IF NO MATCH ON FILE SELECTION 03165 M00S02210.pfs +++| ZR X3,PFD5 IF PREVIOUS FILE SELECTION FOR USER INDEX 03166 M00S02211.pfs +++| SA3 A2+B1 CHECK NEXT SELECTION 03167 M00S02212.pfs +++| BX3 X1-X3 03168 M00S02213.pfs +++| BX3 X0*X3 03169 M00S02214.pfs +++| ZR X3,PFD5 IF SAME USER INDEX 03170 M00S02215.pfs +++| BX6 X0*X1 SET MATCH-ALL SELECTION FOR USER INDEX 03171 M00S02216.pfs +++| SA6 A2 03172 M00S02217.pfs +++| EQ PFD8 UPDATE SELECTIONS DISPLAY 03173 M00S02218.pfs +++| 03174 M00S02219.pfs +++| PFD5 SA2 A2+B1 SET FIRST WORD TO MOVE 03175 M00S02220.pfs +++| SB2 B1+ SET NUMBER OF SELECTIONS TO CLEAR 03176 M00S02221.pfs +++| 03177 M00S02222.pfs +++|* UPDATE SELECTION COUNT. 03178 M00S02223.pfs +++| 03179 M00S02224.pfs +++| PFD6 ZR B2,PFDX IF NO SELECTIONS FOUND 03180 M00S02225.pfs +++| SA1 /COMSPFS/NFIS 03181 M00S02226.pfs +++| SB3 X1 03182 M00S02227.pfs +++| SX6 B3-B2 03183 M00S02228.pfs +++| SA6 A1+ 03184 M00S02229.pfs +++| 03185 M00S02230.pfs +++|* DELETE SELECTIONS FROM BUFFER. 03186 M00S02231.pfs +++| 03187 M00S02232.pfs +++| PFD7 BX6 X2 03188 M00S02233.pfs +++| SA6 A2-B2 03189 M00S02234.pfs +++| SA2 A2+1 03190 M00S02235.pfs +++| NZ X6,PFD7 IF ALL ENTRIES NOT MOVED 03191 M00S02236.pfs +++| PFD8 RJ DFS DISPLAY FILE SELECTIONS 03192 M00S02237.pfs +++| EQ PFDX RETURN 03193 M00S02238.pfs +++| PFP SPACE 4,20 03194 M00S02239.pfs +++|** PFP - PROCESS FAMILY, PACK AND USER NAME. 03195 M00S02240.pfs +++|* 03196 M00S02241.pfs +++|* EXIT (X6) = 0, IF NO ERROR. 03197 M00S02242.pfs +++|* (X6) .NE. 0, IF ERROR. 03198 M00S02243.pfs +++|* (PFPD) = 0 IF NO ERROR. 03199 M00S02244.pfs +++|* (PFPD) .NE. 0, IF ERROR. 03200 M00S02245.pfs +++|* (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03201 M00S02246.pfs +++|* (PARC+/COMSPFS/CPFM) = 42/FAMILY,6/,12/EST ORDINAL. 03202 M00S02247.pfs +++|* (PARC+/COMSPFS/CPPN) = 42/PACKNAM,6/,12/EST ORDINAL. 03203 M00S02248.pfs +++|* (PARC+/COMSPFS/CPUI) = CONVERTED USER NAME IF NOT 03204 M00S02249.pfs +++|* PRIVATE PACK. 03205 M00S02250.pfs +++|* 03206 M00S02251.pfs +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 03207 M00S02252.pfs +++|* B - 2, 3. 03208 M00S02253.pfs +++|* X - ALL. 03209 M00S02254.pfs +++|* 03210 M00S02255.pfs +++|* CALLS RSB=. 03211 M00S02256.pfs +++|* 03212 M00S02257.pfs +++|* MACROS READCM, SYSTEM. 03213 M00S02258.pfs +++| 03214 M00S02259.pfs +++| 03215 M00S02260.pfs +++| PFP14 SA6 PFPD FORCE REVALIDATION 03216 M00S02261.pfs +++| PFP15 SA6 ERFL SET ERROR FLAG 03217 M00S02262.pfs +++| 03218 M00S02263.pfs +++| PFP SUBR ENTRY/EXIT 03219 M00S02264.pfs +++| SA1 EPFM 03220 M00S02265.pfs +++| SA2 EPPN 03221 M00S02266.pfs +++| SA3 EPUN 03222 M00S02267.pfs +++| SA4 PFPD 03223 M00S02268.pfs +++| IX1 X1+X2 03224 M00S02269.pfs +++| IX3 X3+X4 03225 M00S02270.pfs +++| IX1 X1+X3 03226 M00S02271.pfs +++| ZR X1,PFP12 IF NO NEED TO VALIDATE FM, PN, UN 03227 M00S02272.pfs +++| BX6 X6-X6 03228 M00S02273.pfs +++| SA6 PFPA CLEAR PACK FLAG 03229 M00S02274.pfs +++| SA6 A6+B1 CLEAR DEFAULT FAMILY FLAG 03230 M00S02275.pfs +++| SA5 PARC+/COMSPFS/CPUN READ USER NAME 03231 M00S02276.pfs +++| SA1 PARC+/COMSPFS/CPFN 03232 M00S02277.pfs +++| SA2 PARC+/COMSPFS/CPPN 03233 M00S02278.pfs +++| ZR X2,PFP1 IF NO PACK NAME 03234 M00S02279.pfs +++| SX6 ERRA * BOTH FM AND PN SPECIFIED.* 03235 M00S02280.pfs +++| NZ X1,PFP14 IF BOTH *FM* AND *PN* SPECIFIED 03236 M00S02281.pfs +++| BX1 X2 PROCESS PACK NAME 03237 M00S02282.pfs +++| SX6 B1 SET PACK FLAG 03238 M00S02283.pfs +++| SA6 PFPA 03239 M00S02284.pfs +++| EQ PFP2 READ EST 03240 M00S02285.pfs +++| 03241 M00S02286.pfs +++|* PROCESS DEFAULT FAMILY CALL. 03242 M00S02287.pfs +++| 03243 M00S02288.pfs +++| PFP1 NZ X1,PFP2 IF FAMILY SPECIFIED 03244 M00S02289.pfs +++| READCM B1,PFNL,PARC+/COMSPFS/CPFN 03245 M00S02290.pfs +++| MX0 -9 03246 M00S02291.pfs +++| AX1 12 03247 M00S02292.pfs +++| BX1 -X0*X1 DEFAULT FAMILY EST ORDINAL 03248 M00S02293.pfs +++| SX6 4000B SET DEFAULT FAMILY FLAG 03249 M00S02294.pfs +++| BX6 X6+X1 03250 M00S02295.pfs +++| SA6 PFPB 03251 M00S02296.pfs +++| SX1 B0+ CLEAR NAME 03252 M00S02297.pfs +++| 03253 M00S02298.pfs +++|* READ EST. 03254 M00S02299.pfs +++| 03255 M00S02300.pfs +++| PFP2 MX0 42 SET FAMILY/PACK NAME 03256 M00S02301.pfs +++| BX0 X0*X1 03257 M00S02302.pfs +++| READCM B1,ESTP,ESTBUF READ EST POINTER 03258 M00S02303.pfs +++| MX3 -12 03259 M00S02304.pfs +++| BX2 X1 SET *COMCRSB* ENTRY CONDITIONS 03260 M00S02305.pfs +++| AX2 12 03261 M00S02306.pfs +++| BX3 -X3*X2 03262 M00S02307.pfs +++| SX1 ESTBUF SET ADDRESS TO TRANSFER TO 03263 M00S02308.pfs +++| AX2 24 SET ADDRESS TO TRANSFER FROM 03264 M00S02309.pfs +++| R= X6,ESTE 03265 M00S02310.pfs +++| SB3 X3 SET LAST EST ORDINAL + 1 03266 M00S02311.pfs +++| IX3 X3*X6 SET WORD COUNT 03267 M00S02312.pfs +++| SX4 B0 SET SUBSYSTEM (= *CMR*) 03268 M00S02313.pfs +++| MX6 1 03269 M00S02314.pfs +++| SA6 X1 03270 M00S02315.pfs +++| RJ RSB= READ EST 03271 M00S02316.pfs +++| SB2 NOPE INITIALIZE EST ORDINAL FOR SEARCH 03272 M00S02317.pfs +++| SA1 PFPB 03273 M00S02318.pfs +++| NZ X1,PFP7 IF DEFAULT FAMILY FLAG SET 03274 M00S02319.pfs +++| 03275 M00S02320.pfs +++|* SEARCH FOR FAMILY/PACK. 03276 M00S02321.pfs +++| 03277 M00S02322.pfs +++| PFP3 SX1 B2 03278 M00S02323.pfs +++| R= X2,ESTE 03279 M00S02324.pfs +++| IX6 X1*X2 03280 M00S02325.pfs +++| SA1 ESTBUF+X6+EQDE READ EST ENTRY 03281 M00S02326.pfs +++| SB2 B2+B1 03282 M00S02327.pfs +++| ZR X1,PFP4 IF EMPTY ENTRY 03283 M00S02328.pfs +++| NG X1,PFP5 IF MASS STORAGE EQUIPMENT 03284 M00S02329.pfs +++| PFP4 GT B3,B2,PFP3 IF MORE ENTRIES 03285 M00S02330.pfs +++| SX6 ERRB * FAMILY/PACK NOT FOUND.* 03286 M00S02331.pfs +++| EQ PFP14 ERROR EXIT 03287 M00S02332.pfs +++| 03288 M00S02333.pfs +++| PFP5 MX2 -12 03289 M00S02334.pfs +++| BX2 -X2*X1 MST ADDRESS 03290 M00S02335.pfs +++| LX2 3 03291 M00S02336.pfs +++| READCM MSTL,X2,MSTBUF READ MST 03292 M00S02337.pfs +++| SA1 MSTBUF+PFGL CHECK FAMILY/PACK NAME 03293 M00S02338.pfs +++| MX2 42 03294 M00S02339.pfs +++| BX1 X2*X1 03295 M00S02340.pfs +++| BX1 X1-X0 03296 M00S02341.pfs +++| NZ X1,PFP4 IF NO MATCH ON FAMILY/PACK 03297 M00S02342.pfs +++| SA1 PFPA 03298 M00S02343.pfs +++| ZR X1,PFP8 IF NOT PACK 03299 M00S02344.pfs +++| SA1 MSTBUF+PUGL CHECK USER NAME 03300 M00S02345.pfs +++| BX1 X2*X1 03301 M00S02346.pfs +++| ZR X1,PFP6 IF PACK NOT PRIVATE 03302 M00S02347.pfs +++| BX2 X1-X5 03303 M00S02348.pfs +++| NZ X2,PFP4 IF NO MATCH ON USER NAME 03304 M00S02349.pfs +++| PFP6 SX6 B2-B1 EST ORDINAL 03305 M00S02350.pfs +++| BX6 X6+X0 SET PACK DEFAULT WORD 03306 M00S02351.pfs +++| SA6 PARC+/COMSPFS/CPPN 03307 M00S02352.pfs +++| NZ X1,PFP12 IF PRIVATE PACK 03308 M00S02353.pfs +++| SX0 B0 CLEAR PACK NAME 03309 M00S02354.pfs +++| EQ PFP9 VALIDATE USER NAME 03310 M00S02355.pfs +++| 03311 M00S02356.pfs +++|* READ DEFAULT FAMILY NAME. 03312 M00S02357.pfs +++| 03313 M00S02358.pfs +++| PFP7 MX0 -9 03314 M00S02359.pfs +++| BX2 -X0*X1 DEFAULT FAMILY EST ORDINAL 03315 M00S02360.pfs +++| SB2 X2 03316 M00S02361.pfs +++| R= X0,ESTE 03317 M00S02362.pfs +++| IX6 X2*X0 03318 M00S02363.pfs +++| SA2 ESTBUF+X6+EQDE READ EST ENTRY 03319 M00S02364.pfs +++| MX0 -12 03320 M00S02365.pfs +++| BX2 -X0*X2 03321 M00S02366.pfs +++| LX2 3 MST ADDRESS 03322 M00S02367.pfs +++| READCM MSTL,X2,MSTBUF GET DEFAULT FAMILY NAME 03323 M00S02368.pfs +++| SA1 MSTBUF+PFGL 03324 M00S02369.pfs +++| MX2 42 03325 M00S02370.pfs +++| BX0 X2*X1 03326 M00S02371.pfs +++| SB2 B2+B1 03327 M00S02372.pfs +++| PFP8 SX6 B2-B1 SET FAMILY DEFAULT WORD 03328 M00S02373.pfs +++| BX6 X6+X0 03329 M00S02374.pfs +++| SA6 PARC+/COMSPFS/CPFN 03330 M00S02375.pfs +++| PFP9 ZR X5,PFP12 IF NO USER NAME 03331 M00S02376.pfs +++| 03332 M00S02377.pfs +++|* VALIDATE USER NAME. 03333 M00S02378.pfs +++| 03334 M00S02379.pfs +++| BX6 X0 FAMILY/PACK NAME 03335 M00S02380.pfs +++| SA6 PFPC 03336 M00S02381.pfs +++| SX7 B1 SET TO NOT CHECK PASSWORD 03337 M00S02382.pfs +++| SA7 A6+B1 03338 M00S02383.pfs +++| BX7 X5+X7 SET TO ALLOW USER INDEX ABOVE *AUIMX* 03339 M00S02384.pfs +++| SA7 A7+B1 03340 M00S02385.pfs +++| SYSTEM CPM,R,PFPC,5600B VALIDATE USER NAME 03341 M00S02386.pfs +++| SA1 PFPC+2 03342 M00S02387.pfs +++| MX0 -18 03343 M00S02388.pfs +++| BX1 -X0*X1 03344 M00S02389.pfs +++| BX6 X1 03345 M00S02390.pfs +++| NZ X1,PFP10 IF VALID USER NAME 03346 M00S02391.pfs +++| SX6 ERRC * USER NAME INCORRECT.* 03347 M00S02392.pfs +++| EQ PFP14 ERROR EXIT 03348 M00S02393.pfs +++| 03349 M00S02394.pfs +++| PFP10 SA6 PARC+/COMSPFS/CPUI SET USER INDEX 03350 M00S02395.pfs +++| RJ COD CONVERT USER INDEX 03351 M00S02396.pfs +++| BX6 X4
| Line S02397 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03352 M01S02397.286l859 ---| SA6 UIDP+1
| Line S00879 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03353 M01S00879.286l859 +++| SA6 D.UI+1 03354 M00S02398.pfs +++| PFP11 SX6 B0+ SET NO ERROR 03355 M00S02399.pfs +++| SA6 PFPD SET PARAMETERS VALIDATED 03356 M00S02400.pfs +++| EQ PFPX RETURN 03357 M00S02401.pfs +++| 03358 M00S02402.pfs +++| PFP12 SA1 EPUI 03359 M00S02403.pfs +++| ZR X1,PFP13 IF USER INDEX NOT ENTERED 03360 M00S02404.pfs +++| SA1 =1L0 CLEAR USER NAME 03361 M00S02405.pfs +++| BX6 X6-X6 03362 M00S02406.pfs +++| BX7 X1 03363 M00S02407.pfs +++| SA6 PARC+/COMSPFS/CPUN
| Line S02408 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03364 M01S02408.286l859 ---| SA7 UNDS+1
| Line S00880 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03365 M01S00880.286l859 +++| SA7 D.UN+1 03366 M00S02409.pfs +++| PFP13 SA1 PARC+/COMSPFS/CPUI 03367 M00S02410.pfs +++| SX6 ERRN * USER INDEX OUT OF RANGE.* 03368 M00S02411.pfs +++| AX1 17 03369 M00S02412.pfs +++| NZ X1,PFP15 IF USER INDEX TOO LARGE 03370 M00S02413.pfs +++| EQ PFP11 RETURN WITH NO ERROR 03371 M00S02414.pfs +++| 03372 M00S02415.pfs +++| 03373 M00S02416.pfs +++| PFPA CON 0 PACK FLAG 03374 M00S02417.pfs +++| PFPB CON 0 DEFAULT FAMILY FLAG 03375 M00S02418.pfs +++| PFPC BSSZ 13 *CPM* FUNCTION PARAMETER BLOCK 03376 M00S02419.pfs +++| PFPD CON 1 CURRENT FM, PN, UN NOT VALIDATED FLAG 03377 M00S02420.pfs +++| ESTBUF BSS ESMX*ESTE EST BUFFER 03378 M00S02421.pfs +++| MSTBUF BSS MSTL MST BUFFER
| Line S02422 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03379 M01S02422.286l859 ---| PLO SPACE 4,30
| Line S00881 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03380 M01S00881.286l859 +++| PLO SPACE 4,15 03381 M00S02423.pfs +++|** PLO - PROCESS LIST OPTIONS. 03382 M00S02424.pfs +++|*
| Line S02425 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03383 M01S02425.286l859 ---|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 03384 M01S02426.286l859 ---|* (/COMSPFS/MXLO) = NUMBER OF LIST OPTIONS.
| Line S00882 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03385 M01S00882.286l859 +++|* ENTRY (EPLO) = ENTERED LIST OPTIONS. 03386 M00S02427.pfs +++|*
| Line S02428 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03387 M01S02428.286l859 ---|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03388 M01S02429.286l859 ---|* VALID LIST OPTIONS ENTERED POSTED IN THE K-DISPLAY. 03389 M01S02430.286l859 ---|* VALID LIST OPTIONS ENTERED HAVE THEIR CORRESPONDING 03390 M01S02431.286l859 ---|* SELECTION BITS SET IN THE CONVERTED PARAMETER TABLE.
| Line S00883 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03391 M01S00883.286l859 +++|* EXIT (PARC+/COMSPFS/CPLO) = CONVERTED LIST OPTIONS IF NO 03392 M01S00884.286l859 +++|* ERROR. 03393 M01S00885.286l859 +++|* K-DISPLAY UPDATED WITH ENTERED LIST OPTIONS IF NO 03394 M01S00886.286l859 +++|* ERROR. 03395 M01S00887.286l859 +++|* (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03396 M00S02432.pfs +++|*
| Line S02433 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03397 M01S02433.286l859 ---|* USES A - 1, 2, 6.
| Line S00888 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03398 M01S00888.286l859 +++|* USES X - 1, 2, 6. 03399 M01S00889.286l859 +++|* A - 1, 2, 6. 03400 M00S02434.pfs +++|* B - 6, 7.
| Line S02435 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03401 M01S02435.286l859 ---|* X - 0, 1, 2, 6. 03402 M00S02436.pfs +++|* 03403 M00S02437.pfs +++|* CALLS OCK. 03404 M00S02438.pfs +++| 03405 M00S02439.pfs +++| 03406 M00S02440.pfs +++| PLO SUBR ENTRY/EXIT 03407 M00S02441.pfs +++| SA2 EPLO 03408 M00S02442.pfs +++| ZR X2,PLOX IF NO LIST OPTION ENTERED 03409 M00S02443.pfs +++| SA1 =1L0 CHECK FOR RESET TO ZERO
| Line S02444 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03410 M01S02444.286l859 ---| BX1 X2-X1 03411 M01S02445.286l859 ---| ZR X1,PLO1 IF ZERO SPECIFIED FOR OPTION 03412 M01S02446.286l859 ---| SA1 /COMSPFS/UTLC INITIALIZE VALIDATION MASK 03413 M01S02447.286l859 ---| SA1 TVLO+X1 03414 M01S02448.286l859 ---| BX0 X1
| Line S00890 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03415 M01S00890.286l859 +++| BX6 X2-X1 03416 M01S00891.286l859 +++| ZR X6,PLO1 IF ZERO SPECIFIED FOR OPTION 03417 M00S02449.pfs +++| SB6 /COMSPFS/MXLO SET NUMBER OF LIST OPTIONS
| Line S02450 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03418 M01S02450.286l859 ---| SB7 LSTT SET ADDRESS OF LIST OPTION TABLE
| Line S00892 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03419 M01S00892.286l859 +++| SB7 TVLO SET LIST OPTION TABLE ADDRESS 03420 M00S02451.pfs +++| RJ OCK PERFORM OPTION CRACKING
| Line S02452 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03421 M01S02452.286l859 ---| NZ X1,PLO1 IF NO ERROR
| Line S00893 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03422 M01S00893.286l859 +++| NZ X6,PLO1 IF NO ERROR 03423 M00S02453.pfs +++| SX6 ERRG SET ERROR FLAG 03424 M00S02454.pfs +++| SA6 ERFL 03425 M00S02455.pfs +++| EQ PLOX RETURN 03426 M00S02456.pfs +++|
| Line S02457 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03427 M01S02457.286l859 ---| PLO1 BX6 X1 SAVE CONVERTED LIST OPTION WORD 03428 M01S02458.286l859 ---| SA6 PARC+/COMSPFS/CPLO
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03429 M01S00894.286l859 +++| PLO1 SA6 PARC+/COMSPFS/CPLO 03430 M00S02459.pfs +++| SA2 EPLO POST ENTERED LIST OPTION IN K-DISPLAY 03431 M00S02460.pfs +++| BX6 X2
| Line S02461 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03432 M01S02461.286l859 ---| SA6 LODS+1
| Line S00895 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03433 M01S00895.286l859 +++| SA6 D.LO+1 03434 M00S02462.pfs +++| EQ PLOX RETURN 03435 M00S02463.pfs +++| PNE SPACE 4,30 03436 M00S02464.pfs +++|** PNE - PROCESS NON-EQUIVALENCED PARAMETERS. 03437 M00S02465.pfs +++|* 03438 M00S02466.pfs +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 03439 M00S02467.pfs +++|* ENEQ = FIRST ENTERED NON-EQUIVALENCED PARAMETER. 03440 M00S02468.pfs +++|* CPNE = FIRST CONVERTED NON-EQUIVALENCED PARAMETER.
| Line S02469 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03441 M01S02469.286l859 ---|* DANE = FIRST NON-EQUIVALENCED K-DISPLAY ADDRESS. 03442 M00S02470.pfs +++|* SETT = FWA OF NON-EQUIVALENCED PARAMETER VALUE TABLE. 03443 M00S02471.pfs +++|* NNEQ = NUMBER OF NON-EQUIVALENCED PARAMETERS. 03444 M00S02472.pfs +++|* 03445 M00S02473.pfs +++|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03446 M00S02474.pfs +++|* SETTINGS FOR THE VALID NON-EQUIVALENCED PARAMETERS 03447 M00S02475.pfs +++|* POSTED IN THE K-DISPLAY. 03448 M00S02476.pfs +++|* SETTING MADE IN THE CONVERTED PARAMETER TABLE FOR EACH 03449 M00S02477.pfs +++|* VALID NON-EQUIVALENCED PARAMETER SPECIFIED. 03450 M00S02478.pfs +++|*
| Line S02479 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03451 M01S02479.286l859 ---|* USES A - 0, 1, 6.
| Line S00896 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03452 M01S00896.286l859 +++|* USES A - 0, 1, 2, 6. 03453 M00S02480.pfs +++|* B - 2, 3, 4, 6.
| Line S02481 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03454 M01S02481.286l859 ---|* X - 0, 1, 6.
| Line S00897 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03455 M01S00897.286l859 +++|* X - 1, 2, 6. 03456 M00S02482.pfs +++| 03457 M00S02483.pfs +++| 03458 M00S02484.pfs +++| PNE SUBR ENTRY/EXIT
| Line S02485 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03459 M01S02485.286l859 ---| SA1 /COMSPFS/UTLC INITIALIZE VALIDATION MASK 03460 M01S02486.286l859 ---| SB4 ENEQ-ENTP 03461 M01S02487.286l859 ---| SA1 TVUP+X1 03462 M01S02488.286l859 ---| LX0 B4,X1
| Line S00898 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03463 M01S00898.286l859 +++| SA1 /COMSPFS/UTLC 03464 M00S02489.pfs +++| SB2 ENEQ SET FWA OF ENTERED PARAMETERS 03465 M00S02490.pfs +++| SB3 NNEQ SET NUMBER OF PARAMETERS 03466 M00S02491.pfs +++| SB4 PARC+CPNE SET FWA OF CONVERTED PARAMETERS
| Line S02492 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03467 M01S02492.286l859 ---| SA0 DANE SET FWA OF K-DISPLAY ADDRESSES 03468 M01S02493.286l859 ---| SB6 B1 INITIALIZE VALUE TABLE POINTER 03469 M01S02494.286l859 ---| PNE1 SA1 B2
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03470 M01S00899.286l859 +++| SB6 B0+ INITIALIZE VALUE TABLE POINTER 03471 M01S00900.286l859 +++| SB5 X1+ SET UTILITY CODE SHIFT COUNT 03472 M01S00901.286l859 +++| PNE1 SA2 B2+TVUP-ENTP 03473 M01S00902.286l859 +++| SA1 B2+ 03474 M01S00903.286l859 +++| SA0 X2 SET DISPLAY ADDRESS 03475 M01S00904.286l859 +++| LX2 B5 03476 M00S02495.pfs +++| ZR X1,PNE3 IF NOT ENTERED
| Line S02496 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03477 M01S02496.286l859 ---| NG X0,PNE2 IF VALID
| Line S00905 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03478 M01S00905.286l859 +++| NG X2,PNE2 IF PARAMETER VALID FOR UTILITY 03479 M00S02497.pfs +++| SX6 ERRG SET ERROR FLAG 03480 M00S02498.pfs +++| SA6 ERFL 03481 M00S02499.pfs +++| EQ PNE3 CONTINUE WITH NEXT PARAMETER 03482 M00S02500.pfs +++| 03483 M00S02501.pfs +++| PNE2 SA1 SETT+B6 MAKE CONVERTED PARAMETER TABLE SETTING
| Line S00906 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03484 M01S00906.286l859 +++| SX6 1 03485 M01S00907.286l859 +++| SA6 B4+ SET PARAMETER SPECIFIED 03486 M00S02502.pfs +++| BX6 X1
| Line S02503 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03487 M01S02503.286l859 ---| SA6 B4 03488 M01S02504.286l859 ---| SA1 A0 POST SETTING IN K-DISPLAY 03489 M01S02505.286l859 ---| SA6 X1
| Line S00908 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03490 M01S00908.286l859 +++| SA6 A0 SET TEXT IN DISPLAY 03491 M00S02506.pfs +++| PNE3 SB2 B2+B1 INCREMENT POINTERS 03492 M00S02507.pfs +++| SB3 B3-B1 03493 M00S02508.pfs +++| SB4 B4+B1 03494 M00S02509.pfs +++| SB6 B6+B1
| Line S02510 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03495 M01S02510.286l859 ---| SA0 A0+B1 03496 M01S02511.286l859 ---| LX0 B1,X0 03497 M00S02512.pfs +++| NZ B3,PNE1 IF MORE PARAMETERS TO PROCESS 03498 M00S02513.pfs +++| EQ PNEX RETURN 03499 M00S02514.pfs +++| PNP SPACE 4,30 03500 M00S02515.pfs +++|** PNP - PROCESS NAME PARAMETERS. 03501 M00S02516.pfs +++|* 03502 M00S02517.pfs +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 03503 M00S02518.pfs +++|* ENAM = FIRST ENTERED NAME PARAMETER. 03504 M00S02519.pfs +++|* CPNM = FIRST CONVERTED NAME PARAMETER.
| Line S02520 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03505 M01S02520.286l859 ---|* DANP = FIRST NAME PARAMETER K-DISPLAY ADDRESS. 03506 M00S02521.pfs +++|* NNAM = NUMBER OF NAME PARAMETERS. 03507 M00S02522.pfs +++|* LEFT-MOST BIT OF VALIDATION MASK CORRESPONDS TO FIRST 03508 M00S02523.pfs +++|* NAME PARAMETER. 03509 M00S02524.pfs +++|* 03510 M00S02525.pfs +++|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03511 M00S02526.pfs +++|* VALID NAME PARAMETERS POSTED IN THE K-DISPLAY. 03512 M00S02527.pfs +++|* VALID NAME PARAMETER VALUES POSTED IN THE CONVERTED 03513 M00S02528.pfs +++|* PARAMETER TABLE. 03514 M00S02529.pfs +++|* 03515 M00S02530.pfs +++|* USES A - 0, 1, 2, 6, 7.
| Line S02531 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03516 M01S02531.286l859 ---|* B - 2, 3, 4. 03517 M01S02532.286l859 ---|* X - 0, 1, 2, 6, 7.
| Line S00909 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03518 M01S00909.286l859 +++|* B - 2, 3, 4, 5. 03519 M01S00910.286l859 +++|* X - 1, 2, 6, 7. 03520 M00S02533.pfs +++| 03521 M00S02534.pfs +++| 03522 M00S02535.pfs +++| PNP SUBR ENTRY/EXIT
| Line S02536 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03523 M01S02536.286l859 ---| SA1 /COMSPFS/UTLC INITIALIZE VALIDATION MASK 03524 M01S02537.286l859 ---| SA1 TVUP+X1 03525 M01S02538.286l859 ---| BX0 X1
| Line S00911 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03526 M01S00911.286l859 +++| SA1 /COMSPFS/UTLC 03527 M00S02539.pfs +++| SB2 ENAM SET FWA OF ENTERED NAME PARAMETERS 03528 M00S02540.pfs +++| SB3 NNAM SET NUMBER OF NAME PARAMETERS 03529 M00S02541.pfs +++| SB4 PARC+CPNM SET FWA OF CONVERTED NAME PARAMETERS
| Line S02542 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03530 M01S02542.286l859 ---| SA0 DANP SET FWA OF NAME K-DISPLAY ADDRESSES 03531 M01S02543.286l859 ---| PNP1 SA2 B2 03532 M01S02544.286l859 ---| ZR X2,PNP3 IF NAME NOT ENTERED 03533 M01S02545.286l859 ---| NG X0,PNP2 IF VALID 03534 M01S02546.286l859 ---| SX6 ERRG SET ERROR FLAG 03535 M01S02547.286l859 ---| SA6 ERFL 03536 M01S02548.286l859 ---| EQ PNP3 CONTINUE WITH NEXT NAME
| Line S00912 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03537 M01S00912.286l859 +++| SB5 X1+ SET UTILITY CODE SHIFT COUNT 03538 M01S00913.286l859 +++| PNP1 SA1 B2+TVUP-ENTP 03539 M01S00914.286l859 +++| SA2 B2 03540 M01S00915.286l859 +++| MX7 -18 03541 M01S00916.286l859 +++| SX6 ERRG 03542 M01S00917.286l859 +++| SA0 X1+ SET DISPLAY ADDRESS 03543 M01S00918.286l859 +++| LX1 B5 03544 M01S00919.286l859 +++| BX7 -X7*X2 03545 M01S00920.286l859 +++| ZR X2,PNP5 IF NAME NOT ENTERED 03546 M01S00921.286l859 +++| PL X1,PNP2 IF PARAMETER NOT VALID FOR UTILITY 03547 M01S00922.286l859 +++| ZR X7,PNP3 IF .LE. 7 CHARACTERS 03548 M01S00923.286l859 +++| PNP2 SA6 ERFL SET ERROR FLAG 03549 M01S00924.286l859 +++| EQ PNP5 CONTINUE WITH NEXT NAME 03550 M00S02549.pfs +++|
| Line S02550 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03551 M01S02550.286l859 ---| PNP2 BX7 X2 POST IN CONVERTED PARAMETER TABLE
| Line S00925 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03552 M01S00925.286l859 +++| PNP3 BX7 X2 POST IN CONVERTED PARAMETER TABLE 03553 M00S02551.pfs +++| SA7 B4 03554 M00S02552.pfs +++| SA1 =1L0 CHECK FOR RESET TO ZERO 03555 M00S02553.pfs +++| BX6 X2-X1
| Line S02554 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03556 M01S02554.286l859 ---| NZ X6,PNP2.1 IF ZERO NOT SPECIFIED FOR NAME
| Line S00926 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03557 M01S00926.286l859 +++| NZ X6,PNP4 IF ZERO NOT SPECIFIED FOR NAME 03558 M00S02555.pfs +++| SX2 B2-EPZR
| Line S02556 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03559 M01S02556.286l859 ---| PL X2,PNP2.1 IF DISPLAY CODE ZERO TO BE ACCEPTED
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03560 M01S00927.286l859 +++| PL X2,PNP4 IF DISPLAY CODE ZERO TO BE ACCEPTED 03561 M00S02557.pfs +++| SA6 B4 CLEAR NAME PARAMETER VALUE
| Line S02558 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03562 M01S02558.286l859 ---| PNP2.1 SA1 A0 POST IN K-DISPLAY 03563 M01S02559.286l859 ---| SA7 X1 03564 M01S02560.286l859 ---| PNP3 SB2 B2+B1 INCREMENT POINTERS
| Line S00928 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03565 M01S00928.286l859 +++| PNP4 SA7 A0+1 SET IN K-DISPLAY 03566 M01S00929.286l859 +++| PNP5 SB2 B2+B1 INCREMENT POINTERS 03567 M00S02561.pfs +++| SB3 B3-B1
| Line S02562 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03568 M01S02562.286l859 ---| SB4 B4+B1 03569 M01S02563.286l859 ---| SA0 A0+B1 03570 M01S02564.286l859 ---| LX0 B1,X0
| Line S00930 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03571 M01S00930.286l859 +++| SB4 B4+1 03572 M00S02565.pfs +++| NZ B3,PNP1 IF MORE NAMES TO PROCESS 03573 M00S02566.pfs +++| EQ PNPX RETURN
| Line S00931 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03574 M01S00931.286l859 +++| PPC SPACE 4,15 03575 M01S00932.286l859 +++|** PPC - PROCESS PARAMETER CONFLICTS. 03576 M01S00933.286l859 +++|* 03577 M01S00934.286l859 +++|* EXIT (X3) = 0 IF NO ERROR. 03578 M01S00935.286l859 +++|* (X3) .NE. 0 IF ERROR. 03579 M01S00936.286l859 +++|* (A3) = ADDRESS OF MESSAGE IF ERROR. 03580 M01S00937.286l859 +++|* 03581 M01S00938.286l859 +++|* USES X - 1, 2, 3, 6. 03582 M01S00939.286l859 +++|* A - 1, 2, 3, 6. 03583 M01S00940.286l859 +++|* 03584 M01S00941.286l859 +++|* CALLS CFC, SFN. 03585 M01S00942.286l859 +++| 03586 M01S00943.286l859 +++| 03587 M01S00944.286l859 +++| PPC SUBR ENTRY/EXIT 03588 M01S00945.286l859 +++| SA1 PARC+/COMSPFS/CPLS 03589 M01S00946.286l859 +++| SA2 PARC+/COMSPFS/CPUS 03590 M01S00947.286l859 +++| IX1 X2-X1 03591 M01S00948.286l859 +++| PL X1,PPC1 IF UPPER SIZE LIMIT .GE. LOWER SIZE LIMIT 03592 M01S00949.286l859 +++| SA3 ERRQ * LS VALUE LARGER THAN US.* 03593 M01S00950.286l859 +++| EQ PPCX RETURN 03594 M01S00951.286l859 +++| 03595 M01S00952.286l859 +++| PPC1 SA2 /COMSPFS/NFIS 03596 M01S00953.286l859 +++| SA3 PARC+/COMSPFS/CPRD 03597 M01S00954.286l859 +++| ZR X3,PPC2 IF *RD* NOT SPECIFIED 03598 M01S00955.286l859 +++| ZR X2,PPC2 IF NO USER INDEX /FILE NAME SELECTIONS 03599 M01S00956.286l859 +++| SA3 ERRE * RD AND UI/UN NOT ALLOWED.* 03600 M01S00957.286l859 +++| EQ PPCX ERROR EXIT 03601 M01S00958.286l859 +++| 03602 M01S00959.286l859 +++| PPC2 RJ CFC CHECK FILE NAME CONFLICTS 03603 M01S00960.286l859 +++| ZR X1,PPC3 IF NO CONFLICT 03604 M01S00961.286l859 +++| RJ SFN 03605 M01S00962.286l859 +++| LX6 -6 03606 M01S00963.286l859 +++| SA6 ERRF+2 03607 M01S00964.286l859 +++| SA3 ERRF * FILENAME CONFLICT - (FILENAME)* 03608 M01S00965.286l859 +++| EQ PPCX RETURN 03609 M01S00966.286l859 +++| 03610 M01S00967.286l859 +++| PPC3 SA2 PARC+/COMSPFS/CPDT 03611 M01S00968.286l859 +++| ZR X2,PPC4 IF *DT* NOT SPECIFIED 03612 M01S00969.286l859 +++| SA1 PARC+/COMSPFS/CPOP 03613 M01S00970.286l859 +++| SA3 ERRO * DT AND OP=P CONFLICT.* 03614 M01S00971.286l859 +++| LX1 59-53 03615 M01S00972.286l859 +++| NG X1,PPCX IF DT AND OP=P CONFLICT 03616 M01S00973.286l859 +++| LX1 59-46-59+53 03617 M01S00974.286l859 +++| SA3 ERRP * DT AND OP=Z CONFLICT.* 03618 M01S00975.286l859 +++| NG X1,PPCX IF DT AND OP=Z CONFLICT 03619 M01S00976.286l859 +++| SA3 ERRV * DT AND PN CONFLICT.* 03620 M01S00977.286l859 +++| SA1 PARC+/COMSPFS/CPPN 03621 M01S00978.286l859 +++| NZ X1,PPCX IF DT AND PN CONFLICT 03622 M01S00979.286l859 +++| PPC4 SA1 PARC+/COMSPFS/CPTD 03623 M01S00980.286l859 +++| ZR X1,PPC5 IF *TD* NOT SPECIFIED 03624 M01S00981.286l859 +++| SA1 PARC+/COMSPFS/CPDN 03625 M01S00982.286l859 +++| SA3 ERRY * TD AND DN CONFLICT.* 03626 M01S00983.286l859 +++| NZ X1,PPCX IF *DN* SPECIFIED 03627 M01S00984.286l859 +++| SA1 PARC+/COMSPFS/CPDA 03628 M01S00985.286l859 +++| SA2 A1+B1 03629 M01S00986.286l859 +++| SA3 ERRZ * TD AND DA CONFLICT.* 03630 M01S00987.286l859 +++| BX1 X1+X2 03631 M01S00988.286l859 +++| NZ X1,PPCX IF *DA* SPECIFIED 03632 M01S00989.286l859 +++| PPC5 SX3 B0+ SET NO ERROR 03633 M01S00990.286l859 +++| EQ PPCX RETURN 03634 M00S02567.pfs +++| PPF SPACE 4,25 03635 M00S02568.pfs +++|** PPF - PROCESS PERMANENT FILE NAME AND USER INDEX SELECTIONS. 03636 M00S02569.pfs +++|* 03637 M00S02570.pfs +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 03638 M00S02571.pfs +++|* EPPF = ADDRESS OF FIRST ENTERED PF NAME PARAMETER. 03639 M00S02572.pfs +++|* (PARC+/COMSPFS/CPUI) = CURRENT USER INDEX FOR FILE 03640 M00S02573.pfs +++|* SELECTIONS. 03641 M00S02574.pfs +++|* NPFN = ENTERED PF NAME TABLE LENGTH. 03642 M00S02575.pfs +++|* 03643 M00S02576.pfs +++|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03644 M00S02577.pfs +++|* USER INDEX OR FILE NAME SELECTIONS ENTERED IN 03645 M00S02578.pfs +++|* SELECTIONS BUFFER. 03646 M00S02579.pfs +++|* USER INDEX AND FILE NAME SELECTIONS DISPLAY UPDATED. 03647 M00S02580.pfs +++|* (/COMSPFS/NFIS) = NUMBER OF USER INDEX/FILE NAME 03648 M00S02581.pfs +++|* SELECTIONS. 03649 M00S02582.pfs +++|*
| Line S02583 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03650 M01S02583.286l859 ---|* USES X - 0, 1, 2, 3, 4, 6.
| Line S00991 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03651 M01S00991.286l859 +++|* USES X - 0, 1, 2, 3, 4, 6, 7. 03652 M00S02584.pfs +++|* A - 1, 2, 3, 6. 03653 M00S02585.pfs +++|* B - 2. 03654 M00S02586.pfs +++|* 03655 M00S02587.pfs +++|* CALLS DFS. 03656 M00S02588.pfs +++|* 03657 M00S02589.pfs +++|* MACROS MEMORY. 03658 M00S02590.pfs +++| 03659 M00S02591.pfs +++| 03660 M00S02592.pfs +++| PPF8 SX6 ERRD * PF SPECIFIED BUT NOT UI/UN.* 03661 M00S02593.pfs +++| ZR X2,PPFX IF NO FILE NAMES ENTERED 03662 M00S02594.pfs +++| PPF9 SA6 ERFL SET ERROR FLAG 03663 M00S02595.pfs +++| 03664 M00S02596.pfs +++| PPF SUBR ENTRY/EXIT 03665 M00S02597.pfs +++| SA2 EPFN GET FIRST ENTERED FILE NAME
| Line S02598 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03666 M01S02598.286l859 ---| SA1 /COMSPFS/UTLC INITIALIZE VALIDATION MASK
| Line S00992 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03667 M01S00992.286l859 +++| SA1 /COMSPFS/UTLC 03668 M01S00993.286l859 +++| SA3 TVUP+EPFN-ENTP 03669 M00S02599.pfs +++| ZR X2,PPF0 IF NO FILE NAMES ENTERED
| Line S02600 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03670 M01S02600.286l859 ---| SA1 TVUP+X1 03671 M01S02601.286l859 ---| LX1 59-59+EPPF-ENTP
| Line S00994 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03672 M01S00994.286l859 +++| SB2 X1+ 03673 M01S00995.286l859 +++| LX3 B2 03674 M00S02602.pfs +++| SX6 ERRG SET PARAMETER ERROR
| Line S02603 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03675 M01S02603.286l859 ---| PL X1,PPF9 IF *PF* PARAMETER NOT VALID FOR UTILITY
| Line S00996 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03676 M01S00996.286l859 +++| PL X3,PPF9 IF *PF* PARAMETER NOT VALID FOR UTILITY 03677 M00S02604.pfs +++| PPF0 SA1 PARC+/COMSPFS/CPUI GET CURRENT USER INDEX 03678 M00S02605.pfs +++| SA3 /COMSPFS/NFIS GET CURRENT SELECTION COUNT 03679 M00S02606.pfs +++| SB2 NPFN MAXIMUM NUMBER OF ENTERED PF NAMES 03680 M00S02607.pfs +++| ZR X1,PPF8 IF NO USER INDEX IN EFFECT 03681 M00S02608.pfs +++| BX0 X1 03682 M00S02609.pfs +++| 03683 M00S02610.pfs +++|* PROCESS NEXT FILE NAME. 03684 M00S02611.pfs +++|
| Line S02612 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03685 M01S02612.286l859 ---| PPF1 BX6 X0+X2 MERGE UI AND PF
| Line S00997 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03686 M01S00997.286l859 +++| PPF1 MX7 -18 03687 M01S00998.286l859 +++| SX6 ERRG SET PARAMETER ERROR 03688 M01S00999.286l859 +++| BX7 -X7*X2 03689 M01S01000.286l859 +++| NZ X7,PPF9 IF .GT. 7 CHARACTERS ENTERED 03690 M01S01001.286l859 +++| BX6 X0+X2 MERGE UI AND PF 03691 M00S02613.pfs +++| LX6 42 18/UI,42/PF 03692 M00S02614.pfs +++| SA1 SBUF-1 03693 M00S02615.pfs +++| PPF2 SA1 A1+B1 ADVANCE TO NEXT SELECTION 03694 M00S02616.pfs +++| IX4 X1-X6 03695 M00S02617.pfs +++| ZR X4,PPF5 IF FILE OR ALL FILES ALREADY SELECTED 03696 M00S02618.pfs +++| ZR X1,PPF4 IF END OF SELECTION BUFFER 03697 M00S02619.pfs +++| MX7 18 CHECK MATCH ON USER INDEX 03698 M00S02620.pfs +++| BX5 X6-X1 03699 M00S02621.pfs +++| BX5 X7*X5 03700 M00S02622.pfs +++| BX7 -X7*X1 03701 M00S02623.pfs +++| NZ X5,PPF3 IF SELECTION NOT FOR CURRENT USER INDEX 03702 M00S02624.pfs +++| ZR X2,PPFX IF NOT PROCESSING ENTERED FILE NAME 03703 M00S02625.pfs +++| NZ X7,PPF3 IF NOT USER INDEX MATCH-ALL SELECTION 03704 M00S02626.pfs +++| SA6 A1 REPLACE MATCH-ALL SELECTION WITH FILE NAME 03705 M00S02627.pfs +++| EQ PPF5 PROCESS NEXT ENTERED FILE NAME 03706 M00S02628.pfs +++| 03707 M00S02629.pfs +++| PPF3 NG X4,PPF2 IF NOT BEYOND FILE 03708 M00S02630.pfs +++| 03709 M00S02631.pfs +++|* ADD NEW SINGLE FILE OR USER INDEX MATCH-ALL SELECTION. 03710 M00S02632.pfs +++| 03711 M00S02633.pfs +++| PPF4 SA6 A1 03712 M00S02634.pfs +++| BX6 X1 03713 M00S02635.pfs +++| SA1 A1+B1 03714 M00S02636.pfs +++| NZ X6,PPF4 IF MORE TO MOVE 03715 M00S02637.pfs +++| SA6 A1 WRITE BUFFER TERMINATOR 03716 M00S02638.pfs +++| SX3 X3+B1 ADVANCE NUMBER OF SELECTIONS 03717 M00S02639.pfs +++| PPF5 SA2 A2+B1 NEXT ENTERED PF NAME 03718 M00S02640.pfs +++| SB2 B2-B1 03719 M00S02641.pfs +++| ZR X2,PPF6 IF ALL ENTRIES PROCESSED 03720 M00S02642.pfs +++| GT B2,B0,PPF1 IF NOT END OF CONVERTED PARAMETER TABLE 03721 M00S02643.pfs +++| 03722 M00S02644.pfs +++|* UPDATE LENGTH, DISPLAY SELECTIONS AND CHECK FIELD LENGTH. 03723 M00S02645.pfs +++| 03724 M00S02646.pfs +++| PPF6 SA1 PPFA 03725 M00S02647.pfs +++| SX6 X3 03726 M00S02648.pfs +++| AX1 30 03727 M00S02649.pfs +++| SA6 /COMSPFS/NFIS 03728 M00S02650.pfs +++| SX3 X6+SBUF+14D REQUIRED FL FOR NEXT PASS 03729 M00S02651.pfs +++| IX7 X3-X1 03730 M00S02652.pfs +++| NG X7,PPF7 IF ENOUGH FIELD LENGTH 03731 M00S02653.pfs +++| MEMORY CM,PPFA,R,X3 03732 M00S02654.pfs +++| PPF7 RJ DFS DISPLAY FILE SELECTIONS 03733 M00S02655.pfs +++| EQ PPFX 03734 M00S02656.pfs +++| 03735 M00S02657.pfs +++| 03736 M00S02658.pfs +++| PPFA VFD 30/RFL=-10,30/ WORKING FIELD LENGTH
| Line S02659 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03737 M01S02659.286l859 ---| POP SPACE 4,30 03738 M01S02660.286l859 ---|** POP - PROCESS OCTAL PARAMETERS.
| Line S01002 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03739 M01S01002.286l859 +++| PPO SPACE 4,30 03740 M01S01003.286l859 +++|** PPO - PROCESS OCTAL PARAMETERS. 03741 M00S02661.pfs +++|* 03742 M00S02662.pfs +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY CODE. 03743 M00S02663.pfs +++|* EOCT = FIRST ENTERED OCTAL PARAMETER. 03744 M00S02664.pfs +++|* CPOC = FIRST CONVERTED OCTAL PARAMETER.
| Line S02665 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03745 M01S02665.286l859 ---|* DAOC = FIRST OCTAL K-DISPLAY ADDRESS. 03746 M00S02666.pfs +++|* NOCT = NUMBER OF OCTAL PARAMETERS. 03747 M00S02667.pfs +++|* 03748 M00S02668.pfs +++|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 03749 M00S02669.pfs +++|* VALID OCTAL PARAMETERS ENTERED ARE POSTED ON THE 03750 M00S02670.pfs +++|* K-DISPLAY AND IN THEIR CORRESPONDING CONVERTED 03751 M00S02671.pfs +++|* PARAMETER TABLE LOCATIONS. 03752 M00S02672.pfs +++|* 03753 M00S02673.pfs +++|* USES A - 0, 1, 5, 6.
| Line S02674 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03754 M01S02674.286l859 ---|* B - 2, 3, 4, 7. 03755 M01S02675.286l859 ---|* X - 0, 1, 5, 6.
| Line S01004 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03756 M01S01004.286l859 +++|* B - 2, 3, 4, 6, 7. 03757 M01S01005.286l859 +++|* X - 1, 5, 6. 03758 M00S02676.pfs +++|* 03759 M00S02677.pfs +++|* CALLS DXB, SPT, RPT. 03760 M00S02678.pfs +++| 03761 M00S02679.pfs +++|
| Line S02680 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03762 M01S02680.286l859 ---| POP SUBR ENTRY/EXIT
| Line S01006 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03763 M01S01006.286l859 +++| PPO SUBR ENTRY/EXIT 03764 M00S02681.pfs +++| SA1 /COMSPFS/UTLC INITIALIZE VALIDATION MASK
| Line S02682 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03765 M01S02682.286l859 ---| SB4 EOCT-ENTP 03766 M01S02683.286l859 ---| SA1 TVUP+X1 03767 M01S02684.286l859 ---| LX0 B4,X1 03768 M00S02685.pfs +++| SB2 EOCT SET FWA OF ENTERED OCTAL PARAMETERS 03769 M00S02686.pfs +++| SB3 NOCT SET NUMBER OF OCTAL PARAMETERS 03770 M00S02687.pfs +++| SB4 PARC+CPOC SET FWA OF CONVERTED OCTAL PARAMETERS
| Line S02688 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03771 M01S02688.286l859 ---| SA0 DAOC SET FWA OF OCTAL K-DISPLAY ADDRESSES 03772 M01S02689.286l859 ---| SB7 B0 SELECT OCTAL CONVERSION MODE FOR *DXB* 03773 M01S02690.286l859 ---| POP1 SA5 B2 03774 M01S02691.286l859 ---| ZR X5,POP4 IF NOT ENTERED
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03775 M01S01007.286l859 +++| SB7 B0+ SELECT OCTAL CONVERSION MODE FOR *DXB* 03776 M01S01008.286l859 +++| SB6 X1+ SET UTILITY CODE SHIFT COUNT 03777 M01S01009.286l859 +++| PPO1 SA1 B2+TVUP-ENTP 03778 M01S01010.286l859 +++| SA5 B2 03779 M01S01011.286l859 +++| MX6 -18 03780 M01S01012.286l859 +++| SA0 X1+ SET DISPLAY ADDRESS 03781 M01S01013.286l859 +++| BX6 -X6*X5 03782 M01S01014.286l859 +++| LX1 B6 03783 M01S01015.286l859 +++| ZR X5,PPO4 IF NOT ENTERED 03784 M01S01016.286l859 +++| PL X1,PPO2 IF PARAMETER NOT VALID FOR UTILITY 03785 M01S01017.286l859 +++| NZ X6,PPO2 IF .GT. 7 CHARACTERS 03786 M00S02692.pfs +++| RJ SPT SAVE POINTERS 03787 M00S02693.pfs +++| RJ DXB CONVERT DISPLAY CODE TO BINARY 03788 M00S02694.pfs +++| RJ RPT RESTORE POINTERS
| Line S02695 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03789 M01S02695.286l859 ---| ZR X4,POP3 IF NO ERRORS 03790 M01S02696.286l859 ---| POP2 SX6 ERRG SET ERROR FLAG
| Line S01018 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03791 M01S01018.286l859 +++| ZR X4,PPO3 IF NO ERRORS 03792 M01S01019.286l859 +++| PPO2 SX6 ERRG SET ERROR FLAG 03793 M00S02697.pfs +++| SA6 ERFL
| Line S02698 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03794 M01S02698.286l859 ---| EQ POP4 CONTINUE WITH NEXT OCTAL PARAMETER
| Line S01020 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03795 M01S01020.286l859 +++| EQ PPO4 CONTINUE WITH NEXT OCTAL PARAMETER 03796 M00S02699.pfs +++|
| Line S02700 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03797 M01S02700.286l859 ---| POP3 PL X0,POP2 IF NOT VALID 03798 M01S02701.286l859 ---| SA6 B4 POST IN CONVERTED PARAMETER TABLE
| Line S01021 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03799 M01S01021.286l859 +++| PPO3 SA6 B4 POST IN CONVERTED PARAMETER TABLE 03800 M00S02702.pfs +++| SA1 B2 POST IN K-DISPLAY 03801 M00S02703.pfs +++| BX6 X1
| Line S02704 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03802 M01S02704.286l859 ---| SA1 A0 03803 M01S02705.286l859 ---| SA6 X1 03804 M01S02706.286l859 ---| POP4 SB2 B2+B1 INCREMENT POINTERS
| Line S01022 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03805 M01S01022.286l859 +++| SA6 A0+B1 03806 M01S01023.286l859 +++| PPO4 SB2 B2+B1 INCREMENT POINTERS 03807 M00S02707.pfs +++| SB3 B3-B1
| Line S02708 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03808 M01S02708.286l859 ---| SB4 B4+B1 03809 M01S02709.286l859 ---| SA0 A0+B1 03810 M01S02710.286l859 ---| LX0 B1,X0 03811 M01S02711.286l859 ---| NZ B3,POP1 IF MORE OCTAL PARAMETERS 03812 M01S02712.286l859 ---| EQ POPX RETURN 03813 M01S02713.286l859 ---| PPC SPACE 4,15 03814 M01S02714.286l859 ---|** PPC - PROCESS PARAMETER CONFLICTS.
| Line S01024 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03815 M01S01024.286l859 +++| SB4 B4+1 03816 M01S01025.286l859 +++| NZ B3,PPO1 IF MORE OCTAL PARAMETERS 03817 M01S01026.286l859 +++| EQ PPOX RETURN 03818 M01S01027.286l859 +++| PSD SPACE 4,15 03819 M01S01028.286l859 +++|** PSD - PROCESS STORAGE SELECTION DELETIONS. 03820 M00S02715.pfs +++|*
| Line S02716 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03821 M01S02716.286l859 ---|* EXIT (X3) = 0 IF NO ERROR. 03822 M01S02717.286l859 ---|* (X3) .NE. 0 IF ERROR. 03823 M01S02718.286l859 ---|* (A3) = ADDRESS OF MESSAGE IF ERROR.
| Line S01029 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03824 M01S01029.286l859 +++|* ENTRY (EPCDA) = DISK SELECTION TO CLEAR. 03825 M01S01030.286l859 +++|* (EPCCA) = CARTRIDGE SELECTION TO CLEAR. 03826 M01S01031.286l859 +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILIY CODE. 03827 M01S01032.286l859 +++|* (EPCCA) = CARTRIDGE SELECTION TO CLEAR. 03828 M01S01033.286l859 +++|* (EPCTA) = TAPE SELECTION TO CLEAR. 03829 M00S02719.pfs +++|*
| Line S02720 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03830 M01S02720.286l859 ---|* USES X - 1, 2, 3, 6. 03831 M01S02721.286l859 ---|* A - 1, 2, 3, 6.
| Line S01034 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03832 M01S01034.286l859 +++|* EXIT SPECIFIED STORAGE SELECTIONS DELETED. 03833 M01S01035.286l859 +++|* STORAGE SELECTIONS DISPLAY UPDATED. 03834 M01S01036.286l859 +++|* (ERFL) = ERROR MESAGE ADDRESS IF ERROR. 03835 M00S02722.pfs +++|*
| Line S02723 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03836 M01S02723.286l859 ---|* CALLS CFC, SFN. 03837 M01S02724.286l859 ---| 03838 M01S02725.286l859 ---| 03839 M01S02726.286l859 ---| PPC SUBR ENTRY/EXIT 03840 M01S02727.286l859 ---| SA1 PARC+/COMSPFS/CPLS 03841 M01S02728.286l859 ---| SA2 PARC+/COMSPFS/CPUS 03842 M01S02729.286l859 ---| IX1 X2-X1 03843 M01S02730.286l859 ---| PL X1,PPC1 IF UPPER SIZE LIMIT .GE. LOWER SIZE LIMIT 03844 M01S02731.286l859 ---| SA3 ERRQ * LS VALUE LARGER THAN US.* 03845 M01S02732.286l859 ---| EQ PPCX RETURN 03846 M01S02733.286l859 ---| 03847 M01S02734.286l859 ---| PPC1 SA2 /COMSPFS/NFIS 03848 M01S02735.286l859 ---| SA3 PARC+/COMSPFS/CPRD 03849 M01S02736.286l859 ---| ZR X3,PPC2 IF *RD* NOT SPECIFIED 03850 M01S02737.286l859 ---| ZR X2,PPC2 IF NO USER INDEX /FILE NAME SELECTIONS 03851 M01S02738.286l859 ---| SA3 ERRE * RD AND UI/UN NOT ALLOWED.* 03852 M01S02739.286l859 ---| EQ PPCX ERROR EXIT 03853 M01S02740.286l859 ---| 03854 M01S02741.286l859 ---| PPC2 RJ CFC CHECK FILE NAME CONFLICTS 03855 M01S02742.286l859 ---| BX3 X3-X3 SET NO ERROR 03856 M01S02743.286l859 ---| ZR X1,PPC3 IF NO CONFLICT 03857 M01S02744.286l859 ---| RJ SFN 03858 M01S02745.286l859 ---| LX6 -6 03859 M01S02746.286l859 ---| SA6 ERRF+2 03860 M01S02747.286l859 ---| SA3 ERRF * FILENAME CONFLICT - (FILENAME)* 03861 M01S02748.286l859 ---| EQ PPCX RETURN 03862 M01S02749.286l859 ---| 03863 M01S02750.286l859 ---| PPC3 SA2 PARC+/COMSPFS/CPDT 03864 M01S02751.286l859 ---| ZR X2,PPC4 IF *DT* NOT SPECIFIED 03865 M01S02752.286l859 ---| SA1 PARC+/COMSPFS/CPOP 03866 M01S02753.286l859 ---| SA3 ERRO * DT AND OP=P CONFLICT.* 03867 M01S02754.286l859 ---| LX1 59-53 03868 M01S02755.286l859 ---| NG X1,PPCX IF DT AND OP=P CONFLICT 03869 M01S02756.286l859 ---| LX1 59-46-59+53 03870 M01S02757.286l859 ---| SA3 ERRP * DT AND OP=Z CONFLICT.* 03871 M01S02758.286l859 ---| NG X1,PPCX IF DT AND OP=Z CONFLICT
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | pfs6 |
M02 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03872 M02S00007.286l859 ---| SA3 ERRV * DT AND PN CONFLICT.* 03873 M02S00008.286l859 ---| SA1 PARC+/COMSPFS/CPPN 03874 M02S00009.286l859 ---| NZ X1,PPCX IF DT AND PN CONFLICT
| Line S02759 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03875 M01S02759.286l859 ---| PPC4 SA1 /COMSPFS/UTLC 03876 M01S02760.286l859 ---| SX1 X1-/COMSPFS/CAUT 03877 M01S02761.286l859 ---| NZ X1,PPC5 IF NOT *PFCAT* 03878 M01S02762.286l859 ---| SA1 PARC+/COMSPFS/CPLO 03879 M01S02763.286l859 ---| SA2 PARC+/COMSPFS/CPSU 03880 M01S02764.286l859 ---| SA3 ERRS * PFCAT LO AND S CONFLICT.* 03881 M01S02765.286l859 ---| ZR X1,PPC5 IF *LO* NOT SPECIFIED 03882 M01S02766.286l859 ---| NZ X2,PPCX IF *S* SPECIFIED 03883 M01S02767.286l859 ---| PPC5 SX3 B0+ SET NO ERROR 03884 M01S02768.286l859 ---| EQ PPCX RETURN 03885 M01S02769.286l859 ---| PSD SPACE 4,15 03886 M01S02770.286l859 ---|** PSD - PROCESS ALTERNATE STORAGE SELECTION DELETIONS. 03887 M01S02771.286l859 ---|* 03888 M01S02772.286l859 ---|* ENTRY (EPCCA) = CARTRIDGE SELECTION TO CLEAR. 03889 M01S02773.286l859 ---|* (EPCTA) = TAPE SELECTION TO CLEAR. 03890 M01S02774.286l859 ---|* 03891 M01S02775.286l859 ---|* EXIT SPECIFIED ALTERNATE STORAGE SELECTIONS DELETED. 03892 M01S02776.286l859 ---|* ALTERNATE STORAGE SELECTIONS DISPLAY UPDATED. 03893 M01S02777.286l859 ---|* (ERFL) = ERROR MESAGE ADDRESS IF ERROR. 03894 M01S02778.286l859 ---|* 03895 M01S02779.286l859 ---|* USES X - 1, 2, 6, 7.
| Line S01037 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03896 M01S01037.286l859 +++|* USES X - 1, 2, 3, 6, 7. 03897 M00S02780.pfs +++|* A - 1, 2, 6, 7.
| Line S01038 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03898 M01S01038.286l859 +++|* B - 2. 03899 M00S02781.pfs +++|* 03900 M00S02782.pfs +++|* CALLS DSS, VAV, VRP. 03901 M00S02783.pfs +++| 03902 M00S02784.pfs +++| 03903 M00S02785.pfs +++| PSD8 SX7 ERRG SET PARAMETER ERROR 03904 M00S02786.pfs +++| SA7 ERFL 03905 M00S02787.pfs +++| 03906 M00S02788.pfs +++| PSD SUBR ENTRY/EXIT 03907 M00S02789.pfs +++|
| Line S01039 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03908 M01S01039.286l859 +++|* PROCESS DISK STORAGE SELECTION DELETION. 03909 M01S01040.286l859 +++| 03910 M01S01041.286l859 +++| SA1 EPCDA 03911 M01S01042.286l859 +++| ZR X1,PSD0.4 IF NO DISK SELECTION TO CLEAR 03912 M01S01043.286l859 +++| SA2 /COMSPFS/UTLC 03913 M01S01044.286l859 +++| SA3 TVUP+EPCDA-ENTP 03914 M01S01045.286l859 +++| SB2 X2 SET UTILITY CODE SHIFT COUNT 03915 M01S01046.286l859 +++| LX3 B2 03916 M01S01047.286l859 +++| PL X3,PSD0.3 IF *CDA* PARAMETER NOT VALID FOR UTILITY 03917 M01S01048.286l859 +++| RJ VRP VALIDATE RESIDENCY PARAMETER 03918 M01S01049.286l859 +++| ZR X6,PSD0.1 IF NOT *R* OR *N* PARAMETER 03919 M01S01050.286l859 +++| SX7 X2 03920 M01S01051.286l859 +++| IX7 X2-X7 03921 M01S01052.286l859 +++| SX6 X6-1 03922 M01S01053.286l859 +++| SA7 PARC+/COMSPFS/CPDA CLEAR SELECTION 03923 M01S01054.286l859 +++| NZ X6,PSD0.2 IF NOT *R* ENTRY 03924 M01S01055.286l859 +++| SA6 A7 CLEAR ALL DEVICE SELECTIONS 03925 M01S01056.286l859 +++| SA6 A6+B1 03926 M01S01057.286l859 +++| EQ PSD0.2 DISPLAY SELECTIONS 03927 M01S01058.286l859 +++| 03928 M01S01059.286l859 +++|* PROCESS RESIDENCY DEVICE SELECTION DELETION 03929 M01S01060.286l859 +++| 03930 M01S01061.286l859 +++| PSD0.1 BX5 X1 03931 M01S01062.286l859 +++| SB7 B0 SELECT OCTAL CONVERSION DEFAULT 03932 M01S01063.286l859 +++| RJ DXB CONVERT DEVICE NUMBER 03933 M01S01064.286l859 +++| NZ X4,PSD0.3 IF ERROR IN DEVICE NUMBER 03934 M01S01065.286l859 +++| ZR X6,PSD0.3 IF ZERO DEVICE NUMBER 03935 M01S01066.286l859 +++| MX1 54 03936 M01S01067.286l859 +++| BX1 X1*X6 03937 M01S01068.286l859 +++| NZ X1,PSD0.3 IF DEVICE NUMBER TOO LARGE 03938 M01S01069.286l859 +++| MX1 -5 03939 M01S01070.286l859 +++| BX1 -X1*X6 03940 M01S01071.286l859 +++| AX6 5 SET WORD INDEX FOR DEVICE 03941 M01S01072.286l859 +++| BX1 -X1 03942 M01S01073.286l859 +++| SA2 PARC+/COMSPFS/CPDA+X6 03943 M01S01074.286l859 +++| SB2 X1+59 SET POSITION IN WORD FOR DEVICE 03944 M01S01075.286l859 +++| SX1 1 03945 M01S01076.286l859 +++| LX1 B2 03946 M01S01077.286l859 +++| BX6 -X1*X2 CLEAR DEVICE SELECTED BIT 03947 M01S01078.286l859 +++| SA6 A2 03948 M01S01079.286l859 +++| PSD0.2 RJ DSS DISPLAY STORAGE SELECTIONS 03949 M01S01080.286l859 +++| EQ PSD0.4 CHECK CARTRIDGE SELECTION DELETION 03950 M01S01081.286l859 +++| 03951 M01S01082.286l859 +++| PSD0.3 SX6 ERRG * ENTERED PARAMETER NOT VALID.* 03952 M01S01083.286l859 +++| SA6 ERFL 03953 M01S01084.286l859 +++| 03954 M00S02790.pfs +++|* PROCESS CARTRIDGE ALTERNATE STORAGE SELECTION DELETION. 03955 M00S02791.pfs +++|
| Line S02792 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03956 M01S02792.286l859 ---| SA1 EPCCA 03957 M01S02793.286l859 ---| SA2 /COMSPFS/UTLC INITIALIZE VALIDATION MASK
| Line S01085 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03958 M01S01085.286l859 +++| PSD0.4 SA1 EPCCA 03959 M00S02794.pfs +++| ZR X1,PSD3 IF NO CARTRIDGE SELECTION TO CLEAR
| Line S02795 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03960 M01S02795.286l859 ---| SA2 TVUP+X2 03961 M01S02796.286l859 ---| LX2 59-59+EPCCA-ENTP 03962 M01S02797.286l859 ---| PL X2,PSD1 IF *CCA* PARAMETER NOT VALID FOR UTILITY
| Line S01086 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03963 M01S01086.286l859 +++| SA2 /COMSPFS/UTLC 03964 M01S01087.286l859 +++| SA3 TVUP+EPCCA-ENTP 03965 M01S01088.286l859 +++| SB2 X2 SET UTILITY CODE SHIFT COUNT 03966 M01S01089.286l859 +++| LX3 B2 03967 M01S01090.286l859 +++| PL X3,PSD1 IF *CCA* PARAMETER NOT VALID FOR UTILITY 03968 M00S02798.pfs +++| RJ VRP VALIDATE RESIDENCY PARAMETER 03969 M00S02799.pfs +++| NZ X6,PSD2 IF *R* OR *N* ENTRY 03970 M00S02800.pfs +++| PSD1 SX7 ERRG SET PARAMETER ERROR 03971 M00S02801.pfs +++| SA7 ERFL 03972 M00S02802.pfs +++| EQ PSD3 PROCESS TAPE SELECTION DELETION 03973 M00S02803.pfs +++| 03974 M00S02804.pfs +++| PSD2 SX7 B0+ CLEAR SELECTION 03975 M00S02805.pfs +++| SA7 PARC+/COMSPFS/CPCA
| Line S02806 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03976 M01S02806.286l859 ---| RJ DSS DISPLAY ALTENATE STORAGE SELECTIONS
| Line S01091 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03977 M01S01091.286l859 +++| RJ DSS DISPLAY STORAGE SELECTIONS 03978 M00S02807.pfs +++| 03979 M00S02808.pfs +++|* PROCESS TAPE ALTERNATE STORAGE SELECTION DELETION. 03980 M00S02809.pfs +++| 03981 M00S02810.pfs +++| PSD3 SA1 EPCTA
| Line S02811 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03982 M01S02811.286l859 ---| SA2 /COMSPFS/UTLC INITIALIZE VALIDATION MASK 03983 M00S02812.pfs +++| ZR X1,PSDX IF NO TAPE SELECTION TO CLEAR
| Line S02813 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03984 M01S02813.286l859 ---| SA2 TVUP+X2 03985 M01S02814.286l859 ---| LX2 59-59+EPCTA-ENTP 03986 M01S02815.286l859 ---| PL X2,PSD8 IF *CTA* PARAMETER NOT VALID FOR UTILITY
| Line S01092 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 03987 M01S01092.286l859 +++| SA2 /COMSPFS/UTLC 03988 M01S01093.286l859 +++| SA3 TVUP+EPCTA-ENTP 03989 M01S01094.286l859 +++| SB2 X2 SET UTILITY CODE SHIFT COUNT 03990 M01S01095.286l859 +++| LX3 B2 03991 M01S01096.286l859 +++| PL X3,PSD8 IF *CTA* PARAMETER NOT VALID FOR UTILITY 03992 M00S02816.pfs +++| RJ VRP VALIDATE RESIDENCY PARAMETER 03993 M00S02817.pfs +++| ZR X6,PSD4 IF NOT *R* OR *N* PARAMETER 03994 M00S02818.pfs +++| SX7 B0+ 03995 M00S02819.pfs +++| SX6 X6-1 03996 M00S02820.pfs +++| SA7 PARC+/COMSPFS/CPTA CLEAR SELECTION 03997 M00S02821.pfs +++| NZ X6,PSD7 IF NOT *R* ENTRY 03998 M00S02822.pfs +++| SA7 A7+1 CLEAR ALL VSN SELECTIONS 03999 M00S02823.pfs +++| SA7 NVSS 04000 M00S02824.pfs +++| EQ PSD7 DISPLAY SELECTIONS 04001 M00S02825.pfs +++| 04002 M00S02826.pfs +++|* PROCESS ALTERNATE STORAGE VSN SELECTION DELETION. 04003 M00S02827.pfs +++| 04004 M00S02828.pfs +++| PSD4 RJ VAV VALIDATE ALTERNATE STORAGE VSN 04005 M00S02829.pfs +++| ZR X6,PSD8 IF NOT VALID VSN 04006 M00S02830.pfs +++| SA1 PARC+/COMSPFS/CPTA 04007 M00S02831.pfs +++| PSD5 SA1 A1+B1 READ VSN SELECTION 04008 M00S02832.pfs +++| ZR X1,PSDX IF END OF ENTRIES 04009 M00S02833.pfs +++| BX1 X1-X6 04010 M00S02834.pfs +++| NZ X1,PSD5 IF NO MATCH ON ENTRY 04011 M00S02835.pfs +++| PSD6 SA1 A1+1 04012 M00S02836.pfs +++| BX6 X1 04013 M00S02837.pfs +++| SA6 A1-B1 04014 M00S02838.pfs +++| NZ X6,PSD6 IF NOT END OF ENTRIES 04015 M00S02839.pfs +++| SA1 NVSS DECREMENT VSN SELECTION COUNT 04016 M00S02840.pfs +++| SX6 X1-1 04017 M00S02841.pfs +++| SA6 A1+
| Line S02842 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04018 M01S02842.286l859 ---| PSD7 RJ DSS DISPLAY ALTERNATE STORAGE SELECTIONS
| Line S01097 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04019 M01S01097.286l859 +++| PSD7 RJ DSS DISPLAY STORAGE SELECTIONS 04020 M00S02843.pfs +++| EQ PSDX RETURN 04021 M00S02844.pfs +++| PSP SPACE 4,20 04022 M00S02845.pfs +++|** PSP - PROCESS SECURITY PARAMETERS. 04023 M00S02846.pfs +++|* 04024 M00S02847.pfs +++|* ENTRY (/COMSPFS/UTLC) = UTILITY CODE. 04025 M00S02848.pfs +++|* 04026 M00S02849.pfs +++|* EXIT (X3) = 0 IF NO ERROR. 04027 M00S02850.pfs +++|* (X3) .NE. 0 IF ERROR. 04028 M00S02851.pfs +++|* (A3) = ADDRESS OF ERROR MESSAGE IF ERROR. 04029 M00S02852.pfs +++|* CONVERTED PARAMETER VALUES SAVED. 04030 M00S02853.pfs +++|* 04031 M00S02854.pfs +++|* USES X - ALL. 04032 M00S02855.pfs +++|* A - 1, 2, 3, 5, 6. 04033 M00S02856.pfs +++|* B - 2. 04034 M00S02857.pfs +++|* 04035 M00S02858.pfs +++|* CALLS VLC. 04036 M00S02859.pfs +++|* 04037 M00S02860.pfs +++|* MACROS GETSSL. 04038 M00S02861.pfs +++| 04039 M00S02862.pfs +++| 04040 M00S02863.pfs +++| PSP3 ZR X5,PSPX IF UPPER LEVEL NOT SPECIFIED 04041 M00S02864.pfs +++| PSP4 SA3 ERRI * LA AND UA BOTH REQUIRED.* 04042 M00S02865.pfs +++| 04043 M00S02866.pfs +++| PSP SUBR ENTRY/EXIT 04044 M00S02867.pfs +++| SA1 PARC+/COMSPFS/CPLA LOWER ACCESS LEVEL 04045 M00S02868.pfs +++| SA5 PARC+/COMSPFS/CPUA UPPER ACCESS LEVEL 04046 M00S02869.pfs +++| SX3 B0+ CLEAR ERROR FLAG 04047 M00S02870.pfs +++| ZR X1,PSP3 IF LOWER LEVEL NOT SPECIFIED 04048 M00S02871.pfs +++| SB2 B0+ 04049 M00S02872.pfs +++| RJ VLC VALIDATE LOWER ACCESS LEVEL NAME 04050 M00S02873.pfs +++| SA3 ERRK * UNKNOWN ACCESS LEVEL NAME.* 04051 M00S02874.pfs +++| NG X2,PSPX IF NOT VALID NAME 04052 M00S02875.pfs +++| ZR X5,PSP4 IF UPPER LEVEL NOT SPECIFIED 04053 M00S02876.pfs +++| BX7 X2 04054 M00S02877.pfs +++| SX6 X2+40B SAVE CONVERTED VALUE 04055 M00S02878.pfs +++| SA6 PSPB 04056 M00S02879.pfs +++| BX1 X5 04057 M00S02880.pfs +++| RJ VLC VALIDATE UPPER ACCESS LEVEL NAME 04058 M00S02881.pfs +++| SA3 ERRK * UNKNOWN ACCESS LEVEL NAME.* 04059 M00S02882.pfs +++| NG X2,PSPX IF NOT VALID NAME 04060 M00S02883.pfs +++| BX5 X2 04061 M00S02884.pfs +++| IX6 X2-X7 04062 M00S02885.pfs +++| SA3 ERRJ * LA VALUE LARGER THAN UA.* 04063 M00S02886.pfs +++| NG X6,PSPX IF LOWER LEVEL ABOVE UPPER LEVEL 04064 M00S02887.pfs +++| SX6 X2+40B SAVE CONVERTED VALUE 04065 M00S02888.pfs +++| SA6 PSPB+1 04066 M00S02889.pfs +++| 04067 M00S02890.pfs +++|* CHECK ACCESS LEVELS IN RANGE. 04068 M00S02891.pfs +++| 04069 M00S02892.pfs +++| GETSSL PSPA GET SYSTEM SECURITY STATUS 04070 M00S02893.pfs +++| MX0 -6 04071 M00S02894.pfs +++| SA1 PSPA 04072 M00S02895.pfs +++| LX1 12 04073 M00S02896.pfs +++| BX2 -X0*X1 SYSTEM SECURITY MODE 04074 M00S02897.pfs +++| ZR X2,PSP2 IF SYSTEM NOT IN SECURE MODE 04075 M00S02898.pfs +++| SA2 PARC+/COMSPFS/CPSU 04076 M00S02899.pfs +++| NZ X2,PSP1 IF SUMMARY FILE SELECTED 04077 M00S02900.pfs +++| SA2 /COMSPFS/UTLC DETERMINE UTILITY 04078 M00S02901.pfs +++| SX4 X2-/COMSPFS/LDUT 04079 M00S02902.pfs +++| ZR X4,PSP1 IF *PFLOAD* 04080 M00S02903.pfs +++| SX4 X2-/COMSPFS/DUUT 04081 M00S02904.pfs +++| ZR X4,PSP1 IF *PFDUMP* 04082 M00S02905.pfs +++| SX4 X2-/COMSPFS/COUT 04083 M00S02906.pfs +++| NZ X4,PSP2 IF NOT *PFCOPY* 04084 M00S02907.pfs +++| PSP1 SA3 ERRL * ACCESS LEVEL OUT OF RANGE.* 04085 M00S02908.pfs +++| LX1 6 04086 M00S02909.pfs +++| BX2 -X0*X1 SYSTEM LOWER ACCESS LEVEL LIMIT 04087 M00S02910.pfs +++| IX2 X7-X2 04088 M00S02911.pfs +++| NG X2,PSPX IF SPECIFIED LOWER LEVEL OUT OF RANGE 04089 M00S02912.pfs +++| LX1 6 04090 M00S02913.pfs +++| BX2 -X0*X1 SYSTEM UPPER ACCESS LEVEL LIMIT 04091 M00S02914.pfs +++| IX2 X2-X5 04092 M00S02915.pfs +++| NG X2,PSPX IF SPECIFIED UPPER LEVEL OUT OF RANGE 04093 M00S02916.pfs +++| PSP2 BX3 X3-X3 SET NO ERROR 04094 M00S02917.pfs +++| SA1 PSPB SET CONVERTED VALUES 04095 M00S02918.pfs +++| SA2 A1+B1 04096 M00S02919.pfs +++| BX6 X1 04097 M00S02920.pfs +++| BX7 X2 04098 M00S02921.pfs +++| SA6 PARC+/COMSPFS/CPLA 04099 M00S02922.pfs +++| SA7 PARC+/COMSPFS/CPUA 04100 M00S02923.pfs +++| EQ PSPX RETURN 04101 M00S02924.pfs +++| 04102 M00S02925.pfs +++| 04103 M00S02926.pfs +++| PSPA CON 0 SECURITY STATUS WORD 04104 M00S02927.pfs +++| PSPB BSSZ 2 CONVERTED ACCESS LEVEL VALUES
| Line S02928 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04105 M01S02928.286l859 ---| PSS SPACE 4,15 04106 M01S02929.286l859 ---|** PSS - PROCESS ALTERNATE STORAGE SELECTIONS.
| Line S01098 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04107 M01S01098.286l859 +++| PSS SPACE 4,20 04108 M01S01099.286l859 +++|** PSS - PROCESS STORAGE MEDIA SELECTIONS. 04109 M00S02930.pfs +++|* 04110 M00S02931.pfs +++|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILIY CODE.
| Line S01100 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04111 M01S01100.286l859 +++|* (EPDA) = ENTERED DISK RESIDENCY SELECTION. 04112 M00S02932.pfs +++|* (EPCA) = ENTERED CARTRIDGE ALTERNATE STORAGE 04113 M00S02933.pfs +++|* SELECTION. 04114 M00S02934.pfs +++|* (EPTA) = ENTERED TAPE ALTERNATE STORAGE SELECTION. 04115 M00S02935.pfs +++|*
| Line S02936 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04116 M01S02936.286l859 ---|* EXIT ALTERNATE STORAGE SELECTIONS UPDATED. 04117 M01S02937.286l859 ---|* ALTERNATE STORAGE SELECTIONS DISPLAY UPDATED.
| Line S01101 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04118 M01S01101.286l859 +++|* EXIT STORAGE SELECTIONS UPDATED. 04119 M01S01102.286l859 +++|* STORAGE SELECTIONS DISPLAY UPDATED. 04120 M00S02938.pfs +++|* (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 04121 M00S02939.pfs +++|*
| Line S02940 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04122 M01S02940.286l859 ---|* USES X - 1, 2, 3, 6, 7.
| Line S01103 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04123 M01S01103.286l859 +++|* USES X - 1, 2, 3, 5, 6, 7. 04124 M00S02941.pfs +++|* A - 1, 2, 3, 6, 7.
| Line S01104 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04125 M01S01104.286l859 +++|* B - 2, 7. 04126 M00S02942.pfs +++|*
| Line S02943 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04127 M01S02943.286l859 ---|* CALLS DSS, VAV, VRS.
| Line S01105 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04128 M01S01105.286l859 +++|* CALLS DSS, DXB, VAV, VRS. 04129 M00S02944.pfs +++| 04130 M00S02945.pfs +++| 04131 M00S02946.pfs +++| PSS8 SX7 ERRG * ENTERED PARAMETER NOT VALID.* 04132 M00S02947.pfs +++| PSS9 SA7 ERFL SET ERROR MESSAGE ADDRESS 04133 M00S02948.pfs +++| 04134 M00S02949.pfs +++| PSS SUBR ENTRY/EXIT 04135 M00S02950.pfs +++|
| Line S01106 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04136 M01S01106.286l859 +++|* PROCESS DISK ADDRESS SELECTION. 04137 M01S01107.286l859 +++| 04138 M01S01108.286l859 +++| SA1 EPDA 04139 M01S01109.286l859 +++| ZR X1,PSS0.4 IF NO DISK ADDRESS SELECTION 04140 M01S01110.286l859 +++| SA2 /COMSPFS/UTLC 04141 M01S01111.286l859 +++| SA3 TVUP+EPDA-ENTP 04142 M01S01112.286l859 +++| SB2 X2 SET UTILITY CODE SHIFT COUNT 04143 M01S01113.286l859 +++| LX3 B2 04144 M01S01114.286l859 +++| PL X3,PSS0.3 IF *DA* PARAMETER NOT VALID FOR UTILITY 04145 M01S01115.286l859 +++| SA2 PARC+/COMSPFS/CPDA 04146 M01S01116.286l859 +++| RJ VRS VALIDATE RESIDENCY SELECTION 04147 M01S01117.286l859 +++| ZR X6,PSS0.1 IF NOT ALL RESIDENT/NON-RESIDENT ENTRY 04148 M01S01118.286l859 +++| SX7 X6-1 04149 M01S01119.286l859 +++| NZ X7,PSS0.2 IF NOT ALL RESIDENT SELECTION 04150 M01S01120.286l859 +++| SA1 PARC+/COMSPFS/CPDA 04151 M01S01121.286l859 +++| SX6 X1+ 04152 M01S01122.286l859 +++| SA6 A1 04153 M01S01123.286l859 +++| SA7 A1+B1 04154 M01S01124.286l859 +++| EQ PSS0.2 DISPLAY SELECTIONS 04155 M01S01125.286l859 +++| 04156 M01S01126.286l859 +++|* PROCESS RESIDENCY DEVICE SELECTION. 04157 M01S01127.286l859 +++| 04158 M01S01128.286l859 +++| PSS0.1 BX5 X1 04159 M01S01129.286l859 +++| SB7 B0 SELECT OCTAL CONVERSION DEFAULT 04160 M01S01130.286l859 +++| RJ DXB CONVERT DEVICE NUMBER 04161 M01S01131.286l859 +++| NZ X4,PSS0.3 IF ERROR IN DEVICE NUMBER 04162 M01S01132.286l859 +++| ZR X6,PSS0.3 IF ZERO DEVICE NUMBER 04163 M01S01133.286l859 +++| MX1 54 04164 M01S01134.286l859 +++| BX1 X1*X6 04165 M01S01135.286l859 +++| NZ X1,PSS0.3 IF DEVICE NUMBER TOO LARGE 04166 M01S01136.286l859 +++| SA2 PARC+/COMSPFS/CPDA 04167 M01S01137.286l859 +++| SX2 X2-1 04168 M01S01138.286l859 +++| ZR X2,PSS0.4 IF ALL DEVICES ALREADY SELECTED 04169 M01S01139.286l859 +++| MX1 -5 04170 M01S01140.286l859 +++| BX1 -X1*X6 04171 M01S01141.286l859 +++| AX6 5 SET WORD INDEX FOR DEVICE 04172 M01S01142.286l859 +++| BX1 -X1 04173 M01S01143.286l859 +++| SA2 PARC+/COMSPFS/CPDA+X6 04174 M01S01144.286l859 +++| SB2 X1+59 SET POSITION IN WORD FOR DEVICE 04175 M01S01145.286l859 +++| SX1 1 04176 M01S01146.286l859 +++| LX1 B2 04177 M01S01147.286l859 +++| BX6 X2+X1 SET DEVICE SELECTED BIT 04178 M01S01148.286l859 +++| SA6 A2+ 04179 M01S01149.286l859 +++| PSS0.2 RJ DSS DISPLAY STORAGE SELECTIONS 04180 M01S01150.286l859 +++| EQ PSS0.4 CHECK CARTRIDGE SELECTION 04181 M01S01151.286l859 +++| 04182 M01S01152.286l859 +++| PSS0.3 SX6 ERRG * ENTERED PARAMETER NOT VALID.* 04183 M01S01153.286l859 +++| SA6 ERFL 04184 M01S01154.286l859 +++| 04185 M00S02951.pfs +++|* PROCESS CARTRIDGE ALTERNATE STORAGE SELECTION. 04186 M00S02952.pfs +++|
| Line S02953 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04187 M01S02953.286l859 ---| SA1 EPCA 04188 M01S02954.286l859 ---| SA2 /COMSPFS/UTLC INITIALIZE VALIDATION MASK
| Line S01155 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04189 M01S01155.286l859 +++| PSS0.4 SA1 EPCA 04190 M00S02955.pfs +++| ZR X1,PSS3 IF NO CARTRIDGE STORAGE SELECTION ENTERED
| Line S02956 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04191 M01S02956.286l859 ---| SA2 TVUP+X2 04192 M01S02957.286l859 ---| LX2 59-59+EPCA-ENTP 04193 M01S02958.286l859 ---| PL X2,PSS1 IF *CA* PARAMETER NOT VALID FOR UTILITY
| Line S01156 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04194 M01S01156.286l859 +++| SA2 /COMSPFS/UTLC 04195 M01S01157.286l859 +++| SA3 TVUP+EPCA-ENTP 04196 M01S01158.286l859 +++| SB2 X2 SET UTILITY CODE SHIFT COUNT 04197 M01S01159.286l859 +++| LX3 B2 04198 M01S01160.286l859 +++| PL X3,PSS1 IF *CA* PARAMETER NOT VALID FOR UTILITY 04199 M00S02959.pfs +++| SA2 PARC+/COMSPFS/CPCA 04200 M00S02960.pfs +++| RJ VRS VALIDATE RESIDENCY SELECTION 04201 M00S02961.pfs +++| NZ X6,PSS2 IF NO ERROR IN ENTRY 04202 M00S02962.pfs +++| PSS1 SX6 ERRG * ENTERED PARAMETER NOT VALID.* 04203 M00S02963.pfs +++| SA6 ERFL 04204 M00S02964.pfs +++| EQ PSS3 CHECK TAPE ALTERNATE STORAGE SELECTION 04205 M00S02965.pfs +++|
| Line S02966 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04206 M01S02966.286l859 ---| PSS2 RJ DSS DISPLAY ALTERNATE STORAGE SELECTIONS
| Line S01161 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04207 M01S01161.286l859 +++| PSS2 RJ DSS DISPLAY STORAGE SELECTIONS 04208 M00S02967.pfs +++| 04209 M00S02968.pfs +++|* PROCESS TAPE ALTERNATE STORAGE SELECTION. 04210 M00S02969.pfs +++| 04211 M00S02970.pfs +++| PSS3 SA1 EPTA
| Line S02971 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04212 M01S02971.286l859 ---| SA2 /COMSPFS/UTLC INITIALIZE VALIDATION MASK 04213 M00S02972.pfs +++| ZR X1,PSSX IF NO TAPE ALTERNATE STORAGE SELECTION
| Line S02973 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04214 M01S02973.286l859 ---| SA2 TVUP+X2 04215 M01S02974.286l859 ---| LX2 59-59+EPTA-ENTP 04216 M01S02975.286l859 ---| PL X2,PSS8 IF *TA* PARAMETER NOT VALID FOR UTILITY
| Line S01162 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04217 M01S01162.286l859 +++| SA2 /COMSPFS/UTLC 04218 M01S01163.286l859 +++| SA3 TVUP+EPTA-ENTP 04219 M01S01164.286l859 +++| SB2 X2 SET UTILITY CODE SHIFT COUNT 04220 M01S01165.286l859 +++| LX3 B2 04221 M01S01166.286l859 +++| PL X3,PSS8 IF *TA* PARAMETER NOT VALID FOR UTILITY 04222 M00S02976.pfs +++| SA2 PARC+/COMSPFS/CPTA 04223 M00S02977.pfs +++| RJ VRS VALIDATE RESIDENCY SELECTION 04224 M00S02978.pfs +++| ZR X6,PSS4 IF NOT ALL RESIDENT/NON-RESIDENT ENTRY 04225 M00S02979.pfs +++| SX1 X6-2 04226 M00S02980.pfs +++| SX7 B0+ 04227 M00S02981.pfs +++| ZR X1,PSS7 IF NON-RESIDENT SELECTION 04228 M00S02982.pfs +++| SA7 PARC+/COMSPFS/CPTA+1 CLEAR ALL VSN SELECTIONS 04229 M00S02983.pfs +++| SA7 NVSS CLEAR VSN SELECTION COUNT 04230 M00S02984.pfs +++| EQ PSS7 DISPLAY ALTERNATE STORAGE SELECTIONS 04231 M00S02985.pfs +++| 04232 M00S02986.pfs +++|* PROCESS VSN ENTRY. 04233 M00S02987.pfs +++| 04234 M00S02988.pfs +++| PSS4 RJ VAV VALIDATE ALTERNATE STORAGE VSN 04235 M00S02989.pfs +++| ZR X6,PSS8 IF NOT VALID VSN 04236 M00S02990.pfs +++| SA1 PARC+/COMSPFS/CPTA 04237 M00S02991.pfs +++| SX1 X1-1 04238 M00S02992.pfs +++| ZR X1,PSSX IF ALL VSN-S ALREADY SELECTED 04239 M00S02993.pfs +++| SA3 NVSS 04240 M00S02994.pfs +++| SX2 X3-/COMSPFS/MXVS 04241 M00S02995.pfs +++| SX7 ERRR * VSN SELECTIONS AT MAXIMUM.* 04242 M00S02996.pfs +++| ZR X2,PSS9 IF MAXIMUM VSN SELECTIONS ALREADY ENTERED 04243 M00S02997.pfs +++| PSS5 SA1 A1+B1 READ VSN SELECTION 04244 M00S02998.pfs +++| IX2 X1-X6 04245 M00S02999.pfs +++| ZR X1,PSS6 IF END OF ENTRIES 04246 M00S03000.pfs +++| ZR X2,PSSX IF VSN ALREADY SELECTED 04247 M00S03001.pfs +++| NG X2,PSS5 IF NOT PAST ENTRY 04248 M00S03002.pfs +++| PSS6 SA6 A1+ WRITE ENTRY 04249 M00S03003.pfs +++| BX6 X1 04250 M00S03004.pfs +++| SA1 A1+B1 04251 M00S03005.pfs +++| NZ X6,PSS6 IF NOT END OF ENTRIES 04252 M00S03006.pfs +++| SA6 A1+ WRITE TERMINATOR WORD 04253 M00S03007.pfs +++| SX6 X3+1 COUNT VSN ENTRY 04254 M00S03008.pfs +++| SA6 A3+
| Line S03009 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04255 M01S03009.286l859 ---| PSS7 RJ DSS DISPLAY ALTERNATE STORAGE SELECTIONS
| Line S01167 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04256 M01S01167.286l859 +++| PSS7 RJ DSS DISPLAY STORAGE SELECTIONS 04257 M00S03010.pfs +++| EQ PSSX RETURN
| Line S03011 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04258 M01S03011.286l859 ---| PUO SPACE 4,30
| Line S01168 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04259 M01S01168.286l859 +++| PUO SPACE 4,15 04260 M00S03012.pfs +++|** PUO - PROCESS UTILITY OPTIONS. 04261 M00S03013.pfs +++|*
| Line S03014 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04262 M01S03014.286l859 ---|* ENTRY (/COMSPFS/UTLC) = SELECTED UTILITY ORDINAL. 04263 M01S03015.286l859 ---|* OPTT = FWA OF UTILITY OPTION VALUE TABLE. 04264 M01S03016.286l859 ---|* /COMSPFS/MXUO = NUMBER OF UTILITY OPTIONS.
| Line S01169 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04265 M01S01169.286l859 +++|* ENTRY (EPOP) = ENTERED UTILITY OPTIONS. 04266 M00S03017.pfs +++|*
| Line S03018 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 04267 M01S03018.286l859 ---|* EXIT (ERFL) = ERROR MESSAGE ADDRESS IF ERROR. 04268 M01S03019.286l859 ---|* VALID UTILITY OPTIONS ENTERED HAVE THEIR 04269 M01S03020.286l859 ---|* CORRESPONDING SELECTION BITS SET IN THE CONVERTED 04270 M01S03021.286l859 ---|* PARAMETER TABLE.
Proceed to Part 3
cdc/nos2.source/opl.opl871/deck/pfs.002.txt · Last modified: by 127.0.0.1