cdc:nos2.source:opl.opl871:common:comcpfp
Common COMCPFP
4 Modifications
Listing Sections
- Common COMCPFP Start
- Common COMCPFP Part 1 (Line 923)
- Common COMCPFP Part 2 (Line 1702)
- Common COMCPFP Part 3 (Line 2356)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comcpfp +++| CTEXT COMCPFP - PERMANENT FILE UTILITY PRESET ROUTINES. 00002 M01S00002.comcpfp +++| SPACE 4,10 00003 M01S00003.comcpfp +++| IF -DEF,QUAL$,1 00004 M01S00004.comcpfp +++| QUAL COMCPFP 00005 M01S00005.comcpfp +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987. 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.comcpfp +++| SPACE 4,10 00009 M01S00008.comcpfp +++|*** PFP - PERMANENT FILE UTILITY PRESET ROUTINES. 00010 M01S00009.comcpfp +++|* G. S. YODER. 86/08/15. 00011 M01S00001.286l859 +++| TITLE COMCPFP - OUTPUT FILE ROUTINES. 00012 M01S00002.286l859 +++| DVS SPACE 4,10 00013 M01S00003.286l859 +++|** DVS - WRITE DEVICE STATUS SUBHEADER. 00014 M01S00004.286l859 +++|* 00015 M01S00005.286l859 +++|* ENTRY (X2) = OUTPUT FILE FET ADDRESS. 00016 M01S00006.286l859 +++|* 00017 M01S00007.286l859 +++|* EXIT TO SHR. 00018 M01S00008.286l859 +++|* (X6) = SUBHEADER LINE COUNT. 00019 M01S00009.286l859 +++|* 00020 M01S00010.286l859 +++|* MACROS WRITEH. 00021 M01S00011.286l859 +++| 00022 M01S00012.286l859 +++| 00023 M01S00013.286l859 +++| DVS BSS 0 ENTRY 00024 M01S00014.286l859 +++| WRITEH X2,DVSA,9 WRITE DEVICE STATUS SUBHEADER 00025 M01S00015.286l859 +++| WRITEH X2,DVSB,9 00026 M01S00016.286l859 +++| WRITEH X2,BLAN,1 00027 M01S00017.286l859 +++| SX6 3 SET LINE COUNT 00028 M01S00018.286l859 +++| EQ SHR RETURN 00029 M01S00019.286l859 +++| FDS SPACE 4,15 00030 M01S00020.286l859 +++|** FDS - FORMAT DEVICE STATUS ENTRY. 00031 M01S00021.286l859 +++|* 00032 M01S00022.286l859 +++|* ENTRY (A5) = ADDRESS OF ENTRY. 00033 M01S00023.286l859 +++|* (X5) = FIRST WORD OF ENTRY. 00034 M01S00024.286l859 +++|* 00035 M01S00025.286l859 +++|* EXIT DEVICE STATUS WRITTEN TO OUTPUT FILE. 00036 M01S00026.286l859 +++|* 00037 M01S00027.286l859 +++|* USES X - 0, 1, 2, 5, 6. 00038 M01S00028.286l859 +++|* A - 5, 6. 00039 M01S00029.286l859 +++|* 00040 M01S00030.286l859 +++|* CALLS ALN, CDD, COD, ZTB. 00041 M01S00031.286l859 +++|* 00042 M01S00032.286l859 +++|* MACROS WRITEH. 00043 M01S00033.286l859 +++| 00044 M01S00034.286l859 +++| 00045 M01S00035.286l859 +++| FDS SUBR ENTRY/EXIT 00046 M01S00036.286l859 +++| MX0 -6 00047 M01S00037.286l859 +++| BX1 -X0*X5 00048 M01S00038.286l859 +++| RJ COD CONVERT DEVICE NUMBER 00049 M01S00039.286l859 +++| MX0 12 00050 M01S00040.286l859 +++| SA6 COBF SET DEVICE NUMBER 00051 M01S00041.286l859 +++| BX1 X0*X5 00052 M01S00042.286l859 +++| LX1 12 00053 M01S00043.286l859 +++| RJ ZTB BLANK FILL DEVICE TYPE 00054 M01S00044.286l859 +++| LX5 -6 00055 M01S00045.286l859 +++| SA6 COBF+1 SET DEVICE TYPE 00056 M01S00046.286l859 +++| MX0 -3 00057 M01S00047.286l859 +++| BX1 -X0*X5 00058 M01S00048.286l859 +++| SX1 X1+B1 00059 M01S00049.286l859 +++| RJ CDD CONVERT UNIT COUNT 00060 M01S00050.286l859 +++| LX5 -6 00061 M01S00051.286l859 +++| SA6 COBF+2 SET UNIT COUNT 00062 M01S00052.286l859 +++| MX0 -12 00063 M01S00053.286l859 +++| BX1 -X0*X5 00064 M01S00054.286l859 +++| RJ CDD CONVERT TRACK COUNT 00065 M01S00055.286l859 +++| LX5 -12 00066 M01S00056.286l859 +++| SA6 COBF+6 SET TRACK COUNT 00067 M01S00057.286l859 +++| BX1 -X0*X5 00068 M01S00058.286l859 +++| RJ CDD CONVERT TRACKS AVAILABLE 00069 M01S00059.286l859 +++| LX5 -12 00070 M01S00060.286l859 +++| SA6 COBF+7 SET TRACKS AVAILABLE 00071 M01S00061.286l859 +++| BX1 -X0*X5 00072 M01S00062.286l859 +++| RJ CDD CONVERT TRACK SIZE 00073 M01S00063.286l859 +++| SA6 COBF+8 00074 M01S00064.286l859 +++| SA5 A5+B1 00075 M01S00065.286l859 +++| MX0 -8 00076 M01S00066.286l859 +++| BX1 -X0*X5 00077 M01S00067.286l859 +++| RJ COD CONVERT DEVICE MASK 00078 M01S00068.286l859 +++| LX5 -8 00079 M01S00069.286l859 +++| SA6 COBF+3 SET DEVICE MASK 00080 M01S00070.286l859 +++| BX1 -X0*X5 00081 M01S00071.286l859 +++| RJ COD CONVERT DIRECT ACCESS MASK 00082 M01S00072.286l859 +++| LX5 -16 00083 M01S00073.286l859 +++| SA6 COBF+4 SET DIRECT ACCESS MASK 00084 M01S00074.286l859 +++| MX0 -9 00085 M01S00075.286l859 +++| BX1 -X0*X5 00086 M01S00076.286l859 +++| RJ CDD CONVERT NUMBER OF CATALOG TRACKS 00087 M01S00077.286l859 +++| SA6 COBF+5 SET NUMBER OF CATALOG TRACKS 00088 M01S00078.286l859 +++| SX6 1 SET LINE COUNT 00089 M01S00079.286l859 +++| RJ ALN ALLOCATE LINES 00090 M01S00080.286l859 +++| WRITEH O,COBF,9 00091 M01S00081.286l859 +++| EQ FDSX RETURN
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00082.ns2790 ---| IOF SPACE 4,20 00093 M01S00001.ns2790 +++| IOF SPACE 4,15 00094 M01S00083.286l859 +++|** IOF - INITIALIZE OUTPUT FILES.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00095 M02S00084.ns2790 ---|*
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00096 M02S00085.ns2790 ---|* ENTRY (OFUC) = UTILITY CODE IF *PFLIST* UTILITY. 00097 M01S00086.286l859 +++|* 00098 M01S00087.286l859 +++|* EXIT OUTPUT AND SUMMARY FILE INITIALIZED. 00099 M01S00088.286l859 +++|* OUTPUT FILE NAME SET IN FET TO FLAG OUTPUT FILE 00100 M01S00089.286l859 +++|* INITIALIZED.
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00101 M02S00090.ns2790 ---|* (UCOF) .EQ. 1 IF UNSORTED CIR LIST TO BE OUTPUT.
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00102 M02S00091.ns2790 ---|* (UFOF) .EQ. 1 IF UNSORTED FILE LIST TO BE OUTPUT.
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00103 M02S00092.ns2790 ---|* (CISF) .EQ. 1 IF CIR ENTRIES SORT REQUIRED.
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00104 M02S00093.ns2790 ---|* (CASF) .EQ. 1 IF CATALOG ENTRIES SORT REQUIRED. 00105 M01S00094.286l859 +++|*
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00106 M02S00095.ns2790 ---|* USES X - 1, 2, 3, 4, 5, 6, 7.
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00107 M02S00096.ns2790 ---|* A - 1, 2, 3, 4, 5, 6. 00108 M01S00002.ns2790 +++|* USES X - 1, 2, 5, 6. 00109 M01S00003.ns2790 +++|* A - 1, 2, 5, 6. 00110 M01S00097.286l859 +++|*
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00111 M02S00098.ns2793 ---|* CALLS PFO, SPT, WIS. 00112 M01S00001.ns2793 +++|* CALLS PFO, SDT, SPT, WIS. 00113 M01S00099.286l859 +++|*
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00114 M02S00100.ns2790 ---|* MACROS GETPP, SETFET, SETFS, WRITEC. 00115 M01S00004.ns2790 +++|* MACROS GETPP, SETFET, SETFS, WRITEO. 00116 M01S00101.286l859 +++| 00117 M01S00102.286l859 +++| 00118 M01S00103.286l859 +++| IOF SUBR ENTRY/EXIT 00119 M01S00104.286l859 +++| 00120 M01S00105.286l859 +++|* INITIALIZE OUTPUT FILE. THE FILE NAME IS SET IN THE FET LAST 00121 M01S00106.286l859 +++|* TO INDICATE OUTPUT FILE INITIALIZATION COMPLETE TO ERROR 00122 M01S00107.286l859 +++|* ROUTINES THAT MAY BE CALLED PRIOR TO *IOF*. 00123 M01S00108.286l859 +++| 00124 M01S00109.286l859 +++| SA1 CPAR+/COMSPFS/CPLB 00125 M01S00110.286l859 +++| NZ X1,IOF1 IF OUTPUT FILE SELECTED 00126 M01S00111.286l859 +++| SX6 B0+ CLEAR ALL OUTPUT OPTIONS 00127 M01S00112.286l859 +++| SA6 CPAR+/COMSPFS/CPLO 00128 M01S00113.286l859 +++| SA6 O
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00129 M02S00114.ns2790 ---| EQ IOF6 PROCESS SUMMARY FILE 00130 M01S00005.ns2790 +++| EQ IOF2 PROCESS SUMMARY FILE 00131 M01S00115.286l859 +++| 00132 M01S00116.286l859 +++| IOF1 RJ SPT SET UP OUTPUT FILE PAGE TITLE 00133 M01S00117.286l859 +++| GETPP IOFA,PGLL,IOFB GET PAGE PARAMETERS 00134 M01S00118.286l859 +++| SA1 CPAR+/COMSPFS/CPLB 00135 M01S00119.286l859 +++| SA2 O 00136 M01S00120.286l859 +++| MX6 -18 00137 M01S00121.286l859 +++| BX6 -X6*X2 00138 M01S00122.286l859 +++| BX6 X6+X1 00139 M01S00123.286l859 +++| SA6 A2 SET FILE NAME IN FET 00140 M01S00124.286l859 +++| SA1 /COMSPFS/UTLN GET UTILITY NAME 00141 M01S00125.286l859 +++| SX6 1R* 00142 M01S00126.286l859 +++| BX6 X1+X6 00143 M01S00127.286l859 +++| LX6 -6 00144 M01S00128.286l859 +++| WRITEO O WRITE RECORD NAME 00145 M01S00129.286l859 +++| WRITEC O,IOFB WRITE FORMAT EFFECTOR 00146 M01S00130.286l859 +++| SETFS O,0 CLEAR SPECIAL FILE STATUS 00147 M01S00002.ns2793 +++| RJ SDT SET DEFAULT PAGE TITLE 00148 M01S00131.286l859 +++|
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00149 M02S00132.ns2790 ---|* PROCESS IMLICIT *P* OR *U* LIST OPTION. 00150 M01S00006.ns2790 +++|* INITIALIZE SUMMARY FILE. 00151 M01S00133.286l859 +++|
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00152 M02S00134.ns2790 ---| SA1 CPAR+/COMSPFS/CPLO
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00153 M02S00135.ns2790 ---| MX7 2
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00154 M02S00136.ns2790 ---| BX6 X7*X1
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00155 M02S00137.ns2790 ---| ZR X6,IOF5 IF NOT *T* OR *C* LIST OPTION
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00138.ns2790 ---| LX7 -4
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00157 M02S00139.ns2790 ---| BX7 X7*X1
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00158 M02S00140.ns2790 ---| NZ X7,IOF3 IF *P* OR *U* LIST OPTION SELECTED
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00159 M02S00141.ns2790 ---| SA2 OFUC
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00160 M02S00142.ns2790 ---| SX6 B1
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00161 M02S00143.ns2790 ---| LX6 54-0 *U* LIST OPTION
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00162 M02S00144.ns2790 ---| SX3 X2-/COMSPFS/CAUT
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00163 M02S00145.ns2790 ---| ZR X3,IOF2 IF *PFCAT*
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00164 M02S00146.ns2790 ---| SX3 X2-/COMSPFS/RLUT
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00165 M02S00147.ns2790 ---| ZR X3,IOF2 IF *PFREL*
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00166 M02S00148.ns2790 ---| LX6 55-54 *P* LIST OPTION
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00167 M02S00149.ns2790 ---| IOF2 BX6 X1+X6 SET *U* OR *P* LIST OPTION
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00168 M02S00150.ns2790 ---| SA6 CPAR+/COMSPFS/CPLO
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00151.ns2790 ---|
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00152.ns2790 ---|* INITIALIZE UNSORTED OUTPUT CONTROL FLAGS.
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00153.ns2790 ---|
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00172 M02S00154.ns2790 ---| IOF3 SA1 CPAR+/COMSPFS/CPLO
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00155.ns2790 ---| SX6 B1
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00156.ns2790 ---| LX1 59-55
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00157.ns2790 ---| PL X1,IOF5 IF NOT *P* LIST OPTION
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00158.ns2790 ---| LX1 59-59-59+55
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00177 M02S00159.ns2790 ---| PL X1,IOF4 IF NOT *T* LIST OPTION
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00178 M02S00160.ns2790 ---| SA6 UFOF SET UNSORTED FILE LIST OUTPUT FLAG
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00179 M02S00161.ns2790 ---| IOF4 LX1 59-58-59+59
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00162.ns2790 ---| PL X1,IOF5 IF NOT *C* LIST OPTION
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00181 M02S00163.ns2790 ---| SA6 UCOF SET UNSORTED CIR LIST FLAG
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00182 M02S00164.ns2790 ---|
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00183 M02S00165.ns2790 ---|* INITIALIZE SORTED OUTPUT CONTROL FLAGS.
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00184 M02S00166.ns2790 ---|
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00167.ns2790 ---| IOF5 SA1 CPAR+/COMSPFS/CPLO
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00168.ns2790 ---| SX6 1
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00187 M02S00169.ns2790 ---| LX1 0-54
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00170.ns2790 ---| BX2 X6*X1 *U* LIST OPTION
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00171.ns2790 ---| LX1 0-58-0+54
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00190 M02S00172.ns2790 ---| BX7 X1*X6 *C* LIST OPTION
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00191 M02S00173.ns2790 ---| BX7 X7*X2 *U* .AND. *C*
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00192 M02S00174.ns2790 ---| SA7 CISF INITIALIZE CIR SORT FLAG
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00193 M02S00175.ns2790 ---| LX1 0-59-0+58
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00194 M02S00176.ns2790 ---| BX7 X1*X6 *T* LIST OPTION
| Line S00177 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00195 M02S00177.ns2790 ---| LX1 0-56-0+59
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00196 M02S00178.ns2790 ---| BX7 X7*X2 *U* .AND. *T*
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00197 M02S00179.ns2790 ---| BX1 X6*X1 *S* LIST OPTION
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00198 M02S00180.ns2790 ---| BX7 X7+X1 (*U* .AND. *T*) .OR. *S*
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00199 M02S00181.ns2790 ---| SA7 CASF INITIALIZE CATALOG SORT FLAG
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00200 M02S00182.ns2790 ---|
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00201 M02S00183.ns2790 ---|* INITIALIZE SUMMARY FILE.
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00202 M02S00184.ns2790 ---|
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00203 M02S00185.ns2790 ---| IOF6 SA1 CPAR+/COMSPFS/CPSU 00204 M01S00007.ns2790 +++| IOF2 SA1 CPAR+/COMSPFS/CPSU 00205 M01S00186.286l859 +++| ZR X1,IOFX IF NO SUMMARY FILE PROCESSING 00206 M01S00187.286l859 +++| SA5 SU 00207 M01S00188.286l859 +++| RJ PFO OPEN SUMMARY FILE 00208 M01S00189.286l859 +++| SETFET SU,ERP=B0 CLEAR USER ERROR PROCESSING 00209 M01S00190.286l859 +++| RJ WIS WRITE INITIAL BLOCKS 00210 M01S00191.286l859 +++| EQ IOFX RETURN 00211 M01S00192.286l859 +++| 00212 M01S00193.286l859 +++| 00213 M01S00194.286l859 +++| IOFA BSSZ 2 *GETPP* PARAMETER BLOCK 00214 M01S00195.286l859 +++| IOFB CON 0 PRINT DENSITY FORMAT CONTROL CHARACTER 00215 M01S00196.286l859 +++| ODV SPACE 4,10 00216 M01S00197.286l859 +++|** ODV - OUTPUT DEVICE STATUS TO SELECTED OUTPUT FILES. 00217 M01S00198.286l859 +++|* 00218 M01S00199.286l859 +++|* ENTRY (X6) = ADDRESS OF DEVICE STATUS INFORMATION BUFFER. 00219 M01S00200.286l859 +++|* 00220 M01S00201.286l859 +++|* EXIT DEVICE STATUS WRITTEN TO OUTPUT FILE IF SELECTED. 00221 M01S00202.286l859 +++|* DEVICE STATUS BLOCK WRITTEN TO SUMMARY FILE IF 00222 M01S00203.286l859 +++|* SELECTED. 00223 M01S00204.286l859 +++|* 00224 M01S00205.286l859 +++|* USES X - 1, 2, 3, 5, 6, 7. 00225 M01S00206.286l859 +++|* A - 1, 2, 3, 5, 6, 7. 00226 M01S00207.286l859 +++|*
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00227 M02S00208.ns2793 ---|* CALLS FAB, FDS, MWA, RPP. 00228 M01S00003.ns2793 +++|* CALLS FAB, FDS, MWA, RPP, SDT. 00229 M01S00209.286l859 +++| 00230 M01S00210.286l859 +++| 00231 M01S00211.286l859 +++| ODV SUBR ENTRY/EXIT 00232 M01S00212.286l859 +++| SA6 ODVA SET BUFFER ADDRESS 00233 M01S00213.286l859 +++| SA6 ODVB 00234 M01S00214.286l859 +++| 00235 M01S00215.286l859 +++|* WRITE OUTPUT FILE. 00236 M01S00216.286l859 +++| 00237 M01S00217.286l859 +++| SA1 CPAR+/COMSPFS/CPLO 00238 M01S00218.286l859 +++| ZR X1,ODV2 IF NO OUTPUT FILE 00239 M01S00219.286l859 +++| SX2 DVTX SET DEVICE STATUS TITLE TEXT 00240 M01S00220.286l859 +++| SX6 DVS SET SUBHEADER PROCESSOR 00241 M01S00221.286l859 +++| RJ RPP RESET PAGE PARAMETERS 00242 M01S00222.286l859 +++| SA5 ODVA 00243 M01S00223.286l859 +++| SA5 X5 00244 M01S00224.286l859 +++| ODV1 RJ FDS FORMAT DEVICE STATUS 00245 M01S00225.286l859 +++| SA2 ODVB 00246 M01S00226.286l859 +++| SX6 X2+2 ADVANCE ENTRY ADDRESS 00247 M01S00227.286l859 +++| SA5 X6 READ FIRST WORD OF ENTRY 00248 M01S00228.286l859 +++| SA6 A2 00249 M01S00229.286l859 +++| NZ X5,ODV1 IF NOT END OF DEVICES 00250 M01S00004.ns2793 +++| RJ SDT RESET DEFAULT PAGE TITLE 00251 M01S00230.286l859 +++| 00252 M01S00231.286l859 +++|* WRITE SUMMARY FILE. 00253 M01S00232.286l859 +++| 00254 M01S00233.286l859 +++| ODV2 SA1 CPAR+/COMSPFS/CPSU 00255 M01S00234.286l859 +++| ZR X1,ODVX IF NO SUMMARY FILE 00256 M01S00235.286l859 +++| SA1 OFFN 00257 M01S00236.286l859 +++| SA2 OFPN 00258 M01S00237.286l859 +++| SA3 OFUN 00259 M01S00238.286l859 +++| BX6 X1+X2 SET FAMILY NAME OR PACK NAME 00260 M01S00239.286l859 +++| BX7 X3 00261 M01S00240.286l859 +++| SA6 ODVC 00262 M01S00241.286l859 +++| ZR X2,ODV3 IF NOT AUXILIARY DEVICE 00263 M01S00242.286l859 +++| SA7 ODVC+1 SET USER NAME 00264 M01S00243.286l859 +++| ODV3 SA1 ODVA SET BUFFER ADDRESS 00265 M01S00244.286l859 +++| SA2 X1 00266 M01S00245.286l859 +++| SX0 B1+B1 COUNT FAMILY/PACK/USER HEADER 00267 M01S00246.286l859 +++| ODV4 SA2 A2+2 ADVANCE BUFFER ADDRESS 00268 M01S00247.286l859 +++| SX0 X0+2 COUNT ENTRY 00269 M01S00248.286l859 +++| NZ X2,ODV4 IF NOT END OF DEVICES 00270 M01S00249.286l859 +++| SA1 TSBI+/COMSPFS/DSSB 00271 M01S00250.286l859 +++| BX6 X1 00272 M01S00251.286l859 +++| SX1 B1+B1 SET HEADER ENTRY WORD COUNT 00273 M01S00252.286l859 +++| SA6 CFBI SET DEVICE STATUS BLOCK IDENTIFIER 00274 M01S00253.286l859 +++| SX2 ODVC SET ADDRESS OF HEADER ENTRY 00275 M01S00254.286l859 +++| RJ MWA MOVE HEADER TO ASSEMBLY BUFFER 00276 M01S00255.286l859 +++| SX1 X0-2 SET LENGTH OF DEVICE ENTRIES 00277 M01S00256.286l859 +++| SX0 0 SET BLOCK CONTINUATION 00278 M01S00257.286l859 +++| SA2 ODVA SET DEVICE STATUS BUFFER ADDRESS 00279 M01S00258.286l859 +++| RJ MWA MOVE DEVICE STATUS TO ASSEMBLY BUFFER 00280 M01S00259.286l859 +++| RJ FAB FLUSH ASSEMBLY BUFFER 00281 M01S00260.286l859 +++| EQ ODVX RETURN 00282 M01S00261.286l859 +++| 00283 M01S00262.286l859 +++| 00284 M01S00263.286l859 +++| ODVA CON 0 DEVICE STATUS INFORMATION BUFFER ADDRESS 00285 M01S00264.286l859 +++| ODVB CON 0 ENTRY POINTER 00286 M01S00265.286l859 +++| ODVC CON 0 FAMILY NAME OR PACK NAME 00287 M01S00266.286l859 +++| CON 0 USER NAME OF PRIVATE AUXILIARY DEVICE 00288 M01S00267.286l859 +++| SPT SPACE 4,20 00289 M01S00268.286l859 +++|** SPT - SET UP PAGE TITLE. 00290 M01S00269.286l859 +++|* 00291 M01S00270.286l859 +++|* ENTRY (OFUC) = UTILITY CODE IF *PFLIST* UTILITY. 00292 M01S00271.286l859 +++|* (OFFN) = FAMILY NAME IF *PFLIST* UTILITY. 00293 M01S00272.286l859 +++|* (OFPN) = PACK NAME IF *PFLIST* UTILITY. 00294 M01S00273.286l859 +++|* (OFUN) = AUXILIARY DEVICE USER NAME IF *PFLIST* 00295 M01S00274.286l859 +++|* UTILITY. 00296 M01S00275.286l859 +++|* 00297 M01S00276.286l859 +++|* EXIT PARAMETERS SET IN PAGE TITLE. 00298 M01S00277.286l859 +++|* 00299 M01S00278.286l859 +++|* USES X - 1, 2, 3, 5, 6. 00300 M01S00279.286l859 +++|* A - 1, 2, 3, 6. 00301 M01S00280.286l859 +++|* B - 2, 5. 00302 M01S00281.286l859 +++|* 00303 M01S00282.286l859 +++|* CALLS SNM, ZTB. 00304 M01S00283.286l859 +++|* 00305 M01S00284.286l859 +++|* MACROS EDATE, ETIME, MOVE. 00306 M01S00285.286l859 +++| 00307 M01S00286.286l859 +++| 00308 M01S00287.286l859 +++| SPT SUBR ENTRY/EXIT 00309 M01S00288.286l859 +++| 00310 M01S00289.286l859 +++|* SET UP UTILITY NAME, FAMILY NAME, AND PACK NAME AND AUXILIARY 00311 M01S00290.286l859 +++|* DEVICE USER NAME FOR OUTPUT FILES FROM *PFS* PARAMETERS IF 00312 M01S00291.286l859 +++|* NOT *PFLIST* UTILITY. 00313 M01S00292.286l859 +++| 00314 M01S00293.286l859 +++| SA1 /COMSPFS/UTLC 00315 M01S00294.286l859 +++| SX2 X1-/COMSPFS/LIUT 00316 M01S00295.286l859 +++| ZR X2,SPT1 IF *PFLIST* UTILITY 00317 M01S00296.286l859 +++| SA2 CPAR+/COMSPFS/CPFN 00318 M01S00297.286l859 +++| SA3 CPAR+/COMSPFS/CPPN 00319 M01S00298.286l859 +++| MX7 42 00320 M01S00299.286l859 +++| BX6 X1 00321 M01S00300.286l859 +++| SA6 OFUC SET UTILITY CODE 00322 M01S00301.286l859 +++| BX6 X7*X2 00323 M01S00302.286l859 +++| BX7 X7*X3 00324 M01S00303.286l859 +++| SA6 OFFN SET FAMILY NAME 00325 M01S00304.286l859 +++| SA7 OFPN SET PACK NAME 00326 M01S00305.286l859 +++| ZR X3,SPT1 IF NOT AUXILIARY DEVICE 00327 M01S00306.286l859 +++| SA1 CPAR+/COMSPFS/CPUN 00328 M01S00307.286l859 +++| BX6 X1 00329 M01S00308.286l859 +++| SA6 OFUN SET AUXILIARY DEVICE USER NAME 00330 M01S00309.286l859 +++| 00331 M01S00310.286l859 +++|* SET PAGE TITLE TEXT. 00332 M01S00311.286l859 +++| 00333 M01S00312.286l859 +++| SPT1 SA2 OFUC 00334 M01S00313.286l859 +++| SA2 SPTA+X2 GET TITLE TEXT POINTERS 00335 M01S00314.286l859 +++| SX5 X2 SAVE MAIN TITLE TEXT POINTER 00336 M01S00315.286l859 +++| LX2 -18 00337 M01S00316.286l859 +++| SX2 X2+ SET PRESET TITLE TEXT POINTER 00338 M01S00317.286l859 +++| MOVE PTTAL,X2,PTTA MOVE PRESET PAGE TITLE TEXT 00339 M01S00318.286l859 +++| MOVE MTTAL,X5,MTTA MOVE MAIN PAGE TITLE TEXT 00340 M01S00319.286l859 +++| 00341 M01S00320.286l859 +++|* SET FAMILY NAME OR PACK NAME. 00342 M01S00321.286l859 +++| 00343 M01S00322.286l859 +++| SA1 OFFN 00344 M01S00323.286l859 +++| ZR X1,SPT2 IF NO FAMILY NAME 00345 M01S00324.286l859 +++| SB5 SPTB SET FAMILY MESSAGE ADDRESS 00346 M01S00325.286l859 +++| EQ SPT3 SET FAMILY NAME 00347 M01S00326.286l859 +++| 00348 M01S00327.286l859 +++| SPT2 SA1 OFPN 00349 M01S00328.286l859 +++| ZR X1,SPT4 IF NO PACK NAME 00350 M01S00329.286l859 +++| SB5 SPTC SET PACK NAME MESSAGE ADDRESS 00351 M01S00330.286l859 +++| SPT3 SB2 1R? 00352 M01S00331.286l859 +++| RJ SNM SET FAMILY OR PACK NAME 00353 M01S00332.286l859 +++| SA1 B5 00354 M01S00333.286l859 +++| RJ ZTB BLANK FILL ZEROES 00355 M01S00334.286l859 +++| SA6 PGFM 00356 M01S00335.286l859 +++| SA1 B5+B1 00357 M01S00336.286l859 +++| RJ ZTB BLANK FILL ZEROES 00358 M01S00337.286l859 +++| SA6 PGFM+1 00359 M01S00338.286l859 +++| 00360 M01S00339.286l859 +++|* SET EXECUTING UTILITY NAME AND SYSTEM LEVEL. 00361 M01S00340.286l859 +++| 00362 M01S00341.286l859 +++| SPT4 SA1 /COMSPFS/UTLN 00363 M01S00342.286l859 +++| SB2 1R? 00364 M01S00343.286l859 +++| SB5 SPTD 00365 M01S00344.286l859 +++| RJ SNM SET UTILITY NAME 00366 M01S00345.286l859 +++| SA1 SPTD 00367 M01S00346.286l859 +++| BX6 X1 00368 M01S00347.286l859 +++| SA6 PGUT 00369 M01S00348.286l859 +++| SA1 SPTD+1 BLANK FILL UTILITY NAME AND SYSTEM LEVEL 00370 M01S00349.286l859 +++| RJ ZTB 00371 M01S00350.286l859 +++| SA6 PGUT+1 00372 M01S00351.286l859 +++| 00373 M01S00352.286l859 +++|* SET DATE AND TIME. 00374 M01S00353.286l859 +++| 00375 M01S00354.286l859 +++| SA1 /COMSPFS/STDT 00376 M01S00355.286l859 +++| BX5 X1 00377 M01S00356.286l859 +++| AX1 18 00378 M01S00357.286l859 +++| EDATE X1 00379 M01S00358.286l859 +++| SA6 PGSD SET START DATE 00380 M01S00359.286l859 +++| MX1 -18 00381 M01S00360.286l859 +++| BX1 -X1*X5 00382 M01S00361.286l859 +++| ETIME X1 00383 M01S00362.286l859 +++| SA6 PGST SET START TIME 00384 M01S00363.286l859 +++|
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00385 M02S00364.ns2790 ---|* SET CATALOG ENTRY FILE STATUS SUBHEADER. 00386 M01S00008.ns2790 +++|* SET EXTENDED PAGE HEADER FOR FILE PROCESSING. 00387 M01S00365.286l859 +++|
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00366.ns2790 ---| SA1 OFUC
| Line S00367 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00389 M02S00367.ns2790 ---| SA1 SPTA+X1
| Line S00368 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00390 M02S00368.ns2790 ---| PL X1,SPTX IF NO CATALOG ENTRY SUBHEADER EXTENSION
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00391 M02S00369.ns2790 ---| MOVE 2,SPTE,/COMCFCE/CHDR1+9 SET CATALOG ENTRY SUBHEADER
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00392 M02S00370.ns2790 ---| MOVE 2,SPTE+2,/COMCFCE/CHDR2+9
| Line S00371 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00371.ns2790 ---| MOVE 2,SPTE+4,/COMCFCE/CHDR3+9 00394 M01S00009.ns2790 +++| SA1 SPTE 00395 M01S00010.ns2790 +++| BX6 X1 00396 M01S00011.ns2790 +++| SA6 /COMCFCE/CHDR1+9 SET HEADER EXTENSION 00397 M01S00372.286l859 +++| EQ SPTX RETURN 00398 M01S00373.286l859 +++| 00399 M01S00374.286l859 +++| 00400 M01S00375.286l859 +++|* TITLE CONTROL TABLE. 00401 M01S00376.286l859 +++| 00402 M01S00377.286l859 +++| SPTA IVFD
| Line S00378 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00403 M02S00378.ns2790 ---| IVFD /COMSPFS/LDUT,(1/1,23/0,18/PTLD,18/MTLD) *PFLOAD*
| Line S00379 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00404 M02S00379.ns2790 ---| IVFD /COMSPFS/DUUT,(1/1,23/0,18/PTDU,18/MTDU) *PFDUMP*
| Line S00380 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00405 M02S00380.ns2790 ---| IVFD /COMSPFS/CAUT,(1/0,23/0,18/PTCA,18/MTCA) *PFCAT*
| Line S00381 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00406 M02S00381.ns2790 ---| IVFD /COMSPFS/ATUT,(1/1,23/0,18/PTAT,18/MTAT) *PFATC*
| Line S00382 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00407 M02S00382.ns2790 ---| IVFD /COMSPFS/COUT,(1/1,23/0,18/PTCO,18/MTCO) *PFCOPY*
| Line S00383 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00408 M02S00383.ns2790 ---| IVFD /COMSPFS/RLUT,(1/0,23/0,18/PTRL,18/MTRL) *PFREL* 00409 M01S00012.ns2790 +++| IVFD /COMSPFS/LDUT,(24/0,18/PTLD,18/MTLD) *PFLOAD* 00410 M01S00013.ns2790 +++| IVFD /COMSPFS/DUUT,(24/0,18/PTDU,18/MTDU) *PFDUMP* 00411 M01S00014.ns2790 +++| IVFD /COMSPFS/CAUT,(24/0,18/PTCA,18/MTCA) *PFCAT* 00412 M01S00015.ns2790 +++| IVFD /COMSPFS/ATUT,(24/0,18/PTAT,18/MTAT) *PFATC* 00413 M01S00016.ns2790 +++| IVFD /COMSPFS/COUT,(24/0,18/PTCO,18/MTCO) *PFCOPY* 00414 M01S00017.ns2790 +++| IVFD /COMSPFS/RLUT,(24/0,18/PTRL,18/MTRL) *PFREL* 00415 M01S00384.286l859 +++| IVFD /COMSPFS/MXUT 00416 M01S00385.286l859 +++| 00417 M01S00386.286l859 +++| SPTB DATA C* FAMILY ???????.* 00418 M01S00387.286l859 +++| SPTC DATA C* PACK ???????.* 00419 M01S00388.286l859 +++| SPTD DATA C* ??????? - LVL "NOSLVL".*
| Line S00389 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00420 M02S00389.ns2790 ---|
| Line S00390 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00421 M02S00390.ns2790 ---|* CATALOG PROCESSING SUBHEADER EXTENSION.
| Line S00391 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00422 M02S00391.ns2790 ---|
| Line S00392 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00423 M02S00392.ns2790 ---| SPTE DATA 20H PFC ARCHIVE
| Line S00393 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00424 M02S00393.ns2790 ---| DATA 20H ONLY FILE
| Line S00394 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00425 M02S00394.ns2790 ---| DATA 20H ERRORS 00426 M01S00018.ns2790 +++| SPTE DATA 10H SEQUENCE 00427 M01S00395.286l859 +++| 00428 M01S00396.286l859 +++|* TABLE OF MAIN PROGRAM PAGE TITLE TEXT. 00429 M01S00397.286l859 +++|* EACH SET OF TITLES MUST BE *MTTAL* WORDS LONG. 00430 M01S00398.286l859 +++| 00431 M01S00399.286l859 +++| MTLD DATA 50H1PFLOAD - FILES LOADED.
| Line S00400 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00432 M02S00400.ns2790 ---| DATA 50H1PFLOAD - FILES LOADED. SORTED BY USER/NAME.
| Line S00401 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00433 M02S00401.ns2790 ---| DATA 50H1PFLOAD - CATALOG IMAGE.
| Line S00402 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00434 M02S00402.ns2790 ---| DATA 50H1PFLOAD - CATALOG IMAGE. SORTED BY USER/NAME. 00435 M01S00019.ns2790 +++| DATA 50H1PFLOAD - CATALOG IMAGE RECORD. 00436 M01S00403.286l859 +++| DATA 50H1PFLOAD - USER SUMMARY. 00437 M01S00404.286l859 +++| DATA 50H1PFLOAD - TAPE ALTERNATE STORAGE SUMMARY. 00438 M01S00005.ns2793 +++| DATA 50H1PFLOAD. 00439 M01S00405.286l859 +++| 00440 M01S00406.286l859 +++| MTDU DATA 50H1PFDUMP - FILES DUMPED.
| Line S00407 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00407.ns2790 ---| DATA 50H1PFDUMP - FILES DUMPED. SORTED BY USER/NAME.
| Line S00408 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00442 M02S00408.ns2790 ---| DATA 50H1PFDUMP - CATALOG IMAGE.
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00443 M02S00409.ns2790 ---| DATA 50H1PFDUMP - CATALOG IMAGE. SORTED BY USER/NAME. 00444 M01S00020.ns2790 +++| DATA 50H1PFDUMP - CATALOG IMAGE RECORD. 00445 M01S00410.286l859 +++| DATA 50H1PFDUMP - USER SUMMARY. 00446 M01S00411.286l859 +++| DATA 50H1PFDUMP - TAPE ALTERNATE STORAGE SUMMARY. 00447 M01S00006.ns2793 +++| DATA 50H1PFDUMP. 00448 M01S00412.286l859 +++| 00449 M01S00413.286l859 +++| MTCA DATA 50H1PFCAT - FILES CATALOGED.
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00450 M02S00414.ns2790 ---| DATA 50H1PFCAT - FILES CATALOGED. SORTED BY USER/NAME.
| Line S00415 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00451 M02S00415.ns2790 ---| DATA 50H 00452 M01S00416.286l859 +++| DATA 50H 00453 M01S00417.286l859 +++| DATA 50H1PFCAT - USER SUMMARY. 00454 M01S00418.286l859 +++| DATA 50H1PFCAT - TAPE ALTERNATE STORAGE SUMMARY. 00455 M01S00007.ns2793 +++| DATA 50H1PFCAT. 00456 M01S00419.286l859 +++| 00457 M01S00420.286l859 +++| MTAT DATA 50H1PFATC - FILES ON ARCHIVE.
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00458 M02S00421.ns2790 ---| DATA 50H1PFATC - FILES ON ARCHIVE. SORTED BY USER/NAME.
| Line S00422 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00459 M02S00422.ns2790 ---| DATA 50H1PFATC - CATALOG IMAGE.
| Line S00423 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00460 M02S00423.ns2790 ---| DATA 50H1PFATC - CATALOG IMAGE. SORTED BY USER/NAME. 00461 M01S00021.ns2790 +++| DATA 50H1PFATC - CATALOG IMAGE RECORD. 00462 M01S00424.286l859 +++| DATA 50H1PFATC - USER SUMMARY. 00463 M01S00425.286l859 +++| DATA 50H1PFATC - TAPE ALTERNATE STORAGE SUMMARY. 00464 M01S00008.ns2793 +++| DATA 50H1PFATC. 00465 M01S00426.286l859 +++| 00466 M01S00427.286l859 +++| MTCO DATA 50H1PFCOPY - FILES COPIED.
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00467 M02S00428.ns2790 ---| DATA 50H1PFCOPY - FILES COPIED. SORTED BY USER/NAME.
| Line S00429 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00468 M02S00429.ns2790 ---| DATA 50H 00469 M01S00430.286l859 +++| DATA 50H 00470 M01S00431.286l859 +++| DATA 50H1PFCOPY - USER SUMMARY. 00471 M01S00432.286l859 +++| DATA 50H1PFCOPY - TAPE ALTERNATE STORAGE SUMMARY. 00472 M01S00009.ns2793 +++| DATA 50H1PFCOPY. 00473 M01S00433.286l859 +++| 00474 M01S00434.286l859 +++| MTRL DATA 50H1PFREL - FILES PROCESSED.
| Line S00435 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00475 M02S00435.ns2790 ---| DATA 50H1PFREL - FILES PROCESSED. SORTED BY USER/NAME.
| Line S00436 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Updated by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00476 M02S00436.ns2790 ---| DATA 50H 00477 M01S00437.286l859 +++| DATA 50H 00478 M01S00438.286l859 +++| DATA 50H1PFREL - USER SUMMARY. 00479 M01S00439.286l859 +++| DATA 50H1PFREL - TAPE ALTERNATE STORAGE SUMMARY. 00480 M01S00010.ns2793 +++| DATA 50H1PFREL. 00481 M01S00440.286l859 +++| 00482 M01S00441.286l859 +++|* TABLE OF PRESET PAGE TITLE TEXT. 00483 M01S00442.286l859 +++|* EACH SET OF TITLES MUST BE *PTTAL* WORDS LONG. 00484 M01S00443.286l859 +++| 00485 M01S00444.286l859 +++| PTLD DATA 50H1PFLOAD - ACTIVE DEVICE STATUS. 00486 M01S00445.286l859 +++| 00487 M01S00446.286l859 +++| PTDU DATA 50H1PFDUMP - ACTIVE DEVICE STATUS. 00488 M01S00447.286l859 +++| 00489 M01S00448.286l859 +++| PTCA DATA 50H1PFCAT - ACTIVE DEVICE STATUS. 00490 M01S00449.286l859 +++| 00491 M01S00450.286l859 +++| PTAT DATA 50H 00492 M01S00451.286l859 +++| 00493 M01S00452.286l859 +++| PTCO DATA 50H 00494 M01S00453.286l859 +++| 00495 M01S00454.286l859 +++| PTRL DATA 50H1PFREL - ACTIVE DEVICE STATUS. 00496 M01S00455.286l859 +++| WIS SPACE 4,10 00497 M01S00456.286l859 +++|** WIS - WRITE INITIAL BLOCKS TO SUMMARY FILE. 00498 M01S00457.286l859 +++|* 00499 M01S00458.286l859 +++|* EXIT PREFIX TABLE AND SYSTEM BLOCK WRITTEN TO FILE. 00500 M01S00459.286l859 +++|* 00501 M01S00460.286l859 +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 00502 M01S00461.286l859 +++|* A - 1, 2, 4, 5, 6, 7. 00503 M01S00462.286l859 +++|* 00504 M01S00463.286l859 +++|* CALLS ZTB. 00505 M01S00464.286l859 +++|* 00506 M01S00465.286l859 +++|* MACROS ETIME, MOVE, SYSTEM, VERSION, WRITEW. 00507 M01S00466.286l859 +++| 00508 M01S00467.286l859 +++| 00509 M01S00468.286l859 +++| WIS SUBR ENTRY/EXIT 00510 M01S00469.286l859 +++| SA1 CPAR+/COMSPFS/CPSR SET RECORD NAME 00511 M01S00470.286l859 +++| RJ ZTB 00512 M01S00471.286l859 +++| MX0 42 00513 M01S00472.286l859 +++| BX6 X0*X6 00514 M01S00473.286l859 +++| SA6 WISB 00515 M01S00474.286l859 +++| SA1 /COMSPFS/STDT SET PACKED DATE/TIME 00516 M01S00475.286l859 +++| BX7 X1 00517 M01S00476.286l859 +++| BX5 X1 00518 M01S00477.286l859 +++| SA7 WISI 00519 M01S00478.286l859 +++| AX1 18 00520 M01S00479.286l859 +++| EDATE X1 CONVERT DATE 00521 M01S00480.286l859 +++| SA6 WISC 00522 M01S00481.286l859 +++| SA6 WISG 00523 M01S00482.286l859 +++| MX1 -18 00524 M01S00483.286l859 +++| BX1 -X1*X5 00525 M01S00484.286l859 +++| ETIME X1 CONVERT TIME 00526 M01S00485.286l859 +++| SA6 WISC+1 00527 M01S00486.286l859 +++| SA6 WISG+1 00528 M01S00487.286l859 +++| SA1 /COMSPFS/UTLN SET UTILITY NAME 00529 M01S00488.286l859 +++| SX6 SABFL ADD MAXIMUM BLOCK LENGTH 00530 M01S00489.286l859 +++| BX6 X1+X6 00531 M01S00490.286l859 +++| SA6 WISF 00532 M01S00491.286l859 +++| SA5 CPAR+/COMSPFS/CPFN 00533 M01S00492.286l859 +++| SA4 CPAR+/COMSPFS/CPPN 00534 M01S00493.286l859 +++| SX6 2RFM 00535 M01S00494.286l859 +++| MX7 42 00536 M01S00495.286l859 +++| BX5 X7*X5 00537 M01S00496.286l859 +++| BX4 X7*X4 00538 M01S00497.286l859 +++| NZ X5,WIS1 IF FAMILY NAME PRESENT 00539 M01S00498.286l859 +++| SX6 2RPN 00540 M01S00499.286l859 +++| NZ X5,WIS1 IF PACK NAME PRESENT 00541 M01S00500.286l859 +++| SX6 B0+ 00542 M01S00501.286l859 +++| WIS1 BX1 X1+X6 MERGE UTILITY NAME AND MNEMONIC 00543 M01S00502.286l859 +++| RJ ZTB BLANK FILL UTILITY NAME 00544 M01S00503.286l859 +++| SA6 WISD 00545 M01S00504.286l859 +++| BX1 X4+X5 00546 M01S00505.286l859 +++| ZR X1,WIS2 IF NEITHER FAMILY NOR PACK NAME 00547 M01S00506.286l859 +++| SX2 1R= 00548 M01S00507.286l859 +++| BX1 X1+X2 00549 M01S00508.286l859 +++| LX1 -6 00550 M01S00509.286l859 +++| WIS2 RJ ZTB BLANK FILL FAMILY OR PACK NAME 00551 M01S00510.286l859 +++| SA6 WISD+1 00552 M01S00511.286l859 +++| VERSION WISK READ SYSTEM TITLE AND VERSION 00553 M01S00512.286l859 +++| SX0 WISH SET SYSTEM TITLE ADDRESS 00554 M01S00513.286l859 +++| WIS3 SA1 X0 READ NEXT WORD 00555 M01S00514.286l859 +++| RJ ZTB BLANK FILL NAME 00556 M01S00515.286l859 +++| SA6 X0 00557 M01S00516.286l859 +++| SX0 X0+B1 00558 M01S00517.286l859 +++| SX1 X0-WISH-4 00559 M01S00518.286l859 +++| NZ X1,WIS3 IF NOT END OF SYSTEM TITLE 00560 M01S00519.286l859 +++| MOVE 4,WISH,WISE MOVE SYSTEM TITLE TO PREFIX TABLE 00561 M01S00520.286l859 +++| WRITEW SU,WISA,33B WRITE BLOCKS TO SUMMARY FILE 00562 M01S00521.286l859 +++| EQ WISX RETURN 00563 M01S00522.286l859 +++| 00564 M01S00523.286l859 +++| 00565 M01S00524.286l859 +++| WISA VFD 12/7700B,12/0016B,36/0 PREFIX TABLE IDENTIFIER 00566 M01S00525.286l859 +++| WISB CON 0 RECORD NAME 00567 M01S00526.286l859 +++| WISC CON 0 DATE 00568 M01S00527.286l859 +++| CON 0 TIME 00569 M01S00528.286l859 +++| BSSZ 4 00570 M01S00529.286l859 +++| WISD DATA 10HPFUUUUU FM FIRST TWO WORDS OF COMMENT 00571 M01S00530.286l859 +++| DATA 10H 00572 M01S00531.286l859 +++| WISE BSSZ 4 SYSTEM TITLE 00573 M01S00532.286l859 +++| DATA 10H 00574 M01S00533.286l859 +++| 00575 M01S00534.286l859 +++| VFD 42/6LSYSTEM,18/13B SYSTEM BLOCK HEADER 00576 M01S00535.286l859 +++| WISF CON 0 UTILITY NAME 00577 M01S00536.286l859 +++| WISG CON 0 DATE 00578 M01S00537.286l859 +++| CON 0 TIME 00579 M01S00538.286l859 +++| WISH BSSZ 4 SYSTEM TITLE 00580 M01S00539.286l859 +++| BSSZ 2 SYSTEM VERSION 00581 M01S00540.286l859 +++| WISI CON 0 PACKED DATE/TIME 00582 M01S00541.286l859 +++| WISJ CON NOSLVL SYSTEM LEVEL 00583 M01S00542.286l859 +++| 00584 M01S00543.286l859 +++| WISK VFD 1/1,11/30,12/0,12/0,6/0,18/WISH 00585 M01S00544.286l859 +++| SPACE 4 00586 M01S00545.286l859 +++|* PRESET PAGE TITLE TEXT AREA. 00587 M01S00546.286l859 +++| 00588 M01S00547.286l859 +++| PTTA BSS 0 00589 M01S00548.286l859 +++| DVTX DATA 50H 00590 M01S00549.286l859 +++| PTTAL EQU *-PTTA 00591 M01S00550.286l859 +++| 00592 M01S00551.286l859 +++|* DEVICE STATUS PAGE SUBHEADER. 00593 M01S00552.286l859 +++| 00594 M01S00553.286l859 +++| 00595 M01S00554.286l859 +++| DVSA DATA 50H DEVICE DEVICE UNIT DEVICE DAF 00596 M01S00555.286l859 +++| DATA 40H CATALOG TOTAL AVAILABLE TRACK 00597 M01S00556.286l859 +++| DVSB DATA 50H NUMBER TYPE COUNT MASK MASK 00598 M01S00557.286l859 +++| DATA 50H TRACKS TRACKS TRACKS SIZE 00599 M01S00558.286l859 +++| TITLE COMCPFP - COMMON PRESET ROUTINES. 00600 M01S00559.286l859 +++| ASF SPACE 4,20 00601 M01S00560.286l859 +++|** ASF - ASSIGN SECURE FILE. 00602 M01S00561.286l859 +++|* 00603 M01S00562.286l859 +++|* ENTRY (SYSS) = SYSTEM SECURITY MODE. 00604 M01S00563.286l859 +++|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS. 00605 M01S00564.286l859 +++|* (A5) = FET ADDRESS. 00606 M01S00565.286l859 +++|* 00607 M01S00566.286l859 +++|* EXIT FILE ASSIGNED. 00608 M01S00567.286l859 +++|* IF NOT ALREADY ASSIGNED, A DEVICE THAT ALLOWS THE 00609 M01S00568.286l859 +++|* UPPER LEVEL THAT WILL BE PROCESSED IS SELECTED. 00610 M01S00569.286l859 +++|* TO *ABT* IF FILE CANNOT BE ASSIGNED. 00611 M01S00570.286l859 +++|* 00612 M01S00571.286l859 +++|* USES X - 0, 1, 2, 6, 7. 00613 M01S00572.286l859 +++|* A - 1, 2, 6, 7. 00614 M01S00573.286l859 +++|* B - 2. 00615 M01S00574.286l859 +++|* 00616 M01S00575.286l859 +++|* MACROS REQUEST, SETFET, STATUS. 00617 M01S00576.286l859 +++| 00618 M01S00577.286l859 +++| 00619 M01S00578.286l859 +++| ASF SUBR ENTRY/EXIT 00620 M01S00579.286l859 +++| SA1 SYSS 00621 M01S00580.286l859 +++| ZR X1,ASFX IF NOT SECURE SYSTEM 00622 M01S00581.286l859 +++| STATUS A5 DETERMINE IF FILE IS ASSIGNED 00623 M01S00582.286l859 +++| SA1 A5 00624 M01S00583.286l859 +++| MX0 -11 00625 M01S00584.286l859 +++| LX0 1 00626 M01S00585.286l859 +++| BX2 -X0*X1 00627 M01S00586.286l859 +++| NZ X2,ASFX IF FILE EXISTS 00628 M01S00587.286l859 +++| SA2 A5+B1 SET SECURITY PROCESSING BIT 00629 M01S00588.286l859 +++| SX6 B1 00630 M01S00589.286l859 +++| LX6 39-0 00631 M01S00590.286l859 +++| BX7 -X6*X2 00632 M01S00591.286l859 +++| BX6 X6+X7 00633 M01S00592.286l859 +++| SA6 A2 00634 M01S00593.286l859 +++| SA1 A5+4 SET ACCESS LEVEL 00635 M01S00594.286l859 +++| SA2 PCUA 00636 M01S00595.286l859 +++| LX2 36 00637 M01S00596.286l859 +++| BX6 X1+X2 00638 M01S00597.286l859 +++| SA6 A1 00639 M01S00598.286l859 +++| SETFET A5,ERP=E,DTY==2RMS SET ERROR PROCESSING 00640 M01S00599.286l859 +++| REQUEST A5,U,N REQUEST FILE ASSIGNMENT 00641 M01S00600.286l859 +++| SA1 A5 00642 M01S00601.286l859 +++| MX0 -8 00643 M01S00602.286l859 +++| AX1 10 00644 M01S00603.286l859 +++| BX2 -X0*X1 00645 M01S00604.286l859 +++| NZ X2,ASF1 IF UNABLE TO ASSIGN FILE 00646 M01S00605.286l859 +++| SETFET A5,ERP=B0 CLEAR ERROR PROCESSING 00647 M01S00606.286l859 +++| EQ ASFX RETURN 00648 M01S00607.286l859 +++| 00649 M01S00608.286l859 +++| ASF1 SB2 ERAL * ACCESS LEVELS NOT ALLOWED ON ...* 00650 M01S00609.286l859 +++| EQ ABT ABORT 00651 M01S00610.286l859 +++| DSS SPACE 4,10 00652 M01S00611.286l859 +++|** DSS - DETERMINE SECURITY STATUS. 00653 M01S00612.286l859 +++|* 00654 M01S00613.286l859 +++|* EXIT (SYSS) = SYSTEM SECURITY MODE. 00655 M01S00614.286l859 +++|* (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT. 00656 M01S00615.286l859 +++|* (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT. 00657 M01S00616.286l859 +++|* 00658 M01S00617.286l859 +++|* USES X - 0, 1, 2, 6, 7. 00659 M01S00618.286l859 +++|* A - 1, 2, 6, 7. 00660 M01S00619.286l859 +++|* 00661 M01S00620.286l859 +++|* MACROS GETSSL. 00662 M01S00621.286l859 +++| 00663 M01S00622.286l859 +++| 00664 M01S00623.286l859 +++| DSS SUBR ENTRY/EXIT 00665 M01S00624.286l859 +++| GETSSL DSSA GET SYSTEM SECURITY STATUS 00666 M01S00625.286l859 +++| SA2 DSSA 00667 M01S00626.286l859 +++| MX0 -6 00668 M01S00627.286l859 +++| LX2 12 00669 M01S00628.286l859 +++| BX6 -X0*X2 SYSTEM SECURITY MODE 00670 M01S00629.286l859 +++| SA6 SYSS 00671 M01S00630.286l859 +++| ZR X6,DSSX IF NOT SECURE SYSTEM 00672 M01S00631.286l859 +++| LX2 6 00673 M01S00632.286l859 +++| BX7 -X0*X2 SYSTEM LOWER LIMIT 00674 M01S00633.286l859 +++| LX2 6 00675 M01S00634.286l859 +++| BX6 -X0*X2 SYSTEM UPPER LIMIT 00676 M01S00635.286l859 +++| SA7 SYLA 00677 M01S00636.286l859 +++| SA6 SYUA 00678 M01S00637.286l859 +++| EQ DSSX RETURN 00679 M01S00638.286l859 +++| 00680 M01S00639.286l859 +++| 00681 M01S00640.286l859 +++| DSSA CON 0 SYSTEM SECURITY STATUS RETURN 00682 M01S00641.286l859 +++| PFO SPACE 4,20 00683 M01S00642.286l859 +++|** PFO - PROCESS FILE OPENING. 00684 M01S00643.286l859 +++|* 00685 M01S00644.286l859 +++|* ENTRY (X1) = FILE NAME. 00686 M01S00645.286l859 +++|* (A5) = FET ADDRESS. 00687 M01S00646.286l859 +++|* (X5) = FIRST WORD OF FET. 00688 M01S00647.286l859 +++|* 00689 M01S00648.286l859 +++|* EXIT FET FILE NAME PRESET. 00690 M01S00649.286l859 +++|* FILE REQUESTED ON APPROPRIATELY SECURE EQUIPMENT, IF 00691 M01S00650.286l859 +++|* NOT ALREADY ASSIGNED. EQUIPMENT SECURITY VERIFIED, IF 00692 M01S00651.286l859 +++|* THE FILE IS ALREADY ASSIGNED. 00693 M01S00652.286l859 +++|* FET CONTROL WORD STATUS WORD PRESET. 00694 M01S00653.286l859 +++|* FET ERROR PROCESSING BIT SET IF NOT MASS STORAGE FILE. 00695 M01S00654.286l859 +++|* 00696 M01S00655.286l859 +++|* USES X - 0, 5, 6. 00697 M01S00656.286l859 +++|* A - 6. 00698 M01S00657.286l859 +++|* 00699 M01S00658.286l859 +++|* MACROS OPEN, SETFS. 00700 M01S00659.286l859 +++|* 00701 M01S00660.286l859 +++|* CALLS ASF, VES. 00702 M01S00661.286l859 +++| 00703 M01S00662.286l859 +++| 00704 M01S00663.286l859 +++| PFO SUBR ENTRY/EXIT 00705 M01S00664.286l859 +++| MX0 42 SET FILE NAME 00706 M01S00665.286l859 +++| BX6 X0*X1 00707 M01S00666.286l859 +++| BX5 -X0*X5 00708 M01S00667.286l859 +++| BX6 X6+X5 00709 M01S00668.286l859 +++| SA6 A5 00710 M01S00669.286l859 +++| RJ ASF ASSIGN SECURE FILE 00711 M01S00670.286l859 +++| OPEN A5,READNR,R OPEN FILE 00712 M01S00671.286l859 +++| RJ VES VERIFY EQUIPMENT SECURITY 00713 M01S00672.286l859 +++| SETFS A5,0 CLEAR SPECIAL FILE STATUS 00714 M01S00673.286l859 +++| EQ PFOX RETURN 00715 M01S00010.comcpfp +++| RPS SPACE 4,20 00716 M01S00011.comcpfp +++|** RPS - READ PERMANENT FILE SELECTIONS. 00717 M01S00012.comcpfp +++|* 00718 M01S00013.comcpfp +++|* IT IS ASSUMED THAT THE FILE SELECTION BUFFER IS AT THE END OF 00719 M01S00014.comcpfp +++|* MEMORY. 00720 M01S00015.comcpfp +++|* 00721 M01S00016.comcpfp +++|* ENTRY (X0) = SELECTIONS BUFFER ADDRESS. 00722 M01S00017.comcpfp +++|* 00723 M01S00018.comcpfp +++|* EXIT FILE SELECTIONS READ TO BUFFER FROM SCRATCH FILE
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00724 M02S00019.286l859 ---|* ZZZZZG9 IF PRESENT. 00725 M01S00674.286l859 +++|* ZZZZZGB IF PRESENT. 00726 M01S00020.comcpfp +++|* (/COMSPFS/FISP) = SELECTION BUFFER POINTER IF 00727 M01S00021.comcpfp +++|* SELECTIONS PRESENT. 00728 M01S00022.comcpfp +++|* 00729 M01S00023.comcpfp +++|* USES X - 5, 7. 00730 M01S00024.comcpfp +++|* A - 5, 7. 00731 M01S00025.comcpfp +++|* 00732 M01S00026.comcpfp +++|* MACROS MEMORY, READ, RETURN, REWIND, SETFET. 00733 M01S00027.comcpfp +++| 00734 M01S00028.comcpfp +++| 00735 M01S00029.comcpfp +++| RPS SUBR ENTRY/EXIT 00736 M01S00030.comcpfp +++| SA5 /COMSPFS/NFIS 00737 M01S00031.comcpfp +++| ZR X5,RPSX IF NO FILE SELECTIONS 00738 M01S00032.comcpfp +++| BX7 X0 00739 M01S00033.comcpfp +++| SX5 X5+64 LENGTH = COUNT + SECTOR FILL 00740 M01S00034.comcpfp +++| SA7 /COMSPFS/FISP SET BUFFER POINTER FOR *COMCPFS* 00741 M01S00035.comcpfp +++| IX7 X5+X0 LWA+1 OF INCREASED MEMORY 00742 M01S00036.comcpfp +++| MEMORY CM,,R,X7 INCREASE FL FOR SELECTION BUFFER 00743 M01S00037.comcpfp +++| SETFET RPSA,(BUF=X0,X5) SET FET POINTERS FOR DIRECT READ 00744 M01S00038.comcpfp +++| REWIND RPSA,R 00745 M01S00039.comcpfp +++| READ RPSA READ FILE SELECTIONS 00746 M01S00040.comcpfp +++| RETURN RPSA RETURN SCRATCH FILE 00747 M01S00041.comcpfp +++| EQ RPSX RETURN 00748 M01S00042.comcpfp +++| 00749 M01S00043.comcpfp +++| 00750 M01S00044.comcpfp +++| RPSA BSS 0 FILE SELECTIONS SCRATCH FILE FET
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00751 M02S00045.286l859 ---| ZZZZZG9 FILEB 0,0,FET=10
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00752 M02S00046.286l859 ---| SPACE 4,10
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00753 M02S00047.286l859 ---| COM$ IF DEF,COM$
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00754 M02S00048.286l859 ---| TITLE COMCPFP - COMMON PRESET ROUTINES.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00755 M02S00049.286l859 ---| ASF SPACE 4,15
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00756 M02S00050.286l859 ---|** ASF - ASSIGN SECURE FILE.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00757 M02S00051.286l859 ---|*
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00758 M02S00052.286l859 ---|* ENTRY (SYSS) = SYSTEM SECURITY MODE.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00759 M02S00053.286l859 ---|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00760 M02S00054.286l859 ---|* (A5) = FET ADDRESS.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00761 M02S00055.286l859 ---|*
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00762 M02S00056.286l859 ---|* EXIT FILE ASSIGNED.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00763 M02S00057.286l859 ---|* IF NOT ALREADY ASSIGNED, A DEVICE THAT ALLOWS THE
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00764 M02S00058.286l859 ---|* UPPER LEVEL THAT WILL BE PROCESSED IS SELECTED.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00765 M02S00059.286l859 ---|*
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00766 M02S00060.286l859 ---|* USES X - 0, 1, 2, 6, 7.
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00767 M02S00061.286l859 ---|* A - 1, 2, 6, 7.
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00768 M02S00062.286l859 ---|*
| Line S00063 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00769 M02S00063.286l859 ---|* MACROS REQUEST, SETFET, STATUS.
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00770 M02S00064.286l859 ---|
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00771 M02S00065.286l859 ---|
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00772 M02S00066.286l859 ---| ASF SUBR ENTRY/EXIT
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00773 M02S00067.286l859 ---| SA1 SYSS
| Line S00068 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00774 M02S00068.286l859 ---| ZR X1,ASFX IF NOT SECURE SYSTEM
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00775 M02S00069.286l859 ---| STATUS A5 DETERMINE IF FILE IS ASSIGNED
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00776 M02S00070.286l859 ---| SA1 A5
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00777 M02S00071.286l859 ---| MX0 -11
| Line S00072 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00778 M02S00072.286l859 ---| LX0 1
| Line S00073 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00779 M02S00073.286l859 ---| BX2 -X0*X1
| Line S00074 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00780 M02S00074.286l859 ---| NZ X2,ASFX IF FILE EXISTS
| Line S00075 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00781 M02S00075.286l859 ---| SA2 A5+B1 SET SECURITY PROCESSING BIT
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00782 M02S00076.286l859 ---| SX6 B1
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00783 M02S00077.286l859 ---| LX6 39-0
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00784 M02S00078.286l859 ---| BX7 -X6*X2
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00785 M02S00079.286l859 ---| BX6 X6+X7
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00786 M02S00080.286l859 ---| SA6 A2
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00787 M02S00081.286l859 ---| SA1 A5+4 SET ACCESS LEVEL
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00788 M02S00082.286l859 ---| SA2 PCUA
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00789 M02S00083.286l859 ---| LX2 36
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00790 M02S00084.286l859 ---| BX6 X1+X2
| Line S00085 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00791 M02S00085.286l859 ---| SA6 A1
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00792 M02S00086.286l859 ---| SETFET A5,ERP=E,DTY==2RMS SET ERROR PROCESSING
| Line S00087 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00793 M02S00087.286l859 ---| REQUEST A5,U,N REQUEST FILE ASSIGNMENT
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00794 M02S00088.286l859 ---| SA1 A5
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00795 M02S00089.286l859 ---| MX0 -8
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00796 M02S00090.286l859 ---| AX1 10
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00797 M02S00091.286l859 ---| BX2 -X0*X1
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00798 M02S00092.286l859 ---| NZ X2,ASF1 IF UNABLE TO ASSIGN FILE
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00799 M02S00093.286l859 ---| SETFET A5,ERP=B0 CLEAR ERROR PROCESSING
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00800 M02S00094.286l859 ---| EQ ASFX RETURN
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00801 M02S00095.286l859 ---|
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00802 M02S00096.286l859 ---| ASF1 SX1 MELN * PFUUUUU - ACCESS LEVEL NOT ALLOWED.*
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00803 M02S00097.286l859 ---| EQ ABT ABORT
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00804 M02S00098.286l859 ---| DSS SPACE 4,10
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00805 M02S00099.286l859 ---|** DSS - DETERMINE SECURITY STATUS.
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00806 M02S00100.286l859 ---|*
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00807 M02S00101.286l859 ---|* EXIT (SYSS) = SYSTEM SECURITY MODE.
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00808 M02S00102.286l859 ---|* (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00809 M02S00103.286l859 ---|* (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00810 M02S00104.286l859 ---|*
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00811 M02S00105.286l859 ---|* USES X - 0, 1, 2, 6, 7.
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00812 M02S00106.286l859 ---|* A - 1, 2, 6, 7.
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00813 M02S00107.286l859 ---|*
| Line S00108 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00814 M02S00108.286l859 ---|* MACROS GETSSL.
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00815 M02S00109.286l859 ---|
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00816 M02S00110.286l859 ---|
| Line S00111 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00817 M02S00111.286l859 ---| DSS SUBR ENTRY/EXIT
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00818 M02S00112.286l859 ---| GETSSL DSSA GET SYSTEM SECURITY STATUS
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00819 M02S00113.286l859 ---| SA2 DSSA
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00820 M02S00114.286l859 ---| MX0 -6
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00821 M02S00115.286l859 ---| LX2 12
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00822 M02S00116.286l859 ---| BX6 -X0*X2 SYSTEM SECURITY MODE
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00823 M02S00117.286l859 ---| SA6 SYSS
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00824 M02S00118.286l859 ---| ZR X6,DSSX IF NOT SECURE SYSTEM
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00825 M02S00119.286l859 ---| LX2 6
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00826 M02S00120.286l859 ---| BX7 -X0*X2 SYSTEM LOWER LIMIT
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00827 M02S00121.286l859 ---| LX2 6
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00828 M02S00122.286l859 ---| BX6 -X0*X2 SYSTEM UPPER LIMIT
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00829 M02S00123.286l859 ---| SA7 SYLA
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00830 M02S00124.286l859 ---| SA6 SYUA
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00831 M02S00125.286l859 ---| EQ DSSX RETURN
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00832 M02S00126.286l859 ---|
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00833 M02S00127.286l859 ---|
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00834 M02S00128.286l859 ---| DSSA CON 0 SYSTEM SECURITY STATUS RETURN
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00835 M02S00129.286l859 ---| IOF SPACE 4,10
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00836 M02S00130.286l859 ---|** IOF - INITIALIZE OUTPUT FILES.
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00837 M02S00131.286l859 ---|*
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00838 M02S00132.286l859 ---|* EXIT OUTPUT AND SUMMARY FILES INITIALIZED.
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00839 M02S00133.286l859 ---|*
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00840 M02S00134.286l859 ---|* USES X - 0, 1, 2, 5, 6.
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00841 M02S00135.286l859 ---|* A - 1, 2, 5, 6.
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00842 M02S00136.286l859 ---|*
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00843 M02S00137.286l859 ---|* CALLS PFO, SPT, WIC.
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00844 M02S00138.286l859 ---|*
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00845 M02S00139.286l859 ---|* MACROS SETFET, SETFS, WRITEC.
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00846 M02S00140.286l859 ---|
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00847 M02S00141.286l859 ---|
| Line S00142 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00848 M02S00142.286l859 ---| IOF SUBR ENTRY/EXIT
| Line S00143 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00849 M02S00143.286l859 ---|
| Line S00144 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00850 M02S00144.286l859 ---|* INITIALIZE OUTPUT FILE.
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00851 M02S00145.286l859 ---|
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00852 M02S00146.286l859 ---| SA1 CPAR+/COMSPFS/CPLB
| Line S00147 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00853 M02S00147.286l859 ---| NZ X1,IOF1 IF OUTPUT FILE SELECTED
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00854 M02S00148.286l859 ---| SX6 B0+ CLEAR ALL OUTPUT OPTIONS
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00855 M02S00149.286l859 ---| SA6 CPAR+/COMSPFS/CPLO
| Line S00150 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00856 M02S00150.286l859 ---| SA6 OUTPUT
| Line S00151 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00857 M02S00151.286l859 ---| EQ IOF2 PROCESS SUMMARY FILE
| Line S00152 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00858 M02S00152.286l859 ---|
| Line S00153 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00859 M02S00153.286l859 ---| IOF1 SA2 OUTPUT
| Line S00154 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00860 M02S00154.286l859 ---| MX0 42
| Line S00155 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00861 M02S00155.286l859 ---| BX6 -X0*X2
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00862 M02S00156.286l859 ---| BX6 X6+X1
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00863 M02S00157.286l859 ---| SA6 A2
| Line S00158 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00864 M02S00158.286l859 ---| SETFS OUTPUT,0 CLEAR SPECIAL FILE STATUS
| Line S00159 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00865 M02S00159.286l859 ---| WRITEC O,PDFE WRITE FORMAT EFFECTOR
| Line S00160 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00866 M02S00160.286l859 ---| RJ SPT SET UP OUTPUT FILE PAGE TITLE
| Line S00161 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00867 M02S00161.286l859 ---|
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00868 M02S00162.286l859 ---|* INITIALIZE SUMMARY FILE.
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00869 M02S00163.286l859 ---|
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00870 M02S00164.286l859 ---| IOF2 SA1 CPAR+/COMSPFS/CPSU
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00871 M02S00165.286l859 ---| ZR X1,IOFX IF NO SUMMARY FILE
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00872 M02S00166.286l859 ---| SA5 SU
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00873 M02S00167.286l859 ---| RJ PFO OPEN SUMMARY FILE
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00874 M02S00168.286l859 ---| SETFET SU,ERP=B0 CLEAR USER ERROR PROCESSING
| Line S00169 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00875 M02S00169.286l859 ---| RJ WIC WRITE INITIAL BLOCKS
| Line S00170 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00876 M02S00170.286l859 ---| EQ IOFX RETURN
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00877 M02S00171.286l859 ---| PFO SPACE 4,20
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00878 M02S00172.286l859 ---|** PFO - PROCESS FILE OPENING.
| Line S00173 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00879 M02S00173.286l859 ---|*
| Line S00174 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00880 M02S00174.286l859 ---|* ENTRY (X1) = FILE NAME.
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00881 M02S00175.286l859 ---|* (A5) = FET ADDRESS.
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00882 M02S00176.286l859 ---|* (X5) = FIRST WORD OF FET.
| Line S00177 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00883 M02S00177.286l859 ---|*
| Line S00178 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00884 M02S00178.286l859 ---|* EXIT FET FILE NAME PRESET.
| Line S00179 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00885 M02S00179.286l859 ---|* FILE REQUESTED ON APPROPRIATELY SECURE EQUIPMENT, IF
| Line S00180 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00886 M02S00180.286l859 ---|* NOT ALREADY ASSIGNED. EQUIPMENT SECURITY VERIFIED, IF
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00887 M02S00181.286l859 ---|* THE FILE IS ALREADY ASSIGNED.
| Line S00182 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00888 M02S00182.286l859 ---|* FET CONTROL WORD STATUS WORD PRESET.
| Line S00183 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00889 M02S00183.286l859 ---|* FET ERROR PROCESSING BIT SET IF NOT MASS STORAGE FILE.
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00890 M02S00184.286l859 ---|*
| Line S00185 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00891 M02S00185.286l859 ---|* USES X - 0, 1, 5, 6.
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00892 M02S00186.286l859 ---|* A - 1, 6.
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00893 M02S00187.286l859 ---|*
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00894 M02S00188.286l859 ---|* MACROS OPEN, SETFS.
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00895 M02S00189.286l859 ---|*
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00896 M02S00190.286l859 ---|* CALLS ASF, VES.
| Line S00191 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00897 M02S00191.286l859 ---|
| Line S00192 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00898 M02S00192.286l859 ---|
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00899 M02S00193.286l859 ---| PFO SUBR ENTRY/EXIT
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00900 M02S00194.286l859 ---| MX0 42 SET FILE NAME
| Line S00195 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00901 M02S00195.286l859 ---| BX6 X0*X1
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00902 M02S00196.286l859 ---| BX5 -X0*X5
| Line S00197 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00903 M02S00197.286l859 ---| BX6 X6+X5
| Line S00198 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00904 M02S00198.286l859 ---| SA6 A5
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00905 M02S00199.286l859 ---| RJ ASF ASSIGN SECURE FILE
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00906 M02S00200.286l859 ---| OPEN A5,READNR,R OPEN FILE
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00907 M02S00201.286l859 ---| RJ VES VERIFY EQUIPMENT SECURITY
| Line S00202 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00908 M02S00202.286l859 ---| SX6 -B1 PRESET FET CONTROL WORD STATUS WORD
| Line S00203 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00909 M02S00203.286l859 ---| SA6 A5+CWSW
| Line S00204 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00910 M02S00204.286l859 ---| SA1 A5+B1 GET NON MASS STORAGE FLAG
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00911 M02S00205.286l859 ---| MX6 1
| Line S00206 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00912 M02S00206.286l859 ---| BX6 X6*X1
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00913 M02S00207.286l859 ---| LX6 44-59 SET ERROR PROCESSING, IF NOT MASS STORAGE
| Line S00208 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00914 M02S00208.286l859 ---| BX6 X6+X1
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00915 M02S00209.286l859 ---| SA6 A1
| Line S00210 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00916 M02S00210.286l859 ---| SETFS A5,0 CLEAR SPECIAL FILE STATUS
| Line S00211 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00917 M02S00211.286l859 ---| EQ PFOX RETURN
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00918 M02S00212.286l859 ---| SPT SPACE 4,15
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00919 M02S00213.286l859 ---|** SPT - SET UP PAGE TITLE.
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00920 M02S00214.286l859 ---|*
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00921 M02S00215.286l859 ---|* EXIT PARAMETERS SET IN PAGE TITLE.
| Line S00216 Modification History | |
|---|---|
M01 (Added by) | comcpfp |
M02 (Updated by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00922 M02S00216.286l859 ---|*
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comcpfp.txt · Last modified: by 127.0.0.1