cdc:nos2.source:opl.opl871:deck:superm
Deck SUPERM
Library Member Format: MODIFY
Listing Sections
- Deck SUPERM Start
- Deck SUPERM Part 1 (Line 1736)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.superm +++|*NOSEQ 00002 M00S00002.superm +++|DOC 00003 M00S00003.superm +++|***** CYBER SUPERMINI PROCEDURES. 00004 M00S00004.superm +++|* 00005 M00S00005.superm +++|* J. H. ERICKSON 84/06/01 00006 M00S00006.superm +++|* 00007 M00S00007.superm +++|* THESE PROCEDURES FRONT END THE STANDARD UTILITIES. 00008 M00S00008.superm +++|* THESE PROCEDURE DO NOT PRESENT ALL THE OPTIONS 00009 M00S00009.superm +++|* AVAILABLE UNDER NOS. THEY DO REQUIRE ONLY A MINIMAL 00010 M00S00010.superm +++|* NUMBER OF DECISIONS ON THE PART OF THE USER. MOST 00011 M00S00011.superm +++|* OF THE PROCEDURES ARE RUN FROM THE SYSTEM CONSOLE. 00012 M00S00012.superm +++|* THREE OF THE PROCEDURES ARE RUN FROM A TERMINAL 00013 M00S00013.superm +++|* IN SCREEN MODE. 00014 M00S00014.superm +++|* 00015 M00S00015.superm +++|* BEFORE THE PROCEDURES CAN BE RUN THEY MUST BE 00016 M00S00016.superm +++|* INSTALLED USING THE SYSTEM PROCEDURE, 00017 M00S00017.superm +++|* MAINTAIN SYSTEM *MS*. 00018 M00S00018.superm +++|* 00019 M00S00019.superm +++|* FROM DSD ENTER: X.MS(SETUP) 00020 M00S00020.superm +++|* 00021 M00S00021.superm +++|* THIS WILL TAKE THE PROCEDURES AND THE VALIDATION TYPES 00022 M00S00022.superm +++|* ON ULIB/SUPERM AND PLACE THEM ON USER NAME SYSTEMX ON 00023 M00S00023.superm +++|* A PERMANENT FILE CALLED ZZZPFIL. THE PROCEDURE CPASS 00024 M00S00024.superm +++|* WILL BE PLACED ON A PUBLIC PERMANENT FILE ON SYSTEMX. 00025 M00S00025.superm +++|* *MS* WILL CREATE THE FILE ZZZZVDI USED BY VALUSER AND 00026 M00S00026.superm +++|* WRITEVI. THESE FILES CREATED BY *MS* ON SYSTEMX WILL 00027 M00S00027.superm +++|* GIVE USER NAME INSTALL WRITE PERMISSION. 00028 M00S00028.superm +++|* 00029 M00S00029.superm +++|* SETUP MAY ALSO BE USED AS FOLLOWS: 00030 M00S00030.superm +++|* 00031 M00S00031.superm +++|* X.MS(SETUP,XXXX) 00032 M00S00032.superm +++|* 00033 M00S00033.superm +++|* THIS FORMAT ALLOWS THE OPERATOR TO INSTALL PROTIONS 00034 M00S00034.superm +++|* OF WHAT WAS INSTALLED BY * X.MS(SETUP) *. THE 00035 M00S00035.superm +++|* PORTION IS SPECIFIED BY USING THE PARAMETER *XXXX*. 00036 M00S00036.superm +++|* SUBSTITUTING ZZZZVDI FOR XXXX INSTALLS ZZZZVDI. 00037 M00S00037.superm +++|* SUBSTITUTING SUPERM FOR XXXX INSTALLS THE PROCEDURES 00038 M00S00038.superm +++|* AND VALIDATION TYPES. 00039 M00S00039.superm +++|* 00040 M00S00040.superm +++|* ALL THE TAPES USED IN THESE PROCEDURES ARE ASSUMED 00041 M00S00041.superm +++|* TO BE PRELABELED GE DENSITY TAPES. THE PROCEDURES 00042 M00S00042.superm +++|* FOR DAYFILE AND QUEUE FILE MAINTENANCE ASSUME ONLY 00043 M00S00043.superm +++|* ONE TAPE WILL BE REQUIRED FOR EACH RUN. A SETNAME 00044 M00S00044.superm +++|* PARAMETER IS SUPPLIED TO IDENTIFY THE SET OF TAPES 00045 M00S00045.superm +++|* USED. THE SETNAME MUST BE 1-5 ALPHANUMERIC CHARACTERS. 00046 M00S00046.superm +++|* THE PROCEDURES CONCATENATE THE SETNAME WITH THE 00047 M00S00047.superm +++|* VOLUME NUMBER OF TAPE TO GET THE ACTUAL VSN.
| Line S00048 Modification History | |
|---|---|
M01 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00048.superm3 ---|* EXAMPLE: THE SETNAME IS FRIDAY, THE VSN WOULD
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00049 M01S00001.superm3 +++|* EXAMPLE: THE SETNAME IS FRI AND THE VOLUME NUMBER 00050 M01S00002.superm3 +++|* IS 2. THE VSNS WOULD BE FRI1 AND FRI2. 00051 M00S00049.superm +++|* BE FRIDAY1 OR FRIDAY2, ETC. 00052 M00S00050.superm +++|* 00053 M00S00051.superm +++|* THE GLOBAL *CCL* REGISTER R1G IS USED TO COMMUNICATE 00054 M00S00052.superm +++|* BETWEEN THE SYSTEM PROCEDURE, *MS* AND THE CALLED 00055 M00S00053.superm +++|* PROCEDURES. IF R1G IS EQUAL TO ONE THEN *MS* KNOWS 00056 M00S00054.superm +++|* THERE WAS A FAILURE IN THE CALLED PROCEDURES AND 00057 M00S00055.superm +++|* THE CALLED PROCEDURE NOTIFIED THE OPERATOR. IF 00058 M00S00056.superm +++|* *MS* GOES TO EXIT PROCESSING THEN *MS* KNOWS THERE 00059 M00S00057.superm +++|* WAS AN ERROR IN THE CALLED PROCEDURE AND THE CALLED 00060 M00S00058.superm +++|* PROCEDURE DID NOT NOTIFIED THE OPERATOR. IF R1G 00061 M00S00059.superm +++|* IS EQUAL TO ZERO THEN THE CALLED PROCEDURE COMPLETED 00062 M00S00060.superm +++|* SUCCESSFULLY. 00063 M00S00061.superm +++|* 00064 M00S00062.superm +++|*WEOR 00065 M00S00063.superm +++|.PROC,MS*I 00066 M00S00064.superm +++|,TOOL =(*F) 00067 M00S00065.superm +++|,P1 =(*N=$$,*A) 00068 M00S00066.superm +++|,P2 =(*N=$$,*A) 00069 M00S00067.superm +++|,P3 =(*N=$$,*A) 00070 M00S00068.superm +++|,P4 =(*N=$$,*A) 00071 M00S00069.superm +++|,P5 =(*N=$$,*A) 00072 M00S00070.superm +++|,P6 =(*N=$$,*A) 00073 M00S00071.superm +++|,P7 =(*N=$$,*A) 00074 M00S00072.superm +++|. 00075 M00S00073.superm +++|.* MS - MAINTAIN SYSTEM 00076 M00S00074.superm +++|.* THIS SYSTEM PROCEDURE IS USED TO INITIATE TOOLS 00077 M00S00075.superm +++|.* THAT ARE USED IN MAINTAINING THE SYSTEM. 00078 M00S00076.superm +++|.* DSD COMMAND FORMAT: 00079 M00S00077.superm +++|.* 00080 M00S00078.superm +++|.* X.MS(TOOL,P1,P2,P3...) 00081 M00S00079.superm +++|.*
| Line S00080 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00082 M01S00080.superm2 ---|.* WHERE TOLL IS THE PROCEDURE NAME, P1, P2, P3, ETC. ARE THE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00083 M01S00001.superm2 +++|.* WHERE TOOL IS THE PROCEDURE NAME, P1, P2, P3, ETC. ARE THE 00084 M00S00081.superm +++|.* PARAMETERS TO THE PROCEDURE.
| Line S00082 Modification History | |
|---|---|
M01 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00085 M01S00082.superm3 ---|.* THE PROCEDURE DESIGNED TO BE INITIATIED FROM A TERMINAL WILL
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00003.superm3 +++|.* THE PROCEDURE DESIGNED TO BE INITIATED FROM A TERMINAL WILL 00087 M00S00083.superm +++|.* BE INITIATED AS: 00088 M00S00084.superm +++|.* 00089 M00S00085.superm +++|.* SCREEN,TERMINAL TYPE. 00090 M00S00086.superm +++|.* MS(TOOL) 00091 M00S00087.superm +++|.* 00092 M00S00088.superm +++|.* IN THIS CASE, THE TOOL WILL PROMPT THE USER FOR THE PARAMETERS. 00093 M00S00089.superm +++|.* CURRENTLY THE TOOLS RESIDE ON A PERMANENT FILE ZZZPFIL ON 00094 M00S00090.superm +++|.* SYSTEMX. 00095 M00S00091.superm +++|.IF,OT.EQ.SYO,MS1. 00096 M00S00092.superm +++|* EXECUTE TOOL FROM THE CONSOLE
| Line S00093 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00097 M01S00093.superm1 ---| SUI,377777.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | superm1 |
M02 (Removed by) | superm5 |
Seq # *Modification Id* Act ----------------------------+ 00098 M02S00001.superm5 ---| USER(SYSTEMX,SYSTEMX)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | superm3 |
M02 (Removed by) | superm5 |
Seq # *Modification Id* Act ----------------------------+ 00099 M02S00004.superm5 ---| SKIP,MSTAG1. 00100 M02S00005.superm5 ---| EXIT. 00101 M02S00006.superm5 ---| .IF,($TOOL$.NE.$LOADF$).OR.($P2$.NE.$$),MSTAG2. 00102 M02S00007.superm5 ---| *************************************** 00103 M02S00008.superm5 ---| * * 00104 M02S00009.superm5 ---| * USER COMMAND: * 00105 M02S00010.superm5 ---| * USER,SYSTEMX,SYSTEMX. * 00106 M02S00011.superm5 ---| * FAILED. CORRECT THE PASSWORD * 00107 M02S00012.superm5 ---| * OR EXECUTE X.MS(LOADF,SETNAME). * 00108 M02S00013.superm5 ---| * * 00109 M02S00014.superm5 ---| * WHEN YOU HAVE READ THIS MESSAGE * 00110 M02S00015.superm5 ---| * * 00111 M02S00016.superm5 ---| * ENTER: ASSIGN,JSN,2. * 00112 M02S00017.superm5 ---| * * 00113 M02S00018.superm5 ---| *************************************** 00114 M02S00019.superm5 ---| REQUEST,OPER. TOOL FAILED. 00115 M02S00020.superm5 ---| RETURN,OPER. 00116 M02S00021.superm5 ---| REVERT,ABORT. MS FAILED. 00117 M02S00022.superm5 ---| ENDIF,MSTAG2. 00118 M02S00023.superm5 ---| VSN,TAPE=P1_1/P1_2/P1_3/P1_4/P1_5/P1_6/P1_7/P1_8. 00119 M02S00024.superm5 ---| LABEL,TAPE,NT,D=GE,PO=RF. 00120 M02S00025.superm5 ---| PFLOAD,OP=LV. EXECUTE A FULL LOAD. 00121 M02S00026.superm5 ---| ISF. 00122 M02S00027.superm5 ---| USER,SYSTEMX,SYSTEMX. 00123 M02S00028.superm5 ---| SKIP,MSTAG3. 00124 M02S00029.superm5 ---| EXIT. 00125 M02S00030.superm5 ---| *************************************** 00126 M02S00031.superm5 ---| * * 00127 M02S00032.superm5 ---| * USER COMMAND: * 00128 M02S00033.superm5 ---| * USER,SYSTEMX,SYSTEMX. * 00129 M02S00034.superm5 ---| * FAILED. CORRECT THE PASSWORD * 00130 M02S00035.superm5 ---| * OR EXECUTE X.MS(LOADF,SETNAME). * 00131 M02S00036.superm5 ---| * * 00132 M02S00037.superm5 ---| * WHEN YOU HAVE READ THIS MESSAGE * 00133 M02S00038.superm5 ---| * * 00134 M02S00039.superm5 ---| * ENTER: ASSIGN,JSN,2. * 00135 M02S00040.superm5 ---| * * 00136 M02S00041.superm5 ---| *************************************** 00137 M02S00042.superm5 ---| REQUEST,OPER. TOOL FAILED. 00138 M02S00043.superm5 ---| RETURN,OPER. 00139 M02S00044.superm5 ---| REVERT,ABORT. MS FAILED. 00140 M02S00045.superm5 ---| ENDIF,MSTAG3. 00141 M02S00046.superm5 ---| BEGIN(SUCCESS,ZZZPFIL,TOOL) 00142 M02S00047.superm5 ---| ENDIF,MSTAG1. 00143 M00S00094.superm +++| .IF,$TOOL$.EQ.$SETUP$,MS2. 00144 M00S00095.superm +++| * THIS IS A SETUP RUN. 00145 M00S00096.superm +++| * ZZZPFIL AND/OR ZZZZVDI ARE INSTALLED 00146 M00S00097.superm +++| * ON SYSTEMX DEPENDING ON THE P1 PARAMETER. 00147 M00S00098.superm +++| * SETUP IS CREATED BY A .DATA STATEMENT IN MS. 00148 M00S00099.superm +++| BEGIN(SETUP,SETUP,P1) 00149 M00S00100.superm +++| REVERT. MS COMPLETE 00150 M00S00101.superm +++| EXIT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00002.superm1 +++| RETURN,*,OUTPUT. 00152 M00S00102.superm +++| *********************************** 00153 M00S00103.superm +++| * * 00154 M00S00104.superm +++| *SETUP IS NOT SUPPORTED AS CALLED. * 00155 M00S00105.superm +++| *PLEASE CONSULT CYBER SUPERMINI * 00156 M00S00106.superm +++| *OPERATIONS HANDBOOK AND TRY AGAIN * 00157 M00S00107.superm +++| * * 00158 M00S00108.superm +++| * WHEN YOU HAVE READ THIS MESSAGE * 00159 M00S00109.superm +++| * * 00160 M00S00110.superm +++| * ENTER: ASSIGN,JSN,2. * 00161 M00S00111.superm +++| * * 00162 M00S00112.superm +++| ************************************ 00163 M00S00113.superm +++| REQUEST(OPER) SETUP FAILED 00164 M00S00114.superm +++| RETURN(OPER) 00165 M00S00115.superm +++| REVERT. MS(SETUP) FAILED
| Line S00116 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00166 M01S00116.superm1 ---| .ENDIF,MS2.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00167 M01S00003.superm1 +++| .ENDIF,MS2. 00168 M00S00117.superm +++| ATTACH,ZZZPFIL. 00169 M00S00118.superm +++| SKIP,MS3. 00170 M00S00119.superm +++| EXIT. 00171 M00S00120.superm +++| *********************************** 00172 M00S00121.superm +++| * * 00173 M00S00122.superm +++| * PROCFIL ZZZPFIL WAS NOT FOUND. * 00174 M00S00123.superm +++| * RUN X.MS(SETUP) TO CREATE THIS * 00175 M00S00124.superm +++| * PROCFIL. * 00176 M00S00125.superm +++| * * 00177 M00S00126.superm +++| * WHEN YOU HAVE READ THIS MESSAGE * 00178 M00S00127.superm +++| * * 00179 M00S00128.superm +++| * ENTER: ASSIGN,JSN,2. * 00180 M00S00129.superm +++| * * 00181 M00S00130.superm +++| *********************************** 00182 M00S00131.superm +++| REQUEST(OPER) MS FAILED. 00183 M00S00132.superm +++| RETURN(OPER)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00184 M01S00004.superm1 +++| WRITEF. 00185 M00S00133.superm +++| REVERT. MS 00186 M00S00134.superm +++| ENDIF,MS3. 00187 M00S00135.superm +++| * CHECK TO SEE IF TOOL IS 00188 M00S00136.superm +++| * SUPPORTED FROM THE CONSOLE 00189 M00S00137.superm +++| * IF SO CHECK TO SEE IF TOO MANY 00190 M00S00138.superm +++| * PARAMETERS WERE SUPPLIED 00191 M00S00139.superm +++| BEGIN(VERTOOL,ZZZPFIL,TOOL,P1,P2,P3,P4,P5,P6,P7) 00192 M00S00140.superm +++| 00193 M00S00141.superm +++| * EXECUTE THE TOOL 00194 M00S00142.superm +++| BEGIN(TOOL,ZZZPFIL,P1,P2,P3,P4,P5) 00195 M00S00143.superm +++| SKIP,MS6. 00196 M00S00144.superm +++| EXIT. 00197 M00S00145.superm +++| * TOOL FAILED AND THE EXACT 00198 M00S00146.superm +++| * ERROR COULD NOT BE IDENTIFIED. 00199 M00S00147.superm +++| BEGIN(ERRTOOL,ZZZPFIL,TOOL) 00200 M00S00148.superm +++| REVERT. MS 00201 M00S00149.superm +++| ENDIF,MS6. 00202 M00S00150.superm +++| * THE R1G REGISTER IS USED TO STATE WHETHER OR 00203 M00S00151.superm +++| * NOT TOOL WAS SUCCESSFUL. 00204 M00S00152.superm +++| * R1G=1 FOR ERROR IN TOOL. 00205 M00S00153.superm +++| IF,R1G.EQ.1,MS7. 00206 M00S00154.superm +++| * THERE WAS AN ERROR IN TOOL THAT WAS 00207 M00S00155.superm +++| * REPORTED TO THE OPERATOR BY TOOL.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00208 M01S00005.superm1 +++| WRITEF. 00209 M00S00156.superm +++| REVERT. MS 00210 M00S00157.superm +++| ENDIF,MS7. 00211 M00S00158.superm +++| * TOOL COMPLETED SUCCESSFULLY. 00212 M00S00159.superm +++| BEGIN(SUCCESS,ZZZPFIL,TOOL) 00213 M00S00160.superm +++|.ELSE,MS1. 00214 M00S00161.superm +++|.IF,OT.EQ.IAO,MS1. 00215 M00S00162.superm +++| ATTACH,ZZZPFIL/UN=SYSTEMX,NA. 00216 M00S00163.superm +++| ATTACH,ZZPPFIL/UN=SYSTEMX. 00217 M00S00164.superm +++|SKIP,MS8. 00218 M00S00165.superm +++| EXIT. 00219 M00S00166.superm +++| NOTE(OUTPUT)* PROCFIL ZZPPFIL WAS NOT FOUND. 00220 M00S00167.superm +++| NOTE(OUTPUT)* RUN X.MS(SETUP)
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00221 M01S00006.superm1 +++| NOTE(OUTPUT)* FROM THE CONSOLE
| Line S00168 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00168.superm1 ---| NOTE(OUTPUT)* TO CREATE THIS PROCIFL.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00223 M01S00007.superm1 +++| NOTE(OUTPUT)* TO CREATE THIS PROCFIL. 00224 M00S00169.superm +++| ROLLOUT(5) 00225 M00S00170.superm +++| REVERT. MS(TOOL) FAILED 00226 M00S00171.superm +++|ENDIF,MS8. 00227 M00S00172.superm +++| 00228 M00S00173.superm +++| * CHECK TO SEE IF TOOL IS SUPPORTED 00229 M00S00174.superm +++| * FROM A TERMINAL 00230 M00S00175.superm +++| BEGIN(VERIAT,ZZPPFIL,TOOL) 00231 M00S00176.superm +++| 00232 M00S00177.superm +++| * BEGIN EXECUTION OF THE TOOL
| Line S00178 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00233 M01S00178.superm1 ---| .IF,$TOOL$,.EQ.$WRITEVI$,MS11.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00234 M01S00008.superm1 +++| .IF,$TOOL$.EQ.$WRITEVI$,MS11. 00235 M00S00179.superm +++| ATTACH,ZZZPFIL/UN=SYSTEMX. 00236 M00S00180.superm +++| BEGIN(TOOL,ZZZPFIL,P1,P2,P3,P4,P5,P6,P7) 00237 M00S00181.superm +++| REVERT. MS (TOOL) COMPLETED. 00238 M00S00182.superm +++| EXIT. 00239 M00S00183.superm +++| * WRITEVI CANNOT BE RUN FROM THIS 00240 M00S00184.superm +++| * USER. 00241 M00S00185.superm +++| REVERT. MS (TOOL) FAILED. 00242 M00S00186.superm +++| .ELSE,MS11. 00243 M00S00187.superm +++| BEGIN(TOOL,ZZPPFIL,P1,P2,P3,P4,P5,P6,P7) 00244 M00S00188.superm +++| REVERT. MS (TOOL) COMPLETED. 00245 M00S00189.superm +++| .ENDIF,MS11 00246 M00S00190.superm +++| 00247 M00S00191.superm +++| SKIP,MS9. 00248 M00S00192.superm +++| EXIT. 00249 M00S00193.superm +++| NOTE(OUTPUT,NR)* TOOL FAILED. PLEASE 00250 M00S00194.superm +++| NOTE(OUTPUT,NR)* EXAMINE THE DAYFILE 00251 M00S00195.superm +++| NOTE(OUTPUT,NR)* TO IDENTIFIED THE CAUSE. 00252 M00S00196.superm +++| ROLLOUT(5) 00253 M00S00197.superm +++| REVERT. MS (TOOL) FAILED 00254 M00S00198.superm +++| ENDIF,MS9. 00255 M00S00199.superm +++| REVERT. (TOOL) COMPLETE 00256 M00S00200.superm +++|.ELSE,MS1. 00257 M00S00201.superm +++|* TOOL NOT SUPPORTED FROM 00258 M00S00202.superm +++|* THIS ORIGIN TYPE. 00259 M00S00203.superm +++|* #TOOLS ARE ONLY SUPPORTED FROM A 00260 M00S00204.superm +++|* TERMINAL OR THE CONSOLE BY MS. 00261 M00S00205.superm +++|* PLEASE TRY TOOL FROM AN ORIGIN 00262 M00S00206.superm +++|* TYPE WHICH SUPPORTS IT. 00263 M00S00207.superm +++|* TOOL WAS NOT RUN. 00264 M00S00208.superm +++|REVERT. MS FAILED. 00265 M00S00209.superm +++|.ENDIF,MS1. 00266 M00S00210.superm +++|.IF,OT.EQ.SYO,MS10. 00267 M00S00211.superm +++|.DATA,SETUP. 00268 M00S00212.superm +++|.EXPAND,OFF. 00269 M00S00213.superm +++|.PROC,SETUP*I 00270 M00S00214.superm +++|,P1 [SETUP THIS] 00271 M00S00215.superm +++| =(*N=0,PROCFIL=1,ZZZZVDI=2) 00272 M00S00216.superm +++|. 00273 M00S00217.superm +++|IF,((P1.EQ.0).OR.(P1.EQ.2)),SETUP1. 00274 M00S00218.superm +++| * INSTALL ZZZZVDI. 00275 M00S00219.superm +++| PURGE(ZZZZVDI/NA) 00276 M00S00220.superm +++| DEFINE(ZZZZVDI) 00277 M00S00221.superm +++| PERMIT(ZZZZVDI,INSTALL=W) 00278 M00S00222.superm +++| RETURN(ZZZZVDI) 00279 M00S00223.superm +++| SKIP,SETUP1. 00280 M00S00224.superm +++| EXIT.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00281 M01S00001.superm4 +++| IF,PNL.EQ.2,SETUP3.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00282 M01S00009.superm1 +++| RETURN,*,OUTPUT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00283 M01S00002.superm4 +++| ENDIF,SETUP3. 00284 M00S00225.superm +++| *************************************** 00285 M00S00226.superm +++| * * 00286 M00S00227.superm +++| * SETUP FAILED WHILE TRYING * 00287 M00S00228.superm +++| * TO CREATE ZZZZVDI. PLEASE EXAMINE * 00288 M00S00229.superm +++| * THE OUTPUT TO ISOLATE THE CAUSE. * 00289 M00S00230.superm +++| * * 00290 M00S00231.superm +++| * WHEN YOU HAVE READ THIS MESSAGE * 00291 M00S00232.superm +++| * * 00292 M00S00233.superm +++| * ENTER: ASSIGN,JSN,2. * 00293 M00S00234.superm +++| * * 00294 M00S00235.superm +++| ***************************************
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00295 M01S00003.superm4 +++| IF,PNL.EQ.2,SETUP4. 00296 M00S00236.superm +++| REQUEST(OPER) SETUP FAILED 00297 M00S00237.superm +++| RETURN(OPER)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00298 M01S00004.superm4 +++| ELSE,SETUP4. 00299 M01S00005.superm4 +++| REVERT,EX.REVERT,ABORT. SETUP FAILED. 00300 M01S00006.superm4 +++| ENDIF,SETUP4. 00301 M00S00238.superm +++| REVERT. SETUP FAILED 00302 M00S00239.superm +++|ENDIF,SETUP1. 00303 M00S00240.superm +++|IF,((P1.EQ.0).OR.(P1.EQ.1)),SETUP2. 00304 M00S00241.superm +++| * INSTALL THE PROCFILS, ZZZPFIL AND ZZPPFIL. 00305 M00S00242.superm +++| COMMON(SYSTEM) 00306 M00S00243.superm +++| PURGE(ZZZPFIL,ZZPPFIL/NA) 00307 M00S00244.superm +++| DEFINE(ZZZPFIL) 00308 M00S00245.superm +++| DEFINE(ZZPPFIL/CT=PU) 00309 M00S00246.superm +++| PERMIT(ZZZPFIL,INSTALL=W) 00310 M00S00247.superm +++| GTR(SYSTEM,TEMP)ULIB/SUPERM 00311 M00S00248.superm +++| GTR(TEMP)SPRI-EPRI 00312 M00S00249.superm +++| LIBEDIT(N=ZZZPFIL,P=0,Z)/*FILE LGO/*IGNORE,SPRI,EPRI/*BUILD ZZZPFIL 00313 M00S00250.superm +++| RETURN,LGO. 00314 M00S00251.superm +++| GTR(TEMP)SPUB-EPUB 00315 M00S00252.superm +++| LIBEDIT(N=ZZPPFIL,P=0,Z)/*FILE LGO/*IGNORE,SPUB,EPUB/*BUILD ZZPPFIL 00316 M00S00253.superm +++| ENDIF,SETUP2.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00317 M01S00007.superm4 +++| IF,PNL.EQ.2,SETUP5. 00318 M00S00254.superm +++| BEGIN(SUCCESS,ZZZPFIL,SETUP)
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00319 M01S00008.superm4 +++| ENDIF,SETUP5. 00320 M00S00255.superm +++| WRITEF,OUTPUT. 00321 M00S00256.superm +++| REVERT. SETUP COMPLETE 00322 M00S00257.superm +++| EXIT.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00323 M01S00009.superm4 +++| IF,PNL.EQ.2,SETUP6.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00324 M01S00010.superm1 +++| RETURN,*,OUTPUT.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00325 M01S00010.superm4 +++| ENDIF,SETUP6. 00326 M00S00258.superm +++| *************************************** 00327 M00S00259.superm +++| * * 00328 M00S00260.superm +++| * SETUP FAILED WHILE TRYING * 00329 M00S00261.superm +++| * TO CREATE PROCFILS. PLEASE EXAMINE * 00330 M00S00262.superm +++| * THE OUTPUT TO ISOLATE THE CAUSE. * 00331 M00S00263.superm +++| * * 00332 M00S00264.superm +++| * WHEN YOU HAVE READ THIS MESSAGE * 00333 M00S00265.superm +++| * * 00334 M00S00266.superm +++| * ENTER: ASSIGN,JSN,2. * 00335 M00S00267.superm +++| * * 00336 M00S00268.superm +++| ***************************************
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00337 M01S00011.superm4 +++| IF,PNL.EQ.2,SETUP7. 00338 M00S00269.superm +++| REQUEST(OPER) SETUP FAILED 00339 M00S00270.superm +++| RETURN(OPER)
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | superm4 |
Seq # *Modification Id* Act ----------------------------+ 00340 M01S00012.superm4 +++| ELSE,SETUP7. 00341 M01S00013.superm4 +++| REVERT,EX.REVERT,ABORT. SETUP FAILED. 00342 M01S00014.superm4 +++| ENDIF,SETUP7. 00343 M00S00271.superm +++| REVERT. SETUP FAILED 00344 M00S00272.superm +++|.EXPAND. 00345 M00S00273.superm +++|.ENDIF,MS10. 00346 M00S00274.superm +++|*WEOR 00347 M00S00275.superm +++|SPUB 00348 M00S00276.superm +++|*WEOR 00349 M00S00277.superm +++|.PROC,CPASS*I 00350 M00S00278.superm +++|,OLDPASS [OLD PASSWORD] 00351 M00S00279.superm +++| =(*S7(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)), 00352 M00S00280.superm +++|,NEWPASS [NEW PASSWORD] 00353 M00S00281.superm +++| =(*S7(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)), 00354 M00S00282.superm +++|,NPASS [ENTER NEW PASSWORD AGAIN] 00355 M00S00283.superm +++| =(*S7(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)). 00356 M00S00284.superm +++|.* 00357 M00S00285.superm +++|.* COMMAND FORMAT : MS(CPASS) 00358 M00S00286.superm +++|.* THIS PROCEDURE CAN BE RUN FROM ANY TERMINAL LOGGED INTO A VALID 00359 M00S00287.superm +++|.* USER NAME. CPASS WILL ASK FOR THE OLD PASSWORD AND THE NEW 00360 M00S00288.superm +++|.* PASSWORD. THEN IT WILL ASK FOR THE NEW PASSWORD AGAIN. IF THE 00361 M00S00289.superm +++|.* SECOND REPONSE MATCHES THE FIRST, CPASS WILL CHANGE BOTH THE 00362 M00S00290.superm +++|.* BATCH AND INTERACTIVE PASSWORDS TO THE NEW PASSWORD. IF THE 00363 M00S00291.superm +++|.* NEW PASSWORD IS NOT TYPED IN THE SAME BOTH TIMES CPASS WILL 00364 M00S00292.superm +++|.* ASK THE USER TO TRY AGAIN. 00365 M00S00293.superm +++|.* 00366 M00S00294.superm +++|.IF, $NEWPASS$ .NE. $NPASS$, CPASS1. 00367 M00S00295.superm +++|NOTE(OUTPUT,NR)++ YOUR NEW PASSWORDS DISAGREE. TRY AGAIN.+ 00368 M00S00296.superm +++|SET,R1G=1. 00369 M00S00297.superm +++|.ELSE,CPASS1. 00370 M00S00298.superm +++|PASSWOR,OLDPASS,NEWPASS. 00371 M00S00299.superm +++|SUBMIT,CHGPASS,N. 00372 M00S00300.superm +++|.ENDIF,CPASS1. 00373 M00S00301.superm +++|REVERT. CPASS COMPLETED. 00374 M00S00302.superm +++|.DATA,CHGPASS 00375 M00S00303.superm +++|/JOB
| Line S00304 Modification History | |
|---|---|
M01 (Removed by) | super17 |
Seq # *Modification Id* Act ----------------------------+ 00376 M01S00304.super17 ---|USERNAME.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | super17 |
Seq # *Modification Id* Act ----------------------------+ 00377 M01S00001.super17 +++|PASSWOR. 00378 M00S00305.superm +++|/USER 00379 M00S00306.superm +++|PASSWOR,OLDPASS,NEWPASS. 00380 M00S00307.superm +++|EXIT. 00381 M00S00308.superm +++|*WEOR 00382 M00S00309.superm +++|.PROC,FINDJSN*I 00383 M00S00310.superm +++|,JSN [JOB SEQUENCE NUMBER] 00384 M00S00311.superm +++| =(*S4(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)). 00385 M00S00312.superm +++|.* 00386 M00S00313.superm +++|.* COMMAND FORMAT : *FINDJSN(JSN)* 00387 M00S00314.superm +++|.* THIS PROCEDURE PRINTS ALL DAYFILE ENTRIES FOR A SPECIFIC JOB 00388 M00S00315.superm +++|.* BY EXAMINING THE CURRENT ACTIVE SYSTEM DAYFILE FOR ALL ENTRIES 00389 M00S00316.superm +++|.* MADE BY THE JOB WITH A SPECIFIC JSN. 00390 M00S00317.superm +++|.* 00391 M00S00318.superm +++|ATTACH,DF=DAYFILE/UN=SYSTEMX/NA. 00392 M00S00319.superm +++|IF,.NOT.FILE(DF,AS),FNDJSN1. 00393 M00S00320.superm +++|SET,R1G=1. ABORT. 00394 M00S00321.superm +++|NOTE.++ DAYFILE NOT FOUND IN SYSTEMX.+ 00395 M00S00322.superm +++|RETURN,DF,FIEDIT. 00396 M00S00323.superm +++|WRITEF,OUTPUT. 00397 M00S00324.superm +++|REVERT. FINDJSN ABORTED. 00398 M00S00325.superm +++|ENDIF,FNDJSN1.
| Line S00326 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00326.superm2 ---|EDIT,DF,I=FIEDIT.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00400 M01S00002.superm2 +++|EDIT,DF,I=FIEDIT,L=ZZLIST. 00401 M01S00003.superm2 +++|REWIND,*,OUTPUT. 00402 M01S00004.superm2 +++|SKIP,FINDJS1. 00403 M01S00005.superm2 +++|EXIT. 00404 M01S00006.superm2 +++|REVERT,ABORT. FINDJSN FAILED. 00405 M01S00007.superm2 +++|ENDIF,FINDJS1. 00406 M01S00008.superm2 +++|VERIFY,ZZLIST,ZZZFIND,A. 00407 M01S00009.superm2 +++|.* IF THE FILES VERIFY THAN THE JSN WAS NOT FOUND IN THE DAYFILE. 00408 M01S00010.superm2 +++|SET,R1G=1. 00409 M01S00011.superm2 +++|NOTE(OUTPUT,NR)* * 00410 M01S00012.superm2 +++|NOTE(OUTPUT,NR)* ERROR-- #JSN JSN WAS NOT FOUND * 00411 M01S00013.superm2 +++|NOTE(OUTPUT,NR)* IN THE DAYFILE. RETRY WITH A * 00412 M01S00014.superm2 +++|NOTE(OUTPUT,NR)* DIFFERENT #JSN. * 00413 M01S00015.superm2 +++|NOTE(OUTPUT,NR)* * 00414 M01S00016.superm2 +++|ROLLOUT,7. 00415 M01S00017.superm2 +++|REVERT. FINDJSN FAILED. 00416 M01S00018.superm2 +++|EXIT. 00417 M01S00019.superm2 +++|REWIND,*,OUTPUT. 00418 M01S00020.superm2 +++|COPYEI,ZZLIST,OUTPUT. 00419 M00S00327.superm +++|RETURN,DF,FIEDIT. 00420 M00S00328.superm +++|WRITEF,OUTPUT. 00421 M00S00329.superm +++|REVERT. FINDJSN COMPLETED.
| Line S00330 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00422 M01S00330.superm2 ---|EXIT. 00423 M01S00331.superm2 ---|RETURN,DF,FIEDIT. 00424 M01S00332.superm2 ---|REVERT. FINDJSN FAILED. 00425 M00S00333.superm +++|.DATA,FIEDIT 00426 M00S00334.superm +++|L:/. JSN/;* 00427 M00S00335.superm +++|END
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00428 M01S00021.superm2 +++|.DATA,ZZZFIND. 00429 M01S00022.superm2 +++| BEGIN TEXT EDITING. 00430 M01S00023.superm2 +++| -END OF FILE- 00431 M01S00024.superm2 +++| END TEXT EDITING. 00432 M00S00336.superm +++|*WEOR 00433 M00S00337.superm +++|.PROC,LOADLOG*I 00434 M00S00338.superm +++|,VSN [VOLUME SERIAL NUMBER] 00435 M00S00339.superm +++| =(*S6(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)), 00436 M00S00340.superm +++|,ACCOUNT [LOAD ACCOUNT FILE. ENTER YES OR NO] 00437 M00S00341.superm +++| =(NO,YES), 00438 M00S00342.superm +++|,DAYFILE [LOAD DAYFILE FILE. ENTER YES OR NO] 00439 M00S00343.superm +++| =(NO,YES), 00440 M00S00344.superm +++|,ERRLOG [LOAD ERRLOG FILE. ENTER YES OR NO] 00441 M00S00345.superm +++| =(NO,YES), 00442 M00S00346.superm +++|,MAINLOG [LOAD MAINLOG FILE. ENTER YES OR NO] 00443 M00S00347.superm +++| =(NO,YES). 00444 M00S00348.superm +++|.* 00445 M00S00349.superm +++|.* COMMAND FORMAT : *LOADLOG(VSN,ACCOUNT,DAYFILE,ERRLOG,MAINLOG)* 00446 M00S00350.superm +++|.* THIS PROCEDURE USES RECLAIM TO LOAD THE PERMANENT FILES (ACCOUNT, 00447 M00S00351.superm +++|.* DAYFILE, ERRLOG, AND MAINLOG) FROM A TAPE CREATED BY ENDLOG. 00448 M00S00352.superm +++|.* THE TAPE IS A GE DENSITY LABELED TAPE WITH A VSN. 00449 M00S00353.superm +++|.* ANY SUBSET OF THESE LOGS MAY BE LOADED. 00450 M00S00354.superm +++|.* 00451 M00S00355.superm +++|EDIT,INDIR,I=LOEDIT,L=ZZSCR. 00452 M00S00356.superm +++|RECLAIM,I=INDIR,DB=0. 00453 M00S00357.superm +++|UNLOAD,INDIR,TAPE,LOEDIT,ZZSCR. 00454 M00S00358.superm +++|WRITEF,OUTPUT. 00455 M00S00359.superm +++|REVERT. LOADLOG COMPLETED. 00456 M00S00360.superm +++|EXIT. 00457 M00S00361.superm +++|UNLOAD,INDIR,TAPE,LOEDIT,ZZSCR. 00458 M00S00362.superm +++|WRITEF,OUTPUT. 00459 M00S00363.superm +++|REVERT. LOADLOG FAILED. 00460 M00S00364.superm +++|.DATA,INDIR 00461 M00S00365.superm +++|LOAD,D=GE,NT,TN=VSN,RP=Y,PF=* 00462 M00S00366.superm +++|.IF,$ACCOUNT$ .EQ. $YES$.#ACCOUNT+ 00463 M00S00367.superm +++|.IF,$DAYFILE$ .EQ. $YES$.-#DAYFILE+ 00464 M00S00368.superm +++|.IF,$ERRLOG$ .EQ. $YES$.-#ERRLOG+ 00465 M00S00369.superm +++|.IF,$MAINLOG$ .EQ. $YES$.-#MAINLOG 00466 M00S00370.superm +++|.DATA,LOEDIT 00467 M00S00371.superm +++|CS:/+/,/-/;* 00468 M00S00372.superm +++|/,/ 00469 M00S00373.superm +++|RS:/+/,/ /;1 00470 M00S00374.superm +++|DS:/-/;1 00471 M00S00375.superm +++|END 00472 M00S00376.superm +++|*WEOR 00473 M00S00377.superm +++|.PROC,VERIAT*I 00474 M00S00378.superm +++|,P1 [TOOL] 00475 M00S00379.superm +++| =(WRITEVI=1,FINDJSN=1,LOADLOG=1,CPASS=1,1=L,*A) 00476 M00S00380.superm +++|. 00477 M00S00381.superm +++|.IF,($P1$.EQ.$1$).REVERT,NOLIST. TOOL SUPPORTED FROM TERMINAL 00478 M00S00382.superm +++|NOTE(OUTPUT)* P1 NOT SUPPORTED FROM A TERMINAL 00479 M00S00383.superm +++|ROLLOUT(5) 00480 M00S00384.superm +++|REVERT,EX.REVERT. P1 FAILED 00481 M00S00385.superm +++|*WEOR 00482 M00S00386.superm +++|EPUB 00483 M00S00387.superm +++|*WEOR 00484 M00S00388.superm +++|SPRI 00485 M00S00389.superm +++|*WEOR 00486 M00S00390.superm +++|.PROC,BLANKST*I"BLANK LABEL A SET OF TAPES" 00487 M00S00391.superm +++|,SETNAME [SETNAME OF DUMP TAPES] 00488 M00S00392.superm +++| =(*A,*N=) 00489 M00S00393.superm +++|,NUMBER [NUMBER OF DUMP TAPES TO BLANK LABEL] 00490 M00S00394.superm +++| =(*A,*N=) 00491 M00S00395.superm +++|. 00492 M00S00396.superm +++|.* 00493 M00S00397.superm +++|.* COMMAND FORMAT : *X.MS(BLANKST,SETNAME,NUMBER)* 00494 M00S00398.superm +++|.* WHERE NUMBER IS THE NUMBER OF VOLUMES TO BE LABELED. 00495 M00S00399.superm +++|.* THIS PROCEDURE BLANK LABELS (NUMBER) TAPES USING (SETNAME) 00496 M00S00400.superm +++|.* AS THE ROOT. THE VSNS WILL BE; 00497 M00S00401.superm +++|.* SETNAME_1 SETNAME_2 .... (MAX OF 8 TAPES) 00498 M00S00402.superm +++| 00499 M00S00403.superm +++| 00500 M00S00404.superm +++|.* 00501 M00S00405.superm +++|BEGIN,VERSETN,ZZZPFIL,SETNAME. VERIFY SETNAME 00502 M00S00406.superm +++|SKIP,BLANKST1. 00503 M00S00407.superm +++| EXIT. 00504 M00S00408.superm +++| BEGIN,ERRSETN,ZZZPFIL,BLANKST,SETNAME. 00505 M00S00409.superm +++| SET(R1G=1) 00506 M00S00410.superm +++| WRITEF,OUTPUT. 00507 M00S00411.superm +++| REVERT. BLANKST FAILED 00508 M00S00412.superm +++|ENDIF,BLANKST1. 00509 M00S00413.superm +++|BEGIN,VERSETM,ZZZPFIL,NUMBER. VERIFY MAX SETNAME 00510 M00S00414.superm +++|SKIP,BLANKST2. 00511 M00S00415.superm +++| EXIT. 00512 M00S00416.superm +++| BEGIN,ERRSETM,ZZZPFIL,BLANKST,NUMBER. 00513 M00S00417.superm +++| SET(R1G=1) 00514 M00S00418.superm +++| WRITEF,OUTPUT. 00515 M00S00419.superm +++| REVERT. BLANKST FAILED 00516 M00S00420.superm +++|ENDIF,BLANKST2. 00517 M00S00421.superm +++| 00518 M00S00422.superm +++|SET,R1=0. 00519 M00S00423.superm +++|WHILE,R1 .LT. NUMBER, BLANKST3. 00520 M00S00424.superm +++|SET,R1=R1+1. 00521 M00S00425.superm +++|BEGIN,BLANKX,ZZZPFIL,SETNAME,R1+D,BLANKST. 00522 M00S00426.superm +++|ENDW,BLANKST3. 00523 M00S00427.superm +++|WRITEF,OUTPUT. 00524 M00S00428.superm +++|REVERT. BLANKST COMPLETED
| Line S00429 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00525 M01S00429.superm1 ---|EXIT. 00526 M01S00430.superm1 ---|WRITEF,OUTPUT. 00527 M01S00431.superm1 ---|REVERT. BLANKST FAILED. 00528 M00S00432.superm +++|*WEOR 00529 M00S00433.superm +++|.PROC,BLANKX,ROOT,TAPENUM,P1. 00530 M00S00434.superm +++|*************************************** 00531 M00S00435.superm +++|* * 00532 M00S00436.superm +++|* TO ASSIGN A TAPE TO A TAPE DRIVE * 00533 M00S00437.superm +++|* ENTER: ASSIGN,JSN,NN. * 00534 M00S00438.superm +++|* WHERE NN IS THE EST OF THE * 00535 M00S00439.superm +++|* TAPE DRIVE, FOUND IN THE E,T * 00536 M00S00440.superm +++|* DISPLAY. * 00537 M00S00441.superm +++|* * 00538 M00S00442.superm +++|*************************************** 00539 M00S00443.superm +++|BLANK,VSN=ROOT_TAPENUM,D=GE. 00540 M00S00444.superm +++|REVERT,NOLIST. BLANKX COMPLETE. 00541 M00S00445.superm +++|EXIT.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00542 M01S00011.superm1 +++|RETURN,*,OUTPUT. 00543 M00S00446.superm +++|SET,R1G=1. 00544 M00S00447.superm +++|*************************************** 00545 M00S00448.superm +++|* * 00546 M00S00449.superm +++|* ERROR--BLANKST : SETNAME=ROOT * 00547 M00S00450.superm +++|* MAY BE OPERATOR TERMINATION ELSE * 00548 M00S00451.superm +++|* CONSULT DAYFILE. THEN TRY AGAIN * 00549 M00S00452.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00550 M00S00453.superm +++|* * 00551 M00S00454.superm +++|* ENTER: ASSIGN,JSN,2. * 00552 M00S00455.superm +++|* * 00553 M00S00456.superm +++|*************************************** 00554 M00S00457.superm +++|REQUEST,OPER. P1 FAILED. 00555 M00S00458.superm +++|RETURN,OPER.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | super18 |
Seq # *Modification Id* Act ----------------------------+ 00556 M01S00001.super18 +++|WRITEF,OUTPUT. 00557 M00S00459.superm +++|REVERT,EX. REVERT. BLANKST FAILED. 00558 M00S00460.superm +++|*WEOR 00559 M00S00461.superm +++|.PROC,DUMPALL*I"DUMP ALL FILES" 00560 M00S00462.superm +++|,P1 [SETNAME OF DUMP TAPES] 00561 M00S00463.superm +++| =(*A,*N=) 00562 M00S00464.superm +++|. 00563 M00S00465.superm +++|.* 00564 M00S00466.superm +++|.* COMMAND FORMAT : *X.MS(DUMPALL,SETNAME)* 00565 M00S00467.superm +++|.* THIS PROCEDURE DUMPS ALL PERMANENT FILES TO THE SET OF 00566 M00S00468.superm +++|.* TAPES IDENTIFIED BY SETNAME. DUMPALL WILL ALSO CREATE
| Line S00469 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00567 M01S00469.superm1 ---|.* A PERMANENT FILE, ZZZDUMP, ON USER NAME SYSTEMX WHICH
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00568 M01S00012.superm1 +++|.* A PERMANENT FILE, ZZDUMPM, ON USER NAME SYSTEMX WHICH
| Line S00470 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00569 M01S00470.superm2 ---|.* CONTAINS THE SETNAME FOR THIS DUMP AND THE DATE OF THE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00570 M01S00025.superm2 +++|.* CONTAINS THE SETNAME FOR THIS DUMP AND THE DATE AND TIME OF THE 00571 M00S00471.superm +++|.* DUMP. THIS INFORMATION IS USED TO CONNECT THIS DUMP 00572 M00S00472.superm +++|.* WITH SUBSEQUENT DUMPS OF FILES THAT ARE MODIFIED
| Line S00473 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00573 M01S00473.superm1 ---|.*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00574 M01S00013.superm1 +++|.* AFTER THIS DUMP. 00575 M01S00014.superm1 +++|.* 00576 M00S00474.superm +++|.* WHEN THIS PROCEDURE COMPLETES CHECK THE DAYFILE 00577 M00S00475.superm +++|.* TO DETERMINE THAT ALL THE FILES WERE DUMPED. IT 00578 M00S00476.superm +++|.* IS POSSIBLE FOR DUMPALL TO COMPLETE SUCESSFULLY 00579 M00S00477.superm +++|.* AND NOT HAVE ALL THE FILES DUMPED TO TAPE. IF
| Line S00478 Modification History | |
|---|---|
M01 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00580 M01S00478.superm3 ---|.* A DIRECT ACCESS FILE IS ATTACHED TO A JOB THEN
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00581 M01S00048.superm3 +++|.* A DIRECT ACCESS FILE IS ATTACHED IN WRITE MODE TO A JOB THEN 00582 M00S00479.superm +++|.* THAT FILE IS SKIPPED BY DUMPALL. 00583 M00S00480.superm +++|.* 00584 M00S00481.superm +++|BEGIN(LABELS,ZZZPFIL,P1,DUMPALL,DATE+D)
| Line S00482 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00585 M01S00482.superm1 ---|IF,R1G.EQ.1.REVERT. DUMPALL FAILED
| Line S00483 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00586 M01S00483.superm2 ---|BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1)
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00587 M01S00026.superm2 +++|BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1,TIME+D) 00588 M00S00484.superm +++|WRITEF,OUTPUT. 00589 M00S00485.superm +++|REVERT. DUMPALL COMPLETED 00590 M00S00486.superm +++|*WEOR 00591 M00S00487.superm +++|.PROC,DUMPFUL*I 00592 M00S00488.superm +++|,P [DATE OF FULL DUMP] 00593 M00S00489.superm +++| =(*A) 00594 M00S00490.superm +++|,P2 [SETNAME OF FULL DUMP]
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00595 M01S00027.superm2 +++| =(*A) 00596 M01S00028.superm2 +++|,P3 [TIME OF FULL DUMP] 00597 M00S00491.superm +++| =(*A).
| Line S00492 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00598 M01S00492.superm1 ---|REPLACE,INDIR2. * P1 = VSN OF FULL DUMP*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00599 M01S00015.superm1 +++|REPLACE,ZZDUMPM. *P = CURRENT DATE. * 00600 M00S00493.superm +++|PFDUMP. 00601 M00S00494.superm +++|REVERT,NOLIST. DUMPFUL COMPLETED.
| Line S00495 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00602 M01S00495.superm1 ---|.DATA,INDIR2. 00603 M01S00496.superm1 ---|.PROC,INDIR2. 00604 M01S00497.superm1 ---|PFDUMP,OP=M,AD=P,PVSN=P2_1. * P0 = VSN OF INCREMENTAL DUMP *
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00605 M01S00016.superm1 +++|.DATA,ZZDUMPM 00606 M01S00017.superm1 +++|.PROC,ZZDUMPM.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | superm1 |
M02 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00607 M02S00018.superm2 ---|PFDUMP,OP=M,AD=P,PVSN=P2_1. *P2 = SETNAME OF FULL DUMP. *
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | superm2 |
M02 (Removed by) | superm6 |
Seq # *Modification Id* Act ----------------------------+ 00608 M02S00029.superm6 ---|PFDUMP,OP=M,AD=P,AT=P3,PVSN=P2_1. * P2 = SETNAME OF FULL DUMP. *
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | superm6 |
Seq # *Modification Id* Act ----------------------------+ 00609 M01S00001.superm6 +++|PFDUMP,OP=M,AD=P,AT=P3_00,PVSN=P2_1. * P2 = SETNAME OF FULL DUMP. *
| Line S00498 Modification History | |
|---|---|
M01 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00610 M01S00498.superm3 ---|REVERT,NOLIST. INDIR2 COMPLETED.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 00611 M01S00049.superm3 +++|REVERT,NOLIST. ZZDUMPM COMPLETED. 00612 M00S00499.superm +++|*WEOR 00613 M00S00500.superm +++|.PROC,DUMPLOG*I 00614 M00S00501.superm +++|,VSN [VOLUME SERIAL NUMBER] 00615 M00S00502.superm +++| =(*A,*N=) 00616 M00S00503.superm +++|,P [PURGE ON/OFF] 00617 M00S00504.superm +++| =(*A,*N=). 00618 M00S00505.superm +++|.* 00619 M00S00506.superm +++|.* COMMAND FORMAT : *DUMPLOG(VSN,PURGE)* 00620 M00S00507.superm +++|.* THIS PROCEDURE USES RECLAIM TO DUMP PERMANENT FILES 00621 M00S00508.superm +++|.* (ACCOUNT, DAYFILE, ERRLOG, AND MAINLOG) CREATED BY 00622 M00S00509.superm +++|.* PROCEDURE ENDLOG TO TAPE. THE TAPE IS A GE DENSITY 00623 M00S00510.superm +++|.* LABELED TAPE WITH A VSN. IF PARAMETER PURGE IS SET 00624 M00S00511.superm +++|.* TO PURGE, THE PERMANENT FILES ARE PURGED AFTER THEY 00625 M00S00512.superm +++|.* ARE DUMPED. IF PURGE IS NOT SUPPLIED, THE FILES WILL 00626 M00S00513.superm +++|.* NOT BE PURGED. 00627 M00S00514.superm +++|.* 00628 M00S00515.superm +++|BEGIN,VERPURG,ZZZPFIL,P,DUMPLOG. 00629 M00S00516.superm +++| 00630 M00S00517.superm +++|ATTACH,ACCOUNT/NA. 00631 M00S00518.superm +++|ATTACH,DAYFILE/NA. 00632 M00S00519.superm +++|ATTACH,ERRLOG/NA. 00633 M00S00520.superm +++|ATTACH,MAINLOG/NA.
| Line S00521 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00634 M01S00521.superm1 ---|IF,FILE(ACCOUNT,LO),DUMPLOG2. 00635 M01S00522.superm1 ---|IF,FILE(DAYFILE,LO),DUMPLOG2. 00636 M01S00523.superm1 ---|IF,FILE(ERRLOG,LO),DUMPLOG2. 00637 M01S00524.superm1 ---|IF,FILE(MAINLOG,LO),DUMPLOG2. 00638 M01S00525.superm1 ---|ELSE,DUMPLOG2. 00639 M01S00526.superm1 ---|RETURN,*.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00640 M01S00019.superm1 +++|IF,(FILE(ACCOUNT,PM).AND. 00641 M01S00020.superm1 +++| FILE(DAYFILE,PM).AND. 00642 M01S00021.superm1 +++| FILE(MAINLOG,PM).AND. 00643 M01S00022.superm1 +++| FILE(ERRLOG,PM)).SKIP,DUMPLOG2. 00644 M01S00023.superm1 +++|RETURN,*,OUTPUT. 00645 M00S00527.superm +++|SET,R1G=1. 00646 M00S00528.superm +++|**************************************** 00647 M00S00529.superm +++|* * 00648 M00S00530.superm +++|* ERROR-- DUMPLOG FAILED * 00649 M00S00531.superm +++|* ENDLOG OR ENDDF MUST BE EXECUTED * 00650 M00S00532.superm +++|* BEFORE DUMPLOG. EXAMINE THE * 00651 M00S00533.superm +++|* OUTPUT FROM THIS JOB TO * 00652 M00S00534.superm +++|* DETERMINE THE CAUSE OF THE * 00653 M00S00535.superm +++|* FAILURE. * 00654 M00S00536.superm +++|* * 00655 M00S00537.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00656 M00S00538.superm +++|* * 00657 M00S00539.superm +++|* ENTER: ASSIGN,JSN,2. * 00658 M00S00540.superm +++|*************************************** 00659 M00S00541.superm +++|REQUEST,OPER. DUMPLOG FAILED. 00660 M00S00542.superm +++|RETURN,OPER. 00661 M00S00543.superm +++|REVERT. DUMPLOG FAILED. 00662 M00S00544.superm +++|ENDIF,DUMPLOG2. 00663 M00S00545.superm +++|RETURN,ACCOUNT,DAYFILE,ERRLOG,MAINLOG. 00664 M00S00546.superm +++| 00665 M00S00547.superm +++| 00666 M00S00548.superm +++|BEGIN(LABELV,ZZZPFIL,VSN,DUMPLOG,DATE+D) 00667 M00S00549.superm +++|
| Line S00550 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00668 M01S00550.superm1 ---|RECLAIM,Z./DUMP,D=GE,NT,TN=VSN,PF=*/ACCOUNT,DAYFILE,ERRLOG,MAINLOG
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | superm1 |
M02 (Removed by) | super13 |
Seq # *Modification Id* Act ----------------------------+ 00669 M02S00024.super13 ---|RECLAIM,Z./DUMP,D=GE,EI=NO,NT,TN=VSN,PF=*/ACCOUNT,DAYFILE,ERRLOG,MAINLOG
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | super13 |
Seq # *Modification Id* Act ----------------------------+ 00670 M01S00001.super13 +++|RECLAIM,Z./DUMP,EI=NO,DN=TAPE,PF=*/ACCOUNT,DAYFILE,ERRLOG,MAINLOG 00671 M00S00551.superm +++|IF,$P$.EQ.$PURGE$,DUMPLOG1. 00672 M00S00552.superm +++| PURGE,ACCOUNT,DAYFILE,ERRLOG,MAINLOG/NA. 00673 M00S00553.superm +++|ENDIF,DUMPLOG1. 00674 M00S00554.superm +++|WRITEF,OUTPUT. 00675 M00S00555.superm +++|REVERT. DUMPLOG COMPLETED. 00676 M00S00556.superm +++|*WEOR 00677 M00S00557.superm +++|.PROC,DUMPMOD*I"DUMP MODIFIED FILES" 00678 M00S00558.superm +++|,P1 [SETNAME OF DUMP TAPES] 00679 M00S00559.superm +++| =(*A,*N=) 00680 M00S00560.superm +++|. 00681 M00S00561.superm +++|.* 00682 M00S00562.superm +++|.* COMMAND FORMAT : *X.MS(DUMPMOD,SETNAME)* 00683 M00S00563.superm +++|.* THIS PROCEDURE WILL DUMP PERMANENT FILES THAT HAVE BEEN
| Line S00564 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00684 M01S00564.superm2 ---|.* MODIFIED SINCE THE LAST DUMP OF ALL THE FILES. DUMPMOD 00685 M01S00565.superm2 ---|.* USES THE INFORMATION ON THE FILE ZZZDUMP TO DETERMINE
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00686 M01S00030.superm2 +++|.* MODIFIED SINCE THE LAST DUMPALL. DUMPMOD USES 00687 M01S00031.superm2 +++|.* THE INFORMATION ON THE FILE ZZDUMPM TO DETERMINE 00688 M00S00566.superm +++|.* WHEN DUMPALL WAS LAST CALLED. IT ALSO STORES THE VSN 00689 M00S00567.superm +++|.* OF THE FIRST TAPE USED IN THE DUMPALL ON THIS DUMP. 00690 M00S00568.superm +++|.* 00691 M00S00569.superm +++|BEGIN(LABELS,ZZZPFIL,P1,DUMPMOD,DATE+D) 00692 M00S00570.superm +++|IF,R1G.EQ.1.REVERT. DUMPMOD FAILED 00693 M00S00571.superm +++| 00694 M00S00572.superm +++|
| Line S00573 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00695 M01S00573.superm1 ---|GET,INDIR2/NA. 00696 M01S00574.superm1 ---|IF,FILE(INDIR2,LO),DUMPMOD2. 00697 M01S00575.superm1 ---| BEGIN,,INDIR2.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00698 M01S00025.superm1 +++|GET,ZZDUMPM/NA. 00699 M01S00026.superm1 +++|IF,FILE(ZZDUMPM,LO),DUMPMOD2. 00700 M01S00027.superm1 +++| BEGIN,,ZZDUMPM. 00701 M00S00576.superm +++|ELSE,DUMPMOD2.
| Line S00577 Modification History | |
|---|---|
M01 (Removed by) | superm6 |
Seq # *Modification Id* Act ----------------------------+ 00702 M01S00577.superm6 ---| BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | superm6 |
Seq # *Modification Id* Act ----------------------------+ 00703 M01S00002.superm6 +++| BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1,TIME+D) 00704 M00S00578.superm +++| ************************************ 00705 M00S00579.superm +++| * A DUMPALL WAS PERFORMED BECAUSE 00706 M00S00580.superm +++| * THE RECORD OF WHEN THE LAST DUMPALL 00707 M00S00581.superm +++| * WAS PERFORMED WAS NOT FOUND. 00708 M00S00582.superm +++| ************************************** 00709 M00S00583.superm +++| WRITEF,OUTPUT.
| Line S00584 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00710 M01S00584.superm2 ---| REVERT. DUMPMOD COMPLETED
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00711 M01S00032.superm2 +++| REVERT. DUMPALL COMPLETED. 00712 M00S00585.superm +++|ENDIF,DUMPMOD2. 00713 M00S00586.superm +++|WRITEF,OUTPUT.
| Line S00587 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00714 M01S00587.superm2 ---|REVERT. DUMPMOD FAILED.
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 00715 M01S00033.superm2 +++|REVERT. DUMPMOD COMPLETED. 00716 M00S00588.superm +++|*WEOR 00717 M00S00589.superm +++|.PROC,DUMPOLD*I"ARCHIVE FILES" 00718 M00S00590.superm +++|,P1 [SETNAME OF TAPES TO BE USED] 00719 M00S00591.superm +++| =(*A,*N=) 00720 M00S00592.superm +++|,P2 [LAST ACCESS BEFORE DATE CUTOFF] 00721 M00S00593.superm +++| =(*A,*N=). 00722 M00S00594.superm +++|.* 00723 M00S00595.superm +++|.* COMMAND FORMAT : *X.MS(DUMPOLD,SETNAME,DATE)* 00724 M00S00596.superm +++|.* THIS PROCEDURE WILL DUMP PERMANENT FILES THAT HAVE NOT 00725 M00S00597.superm +++|.* BEEN READ, EXECUTED OR WRITTEN AFTER DATE. AFTER THESE 00726 M00S00598.superm +++|.* FILES HAVE BEEN DUMPED THEY WILL BE PURGED. THE OUTPUT 00727 M00S00599.superm +++|.* FROM THIS PROC WILL BE STORED ON A PERMANENT FILE ON 00728 M00S00600.superm +++|.* SYSTEMX NAMED DYYMMDD WHERE YYMMDD IS THE DATE OF THE DUMP. 00729 M00S00601.superm +++|.* 00730 M00S00602.superm +++|BEGIN,VERDATE,ZZZPFIL,P2,DUMPQUE. 00731 M00S00603.superm +++| 00732 M00S00604.superm +++|*************************************** 00733 M00S00605.superm +++|* NOTE--IF THIS PROCEDURE CONTINUES, * 00734 M00S00606.superm +++|* PERMANENT FILES HAVING A LAST * 00735 M00S00607.superm +++|* ACCESS DATE PRIOR TO P2 ARE * 00736 M00S00608.superm +++|* DUMPED TO TAPE AND PURGED. * 00737 M00S00609.superm +++|* * 00738 M00S00610.superm +++|* TO "NOT" DUMP ANS PURGE FILES: * 00739 M00S00611.superm +++|* ENTER DROP,JSN. * 00740 M00S00612.superm +++|* TO DUMP AND PURGE FILES: * 00741 M00S00613.superm +++|* ENTER: ASSIGN,JSN,2. * 00742 M00S00614.superm +++|* * 00743 M00S00615.superm +++|*************************************** 00744 M00S00616.superm +++|REQUEST,OPER. STOP OR PURGE? 00745 M00S00617.superm +++|RETURN,OPER. 00746 M00S00618.superm +++|SKIP,DUMPOLD1. 00747 M00S00619.superm +++| EXIT.
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00748 M01S00028.superm1 +++| RETURN,*,OUTPUT. 00749 M00S00620.superm +++| SET(R1G=1) 00750 M00S00621.superm +++| ************************************* 00751 M00S00622.superm +++| * * 00752 M00S00623.superm +++| * NO FILES WERE DUMPED TO TAPE OR *
| Line S00624 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00753 M01S00624.superm1 ---| *PURGED. DUMPOLD STOPPED AS REQUESTED*
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00754 M01S00029.superm1 +++| * PURGED. * 00755 M01S00030.superm1 +++| * DUMPOLD STOPPED AS REQUESTED. * 00756 M00S00625.superm +++| * WHEN YOU HAVE READ THIS MESSAGE * 00757 M00S00626.superm +++| * * 00758 M00S00627.superm +++| * ENTER: ASSIGN,JSN,2. * 00759 M00S00628.superm +++| * * 00760 M00S00629.superm +++| ************************************* 00761 M00S00630.superm +++| REQUEST,OPER. DUMPOLD STOPPED. 00762 M00S00631.superm +++| RETURN,OPER. 00763 M00S00632.superm +++| WRITEF,OUTPUT. 00764 M00S00633.superm +++| REVERT. DUMPOLD STOPPED. 00765 M00S00634.superm +++|ENDIF,DUMPOLD1. 00766 M00S00635.superm +++| 00767 M00S00636.superm +++| 00768 M00S00637.superm +++|BEGIN(LABELS,ZZZPFIL,P1,DUMPOLD,DATE+D)
| Line S00638 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00769 M01S00638.superm1 ---|IF,(R1G.EQ.1).REVERT. DUMPOLD FAILED 00770 M00S00639.superm +++| 00771 M00S00640.superm +++|PFDUMP(OP=AP,BD=P2). 00772 M00S00641.superm +++|*************************************** 00773 M00S00642.superm +++|* * 00774 M00S00643.superm +++|* ALL FILES HAVING A LAST ACCESS DATE * 00775 M00S00644.superm +++|* BEFORE ** P2 ** HAVE NOW * 00776 M00S00645.superm +++|* BEEN DUMPED TO TAPE AND PURGED. * 00777 M00S00646.superm +++|*************************************** 00778 M00S00647.superm +++|WRITEF,OUTPUT. 00779 M00S00648.superm +++|REVERT. DUMPOLD COMPLETED. 00780 M00S00649.superm +++|*WEOR 00781 M00S00650.superm +++|.PROC,DUMPQUE*I 00782 M00S00651.superm +++|,VSN [VOLUME SERIAL NUMBER] 00783 M00S00652.superm +++| =(*A,*N=). 00784 M00S00653.superm +++|.* 00785 M00S00654.superm +++|.* COMMAND FORMAT : *X.MS(DUMPQUE,VSN)* 00786 M00S00655.superm +++|.* THIS PROCEDURE IS USED TO DUMP AND PURGE ALL QUEUE FILES. 00787 M00S00656.superm +++|.* 00788 M00S00657.superm +++|BEGIN(LABELV,ZZZPFIL,VSN,DUMPQUE,DATE+D) 00789 M00S00658.superm +++| 00790 M00S00659.superm +++|QREC(OP=DI,PO=N) 00791 M00S00660.superm +++|QDUMP(DA=ALL,PO=N,FN=TAPE) 00792 M00S00661.superm +++|QREC(OP=PI,PO=N) 00793 M00S00662.superm +++|WRITEF,OUTPUT. 00794 M00S00663.superm +++|REVERT. DUMPQUE COMPLETED. 00795 M00S00664.superm +++|*WEOR 00796 M00S00665.superm +++|.PROC,ENDDF*I"RESTART A DAYFILE" 00797 M00S00666.superm +++|,P1 [TYPE OF DAYFILE] 00798 M00S00667.superm +++| =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=$$). 00799 M00S00668.superm +++|.* COMMAND FORMAT: X.MS(ENDDF,DAYFILE) 00800 M00S00669.superm +++|.* THIS PROCEDURE CAUSES THE SYSTEM TO APPEND THE SPECIFIED 00801 M00S00670.superm +++|.* *DAYFILE* TO A PERMANENT FILE WITH THE SAME NAME. IF THE 00802 M00S00671.superm +++|.* CORRESPONDING PERMANENT FILE ALREADY EXISTS, THE DAYFILE IS 00803 M00S00672.superm +++|.* COPIED TO THE PERMANENT FILE AS AN ADDITIONAL RECORD. 00804 M00S00673.superm +++|.* IF THE PERMANENT FILE DOES NOT EXIST, ENDDF DEFINES IT, AND THE 00805 M00S00674.superm +++|.* CORRESPONDING DAYFILE IS COPIED THE PERMANENT FILE AS THE FIRST 00806 M00S00675.superm +++|.* RECORD. A NEW SYSTEM DAYFILE IS CREATED TO RECEIVE SUBSEQUENT 00807 M00S00676.superm +++|.* DAYFILE MESSAGES. THE SUPPORTED VALUES FOR THE PARAMETER, 00808 M00S00677.superm +++|.* *DAYFILE* ARE ACCOUNT, DAYFILE, ERRLOG, AND MAINLOG. 00809 M00S00678.superm +++|.* 00810 M00S00679.superm +++|.IF,P1.EQ.1,ENDDF1. 00811 M00S00680.superm +++|BEGIN,ENDDFL,ZZZPFIL,ACCOUNT,AC. 00812 M00S00681.superm +++|.ELSE,ENDDF1. 00813 M00S00682.superm +++|.IF,P1.EQ.2,ENDDF1. 00814 M00S00683.superm +++|BEGIN,ENDDFL,ZZZPFIL,DAYFILE,DF. 00815 M00S00684.superm +++|.ELSE,ENDDF1. 00816 M00S00685.superm +++|.IF,P1.EQ.3,ENDDF1. 00817 M00S00686.superm +++|BEGIN,ENDDFL,ZZZPFIL,ERRLOG,ER. 00818 M00S00687.superm +++|.ELSE,ENDDF1. 00819 M00S00688.superm +++|.IF,P1.EQ.4,ENDDF1. 00820 M00S00689.superm +++|BEGIN,ENDDFL,ZZZPFIL,MAINLOG,ML. 00821 M00S00690.superm +++|.ELSE,ENDDF1. 00822 M00S00691.superm +++|BEGIN(ERRDAY,ZZZPFIL,ENDDF,P1) 00823 M00S00692.superm +++|.ENDIF,ENDDF1. 00824 M00S00693.superm +++|WRITEF,OUTPUT. 00825 M00S00694.superm +++|REVERT,NOLIST. ENDDF COMPLETED. 00826 M00S00695.superm +++|*WEOR 00827 M00S00696.superm +++|.PROC,ENDDFL*I 00828 M00S00697.superm +++|,P1 [SYSTEM LOG FILE NAME] 00829 M00S00698.superm +++| =(ACCOUNT,DAYFILE,ERRLOG,MAINLOG) 00830 M00S00699.superm +++|,P2 [TWO CHARACTER LOG FILE IDENTIFIER] 00831 M00S00700.superm +++| =(AC,DF,ER,ML) 00832 M00S00701.superm +++|. 00833 M00S00702.superm +++|PURGE,P2_FILE/NA. 00834 M00S00703.superm +++|DFTERM,FT=P1,NM=FILE,PO=N. 00835 M00S00704.superm +++|ATTACH(P2_FILE) 00836 M00S00705.superm +++|ATTACH,P1/M=W,NA. 00837 M00S00706.superm +++|IF,FILE(P1,.NOT.PM),ENDDF1. 00838 M00S00707.superm +++|DEFINE,P1. 00839 M00S00708.superm +++|ENDIF,ENDDF1. 00840 M00S00709.superm +++|SKIPEI,P1.
| Line S00710 Modification History | |
|---|---|
M01 (Removed by) | superm7 |
Seq # *Modification Id* Act ----------------------------+ 00841 M01S00710.superm7 ---|COPYBR,P2_FILE,P1.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | superm7 |
Seq # *Modification Id* Act ----------------------------+ 00842 M01S00001.superm7 +++|COPYEI,P2_FILE,P1. 00843 M00S00711.superm +++|PURGE,P2_FILE. 00844 M00S00712.superm +++|*************************************** 00845 M00S00713.superm +++|* * 00846 M00S00714.superm +++|* P1 RESTART COMPLETE * 00847 M00S00715.superm +++|* * 00848 M00S00716.superm +++|*************************************** 00849 M00S00717.superm +++|REVERT. ENDDFL COMPLETE 00850 M00S00718.superm +++|*WEOR 00851 M00S00719.superm +++|.PROC,ENDLOG. 00852 M00S00720.superm +++|.* 00853 M00S00721.superm +++|.* COMMAND FORMAT : *X.MS(ENDLOG)* 00854 M00S00722.superm +++|.* THIS PROCEDURE CALLS *ENDDF* FOR EACH OF THE FOUR SYSTEM 00855 M00S00723.superm +++|.* DAYFILES. 00856 M00S00724.superm +++|.* 00857 M00S00725.superm +++|BEGIN(ENDDFL,ZZZPFIL,ACCOUNT,AC) 00858 M00S00726.superm +++|BEGIN(ENDDFL,ZZZPFIL,DAYFILE,DF) 00859 M00S00727.superm +++|RETURN,*. 00860 M00S00728.superm +++|BEGIN(ENDDFL,ZZZPFIL,ERRLOG,ER) 00861 M00S00729.superm +++|BEGIN(ENDDFL,ZZZPFIL,MAINLOG,ML) 00862 M00S00730.superm +++|WRITEF,OUTPUT. 00863 M00S00731.superm +++|REVERT. ENDLOG COMPLETED. 00864 M00S00732.superm +++|*WEOR 00865 M00S00733.superm +++|.PROC,ERRDAY*I 00866 M00S00734.superm +++|,P1 [TOOL] 00867 M00S00735.superm +++| =(*F) 00868 M00S00736.superm +++|,P2 [ERRONEOUS DAYFILE] 00869 M00S00737.superm +++| =(*A,*N=NULL) 00870 M00S00738.superm +++|.
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00871 M01S00031.superm1 +++|RETURN,*,OUTPUT. 00872 M00S00739.superm +++|SET(R1G=1) 00873 M00S00740.superm +++|************************************* 00874 M00S00741.superm +++|* * 00875 M00S00742.superm +++|* ERROR--DAYFILE : P2. * 00876 M00S00743.superm +++|* NOT PROPERLY SPECIFIED * 00877 M00S00744.superm +++|* TRY AGAIN WITH ACCOUNT, DAYFILE, * 00878 M00S00745.superm +++|* ERRLOG, OR MAINLOG. * 00879 M00S00746.superm +++|* * 00880 M00S00747.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00881 M00S00748.superm +++|* * 00882 M00S00749.superm +++|* ENTER: ASSIGN,JSN,2. * 00883 M00S00750.superm +++|* * 00884 M00S00751.superm +++|************************************* 00885 M00S00752.superm +++|REQUEST,OPER. P1 FAILED 00886 M00S00753.superm +++|RETURN,OPER. 00887 M00S00754.superm +++|REVERT,EX.REVERT. P1 FAILED 00888 M00S00755.superm +++|*WEOR 00889 M00S00756.superm +++|.PROC,ERRJSN*I 00890 M00S00757.superm +++|,P1 [PROCEDURE ERRJSN IS CALLED FROM] 00891 M00S00758.superm +++| =(*F) 00892 M00S00759.superm +++|,P2 [JSN THAT WAS INCORRECT] 00893 M00S00760.superm +++| =(*A,*N=NONE).
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00894 M01S00032.superm1 +++|SET(R1G=1) 00895 M01S00033.superm1 +++|RETURN,*,OUTPUT. 00896 M00S00761.superm +++|*************************************** 00897 M00S00762.superm +++|* * 00898 M00S00763.superm +++|* ERROR--#JSN : P2 * 00899 M00S00764.superm +++|* NOT PROPERLY SPECIFIED. * 00900 M00S00765.superm +++|* TRY AGAIN WITH A 1-6 ALPHANUMERIC * 00901 M00S00766.superm +++|* CHARACTER JSN. * 00902 M00S00767.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00903 M00S00768.superm +++|* * 00904 M00S00769.superm +++|* ENTER: ASSIGN,JSN,2. * 00905 M00S00770.superm +++|* * 00906 M00S00771.superm +++|***************************************
| Line S00772 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00907 M01S00772.superm1 ---|*REQUEST,OPER. P1 FAILED.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00908 M01S00034.superm1 +++|REQUEST,OPER. P1 FAILED. 00909 M00S00773.superm +++|RETURN,OPER. 00910 M00S00774.superm +++|REVERT,NOLIST. ERRJSN COMPLETED. 00911 M00S00775.superm +++|*WEOR 00912 M00S00776.superm +++|.PROC,ERRNOU. 00913 M00S00777.superm +++|SET(R1G=1)
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00914 M01S00035.superm1 +++|RETURN,*,OUTPUT. 00915 M00S00778.superm +++|*************************************** 00916 M00S00779.superm +++|* * 00917 M00S00780.superm +++|* ERROR--TO SPECIFY A PERMANENT FILE, * 00918 M00S00781.superm +++|* THE USER NAME MUST ALSO BE GIVEN. * 00919 M00S00782.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00920 M00S00783.superm +++|* * 00921 M00S00784.superm +++|* ENTER: ASSIGN,JSN,2. * 00922 M00S00785.superm +++|* * 00923 M00S00786.superm +++|***************************************
| Line S00787 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00924 M01S00787.superm1 ---|REQUEST,OPER. LOADFL FAILED.
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00925 M01S00036.superm1 +++|REQUEST,OPER. LOADF FAILED. 00926 M00S00788.superm +++|RETURN,OPER. 00927 M00S00789.superm +++|WRITEF,OUTPUT.
| Line S00790 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00928 M01S00790.superm1 ---|REVERT,EX.REVERT. LOADFL FAILED
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00929 M01S00037.superm1 +++|REVERT,EX.REVERT. LOADF FAILED. 00930 M00S00791.superm +++|*WEOR 00931 M00S00792.superm +++|.PROC,ERRSETM*I 00932 M00S00793.superm +++|,P1 [PROCEDURE ERRSETM IS CALLED FROM] 00933 M00S00794.superm +++| =(*F) 00934 M00S00795.superm +++|,P2 [NUMBER THAT WAS INCORRECT] 00935 M00S00796.superm +++| =(*A,*N=NONE).
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00936 M01S00038.superm1 +++|SET(R1G=1) 00937 M01S00039.superm1 +++|RETURN,*,OUTPUT. 00938 M00S00797.superm +++|*************************************** 00939 M00S00798.superm +++|* * 00940 M00S00799.superm +++|* ERROR--NUMBER OF DUMP TAPES TO * 00941 M00S00800.superm +++|* BLANK LABEL NOT PROPERLY SPECIFIED. * 00942 M00S00801.superm +++|* TRY AGAIN WITH A NUMERIC DIGIT IN * 00943 M00S00802.superm +++|* RANGE : 1 TO 8. * 00944 M00S00803.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00945 M00S00804.superm +++|* * 00946 M00S00805.superm +++|* ENTER: ASSIGN,JSN,2. * 00947 M00S00806.superm +++|* * 00948 M00S00807.superm +++|*************************************** 00949 M00S00808.superm +++|REQUEST,OPER. P1 FAILED. 00950 M00S00809.superm +++|RETURN,OPER. 00951 M00S00810.superm +++|REVERT,NOLIST. ERRSETM COMPLETED. 00952 M00S00811.superm +++|*WEOR 00953 M00S00812.superm +++|.PROC,ERRSETN*I 00954 M00S00813.superm +++|,P1 [PROCEDURE ERRSETN IS CALLED FROM] 00955 M00S00814.superm +++| =(*F) 00956 M00S00815.superm +++|,P2 [SETNAME THAT WAS INCORRECT] 00957 M00S00816.superm +++| =(*A,*N=NONE).
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00958 M01S00040.superm1 +++|SET(R1G=1) 00959 M01S00041.superm1 +++|RETURN,*,OUTPUT. 00960 M00S00817.superm +++|*************************************** 00961 M00S00818.superm +++|* * 00962 M00S00819.superm +++|* ERROR--SETNAME : P2 * 00963 M00S00820.superm +++|* NOT PROPERLY SPECIFIED. * 00964 M00S00821.superm +++|* TRY AGAIN WITH A 1-5 ALPHANUMERIC * 00965 M00S00822.superm +++|* CHARACTER SETNAME. * 00966 M00S00823.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00967 M00S00824.superm +++|* * 00968 M00S00825.superm +++|* ENTER: ASSIGN,JSN,2. * 00969 M00S00826.superm +++|* * 00970 M00S00827.superm +++|*************************************** 00971 M00S00828.superm +++|REQUEST,OPER. P1 FAILED. 00972 M00S00829.superm +++|RETURN,OPER. 00973 M00S00830.superm +++|REVERT,NOLIST. ERRSETN COMPLETED. 00974 M00S00831.superm +++|*WEOR 00975 M00S00832.superm +++|.PROC,ERRTOOL*I 00976 M00S00833.superm +++|,P1 [TOOL] 00977 M00S00834.superm +++| =(*F) 00978 M00S00835.superm +++|.
| Line S00836 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00979 M01S00836.superm1 ---|RETURN,*.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 00980 M01S00042.superm1 +++|SET(R1G=1) 00981 M01S00043.superm1 +++|RETURN,*,OUTPUT. 00982 M00S00837.superm +++|**************************************** 00983 M00S00838.superm +++|* * 00984 M00S00839.superm +++|* ERROR--P1 FAILED * 00985 M00S00840.superm +++|* EXAMINE THE OUTPUT FROM THIS JOB TO * 00986 M00S00841.superm +++|* DETERMINE THE CAUSE OF THE FAILURE * 00987 M00S00842.superm +++|* * 00988 M00S00843.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 00989 M00S00844.superm +++|* * 00990 M00S00845.superm +++|* ENTER ASSIGN,JSN,2. * 00991 M00S00846.superm +++|* * 00992 M00S00847.superm +++|**************************************** 00993 M00S00848.superm +++|REQUEST,OPER. P1 FAILED 00994 M00S00849.superm +++|RETURN,OPER. 00995 M00S00850.superm +++|WRITEF. 00996 M00S00851.superm +++|REVERT,EX.REVERT. P1 FAILED 00997 M00S00852.superm +++|*WEOR 00998 M00S00853.superm +++|.PROC,ERRUSER*I 00999 M00S00854.superm +++|,P1 [PROCEDURE ERRUSER IS CALLED FROM] 01000 M00S00855.superm +++| =(*F) 01001 M00S00856.superm +++|,P2 [USER NAME THAT WAS INCORRECT] 01002 M00S00857.superm +++| =(*A,*N=NONE).
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00044.superm1 +++|SET(R1G=1) 01004 M01S00045.superm1 +++|RETURN,*,OUTPUT. 01005 M00S00858.superm +++|*************************************** 01006 M00S00859.superm +++|* * 01007 M00S00860.superm +++|* ERROR--USER NAME P2. * 01008 M00S00861.superm +++|* NOT PROPERLY SPECIFIED. * 01009 M00S00862.superm +++|* TRY AGAIN WITH A USER NAME MADE UP * 01010 M00S00863.superm +++|* OF 1-7 ALPHANUMERIC CHARACTERS. * 01011 M00S00864.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01012 M00S00865.superm +++|* * 01013 M00S00866.superm +++|* ENTER: ASSIGN,JSN,2. * 01014 M00S00867.superm +++|* * 01015 M00S00868.superm +++|*************************************** 01016 M00S00869.superm +++|REQUEST,OPER. P1 FAILED. 01017 M00S00870.superm +++|RETURN,OPER. 01018 M00S00871.superm +++|REVERT,NOLIST. ERRUSER COMPLETED. 01019 M00S00872.superm +++|*WEOR 01020 M00S00873.superm +++|.PROC,ERRVSN*I 01021 M00S00874.superm +++|,P1 [PROCEDURE ERRVSN IS CALLED FROM] 01022 M00S00875.superm +++| =(*F) 01023 M00S00876.superm +++|,P2 [VSN THAT WAS INCORRECT] 01024 M00S00877.superm +++| =(*A,*N=NONE).
| Line S00046 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01025 M01S00046.superm1 +++|SET(R1G=1) 01026 M01S00047.superm1 +++|RETURN,*,OUTPUT. 01027 M00S00878.superm +++|*************************************** 01028 M00S00879.superm +++|* * 01029 M00S00880.superm +++|* ERROR--#VSN : P2 * 01030 M00S00881.superm +++|* NOT PROPERLY SPECIFIED. * 01031 M00S00882.superm +++|* TRY AGAIN WITH A 1-6 ALPHANUMERIC * 01032 M00S00883.superm +++|* CHARACTER VSN. * 01033 M00S00884.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01034 M00S00885.superm +++|* * 01035 M00S00886.superm +++|* ENTER: ASSIGN,JSN,2. * 01036 M00S00887.superm +++|* * 01037 M00S00888.superm +++|*************************************** 01038 M00S00889.superm +++|REQUEST,OPER. P1 FAILED. 01039 M00S00890.superm +++|RETURN,OPER. 01040 M00S00891.superm +++|REVERT,NOLIST. ERRVSN COMPLETED. 01041 M00S00892.superm +++|*WEOR 01042 M00S00893.superm +++|.PROC,FINDJSN*I 01043 M00S00894.superm +++|,JSN [JOB SEQUENCE NUMBER] 01044 M00S00895.superm +++| =(*A,*N=). 01045 M00S00896.superm +++|.* 01046 M00S00897.superm +++|.* COMMAND FORMAT : *FINDJSN(JSN)* 01047 M00S00898.superm +++|.* THIS PROCEDURE USES DFD TO GET SYSTEM DAYFILE AND EXTRACTS FROM 01048 M00S00899.superm +++|.* IT THE DAYFILE FOR JOB (JSN). THE JSN DAYFILE IS WRITTEN TO 01049 M00S00900.superm +++|.* FILE OUTPUT. 01050 M00S00901.superm +++|.* 01051 M00S00902.superm +++|BEGIN,VERJSN,ZZZPFIL,JSN,FINDJSN. VERIFY #JSN 01052 M00S00903.superm +++|SKIP,FDJSN0. 01053 M00S00904.superm +++| EXIT. 01054 M00S00905.superm +++| BEGIN,ERRJSN,ZZZPFIL,JSN,FINDJSN. 01055 M00S00906.superm +++| SET,R1G=1. 01056 M00S00907.superm +++| REVERT. FINDJSN FAILED. 01057 M00S00908.superm +++|ENDIF,FDJSN0. 01058 M00S00909.superm +++|DFD. 01059 M00S00910.superm +++|RENAME,DF=OUTPUT.
| Line S00911 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01060 M01S00911.superm2 ---|EDIT,DF,I=FIEDIT. 01061 M01S00912.superm2 ---|RETURN,DF,VERJSN,ERRJSN. 01062 M01S00913.superm2 ---|REVERT. FINDJSN COMPLETED. 01063 M01S00914.superm2 ---|EXIT. 01064 M01S00915.superm2 ---|REVERT,ABORT. FINDJSN FAILED.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01065 M01S00034.superm2 +++|EDIT,DF,I=FIEDIT,L=ZZLIST. 01066 M01S00035.superm2 +++|RETURN,DF,VERJSN,ERRJSN. 01067 M01S00036.superm2 +++|REWIND,*,OUTPUT. 01068 M01S00037.superm2 +++|SKIP,FINDJS1. 01069 M01S00038.superm2 +++|EXIT. 01070 M01S00039.superm2 +++|REVERT,ABORT. FINDJSN FAILED. 01071 M01S00040.superm2 +++|ENDIF,FINDJS1. 01072 M01S00041.superm2 +++|VERIFY,ZZLIST,ZZZFIND,A. 01073 M01S00042.superm2 +++|.* IF THE FILES VERIFY THAN THE JSN WAS NOT FOUND IN THE DAYFILE. 01074 M01S00043.superm2 +++|SET,R1G=1. 01075 M01S00044.superm2 +++|************************************** 01076 M01S00045.superm2 +++|* * 01077 M01S00046.superm2 +++|* ERROR-- #JSN JSN WAS NOT FOUND * 01078 M01S00047.superm2 +++|* IN THE DAYFILE. RETRY WITH A * 01079 M01S00048.superm2 +++|* DIFFERENT #JSN. * 01080 M01S00049.superm2 +++|* * 01081 M01S00050.superm2 +++|* WHEN YOU HAVE READ THIS MESSAGE * 01082 M01S00051.superm2 +++|* * 01083 M01S00052.superm2 +++|* ENTER: ASSIGN,#JSN,2. * 01084 M01S00053.superm2 +++|* * 01085 M01S00054.superm2 +++|************************************** 01086 M01S00055.superm2 +++|REQUEST,OPER. FINDJSN FAILED. 01087 M01S00056.superm2 +++|RETURN,OPER. 01088 M01S00057.superm2 +++|REVERT. FINDJSN FAILED. 01089 M01S00058.superm2 +++|EXIT. 01090 M01S00059.superm2 +++|REWIND,*,OUTPUT. 01091 M01S00060.superm2 +++|COPYEI,ZZLIST,OUTPUT. 01092 M01S00061.superm2 +++|REVERT. FINDJSN COMPLETE. 01093 M00S00916.superm +++|.DATA,FIEDIT 01094 M00S00917.superm +++|L:/. JSN/;* 01095 M00S00918.superm +++|END
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01096 M01S00062.superm2 +++|.DATA,ZZZFIND. 01097 M01S00063.superm2 +++| BEGIN TEXT EDITING. 01098 M01S00064.superm2 +++| -END OF FILE- 01099 M01S00065.superm2 +++| END TEXT EDITING. 01100 M00S00919.superm +++|*WEOR 01101 M00S00920.superm +++|.PROC,GETTYPE*I 01102 M00S00921.superm +++|,P1 [VALIDATION TYPE] 01103 M00S00922.superm +++| =(*F) 01104 M00S00923.superm +++|,P2 [TOOL] 01105 M00S00924.superm +++| =(*F) 01106 M00S00925.superm +++|.
| Line S00926 Modification History | |
|---|---|
M01 (Removed by) | super14 |
Seq # *Modification Id* Act ----------------------------+ 01107 M01S00926.super14 ---|GTR(ZZZPFIL,P1,NA)P1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | super14 |
Seq # *Modification Id* Act ----------------------------+ 01108 M01S00001.super14 +++|GTR(ZZZPFIL,P1,,,,NA)P1 01109 M00S00927.superm +++|IF,FILE(P1,LO),GETYPE1. 01110 M00S00928.superm +++|EDIT,P1,I=GEEDIT. 01111 M00S00929.superm +++|REVERT. GETTYPE COMPLETE 01112 M00S00930.superm +++|ELSE,GETYPE1. 01113 M00S00931.superm +++|GET(P1/UN=INSTALL) 01114 M00S00932.superm +++|REVERT. GETTYPE COMPLETE 01115 M00S00933.superm +++|EXIT. 01116 M00S00934.superm +++|SET(R1G=1) 01117 M00S00935.superm +++|ENDIF,GETYPE1. 01118 M00S00936.superm +++|**************************************** 01119 M00S00937.superm +++|* * 01120 M00S00938.superm +++|* ERROR-- TYPE FILE: P1 * 01121 M00S00939.superm +++|* NOT FOUND. DETERMINE THE FILE NAME * 01122 M00S00940.superm +++|* YOU WANT TO USE AND RETRY P2 * 01123 M00S00941.superm +++|* * 01124 M00S00942.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01125 M00S00943.superm +++|* * 01126 M00S00944.superm +++|* ENTER: ASSIGN,JSN,2. * 01127 M00S00945.superm +++|* * 01128 M00S00946.superm +++|**************************************** 01129 M00S00947.superm +++|REVERT,EX.REVERT. P2 FAILED 01130 M00S00948.superm +++|.DATA,GEEDIT 01131 M00S00949.superm +++|SET;-1 01132 M00S00950.superm +++|DELETE 01133 M00S00951.superm +++|END 01134 M00S00952.superm +++|*WEOR 01135 M00S00953.superm +++|.PROC,LABELS*I"REQUEST SET OF TAPES" 01136 M00S00954.superm +++|,P1 [SETNAME OF TAPES] 01137 M00S00955.superm +++| =(*A,*N=) 01138 M00S00956.superm +++|,P2 [TOOL] 01139 M00S00957.superm +++| =(*F) 01140 M00S00958.superm +++|,P3 [DATE] 01141 M00S00959.superm +++| =(*S6(0123456789),*N=$$) 01142 M00S00960.superm +++|. 01143 M00S00961.superm +++|BEGIN,VERSETN,ZZZPFIL,P1. VERIFY SETNAME 01144 M00S00962.superm +++|SKIP,LABELS1. 01145 M00S00963.superm +++| EXIT. 01146 M00S00964.superm +++| BEGIN,ERRSETN,ZZZPFIL,P2,P1. 01147 M00S00965.superm +++| SET(R1G=1) 01148 M00S00966.superm +++| REVERT,EX. REVERT. P2 FAILED. 01149 M00S00967.superm +++|ENDIF,LABELS1. 01150 M00S00968.superm +++|.IF,$P3$.EQ.$$,LABELS2.
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01151 M01S00048.superm1 +++|VSN,TAPE=P1_1/P1_2/P1_3/P1_4/P1_5/P1_6/P1_7/P1_8.
| Line S00969 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01152 M01S00969.superm1 ---| LABEL,TAPE,VSN=P1_1/P1_2/P1_3/P1_4/P1_5,NT,D=GE,PO=R.
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | superm1 |
M02 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01153 M02S00049.superm3 ---|LABEL,TAPE,NT,D=GE,PO=R.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01154 M01S00050.superm3 +++|LABEL,TAPE,NT,D=GE,PO=FR. 01155 M00S00970.superm +++|.ELSE,LABELS2.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01156 M01S00050.superm1 +++|VSN,TAPE=P1_1/P1_2/P1_3/P1_4/P1_5/P1_6/P1_7/P1_8.
| Line S00971 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01157 M01S00971.superm1 ---| LABEL,TAPE,VSN=P1_1/P1_2/P1_3/P1_4/P1_5,NT,D=GE,PO=W,W,FI=$P3$.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | superm1 |
M02 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01158 M02S00051.superm3 ---|LABEL,TAPE,NT,D=GE,PO=W,W,FI=$P3$.
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01159 M01S00051.superm3 +++|LABEL,TAPE,NT,D=GE,PO=FW,W,FI=$P3$. 01160 M00S00972.superm +++|.ENDIF,LABELS2. 01161 M00S00973.superm +++|REVERT. LABELS COMPLETE 01162 M00S00974.superm +++|*WEOR 01163 M00S00975.superm +++|.PROC,LABELV*I"REQUEST A TAPE" 01164 M00S00976.superm +++|,P1 [VSN OF TAPES] 01165 M00S00977.superm +++| =(*A,*N=) 01166 M00S00978.superm +++|,P2 [TOOL] 01167 M00S00979.superm +++| =(*F) 01168 M00S00980.superm +++|,P3 [DATE] 01169 M00S00981.superm +++| =(*S6(0123456789),*N=$$) 01170 M00S00982.superm +++|. 01171 M00S00983.superm +++|BEGIN,VERVSN,ZZZPFIL,P1. VERIFY VSN 01172 M00S00984.superm +++|SKIP,LABELV1. 01173 M00S00985.superm +++| EXIT. 01174 M00S00986.superm +++| BEGIN,ERRVSN,ZZZPFIL,P2,P1. 01175 M00S00987.superm +++| SET(R1G=1) 01176 M00S00988.superm +++| REVERT,EX. REVERT. P2 FAILED 01177 M00S00989.superm +++|ENDIF,LABELV1. 01178 M00S00990.superm +++|.IF,$P3$.EQ.$$,LABELV2.
| Line S00991 Modification History | |
|---|---|
M01 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01179 M01S00991.superm3 ---| LABEL,TAPE,VSN=P1,NT,D=GE,PO=R.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01180 M01S00052.superm3 +++| LABEL,TAPE,VSN=P1,NT,D=GE,PO=FR. 01181 M00S00992.superm +++|.ELSE,LABELV2.
| Line S00993 Modification History | |
|---|---|
M01 (Removed by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01182 M01S00993.superm3 ---| LABEL,TAPE,VSN=P1,NT,D=GE,PO=W,W,FI=$P3$.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | superm3 |
Seq # *Modification Id* Act ----------------------------+ 01183 M01S00053.superm3 +++| LABEL,TAPE,VSN=P1,NT,D=GE,PO=FW,W,FI=$P3$. 01184 M00S00994.superm +++|.ENDIF,LABELV2. 01185 M00S00995.superm +++|REVERT. LABELV COMPLETE 01186 M00S00996.superm +++|*WEOR 01187 M00S00997.superm +++|.PROC,LISTQUE. 01188 M00S00998.superm +++|.* 01189 M00S00999.superm +++|.* COMMAND FORMAT : *X.MS(LISTQUE)* 01190 M00S01000.superm +++|.* THIS PROCEDURE PRODUCES A LISTING WHICH DESCRIBES ALL THE 01191 M00S01001.superm +++|.* QUEUE FILES IN THE SYSTEM. THIS LISTING MAY BE HELPFUL IN 01192 M00S01002.superm +++|.* IDENTIFING QUEUE FILES THAT COULD BE DROPPED FROM THE SYSTEM. 01193 M00S01003.superm +++|.* 01194 M00S01004.superm +++|QFTLIST(PO=N,LO=F) 01195 M00S01005.superm +++|WRITEF,OUTPUT. 01196 M00S01006.superm +++|REVERT. LISTQUE COMPLETE. 01197 M00S01007.superm +++|EXIT. 01198 M00S01008.superm +++|WRITEF,OUTPUT. 01199 M00S01009.superm +++|REVERT. LISTQUE FAILED. 01200 M00S01010.superm +++|*WEOR 01201 M00S01011.superm +++|.PROC,LOADF*I"LOAD PERMANENT FILES" 01202 M00S01012.superm +++|,P1 [SETNAME OF TAPES] 01203 M00S01013.superm +++| =(*A,*N=) 01204 M00S01014.superm +++|,USERNAME [USER NAME] 01205 M00S01015.superm +++| =(*A,*N=) 01206 M00S01016.superm +++|,PF1 [PERMANENT FILE NAME 1] 01207 M00S01017.superm +++| =(*A,*N=) 01208 M00S01018.superm +++|,PF2 [PERMANENT FILE NAME 2] 01209 M00S01019.superm +++| =(*A,*N=). 01210 M00S01020.superm +++|.* 01211 M00S01021.superm +++|.* COMMAND FORMAT : *X.MS(LOADF,SETNAME,USERNAME,PF,PF)* 01212 M00S01022.superm +++|.* THIS PROCEDURE LOADS PERMANENT FILES FROM TAPES CREATED BY 01213 M00S01023.superm +++|.* DUMPALL, DUMPMOD OR DUMPOLD. 01214 M00S01024.superm +++|.* WHEN LOADF IS CALLED TO LOAD FILES STARTING WITH A SET OF 01215 M00S01025.superm +++|.* TAPES CREATED BY DUMPALL OR DUMPMOD IT WILL LOAD FILES 01216 M00S01026.superm +++|.* FROM THAT SET ONLY. WHEN LOADF IS CALLED TO LOAD FILES 01217 M00S01027.superm +++|.* STARTING WITH A SET OF TAPES CREATED BY DUMPMOD IT LOADS 01218 M00S01028.superm +++|.* THE FILES ON THE DUMPMOD SET OF TAPES. THEN IT LOADS THE 01219 M00S01029.superm +++|.* FILES FROM THE LAST DUMPALL SET OF TAPES CREATED BEFORE 01220 M00S01030.superm +++|.* THIS DUMPMOD SET. TO BE LOADED, THESE FILES MUST MEET 01221 M00S01031.superm +++|.* THE FOLLOWING CRITERIA: 1) THE FILES WERE ON THE DISKS 01222 M00S01032.superm +++|.* WHEN THE DUMPMOD WAS EXECUTES. 2) THE FILES WERE NOT MODIFIED 01223 M00S01033.superm +++|.* AFTER THE DUMPALL. 01224 M00S01034.superm +++|.* LOADF CAN BE CALLED TO LOAD ALL THE FILES, THE FILES FOR A 01225 M00S01035.superm +++|.* USERNAME, OR ONE OR TWO SPECIFIED FILES. TO LOAD ALL FILES 01226 M00S01036.superm +++|.* ONLY THE SETNAME PARAMETER IS SUPPLIED. TO LOAD THE FILES FOR 01227 M00S01037.superm +++|.* A USERNAME, THE SETNAME AND USERNAME PARAMETER ARE REQUIRED. 01228 M00S01038.superm +++|.* TO LOAD ONE OR TWO SPECIFIC FILES, THE SETNAME, USERNAME AND 01229 M00S01039.superm +++|.* ONE OR TWO OF THE FILENAME PARAMETERS ARE REQUIRED. IF A FILE 01230 M00S01040.superm +++|.* IS ALREADY ON DISK AND LOADF WAS SPECIFICALLY ASKED TO LOAD 01231 M00S01041.superm +++|.* THAT FILE BY THE FILENAME PARAMETER THEN LOADF WILL ASK IF IT 01232 M00S01042.superm +++|.* SHOULD OVERWRITE THE FILE. IN THE CASE WHERE LOADF WAS CALLED 01233 M00S01043.superm +++|.* TO LOAD ALL THE FILES OR ALL FILES FOR A USERNAME LOADF WILL 01234 M00S01044.superm +++|.* NOT RELOAD A FILE THAT IS ALREADY ON DISK. 01235 M00S01045.superm +++| 01236 M00S01046.superm +++| 01237 M00S01047.superm +++|BEGIN,VERF,ZZZPFIL,PF1,LOADF. 01238 M00S01048.superm +++| 01239 M00S01049.superm +++|BEGIN,VERF,ZZZPFIL,PF2,LOADF. 01240 M00S01050.superm +++| 01241 M00S01051.superm +++|.IF,$USERNAME$.EQ.$$,LOADF1. 01242 M00S01052.superm +++|.IF,$PF1$.NE.$$,LOADF2. 01243 M00S01053.superm +++| BEGIN(ERRNOU,ZZZPFIL,PF1) 01244 M00S01054.superm +++|.ELSE,LOADF2. 01245 M00S01055.superm +++|.IF,$PF2$.NE.$$,LOADF2. 01246 M00S01056.superm +++| BEGIN(ERRNOU,ZZZPFIL,PF2) 01247 M00S01057.superm +++|.ELSE,LOADF2. 01248 M00S01058.superm +++| BEGIN(LABELS,ZZZPFIL,P1,LOADF) REQUEST SET OF TAPES 01249 M00S01059.superm +++| IF,(R1G.EQ.1).REVERT. LOADF FAILED
| Line S01060 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01250 M01S01060.superm2 ---| PFLOAD,OP=V. EXECUTE A FULL LOAD.
| Line S00066 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01251 M01S00066.superm2 +++| PFLOAD,OP=LV. EXECUTE A FULL LOAD. 01252 M00S01061.superm +++|**************************** 01253 M00S01062.superm +++|* FULL LOAD COMPLETE * 01254 M00S01063.superm +++|**************************** 01255 M00S01064.superm +++|.ENDIF,LOADF2. 01256 M00S01065.superm +++|.ELSE,LOADF1. USER NAME SUPPLIED 01257 M00S01066.superm +++| BEGIN,VERUSER,ZZZPFIL,USERNAME,LOADF. 01258 M00S01067.superm +++| BEGIN(LABELS,ZZZPFIL,P1,LOADF) REQUEST SET OF TAPES 01259 M00S01068.superm +++| IF,(R1G.EQ.1).REVERT. LOADF FAILED 01260 M00S01069.superm +++|.IF,(($PF1$.EQ.$$).AND.($PF2$.EQ.$$)),LOADF3.
| Line S01070 Modification History | |
|---|---|
M01 (Removed by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01261 M01S01070.super16 ---| PFLOAD,UD,UN=USERNAME,OP=V.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01262 M01S00001.super16 +++| PFLOAD,UD,UN=USERNAME,OP=LV. 01263 M00S01071.superm +++|**************************** 01264 M00S01072.superm +++|* USER NAME LOAD COMPLETE * 01265 M00S01073.superm +++|**************************** 01266 M00S01074.superm +++|.ELSE,LOADF3. 01267 M00S01075.superm +++|.IF,(($PF1$.NE.$$).AND.($PF2$.NE.$$)),LOADF3.
| Line S01076 Modification History | |
|---|---|
M01 (Removed by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01268 M01S01076.super16 ---| PFLOAD,UD,UN=USERNAME,PF=PF1,PF=PF2,OP=V.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01269 M01S00002.super16 +++| PFLOAD,UD,UN=USERNAME,PF=PF1,PF=PF2,OP=LV. 01270 M00S01077.superm +++|************************** 01271 M00S01078.superm +++|* TWO FILE LOAD COMPLETE * 01272 M00S01079.superm +++|************************** 01273 M00S01080.superm +++|.ELSE,LOADF3. 01274 M00S01081.superm +++|.IF,($PF1$.NE.$$),LOADF3. LOCAL--PURGE OR OVERWRITE?
| Line S01082 Modification History | |
|---|---|
M01 (Removed by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01275 M01S01082.super16 ---| PFLOAD,UD,UN=USERNAME,PF=PF1,OP=V.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01276 M01S00003.super16 +++| PFLOAD,UD,UN=USERNAME,PF=PF1,OP=LV. 01277 M00S01083.superm +++|************************** 01278 M00S01084.superm +++|* ONE FILE LOAD COMPLETE * 01279 M00S01085.superm +++|************************** 01280 M00S01086.superm +++|.ELSE,LOADF3.
| Line S01087 Modification History | |
|---|---|
M01 (Removed by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01281 M01S01087.super16 ---| PFLOAD,UD,UN=USERNAME,PF=PF2,OP=V.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | super16 |
Seq # *Modification Id* Act ----------------------------+ 01282 M01S00004.super16 +++| PFLOAD,UD,UN=USERNAME,PF=PF2,OP=LV. 01283 M00S01088.superm +++|************************** 01284 M00S01089.superm +++|* ONE FILE LOAD COMPLETE * 01285 M00S01090.superm +++|************************** 01286 M00S01091.superm +++|.ENDIF,LOADF3. 01287 M00S01092.superm +++|.ENDIF,LOADF1. 01288 M00S01093.superm +++|WRITEF,OUTPUT. 01289 M00S01094.superm +++|REVERT,NOLIST. LOADF COMPLETE 01290 M00S01095.superm +++|*WEOR 01291 M00S01096.superm +++|.PROC,LOADLOG*I 01292 M00S01097.superm +++|,VSN [VOLUME SERIAL NUMBER] 01293 M00S01098.superm +++| =(*A,*N=) 01294 M00S01099.superm +++|,ACCOUNT [LOAD ACCOUNT FILE. DEFAULT IS NO] 01295 M00S01100.superm +++| =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0), 01296 M00S01101.superm +++|,DAYFILE [LOAD DAYFILE FILE. DEFAULT IS NO] 01297 M00S01102.superm +++| =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0), 01298 M00S01103.superm +++|,ERRLOG [LOAD ERRLOG FILE. DEFAULT IS NO] 01299 M00S01104.superm +++| =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0), 01300 M00S01105.superm +++|,MAINLOG [LOAD MAINLOG FILE. DEFAULT IS NO] 01301 M00S01106.superm +++| =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0). 01302 M00S01107.superm +++|.* 01303 M00S01108.superm +++|.* COMMAND FORMAT : *LOADLOG(VSN,ACCOUNT,DAYFILE,ERRLOG,MAINLOG)* 01304 M00S01109.superm +++|.* THIS PROCEDURE USES RECLAIM TO LOAD THE PERMANENT FILES (ACCOUNT, 01305 M00S01110.superm +++|.* DAYFILE, ERRLOG, AND MAINLOG) FROM A TAPE CREATED BY ENDLOG. 01306 M00S01111.superm +++|.* THE TAPE IS A GE DENSITY LABELED TAPE WITH A VSN. 01307 M00S01112.superm +++|.* ALL OR ANY SUBSET OF THESE LOGS MAY BE LOADED. 01308 M00S01113.superm +++|.* 01309 M00S01114.superm +++|BEGIN,VERVSN,ZZZPFIL,VSN. VERIFY #VSN 01310 M00S01115.superm +++| SKIP,LOADLOG1. 01311 M00S01116.superm +++| EXIT. 01312 M00S01117.superm +++| BEGIN,ERRVSN,ZZZPFIL,LOADLOG,VSN. 01313 M00S01118.superm +++| SET,R1G=1. 01314 M00S01119.superm +++| REVERT. LOADLOG FAILED. 01315 M00S01120.superm +++|ENDIF,LOADLOG1. 01316 M00S01121.superm +++|RETURN,ZZSCR. 01317 M00S01122.superm +++|BEGIN,,VERLOG,ACCOUNT. 01318 M00S01123.superm +++|BEGIN,,VERLOG,DAYFILE. 01319 M00S01124.superm +++|BEGIN,,VERLOG,ERRLOG. 01320 M00S01125.superm +++|BEGIN,,VERLOG,MAINLOG. 01321 M00S01126.superm +++|IF,.NOT.FILE(ZZSCR,AS),LOADLOG2. 01322 M00S01127.superm +++|BEGIN,LOADLOG,ZZPPFIL, 01323 M00S01128.superm +++| VSN,YES,YES,YES,YES. 01324 M00S01129.superm +++|REQUEST,OPER. LOADLOG COMPLETED. 01325 M00S01130.superm +++|RETURN,OPER. 01326 M00S01131.superm +++|REVERT,NOLIST. LOADLOG COMPLETED. 01327 M00S01132.superm +++|ENDIF,LOADLOG2. 01328 M00S01133.superm +++|BEGIN,,CALLLOG. 01329 M00S01134.superm +++|REVERT. LOADLOG COMPLETED. 01330 M00S01135.superm +++|EXIT. 01331 M00S01136.superm +++|REVERT. LOADLOG FAILED. 01332 M00S01137.superm +++|.DATA,CALLLOG 01333 M00S01138.superm +++|.PROC,CALLLOG. 01334 M00S01139.superm +++|BEGIN,LOADLOG,ZZPPFIL, 01335 M00S01140.superm +++| VSN,#ACCOUNT=NO,#DAYFILE=NO,#ERRLOG=NO,#MAINLOG=NO. 01336 M00S01141.superm +++|REVERT,NOLIST. 01337 M00S01142.superm +++|.DATA,VERLOG 01338 M00S01143.superm +++|.PROC,VERLOG,P1. 01339 M00S01144.superm +++|REWIND,INACCT,INDAYF,INERRL,INMLOG. 01340 M00S01145.superm +++|#.IF,$P1$ .EQ. $1$.EDIT,CALLLOG,I=INACCT,M=N,L=ZZSCR. 01341 M00S01146.superm +++|#.IF,$P1$ .EQ. $2$.EDIT,CALLLOG,I=INDAYF,M=N,L=ZZSCR. 01342 M00S01147.superm +++|#.IF,$P1$ .EQ. $3$.EDIT,CALLLOG,I=INERRL,M=N,L=ZZSCR. 01343 M00S01148.superm +++|#.IF,$P1$ .EQ. $4$.EDIT,CALLLOG,I=INMLOG,M=N,L=ZZSCR. 01344 M00S01149.superm +++|#.IF,NUM(P1),VERLOG1. 01345 M00S01150.superm +++|#.IF,$P1$ .EQ. $0$.REVERT,NOLIST. 01346 M00S01151.superm +++|IF,P1 .GT. 0 .AND. P1 .LT. 5.REVERT,NOLIST. 01347 M00S01152.superm +++|#.ENDIF,VERLOG1. 01348 M00S01153.superm +++|SET,R1G=1. 01349 M00S01154.superm +++|*************************************** 01350 M00S01155.superm +++|* * 01351 M00S01156.superm +++|* ERROR--BAD PARAMETER- P1 01352 M00S01157.superm +++|* TRY AGAIN WITH VALID FILE NAMES * 01353 M00S01158.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01354 M00S01159.superm +++|* * 01355 M00S01160.superm +++|* ENTER: ASSIGN,JSN,2. * 01356 M00S01161.superm +++|* * 01357 M00S01162.superm +++|*************************************** 01358 M00S01163.superm +++|REQUEST,OPER. LOADLOG FAILED. 01359 M00S01164.superm +++|RETURN,OPER. 01360 M00S01165.superm +++|REVERT,EX.REVERT. LOADLOG FAILED. 01361 M00S01166.superm +++|.DATA,INACCT 01362 M00S01167.superm +++|RS:/#ACCOUNT=NO/,/#ACCOUNT=YES/;1 01363 M00S01168.superm +++|END 01364 M00S01169.superm +++|.DATA,INDAYF 01365 M00S01170.superm +++|RS:/#DAYFILE=NO/,/#DAYFILE=YES/;1 01366 M00S01171.superm +++|END 01367 M00S01172.superm +++|.DATA,INERRL 01368 M00S01173.superm +++|RS:/#ERRLOG=NO/,/#ERRLOG=YES/;1 01369 M00S01174.superm +++|END 01370 M00S01175.superm +++|.DATA,INMLOG 01371 M00S01176.superm +++|RS:/#MAINLOG=NO/,/#MAINLOG=YES/;1 01372 M00S01177.superm +++|END 01373 M00S01178.superm +++|*WEOR 01374 M00S01179.superm +++|.PROC,LOADQUE*I"LOAD QUEUE FILES" 01375 M00S01180.superm +++|,VSN [VOLUME SERIAL NUMBER] 01376 M00S01181.superm +++| =(*A,*N=). 01377 M00S01182.superm +++|.* 01378 M00S01183.superm +++|.* COMMAND FORMAT : *X.MS(LOADQUE,VSN)* 01379 M00S01184.superm +++|.* THIS PROCEDURE IS USED TO LOAD ALL QUEUE FILES ON TO 01380 M00S01185.superm +++|.* THE SYSTEM FROM A GE DENSITY TAPE WITH A VSN. 01381 M00S01186.superm +++|.* 01382 M00S01187.superm +++|BEGIN,LABELV,ZZZPFIL,VSN,LOADQUE. 01383 M00S01188.superm +++| 01384 M00S01189.superm +++|QLOAD,DA=ALL,PO=N,FN=TAPE. 01385 M00S01190.superm +++| 01386 M00S01191.superm +++|WRITEF,OUTPUT. 01387 M00S01192.superm +++|REVERT. LOADQUE COMPLETE 01388 M00S01193.superm +++|*WEOR 01389 M00S01194.superm +++|.PROC,PURGLOG. 01390 M00S01195.superm +++|.* 01391 M00S01196.superm +++|.* COMMAND FORMAT : *PURGLOG.* 01392 M00S01197.superm +++|.* THIS PROCEDURE PURGES THE PERMANENT FILES, CREATED BY ENDLOG, 01393 M00S01198.superm +++|.* ACCOUNT, DAYFILE, ERRLOG AND MAINLOG ON USER NAME SYSTEMX. 01394 M00S01199.superm +++|.* 01395 M00S01200.superm +++|*************************************** 01396 M00S01201.superm +++|* * 01397 M00S01202.superm +++|* NOTE--IF THIS PROCEDURE CONTINUES, * 01398 M00S01203.superm +++|* PERMANENT FILES CREATED BY ENDLOG * 01399 M00S01204.superm +++|* ACCOUNT, DAYFILE, ENDLOG, AND * 01400 M00S01205.superm +++|* MAINLOG WILL BE PURGED. * 01401 M00S01206.superm +++|* TO NOT PURGE THE FILES * 01402 M00S01207.superm +++|* ENTER: DROP,JSN. * 01403 M00S01208.superm +++|* TO PURGE THE FILES * 01404 M00S01209.superm +++|* ENTER: ASSIGN,JSN,2. * 01405 M00S01210.superm +++|* * 01406 M00S01211.superm +++|*************************************** 01407 M00S01212.superm +++|REQUEST,OPER. PURGE OR STOP? 01408 M00S01213.superm +++|RETURN,OPER. 01409 M00S01214.superm +++| 01410 M00S01215.superm +++|SKIP,PURGLOG1. 01411 M00S01216.superm +++| EXIT.
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01412 M01S00052.superm1 +++| RETURN,*,OUTPUT. 01413 M00S01217.superm +++| ************************************* 01414 M00S01218.superm +++| * * 01415 M00S01219.superm +++| * PROCESSING HAS BEEN STOPPED. * 01416 M00S01220.superm +++| * THE LOG FILES WERE NOT PURGED. * 01417 M00S01221.superm +++| * WHEN YOU HAVE READ THIS MESSAGE * 01418 M00S01222.superm +++| * * 01419 M00S01223.superm +++| * ENTER: ASSIGN,JSN,2. * 01420 M00S01224.superm +++| * * 01421 M00S01225.superm +++| ************************************* 01422 M00S01226.superm +++| REQUEST,OPER. PURGLOG STOPPED. 01423 M00S01227.superm +++| RETURN,OPER. 01424 M00S01228.superm +++| WRITEF,OUTPUT. 01425 M00S01229.superm +++| REVERT. PURGLOG STOPPED 01426 M00S01230.superm +++|ENDIF,PURGLOG1. 01427 M00S01231.superm +++| 01428 M00S01232.superm +++|PURGE,ACCOUNT/NA. 01429 M00S01233.superm +++|PURGE,DAYFILE/NA. 01430 M00S01234.superm +++|PURGE,ERRLOG/NA. 01431 M00S01235.superm +++|PURGE,MAINLOG/NA. 01432 M00S01236.superm +++|WRITEF,OUTPUT. 01433 M00S01237.superm +++|REVERT. PURGLOG COMPLETE 01434 M00S01238.superm +++|*WEOR 01435 M00S01239.superm +++|.PROC,SUCCESS*I 01436 M00S01240.superm +++|,P1 [TOOL] 01437 M00S01241.superm +++| =(*F) 01438 M00S01242.superm +++|.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01439 M01S00053.superm1 +++|RETURN,*,OUTPUT. 01440 M00S01243.superm +++|**************************************** 01441 M00S01244.superm +++|* * 01442 M00S01245.superm +++|* P1 COMPLETE * 01443 M00S01246.superm +++|* THIS TOOL RAN TO COMPLETION * 01444 M00S01247.superm +++|* * 01445 M00S01248.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01446 M00S01249.superm +++|* * 01447 M00S01250.superm +++|* ENTER ASSIGN,JSN,2. * 01448 M00S01251.superm +++|* * 01449 M00S01252.superm +++|**************************************** 01450 M00S01253.superm +++|REQUEST,OPER. P1 COMPLETE 01451 M00S01254.superm +++|RETURN,OPER. 01452 M00S01255.superm +++|REVERT,EX.REVERT. P1 COMPLETE 01453 M00S01256.superm +++|*WEOR 01454 M00S01257.superm +++|.PROC,VALUSER*I 01455 M00S01258.superm +++|,TYPE [NAME OF VALIDATION TYPE FILE] 01456 M00S01259.superm +++| =(*F,*N=$$) 01457 M00S01260.superm +++|,USERNAME [USERNAME] 01458 M00S01261.superm +++| =(*F,*N=INSTALL) 01459 M00S01262.superm +++|,PASSWORD [PASSWORD IS] 01460 M00S01263.superm +++| =(*F,*N=UNSECUR). 01461 M00S01264.superm +++|.* 01462 M00S01265.superm +++|.* COMMAND FORMAT : *VALUSER(TYPE,USERNAME,PASSWORD)* 01463 M00S01266.superm +++|.* THIS PROCEDURE CAN EITHER CREATE, DELETE OR MODIFY A SINGLE 01464 M00S01267.superm +++|.* USERNAME OR MULTIPLE USERNAMES. IF THE PARAMETERS WERE
| Line S01268 Modification History | |
|---|---|
M01 (Removed by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01465 M01S01268.superm2 ---|.* SUPPLIED, THEY WILL FUNCTION AS DESCRIBED FOR DIRECTF.
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | superm2 |
Seq # *Modification Id* Act ----------------------------+ 01466 M01S00067.superm2 +++|.* SUPPLIED, THEY WILL FUNCTION AS DESCRIBED FOR WRITEVI.
| Line S01269 Modification History | |
|---|---|
M01 (Removed by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01467 M01S01269.superm1 ---|.* IF NO PARAMETERS ARE SUPPLIED, TYPE FILE IS ZZZVDI CREATED
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01468 M01S00054.superm1 +++|.* IF NO PARAMETERS ARE SUPPLIED, TYPE FILE IS ZZZZVDI CREATED 01469 M00S01270.superm +++|.* BY WRITEVI AND CALLS MODVAL WITH THAT FILE AS THE DIRECTIVE 01470 M00S01271.superm +++|.* INPUT FILE. 01471 M00S01272.superm +++|.* AFTER A DIRECTIVE INPUT FILE HAS BEEN CREATED FROM THESE 01472 M00S01273.superm +++|.* PARAMETERS, MODVAL IS CALLED. AFTER A SUCCESSFUL MODVAL 01473 M00S01274.superm +++|.* RUN ZZZZVDI IS PURGED AND REDEFINED. 01474 M00S01275.superm +++|.* 01475 M00S01276.superm +++|.IF,#$TYPE$.EQ.$$,VALUSER1. 01476 M00S01277.superm +++| 01477 M00S01278.superm +++|BEGIN(VERVDI,ZZZPFIL,VALUSER) 01478 M00S01279.superm +++| 01479 M00S01280.superm +++|MODVAL,OP=U,I=ZZZZVDI,FA.
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01480 M01S00055.superm1 +++|REWIND,ZZZZVDI. 01481 M01S00056.superm1 +++|WRITER,ZZZZVDI. 01482 M00S01281.superm +++|RETURN,ZZZZVDI. 01483 M00S01282.superm +++|BEGIN(SETUP,SETUP,ZZZZVDI) 01484 M00S01283.superm +++|REVERT. VALUSER COMPLETE 01485 M00S01284.superm +++| 01486 M00S01285.superm +++|.ENDIF,VALUSER1. 01487 M00S01286.superm +++| 01488 M00S01287.superm +++|BEGIN(VERUSER,ZZZPFIL,USERNAME,VALUSER) 01489 M00S01288.superm +++| 01490 M00S01289.superm +++|.IF,#$TYPE$.EQ.$DELETE$,VALUSER2. 01491 M00S01290.superm +++|MODVAL,I=DELUSER,OP=UR,FA. 01492 M00S01291.superm +++|.ELSE,VALUSER2. 01493 M00S01292.superm +++| 01494 M00S01293.superm +++|BEGIN(VERPASS,ZZZPFIL,PASSWORD,VALUSER) 01495 M00S01294.superm +++| 01496 M00S01295.superm +++|BEGIN(GETTYPE,ZZZPFIL,TYPE,VALUSER) 01497 M00S01296.superm +++| 01498 M00S01297.superm +++|SKIPR,INUSER. 01499 M00S01298.superm +++|COPYBR(TYPE,INUSER) 01500 M00S01299.superm +++|PACK(INUSER) 01501 M00S01300.superm +++|MODVAL,I=INUSER,OP=U,FA. 01502 M00S01301.superm +++|.ENDIF,VALUSER2. 01503 M00S01302.superm +++|REVERT. VALUSER COMLETE. 01504 M00S01303.superm +++|.DATA,INUSER. 01505 M00S01304.superm +++|/USERNAME,PW=PASSWORD. 01506 M00S01305.superm +++|.DATA,DELUSER. 01507 M00S01306.superm +++|/USERNAME,PW=DELETE. 01508 M00S01307.superm +++|/USERNAME,DAC=USERNAME. 01509 M00S01308.superm +++|*WEOR 01510 M00S01309.superm +++|.PROC,VERDATE*I 01511 M00S01310.superm +++|,P1 [DATE SUPPLIED] 01512 M00S01311.superm +++| =(*A,*N=). 01513 M00S01312.superm +++|,P2 [TOOL] 01514 M00S01313.superm +++| =(*F) 01515 M00S01314.superm +++|. 01516 M00S01315.superm +++|ZZVERD1,P1. INSURE DATE IS ATLEAST SIX CHARACTERS 01517 M00S01316.superm +++|SKIP,VERDATE1. 01518 M00S01317.superm +++|EXIT. DATE NOT TOO SHORT 01519 M00S01318.superm +++|ZZVERD,P1. INSURE DATE IS ONLY SIX NUMERIC CHARACTERS 01520 M00S01319.superm +++|REVERT,NOLIST. VERDATE COMPLETE 01521 M00S01320.superm +++|EXIT. 01522 M00S01321.superm +++|SET(R1G=1) 01523 M00S01322.superm +++|**************************************** 01524 M00S01323.superm +++|* * 01525 M00S01324.superm +++|* ERROR--DATE: P1. * 01526 M00S01325.superm +++|* NOT PROPERLY SPECIFIED * 01527 M00S01326.superm +++|* TRY AGAIN WITH A 6 CHARACTER DATE * 01528 M00S01327.superm +++|* IN THE FORM YYMMDD. * 01529 M00S01328.superm +++|* * 01530 M00S01329.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01531 M00S01330.superm +++|* * 01532 M00S01331.superm +++|* ENTER ASSIGN,JSN,2. * 01533 M00S01332.superm +++|* * 01534 M00S01333.superm +++|**************************************** 01535 M00S01334.superm +++|REQUEST,OPER. P2 FAILED 01536 M00S01335.superm +++|RETURN,OPER. 01537 M00S01336.superm +++|REVERT,EX.REVERT. P2 FAILED 01538 M00S01337.superm +++|.DATA,ZZVERD 01539 M00S01338.superm +++|.PROC,ZZVERD*I 01540 M00S01339.superm +++|,R1 [DATE SUPPLIED] 01541 M00S01340.superm +++| =(*S6(0123456789)) 01542 M00S01341.superm +++|. 01543 M00S01342.superm +++|REVERT,NOLIST. 01544 M00S01343.superm +++|.DATA,ZZVERDM 01545 M00S01344.superm +++|.PROC,ZZVERDM*I 01546 M00S01345.superm +++|,R1 [DATE SUPPLIED] 01547 M00S01346.superm +++| =(*S5(0123456789)) 01548 M00S01347.superm +++|. 01549 M00S01348.superm +++|REVERT. THIS PROC SHOULD FAIL 01550 M00S01349.superm +++|*WEOR 01551 M00S01350.superm +++|.PROC,VERF*I 01552 M00S01351.superm +++|,P1 [PERMANENT FILE NAME] 01553 M00S01352.superm +++| =(*A,*N=) 01554 M00S01353.superm +++|,P2 [TOOL] 01555 M00S01354.superm +++| =(*F) 01556 M00S01355.superm +++|. 01557 M00S01356.superm +++|ZZVERF,P1. 01558 M00S01357.superm +++|REVERT,NOLIST. VERF COMPLETED. 01559 M00S01358.superm +++|EXIT. 01560 M00S01359.superm +++|SET(R1G=1)
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01561 M01S00057.superm1 +++|RETURN,*,OUTPUT. 01562 M00S01360.superm +++|**************************************** 01563 M00S01361.superm +++|* * 01564 M00S01362.superm +++|* ERROR--FILE NAME: P1. * 01565 M00S01363.superm +++|* NOT PROPERLY SPECIFIED * 01566 M00S01364.superm +++|* TRY AGAIN WITH A 1-7 CHARACTER * 01567 M00S01365.superm +++|* ALPHANUMERIC FILE NAME. * 01568 M00S01366.superm +++|* * 01569 M00S01367.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01570 M00S01368.superm +++|* * 01571 M00S01369.superm +++|* ENTER ASSIGN,JSN,2. * 01572 M00S01370.superm +++|* * 01573 M00S01371.superm +++|**************************************** 01574 M00S01372.superm +++|REQUEST,OPER. P2 FAILED 01575 M00S01373.superm +++|RETURN,OPER. 01576 M00S01374.superm +++|REVERT,EX.REVERT. P2 FAILED 01577 M00S01375.superm +++|.DATA,ZZVERF 01578 M00S01376.superm +++|.PROC,ZZVERF*I 01579 M00S01377.superm +++|,R1 [FILE NAME] 01580 M00S01378.superm +++| =(*F,*N=) 01581 M00S01379.superm +++|. 01582 M00S01380.superm +++|REVERT,NOLIST. 01583 M00S01381.superm +++|*WEOR 01584 M00S01382.superm +++|.PROC,VERJSN*I 01585 M00S01383.superm +++|,JSN [JOB SEQUENCE NUMBER] 01586 M00S01384.superm +++| =(*S4(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)). 01587 M00S01385.superm +++|REVERT. VERJSN COMPLETED. 01588 M00S01386.superm +++|*WEOR 01589 M00S01387.superm +++|.PROC,VERMPL*I 01590 M00S01388.superm +++|,R1 [PASSWORD SUPPLIED] 01591 M00S01389.superm +++| =(*S3(0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ)) 01592 M00S01390.superm +++|. 01593 M00S01391.superm +++|NOTE(OUTPUT,NR)* ERROR-- PASSWORD: R1 TOO SHORT 01594 M00S01392.superm +++|NOTE(OUTPUT,NR)* TRY AGAIN WITH A 4 TO 7 CHARACTER PASSWORD 01595 M00S01393.superm +++|ROLLOUT(5) 01596 M00S01394.superm +++| 01597 M00S01395.superm +++|REVERT. THIS PROC SHOULD FAIL 01598 M00S01396.superm +++|*WEOR 01599 M00S01397.superm +++|.PROC,VERPASS*I 01600 M00S01398.superm +++|,P1 [PASSWORD SUPPLIED] 01601 M00S01399.superm +++| =(*A,*N=) 01602 M00S01400.superm +++|,P2 [TOOL] 01603 M00S01401.superm +++| =(*F) 01604 M00S01402.superm +++|. 01605 M00S01403.superm +++|BEGIN(VERMPL,ZZZPFIL,P1) PASSWORD AT LEAST FOUR CHARACTERS 01606 M00S01404.superm +++|SKIP,VERPASS1. 01607 M00S01405.superm +++|EXIT. PASSWORD NOT TOO SHORT 01608 M00S01406.superm +++|ZZVERP,P1. INSURE PASSWORD IS 7 OR FEWER CHARACTERS 01609 M00S01407.superm +++|REVERT,NOLIST. VERPASS COMPLETED. 01610 M00S01408.superm +++|EXIT. 01611 M00S01409.superm +++|ENDIF,VERPASS1. 01612 M00S01410.superm +++|SET(R1G=1)
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01613 M01S00058.superm1 +++|RETURN,*,OUTPUT. 01614 M00S01411.superm +++|**************************************** 01615 M00S01412.superm +++|* * 01616 M00S01413.superm +++|* ERROR--PASSWORD: P1. * 01617 M00S01414.superm +++|* NOT PROPERLY SPECIFIED * 01618 M00S01415.superm +++|* TRY AGAIN WITH A 4-7 CHARACTER * 01619 M00S01416.superm +++|* ALPHANUMERIC PASSWORD. * 01620 M00S01417.superm +++|* * 01621 M00S01418.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01622 M00S01419.superm +++|* * 01623 M00S01420.superm +++|* ENTER ASSIGN,JSN,2. * 01624 M00S01421.superm +++|* * 01625 M00S01422.superm +++|**************************************** 01626 M00S01423.superm +++|REQUEST,OPER. P2 FAILED 01627 M00S01424.superm +++|RETURN,OPER. 01628 M00S01425.superm +++|REVERT,EX.REVERT. P2 FAILED 01629 M00S01426.superm +++|.DATA,ZZVERP 01630 M00S01427.superm +++|.PROC,ZZVERP*I 01631 M00S01428.superm +++|,R1 [PASSWORD SUPPLIED] 01632 M00S01429.superm +++| =(*S7(0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ)) 01633 M00S01430.superm +++|. 01634 M00S01431.superm +++|REVERT,NOLIST. 01635 M00S01432.superm +++|*WEOR 01636 M00S01433.superm +++|.PROC,VERPURG*I 01637 M00S01434.superm +++|,P [PURGE ON-OFF] 01638 M00S01435.superm +++| =(PURGE=PURGE,*N=,*A). 01639 M00S01436.superm +++|IF,$P$.EQ.$PURGE$,VERPURG1. 01640 M00S01437.superm +++|REVERT. FILES WILL BE PURGED. 01641 M00S01438.superm +++|ENDIF,VERPURG1. 01642 M00S01439.superm +++|IF,$P$.EQ.$$,VERPURG2. 01643 M00S01440.superm +++|REVERT. FILES WILL NOT BE PURGED. 01644 M00S01441.superm +++|ELSE,VERPURG2. 01645 M00S01442.superm +++|REVERT,ABORT. VERPURGE FAILED. 01646 M00S01443.superm +++|ENDIF,VERPURG2. 01647 M00S01444.superm +++|REVERT,NOLIST. VERPURGE COMPLETED. 01648 M00S01445.superm +++|*WEOR 01649 M00S01446.superm +++|.PROC,VERSETM*I 01650 M00S01447.superm +++|,NUMBER [NUMBER OF TAPES IN SET] 01651 M00S01448.superm +++| =(*S1(12345678)). 01652 M00S01449.superm +++|REVERT,NOLIST. VERSETM COMPLETED. 01653 M00S01450.superm +++|*WEOR 01654 M00S01451.superm +++|.PROC,VERSETN*I 01655 M00S01452.superm +++|,SETNAME [SETNAME OF TAPE SET] 01656 M00S01453.superm +++| =(*S5(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)). 01657 M00S01454.superm +++|REVERT,NOLIST. VERSETN COMPLETED. 01658 M00S01455.superm +++|*WEOR 01659 M00S01456.superm +++|.PROC,VERSTPN*I 01660 M00S01457.superm +++|,TOOL [TOOL TO EXECUTE] 01661 M00S01458.superm +++| =(DUMPALL=1,DUMPMOD=1,DUMPQUE=1,DUMPLOG=2, 01662 M00S01459.superm +++| ENDLOG =0,ENDDF =1,LOADF =4,LOADQUE=1, 01663 M00S01460.superm +++| LOADLOG=5,DUMPOLD=2,PURGLOG=0,VALUSER=3, 01664 M00S01461.superm +++| LISTQUE=0,FINDJSN=1,BLANKST=2) 01665 M00S01462.superm +++|,P1 [FIRST PARAMETER] 01666 M00S01463.superm +++| =(*N=,*A) 01667 M00S01464.superm +++|,P2 [SECOND PARAMETER] 01668 M00S01465.superm +++| =(*N=,*A) 01669 M00S01466.superm +++|,P3 [THIRD PARAMETER] 01670 M00S01467.superm +++| =(*N=,*A) 01671 M00S01468.superm +++|,P4 [FOURTH PARAMETER] 01672 M00S01469.superm +++| =(*N=,*A) 01673 M00S01470.superm +++|,P5 [FIFTH PARAMETER] 01674 M00S01471.superm +++| =(*N=,*A) 01675 M00S01472.superm +++|,P6 [SIXTH PARAMETER] 01676 M00S01473.superm +++| =(*N=,*A) 01677 M00S01474.superm +++|,P7 [SEVENTH PARAMETER] 01678 M00S01475.superm +++| =(*N=,*A) 01679 M00S01476.superm +++|. 01680 M00S01477.superm +++|.IF,((TOOL.LE.5).AND.(($P6$.NE.$$).OR.($P7$.NE.$$))).SKIP,VERSTP1. 01681 M00S01478.superm +++|.IF,((TOOL.LE.4).AND.($P5$.NE.$$)).SKIP,VERSTP1. 01682 M00S01479.superm +++|.IF,((TOOL.LE.3).AND.($P4$.NE.$$)).SKIP,VERSTP1. 01683 M00S01480.superm +++|.IF,((TOOL.LE.2).AND.($P3$.NE.$$)).SKIP,VERSTP1. 01684 M00S01481.superm +++|.IF,((TOOL.LE.1).AND.($P2$.NE.$$)).SKIP,VERSTP1. 01685 M00S01482.superm +++|.IF,((TOOL.EQ.0).AND.($P1$.NE.$$)).SKIP,VERSTP1. 01686 M00S01483.superm +++|* NUMBER OF PARAMETERS VERIFIED. 01687 M00S01484.superm +++|REVERT,EX.REVERT. VERTOOL COMPLETE 01688 M00S01485.superm +++|ENDIF,VERSTP1.
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01689 M01S00059.superm1 +++|RETURN,*,OUTPUT. 01690 M00S01486.superm +++|**************************************** 01691 M00S01487.superm +++|* * 01692 M00S01488.superm +++|* ERROR-- TOO MANY PARAMETERS WERE * 01693 M00S01489.superm +++|* SUPPLIED FOR THIS #TOOL * 01694 M00S01490.superm +++|* * 01695 M00S01491.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01696 M00S01492.superm +++|* * 01697 M00S01493.superm +++|* ENTER: ASSIGN,JSN,2 * 01698 M00S01494.superm +++|* * 01699 M00S01495.superm +++|**************************************** 01700 M00S01496.superm +++|REQUEST,OPER. MS FAILED 01701 M00S01497.superm +++|RETURN,OPER. 01702 M00S01498.superm +++|REVERT,EX.REVERT,EX.REVERT. MS FAILED 01703 M00S01499.superm +++|*WEOR 01704 M00S01500.superm +++|.PROC,VERTOOL*I 01705 M00S01501.superm +++|,TOOL [TOOL TO EXECUTE] 01706 M00S01502.superm +++| =(*N=,*A) 01707 M00S01503.superm +++|,P1 [FIRST PARAMETER] 01708 M00S01504.superm +++| =(*N=,*A) 01709 M00S01505.superm +++|,P2 [SECOND PARAMETER] 01710 M00S01506.superm +++| =(*N=,*A) 01711 M00S01507.superm +++|,P3 [THIRD PARAMETER] 01712 M00S01508.superm +++| =(*N=,*A) 01713 M00S01509.superm +++|,P4 [FOURTH PARAMETER] 01714 M00S01510.superm +++| =(*N=,*A) 01715 M00S01511.superm +++|,P5 [FIFTH PARAMETER] 01716 M00S01512.superm +++| =(*N=,*A) 01717 M00S01513.superm +++|,P6 [SIXTH PARAMETER] 01718 M00S01514.superm +++| =(*N=,*A) 01719 M00S01515.superm +++|,P7 [SEVENTH PARAMETER] 01720 M00S01516.superm +++| =(*N=,*A) 01721 M00S01517.superm +++|. 01722 M00S01518.superm +++|BEGIN(VERSTPN,ZZZPFIL,TOOL,P1,P2,P3,P4,P5,P6,P7) 01723 M00S01519.superm +++|REVERT,ABORT. 01724 M00S01520.superm +++|EXIT.
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | superm1 |
Seq # *Modification Id* Act ----------------------------+ 01725 M01S00060.superm1 +++|RETURN,*,OUTPUT. 01726 M00S01521.superm +++|**************************************** 01727 M00S01522.superm +++|* * 01728 M00S01523.superm +++|* ERROR--#TOOL: TOOL * 01729 M00S01524.superm +++|* NOT SUPPORTED FROM THE CONSOLE * 01730 M00S01525.superm +++|* * 01731 M00S01526.superm +++|* WHEN YOU HAVE READ THIS MESSAGE * 01732 M00S01527.superm +++|* * 01733 M00S01528.superm +++|* ENTER: ASSIGN,JSN,2. * 01734 M00S01529.superm +++|* * 01735 M00S01530.superm +++|****************************************
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/superm.txt · Last modified: (external edit)