Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.isf +++| IDENT ISF,FWA
00002 M00S00002.isf +++| ABS
00003 M00S00003.isf +++| SST
00004 M00S00004.isf +++| ENTRY ISF
00005 M00S00005.isf +++| ENTRY RFL=
00006 M00S00006.isf +++| ENTRY SSJ=
00007 M00S00007.isf +++| SYSCOM B1 DEFINE (B1) = 1
00008 M00S00008.isf +++|*COMMENT ISF - INITIALIZE SYSTEM FILES.
Line S00009 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00009 M01S00009.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1971.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00010 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00011 M00S00010.isf +++| TITLE ISF - INITIALIZE SYSTEM FILES.
00012 M00S00011.isf +++| SPACE 4
00013 M00S00012.isf +++|*** ISF - INITIALIZE SYSTEM FILES.
00014 M00S00013.isf +++|* G. R. MANSFIELD. 71/07/07.
00015 M00S00014.isf +++|* S. L. KSANDER. 75/04/28.
00016 M00S00015.isf +++|* P. C. SMITH. 78/01/30.
00017 M00S00016.isf +++| SPACE 4
00018 M00S00017.isf +++|*** ISF PROCESSES AND/OR INITIALIZES SPECIAL SYSTEM FILES.
Line S00018 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00019 M01S00018.v23l617 ---|* ALL FILES ARE FOUND ON USER NUMBER *SYSTEMX* (UI = 377777).
Line S00001 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00020 M01S00001.v23l617 +++|* ALL FILES ARE FOUND ON USER NAME *SYSTEMX* (UI = 377777).
00021 M00S00019.isf +++|*
Line S00020 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00022 M01S00020.v23l617 ---|* CONTROL CARD FORMAT -
Line S00002 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00023 M01S00002.v23l617 +++|* COMMAND FORMAT -
00024 M00S00021.isf +++|*
00025 M00S00022.isf +++|* ISF(R=FILE1,E=FILE2,FM=FAMILY,SJ=FILE3,SP=FILE4)
00026 M00S00023.isf +++|*
00027 M00S00024.isf +++|* R = RETURN FAST ATTACH FILE.
00028 M00S00025.isf +++|* *FILE1* = NAME OF FILE TO BE RETURNED.
00029 M00S00026.isf +++|* IF R=0, ALL FAST ATTACH FILES WILL BE RETURNED.
00030 M00S00027.isf +++|*
00031 M00S00028.isf +++|* E = ENTER NEW FILE.
00032 M00S00029.isf +++|* *FILE2* = NAME OF FILE TO BE ENTERED.
00033 M00S00030.isf +++|* IF E=0, ALL FILES WILL BE ENTERED.
00034 M00S00031.isf +++|* FAST ATTACH FILES MUST BE RETURNED BEFORE THEY
00035 M00S00032.isf +++|* ARE RE-ENTERED. R AND E OPTIONS CAN NOT APPEAR ON THE
Line S00033 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00036 M01S00033.v23l617 ---|* SAME CARD.
Line S00003 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00037 M01S00003.v23l617 +++|* SAME COMMAND.
00038 M00S00034.isf +++|*
00039 M00S00035.isf +++|* FM = FAMILY NAME.
00040 M00S00036.isf +++|* IF NOT PRESENT, *ISF* WILL PROCESS FILES FOR THE
00041 M00S00037.isf +++|* JOBS FAMILY.
00042 M00S00038.isf +++|*
00043 M00S00039.isf +++|* IF PRESENT, *ISF* WILL PROCESS FILES BELONGING TO THE
00044 M00S00040.isf +++|* SPECIFIED FAMILY. IF THE *E=0* OPTION IS SELECTED,
00045 M00S00041.isf +++|* RESOURCE FILES WILL BE SET UP, IF THEY ARE NOT
00046 M00S00042.isf +++|* ALREADY PRESENT IN FAST ATTACH MODE. IF THE *R=0*
00047 M00S00043.isf +++|* OPTION IS SELECTED, RESOURCE FILE OPERATIONS ARE
00048 M00S00044.isf +++|* IGNORED. THE JOB-S FAMILY WILL BE RESTORED UPON
00049 M00S00045.isf +++|* EXIT FROM *ISF*.
00050 M00S00046.isf +++|*
00051 M00S00047.isf +++|* SJ = SUBMIT JOB WHEN ISF IS COMPLETE.
00052 M00S00048.isf +++|* *FILE3* = NAME OF JOB FILE TO BE SUBMITTED
00053 M00S00049.isf +++|* (MUST BE INDIRECT ACCESS PERMANENT FILE).
00054 M00S00050.isf +++|* IF *SJ* IS SPECIFIED BUT NOT EQUIVALENCED,
00055 M00S00051.isf +++|* *SYSJOB* WILL BE SUBMITTED. IF SJ=0,
00056 M00S00052.isf +++|* NO JOB WILL BE SUBMITTED.
00057 M00S00053.isf +++|*
00058 M00S00054.isf +++|* SP = CALL PROCEDURE FILE WHEN ISF IS COMPLETE.
00059 M00S00055.isf +++|* *FILE4* = NAME OF PROCEDURE FILE TO BE CALLED
00060 M00S00056.isf +++|* (MUST BE INDIRECT ACCESS PERMANENT FILE).
00061 M00S00057.isf +++|* IF *SP* IS SPECIFIED BUT NOT EQUIVALENCED,
00062 M00S00058.isf +++|* *SYSPROC* WILL BE CALLED. IF SP=0,
00063 M00S00059.isf +++|* NO PROCEDURE FILE WILL BE CALLED.
00064 M00S00060.isf +++|*
00065 M00S00061.isf +++|* NOTES -
00066 M00S00062.isf +++|*
00067 M00S00063.isf +++|* IF THE R OR E OPTION IS SPECIFIED FOR ONE OF THE
00068 M00S00064.isf +++|* RESOURCE FILES (RSXDXX OR RSXVXX), THE OPERATION WILL
00069 M00S00065.isf +++|* ALSO BE PERFORMED AUTOMATICALLY ON THE OTHER FILE.
00070 M00S00066.isf +++|*
00071 M00S00067.isf +++|* IF THE *R* OPTION IS SPECIFIED THE PROFILE FILE (IF IT
00072 M00S00068.isf +++|* EXISTS) IS ATTACHED IN WRITE MODE. THIS IS AN INTERLOCK
Line S00069 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00073 M01S00069.v23l617 ---|* TO PREVENT *CHARGE* STATEMENT PROCESSING IN THE FAMILY FOR
Line S00004 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00074 M01S00004.v23l617 +++|* TO PREVENT *CHARGE* COMMAND PROCESSING IN THE FAMILY FOR
00075 M00S00070.isf +++|* THE DURATION OF THE *ISF* EXECUTION.
Line S00071 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00076 M01S00071.ns22000 ---|*
00077 M01S00072.ns22000 ---|* *SYSJOB* AND *SYSPROC* WILL AUTOMATICALLY BE CALLED
00078 M01S00073.ns22000 ---|* WHEN *ISF* IS CALLED WITH NO PARAMETERS.
00079 M01S00074.ns22000 ---|* IF ANY PARAMETERS ARE SPECIFIED, NO JOB WILL BE
00080 M01S00075.ns22000 ---|* SUBMITTED AND NO PROCEDURE FILE WILL BE
00081 M01S00076.ns22000 ---|* CALLED UNLESS *SJ* AND *SP* ARE EXPLICITLY
00082 M01S00077.ns22000 ---|* SPECIFIED.
00083 M00S00078.isf +++|*
00084 M00S00079.isf +++|* ASSUMED -
00085 M00S00080.isf +++|* E = 0.
00086 M00S00081.isf +++|* FM = 0.
Line S00082 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00087 M01S00082.ns22000 ---|* SJ = SYSJOB (IF NO PARAMETERS).
00088 M01S00083.ns22000 ---|* SJ = 0 (IF PARAMETERS SPECIFIED).
00089 M01S00084.ns22000 ---|* SP = SYSPROC (IF NO PARAMETERS).
00090 M01S00085.ns22000 ---|* SP = 0 (IF PARAMETERS SPECIFIED).
Line S00001 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00091 M01S00001.ns22000 +++|* SJ = 0.
00092 M01S00002.ns22000 +++|* SP = 0.
00093 M00S00086.isf +++|* R NOT SELECTED.
00094 M00S00087.isf +++| SPACE 4
00095 M00S00088.isf +++|*** DAYFILE MESSAGES -
00096 M00S00089.isf +++|*
00097 M00S00090.isf +++|* * ARGUMENT ERROR.*
Line S00091 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00098 M01S00091.v23l617 ---|* ILLEGAL PARAMETER OR COMBINATION OF PARAMETERS.
Line S00005 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00099 M01S00005.v23l617 +++|* INCORRECT PARAMETER OR COMBINATION OF PARAMETERS.
00100 M00S00092.isf +++|*
00101 M00S00093.isf +++|* * FAMILY FILES ACTIVE.*
00102 M00S00094.isf +++|* THE NUMBER OF ACTIVE DIRECT ACCESS FILES ON THE
00103 M00S00095.isf +++|* FAMILY IS GREATER THAN THE NUMBER OF FAST
00104 M00S00096.isf +++|* ATTACH FILES.
00105 M00S00097.isf +++|*
00106 M00S00098.isf +++|* * FILE NOT IN ALTERNATE FAMILY.*
00107 M00S00099.isf +++|* FAMILY SPECIFIED FOR DEFAULT FAMILY FILE.
00108 M00S00100.isf +++|*
Line S00101 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00109 M01S00101.v23l617 ---|* * ILLEGAL FAMILY NAME.*
Line S00006 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00110 M01S00006.v23l617 +++|* * INCORRECT FAMILY NAME.*
00111 M00S00102.isf +++|* FAMILY NOT FOUND.
00112 M00S00103.isf +++|*
Line S00104 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00113 M01S00104.v23l617 ---|* * ILLEGAL FILE NAME.*
Line S00007 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00114 M01S00007.v23l617 +++|* * INCORRECT FILE NAME.*
00115 M00S00105.isf +++|* FILE NAME NOT ON LIST OF SPECIAL FILES.
00116 M00S00106.isf +++|*
00117 M00S00107.isf +++|* * ISF COMPLETE.*
00118 M00S00108.isf +++|* OPERATION COMPLETE.
00119 M00S00109.isf +++| SPACE 4,10
00120 M00S00110.isf +++|**** ASSEMBLY CONSTANTS.
00121 M00S00111.isf +++|
00122 M00S00112.isf +++|
Line S00113 Modification History
M01 (Removed by) isf2
Seq # *Modification Id* Act
----------------------------+
00123 M01S00113.isf2 ---| SBUFL EQU 1001B FILE BUFFER LENGTH
Line S00001 Modification History
M01 (Added by) isf2
Seq # *Modification Id* Act
----------------------------+
00124 M01S00001.isf2 +++| SBUFL EQU ESMX*ESTE+77B/100B*100B+1 FILE BUFFER LENGTH
00125 M00S00114.isf +++| RDFL EQU 36B-1 (LENGTH - 1) OF RSXDXX IN PRUS
00126 M00S00115.isf +++| RVFL EQU 36B-1 (LENGTH - 1) OF RSXVXX IN PRUS
00127 M00S00116.isf +++|
00128 M00S00117.isf +++|****
00129 M00S00118.isf +++| SPACE 4
00130 M00S00119.isf +++|*CALL COMCMAC
00131 M00S00120.isf +++|*CALL COMCCMD
00132 M00S00121.isf +++|
00133 M00S00122.isf +++|*CALL COMSACC
00134 M00S00123.isf +++|*CALL COMSPFM
00135 M00S00124.isf +++|*CALL COMSPRD
00136 M00S00125.isf +++|*CALL COMSPRO
Line S00003 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00137 M01S00003.ns22000 +++|*CALL COMSSCD
00138 M00S00126.isf +++|*CALL COMSSFM
00139 M00S00127.isf +++|*CALL COMSSSJ
00140 M00S00128.isf +++|*CALL COMSSSD
00141 M00S00129.isf +++| TITLE DATA ASSIGNMENTS.
00142 M00S00130.isf +++| DATA SPACE 4
00143 M00S00131.isf +++|** DATA ASSIGNMENTS.
00144 M00S00132.isf +++|
00145 M00S00133.isf +++|
00146 M00S00134.isf +++| ORG 110B
00147 M00S00135.isf +++| FWA BSS 0
00148 M00S00136.isf +++|
00149 M00S00137.isf +++| S BSS 0
Line S00138 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
00150 M01S00138.ns21000 ---| SYSTEM FILEB SBUF,SBUFL,(FET=CFPK+1),EPR
Line S00001 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
00151 M01S00001.ns21000 +++| SYSTEM FILEB SBUF,SBUFL,(FET=CFLM),EPR
00152 M00S00139.isf +++|
00153 M00S00140.isf +++| T BSS 0 PROFILE FILE
00154 M00S00141.isf +++| SCR FILEB 0,0,(FET=CFPK+1),EPR
00155 M00S00142.isf +++|
00156 M00S00143.isf +++| SSJ= BSS 0 SPECIAL SYSTEM JOB PARAMETER BLOCK
00157 M00S00144.isf +++| VFD 36/0,12/ISCS,12/UJSI
00158 M00S00145.isf +++| BSSZ SSJL-1
00159 M00S00146.isf +++|
00160 M00S00147.isf +++|
00161 M00S00148.isf +++|* TEMPORARY STORAGE.
00162 M00S00149.isf +++|
Line S00001 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00163 M01S00001.ns2595 +++| ESTO CON 0 EST ORDINAL FOR SUSPECT SEARCH
Line S00150 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00164 M01S00150.ns22000 ---| FAMD CON 0 SYSTEM DEFAULT FAMILY
Line S00004 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00165 M01S00004.ns22000 +++| FAMD CON 0L0 SYSTEM DEFAULT FAMILY
00166 M00S00151.isf +++| FAMN CON 0 NEW FAMILY
00167 M00S00152.isf +++| FAMU CON 0 USER-S FAMILY
Line S00002 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00168 M01S00002.ns2595 +++| LEST CON 0 LAST EST ORDINAL + 1
00169 M00S00153.isf +++| PRAF CON 0 PROFILE ATTACHED FLAG
Line S00003 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00170 M01S00003.ns2595 +++| RSBP CON 0 *RSB* POINTER
00171 M00S00154.isf +++| TITLE MAIN PROGRAM.
00172 M00S00155.isf +++| ISF SPACE 4
00173 M00S00156.isf +++|** ISF - MAIN PROGRAM.
00174 M00S00157.isf +++|
00175 M00S00158.isf +++|
00176 M00S00159.isf +++| ISF SB1 1 PRESET PROGRAM
00177 M00S00160.isf +++| RJ PRS
Line S00001 Modification History
M01 (Added by) ns2595b
Seq # *Modification Id* Act
----------------------------+
00178 M01S00001.ns2595b +++| RJ WMV WAIT FOR *1MV* TO COMPLETE
00179 M00S00161.isf +++| SX5 TSFNL NUMBER OF SPECIAL FILES
00180 M00S00162.isf +++|
00181 M00S00163.isf +++|* EAF - ENTER ALL FILES.
00182 M00S00164.isf +++|
00183 M00S00165.isf +++| EAF SX5 X5-1 (RETURN POINT FROM PROCESSORS)
00184 M00S00166.isf +++| NG X5,EAF1 IF NO MORE SPECIAL FILES
00185 M00S00167.isf +++| SA1 TSFN+X5 SPECIAL FILE NAME
00186 M00S00168.isf +++| ZR X1,EAF IF FILE NAME CLEARED
00187 M00S00169.isf +++| MX0 42
00188 M00S00170.isf +++| SB2 X1+ PROCESSOR ADDRESS
00189 M00S00171.isf +++| BX1 X0*X1
00190 M00S00172.isf +++| JP B2 ENTER SPECIAL FILE
00191 M00S00173.isf +++|
Line S00174 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00192 M01S00174.274l797 ---| EAF1 SX5 TDFNL NUMBER OF DEFAULT FAMILY FILES
Line S00001 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00193 M01S00001.274l797 +++| EAF1 SX5 TDFFL NUMBER OF DEFAULT FAMILY FILES
00194 M00S00175.isf +++| EAF2 SX5 X5-1
00195 M00S00176.isf +++| NG X5,END IF NO MORE DEFAULT FAMILY FILES
Line S00177 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00196 M01S00177.274l797 ---| SA1 TDFN+X5 DEFAULT FAMILY SPECIAL FILE NAME
Line S00002 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00197 M01S00002.274l797 +++| SA1 TDFF+X5 DEFAULT FAMILY SPECIAL FILE NAME
00198 M00S00178.isf +++| ZR X1,EAF2 IF FILE NAME CLEARED
00199 M00S00179.isf +++| MX0 42
00200 M00S00180.isf +++| SX6 X1+ LENGTH OF FILE IN PRUS
00201 M00S00181.isf +++| BX1 X0*X1
00202 M00S00182.isf +++| RJ EDF ENTER DEFAULT FAMILY FILE
00203 M00S00183.isf +++| EQ EAF2 PROCESS NEXT FILE
00204 M00S00184.isf +++| END SPACE 4,10
00205 M00S00185.isf +++|** END - TERMINATION PROCESSING.
00206 M00S00186.isf +++|
00207 M00S00187.isf +++|
00208 M00S00188.isf +++| END RJ SJF SUBMIT JOB FILE
00209 M00S00189.isf +++| RJ SPC SET PROCEDURE FILE CALL
00210 M00S00190.isf +++| RJ RPF RETURN PROFILE FILE
Line S00004 Modification History
M01 (Added by) ns2595
M02 (Removed by) ns2595b
Seq # *Modification Id* Act
----------------------------+
00211 M02S00004.ns2595b ---| RJ WMV WAIT FOR *1MV* TO COMPLETE
00212 M00S00191.isf +++| MESSAGE (=C* ISF COMPLETE.*)
00213 M00S00192.isf +++| SA1 SPCB+1
00214 M00S00193.isf +++| ZR X1,END1 IF NO PROCEDURE FILE
00215 M00S00194.isf +++| EXCST SPCB CALL PROCEDURE FILE
00216 M00S00195.isf +++|
00217 M00S00196.isf +++| END1 RJ RIF RESTORE INITIAL FAMILY
00218 M00S00197.isf +++| ENDRUN
00219 M00S00198.isf +++| SPACE 4
00220 M00S00199.isf +++|** TSFN - TABLE OF SPECIAL FILE NAMES.
00221 M00S00200.isf +++|*
00222 M00S00201.isf +++|*T 42/FILE NAME,18/PROCESSOR ADDRESS
Figure
0 17 18 29 PROCESSOR ADDRESS FILE NAME 30 59 FILE NAME
00223 M00S00202.isf +++|
00224 M00S00203.isf +++|
00225 M00S00204.isf +++| TSFN BSS 0
00226 M00S00205.isf +++| CON 0L"APFN"+EFF VALIDATION FILE
00227 M00S00206.isf +++| PRFN CON 0L"PPFN"+EFF PROJECT PROFILE FILE
00228 M00S00207.isf +++| TSFNL EQU *-TSFN
Line S00208 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00229 M01S00208.274l797 ---| TDFN SPACE 4,10
00230 M01S00209.274l797 ---|** TDFN - TABLE OF DEFAULT FAMILY SPECIAL FILE NAMES.
Line S00003 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00231 M01S00003.274l797 +++| TDFF SPACE 4,10
00232 M01S00004.274l797 +++|** TDFF - TABLE OF DEFAULT FAMILY SPECIAL FILE NAMES.
00233 M00S00210.isf +++|* (THIS TABLE IS A CONTINUATION OF TSFN, AND MUST FOLLOW IT.)
00234 M00S00211.isf +++|*
00235 M00S00212.isf +++|*T 42/FILE NAME,18/FILE SIZE
Figure
0 17 18 29 FILE SIZE FILE NAME 30 59 FILE NAME
00236 M00S00213.isf +++|
00237 M00S00214.isf +++|
Line S00215 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00238 M01S00215.274l797 ---| TDFN BSS 0
Line S00005 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00239 M01S00005.274l797 +++| TDFF BSS 0
00240 M00S00216.isf +++| RDFN CON 0LRSXDXX+RDFL RESOURCE DEMAND FILE
00241 M00S00217.isf +++| RVFN CON 0LRSXVXX+RVFL RESOURCE VSN FILE
Line S00218 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00242 M01S00218.274l797 ---| TDFNL EQU *-TDFN
Line S00006 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00243 M01S00006.274l797 +++| TDFFL EQU *-TDFF
00244 M00S00219.isf +++| CON 0 END OF TABLE
00245 M00S00220.isf +++| ERF SPACE 4
00246 M00S00221.isf +++|** EDF - ENTER DEFAULT FAMILY FILE.
00247 M00S00222.isf +++|*
00248 M00S00223.isf +++|* IF FILE IS PRESENT AS FAST ATTACH, ACCEPT IT AS IS.
00249 M00S00224.isf +++|* OTHERWISE, DEFINE THE FILE IF NECESSARY AND INITIALIZE IT.
00250 M00S00225.isf +++|*
00251 M00S00226.isf +++|* ENTRY (X1) = FILE NAME.
00252 M00S00227.isf +++|* (X6) = SIZE OF FILE IN PRUS.
00253 M00S00228.isf +++|*
Line S00229 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
00254 M01S00229.ns21000 ---|* USES A - 1, 3, 6, 7.
00255 M01S00230.ns21000 ---|* X - 0, 1, 2, 3, 6, 7.
Line S00002 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
00256 M01S00002.ns21000 +++|* USES X - 0, 1, 6, 7.
00257 M01S00003.ns21000 +++|* A - 1, 6, 7.
00258 M00S00231.isf +++|*
00259 M00S00232.isf +++|* CALLS CES.
00260 M00S00233.isf +++|*
Line S00234 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
00261 M01S00234.ns21000 ---|* MACROS ATTACH, DEFINE, ENFA, MESSAGE, PURGE, RECALL,
00262 M01S00235.ns21000 ---|* RETURN, WRITEF, WRITER, WRITEW.
Line S00004 Modification History
M01 (Added by) ns21000
M02 (Removed by) isf3
Seq # *Modification Id* Act
----------------------------+
00263 M02S00004.isf3 ---|* MACROS ATTACH, DEFINE, ENFA, MESSAGE, RECALL, RETURN,
Line S00001 Modification History
M01 (Added by) isf3
Seq # *Modification Id* Act
----------------------------+
00264 M01S00001.isf3 +++|* MACROS ATTACH, DEFINE, ENFA, MESSAGE, PURGE, RECALL, RETURN,
Line S00005 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
00265 M01S00005.ns21000 +++|* WRITER, WRITEW.
00266 M00S00236.isf +++|
00267 M00S00237.isf +++|
00268 M00S00238.isf +++| EDF4 RETURN X2
00269 M00S00239.isf +++|
00270 M00S00240.isf +++| EDF SUBR ENTRY/EXIT
00271 M00S00241.isf +++| SA6 EDFA SAVE FILE SIZE
00272 M00S00242.isf +++| SX7 B1
00273 M00S00243.isf +++| BX7 X1+X7
00274 M00S00244.isf +++| RECALL S
00275 M00S00245.isf +++| SA7 X2+
00276 M00S00246.isf +++| ATTACH X2,,,,R,,,DF,FA ATTEMPT FAST ATTACH
00277 M00S00247.isf +++| RJ CES CHECK FET ERROR STATUS
00278 M00S00248.isf +++| ZR X0,EDF4 IF FILE IS ALREADY FAST ATTACH
00279 M00S00249.isf +++| NZ X3,EDF3 IF NOT *FILE NOT FOUND*
00280 M00S00250.isf +++| ATTACH X2,,,,W,,,DF,IE ATTEMPT REGULAR ATTACH
00281 M00S00251.isf +++| RJ CES CHECK ERROR STATUS
00282 M00S00252.isf +++| ZR X0,EDF1 IF ATTACH SUCCESSFUL
Line S00253 Modification History
M01 (Removed by) isf3
Seq # *Modification Id* Act
----------------------------+
00283 M01S00253.isf3 ---| NZ X3,EDF3 IF NOT *FILE NOT FOUND*
Line S00002 Modification History
M01 (Added by) isf3
Seq # *Modification Id* Act
----------------------------+
00284 M01S00002.isf3 +++| ZR X3,EDF0 IF *FILE NOT FOUND*
00285 M01S00003.isf3 +++|
00286 M01S00004.isf3 +++|* FOR ERROR OTHER THAN *FILE NOT FOUND*, PURGE EXISTING FILE.
00287 M01S00005.isf3 +++|
00288 M01S00006.isf3 +++| PURGE X2,,,,,DF,IE
00289 M01S00007.isf3 +++| RJ CES CHECK ERROR STATUS
00290 M01S00008.isf3 +++| NZ X0,EDF3 IF ERROR IN PURGE
Line S00006 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
00291 M01S00006.ns21000 +++|
00292 M01S00007.ns21000 +++|* CREATE A NEW RESOURCE FILE. THE FILE WILL BE CREATED WITH
00293 M01S00008.ns21000 +++|* *BR=N* TO AVOID THE NECESSITY OF *PFDUMP* PROCESSING, AND
00294 M01S00009.ns21000 +++|* TO PREVENT A POTENTIAL DEADLOCK BETWEEN *PFDUMP* AND *RESEX*.
00295 M01S00010.ns21000 +++|
Line S00254 Modification History
M01 (Removed by) isf3
Seq # *Modification Id* Act
----------------------------+
00296 M01S00254.isf3 ---| SA1 X2+B1 CLEAR DEVICE TYPE IN FET
Line S00009 Modification History
M01 (Added by) isf3
Seq # *Modification Id* Act
----------------------------+
00297 M01S00009.isf3 +++| EDF0 SA1 X2+B1 CLEAR DEVICE TYPE IN FET
00298 M00S00255.isf +++| MX0 12
00299 M00S00256.isf +++| BX6 -X0*X1
00300 M00S00257.isf +++| SA6 A1
Line S00258 Modification History
M01 (Removed by) ns21000
Seq # *Modification Id* Act
----------------------------+
00301 M01S00258.ns21000 ---| DEFINE X2,,,,,,,,,DF,,,IE
Line S00011 Modification History
M01 (Added by) ns21000
Seq # *Modification Id* Act
----------------------------+
00302 M01S00011.ns21000 +++| DEFINE X2,,,,,,,,,DF,N,,IE
00303 M00S00259.isf +++| RJ CES CHECK ERROR STATUS
00304 M00S00260.isf +++| NZ X0,EDF3 IF ERROR IN DEFINE
00305 M00S00261.isf +++| EDF1 SA1 X2+B1 SET OUT=IN=FIRST
00306 M00S00262.isf +++| SX6 X1
00307 M00S00263.isf +++| SA6 A1+B1
00308 M00S00264.isf +++| SA6 A6+B1
00309 M00S00265.isf +++|
00310 M00S00266.isf +++|* INITIALIZE RESOURCE FILE.
00311 M00S00267.isf +++|
00312 M00S00268.isf +++| SA1 X2+B1 CLEAR ERROR PROCESSING BIT
00313 M00S00269.isf +++| MX6 1
00314 M00S00270.isf +++| LX6 44-59
00315 M00S00271.isf +++| BX6 -X6*X1
00316 M00S00272.isf +++| SA6 A1
00317 M00S00273.isf +++| WRITER X2,R WRITE INITIAL EOR
00318 M00S00274.isf +++| SA1 EDFA LENGTH OF FILE
00319 M00S00275.isf +++| SX0 X1+
00320 M00S00276.isf +++| EDF2 SX0 X0-1
00321 M00S00277.isf +++| WRITEW X2,ZBUF,64 WRITE SECTOR OF DATA
00322 M00S00278.isf +++| NZ X0,EDF2 IF NOT COMPLETE
00323 M00S00279.isf +++| WRITER X2,R WRITE FINAL BUFFER OF DATA
00324 M00S00280.isf +++| SA1 X2+B1 SET ERROR PROCESSING BIT
00325 M00S00281.isf +++| MX6 1
00326 M00S00282.isf +++| LX6 44-59
00327 M00S00283.isf +++| BX6 X6+X1
00328 M00S00284.isf +++| SA6 A1
00329 M00S00285.isf +++| ENFA X2 ENTER LOCAL FAST ATTACH
00330 M00S00286.isf +++| EQ EDF4 RETURN
00331 M00S00287.isf +++|
00332 M00S00288.isf +++| EDF3 MESSAGE CERM ISSUE ERROR MESSAGE
00333 M00S00289.isf +++| EQ EDFX RETURN
00334 M00S00290.isf +++|
00335 M00S00291.isf +++| EDFA CON 0 FILE SIZE
Line S00292 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00336 M01S00292.ns2729 ---| EFF SPACE 4,10
Line S00001 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00337 M01S00001.ns2729 +++| EFF SPACE 4,15
00338 M00S00293.isf +++|** EFF - ENTER FAST ATTACH FILE.
00339 M00S00294.isf +++|*
00340 M00S00295.isf +++|* ENTRY (X1) = FILE NAME.
00341 M00S00296.isf +++|*
00342 M00S00297.isf +++|* EXIT TO EAF.
00343 M00S00298.isf +++|*
Line S00299 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00344 M01S00299.ns2729 ---|* USES X - 3.
00345 M01S00300.ns2729 ---|* B - 2.
Line S00002 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00346 M01S00002.ns2729 +++|* CALLS CES, SFF.
00347 M00S00301.isf +++|*
Line S00302 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00348 M01S00302.ns2729 ---|* CALLS ASF, CES.
00349 M01S00303.ns2729 ---|*
00350 M01S00304.ns2729 ---|* MACROS ENFA, MESSAGE, RETURN.
Line S00003 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00351 M01S00003.ns2729 +++|* MACROS ATTACH, ENFA, MESSAGE, RETURN.
00352 M00S00305.isf +++|
00353 M00S00306.isf +++|
Line S00307 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00354 M01S00307.ns2729 ---| EFF SB2 B1 FORCE DIRECT ACCESS FILE
00355 M01S00308.ns2729 ---| RJ ASF ACCESS SYSTEM FILE
Line S00004 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00356 M01S00004.ns2729 +++| EFF BSS 0 ENTRY
00357 M01S00005.ns2729 +++| RJ SFF SET FILE NAME IN FET
00358 M01S00006.ns2729 +++| ATTACH X2,,,,W,,,IP,FA ATTEMPT FAST ATTACH
00359 M00S00309.isf +++| RJ CES CHECK ERROR STATUS
Line S00007 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00360 M01S00007.ns2729 +++| ZR X0,EFF0 IF FILE IS ALREADY FAST ATTACH
00361 M01S00008.ns2729 +++| ZR X6,EFF0 IF *FILE BUSY*
00362 M01S00009.ns2729 +++| NZ X3,EFF2 IF NOT *FILE NOT FOUND*
00363 M01S00010.ns2729 +++| ATTACH X2,,,,W,,,IP,IE ATTEMPT NORMAL ATTACH
00364 M01S00011.ns2729 +++| RJ CES CHECK ERROR STATUS
00365 M00S00310.isf +++| NZ X0,EFF1 IF ERROR IN ACCESS
00366 M00S00311.isf +++| ENFA X2,GLOBAL ENTER GLOBAL FAST ATTACH FILE
Line S00312 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00367 M01S00312.ns2729 ---| RETURN X2
Line S00012 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00368 M01S00012.ns2729 +++| EFF0 RETURN X2
00369 M00S00313.isf +++| EQ EAF PROCESS NEXT FILE
00370 M00S00314.isf +++|
Line S00315 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00371 M01S00315.ns2729 ---| EFF1 SX3 X0-1
00372 M01S00316.ns2729 ---| NZ X3,EFF2 IF NOT *FILE BUSY*
Line S00013 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00373 M01S00013.ns2729 +++| EFF1 NZ X6,EFF2 IF NOT *FILE BUSY*
00374 M00S00317.isf +++| ENFA X2,LINK LINK TO EXISTING FAST ATTACH
00375 M00S00318.isf +++| RETURN X2
00376 M00S00319.isf +++| EQ EAF PROCESS NEXT FILE
00377 M00S00320.isf +++|
00378 M00S00321.isf +++| EFF2 MESSAGE CERM ISSUE ERROR MESSAGE
00379 M00S00322.isf +++| EQ EAF PROCESS NEXT FILE
00380 M00S00323.isf +++| RTF SPACE 4,10
00381 M00S00324.isf +++|** RTF - RETURN FAST ATTACH FILE.
00382 M00S00325.isf +++|*
00383 M00S00326.isf +++|* ENTRY (X1) = FILE NAME.
00384 M00S00327.isf +++|*
00385 M00S00328.isf +++|* USES X - 0, 2, 7.
00386 M00S00329.isf +++|* A - 2, 7.
00387 M00S00330.isf +++|*
Line S00331 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00388 M01S00331.ns2729 ---|* CALLS CER.
Line S00014 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00389 M01S00014.ns2729 +++|* CALLS CER, SFF.
00390 M00S00332.isf +++|*
Line S00333 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00391 M01S00333.ns2729 ---|* MACROS ATTACH, DFAT, RECALL, RETURN.
Line S00015 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00392 M01S00015.ns2729 +++|* MACROS ATTACH, DFAT, RETURN.
00393 M00S00334.isf +++|
00394 M00S00335.isf +++|
00395 M00S00336.isf +++| RTF SUBR ENTRY/EXIT
00396 M00S00337.isf +++| SA2 PRFN
00397 M00S00338.isf +++| BX2 X2-X1
00398 M00S00339.isf +++| MX0 42
00399 M00S00340.isf +++| BX7 X0*X2
00400 M00S00341.isf +++| NZ X7,RTF1 IF NOT ATTACHING PROFILE
00401 M00S00342.isf +++| SA2 PRAF
00402 M00S00343.isf +++| ZR X2,RTFX IF PROFILE DOES NOT EXIST
00403 M00S00344.isf +++| MX7 0 CLEAR PROFILE ATTACHED FLAG
00404 M00S00345.isf +++| SA7 PRAF
00405 M00S00346.isf +++| DFAT T
00406 M00S00347.isf +++| RETURN T
00407 M00S00348.isf +++| EQ RTFX RETURN
00408 M00S00349.isf +++|
Line S00350 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00409 M01S00350.ns2729 ---| RTF1 SX7 B1 STORE FILE NAME
00410 M01S00351.ns2729 ---| BX7 X1+X7
00411 M01S00352.ns2729 ---| RECALL S
00412 M01S00353.ns2729 ---| SA7 X2+
Line S00016 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00413 M01S00016.ns2729 +++| RTF1 RJ SFF SET FILE NAME IN FET
00414 M00S00354.isf +++| ATTACH X2,,,,W,,,IP,FA
Line S00355 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00415 M01S00355.ns2729 ---| RTF2 RJ CER CHECK ERROR STATUS
Line S00017 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00416 M01S00017.ns2729 +++| RJ CER CHECK ERROR STATUS
00417 M00S00356.isf +++| NZ X0,RTFX IF ERROR IN ACCESS
00418 M00S00357.isf +++| DFAT X2
00419 M00S00358.isf +++| RETURN X2
00420 M00S00359.isf +++| EQ RTFX RETURN
00421 M00S00360.isf +++| SJF SPACE 4,15
00422 M00S00361.isf +++|** SJF - SUBMIT JOB FILE.
00423 M00S00362.isf +++|*
00424 M00S00363.isf +++|* ENTRY (SJFA) = SUBMIT JOB FILE NAME.
00425 M00S00364.isf +++|*
00426 M00S00365.isf +++|* EXIT JOB SUBMITTED, IF FOUND.
00427 M00S00366.isf +++|*
00428 M00S00367.isf +++|* USES X - 1, 6.
Line S00368 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00429 M01S00368.ns2729 ---|* A - 1, 6.
00430 M01S00369.ns2729 ---|* B - 2.
Line S00018 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00431 M01S00018.ns2729 +++|* A - 1.
00432 M00S00370.isf +++|*
Line S00371 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00433 M01S00371.ns2729 ---|* CALLS ASF, CER.
Line S00019 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00434 M01S00019.ns2729 +++|* CALLS CER, SFF.
00435 M00S00372.isf +++|*
Line S00373 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00436 M01S00373.ns2729 ---|* MACROS ROUTE.
Line S00020 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00437 M01S00020.ns2729 +++|* MACROS GET, ROUTE.
00438 M00S00374.isf +++|
00439 M00S00375.isf +++|
00440 M00S00376.isf +++| SJF SUBR ENTRY/EXIT
00441 M00S00377.isf +++| SA1 SJFA
00442 M00S00378.isf +++| MX6 42
00443 M00S00379.isf +++| BX1 X6*X1
00444 M00S00380.isf +++| ZR X1,SJFX IF NO SUBMIT JOB
Line S00381 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00445 M01S00381.ns2729 ---| SB2 B0 FORCE INDIRECT ACCESS FILE
00446 M01S00382.ns2729 ---| RJ ASF GET SUBMIT JOB FILE
Line S00021 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00447 M01S00021.ns2729 +++| RJ SFF SET FILE NAME IN FET
00448 M01S00022.ns2729 +++| GET X2,,,,,,IP,IE GET SUBMIT JOB FILE
00449 M00S00383.isf +++| RJ CER CHECK ERROR
00450 M00S00384.isf +++| NZ X0,SJFX IF ERROR
00451 M00S00385.isf +++| ROUTE SJFA,R SUBMIT SYSTEM-ORIGIN JOB
00452 M00S00386.isf +++| EQ SJFX RETURN
00453 M00S00387.isf +++|
00454 M00S00388.isf +++| SJFA BSS 0 *DSP* PARAMETER BLOCK
Line S00389 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00455 M01S00389.ns22000 ---| VFD 42/0LSYSJOB,6/0,1/1,4/0,6/SYOT,1/0
Line S00005 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00456 M01S00005.ns22000 +++| VFD 42/0,6/0,1/1,4/0,6/SYOT,1/0
00457 M00S00390.isf +++| VFD 24/0,12/2RIN,12/40B,12/22B
00458 M00S00391.isf +++| BSSZ 5
00459 M00S00392.isf +++| SPC SPACE 4,15
00460 M00S00393.isf +++|** SPC - SET PROCEDURE CALL.
00461 M00S00394.isf +++|*
00462 M00S00395.isf +++|* ENTRY (SPCA) = PROCEDURE FILE NAME.
00463 M00S00396.isf +++|*
00464 M00S00397.isf +++|* EXIT FILE NAME SET IN CALL, IF FILE FOUND.
00465 M00S00398.isf +++|*
Line S00399 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00466 M01S00399.ns2729 ---|* USES X - 1, 6.
Line S00023 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00467 M01S00023.ns2729 +++|* USES X - 1.
00468 M00S00400.isf +++|* A - 1, 6.
Line S00401 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00469 M01S00401.ns2729 ---|* B - 2.
00470 M00S00402.isf +++|*
Line S00403 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00471 M01S00403.ns2729 ---|* CALLS ASF, CER, SFN.
Line S00024 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00472 M01S00024.ns2729 +++|* CALLS CER, SFF, SFN.
00473 M00S00404.isf +++|*
Line S00405 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00474 M01S00405.ns2729 ---|* MACROS SETFS.
Line S00025 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00475 M01S00025.ns2729 +++|* MACROS GET, SETFS.
00476 M00S00406.isf +++|
00477 M00S00407.isf +++|
00478 M00S00408.isf +++| SPC SUBR ENTRY/EXIT
00479 M00S00409.isf +++| SA1 SPCA
00480 M00S00410.isf +++| ZR X1,SPCX IF NO PROCEDURE FILE
Line S00411 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00481 M01S00411.ns2729 ---| SB2 B0 FORCE INDIRECT ACCESS FILE
00482 M01S00412.ns2729 ---| RJ ASF GET PROCEDURE FILE
Line S00026 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00483 M01S00026.ns2729 +++| RJ SFF SET FILE NAME IN FET
00484 M01S00027.ns2729 +++| GET X2,,,,,,IP,IE GET PROCEDURE FILE
00485 M00S00413.isf +++| RJ CER CHECK ERROR
00486 M00S00414.isf +++| NZ X0,SPCX IF ERROR
00487 M00S00415.isf +++| SETFS X2,0 CLEAR SPECIAL SYSTEM FILE STATUS
00488 M00S00416.isf +++| SA1 SPCA SET PROCEDURE FILE NAME IN CALL
00489 M00S00417.isf +++| RJ SFN
00490 M00S00418.isf +++| SA6 SPCB+1
00491 M00S00419.isf +++| EQ SPCX RETURN
00492 M00S00420.isf +++|
Line S00421 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00493 M01S00421.ns22000 ---| SPCA CON 0LSYSPROC
Line S00006 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00494 M01S00006.ns22000 +++| SPCA CON 0 PROCEDURE FILE NAME
00495 M00S00422.isf +++| SPCB CON 10H$BEGIN,,
00496 M00S00423.isf +++| CON 0
00497 M00S00424.isf +++| CON 1L.
00498 M00S00425.isf +++| TITLE SUBROUTINES.
Line S00426 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00499 M01S00426.ns2729 ---| ASF SPACE 4
00500 M01S00427.ns2729 ---|** ASF - ACCESS SYSTEM FILE.
00501 M01S00428.ns2729 ---|*
00502 M01S00429.ns2729 ---|* ENTRY (X1) = FILE NAME.
00503 M01S00430.ns2729 ---|* (B2) = 0 IF INDIRECT ACCESS FILE.
00504 M01S00431.ns2729 ---|*
00505 M01S00432.ns2729 ---|* EXIT (X2) = FWA OF FET.
00506 M01S00433.ns2729 ---|*
00507 M01S00434.ns2729 ---|* USES X - 2, 7.
00508 M01S00435.ns2729 ---|* A - 7.
00509 M01S00436.ns2729 ---|*
00510 M01S00437.ns2729 ---|* MACROS ATTACH, GET, RECALL.
00511 M01S00438.ns2729 ---|
00512 M01S00439.ns2729 ---|
00513 M01S00440.ns2729 ---| ASF SUBR ENTRY/EXIT
00514 M01S00441.ns2729 ---| SX7 B1 STORE FILE NAME
00515 M01S00442.ns2729 ---| BX7 X1+X7
00516 M01S00443.ns2729 ---| RECALL S
00517 M01S00444.ns2729 ---| SA7 X2+
00518 M01S00445.ns2729 ---| ZR B2,ASF1 IF INDIRECT ACCESS FILE
00519 M01S00446.ns2729 ---| ATTACH X2,,,,W,,,IP,IE ATTACH SYSTEM FILE
00520 M01S00447.ns2729 ---| EQ ASFX RETURN
00521 M01S00448.ns2729 ---|
00522 M01S00449.ns2729 ---| ASF1 GET X2,,,,,,IP,IE
00523 M01S00450.ns2729 ---| EQ ASFX RETURN
00524 M00S00451.isf +++| CER SPACE 4,10
00525 M00S00452.isf +++|** CER - CHECK ERROR AND ISSUE MESSAGE.
00526 M00S00453.isf +++|*
00527 M00S00454.isf +++|* ENTRY (X2) = FWA OF FET.
00528 M00S00455.isf +++|*
00529 M00S00456.isf +++|* EXIT (X0) = FET ERROR STATUS.
00530 M00S00457.isf +++|*
00531 M00S00458.isf +++|* USES X - 0.
00532 M00S00459.isf +++|*
00533 M00S00460.isf +++|* CALLS CES.
00534 M00S00461.isf +++|*
00535 M00S00462.isf +++|* MACROS MESSAGE.
00536 M00S00463.isf +++|
00537 M00S00464.isf +++|
00538 M00S00465.isf +++| CER SUBR ENTRY/EXIT
00539 M00S00466.isf +++| RJ CES CHECK ERROR STATUS
00540 M00S00467.isf +++| ZR X0,CERX IF NO ERROR
00541 M00S00468.isf +++| MESSAGE CERM
00542 M00S00469.isf +++| EQ CERX
00543 M00S00470.isf +++|
00544 M00S00471.isf +++| CERM BSSZ 4 ERROR MESSAGE BUFFER
00545 M00S00472.isf +++| CES SPACE 4,10
00546 M00S00473.isf +++|** CES - CHECK AND CLEAR ERROR STATUS IN FET.
00547 M00S00474.isf +++|*
00548 M00S00475.isf +++|* ENTRY (X2) = FWA OF FET.
00549 M00S00476.isf +++|*
00550 M00S00477.isf +++|* EXIT (X0) = FET ERROR STATUS.
00551 M00S00478.isf +++|* (X3) = 0 IF *FILE NOT FOUND* STATUS.
Line S00028 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00552 M01S00028.ns2729 +++|* (X6) = 0 IF *FILE BUSY* STATUS.
00553 M00S00479.isf +++|*
00554 M00S00480.isf +++|* USES A - 1, 6.
00555 M00S00481.isf +++|* X - 0, 1, 3, 6.
00556 M00S00482.isf +++|
00557 M00S00483.isf +++|
00558 M00S00484.isf +++| CES SUBR ENTRY/EXIT
00559 M00S00485.isf +++| SA1 X2 READ FET STATUS
00560 M00S00486.isf +++| MX3 -8
00561 M00S00487.isf +++| LX1 -10
00562 M00S00488.isf +++| BX0 -X3*X1 ERROR STATUS
00563 M00S00489.isf +++| BX6 X3*X1 CLEAR STATUS IN FET
Line S00490 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00564 M01S00490.ns2729 ---| SX3 X0-2 *FILE NOT FOUND* STATUS
Line S00029 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00565 M01S00029.ns2729 +++| SX3 X0-/ERRMSG/FNF *FILE NOT FOUND* STATUS
00566 M00S00491.isf +++| LX6 10
Line S00492 Modification History
M01 (Removed by) ns2729
Seq # *Modification Id* Act
----------------------------+
00567 M01S00492.ns2729 ---| SA6 A1
Line S00030 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00568 M01S00030.ns2729 +++| SA6 A1+
00569 M01S00031.ns2729 +++| SX6 X0-/ERRMSG/FBS *FILE BUSY* STATUS
00570 M00S00493.isf +++| EQ CESX RETURN
00571 M00S00494.isf +++| PEC SPACE 4,10
00572 M00S00495.isf +++|** PEC - PROCESS EXIT CLEANUP.
00573 M00S00496.isf +++|*
00574 M00S00497.isf +++|* CALLS RIF, RPF.
00575 M00S00498.isf +++|
00576 M00S00499.isf +++|
00577 M00S00500.isf +++| PEC SUBR ENTRY/EXIT
00578 M00S00501.isf +++| RJ RIF RESTORE INITIAL FAMILY
00579 M00S00502.isf +++| RJ RPF RETURN PROFILE FILE
00580 M00S00503.isf +++| EQ PECX RETURN
00581 M00S00504.isf +++| RIF SPACE 4,10
00582 M00S00505.isf +++|** RIF - RESTORE INITIAL FAMILY.
00583 M00S00506.isf +++|*
00584 M00S00507.isf +++|* USES A - 1.
00585 M00S00508.isf +++|* X - 1, 6.
00586 M00S00509.isf +++|*
00587 M00S00510.isf +++|* MACROS ENFAM.
00588 M00S00511.isf +++|
00589 M00S00512.isf +++|
00590 M00S00513.isf +++| RIF SUBR ENTRY/EXIT
00591 M00S00514.isf +++| SA1 FAMU
00592 M00S00515.isf +++| ZR X1,RIFX IF USER-S FAMILY NOT SET
00593 M00S00516.isf +++| ENFAM FAMU RESTORE FAMILY
00594 M00S00517.isf +++| MX6 0 CLEAR USER-S FAMILY
00595 M00S00518.isf +++| SA6 FAMU
00596 M00S00519.isf +++| EQ RIFX RETURN
00597 M00S00520.isf +++| RPF SPACE 4,10
00598 M00S00521.isf +++|** RPF - RETURN PROFILE FILE.
00599 M00S00522.isf +++|*
00600 M00S00523.isf +++|* USES A - 1, 6.
00601 M00S00524.isf +++|* X - 1, 6.
00602 M00S00525.isf +++|*
00603 M00S00526.isf +++|* MACROS RETURN.
00604 M00S00527.isf +++|
00605 M00S00528.isf +++|
00606 M00S00529.isf +++| RPF SUBR ENTRY/EXIT
00607 M00S00530.isf +++| SA1 PRAF
00608 M00S00531.isf +++| ZR X1,RPFX IF PROFILE NOT ATTACHED
00609 M00S00532.isf +++| MX6 0
00610 M00S00533.isf +++| SA6 PRAF CLEAR PROFILE ATTACHED FLAG
00611 M00S00534.isf +++| RETURN T
00612 M00S00535.isf +++| EQ RPFX RETURN
Line S00032 Modification History
M01 (Added by) ns2729
Seq # *Modification Id* Act
----------------------------+
00613 M01S00032.ns2729 +++| SFF SPACE 4,10
00614 M01S00033.ns2729 +++|** SFF - SET FILE NAME IN FET.
00615 M01S00034.ns2729 +++|*
00616 M01S00035.ns2729 +++|* ENTRY (X1) = FILE NAME.
00617 M01S00036.ns2729 +++|*
00618 M01S00037.ns2729 +++|* EXIT (X2) = FWA OF FET.
00619 M01S00038.ns2729 +++|*
00620 M01S00039.ns2729 +++|* USES X - 2, 7.
00621 M01S00040.ns2729 +++|* A - 7.
00622 M01S00041.ns2729 +++|*
00623 M01S00042.ns2729 +++|* MACROS RECALL.
00624 M01S00043.ns2729 +++|
00625 M01S00044.ns2729 +++|
00626 M01S00045.ns2729 +++| SFF SUBR ENTRY/EXIT
00627 M01S00046.ns2729 +++| SX7 B1 STORE FILE NAME
00628 M01S00047.ns2729 +++| BX7 X1+X7
00629 M01S00048.ns2729 +++| RECALL S
00630 M01S00049.ns2729 +++| SA7 X2
00631 M01S00050.ns2729 +++| EQ SFFX RETURN
Line S00005 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00632 M01S00005.ns2595 +++| WMV SPACE 4,10
00633 M01S00006.ns2595 +++|** WMV - WAIT FOR *1MV* TO COMPLETE.
00634 M01S00007.ns2595 +++|*
Line S00008 Modification History
M01 (Added by) ns2595
M02 (Removed by) isf2
Seq # *Modification Id* Act
----------------------------+
00635 M02S00008.isf2 ---|* USES X - 0, 1, 2, 3, 6, 7.
00636 M02S00009.isf2 ---|* A - 1, 2, 6, 7.
Line S00002 Modification History
M01 (Added by) isf2
Seq # *Modification Id* Act
----------------------------+
00637 M01S00002.isf2 +++|* USES X - ALL.
00638 M01S00003.isf2 +++|* A - 1, 2, 5, 6, 7.
Line S00010 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00639 M01S00010.ns2595 +++|*
Line S00011 Modification History
M01 (Added by) ns2595
M02 (Removed by) isf2
Seq # *Modification Id* Act
----------------------------+
00640 M02S00011.isf2 ---|* CALLS RSB.
Line S00004 Modification History
M01 (Added by) isf2
Seq # *Modification Id* Act
----------------------------+
00641 M01S00004.isf2 +++|* CALLS RSB=.
Line S00012 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00642 M01S00012.ns2595 +++|*
00643 M01S00013.ns2595 +++|* MACROS MESSAGE, RECALL, SYSTEM.
00644 M01S00014.ns2595 +++|
00645 M01S00015.ns2595 +++|
00646 M01S00016.ns2595 +++| WMV SUBR ENTRY/EXIT
00647 M01S00017.ns2595 +++| MESSAGE (=C* WAIT 1MV COMPLETE.*),1
00648 M01S00018.ns2595 +++| SA1 WMVA READ EST POINTER WORD
00649 M01S00019.ns2595 +++| MX6 1
00650 M01S00020.ns2595 +++| BX7 X1
00651 M01S00021.ns2595 +++| SA6 SBUF SET LOW CORE READ
00652 M01S00022.ns2595 +++| SA7 RSBP
Line S00023 Modification History
M01 (Added by) ns2595
M02 (Removed by) isf2
Seq # *Modification Id* Act
----------------------------+
00653 M02S00023.isf2 ---| SYSTEM RSB,R,RSBP
Line S00005 Modification History
M01 (Added by) isf2
Seq # *Modification Id* Act
----------------------------+
00654 M01S00005.isf2 +++| SYSTEM RSB,R,RSBP READ *ESTP*
Line S00024 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00655 M01S00024.ns2595 +++| SA2 SBUF SET *COMCRSB* ENTRY CONDITIONS
00656 M01S00025.ns2595 +++| MX3 -12
00657 M01S00026.ns2595 +++| SX1 A2 SET ADDRESS TO TRANSFER TO
00658 M01S00027.ns2595 +++| AX2 12
00659 M01S00028.ns2595 +++| BX7 -X3*X2
00660 M01S00029.ns2595 +++| AX2 24 SET ADDRESS TO TRANSFER FROM
00661 M01S00030.ns2595 +++| R= X6,ESTE
00662 M01S00031.ns2595 +++| SA7 LEST SAVE LAST EST ORDINAL + 1
00663 M01S00032.ns2595 +++| IX3 X7*X6 SET WORD COUNT
00664 M01S00033.ns2595 +++| SX4 B0 SET SUBSYSTEM (= *CMR*)
00665 M01S00034.ns2595 +++| MX6 1
00666 M01S00035.ns2595 +++| SA6 X1
Line S00036 Modification History
M01 (Added by) ns2595
M02 (Removed by) isf2
Seq # *Modification Id* Act
----------------------------+
00667 M02S00036.isf2 ---| RJ RSB= READ EST
Line S00006 Modification History
M01 (Added by) isf2
Seq # *Modification Id* Act
----------------------------+
00668 M01S00006.isf2 +++| RJ RSB= READ EST INTO *SBUF*
Line S00037 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00669 M01S00037.ns2595 +++| SX6 NOPE INITIALIZE EST ORDINAL FOR SEARCH
00670 M01S00038.ns2595 +++| SA6 ESTO
00671 M01S00039.ns2595 +++| WMV1 SA5 ESTO
00672 M01S00040.ns2595 +++| SX7 X5+B1
00673 M01S00041.ns2595 +++| SA7 A5
00674 M01S00042.ns2595 +++| SA1 LEST CHECK ORDINAL
00675 M01S00043.ns2595 +++| IX6 X5-X1
00676 M01S00044.ns2595 +++| R= X0,ESTE
00677 M01S00045.ns2595 +++| IX7 X5*X0
00678 M01S00046.ns2595 +++| SA1 SBUF+X7+EQDE GET EST ENTRY
00679 M01S00047.ns2595 +++| MX0 -12
00680 M01S00048.ns2595 +++| ZR X6,WMVX IF END OF EST
00681 M01S00049.ns2595 +++| PL X1,WMV1 IF NOT MASS STORAGE
00682 M01S00050.ns2595 +++| SX7 MSTB SET MST BUFFER ADDRESS
00683 M01S00051.ns2595 +++| SX2 MSTL
00684 M01S00052.ns2595 +++| BX1 -X0*X1
00685 M01S00053.ns2595 +++| LX2 36
00686 M01S00054.ns2595 +++| LX1 18+3 MST ADDRESS
00687 M01S00055.ns2595 +++| BX7 X7+X2
00688 M01S00056.ns2595 +++| BX7 X1+X7
00689 M01S00057.ns2595 +++| SA7 RSBP
00690 M01S00058.ns2595 +++| WMV2 MX6 1
00691 M01S00059.ns2595 +++| SA6 MSTB FLAG LOW CORE READ
00692 M01S00060.ns2595 +++| SYSTEM RSB,R,RSBP READ MST
00693 M01S00061.ns2595 +++| SA1 MSTB+DALL CHECK FOR SUSPECT
Line S00062 Modification History
M01 (Added by) ns2595
M02 (Removed by) ns2595a
Seq # *Modification Id* Act
----------------------------+
00694 M02S00062.ns2595a ---| LX1 59-55
00695 M02S00063.ns2595a ---| PL X1,WMV1 IF SUSPECT IS NOT SET
Line S00001 Modification History
M01 (Added by) ns2595a
Seq # *Modification Id* Act
----------------------------+
00696 M01S00001.ns2595a +++| SX6 1200B
00697 M01S00002.ns2595a +++| SX7 200B
00698 M01S00003.ns2595a +++| LX1 12
00699 M01S00004.ns2595a +++| BX1 X6*X1
00700 M01S00005.ns2595a +++| BX1 X7-X1
00701 M01S00006.ns2595a +++| NZ X1,WMV1 IF *OFF*, *DOWN*, OR NOT SUSPECT
Line S00064 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00702 M01S00064.ns2595 +++| RECALL
00703 M01S00065.ns2595 +++| EQ WMV2 RECHECK DEVICE FOR SUSPECT
00704 M01S00066.ns2595 +++|
00705 M01S00067.ns2595 +++| WMVA VFD 24/1,18/ESTP,18/SBUF
00706 M00S00536.isf +++| SPACE 4
00707 M00S00537.isf +++|* COMMON DECKS.
00708 M00S00538.isf +++|
00709 M00S00539.isf +++|
00710 M00S00540.isf +++|*CALL COMCQFM
00711 M00S00541.isf +++|*CALL COMCCIO
00712 M00S00542.isf +++|*CALL COMCCPM
00713 M00S00543.isf +++|*CALL COMCLFM
00714 M00S00544.isf +++|*CALL COMCPFM
00715 M00S00545.isf +++|*CALL COMCRDW
Line S00068 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00716 M01S00068.ns2595 +++|*CALL COMCRSB
00717 M00S00546.isf +++|*CALL COMCSFM
00718 M00S00547.isf +++|*CALL COMCSFN
00719 M00S00548.isf +++|*CALL COMCSYS
00720 M00S00549.isf +++|*CALL COMCWTW
00721 M00S00550.isf +++| TITLE PRESET.
00722 M00S00551.isf +++| BUFFERS SPACE 4,10
00723 M00S00552.isf +++|* BUFFERS.
00724 M00S00553.isf +++|
00725 M00S00554.isf +++|
00726 M00S00555.isf +++| USE //
00727 M00S00556.isf +++| SEG
00728 M00S00557.isf +++|
00729 M00S00558.isf +++| ZBUF BSSZ 100B SECTOR OF ZEROES
00730 M00S00559.isf +++| SBUF BSS SBUFL CIO BUFFER FOR S
Line S00069 Modification History
M01 (Added by) ns2595
Seq # *Modification Id* Act
----------------------------+
00731 M01S00069.ns2595 +++| MSTB BSS MSTL MST BUFFER
00732 M00S00560.isf +++| RFL= EQU *+8 ALLOW FOR *COMCWTW* LOOK-AHEAD
00733 M00S00561.isf +++|
00734 M00S00562.isf +++| ORG SBUF
00735 M00S00563.isf +++| PRS SPACE 4
00736 M00S00564.isf +++|** PRS - PRESET PROGRAM.
00737 M00S00565.isf +++|
00738 M00S00566.isf +++|
00739 M00S00567.isf +++| PRS SUBR ENTRY/EXIT
00740 M00S00568.isf +++| SX7 CERM SET ERROR MESSAGE BUFFER ADDRESS
00741 M00S00569.isf +++| SA7 S+CFPW
00742 M00S00570.isf +++| MACHID PRSA RETRIEVE MACHINE ID
00743 M00S00571.isf +++| SA3 PRSA
00744 M00S00572.isf +++| MX0 12
00745 M00S00573.isf +++| SA1 RDFN SET ID IN RESEX FILE NAMES
00746 M00S00574.isf +++| SA2 RVFN
00747 M00S00575.isf +++| LX0 -24
00748 M00S00576.isf +++| BX1 -X0*X1
00749 M00S00577.isf +++| LX3 24
00750 M00S00578.isf +++| BX2 -X0*X2
00751 M00S00579.isf +++| BX6 X3+X1
00752 M00S00580.isf +++| SA6 A1
00753 M00S00581.isf +++| BX7 X3+X2
00754 M00S00582.isf +++| SA7 A2
00755 M00S00583.isf +++| SA1 ACTR
00756 M00S00584.isf +++| SB4 X1
Line S00585 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00757 M01S00585.ns22000 ---| ZR B4,PRS19 IF NO ARGUMENTS
Line S00007 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00758 M01S00007.ns22000 +++| ZR B4,PRSX IF NO ARGUMENTS
00759 M00S00586.isf +++| SA4 ARGR FIRST ARGUMENT
00760 M00S00587.isf +++| SB5 TARG ARGUMENT TABLE
00761 M00S00588.isf +++| RJ ARG
Line S00589 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00762 M01S00589.ns22000 ---| NZ X1,PRS16 IF ERROR
00763 M01S00590.ns22000 ---|
00764 M01S00591.ns22000 ---|* SET FILE NAMES FOR *SYSJOB* AND *SYSPROC*.
00765 M01S00592.ns22000 ---|* IF *SJ* AND *SP* WERE NOT SPECIFIED AS PARAMETERS,
00766 M01S00593.ns22000 ---|* *SYSJOB* AND *SYSPROC* WILL BE FORCED TO ZERO.
00767 M01S00594.ns22000 ---|
00768 M01S00595.ns22000 ---| SA1 SJB
00769 M01S00596.ns22000 ---| SA2 SPF
00770 M01S00597.ns22000 ---| BX6 X1
00771 M01S00598.ns22000 ---| LX7 X2
00772 M01S00599.ns22000 ---| SA6 SJFA
00773 M01S00600.ns22000 ---| SA7 SPCA
Line S00008 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00774 M01S00008.ns22000 +++| NZ X1,PRS16.1 IF ERROR
00775 M00S00601.isf +++|
Line S00602 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00776 M01S00602.ns22000 ---|* SET FAMILY EQUIPMENT
Line S00009 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00777 M01S00009.ns22000 +++|* CHANGE TO SPECIFIED FAMILY.
00778 M00S00603.isf +++|
00779 M00S00604.isf +++| ENFAM FAMD SET DEFAULT FAMILY
00780 M00S00605.isf +++| SA1 FAMD SAVE USER-S FAMILY NAME
00781 M00S00606.isf +++| MX0 48
00782 M00S00607.isf +++| BX6 X0*X1
00783 M00S00608.isf +++| SA6 FAMU
00784 M00S00609.isf +++| SA1 FAM SAVE NEW FAMILY NAME
00785 M00S00610.isf +++| BX7 X1
00786 M00S00611.isf +++| SA7 FAMN
00787 M00S00612.isf +++| NZ X1,PRS1 IF *FM* SPECIFIED
00788 M00S00613.isf +++| SA6 FAMN USE USER-S FAMILY
00789 M00S00614.isf +++| PRS1 ENFAM FAMN SET FAMILY WHERE FILES ARE LOCATED
00790 M00S00615.isf +++| SA1 FAMN
00791 M00S00616.isf +++| BX6 X0*X1
00792 M00S00617.isf +++| LX1 59-11
Line S00618 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00793 M01S00618.v23l617 ---| NG X1,PRS17 IF ILLEGAL FAMILY
Line S00008 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00794 M01S00008.v23l617 +++| NG X1,PRS17 IF INCORRECT FAMILY
00795 M00S00619.isf +++| SA6 FAMD
00796 M00S00620.isf +++|
00797 M00S00621.isf +++|* CHECK FILE RETURN REQUEST.
00798 M00S00622.isf +++|
00799 M00S00623.isf +++| SA1 RET
00800 M00S00624.isf +++| ZR X1,PRS11 IF NO RETURN
00801 M00S00625.isf +++| SA2 ENT
00802 M00S00626.isf +++| NZ X2,PRS16 IF BOTH *E* AND *R* SPECIFIED
00803 M00S00627.isf +++| RJ CFC CHECK FILE COUNT
00804 M00S00628.isf +++| SA1 RET
00805 M00S00629.isf +++| SX3 0L0
00806 M00S00630.isf +++| LX3 42
00807 M00S00631.isf +++| BX2 X1-X3
00808 M00S00632.isf +++| ZR X2,PRS7 IF ALL FILES TO BE RETURNED
00809 M00S00633.isf +++|
00810 M00S00634.isf +++|* PROCESS *R*=FILENAME.
00811 M00S00635.isf +++|* SEARCH FILE LIST.
00812 M00S00636.isf +++|
00813 M00S00637.isf +++| SB4 TSFN SEARCH SPECIAL FILE TABLE
00814 M00S00638.isf +++| SB5 TSFN+TSFNL
00815 M00S00639.isf +++| SB3 B1+ DONT FORCE DEFAULT FAMILY
00816 M00S00640.isf +++| PRS2 SA2 B4
00817 M00S00641.isf +++| BX7 X2-X1
00818 M00S00642.isf +++| SB4 B4+B1
00819 M00S00643.isf +++| AX7 18
00820 M00S00644.isf +++| ZR X7,PRS3 IF FOUND
00821 M00S00645.isf +++| LT B4,B5,PRS2 IF NOT END OF TABLE
00822 M00S00646.isf +++| ZR B3,PRS14 IF NOT VALID FILE NAME
Line S00647 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00823 M01S00647.274l797 ---| SB4 TDFN
00824 M01S00648.274l797 ---| SB5 TDFN+TDFNL
Line S00007 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00825 M01S00007.274l797 +++| SB4 TDFF
00826 M01S00008.274l797 +++| SB5 TDFF+TDFFL
00827 M00S00649.isf +++| SB3 B0 FORCE DEFAULT FAMILY
00828 M00S00650.isf +++| EQ PRS2 SEARCH DEFAULT FAMILY FILE TABLE
00829 M00S00651.isf +++|
00830 M00S00652.isf +++| PRS3 NZ B3,PRS6 IF NOT DEFAULT FAMILY FILE
00831 M00S00653.isf +++| SA3 FAM
00832 M00S00654.isf +++| NZ X3,PRS4 IF *FM* SPECIFIED
00833 M00S00655.isf +++| SA3 FAMU GET USER-S FAMILY
00834 M00S00656.isf +++| PRS4 SA2 FAMD
00835 M00S00657.isf +++| BX3 X3-X2
00836 M00S00658.isf +++| AX3 18
00837 M00S00659.isf +++| NZ X3,PRS18 IF NOT DEFAULT FAMILY
Line S00660 Modification History
M01 (Removed by) isf1
Seq # *Modification Id* Act
----------------------------+
00838 M01S00660.isf1 ---| SX5 A2-RDFN
Line S00001 Modification History
M01 (Added by) isf1
Seq # *Modification Id* Act
----------------------------+
00839 M01S00001.isf1 +++| SX5 B4-RDFN-1
00840 M00S00661.isf +++| ZR X5,PRS5 IF RESOURCE DEMAND FILE
Line S00662 Modification History
M01 (Removed by) isf1
Seq # *Modification Id* Act
----------------------------+
00841 M01S00662.isf1 ---| SX5 A2-RVFN
Line S00002 Modification History
M01 (Added by) isf1
Seq # *Modification Id* Act
----------------------------+
00842 M01S00002.isf1 +++| SX5 B4-RVFN-1
00843 M00S00663.isf +++| NZ X5,PRS6 IF NOT RESOURCE VSN FILE
00844 M00S00664.isf +++| PRS5 SA1 RDFN RETURN BOTH RESOURCE FILES
00845 M00S00665.isf +++| MX0 42
00846 M00S00666.isf +++| BX1 X0*X1
00847 M00S00667.isf +++| RJ RTF RETURN FILE
00848 M00S00668.isf +++| SA1 RVFN
00849 M00S00669.isf +++| MX0 42
00850 M00S00670.isf +++| BX1 X0*X1
00851 M00S00671.isf +++| PRS6 RJ RTF RETURN FILE
00852 M00S00672.isf +++| EQ END EXIT
00853 M00S00673.isf +++|
00854 M00S00674.isf +++|* PROCESS *R*=0.
00855 M00S00675.isf +++|* RETURN SPECIAL FILES IN SPECIFIED FAMILY.
00856 M00S00676.isf +++|
00857 M00S00677.isf +++| PRS7 SX5 TSFNL-1
00858 M00S00678.isf +++| PRS8 SA1 TSFN+X5
00859 M00S00679.isf +++| MX0 42
00860 M00S00680.isf +++| BX1 X0*X1
00861 M00S00681.isf +++| SX5 X5-1
00862 M00S00682.isf +++| RJ RTF RETURN FILE
00863 M00S00683.isf +++| PL X5,PRS8 IF MORE FILES TO RETURN
00864 M00S00684.isf +++| SA1 FAM GET *FM* FAMILY
00865 M00S00685.isf +++| NZ X1,PRS9 IF *FM* SPECIFIED
00866 M00S00686.isf +++| SA1 FAMU GET USER-S FAMILY
00867 M00S00687.isf +++| PRS9 SA2 FAMD
00868 M00S00688.isf +++| BX3 X1-X2
00869 M00S00689.isf +++| AX3 18
00870 M00S00690.isf +++| NZ X3,END IF .NE. DEFAULT
00871 M00S00691.isf +++|
00872 M00S00692.isf +++|* RETURN DEFAULT FAMILY FILES.
00873 M00S00693.isf +++|
Line S00694 Modification History
M01 (Removed by) 274l797
Seq # *Modification Id* Act
----------------------------+
00874 M01S00694.274l797 ---| SX5 TDFNL-1
00875 M01S00695.274l797 ---| PRS10 SA1 TDFN+X5
Line S00009 Modification History
M01 (Added by) 274l797
Seq # *Modification Id* Act
----------------------------+
00876 M01S00009.274l797 +++| SX5 TDFFL-1
00877 M01S00010.274l797 +++| PRS10 SA1 TDFF+X5
00878 M00S00696.isf +++| MX0 42
00879 M00S00697.isf +++| BX1 X0*X1
00880 M00S00698.isf +++| SX5 X5-1
00881 M00S00699.isf +++| RJ RTF RETURN FILE
00882 M00S00700.isf +++| PL X5,PRS10 IF MORE FILES TO RETURN
00883 M00S00701.isf +++| EQ END EXIT
00884 M00S00702.isf +++|
00885 M00S00703.isf +++|* CHECK FILE ENTER REQUEST.
00886 M00S00704.isf +++|
00887 M00S00705.isf +++| PRS11 SA1 ENT
00888 M00S00706.isf +++| ZR X1,PRSX IF NOT SPECIFIED
00889 M00S00707.isf +++| SX3 0L0
00890 M00S00708.isf +++| LX3 42
00891 M00S00709.isf +++| BX2 X1-X3
00892 M00S00710.isf +++| ZR X2,PRSX IF ALL FILES TO BE ENTERED
00893 M00S00711.isf +++| SB3 B1 PRESET FILE NOT FOUND
00894 M00S00712.isf +++| MX6 0
00895 M00S00713.isf +++| SA2 TSFN SEARCH FILE LIST
00896 M00S00714.isf +++| SA4 RDFN CHECK FOR BOTH RESOURCE FILES
00897 M00S00715.isf +++| SA5 RVFN
00898 M00S00716.isf +++| BX7 X1-X4
00899 M00S00717.isf +++| BX3 X5 SECOND FILE = RSXVXX
00900 M00S00718.isf +++| AX7 18
00901 M00S00719.isf +++| ZR X7,PRS12 IF FILE = RSXDXX
00902 M00S00720.isf +++| BX7 X1-X5
00903 M00S00721.isf +++| BX3 X4 SECOND FILE = RSXDXX
00904 M00S00722.isf +++| AX7 18
00905 M00S00723.isf +++| ZR X7,PRS12 IF FILE = RSXVXX
00906 M00S00724.isf +++| SX3 B0+ NO SECOND FILE
00907 M00S00725.isf +++| PRS12 BX7 X1-X2
00908 M00S00726.isf +++| AX7 18
00909 M00S00727.isf +++| ZR X7,PRS15 IF FOUND
00910 M00S00728.isf +++| BX7 X2-X3 CHECK SECOND FILE
00911 M00S00729.isf +++| AX7 18
00912 M00S00730.isf +++| ZR X7,PRS15 IF FOUND
00913 M00S00731.isf +++| SA6 A2+ ZERO NON-MATCHING ENTRY
00914 M00S00732.isf +++| PRS13 SA2 A2+B1
00915 M00S00733.isf +++| NZ X2,PRS12 IF MORE FILE NAMES TO CHECK
00916 M00S00734.isf +++| ZR B3,PRSX EXIT IF FOUND
00917 M00S00735.isf +++|
00918 M00S00736.isf +++| PRS14 RJ PEC PROCESS EXIT CLEANUP
Line S00737 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00919 M01S00737.v23l617 ---| MESSAGE (=C* ILLEGAL FILE NAME.*)
Line S00009 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00920 M01S00009.v23l617 +++| MESSAGE (=C* INCORRECT FILE NAME.*)
00921 M00S00738.isf +++| ABORT
00922 M00S00739.isf +++|
00923 M00S00740.isf +++| PRS15 SB3 B0
00924 M00S00741.isf +++| EQ PRS13 CONTINUE LOOP
00925 M00S00742.isf +++|
00926 M00S00743.isf +++| PRS16 RJ PEC PROCESS EXIT CLEANUP
Line S00744 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00927 M01S00744.ns22000 ---| MESSAGE (=C* ARGUMENT ERROR.*)
Line S00010 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00928 M01S00010.ns22000 +++| PRS16.1 MESSAGE (=C* ARGUMENT ERROR.*)
00929 M00S00745.isf +++| ABORT
00930 M00S00746.isf +++|
Line S00747 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00931 M01S00747.ns22000 ---| PRS17 RJ PEC PROCESS EXIT CLEANUP
00932 M01S00748.ns22000 ---| MESSAGE (=C* ILLEGAL FAMILY NAME.*)
Line S00011 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00933 M02S00011.v23l617 ---| PRS17 MESSAGE (=C* ILLEGAL FAMILY NAME.*)
Line S00010 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00934 M01S00010.v23l617 +++| PRS17 MESSAGE (=C* INCORRECT FAMILY NAME.*)
00935 M00S00749.isf +++| ABORT
00936 M00S00750.isf +++|
00937 M00S00751.isf +++| PRS18 RJ PEC PROCESS EXIT CLEANUP
00938 M00S00752.isf +++| MESSAGE (=C* FILE NOT IN ALTERNATE FAMILY.*)
00939 M00S00753.isf +++| ABORT
00940 M00S00754.isf +++|
Line S00755 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00941 M01S00755.ns22000 ---| PRS19 GETJOSC PRSA GET SERVICE CLASS
00942 M01S00756.ns22000 ---| SA2 PRSA
00943 M01S00757.ns22000 ---| MX0 -6
00944 M01S00758.ns22000 ---| LX2 -6
00945 M01S00759.ns22000 ---| BX2 -X0*X2
00946 M01S00760.ns22000 ---| SX6 X2-DSSC
00947 M01S00761.ns22000 ---| NZ X6,PRSX IF NOT DEADSTART SERVICE CLASS
00948 M01S00762.ns22000 ---| SYSTEM RSB,R,PRSB GET RECOVERY MODE FROM CMR
00949 M01S00763.ns22000 ---| MX0 -3
00950 M01S00764.ns22000 ---| SA1 PRSC CHECK RECOVERY MODE
00951 M01S00765.ns22000 ---| BX6 -X0*X1
00952 M01S00766.ns22000 ---| ZR X6,PRSX IF LEVEL 0 DEADSTART
00953 M01S00767.ns22000 ---| SX7 0
00954 M01S00768.ns22000 ---| SA7 SPCA CLEAR PROCEDURE FILE CALL
00955 M01S00769.ns22000 ---| EQ END END PROCESSING
00956 M00S00770.isf +++|
00957 M00S00771.isf +++| PRSA CON 0 MACHINE ID
Line S00772 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
00958 M01S00772.ns22000 ---| PRSB VFD 24/1,18/JNML,18/PRSC *RSB* STATUS WORD
Line S00012 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
00959 M01S00012.ns22000 +++| PRSB VFD 12/,12/1,18/DSSL,18/PRSC *RSB* STATUS WORD
00960 M00S00773.isf +++| PRSC CON -1 *RSB* REPLY WORD
00961 M00S00774.isf +++| CFC SPACE 4,10
00962 M00S00775.isf +++|** CFC - CHECK FILE COUNT.
00963 M00S00776.isf +++|*
00964 M00S00777.isf +++|* COMPARE ACTIVE DIRECT ACCESS FILE COUNT AND FAST ATTACH
00965 M00S00778.isf +++|* FILE COUNT. THE PROFILE FILE IS ATTACHED IN WRITE MODE TO
Line S00779 Modification History
M01 (Removed by) v23l617
Seq # *Modification Id* Act
----------------------------+
00966 M01S00779.v23l617 ---|* PREVENT FURTHER *CHARGE* STATEMENT PROCESSING.
Line S00011 Modification History
M01 (Added by) v23l617
Seq # *Modification Id* Act
----------------------------+
00967 M01S00011.v23l617 +++|* PREVENT FURTHER *CHARGE* COMMAND PROCESSING.
00968 M00S00780.isf +++|*
00969 M00S00781.isf +++|* USES A - 2, 7.
00970 M00S00782.isf +++|* X - 0, 1, 2, 7.
00971 M00S00783.isf +++|*
00972 M00S00784.isf +++|* CALLS CES, RIF.
00973 M00S00785.isf +++|*
00974 M00S00786.isf +++|* MACROS ABORT, ATTACH, CFAT, MESSAGE, RECALL, RETURN.
00975 M00S00787.isf +++|
00976 M00S00788.isf +++|
00977 M00S00789.isf +++| CFC SUBR ENTRY/EXIT
00978 M00S00790.isf +++| SA2 PRFN ATTACH PROFILE FILE
00979 M00S00791.isf +++| MX0 42
00980 M00S00792.isf +++| SX7 B1
00981 M00S00793.isf +++| BX2 X0*X2
00982 M00S00794.isf +++| BX7 X7+X2
00983 M00S00795.isf +++| RECALL T
00984 M00S00796.isf +++| SA7 X2+
00985 M00S00797.isf +++| ATTACH X2,,,,W,,,IP,FA
00986 M00S00798.isf +++| RJ CES CHECK ERROR (DO NOT PRINT MESSAGE)
00987 M00S00799.isf +++| ZR X0,CFC1 IF NO ERROR
00988 M00S00800.isf +++| ZR X3,CFC2 IF *FILE NOT FOUND* ERROR
00989 M00S00801.isf +++| RJ RIF RESTORE INITIAL FAMILY
00990 M00S00802.isf +++| ABORT ABORT
00991 M00S00803.isf +++|
00992 M00S00804.isf +++| CFC1 SX7 B1+ SET PROFILE ATTACHED FLAG
00993 M00S00805.isf +++| SA7 PRAF
00994 M00S00806.isf +++| CFC2 CFAT S COUNT FAFT FILES
00995 M00S00807.isf +++| SA2 S+5
00996 M00S00808.isf +++| SA1 PRAF COMPENSATE FOR ATTACHED PROFILE FILE
00997 M00S00809.isf +++| IX2 X2-X1
00998 M00S00810.isf +++| ZR X2,CFCX IF FAFT COUNT = DAF COUNT
00999 M00S00811.isf +++| ZR X1,CFC3 IF PROFILE NOT ATTACHED
01000 M00S00812.isf +++| RETURN T
01001 M00S00813.isf +++| CFC3 RJ RIF RESTORE INITIAL FAMILY
01002 M00S00814.isf +++| MESSAGE (=C* FAMILY FILES ACTIVE.*)
01003 M00S00815.isf +++| ABORT ABORT
01004 M00S00816.isf +++|
01005 M00S00817.isf +++|
01006 M00S00818.isf +++|* COMMON DECKS.
01007 M00S00819.isf +++|
01008 M00S00820.isf +++|
01009 M00S00821.isf +++|*CALL COMCARG
01010 M00S00822.isf +++|
01011 M00S00823.isf +++|
01012 M00S00824.isf +++|* ARGUMENT TABLE.
01013 M00S00825.isf +++|
01014 M00S00826.isf +++| TARG BSS 0
01015 M00S00827.isf +++| E ARG ENT,ENT,400B
Line S00828 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
01016 M01S00828.ns22000 ---| FM ARG FAM,FAM
Line S00013 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
01017 M01S00013.ns22000 +++| FM ARG FAM,FAM,400B
01018 M00S00829.isf +++| R ARG RET,RET,400B
Line S00830 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
01019 M01S00830.ns22000 ---| SJ ARG SJFA,SJB
01020 M01S00831.ns22000 ---| SP ARG SPCA,SPF
Line S00014 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
01021 M01S00014.ns22000 +++| SJ ARG SJB,SJFA
01022 M01S00015.ns22000 +++| SP ARG SPF,SPCA
01023 M00S00832.isf +++| ARG
01024 M00S00833.isf +++|
01025 M00S00834.isf +++|
01026 M00S00835.isf +++|* ASSUMED OPTION VALUES.
01027 M00S00836.isf +++|
01028 M00S00837.isf +++| ENT CON 0 FILE TO BE ENTERED
01029 M00S00838.isf +++| FAM CON 0 ALTERNATE FAMILY NAME
01030 M00S00839.isf +++| RET CON 0 FILE TO BE RETURNED
Line S00840 Modification History
M01 (Removed by) ns22000
Seq # *Modification Id* Act
----------------------------+
01031 M01S00840.ns22000 ---| SJB CON 0 JOB TO BE SUBMITTED
01032 M01S00841.ns22000 ---| SPF CON 0 PROCEDURE FILE TO BE CALLED
Line S00016 Modification History
M01 (Added by) ns22000
Seq # *Modification Id* Act
----------------------------+
01033 M01S00016.ns22000 +++| SJB VFD 42/0LSYSJOB,6/0,1/1,4/0,6/SYOT,1/0 JOB TO SUBMIT
01034 M01S00017.ns22000 +++| SPF CON 0LSYSPROC PROCEDURE FILE TO BE CALLED
01035 M00S00842.isf +++|
01036 M00S00843.isf +++| ERRNG RFL=-* IF *PRS* OVERFLOWS *SBUF*
01037 M00S00844.isf +++|
01038 M00S00845.isf +++| END