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.