16 Modifications

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.superm  +++|*NOSEQ
00002  M01S00002.superm  +++|DOC
00003  M01S00003.superm  +++|*****            CYBER SUPERMINI PROCEDURES.
00004  M01S00004.superm  +++|*
00005  M01S00005.superm  +++|*                J. H. ERICKSON        84/06/01
00006  M01S00006.superm  +++|*
00007  M01S00007.superm  +++|*                THESE PROCEDURES FRONT END THE STANDARD UTILITIES.
00008  M01S00008.superm  +++|*                THESE PROCEDURE DO NOT PRESENT ALL THE OPTIONS
00009  M01S00009.superm  +++|*                AVAILABLE UNDER NOS.  THEY DO REQUIRE ONLY A MINIMAL
00010  M01S00010.superm  +++|*                NUMBER OF DECISIONS ON THE PART OF THE USER.  MOST
00011  M01S00011.superm  +++|*                OF THE PROCEDURES ARE RUN FROM THE SYSTEM CONSOLE.
00012  M01S00012.superm  +++|*                THREE OF THE PROCEDURES ARE RUN FROM A TERMINAL
00013  M01S00013.superm  +++|*                IN SCREEN MODE.
00014  M01S00014.superm  +++|*
00015  M01S00015.superm  +++|*                BEFORE THE PROCEDURES CAN BE RUN THEY MUST BE
00016  M01S00016.superm  +++|*                INSTALLED USING THE SYSTEM PROCEDURE,
00017  M01S00017.superm  +++|*                MAINTAIN SYSTEM *MS*.
00018  M01S00018.superm  +++|*
00019  M01S00019.superm  +++|*                FROM DSD ENTER:    X.MS(SETUP)
00020  M01S00020.superm  +++|*
00021  M01S00021.superm  +++|*                THIS WILL TAKE THE PROCEDURES AND THE VALIDATION TYPES
00022  M01S00022.superm  +++|*                ON ULIB/SUPERM AND PLACE THEM ON USER NAME SYSTEMX ON
00023  M01S00023.superm  +++|*                A PERMANENT FILE CALLED ZZZPFIL.  THE PROCEDURE CPASS
00024  M01S00024.superm  +++|*                WILL BE PLACED ON A PUBLIC PERMANENT FILE ON SYSTEMX.
00025  M01S00025.superm  +++|*                *MS* WILL CREATE THE FILE ZZZZVDI USED BY VALUSER AND
00026  M01S00026.superm  +++|*                WRITEVI.  THESE FILES CREATED BY *MS* ON SYSTEMX WILL
00027  M01S00027.superm  +++|*                GIVE USER NAME INSTALL WRITE PERMISSION.
00028  M01S00028.superm  +++|*
00029  M01S00029.superm  +++|*                SETUP MAY ALSO BE USED AS FOLLOWS:
00030  M01S00030.superm  +++|*
00031  M01S00031.superm  +++|*                X.MS(SETUP,XXXX)
00032  M01S00032.superm  +++|*
00033  M01S00033.superm  +++|*                THIS FORMAT ALLOWS THE OPERATOR TO INSTALL PROTIONS
00034  M01S00034.superm  +++|*                OF WHAT WAS INSTALLED BY * X.MS(SETUP) *.  THE
00035  M01S00035.superm  +++|*                PORTION IS SPECIFIED BY USING THE PARAMETER *XXXX*.
00036  M01S00036.superm  +++|*                SUBSTITUTING ZZZZVDI FOR XXXX INSTALLS ZZZZVDI.
00037  M01S00037.superm  +++|*                SUBSTITUTING SUPERM FOR XXXX INSTALLS THE PROCEDURES
00038  M01S00038.superm  +++|*                AND VALIDATION TYPES.
00039  M01S00039.superm  +++|*
00040  M01S00040.superm  +++|*                ALL THE TAPES USED IN THESE PROCEDURES ARE ASSUMED
00041  M01S00041.superm  +++|*                TO BE PRELABELED GE DENSITY TAPES.  THE PROCEDURES
00042  M01S00042.superm  +++|*                FOR DAYFILE AND QUEUE FILE MAINTENANCE ASSUME ONLY
00043  M01S00043.superm  +++|*                ONE TAPE WILL BE REQUIRED FOR EACH RUN.  A SETNAME
00044  M01S00044.superm  +++|*                PARAMETER IS SUPPLIED TO IDENTIFY THE SET OF TAPES
00045  M01S00045.superm  +++|*                USED.  THE SETNAME MUST BE 1-5 ALPHANUMERIC CHARACTERS.
00046  M01S00046.superm  +++|*                THE PROCEDURES CONCATENATE THE SETNAME WITH THE
00047  M01S00047.superm  +++|*                VOLUME NUMBER OF TAPE TO GET THE ACTUAL VSN.

Seq #  *Modification Id* Act 
----------------------------+
00048  M02S00048.superm3 ---|*                  EXAMPLE: THE SETNAME IS FRIDAY, THE VSN WOULD
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  M01S00049.superm  +++|*                        BE FRIDAY1 OR FRIDAY2, ETC.
00052  M01S00050.superm  +++|*
00053  M01S00051.superm  +++|*                THE GLOBAL *CCL* REGISTER R1G IS USED TO COMMUNICATE
00054  M01S00052.superm  +++|*                BETWEEN THE SYSTEM PROCEDURE, *MS* AND THE CALLED
00055  M01S00053.superm  +++|*                PROCEDURES.  IF R1G IS EQUAL TO ONE THEN *MS* KNOWS
00056  M01S00054.superm  +++|*                THERE WAS A FAILURE IN THE CALLED PROCEDURES AND
00057  M01S00055.superm  +++|*                THE CALLED PROCEDURE NOTIFIED THE OPERATOR.  IF
00058  M01S00056.superm  +++|*                *MS* GOES TO EXIT PROCESSING THEN *MS* KNOWS THERE
00059  M01S00057.superm  +++|*                WAS AN ERROR IN THE CALLED PROCEDURE AND THE CALLED
00060  M01S00058.superm  +++|*                PROCEDURE DID NOT NOTIFIED THE OPERATOR.  IF R1G
00061  M01S00059.superm  +++|*                IS EQUAL TO ZERO THEN THE CALLED PROCEDURE COMPLETED
00062  M01S00060.superm  +++|*                SUCCESSFULLY.
00063  M01S00061.superm  +++|*
00064  M01S00062.superm  +++|*WEOR
00065  M01S00063.superm  +++|.PROC,MS*I
00066  M01S00064.superm  +++|,TOOL =(*F)
00067  M01S00065.superm  +++|,P1   =(*N=$$,*A)
00068  M01S00066.superm  +++|,P2   =(*N=$$,*A)
00069  M01S00067.superm  +++|,P3   =(*N=$$,*A)
00070  M01S00068.superm  +++|,P4   =(*N=$$,*A)
00071  M01S00069.superm  +++|,P5   =(*N=$$,*A)
00072  M01S00070.superm  +++|,P6   =(*N=$$,*A)
00073  M01S00071.superm  +++|,P7   =(*N=$$,*A)
00074  M01S00072.superm  +++|.
00075  M01S00073.superm  +++|.* MS - MAINTAIN SYSTEM
00076  M01S00074.superm  +++|.* THIS SYSTEM PROCEDURE IS USED TO INITIATE TOOLS
00077  M01S00075.superm  +++|.* THAT ARE USED IN MAINTAINING THE SYSTEM.
00078  M01S00076.superm  +++|.* DSD COMMAND FORMAT:
00079  M01S00077.superm  +++|.*
00080  M01S00078.superm  +++|.*     X.MS(TOOL,P1,P2,P3...)
00081  M01S00079.superm  +++|.*

Seq #  *Modification Id* Act 
----------------------------+
00082  M02S00080.superm2 ---|.* WHERE TOLL IS THE PROCEDURE NAME, P1, P2, P3, ETC. ARE THE
00083  M01S00001.superm2 +++|.* WHERE TOOL IS THE PROCEDURE NAME, P1, P2, P3, ETC.  ARE THE
00084  M01S00081.superm  +++|.* PARAMETERS TO THE PROCEDURE.

Seq #  *Modification Id* Act 
----------------------------+
00085  M02S00082.superm3 ---|.* THE PROCEDURE DESIGNED TO BE INITIATIED FROM A TERMINAL WILL
00086  M01S00003.superm3 +++|.* THE PROCEDURE DESIGNED TO BE INITIATED FROM A TERMINAL WILL
00087  M01S00083.superm  +++|.* BE INITIATED AS:
00088  M01S00084.superm  +++|.*
00089  M01S00085.superm  +++|.*    SCREEN,TERMINAL TYPE.
00090  M01S00086.superm  +++|.*    MS(TOOL)
00091  M01S00087.superm  +++|.*
00092  M01S00088.superm  +++|.* IN THIS CASE, THE TOOL WILL PROMPT THE USER FOR THE PARAMETERS.
00093  M01S00089.superm  +++|.* CURRENTLY THE TOOLS RESIDE ON A PERMANENT FILE ZZZPFIL ON
00094  M01S00090.superm  +++|.* SYSTEMX.
00095  M01S00091.superm  +++|.IF,OT.EQ.SYO,MS1.
00096  M01S00092.superm  +++|* EXECUTE TOOL FROM THE CONSOLE

Seq #  *Modification Id* Act 
----------------------------+
00097  M02S00093.superm1 ---|  SUI,377777.

Seq #  *Modification Id* Act 
----------------------------+
00098  M02S00001.superm5 ---|  USER(SYSTEMX,SYSTEMX)

Seq #  *Modification Id* Act 
----------------------------+
00099  M02S00004.superm5 ---|    SKIP,MSTAG1.

Seq #  *Modification Id* Act 
----------------------------+
00100  M02S00005.superm5 ---|    EXIT.

Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00006.superm5 ---|    .IF,($TOOL$.NE.$LOADF$).OR.($P2$.NE.$$),MSTAG2.

Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00007.superm5 ---|       ***************************************

Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00008.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00009.superm5 ---|       *  USER COMMAND:                      *

Seq #  *Modification Id* Act 
----------------------------+
00105  M02S00010.superm5 ---|       *  USER,SYSTEMX,SYSTEMX.              *

Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00011.superm5 ---|       *  FAILED.  CORRECT THE PASSWORD      *

Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00012.superm5 ---|       *  OR EXECUTE X.MS(LOADF,SETNAME).    *

Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00013.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00014.superm5 ---|       *  WHEN YOU HAVE READ THIS MESSAGE    *

Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00015.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00016.superm5 ---|       *     ENTER: ASSIGN,JSN,2.            *

Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00017.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00018.superm5 ---|       ***************************************

Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00019.superm5 ---|       REQUEST,OPER.  TOOL FAILED.

Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00020.superm5 ---|       RETURN,OPER.

Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00021.superm5 ---|       REVERT,ABORT.  MS FAILED.

Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00022.superm5 ---|    ENDIF,MSTAG2.

Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00023.superm5 ---|    VSN,TAPE=P1_1/P1_2/P1_3/P1_4/P1_5/P1_6/P1_7/P1_8.

Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00024.superm5 ---|    LABEL,TAPE,NT,D=GE,PO=RF.

Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00025.superm5 ---|    PFLOAD,OP=LV.    EXECUTE A FULL LOAD.

Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00026.superm5 ---|    ISF.

Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00027.superm5 ---|    USER,SYSTEMX,SYSTEMX.

Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00028.superm5 ---|       SKIP,MSTAG3.

Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00029.superm5 ---|       EXIT.

Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00030.superm5 ---|       ***************************************

Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00031.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00032.superm5 ---|       *  USER COMMAND:                      *

Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00033.superm5 ---|       *  USER,SYSTEMX,SYSTEMX.              *

Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00034.superm5 ---|       *  FAILED.  CORRECT THE PASSWORD      *

Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00035.superm5 ---|       *  OR EXECUTE X.MS(LOADF,SETNAME).    *

Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00036.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00037.superm5 ---|       *  WHEN YOU HAVE READ THIS MESSAGE    *

Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00038.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00039.superm5 ---|       *     ENTER: ASSIGN,JSN,2.            *

Seq #  *Modification Id* Act 
----------------------------+
00135  M02S00040.superm5 ---|       *                                     *

Seq #  *Modification Id* Act 
----------------------------+
00136  M02S00041.superm5 ---|       ***************************************

Seq #  *Modification Id* Act 
----------------------------+
00137  M02S00042.superm5 ---|       REQUEST,OPER.    TOOL FAILED.

Seq #  *Modification Id* Act 
----------------------------+
00138  M02S00043.superm5 ---|       RETURN,OPER.

Seq #  *Modification Id* Act 
----------------------------+
00139  M02S00044.superm5 ---|       REVERT,ABORT.  MS FAILED.

Seq #  *Modification Id* Act 
----------------------------+
00140  M02S00045.superm5 ---|       ENDIF,MSTAG3.

Seq #  *Modification Id* Act 
----------------------------+
00141  M02S00046.superm5 ---|       BEGIN(SUCCESS,ZZZPFIL,TOOL)

Seq #  *Modification Id* Act 
----------------------------+
00142  M02S00047.superm5 ---|    ENDIF,MSTAG1.
00143  M01S00094.superm  +++|  .IF,$TOOL$.EQ.$SETUP$,MS2.
00144  M01S00095.superm  +++|  * THIS IS A SETUP RUN.
00145  M01S00096.superm  +++|  * ZZZPFIL AND/OR ZZZZVDI ARE INSTALLED
00146  M01S00097.superm  +++|  * ON SYSTEMX DEPENDING ON THE P1 PARAMETER.
00147  M01S00098.superm  +++|  * SETUP IS CREATED BY A .DATA STATEMENT IN MS.
00148  M01S00099.superm  +++|    BEGIN(SETUP,SETUP,P1)
00149  M01S00100.superm  +++|    REVERT. MS COMPLETE
00150  M01S00101.superm  +++|    EXIT.
00151  M01S00002.superm1 +++|    RETURN,*,OUTPUT.
00152  M01S00102.superm  +++|    ***********************************
00153  M01S00103.superm  +++|    *                                  *
00154  M01S00104.superm  +++|    *SETUP IS NOT SUPPORTED AS CALLED. *
00155  M01S00105.superm  +++|    *PLEASE CONSULT CYBER SUPERMINI    *
00156  M01S00106.superm  +++|    *OPERATIONS HANDBOOK AND TRY AGAIN *
00157  M01S00107.superm  +++|    *                                  *
00158  M01S00108.superm  +++|    * WHEN YOU HAVE READ THIS MESSAGE  *
00159  M01S00109.superm  +++|    *                                  *
00160  M01S00110.superm  +++|    *   ENTER: ASSIGN,JSN,2.           *
00161  M01S00111.superm  +++|    *                                  *
00162  M01S00112.superm  +++|    ************************************
00163  M01S00113.superm  +++|    REQUEST(OPER) SETUP FAILED
00164  M01S00114.superm  +++|    RETURN(OPER)
00165  M01S00115.superm  +++|    REVERT. MS(SETUP) FAILED

Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00116.superm1 ---| .ENDIF,MS2.
00167  M01S00003.superm1 +++|  .ENDIF,MS2.
00168  M01S00117.superm  +++|  ATTACH,ZZZPFIL.
00169  M01S00118.superm  +++|  SKIP,MS3.
00170  M01S00119.superm  +++|    EXIT.
00171  M01S00120.superm  +++|    ***********************************
00172  M01S00121.superm  +++|    *                                 *
00173  M01S00122.superm  +++|    * PROCFIL ZZZPFIL WAS NOT FOUND.  *
00174  M01S00123.superm  +++|    * RUN X.MS(SETUP) TO CREATE THIS  *
00175  M01S00124.superm  +++|    * PROCFIL.                        *
00176  M01S00125.superm  +++|    *                                 *
00177  M01S00126.superm  +++|    * WHEN YOU HAVE READ THIS MESSAGE *
00178  M01S00127.superm  +++|    *                                 *
00179  M01S00128.superm  +++|    *   ENTER:  ASSIGN,JSN,2.         *
00180  M01S00129.superm  +++|    *                                 *
00181  M01S00130.superm  +++|    ***********************************
00182  M01S00131.superm  +++|    REQUEST(OPER)  MS FAILED.
00183  M01S00132.superm  +++|    RETURN(OPER)
00184  M01S00004.superm1 +++|    WRITEF.
00185  M01S00133.superm  +++|    REVERT. MS
00186  M01S00134.superm  +++|  ENDIF,MS3.
00187  M01S00135.superm  +++|  * CHECK TO SEE IF TOOL IS
00188  M01S00136.superm  +++|  * SUPPORTED FROM THE CONSOLE
00189  M01S00137.superm  +++|  * IF SO CHECK TO SEE IF TOO MANY
00190  M01S00138.superm  +++|  * PARAMETERS WERE SUPPLIED
00191  M01S00139.superm  +++|  BEGIN(VERTOOL,ZZZPFIL,TOOL,P1,P2,P3,P4,P5,P6,P7)
00192  M01S00140.superm  +++|
00193  M01S00141.superm  +++|  * EXECUTE THE TOOL
00194  M01S00142.superm  +++|  BEGIN(TOOL,ZZZPFIL,P1,P2,P3,P4,P5)
00195  M01S00143.superm  +++|  SKIP,MS6.
00196  M01S00144.superm  +++|    EXIT.
00197  M01S00145.superm  +++|    * TOOL FAILED AND THE EXACT
00198  M01S00146.superm  +++|    * ERROR COULD NOT BE IDENTIFIED.
00199  M01S00147.superm  +++|    BEGIN(ERRTOOL,ZZZPFIL,TOOL)
00200  M01S00148.superm  +++|    REVERT. MS
00201  M01S00149.superm  +++|  ENDIF,MS6.
00202  M01S00150.superm  +++|  * THE R1G REGISTER IS USED TO STATE WHETHER OR
00203  M01S00151.superm  +++|  * NOT TOOL WAS SUCCESSFUL.
00204  M01S00152.superm  +++|  * R1G=1 FOR ERROR IN TOOL.
00205  M01S00153.superm  +++|  IF,R1G.EQ.1,MS7.
00206  M01S00154.superm  +++|    * THERE WAS AN ERROR IN TOOL THAT WAS
00207  M01S00155.superm  +++|    * REPORTED TO THE OPERATOR BY TOOL.
00208  M01S00005.superm1 +++|    WRITEF.
00209  M01S00156.superm  +++|    REVERT.  MS
00210  M01S00157.superm  +++|  ENDIF,MS7.
00211  M01S00158.superm  +++|  * TOOL COMPLETED SUCCESSFULLY.
00212  M01S00159.superm  +++|  BEGIN(SUCCESS,ZZZPFIL,TOOL)
00213  M01S00160.superm  +++|.ELSE,MS1.
00214  M01S00161.superm  +++|.IF,OT.EQ.IAO,MS1.
00215  M01S00162.superm  +++|  ATTACH,ZZZPFIL/UN=SYSTEMX,NA.
00216  M01S00163.superm  +++|  ATTACH,ZZPPFIL/UN=SYSTEMX.
00217  M01S00164.superm  +++|SKIP,MS8.
00218  M01S00165.superm  +++|    EXIT.
00219  M01S00166.superm  +++|    NOTE(OUTPUT)* PROCFIL ZZPPFIL WAS NOT FOUND.
00220  M01S00167.superm  +++|    NOTE(OUTPUT)* RUN X.MS(SETUP)
00221  M01S00006.superm1 +++|    NOTE(OUTPUT)* FROM THE CONSOLE

Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00168.superm1 ---|    NOTE(OUTPUT)* TO CREATE THIS PROCIFL.
00223  M01S00007.superm1 +++|    NOTE(OUTPUT)* TO CREATE THIS PROCFIL.
00224  M01S00169.superm  +++|    ROLLOUT(5)
00225  M01S00170.superm  +++|    REVERT. MS(TOOL) FAILED
00226  M01S00171.superm  +++|ENDIF,MS8.
00227  M01S00172.superm  +++|
00228  M01S00173.superm  +++|  * CHECK TO SEE IF TOOL IS SUPPORTED
00229  M01S00174.superm  +++|  * FROM A TERMINAL
00230  M01S00175.superm  +++|  BEGIN(VERIAT,ZZPPFIL,TOOL)
00231  M01S00176.superm  +++|
00232  M01S00177.superm  +++|  * BEGIN EXECUTION OF THE TOOL

Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00178.superm1 ---|  .IF,$TOOL$,.EQ.$WRITEVI$,MS11.
00234  M01S00008.superm1 +++|  .IF,$TOOL$.EQ.$WRITEVI$,MS11.
00235  M01S00179.superm  +++|  ATTACH,ZZZPFIL/UN=SYSTEMX.
00236  M01S00180.superm  +++|  BEGIN(TOOL,ZZZPFIL,P1,P2,P3,P4,P5,P6,P7)
00237  M01S00181.superm  +++|   REVERT. MS (TOOL) COMPLETED.
00238  M01S00182.superm  +++|   EXIT.
00239  M01S00183.superm  +++|   *  WRITEVI CANNOT BE RUN FROM THIS
00240  M01S00184.superm  +++|   *  USER.
00241  M01S00185.superm  +++|   REVERT. MS (TOOL) FAILED.
00242  M01S00186.superm  +++|  .ELSE,MS11.
00243  M01S00187.superm  +++|  BEGIN(TOOL,ZZPPFIL,P1,P2,P3,P4,P5,P6,P7)
00244  M01S00188.superm  +++|  REVERT. MS (TOOL) COMPLETED.
00245  M01S00189.superm  +++|  .ENDIF,MS11
00246  M01S00190.superm  +++|
00247  M01S00191.superm  +++|  SKIP,MS9.
00248  M01S00192.superm  +++|    EXIT.
00249  M01S00193.superm  +++|    NOTE(OUTPUT,NR)* TOOL FAILED. PLEASE
00250  M01S00194.superm  +++|    NOTE(OUTPUT,NR)* EXAMINE THE DAYFILE
00251  M01S00195.superm  +++|    NOTE(OUTPUT,NR)* TO IDENTIFIED THE CAUSE.
00252  M01S00196.superm  +++|    ROLLOUT(5)
00253  M01S00197.superm  +++|    REVERT. MS  (TOOL) FAILED
00254  M01S00198.superm  +++|  ENDIF,MS9.
00255  M01S00199.superm  +++|  REVERT. (TOOL) COMPLETE
00256  M01S00200.superm  +++|.ELSE,MS1.
00257  M01S00201.superm  +++|* TOOL NOT SUPPORTED FROM
00258  M01S00202.superm  +++|* THIS ORIGIN TYPE.
00259  M01S00203.superm  +++|* #TOOLS ARE ONLY SUPPORTED FROM A
00260  M01S00204.superm  +++|* TERMINAL OR THE CONSOLE BY MS.
00261  M01S00205.superm  +++|* PLEASE TRY TOOL FROM AN ORIGIN
00262  M01S00206.superm  +++|* TYPE WHICH SUPPORTS IT.
00263  M01S00207.superm  +++|* TOOL WAS NOT RUN.
00264  M01S00208.superm  +++|REVERT. MS FAILED.
00265  M01S00209.superm  +++|.ENDIF,MS1.
00266  M01S00210.superm  +++|.IF,OT.EQ.SYO,MS10.
00267  M01S00211.superm  +++|.DATA,SETUP.
00268  M01S00212.superm  +++|.EXPAND,OFF.
00269  M01S00213.superm  +++|.PROC,SETUP*I
00270  M01S00214.superm  +++|,P1    [SETUP THIS]
00271  M01S00215.superm  +++|      =(*N=0,PROCFIL=1,ZZZZVDI=2)
00272  M01S00216.superm  +++|.
00273  M01S00217.superm  +++|IF,((P1.EQ.0).OR.(P1.EQ.2)),SETUP1.
00274  M01S00218.superm  +++|  * INSTALL ZZZZVDI.
00275  M01S00219.superm  +++|  PURGE(ZZZZVDI/NA)
00276  M01S00220.superm  +++|  DEFINE(ZZZZVDI)
00277  M01S00221.superm  +++|  PERMIT(ZZZZVDI,INSTALL=W)
00278  M01S00222.superm  +++|  RETURN(ZZZZVDI)
00279  M01S00223.superm  +++|  SKIP,SETUP1.
00280  M01S00224.superm  +++|    EXIT.
00281  M01S00001.superm4 +++|    IF,PNL.EQ.2,SETUP3.
00282  M01S00009.superm1 +++|    RETURN,*,OUTPUT.
00283  M01S00002.superm4 +++|    ENDIF,SETUP3.
00284  M01S00225.superm  +++|    ***************************************
00285  M01S00226.superm  +++|    *                                     *
00286  M01S00227.superm  +++|    *     SETUP FAILED WHILE TRYING       *
00287  M01S00228.superm  +++|    * TO CREATE ZZZZVDI. PLEASE EXAMINE   *
00288  M01S00229.superm  +++|    * THE OUTPUT TO ISOLATE THE CAUSE.    *
00289  M01S00230.superm  +++|    *                                     *
00290  M01S00231.superm  +++|    * WHEN YOU HAVE READ THIS MESSAGE     *
00291  M01S00232.superm  +++|    *                                     *
00292  M01S00233.superm  +++|    *  ENTER: ASSIGN,JSN,2.               *
00293  M01S00234.superm  +++|    *                                     *
00294  M01S00235.superm  +++|    ***************************************
00295  M01S00003.superm4 +++|    IF,PNL.EQ.2,SETUP4.
00296  M01S00236.superm  +++|    REQUEST(OPER) SETUP FAILED
00297  M01S00237.superm  +++|    RETURN(OPER)
00298  M01S00004.superm4 +++|    ELSE,SETUP4.
00299  M01S00005.superm4 +++|      REVERT,EX.REVERT,ABORT. SETUP FAILED.
00300  M01S00006.superm4 +++|    ENDIF,SETUP4.
00301  M01S00238.superm  +++|    REVERT. SETUP FAILED
00302  M01S00239.superm  +++|ENDIF,SETUP1.
00303  M01S00240.superm  +++|IF,((P1.EQ.0).OR.(P1.EQ.1)),SETUP2.
00304  M01S00241.superm  +++|  * INSTALL THE PROCFILS, ZZZPFIL AND ZZPPFIL.
00305  M01S00242.superm  +++|  COMMON(SYSTEM)
00306  M01S00243.superm  +++|  PURGE(ZZZPFIL,ZZPPFIL/NA)
00307  M01S00244.superm  +++|  DEFINE(ZZZPFIL)
00308  M01S00245.superm  +++|  DEFINE(ZZPPFIL/CT=PU)
00309  M01S00246.superm  +++|  PERMIT(ZZZPFIL,INSTALL=W)
00310  M01S00247.superm  +++|  GTR(SYSTEM,TEMP)ULIB/SUPERM
00311  M01S00248.superm  +++|  GTR(TEMP)SPRI-EPRI
00312  M01S00249.superm  +++|  LIBEDIT(N=ZZZPFIL,P=0,Z)/*FILE LGO/*IGNORE,SPRI,EPRI/*BUILD ZZZPFIL
00313  M01S00250.superm  +++|  RETURN,LGO.
00314  M01S00251.superm  +++|  GTR(TEMP)SPUB-EPUB
00315  M01S00252.superm  +++|  LIBEDIT(N=ZZPPFIL,P=0,Z)/*FILE LGO/*IGNORE,SPUB,EPUB/*BUILD ZZPPFIL
00316  M01S00253.superm  +++|  ENDIF,SETUP2.
00317  M01S00007.superm4 +++|  IF,PNL.EQ.2,SETUP5.
00318  M01S00254.superm  +++|  BEGIN(SUCCESS,ZZZPFIL,SETUP)
00319  M01S00008.superm4 +++|  ENDIF,SETUP5.
00320  M01S00255.superm  +++|  WRITEF,OUTPUT.
00321  M01S00256.superm  +++|  REVERT. SETUP COMPLETE
00322  M01S00257.superm  +++|    EXIT.
00323  M01S00009.superm4 +++|    IF,PNL.EQ.2,SETUP6.
00324  M01S00010.superm1 +++|    RETURN,*,OUTPUT.
00325  M01S00010.superm4 +++|    ENDIF,SETUP6.
00326  M01S00258.superm  +++|    ***************************************
00327  M01S00259.superm  +++|    *                                     *
00328  M01S00260.superm  +++|    *     SETUP FAILED WHILE TRYING       *
00329  M01S00261.superm  +++|    * TO CREATE PROCFILS. PLEASE EXAMINE  *
00330  M01S00262.superm  +++|    * THE OUTPUT TO ISOLATE THE CAUSE.    *
00331  M01S00263.superm  +++|    *                                     *
00332  M01S00264.superm  +++|    * WHEN YOU HAVE READ THIS MESSAGE     *
00333  M01S00265.superm  +++|    *                                     *
00334  M01S00266.superm  +++|    *  ENTER: ASSIGN,JSN,2.               *
00335  M01S00267.superm  +++|    *                                     *
00336  M01S00268.superm  +++|    ***************************************
00337  M01S00011.superm4 +++|    IF,PNL.EQ.2,SETUP7.
00338  M01S00269.superm  +++|    REQUEST(OPER) SETUP FAILED
00339  M01S00270.superm  +++|    RETURN(OPER)
00340  M01S00012.superm4 +++|    ELSE,SETUP7.
00341  M01S00013.superm4 +++|      REVERT,EX.REVERT,ABORT. SETUP FAILED.
00342  M01S00014.superm4 +++|    ENDIF,SETUP7.
00343  M01S00271.superm  +++|    REVERT. SETUP FAILED
00344  M01S00272.superm  +++|.EXPAND.
00345  M01S00273.superm  +++|.ENDIF,MS10.
00346  M01S00274.superm  +++|*WEOR
00347  M01S00275.superm  +++|SPUB
00348  M01S00276.superm  +++|*WEOR
00349  M01S00277.superm  +++|.PROC,CPASS*I
00350  M01S00278.superm  +++|,OLDPASS  [OLD PASSWORD]
00351  M01S00279.superm  +++|          =(*S7(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)),
00352  M01S00280.superm  +++|,NEWPASS  [NEW PASSWORD]
00353  M01S00281.superm  +++|          =(*S7(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)),
00354  M01S00282.superm  +++|,NPASS    [ENTER NEW PASSWORD AGAIN]
00355  M01S00283.superm  +++|          =(*S7(ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789)).
00356  M01S00284.superm  +++|.*
00357  M01S00285.superm  +++|.*     COMMAND FORMAT : MS(CPASS)
00358  M01S00286.superm  +++|.*  THIS PROCEDURE CAN BE RUN FROM ANY TERMINAL LOGGED INTO A VALID
00359  M01S00287.superm  +++|.*  USER NAME.  CPASS WILL ASK FOR THE OLD PASSWORD AND THE NEW
00360  M01S00288.superm  +++|.*  PASSWORD. THEN IT WILL ASK FOR THE NEW PASSWORD AGAIN. IF THE
00361  M01S00289.superm  +++|.*  SECOND REPONSE MATCHES THE FIRST, CPASS WILL CHANGE BOTH THE
00362  M01S00290.superm  +++|.*  BATCH AND INTERACTIVE PASSWORDS TO THE NEW PASSWORD. IF THE
00363  M01S00291.superm  +++|.*  NEW PASSWORD IS NOT TYPED IN THE SAME BOTH TIMES CPASS WILL
00364  M01S00292.superm  +++|.*  ASK THE USER TO TRY AGAIN.
00365  M01S00293.superm  +++|.*
00366  M01S00294.superm  +++|.IF, $NEWPASS$ .NE. $NPASS$, CPASS1.
00367  M01S00295.superm  +++|NOTE(OUTPUT,NR)++ YOUR NEW PASSWORDS DISAGREE.  TRY AGAIN.+
00368  M01S00296.superm  +++|SET,R1G=1.
00369  M01S00297.superm  +++|.ELSE,CPASS1.
00370  M01S00298.superm  +++|PASSWOR,OLDPASS,NEWPASS.
00371  M01S00299.superm  +++|SUBMIT,CHGPASS,N.
00372  M01S00300.superm  +++|.ENDIF,CPASS1.
00373  M01S00301.superm  +++|REVERT.  CPASS COMPLETED.
00374  M01S00302.superm  +++|.DATA,CHGPASS
00375  M01S00303.superm  +++|/JOB

Seq #  *Modification Id* Act 
----------------------------+
00376  M02S00304.super17 ---|USERNAME.
00377  M01S00001.super17 +++|PASSWOR.
00378  M01S00305.superm  +++|/USER
00379  M01S00306.superm  +++|PASSWOR,OLDPASS,NEWPASS.
00380  M01S00307.superm  +++|EXIT.
00381  M01S00308.superm  +++|*WEOR
00382  M01S00309.superm  +++|.PROC,FINDJSN*I
00383  M01S00310.superm  +++|,JSN       [JOB SEQUENCE NUMBER]
00384  M01S00311.superm  +++|          =(*S4(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)).
00385  M01S00312.superm  +++|.*
00386  M01S00313.superm  +++|.*     COMMAND FORMAT : *FINDJSN(JSN)*
00387  M01S00314.superm  +++|.* THIS PROCEDURE PRINTS ALL DAYFILE ENTRIES FOR A SPECIFIC JOB
00388  M01S00315.superm  +++|.* BY EXAMINING THE CURRENT ACTIVE SYSTEM DAYFILE FOR ALL ENTRIES
00389  M01S00316.superm  +++|.* MADE BY THE JOB WITH A SPECIFIC JSN.
00390  M01S00317.superm  +++|.*
00391  M01S00318.superm  +++|ATTACH,DF=DAYFILE/UN=SYSTEMX/NA.
00392  M01S00319.superm  +++|IF,.NOT.FILE(DF,AS),FNDJSN1.
00393  M01S00320.superm  +++|SET,R1G=1.  ABORT.
00394  M01S00321.superm  +++|NOTE.++ DAYFILE NOT FOUND IN SYSTEMX.+
00395  M01S00322.superm  +++|RETURN,DF,FIEDIT.
00396  M01S00323.superm  +++|WRITEF,OUTPUT.
00397  M01S00324.superm  +++|REVERT.  FINDJSN ABORTED.
00398  M01S00325.superm  +++|ENDIF,FNDJSN1.

Seq #  *Modification Id* Act 
----------------------------+
00399  M02S00326.superm2 ---|EDIT,DF,I=FIEDIT.
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  M01S00327.superm  +++|RETURN,DF,FIEDIT.
00420  M01S00328.superm  +++|WRITEF,OUTPUT.
00421  M01S00329.superm  +++|REVERT.  FINDJSN COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00330.superm2 ---|EXIT.

Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00331.superm2 ---|RETURN,DF,FIEDIT.

Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00332.superm2 ---|REVERT.  FINDJSN FAILED.
00425  M01S00333.superm  +++|.DATA,FIEDIT
00426  M01S00334.superm  +++|L:/.  JSN/;*
00427  M01S00335.superm  +++|END
00428  M01S00021.superm2 +++|.DATA,ZZZFIND.
00429  M01S00022.superm2 +++| BEGIN TEXT EDITING.
00430  M01S00023.superm2 +++| -END OF FILE-
00431  M01S00024.superm2 +++| END TEXT EDITING.
00432  M01S00336.superm  +++|*WEOR
00433  M01S00337.superm  +++|.PROC,LOADLOG*I
00434  M01S00338.superm  +++|,VSN       [VOLUME SERIAL NUMBER]
00435  M01S00339.superm  +++|          =(*S6(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)),
00436  M01S00340.superm  +++|,ACCOUNT   [LOAD ACCOUNT FILE.  ENTER YES OR NO]
00437  M01S00341.superm  +++|          =(NO,YES),
00438  M01S00342.superm  +++|,DAYFILE   [LOAD DAYFILE FILE.  ENTER YES OR NO]
00439  M01S00343.superm  +++|          =(NO,YES),
00440  M01S00344.superm  +++|,ERRLOG    [LOAD ERRLOG FILE.   ENTER YES OR NO]
00441  M01S00345.superm  +++|          =(NO,YES),
00442  M01S00346.superm  +++|,MAINLOG   [LOAD MAINLOG FILE.  ENTER YES OR NO]
00443  M01S00347.superm  +++|          =(NO,YES).
00444  M01S00348.superm  +++|.*
00445  M01S00349.superm  +++|.*     COMMAND FORMAT : *LOADLOG(VSN,ACCOUNT,DAYFILE,ERRLOG,MAINLOG)*
00446  M01S00350.superm  +++|.*  THIS PROCEDURE USES RECLAIM TO LOAD THE PERMANENT FILES (ACCOUNT,
00447  M01S00351.superm  +++|.*  DAYFILE, ERRLOG, AND MAINLOG) FROM A TAPE CREATED BY ENDLOG.
00448  M01S00352.superm  +++|.*  THE TAPE IS A GE DENSITY LABELED TAPE WITH A VSN.
00449  M01S00353.superm  +++|.*  ANY SUBSET OF THESE LOGS MAY BE LOADED.
00450  M01S00354.superm  +++|.*
00451  M01S00355.superm  +++|EDIT,INDIR,I=LOEDIT,L=ZZSCR.
00452  M01S00356.superm  +++|RECLAIM,I=INDIR,DB=0.
00453  M01S00357.superm  +++|UNLOAD,INDIR,TAPE,LOEDIT,ZZSCR.
00454  M01S00358.superm  +++|WRITEF,OUTPUT.
00455  M01S00359.superm  +++|REVERT.  LOADLOG COMPLETED.
00456  M01S00360.superm  +++|EXIT.
00457  M01S00361.superm  +++|UNLOAD,INDIR,TAPE,LOEDIT,ZZSCR.
00458  M01S00362.superm  +++|WRITEF,OUTPUT.
00459  M01S00363.superm  +++|REVERT.  LOADLOG FAILED.
00460  M01S00364.superm  +++|.DATA,INDIR
00461  M01S00365.superm  +++|LOAD,D=GE,NT,TN=VSN,RP=Y,PF=*
00462  M01S00366.superm  +++|.IF,$ACCOUNT$ .EQ. $YES$.#ACCOUNT+
00463  M01S00367.superm  +++|.IF,$DAYFILE$ .EQ. $YES$.-#DAYFILE+
00464  M01S00368.superm  +++|.IF,$ERRLOG$  .EQ. $YES$.-#ERRLOG+
00465  M01S00369.superm  +++|.IF,$MAINLOG$ .EQ. $YES$.-#MAINLOG
00466  M01S00370.superm  +++|.DATA,LOEDIT
00467  M01S00371.superm  +++|CS:/+/,/-/;*
00468  M01S00372.superm  +++|/,/
00469  M01S00373.superm  +++|RS:/+/,/ /;1
00470  M01S00374.superm  +++|DS:/-/;1
00471  M01S00375.superm  +++|END
00472  M01S00376.superm  +++|*WEOR
00473  M01S00377.superm  +++|.PROC,VERIAT*I
00474  M01S00378.superm  +++|,P1   [TOOL]
00475  M01S00379.superm  +++|      =(WRITEVI=1,FINDJSN=1,LOADLOG=1,CPASS=1,1=L,*A)
00476  M01S00380.superm  +++|.
00477  M01S00381.superm  +++|.IF,($P1$.EQ.$1$).REVERT,NOLIST. TOOL SUPPORTED FROM TERMINAL
00478  M01S00382.superm  +++|NOTE(OUTPUT)* P1 NOT SUPPORTED FROM A TERMINAL
00479  M01S00383.superm  +++|ROLLOUT(5)
00480  M01S00384.superm  +++|REVERT,EX.REVERT. P1 FAILED
00481  M01S00385.superm  +++|*WEOR
00482  M01S00386.superm  +++|EPUB
00483  M01S00387.superm  +++|*WEOR
00484  M01S00388.superm  +++|SPRI
00485  M01S00389.superm  +++|*WEOR
00486  M01S00390.superm  +++|.PROC,BLANKST*I"BLANK LABEL A SET OF TAPES"
00487  M01S00391.superm  +++|,SETNAME   [SETNAME OF DUMP TAPES]
00488  M01S00392.superm  +++|          =(*A,*N=)
00489  M01S00393.superm  +++|,NUMBER    [NUMBER OF DUMP TAPES TO BLANK LABEL]
00490  M01S00394.superm  +++|          =(*A,*N=)
00491  M01S00395.superm  +++|.
00492  M01S00396.superm  +++|.*
00493  M01S00397.superm  +++|.*     COMMAND FORMAT : *X.MS(BLANKST,SETNAME,NUMBER)*
00494  M01S00398.superm  +++|.*  WHERE NUMBER IS THE NUMBER OF VOLUMES TO BE LABELED.
00495  M01S00399.superm  +++|.*  THIS PROCEDURE BLANK LABELS (NUMBER) TAPES USING (SETNAME)
00496  M01S00400.superm  +++|.*  AS THE ROOT.  THE VSNS WILL BE;
00497  M01S00401.superm  +++|.*  SETNAME_1  SETNAME_2  .... (MAX OF 8 TAPES)
00498  M01S00402.superm  +++|
00499  M01S00403.superm  +++|
00500  M01S00404.superm  +++|.*
00501  M01S00405.superm  +++|BEGIN,VERSETN,ZZZPFIL,SETNAME.  VERIFY SETNAME
00502  M01S00406.superm  +++|SKIP,BLANKST1.
00503  M01S00407.superm  +++|  EXIT.
00504  M01S00408.superm  +++|  BEGIN,ERRSETN,ZZZPFIL,BLANKST,SETNAME.
00505  M01S00409.superm  +++|  SET(R1G=1)
00506  M01S00410.superm  +++|  WRITEF,OUTPUT.
00507  M01S00411.superm  +++|  REVERT.  BLANKST FAILED
00508  M01S00412.superm  +++|ENDIF,BLANKST1.
00509  M01S00413.superm  +++|BEGIN,VERSETM,ZZZPFIL,NUMBER.  VERIFY MAX SETNAME
00510  M01S00414.superm  +++|SKIP,BLANKST2.
00511  M01S00415.superm  +++|  EXIT.
00512  M01S00416.superm  +++|  BEGIN,ERRSETM,ZZZPFIL,BLANKST,NUMBER.
00513  M01S00417.superm  +++|  SET(R1G=1)
00514  M01S00418.superm  +++|  WRITEF,OUTPUT.
00515  M01S00419.superm  +++|  REVERT.  BLANKST FAILED
00516  M01S00420.superm  +++|ENDIF,BLANKST2.
00517  M01S00421.superm  +++|
00518  M01S00422.superm  +++|SET,R1=0.
00519  M01S00423.superm  +++|WHILE,R1 .LT. NUMBER, BLANKST3.
00520  M01S00424.superm  +++|SET,R1=R1+1.
00521  M01S00425.superm  +++|BEGIN,BLANKX,ZZZPFIL,SETNAME,R1+D,BLANKST.
00522  M01S00426.superm  +++|ENDW,BLANKST3.
00523  M01S00427.superm  +++|WRITEF,OUTPUT.
00524  M01S00428.superm  +++|REVERT. BLANKST COMPLETED

Seq #  *Modification Id* Act 
----------------------------+
00525  M02S00429.superm1 ---|EXIT.

Seq #  *Modification Id* Act 
----------------------------+
00526  M02S00430.superm1 ---|WRITEF,OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00527  M02S00431.superm1 ---|REVERT.  BLANKST FAILED.
00528  M01S00432.superm  +++|*WEOR
00529  M01S00433.superm  +++|.PROC,BLANKX,ROOT,TAPENUM,P1.
00530  M01S00434.superm  +++|***************************************
00531  M01S00435.superm  +++|*                                     *
00532  M01S00436.superm  +++|*  TO ASSIGN A TAPE TO A TAPE DRIVE   *
00533  M01S00437.superm  +++|*     ENTER: ASSIGN,JSN,NN.           *
00534  M01S00438.superm  +++|*     WHERE NN IS THE EST OF THE      *
00535  M01S00439.superm  +++|*     TAPE DRIVE, FOUND IN THE E,T    *
00536  M01S00440.superm  +++|*     DISPLAY.                        *
00537  M01S00441.superm  +++|*                                     *
00538  M01S00442.superm  +++|***************************************
00539  M01S00443.superm  +++|BLANK,VSN=ROOT_TAPENUM,D=GE.
00540  M01S00444.superm  +++|REVERT,NOLIST.  BLANKX COMPLETE.
00541  M01S00445.superm  +++|EXIT.
00542  M01S00011.superm1 +++|RETURN,*,OUTPUT.
00543  M01S00446.superm  +++|SET,R1G=1.
00544  M01S00447.superm  +++|***************************************
00545  M01S00448.superm  +++|*                                     *
00546  M01S00449.superm  +++|* ERROR--BLANKST : SETNAME=ROOT       *
00547  M01S00450.superm  +++|* MAY BE OPERATOR TERMINATION ELSE    *
00548  M01S00451.superm  +++|* CONSULT DAYFILE.  THEN TRY AGAIN    *
00549  M01S00452.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
00550  M01S00453.superm  +++|*                                     *
00551  M01S00454.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
00552  M01S00455.superm  +++|*                                     *
00553  M01S00456.superm  +++|***************************************
00554  M01S00457.superm  +++|REQUEST,OPER.  P1 FAILED.
00555  M01S00458.superm  +++|RETURN,OPER.
00556  M01S00001.super18 +++|WRITEF,OUTPUT.
00557  M01S00459.superm  +++|REVERT,EX. REVERT. BLANKST FAILED.
00558  M01S00460.superm  +++|*WEOR
00559  M01S00461.superm  +++|.PROC,DUMPALL*I"DUMP ALL FILES"
00560  M01S00462.superm  +++|,P1        [SETNAME OF DUMP TAPES]
00561  M01S00463.superm  +++|          =(*A,*N=)
00562  M01S00464.superm  +++|.
00563  M01S00465.superm  +++|.*
00564  M01S00466.superm  +++|.*     COMMAND FORMAT : *X.MS(DUMPALL,SETNAME)*
00565  M01S00467.superm  +++|.*  THIS PROCEDURE DUMPS ALL PERMANENT FILES TO THE SET OF
00566  M01S00468.superm  +++|.*  TAPES IDENTIFIED BY SETNAME.  DUMPALL WILL ALSO CREATE

Seq #  *Modification Id* Act 
----------------------------+
00567  M02S00469.superm1 ---|.*  A PERMANENT FILE, ZZZDUMP, ON USER NAME SYSTEMX WHICH
00568  M01S00012.superm1 +++|.*  A PERMANENT FILE, ZZDUMPM, ON USER NAME SYSTEMX WHICH

Seq #  *Modification Id* Act 
----------------------------+
00569  M02S00470.superm2 ---|.*  CONTAINS THE SETNAME FOR THIS DUMP AND THE DATE OF THE
00570  M01S00025.superm2 +++|.*  CONTAINS THE SETNAME FOR THIS DUMP AND THE DATE AND TIME OF THE
00571  M01S00471.superm  +++|.*  DUMP.  THIS INFORMATION IS USED TO CONNECT THIS DUMP
00572  M01S00472.superm  +++|.*  WITH SUBSEQUENT DUMPS OF FILES THAT ARE MODIFIED

Seq #  *Modification Id* Act 
----------------------------+
00573  M02S00473.superm1 ---|.*
00574  M01S00013.superm1 +++|.*  AFTER THIS DUMP.
00575  M01S00014.superm1 +++|.*
00576  M01S00474.superm  +++|.*  WHEN THIS PROCEDURE COMPLETES CHECK THE DAYFILE
00577  M01S00475.superm  +++|.*  TO DETERMINE THAT ALL THE FILES WERE DUMPED.  IT
00578  M01S00476.superm  +++|.*  IS POSSIBLE FOR DUMPALL TO COMPLETE SUCESSFULLY
00579  M01S00477.superm  +++|.*  AND NOT HAVE ALL THE FILES DUMPED TO TAPE.  IF

Seq #  *Modification Id* Act 
----------------------------+
00580  M02S00478.superm3 ---|.*  A DIRECT ACCESS FILE IS ATTACHED TO A JOB THEN
00581  M01S00048.superm3 +++|.*  A DIRECT ACCESS FILE IS ATTACHED IN WRITE MODE TO A JOB THEN
00582  M01S00479.superm  +++|.*  THAT FILE IS SKIPPED BY DUMPALL.
00583  M01S00480.superm  +++|.*
00584  M01S00481.superm  +++|BEGIN(LABELS,ZZZPFIL,P1,DUMPALL,DATE+D)

Seq #  *Modification Id* Act 
----------------------------+
00585  M02S00482.superm1 ---|IF,R1G.EQ.1.REVERT. DUMPALL FAILED

Seq #  *Modification Id* Act 
----------------------------+
00586  M02S00483.superm2 ---|BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1)
00587  M01S00026.superm2 +++|BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1,TIME+D)
00588  M01S00484.superm  +++|WRITEF,OUTPUT.
00589  M01S00485.superm  +++|REVERT. DUMPALL COMPLETED
00590  M01S00486.superm  +++|*WEOR
00591  M01S00487.superm  +++|.PROC,DUMPFUL*I
00592  M01S00488.superm  +++|,P         [DATE OF FULL DUMP]
00593  M01S00489.superm  +++|          =(*A)
00594  M01S00490.superm  +++|,P2        [SETNAME OF FULL DUMP]
00595  M01S00027.superm2 +++|          =(*A)
00596  M01S00028.superm2 +++|,P3       [TIME OF FULL DUMP]
00597  M01S00491.superm  +++|          =(*A).

Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00492.superm1 ---|REPLACE,INDIR2.                      * P1 = VSN OF FULL DUMP*
00599  M01S00015.superm1 +++|REPLACE,ZZDUMPM.                     *P = CURRENT DATE. *
00600  M01S00493.superm  +++|PFDUMP.
00601  M01S00494.superm  +++|REVERT,NOLIST. DUMPFUL COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
00602  M02S00495.superm1 ---|.DATA,INDIR2.

Seq #  *Modification Id* Act 
----------------------------+
00603  M02S00496.superm1 ---|.PROC,INDIR2.

Seq #  *Modification Id* Act 
----------------------------+
00604  M02S00497.superm1 ---|PFDUMP,OP=M,AD=P,PVSN=P2_1.          * P0 = VSN OF INCREMENTAL DUMP *
00605  M01S00016.superm1 +++|.DATA,ZZDUMPM
00606  M01S00017.superm1 +++|.PROC,ZZDUMPM.

Seq #  *Modification Id* Act 
----------------------------+
00607  M02S00018.superm2 ---|PFDUMP,OP=M,AD=P,PVSN=P2_1.          *P2 = SETNAME OF FULL DUMP. *

Seq #  *Modification Id* Act 
----------------------------+
00608  M02S00029.superm6 ---|PFDUMP,OP=M,AD=P,AT=P3,PVSN=P2_1.        * P2 = SETNAME OF FULL DUMP.  *
00609  M01S00001.superm6 +++|PFDUMP,OP=M,AD=P,AT=P3_00,PVSN=P2_1.    * P2 = SETNAME OF FULL DUMP.  *

Seq #  *Modification Id* Act 
----------------------------+
00610  M02S00498.superm3 ---|REVERT,NOLIST.  INDIR2 COMPLETED.
00611  M01S00049.superm3 +++|REVERT,NOLIST.  ZZDUMPM COMPLETED.
00612  M01S00499.superm  +++|*WEOR
00613  M01S00500.superm  +++|.PROC,DUMPLOG*I
00614  M01S00501.superm  +++|,VSN       [VOLUME SERIAL NUMBER]
00615  M01S00502.superm  +++|          =(*A,*N=)
00616  M01S00503.superm  +++|,P         [PURGE ON/OFF]
00617  M01S00504.superm  +++|          =(*A,*N=).
00618  M01S00505.superm  +++|.*
00619  M01S00506.superm  +++|.*     COMMAND FORMAT : *DUMPLOG(VSN,PURGE)*
00620  M01S00507.superm  +++|.*  THIS PROCEDURE USES RECLAIM TO DUMP PERMANENT FILES
00621  M01S00508.superm  +++|.*  (ACCOUNT, DAYFILE, ERRLOG, AND MAINLOG) CREATED BY
00622  M01S00509.superm  +++|.*  PROCEDURE ENDLOG TO TAPE.  THE TAPE IS A GE DENSITY
00623  M01S00510.superm  +++|.*  LABELED TAPE WITH A VSN.  IF PARAMETER PURGE IS SET
00624  M01S00511.superm  +++|.*  TO PURGE, THE PERMANENT FILES ARE PURGED AFTER THEY
00625  M01S00512.superm  +++|.*  ARE DUMPED.  IF PURGE IS NOT SUPPLIED, THE FILES WILL
00626  M01S00513.superm  +++|.*  NOT BE PURGED.
00627  M01S00514.superm  +++|.*
00628  M01S00515.superm  +++|BEGIN,VERPURG,ZZZPFIL,P,DUMPLOG.
00629  M01S00516.superm  +++|
00630  M01S00517.superm  +++|ATTACH,ACCOUNT/NA.
00631  M01S00518.superm  +++|ATTACH,DAYFILE/NA.
00632  M01S00519.superm  +++|ATTACH,ERRLOG/NA.
00633  M01S00520.superm  +++|ATTACH,MAINLOG/NA.

Seq #  *Modification Id* Act 
----------------------------+
00634  M02S00521.superm1 ---|IF,FILE(ACCOUNT,LO),DUMPLOG2.

Seq #  *Modification Id* Act 
----------------------------+
00635  M02S00522.superm1 ---|IF,FILE(DAYFILE,LO),DUMPLOG2.

Seq #  *Modification Id* Act 
----------------------------+
00636  M02S00523.superm1 ---|IF,FILE(ERRLOG,LO),DUMPLOG2.

Seq #  *Modification Id* Act 
----------------------------+
00637  M02S00524.superm1 ---|IF,FILE(MAINLOG,LO),DUMPLOG2.

Seq #  *Modification Id* Act 
----------------------------+
00638  M02S00525.superm1 ---|ELSE,DUMPLOG2.

Seq #  *Modification Id* Act 
----------------------------+
00639  M02S00526.superm1 ---|RETURN,*.
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  M01S00527.superm  +++|SET,R1G=1.
00646  M01S00528.superm  +++|****************************************
00647  M01S00529.superm  +++|*                                      *
00648  M01S00530.superm  +++|*  ERROR-- DUMPLOG FAILED              *
00649  M01S00531.superm  +++|*     ENDLOG OR ENDDF MUST BE EXECUTED *
00650  M01S00532.superm  +++|*     BEFORE DUMPLOG.  EXAMINE THE     *
00651  M01S00533.superm  +++|*     OUTPUT FROM THIS JOB TO          *
00652  M01S00534.superm  +++|*     DETERMINE THE CAUSE OF THE       *
00653  M01S00535.superm  +++|*     FAILURE.                         *
00654  M01S00536.superm  +++|*                                      *
00655  M01S00537.superm  +++|*   WHEN YOU HAVE READ THIS MESSAGE    *
00656  M01S00538.superm  +++|*                                      *
00657  M01S00539.superm  +++|*      ENTER:  ASSIGN,JSN,2.           *
00658  M01S00540.superm  +++|***************************************
00659  M01S00541.superm  +++|REQUEST,OPER.  DUMPLOG FAILED.
00660  M01S00542.superm  +++|RETURN,OPER.
00661  M01S00543.superm  +++|REVERT. DUMPLOG FAILED.
00662  M01S00544.superm  +++|ENDIF,DUMPLOG2.
00663  M01S00545.superm  +++|RETURN,ACCOUNT,DAYFILE,ERRLOG,MAINLOG.
00664  M01S00546.superm  +++|
00665  M01S00547.superm  +++|
00666  M01S00548.superm  +++|BEGIN(LABELV,ZZZPFIL,VSN,DUMPLOG,DATE+D)
00667  M01S00549.superm  +++|

Seq #  *Modification Id* Act 
----------------------------+
00668  M02S00550.superm1 ---|RECLAIM,Z./DUMP,D=GE,NT,TN=VSN,PF=*/ACCOUNT,DAYFILE,ERRLOG,MAINLOG

Seq #  *Modification Id* Act 
----------------------------+
00669  M02S00024.super13 ---|RECLAIM,Z./DUMP,D=GE,EI=NO,NT,TN=VSN,PF=*/ACCOUNT,DAYFILE,ERRLOG,MAINLOG
00670  M01S00001.super13 +++|RECLAIM,Z./DUMP,EI=NO,DN=TAPE,PF=*/ACCOUNT,DAYFILE,ERRLOG,MAINLOG
00671  M01S00551.superm  +++|IF,$P$.EQ.$PURGE$,DUMPLOG1.
00672  M01S00552.superm  +++|  PURGE,ACCOUNT,DAYFILE,ERRLOG,MAINLOG/NA.
00673  M01S00553.superm  +++|ENDIF,DUMPLOG1.
00674  M01S00554.superm  +++|WRITEF,OUTPUT.
00675  M01S00555.superm  +++|REVERT.  DUMPLOG COMPLETED.
00676  M01S00556.superm  +++|*WEOR
00677  M01S00557.superm  +++|.PROC,DUMPMOD*I"DUMP MODIFIED FILES"
00678  M01S00558.superm  +++|,P1        [SETNAME OF DUMP TAPES]
00679  M01S00559.superm  +++|          =(*A,*N=)
00680  M01S00560.superm  +++|.
00681  M01S00561.superm  +++|.*
00682  M01S00562.superm  +++|.*     COMMAND FORMAT : *X.MS(DUMPMOD,SETNAME)*
00683  M01S00563.superm  +++|.*  THIS PROCEDURE WILL DUMP PERMANENT FILES THAT HAVE BEEN

Seq #  *Modification Id* Act 
----------------------------+
00684  M02S00564.superm2 ---|.*  MODIFIED SINCE THE LAST DUMP OF ALL THE FILES. DUMPMOD

Seq #  *Modification Id* Act 
----------------------------+
00685  M02S00565.superm2 ---|.*  USES THE INFORMATION ON THE FILE ZZZDUMP TO DETERMINE
00686  M01S00030.superm2 +++|.*  MODIFIED SINCE THE LAST DUMPALL.  DUMPMOD USES
00687  M01S00031.superm2 +++|.*  THE INFORMATION ON THE FILE ZZDUMPM TO DETERMINE
00688  M01S00566.superm  +++|.*  WHEN DUMPALL WAS LAST CALLED.  IT ALSO STORES THE VSN
00689  M01S00567.superm  +++|.*  OF THE FIRST TAPE USED IN THE DUMPALL ON THIS DUMP.
00690  M01S00568.superm  +++|.*
00691  M01S00569.superm  +++|BEGIN(LABELS,ZZZPFIL,P1,DUMPMOD,DATE+D)
00692  M01S00570.superm  +++|IF,R1G.EQ.1.REVERT. DUMPMOD FAILED
00693  M01S00571.superm  +++|
00694  M01S00572.superm  +++|

Seq #  *Modification Id* Act 
----------------------------+
00695  M02S00573.superm1 ---|GET,INDIR2/NA.

Seq #  *Modification Id* Act 
----------------------------+
00696  M02S00574.superm1 ---|IF,FILE(INDIR2,LO),DUMPMOD2.

Seq #  *Modification Id* Act 
----------------------------+
00697  M02S00575.superm1 ---|  BEGIN,,INDIR2.
00698  M01S00025.superm1 +++|GET,ZZDUMPM/NA.
00699  M01S00026.superm1 +++|IF,FILE(ZZDUMPM,LO),DUMPMOD2.
00700  M01S00027.superm1 +++|  BEGIN,,ZZDUMPM.
00701  M01S00576.superm  +++|ELSE,DUMPMOD2.

Seq #  *Modification Id* Act 
----------------------------+
00702  M02S00577.superm6 ---|  BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1)
00703  M01S00002.superm6 +++|  BEGIN(DUMPFUL,ZZZPFIL,DATE+D,P1,TIME+D)
00704  M01S00578.superm  +++|  ************************************
00705  M01S00579.superm  +++|  * A DUMPALL WAS PERFORMED BECAUSE
00706  M01S00580.superm  +++|  * THE RECORD OF WHEN THE LAST DUMPALL
00707  M01S00581.superm  +++|  * WAS PERFORMED WAS NOT FOUND.
00708  M01S00582.superm  +++|  **************************************
00709  M01S00583.superm  +++|  WRITEF,OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00710  M02S00584.superm2 ---|  REVERT. DUMPMOD COMPLETED
00711  M01S00032.superm2 +++|  REVERT. DUMPALL COMPLETED.
00712  M01S00585.superm  +++|ENDIF,DUMPMOD2.
00713  M01S00586.superm  +++|WRITEF,OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00714  M02S00587.superm2 ---|REVERT.  DUMPMOD FAILED.
00715  M01S00033.superm2 +++|REVERT.  DUMPMOD COMPLETED.
00716  M01S00588.superm  +++|*WEOR
00717  M01S00589.superm  +++|.PROC,DUMPOLD*I"ARCHIVE FILES"
00718  M01S00590.superm  +++|,P1        [SETNAME OF TAPES TO BE USED]
00719  M01S00591.superm  +++|          =(*A,*N=)
00720  M01S00592.superm  +++|,P2        [LAST ACCESS BEFORE DATE CUTOFF]
00721  M01S00593.superm  +++|          =(*A,*N=).
00722  M01S00594.superm  +++|.*
00723  M01S00595.superm  +++|.*     COMMAND FORMAT : *X.MS(DUMPOLD,SETNAME,DATE)*
00724  M01S00596.superm  +++|.*  THIS PROCEDURE WILL DUMP PERMANENT FILES THAT HAVE NOT
00725  M01S00597.superm  +++|.*  BEEN READ, EXECUTED OR WRITTEN AFTER DATE. AFTER THESE
00726  M01S00598.superm  +++|.*  FILES HAVE BEEN DUMPED THEY WILL BE PURGED.  THE OUTPUT
00727  M01S00599.superm  +++|.*  FROM THIS PROC WILL BE STORED ON A PERMANENT FILE ON
00728  M01S00600.superm  +++|.*  SYSTEMX NAMED DYYMMDD WHERE YYMMDD IS THE DATE OF THE DUMP.
00729  M01S00601.superm  +++|.*
00730  M01S00602.superm  +++|BEGIN,VERDATE,ZZZPFIL,P2,DUMPQUE.
00731  M01S00603.superm  +++|
00732  M01S00604.superm  +++|***************************************
00733  M01S00605.superm  +++|* NOTE--IF THIS PROCEDURE CONTINUES,  *
00734  M01S00606.superm  +++|* PERMANENT FILES HAVING A LAST       *
00735  M01S00607.superm  +++|* ACCESS DATE PRIOR TO P2 ARE     *
00736  M01S00608.superm  +++|* DUMPED TO TAPE AND PURGED.          *
00737  M01S00609.superm  +++|*                                     *
00738  M01S00610.superm  +++|* TO "NOT" DUMP ANS PURGE FILES:      *
00739  M01S00611.superm  +++|*   ENTER   DROP,JSN.                 *
00740  M01S00612.superm  +++|* TO DUMP AND PURGE FILES:            *
00741  M01S00613.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
00742  M01S00614.superm  +++|*                                     *
00743  M01S00615.superm  +++|***************************************
00744  M01S00616.superm  +++|REQUEST,OPER.   STOP OR PURGE?
00745  M01S00617.superm  +++|RETURN,OPER.
00746  M01S00618.superm  +++|SKIP,DUMPOLD1.
00747  M01S00619.superm  +++|  EXIT.
00748  M01S00028.superm1 +++|  RETURN,*,OUTPUT.
00749  M01S00620.superm  +++|  SET(R1G=1)
00750  M01S00621.superm  +++|  *************************************
00751  M01S00622.superm  +++|  *                                   *
00752  M01S00623.superm  +++|  * NO FILES WERE DUMPED TO TAPE OR   *

Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00624.superm1 ---| *PURGED. DUMPOLD STOPPED AS REQUESTED*
00754  M01S00029.superm1 +++|  * PURGED.                           *
00755  M01S00030.superm1 +++|  * DUMPOLD STOPPED AS REQUESTED.     *
00756  M01S00625.superm  +++|  * WHEN YOU HAVE READ THIS MESSAGE   *
00757  M01S00626.superm  +++|  *                                   *
00758  M01S00627.superm  +++|  *       ENTER:  ASSIGN,JSN,2.       *
00759  M01S00628.superm  +++|  *                                   *
00760  M01S00629.superm  +++|  *************************************
00761  M01S00630.superm  +++|  REQUEST,OPER.  DUMPOLD STOPPED.
00762  M01S00631.superm  +++|  RETURN,OPER.
00763  M01S00632.superm  +++|  WRITEF,OUTPUT.
00764  M01S00633.superm  +++|  REVERT.  DUMPOLD STOPPED.
00765  M01S00634.superm  +++|ENDIF,DUMPOLD1.
00766  M01S00635.superm  +++|
00767  M01S00636.superm  +++|
00768  M01S00637.superm  +++|BEGIN(LABELS,ZZZPFIL,P1,DUMPOLD,DATE+D)

Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00638.superm1 ---|IF,(R1G.EQ.1).REVERT. DUMPOLD FAILED
00770  M01S00639.superm  +++|
00771  M01S00640.superm  +++|PFDUMP(OP=AP,BD=P2).
00772  M01S00641.superm  +++|***************************************
00773  M01S00642.superm  +++|*                                     *
00774  M01S00643.superm  +++|* ALL FILES HAVING A LAST ACCESS DATE *
00775  M01S00644.superm  +++|* BEFORE ** P2 **  HAVE NOW       *
00776  M01S00645.superm  +++|* BEEN DUMPED TO TAPE AND PURGED.     *
00777  M01S00646.superm  +++|***************************************
00778  M01S00647.superm  +++|WRITEF,OUTPUT.
00779  M01S00648.superm  +++|REVERT.  DUMPOLD COMPLETED.
00780  M01S00649.superm  +++|*WEOR
00781  M01S00650.superm  +++|.PROC,DUMPQUE*I
00782  M01S00651.superm  +++|,VSN       [VOLUME SERIAL NUMBER]
00783  M01S00652.superm  +++|          =(*A,*N=).
00784  M01S00653.superm  +++|.*
00785  M01S00654.superm  +++|.*     COMMAND FORMAT : *X.MS(DUMPQUE,VSN)*
00786  M01S00655.superm  +++|.*   THIS PROCEDURE IS USED TO DUMP AND PURGE ALL QUEUE FILES.
00787  M01S00656.superm  +++|.*
00788  M01S00657.superm  +++|BEGIN(LABELV,ZZZPFIL,VSN,DUMPQUE,DATE+D)
00789  M01S00658.superm  +++|
00790  M01S00659.superm  +++|QREC(OP=DI,PO=N)
00791  M01S00660.superm  +++|QDUMP(DA=ALL,PO=N,FN=TAPE)
00792  M01S00661.superm  +++|QREC(OP=PI,PO=N)
00793  M01S00662.superm  +++|WRITEF,OUTPUT.
00794  M01S00663.superm  +++|REVERT.  DUMPQUE COMPLETED.
00795  M01S00664.superm  +++|*WEOR
00796  M01S00665.superm  +++|.PROC,ENDDF*I"RESTART A DAYFILE"
00797  M01S00666.superm  +++|,P1        [TYPE OF DAYFILE]
00798  M01S00667.superm  +++|          =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=$$).
00799  M01S00668.superm  +++|.* COMMAND FORMAT:  X.MS(ENDDF,DAYFILE)
00800  M01S00669.superm  +++|.* THIS PROCEDURE CAUSES THE SYSTEM TO APPEND THE SPECIFIED
00801  M01S00670.superm  +++|.* *DAYFILE* TO A PERMANENT FILE WITH THE SAME NAME.  IF THE
00802  M01S00671.superm  +++|.* CORRESPONDING PERMANENT FILE ALREADY EXISTS, THE DAYFILE IS
00803  M01S00672.superm  +++|.* COPIED TO THE PERMANENT FILE AS AN ADDITIONAL RECORD.
00804  M01S00673.superm  +++|.* IF THE PERMANENT FILE DOES NOT EXIST, ENDDF DEFINES IT, AND THE
00805  M01S00674.superm  +++|.* CORRESPONDING DAYFILE IS COPIED THE PERMANENT FILE AS THE FIRST
00806  M01S00675.superm  +++|.* RECORD.  A NEW SYSTEM DAYFILE IS CREATED TO RECEIVE SUBSEQUENT
00807  M01S00676.superm  +++|.* DAYFILE MESSAGES.  THE SUPPORTED VALUES FOR THE PARAMETER,
00808  M01S00677.superm  +++|.* *DAYFILE* ARE ACCOUNT, DAYFILE, ERRLOG, AND MAINLOG.
00809  M01S00678.superm  +++|.*
00810  M01S00679.superm  +++|.IF,P1.EQ.1,ENDDF1.
00811  M01S00680.superm  +++|BEGIN,ENDDFL,ZZZPFIL,ACCOUNT,AC.
00812  M01S00681.superm  +++|.ELSE,ENDDF1.
00813  M01S00682.superm  +++|.IF,P1.EQ.2,ENDDF1.
00814  M01S00683.superm  +++|BEGIN,ENDDFL,ZZZPFIL,DAYFILE,DF.
00815  M01S00684.superm  +++|.ELSE,ENDDF1.
00816  M01S00685.superm  +++|.IF,P1.EQ.3,ENDDF1.
00817  M01S00686.superm  +++|BEGIN,ENDDFL,ZZZPFIL,ERRLOG,ER.
00818  M01S00687.superm  +++|.ELSE,ENDDF1.
00819  M01S00688.superm  +++|.IF,P1.EQ.4,ENDDF1.
00820  M01S00689.superm  +++|BEGIN,ENDDFL,ZZZPFIL,MAINLOG,ML.
00821  M01S00690.superm  +++|.ELSE,ENDDF1.
00822  M01S00691.superm  +++|BEGIN(ERRDAY,ZZZPFIL,ENDDF,P1)
00823  M01S00692.superm  +++|.ENDIF,ENDDF1.
00824  M01S00693.superm  +++|WRITEF,OUTPUT.
00825  M01S00694.superm  +++|REVERT,NOLIST.  ENDDF COMPLETED.
00826  M01S00695.superm  +++|*WEOR
00827  M01S00696.superm  +++|.PROC,ENDDFL*I
00828  M01S00697.superm  +++|,P1        [SYSTEM LOG FILE NAME]
00829  M01S00698.superm  +++|          =(ACCOUNT,DAYFILE,ERRLOG,MAINLOG)
00830  M01S00699.superm  +++|,P2        [TWO CHARACTER LOG FILE IDENTIFIER]
00831  M01S00700.superm  +++|          =(AC,DF,ER,ML)
00832  M01S00701.superm  +++|.
00833  M01S00702.superm  +++|PURGE,P2_FILE/NA.
00834  M01S00703.superm  +++|DFTERM,FT=P1,NM=FILE,PO=N.
00835  M01S00704.superm  +++|ATTACH(P2_FILE)
00836  M01S00705.superm  +++|ATTACH,P1/M=W,NA.
00837  M01S00706.superm  +++|IF,FILE(P1,.NOT.PM),ENDDF1.
00838  M01S00707.superm  +++|DEFINE,P1.
00839  M01S00708.superm  +++|ENDIF,ENDDF1.
00840  M01S00709.superm  +++|SKIPEI,P1.

Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00710.superm7 ---|COPYBR,P2_FILE,P1.
00842  M01S00001.superm7 +++|COPYEI,P2_FILE,P1.
00843  M01S00711.superm  +++|PURGE,P2_FILE.
00844  M01S00712.superm  +++|***************************************
00845  M01S00713.superm  +++|*                                     *
00846  M01S00714.superm  +++|* P1 RESTART COMPLETE            *
00847  M01S00715.superm  +++|*                                     *
00848  M01S00716.superm  +++|***************************************
00849  M01S00717.superm  +++|REVERT. ENDDFL COMPLETE
00850  M01S00718.superm  +++|*WEOR
00851  M01S00719.superm  +++|.PROC,ENDLOG.
00852  M01S00720.superm  +++|.*
00853  M01S00721.superm  +++|.*     COMMAND FORMAT : *X.MS(ENDLOG)*
00854  M01S00722.superm  +++|.* THIS PROCEDURE CALLS *ENDDF* FOR EACH OF THE FOUR SYSTEM
00855  M01S00723.superm  +++|.* DAYFILES.
00856  M01S00724.superm  +++|.*
00857  M01S00725.superm  +++|BEGIN(ENDDFL,ZZZPFIL,ACCOUNT,AC)
00858  M01S00726.superm  +++|BEGIN(ENDDFL,ZZZPFIL,DAYFILE,DF)
00859  M01S00727.superm  +++|RETURN,*.
00860  M01S00728.superm  +++|BEGIN(ENDDFL,ZZZPFIL,ERRLOG,ER)
00861  M01S00729.superm  +++|BEGIN(ENDDFL,ZZZPFIL,MAINLOG,ML)
00862  M01S00730.superm  +++|WRITEF,OUTPUT.
00863  M01S00731.superm  +++|REVERT.  ENDLOG COMPLETED.
00864  M01S00732.superm  +++|*WEOR
00865  M01S00733.superm  +++|.PROC,ERRDAY*I
00866  M01S00734.superm  +++|,P1   [TOOL]
00867  M01S00735.superm  +++|      =(*F)
00868  M01S00736.superm  +++|,P2   [ERRONEOUS DAYFILE]
00869  M01S00737.superm  +++|      =(*A,*N=NULL)
00870  M01S00738.superm  +++|.
00871  M01S00031.superm1 +++|RETURN,*,OUTPUT.
00872  M01S00739.superm  +++|SET(R1G=1)
00873  M01S00740.superm  +++|*************************************
00874  M01S00741.superm  +++|*                                   *
00875  M01S00742.superm  +++|* ERROR--DAYFILE : P2.        *
00876  M01S00743.superm  +++|* NOT PROPERLY SPECIFIED            *
00877  M01S00744.superm  +++|* TRY AGAIN WITH ACCOUNT, DAYFILE,  *
00878  M01S00745.superm  +++|* ERRLOG, OR MAINLOG.               *
00879  M01S00746.superm  +++|*                                   *
00880  M01S00747.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE   *
00881  M01S00748.superm  +++|*                                   *
00882  M01S00749.superm  +++|*   ENTER:  ASSIGN,JSN,2.           *
00883  M01S00750.superm  +++|*                                   *
00884  M01S00751.superm  +++|*************************************
00885  M01S00752.superm  +++|REQUEST,OPER. P1 FAILED
00886  M01S00753.superm  +++|RETURN,OPER.
00887  M01S00754.superm  +++|REVERT,EX.REVERT. P1 FAILED
00888  M01S00755.superm  +++|*WEOR
00889  M01S00756.superm  +++|.PROC,ERRJSN*I
00890  M01S00757.superm  +++|,P1        [PROCEDURE ERRJSN IS CALLED FROM]
00891  M01S00758.superm  +++|          =(*F)
00892  M01S00759.superm  +++|,P2        [JSN THAT WAS INCORRECT]
00893  M01S00760.superm  +++|          =(*A,*N=NONE).
00894  M01S00032.superm1 +++|SET(R1G=1)
00895  M01S00033.superm1 +++|RETURN,*,OUTPUT.
00896  M01S00761.superm  +++|***************************************
00897  M01S00762.superm  +++|*                                     *
00898  M01S00763.superm  +++|* ERROR--#JSN : P2                  *
00899  M01S00764.superm  +++|* NOT PROPERLY SPECIFIED.             *
00900  M01S00765.superm  +++|* TRY AGAIN WITH A 1-6 ALPHANUMERIC   *
00901  M01S00766.superm  +++|* CHARACTER JSN.                      *
00902  M01S00767.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
00903  M01S00768.superm  +++|*                                     *
00904  M01S00769.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
00905  M01S00770.superm  +++|*                                     *
00906  M01S00771.superm  +++|***************************************

Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00772.superm1 ---|*REQUEST,OPER.  P1 FAILED.
00908  M01S00034.superm1 +++|REQUEST,OPER.  P1 FAILED.
00909  M01S00773.superm  +++|RETURN,OPER.
00910  M01S00774.superm  +++|REVERT,NOLIST.  ERRJSN COMPLETED.
00911  M01S00775.superm  +++|*WEOR
00912  M01S00776.superm  +++|.PROC,ERRNOU.
00913  M01S00777.superm  +++|SET(R1G=1)
00914  M01S00035.superm1 +++|RETURN,*,OUTPUT.
00915  M01S00778.superm  +++|***************************************
00916  M01S00779.superm  +++|*                                     *
00917  M01S00780.superm  +++|* ERROR--TO SPECIFY A PERMANENT FILE, *
00918  M01S00781.superm  +++|* THE USER NAME MUST ALSO BE GIVEN.   *
00919  M01S00782.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
00920  M01S00783.superm  +++|*                                     *
00921  M01S00784.superm  +++|*  ENTER:  ASSIGN,JSN,2.              *
00922  M01S00785.superm  +++|*                                     *
00923  M01S00786.superm  +++|***************************************

Seq #  *Modification Id* Act 
----------------------------+
00924  M02S00787.superm1 ---|REQUEST,OPER.  LOADFL FAILED.
00925  M01S00036.superm1 +++|REQUEST,OPER.  LOADF FAILED.
00926  M01S00788.superm  +++|RETURN,OPER.
00927  M01S00789.superm  +++|WRITEF,OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
00928  M02S00790.superm1 ---|REVERT,EX.REVERT. LOADFL FAILED
00929  M01S00037.superm1 +++|REVERT,EX.REVERT. LOADF FAILED.
00930  M01S00791.superm  +++|*WEOR
00931  M01S00792.superm  +++|.PROC,ERRSETM*I
00932  M01S00793.superm  +++|,P1        [PROCEDURE ERRSETM IS CALLED FROM]
00933  M01S00794.superm  +++|          =(*F)
00934  M01S00795.superm  +++|,P2        [NUMBER THAT WAS INCORRECT]
00935  M01S00796.superm  +++|          =(*A,*N=NONE).
00936  M01S00038.superm1 +++|SET(R1G=1)
00937  M01S00039.superm1 +++|RETURN,*,OUTPUT.
00938  M01S00797.superm  +++|***************************************
00939  M01S00798.superm  +++|*                                     *
00940  M01S00799.superm  +++|* ERROR--NUMBER OF DUMP TAPES TO      *
00941  M01S00800.superm  +++|* BLANK LABEL NOT PROPERLY SPECIFIED. *
00942  M01S00801.superm  +++|* TRY AGAIN WITH A NUMERIC DIGIT IN   *
00943  M01S00802.superm  +++|* RANGE : 1 TO 8.                     *
00944  M01S00803.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
00945  M01S00804.superm  +++|*                                     *
00946  M01S00805.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
00947  M01S00806.superm  +++|*                                     *
00948  M01S00807.superm  +++|***************************************
00949  M01S00808.superm  +++|REQUEST,OPER.  P1 FAILED.
00950  M01S00809.superm  +++|RETURN,OPER.
00951  M01S00810.superm  +++|REVERT,NOLIST.  ERRSETM COMPLETED.
00952  M01S00811.superm  +++|*WEOR
00953  M01S00812.superm  +++|.PROC,ERRSETN*I
00954  M01S00813.superm  +++|,P1        [PROCEDURE ERRSETN IS CALLED FROM]
00955  M01S00814.superm  +++|          =(*F)
00956  M01S00815.superm  +++|,P2        [SETNAME THAT WAS INCORRECT]
00957  M01S00816.superm  +++|          =(*A,*N=NONE).
00958  M01S00040.superm1 +++|SET(R1G=1)
00959  M01S00041.superm1 +++|RETURN,*,OUTPUT.
00960  M01S00817.superm  +++|***************************************
00961  M01S00818.superm  +++|*                                     *
00962  M01S00819.superm  +++|* ERROR--SETNAME : P2          *
00963  M01S00820.superm  +++|* NOT PROPERLY SPECIFIED.             *
00964  M01S00821.superm  +++|* TRY AGAIN WITH A 1-5 ALPHANUMERIC   *
00965  M01S00822.superm  +++|* CHARACTER SETNAME.                  *
00966  M01S00823.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
00967  M01S00824.superm  +++|*                                     *
00968  M01S00825.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
00969  M01S00826.superm  +++|*                                     *
00970  M01S00827.superm  +++|***************************************
00971  M01S00828.superm  +++|REQUEST,OPER.  P1 FAILED.
00972  M01S00829.superm  +++|RETURN,OPER.
00973  M01S00830.superm  +++|REVERT,NOLIST.  ERRSETN COMPLETED.
00974  M01S00831.superm  +++|*WEOR
00975  M01S00832.superm  +++|.PROC,ERRTOOL*I
00976  M01S00833.superm  +++|,P1   [TOOL]
00977  M01S00834.superm  +++|      =(*F)
00978  M01S00835.superm  +++|.

Seq #  *Modification Id* Act 
----------------------------+
00979  M02S00836.superm1 ---|RETURN,*.
00980  M01S00042.superm1 +++|SET(R1G=1)
00981  M01S00043.superm1 +++|RETURN,*,OUTPUT.
00982  M01S00837.superm  +++|****************************************
00983  M01S00838.superm  +++|*                                      *
00984  M01S00839.superm  +++|* ERROR--P1 FAILED                *
00985  M01S00840.superm  +++|* EXAMINE THE OUTPUT FROM THIS JOB TO  *
00986  M01S00841.superm  +++|* DETERMINE THE CAUSE OF THE FAILURE   *
00987  M01S00842.superm  +++|*                                      *
00988  M01S00843.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE      *
00989  M01S00844.superm  +++|*                                      *
00990  M01S00845.superm  +++|*   ENTER   ASSIGN,JSN,2.              *
00991  M01S00846.superm  +++|*                                      *
00992  M01S00847.superm  +++|****************************************
00993  M01S00848.superm  +++|REQUEST,OPER. P1 FAILED
00994  M01S00849.superm  +++|RETURN,OPER.
00995  M01S00850.superm  +++|WRITEF.
00996  M01S00851.superm  +++|REVERT,EX.REVERT. P1 FAILED
00997  M01S00852.superm  +++|*WEOR
00998  M01S00853.superm  +++|.PROC,ERRUSER*I
00999  M01S00854.superm  +++|,P1        [PROCEDURE ERRUSER IS CALLED FROM]
01000  M01S00855.superm  +++|          =(*F)
01001  M01S00856.superm  +++|,P2        [USER NAME THAT WAS INCORRECT]
01002  M01S00857.superm  +++|          =(*A,*N=NONE).
01003  M01S00044.superm1 +++|SET(R1G=1)
01004  M01S00045.superm1 +++|RETURN,*,OUTPUT.
01005  M01S00858.superm  +++|***************************************
01006  M01S00859.superm  +++|*                                     *
01007  M01S00860.superm  +++|* ERROR--USER NAME   P2.        *
01008  M01S00861.superm  +++|* NOT PROPERLY SPECIFIED.             *
01009  M01S00862.superm  +++|* TRY AGAIN WITH A USER NAME MADE UP  *
01010  M01S00863.superm  +++|* OF 1-7 ALPHANUMERIC CHARACTERS.     *
01011  M01S00864.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
01012  M01S00865.superm  +++|*                                     *
01013  M01S00866.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
01014  M01S00867.superm  +++|*                                     *
01015  M01S00868.superm  +++|***************************************
01016  M01S00869.superm  +++|REQUEST,OPER.  P1 FAILED.
01017  M01S00870.superm  +++|RETURN,OPER.
01018  M01S00871.superm  +++|REVERT,NOLIST.  ERRUSER COMPLETED.
01019  M01S00872.superm  +++|*WEOR
01020  M01S00873.superm  +++|.PROC,ERRVSN*I
01021  M01S00874.superm  +++|,P1        [PROCEDURE ERRVSN IS CALLED FROM]
01022  M01S00875.superm  +++|          =(*F)
01023  M01S00876.superm  +++|,P2        [VSN THAT WAS INCORRECT]
01024  M01S00877.superm  +++|          =(*A,*N=NONE).
01025  M01S00046.superm1 +++|SET(R1G=1)
01026  M01S00047.superm1 +++|RETURN,*,OUTPUT.
01027  M01S00878.superm  +++|***************************************
01028  M01S00879.superm  +++|*                                     *
01029  M01S00880.superm  +++|* ERROR--#VSN : P2                   *
01030  M01S00881.superm  +++|* NOT PROPERLY SPECIFIED.             *
01031  M01S00882.superm  +++|* TRY AGAIN WITH A 1-6 ALPHANUMERIC   *
01032  M01S00883.superm  +++|* CHARACTER VSN.                      *
01033  M01S00884.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
01034  M01S00885.superm  +++|*                                     *
01035  M01S00886.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
01036  M01S00887.superm  +++|*                                     *
01037  M01S00888.superm  +++|***************************************
01038  M01S00889.superm  +++|REQUEST,OPER.  P1 FAILED.
01039  M01S00890.superm  +++|RETURN,OPER.
01040  M01S00891.superm  +++|REVERT,NOLIST.  ERRVSN COMPLETED.
01041  M01S00892.superm  +++|*WEOR
01042  M01S00893.superm  +++|.PROC,FINDJSN*I
01043  M01S00894.superm  +++|,JSN       [JOB SEQUENCE NUMBER]
01044  M01S00895.superm  +++|          =(*A,*N=).
01045  M01S00896.superm  +++|.*
01046  M01S00897.superm  +++|.*     COMMAND FORMAT : *FINDJSN(JSN)*
01047  M01S00898.superm  +++|.* THIS PROCEDURE USES DFD TO GET SYSTEM DAYFILE AND EXTRACTS FROM
01048  M01S00899.superm  +++|.* IT THE DAYFILE FOR JOB (JSN).  THE JSN DAYFILE IS WRITTEN TO
01049  M01S00900.superm  +++|.* FILE OUTPUT.
01050  M01S00901.superm  +++|.*
01051  M01S00902.superm  +++|BEGIN,VERJSN,ZZZPFIL,JSN,FINDJSN.  VERIFY #JSN
01052  M01S00903.superm  +++|SKIP,FDJSN0.
01053  M01S00904.superm  +++|  EXIT.
01054  M01S00905.superm  +++|  BEGIN,ERRJSN,ZZZPFIL,JSN,FINDJSN.
01055  M01S00906.superm  +++|  SET,R1G=1.
01056  M01S00907.superm  +++|  REVERT.  FINDJSN FAILED.
01057  M01S00908.superm  +++|ENDIF,FDJSN0.
01058  M01S00909.superm  +++|DFD.
01059  M01S00910.superm  +++|RENAME,DF=OUTPUT.

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00911.superm2 ---|EDIT,DF,I=FIEDIT.

Seq #  *Modification Id* Act 
----------------------------+
01061  M02S00912.superm2 ---|RETURN,DF,VERJSN,ERRJSN.

Seq #  *Modification Id* Act 
----------------------------+
01062  M02S00913.superm2 ---|REVERT.  FINDJSN COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
01063  M02S00914.superm2 ---|EXIT.

Seq #  *Modification Id* Act 
----------------------------+
01064  M02S00915.superm2 ---|REVERT,ABORT.  FINDJSN FAILED.
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  M01S00916.superm  +++|.DATA,FIEDIT
01094  M01S00917.superm  +++|L:/.  JSN/;*
01095  M01S00918.superm  +++|END
01096  M01S00062.superm2 +++|.DATA,ZZZFIND.
01097  M01S00063.superm2 +++| BEGIN TEXT EDITING.
01098  M01S00064.superm2 +++| -END OF FILE-
01099  M01S00065.superm2 +++| END TEXT EDITING.
01100  M01S00919.superm  +++|*WEOR
01101  M01S00920.superm  +++|.PROC,GETTYPE*I
01102  M01S00921.superm  +++|,P1   [VALIDATION TYPE]
01103  M01S00922.superm  +++|      =(*F)
01104  M01S00923.superm  +++|,P2   [TOOL]
01105  M01S00924.superm  +++|      =(*F)
01106  M01S00925.superm  +++|.

Seq #  *Modification Id* Act 
----------------------------+
01107  M02S00926.super14 ---|GTR(ZZZPFIL,P1,NA)P1
01108  M01S00001.super14 +++|GTR(ZZZPFIL,P1,,,,NA)P1
01109  M01S00927.superm  +++|IF,FILE(P1,LO),GETYPE1.
01110  M01S00928.superm  +++|EDIT,P1,I=GEEDIT.
01111  M01S00929.superm  +++|REVERT. GETTYPE COMPLETE
01112  M01S00930.superm  +++|ELSE,GETYPE1.
01113  M01S00931.superm  +++|GET(P1/UN=INSTALL)
01114  M01S00932.superm  +++|REVERT. GETTYPE COMPLETE
01115  M01S00933.superm  +++|EXIT.
01116  M01S00934.superm  +++|SET(R1G=1)
01117  M01S00935.superm  +++|ENDIF,GETYPE1.
01118  M01S00936.superm  +++|****************************************
01119  M01S00937.superm  +++|*                                      *
01120  M01S00938.superm  +++|* ERROR-- TYPE FILE: P1           *
01121  M01S00939.superm  +++|* NOT FOUND.  DETERMINE THE FILE NAME  *
01122  M01S00940.superm  +++|* YOU WANT TO USE AND RETRY P2    *
01123  M01S00941.superm  +++|*                                      *
01124  M01S00942.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE      *
01125  M01S00943.superm  +++|*                                      *
01126  M01S00944.superm  +++|*   ENTER: ASSIGN,JSN,2.               *
01127  M01S00945.superm  +++|*                                      *
01128  M01S00946.superm  +++|****************************************
01129  M01S00947.superm  +++|REVERT,EX.REVERT. P2 FAILED
01130  M01S00948.superm  +++|.DATA,GEEDIT
01131  M01S00949.superm  +++|SET;-1
01132  M01S00950.superm  +++|DELETE
01133  M01S00951.superm  +++|END
01134  M01S00952.superm  +++|*WEOR
01135  M01S00953.superm  +++|.PROC,LABELS*I"REQUEST SET OF TAPES"
01136  M01S00954.superm  +++|,P1   [SETNAME OF TAPES]
01137  M01S00955.superm  +++|      =(*A,*N=)
01138  M01S00956.superm  +++|,P2   [TOOL]
01139  M01S00957.superm  +++|      =(*F)
01140  M01S00958.superm  +++|,P3   [DATE]
01141  M01S00959.superm  +++|      =(*S6(0123456789),*N=$$)
01142  M01S00960.superm  +++|.
01143  M01S00961.superm  +++|BEGIN,VERSETN,ZZZPFIL,P1.  VERIFY SETNAME
01144  M01S00962.superm  +++|SKIP,LABELS1.
01145  M01S00963.superm  +++|  EXIT.
01146  M01S00964.superm  +++|  BEGIN,ERRSETN,ZZZPFIL,P2,P1.
01147  M01S00965.superm  +++|  SET(R1G=1)
01148  M01S00966.superm  +++|  REVERT,EX. REVERT. P2 FAILED.
01149  M01S00967.superm  +++|ENDIF,LABELS1.
01150  M01S00968.superm  +++|.IF,$P3$.EQ.$$,LABELS2.
01151  M01S00048.superm1 +++|VSN,TAPE=P1_1/P1_2/P1_3/P1_4/P1_5/P1_6/P1_7/P1_8.

Seq #  *Modification Id* Act 
----------------------------+
01152  M02S00969.superm1 ---|  LABEL,TAPE,VSN=P1_1/P1_2/P1_3/P1_4/P1_5,NT,D=GE,PO=R.

Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00049.superm3 ---|LABEL,TAPE,NT,D=GE,PO=R.
01154  M01S00050.superm3 +++|LABEL,TAPE,NT,D=GE,PO=FR.
01155  M01S00970.superm  +++|.ELSE,LABELS2.
01156  M01S00050.superm1 +++|VSN,TAPE=P1_1/P1_2/P1_3/P1_4/P1_5/P1_6/P1_7/P1_8.

Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00971.superm1 ---|  LABEL,TAPE,VSN=P1_1/P1_2/P1_3/P1_4/P1_5,NT,D=GE,PO=W,W,FI=$P3$.

Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00051.superm3 ---|LABEL,TAPE,NT,D=GE,PO=W,W,FI=$P3$.
01159  M01S00051.superm3 +++|LABEL,TAPE,NT,D=GE,PO=FW,W,FI=$P3$.
01160  M01S00972.superm  +++|.ENDIF,LABELS2.
01161  M01S00973.superm  +++|REVERT. LABELS COMPLETE
01162  M01S00974.superm  +++|*WEOR
01163  M01S00975.superm  +++|.PROC,LABELV*I"REQUEST A TAPE"
01164  M01S00976.superm  +++|,P1   [VSN OF TAPES]
01165  M01S00977.superm  +++|      =(*A,*N=)
01166  M01S00978.superm  +++|,P2   [TOOL]
01167  M01S00979.superm  +++|      =(*F)
01168  M01S00980.superm  +++|,P3   [DATE]
01169  M01S00981.superm  +++|      =(*S6(0123456789),*N=$$)
01170  M01S00982.superm  +++|.
01171  M01S00983.superm  +++|BEGIN,VERVSN,ZZZPFIL,P1.  VERIFY VSN
01172  M01S00984.superm  +++|SKIP,LABELV1.
01173  M01S00985.superm  +++|  EXIT.
01174  M01S00986.superm  +++|  BEGIN,ERRVSN,ZZZPFIL,P2,P1.
01175  M01S00987.superm  +++|  SET(R1G=1)
01176  M01S00988.superm  +++|  REVERT,EX. REVERT.  P2 FAILED
01177  M01S00989.superm  +++|ENDIF,LABELV1.
01178  M01S00990.superm  +++|.IF,$P3$.EQ.$$,LABELV2.

Seq #  *Modification Id* Act 
----------------------------+
01179  M02S00991.superm3 ---|  LABEL,TAPE,VSN=P1,NT,D=GE,PO=R.
01180  M01S00052.superm3 +++|  LABEL,TAPE,VSN=P1,NT,D=GE,PO=FR.
01181  M01S00992.superm  +++|.ELSE,LABELV2.

Seq #  *Modification Id* Act 
----------------------------+
01182  M02S00993.superm3 ---|  LABEL,TAPE,VSN=P1,NT,D=GE,PO=W,W,FI=$P3$.
01183  M01S00053.superm3 +++|  LABEL,TAPE,VSN=P1,NT,D=GE,PO=FW,W,FI=$P3$.
01184  M01S00994.superm  +++|.ENDIF,LABELV2.
01185  M01S00995.superm  +++|REVERT. LABELV COMPLETE
01186  M01S00996.superm  +++|*WEOR
01187  M01S00997.superm  +++|.PROC,LISTQUE.
01188  M01S00998.superm  +++|.*
01189  M01S00999.superm  +++|.*     COMMAND FORMAT : *X.MS(LISTQUE)*
01190  M01S01000.superm  +++|.*  THIS PROCEDURE PRODUCES A LISTING WHICH DESCRIBES ALL THE
01191  M01S01001.superm  +++|.*  QUEUE FILES IN THE SYSTEM.  THIS LISTING MAY BE HELPFUL IN
01192  M01S01002.superm  +++|.*  IDENTIFING QUEUE FILES THAT COULD BE DROPPED FROM THE SYSTEM.
01193  M01S01003.superm  +++|.*
01194  M01S01004.superm  +++|QFTLIST(PO=N,LO=F)
01195  M01S01005.superm  +++|WRITEF,OUTPUT.
01196  M01S01006.superm  +++|REVERT.  LISTQUE COMPLETE.
01197  M01S01007.superm  +++|EXIT.
01198  M01S01008.superm  +++|WRITEF,OUTPUT.
01199  M01S01009.superm  +++|REVERT.  LISTQUE FAILED.
01200  M01S01010.superm  +++|*WEOR
01201  M01S01011.superm  +++|.PROC,LOADF*I"LOAD PERMANENT FILES"
01202  M01S01012.superm  +++|,P1        [SETNAME OF TAPES]
01203  M01S01013.superm  +++|          =(*A,*N=)
01204  M01S01014.superm  +++|,USERNAME  [USER NAME]
01205  M01S01015.superm  +++|          =(*A,*N=)
01206  M01S01016.superm  +++|,PF1       [PERMANENT FILE NAME 1]
01207  M01S01017.superm  +++|          =(*A,*N=)
01208  M01S01018.superm  +++|,PF2       [PERMANENT FILE NAME 2]
01209  M01S01019.superm  +++|          =(*A,*N=).
01210  M01S01020.superm  +++|.*
01211  M01S01021.superm  +++|.*     COMMAND FORMAT : *X.MS(LOADF,SETNAME,USERNAME,PF,PF)*
01212  M01S01022.superm  +++|.* THIS PROCEDURE LOADS PERMANENT FILES FROM TAPES CREATED BY
01213  M01S01023.superm  +++|.* DUMPALL, DUMPMOD OR DUMPOLD.
01214  M01S01024.superm  +++|.* WHEN LOADF IS CALLED TO LOAD FILES STARTING WITH A SET OF
01215  M01S01025.superm  +++|.* TAPES CREATED BY DUMPALL OR DUMPMOD IT WILL LOAD FILES
01216  M01S01026.superm  +++|.* FROM THAT SET ONLY.  WHEN LOADF IS CALLED TO LOAD FILES
01217  M01S01027.superm  +++|.* STARTING WITH A SET OF TAPES CREATED BY DUMPMOD IT LOADS
01218  M01S01028.superm  +++|.* THE FILES ON THE DUMPMOD SET OF TAPES.  THEN IT LOADS THE
01219  M01S01029.superm  +++|.* FILES FROM THE LAST DUMPALL SET OF TAPES CREATED BEFORE
01220  M01S01030.superm  +++|.* THIS DUMPMOD SET.  TO BE LOADED, THESE FILES MUST MEET
01221  M01S01031.superm  +++|.* THE FOLLOWING CRITERIA: 1) THE FILES WERE ON THE DISKS
01222  M01S01032.superm  +++|.* WHEN THE DUMPMOD WAS EXECUTES. 2) THE FILES WERE NOT MODIFIED
01223  M01S01033.superm  +++|.* AFTER THE DUMPALL.
01224  M01S01034.superm  +++|.* LOADF CAN BE CALLED TO LOAD ALL THE FILES, THE FILES FOR A
01225  M01S01035.superm  +++|.* USERNAME, OR ONE OR TWO SPECIFIED FILES.  TO LOAD ALL FILES
01226  M01S01036.superm  +++|.* ONLY THE SETNAME PARAMETER IS SUPPLIED.  TO LOAD THE FILES FOR
01227  M01S01037.superm  +++|.* A USERNAME, THE SETNAME AND USERNAME PARAMETER ARE REQUIRED.
01228  M01S01038.superm  +++|.* TO LOAD ONE OR TWO SPECIFIC FILES, THE SETNAME, USERNAME AND
01229  M01S01039.superm  +++|.* ONE OR TWO OF THE FILENAME PARAMETERS ARE REQUIRED.  IF A FILE
01230  M01S01040.superm  +++|.* IS ALREADY ON DISK AND LOADF WAS SPECIFICALLY ASKED TO LOAD
01231  M01S01041.superm  +++|.* THAT FILE BY THE FILENAME PARAMETER THEN LOADF WILL ASK IF IT
01232  M01S01042.superm  +++|.* SHOULD OVERWRITE THE FILE.  IN THE CASE WHERE LOADF WAS CALLED
01233  M01S01043.superm  +++|.* TO LOAD ALL THE FILES OR ALL FILES FOR A USERNAME LOADF WILL
01234  M01S01044.superm  +++|.* NOT RELOAD A FILE THAT IS ALREADY ON DISK.
01235  M01S01045.superm  +++|
01236  M01S01046.superm  +++|
01237  M01S01047.superm  +++|BEGIN,VERF,ZZZPFIL,PF1,LOADF.
01238  M01S01048.superm  +++|
01239  M01S01049.superm  +++|BEGIN,VERF,ZZZPFIL,PF2,LOADF.
01240  M01S01050.superm  +++|
01241  M01S01051.superm  +++|.IF,$USERNAME$.EQ.$$,LOADF1.
01242  M01S01052.superm  +++|.IF,$PF1$.NE.$$,LOADF2.
01243  M01S01053.superm  +++|    BEGIN(ERRNOU,ZZZPFIL,PF1)
01244  M01S01054.superm  +++|.ELSE,LOADF2.
01245  M01S01055.superm  +++|.IF,$PF2$.NE.$$,LOADF2.
01246  M01S01056.superm  +++|    BEGIN(ERRNOU,ZZZPFIL,PF2)
01247  M01S01057.superm  +++|.ELSE,LOADF2.
01248  M01S01058.superm  +++|    BEGIN(LABELS,ZZZPFIL,P1,LOADF) REQUEST SET OF TAPES
01249  M01S01059.superm  +++|    IF,(R1G.EQ.1).REVERT. LOADF FAILED

Seq #  *Modification Id* Act 
----------------------------+
01250  M02S01060.superm2 ---|    PFLOAD,OP=V.  EXECUTE A FULL LOAD.
01251  M01S00066.superm2 +++|    PFLOAD,OP=LV.       EXECUTE A FULL LOAD.
01252  M01S01061.superm  +++|****************************
01253  M01S01062.superm  +++|* FULL LOAD COMPLETE       *
01254  M01S01063.superm  +++|****************************
01255  M01S01064.superm  +++|.ENDIF,LOADF2.
01256  M01S01065.superm  +++|.ELSE,LOADF1.  USER NAME SUPPLIED
01257  M01S01066.superm  +++|  BEGIN,VERUSER,ZZZPFIL,USERNAME,LOADF.
01258  M01S01067.superm  +++|  BEGIN(LABELS,ZZZPFIL,P1,LOADF) REQUEST SET OF TAPES
01259  M01S01068.superm  +++|  IF,(R1G.EQ.1).REVERT. LOADF FAILED
01260  M01S01069.superm  +++|.IF,(($PF1$.EQ.$$).AND.($PF2$.EQ.$$)),LOADF3.

Seq #  *Modification Id* Act 
----------------------------+
01261  M02S01070.super16 ---|    PFLOAD,UD,UN=USERNAME,OP=V.
01262  M01S00001.super16 +++|    PFLOAD,UD,UN=USERNAME,OP=LV.
01263  M01S01071.superm  +++|****************************
01264  M01S01072.superm  +++|* USER NAME LOAD COMPLETE  *
01265  M01S01073.superm  +++|****************************
01266  M01S01074.superm  +++|.ELSE,LOADF3.
01267  M01S01075.superm  +++|.IF,(($PF1$.NE.$$).AND.($PF2$.NE.$$)),LOADF3.

Seq #  *Modification Id* Act 
----------------------------+
01268  M02S01076.super16 ---|    PFLOAD,UD,UN=USERNAME,PF=PF1,PF=PF2,OP=V.
01269  M01S00002.super16 +++|    PFLOAD,UD,UN=USERNAME,PF=PF1,PF=PF2,OP=LV.
01270  M01S01077.superm  +++|**************************
01271  M01S01078.superm  +++|* TWO FILE LOAD COMPLETE *
01272  M01S01079.superm  +++|**************************
01273  M01S01080.superm  +++|.ELSE,LOADF3.
01274  M01S01081.superm  +++|.IF,($PF1$.NE.$$),LOADF3. LOCAL--PURGE OR OVERWRITE?

Seq #  *Modification Id* Act 
----------------------------+
01275  M02S01082.super16 ---|    PFLOAD,UD,UN=USERNAME,PF=PF1,OP=V.
01276  M01S00003.super16 +++|    PFLOAD,UD,UN=USERNAME,PF=PF1,OP=LV.
01277  M01S01083.superm  +++|**************************
01278  M01S01084.superm  +++|* ONE FILE LOAD COMPLETE *
01279  M01S01085.superm  +++|**************************
01280  M01S01086.superm  +++|.ELSE,LOADF3.

Seq #  *Modification Id* Act 
----------------------------+
01281  M02S01087.super16 ---|    PFLOAD,UD,UN=USERNAME,PF=PF2,OP=V.
01282  M01S00004.super16 +++|    PFLOAD,UD,UN=USERNAME,PF=PF2,OP=LV.
01283  M01S01088.superm  +++|**************************
01284  M01S01089.superm  +++|* ONE FILE LOAD COMPLETE *
01285  M01S01090.superm  +++|**************************
01286  M01S01091.superm  +++|.ENDIF,LOADF3.
01287  M01S01092.superm  +++|.ENDIF,LOADF1.
01288  M01S01093.superm  +++|WRITEF,OUTPUT.
01289  M01S01094.superm  +++|REVERT,NOLIST. LOADF COMPLETE
01290  M01S01095.superm  +++|*WEOR
01291  M01S01096.superm  +++|.PROC,LOADLOG*I
01292  M01S01097.superm  +++|,VSN       [VOLUME SERIAL NUMBER]
01293  M01S01098.superm  +++|          =(*A,*N=)
01294  M01S01099.superm  +++|,ACCOUNT   [LOAD ACCOUNT FILE.  DEFAULT IS NO]
01295  M01S01100.superm  +++|          =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0),
01296  M01S01101.superm  +++|,DAYFILE   [LOAD DAYFILE FILE.  DEFAULT IS NO]
01297  M01S01102.superm  +++|          =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0),
01298  M01S01103.superm  +++|,ERRLOG    [LOAD ERRLOG FILE.   DEFAULT IS NO]
01299  M01S01104.superm  +++|          =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0),
01300  M01S01105.superm  +++|,MAINLOG   [LOAD MAINLOG FILE.  DEFAULT IS NO]
01301  M01S01106.superm  +++|          =(ACCOUNT=1,DAYFILE=2,ERRLOG=3,MAINLOG=4,*A,*N=0).
01302  M01S01107.superm  +++|.*
01303  M01S01108.superm  +++|.*     COMMAND FORMAT : *LOADLOG(VSN,ACCOUNT,DAYFILE,ERRLOG,MAINLOG)*
01304  M01S01109.superm  +++|.*  THIS PROCEDURE USES RECLAIM TO LOAD THE PERMANENT FILES (ACCOUNT,
01305  M01S01110.superm  +++|.*  DAYFILE, ERRLOG, AND MAINLOG) FROM A TAPE CREATED BY ENDLOG.
01306  M01S01111.superm  +++|.*  THE TAPE IS A GE DENSITY LABELED TAPE WITH A VSN.
01307  M01S01112.superm  +++|.*  ALL OR ANY SUBSET OF THESE LOGS MAY BE LOADED.
01308  M01S01113.superm  +++|.*
01309  M01S01114.superm  +++|BEGIN,VERVSN,ZZZPFIL,VSN.  VERIFY #VSN
01310  M01S01115.superm  +++|  SKIP,LOADLOG1.
01311  M01S01116.superm  +++|  EXIT.
01312  M01S01117.superm  +++|  BEGIN,ERRVSN,ZZZPFIL,LOADLOG,VSN.
01313  M01S01118.superm  +++|  SET,R1G=1.
01314  M01S01119.superm  +++|  REVERT.  LOADLOG FAILED.
01315  M01S01120.superm  +++|ENDIF,LOADLOG1.
01316  M01S01121.superm  +++|RETURN,ZZSCR.
01317  M01S01122.superm  +++|BEGIN,,VERLOG,ACCOUNT.
01318  M01S01123.superm  +++|BEGIN,,VERLOG,DAYFILE.
01319  M01S01124.superm  +++|BEGIN,,VERLOG,ERRLOG.
01320  M01S01125.superm  +++|BEGIN,,VERLOG,MAINLOG.
01321  M01S01126.superm  +++|IF,.NOT.FILE(ZZSCR,AS),LOADLOG2.
01322  M01S01127.superm  +++|BEGIN,LOADLOG,ZZPPFIL,
01323  M01S01128.superm  +++| VSN,YES,YES,YES,YES.
01324  M01S01129.superm  +++|REQUEST,OPER.  LOADLOG COMPLETED.
01325  M01S01130.superm  +++|RETURN,OPER.
01326  M01S01131.superm  +++|REVERT,NOLIST.  LOADLOG COMPLETED.
01327  M01S01132.superm  +++|ENDIF,LOADLOG2.
01328  M01S01133.superm  +++|BEGIN,,CALLLOG.
01329  M01S01134.superm  +++|REVERT.  LOADLOG COMPLETED.
01330  M01S01135.superm  +++|EXIT.
01331  M01S01136.superm  +++|REVERT.  LOADLOG FAILED.
01332  M01S01137.superm  +++|.DATA,CALLLOG
01333  M01S01138.superm  +++|.PROC,CALLLOG.
01334  M01S01139.superm  +++|BEGIN,LOADLOG,ZZPPFIL,
01335  M01S01140.superm  +++| VSN,#ACCOUNT=NO,#DAYFILE=NO,#ERRLOG=NO,#MAINLOG=NO.
01336  M01S01141.superm  +++|REVERT,NOLIST.
01337  M01S01142.superm  +++|.DATA,VERLOG
01338  M01S01143.superm  +++|.PROC,VERLOG,P1.
01339  M01S01144.superm  +++|REWIND,INACCT,INDAYF,INERRL,INMLOG.
01340  M01S01145.superm  +++|#.IF,$P1$ .EQ. $1$.EDIT,CALLLOG,I=INACCT,M=N,L=ZZSCR.
01341  M01S01146.superm  +++|#.IF,$P1$ .EQ. $2$.EDIT,CALLLOG,I=INDAYF,M=N,L=ZZSCR.
01342  M01S01147.superm  +++|#.IF,$P1$ .EQ. $3$.EDIT,CALLLOG,I=INERRL,M=N,L=ZZSCR.
01343  M01S01148.superm  +++|#.IF,$P1$ .EQ. $4$.EDIT,CALLLOG,I=INMLOG,M=N,L=ZZSCR.
01344  M01S01149.superm  +++|#.IF,NUM(P1),VERLOG1.
01345  M01S01150.superm  +++|#.IF,$P1$ .EQ. $0$.REVERT,NOLIST.
01346  M01S01151.superm  +++|IF,P1 .GT. 0 .AND. P1 .LT. 5.REVERT,NOLIST.
01347  M01S01152.superm  +++|#.ENDIF,VERLOG1.
01348  M01S01153.superm  +++|SET,R1G=1.
01349  M01S01154.superm  +++|***************************************
01350  M01S01155.superm  +++|*                                     *
01351  M01S01156.superm  +++|* ERROR--BAD PARAMETER- P1
01352  M01S01157.superm  +++|* TRY AGAIN WITH VALID FILE NAMES     *
01353  M01S01158.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE     *
01354  M01S01159.superm  +++|*                                     *
01355  M01S01160.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
01356  M01S01161.superm  +++|*                                     *
01357  M01S01162.superm  +++|***************************************
01358  M01S01163.superm  +++|REQUEST,OPER.  LOADLOG FAILED.
01359  M01S01164.superm  +++|RETURN,OPER.
01360  M01S01165.superm  +++|REVERT,EX.REVERT.  LOADLOG FAILED.
01361  M01S01166.superm  +++|.DATA,INACCT
01362  M01S01167.superm  +++|RS:/#ACCOUNT=NO/,/#ACCOUNT=YES/;1
01363  M01S01168.superm  +++|END
01364  M01S01169.superm  +++|.DATA,INDAYF
01365  M01S01170.superm  +++|RS:/#DAYFILE=NO/,/#DAYFILE=YES/;1
01366  M01S01171.superm  +++|END
01367  M01S01172.superm  +++|.DATA,INERRL
01368  M01S01173.superm  +++|RS:/#ERRLOG=NO/,/#ERRLOG=YES/;1
01369  M01S01174.superm  +++|END
01370  M01S01175.superm  +++|.DATA,INMLOG
01371  M01S01176.superm  +++|RS:/#MAINLOG=NO/,/#MAINLOG=YES/;1
01372  M01S01177.superm  +++|END
01373  M01S01178.superm  +++|*WEOR
01374  M01S01179.superm  +++|.PROC,LOADQUE*I"LOAD QUEUE FILES"
01375  M01S01180.superm  +++|,VSN       [VOLUME SERIAL NUMBER]
01376  M01S01181.superm  +++|          =(*A,*N=).
01377  M01S01182.superm  +++|.*
01378  M01S01183.superm  +++|.*     COMMAND FORMAT : *X.MS(LOADQUE,VSN)*
01379  M01S01184.superm  +++|.*   THIS PROCEDURE IS USED TO LOAD ALL QUEUE FILES ON TO
01380  M01S01185.superm  +++|.*   THE SYSTEM FROM A GE DENSITY TAPE WITH A VSN.
01381  M01S01186.superm  +++|.*
01382  M01S01187.superm  +++|BEGIN,LABELV,ZZZPFIL,VSN,LOADQUE.
01383  M01S01188.superm  +++|
01384  M01S01189.superm  +++|QLOAD,DA=ALL,PO=N,FN=TAPE.
01385  M01S01190.superm  +++|
01386  M01S01191.superm  +++|WRITEF,OUTPUT.
01387  M01S01192.superm  +++|REVERT.  LOADQUE COMPLETE
01388  M01S01193.superm  +++|*WEOR
01389  M01S01194.superm  +++|.PROC,PURGLOG.
01390  M01S01195.superm  +++|.*
01391  M01S01196.superm  +++|.*     COMMAND FORMAT : *PURGLOG.*
01392  M01S01197.superm  +++|.*  THIS PROCEDURE PURGES THE PERMANENT FILES, CREATED BY ENDLOG,
01393  M01S01198.superm  +++|.*  ACCOUNT, DAYFILE, ERRLOG AND MAINLOG ON USER NAME SYSTEMX.
01394  M01S01199.superm  +++|.*
01395  M01S01200.superm  +++|***************************************
01396  M01S01201.superm  +++|*                                     *
01397  M01S01202.superm  +++|* NOTE--IF THIS PROCEDURE CONTINUES,  *
01398  M01S01203.superm  +++|* PERMANENT FILES CREATED BY ENDLOG   *
01399  M01S01204.superm  +++|* ACCOUNT, DAYFILE, ENDLOG, AND       *
01400  M01S01205.superm  +++|* MAINLOG WILL BE PURGED.             *
01401  M01S01206.superm  +++|* TO NOT PURGE THE FILES              *
01402  M01S01207.superm  +++|*   ENTER:  DROP,JSN.                 *
01403  M01S01208.superm  +++|* TO PURGE THE FILES                  *
01404  M01S01209.superm  +++|*   ENTER:  ASSIGN,JSN,2.             *
01405  M01S01210.superm  +++|*                                     *
01406  M01S01211.superm  +++|***************************************
01407  M01S01212.superm  +++|REQUEST,OPER.   PURGE OR STOP?
01408  M01S01213.superm  +++|RETURN,OPER.
01409  M01S01214.superm  +++|
01410  M01S01215.superm  +++|SKIP,PURGLOG1.
01411  M01S01216.superm  +++|  EXIT.
01412  M01S00052.superm1 +++|  RETURN,*,OUTPUT.
01413  M01S01217.superm  +++|  *************************************
01414  M01S01218.superm  +++|  *                                   *
01415  M01S01219.superm  +++|  * PROCESSING HAS BEEN STOPPED.      *
01416  M01S01220.superm  +++|  * THE LOG FILES WERE NOT PURGED.    *
01417  M01S01221.superm  +++|  * WHEN YOU HAVE READ THIS MESSAGE   *
01418  M01S01222.superm  +++|  *                                   *
01419  M01S01223.superm  +++|  *   ENTER:  ASSIGN,JSN,2.           *
01420  M01S01224.superm  +++|  *                                   *
01421  M01S01225.superm  +++|  *************************************
01422  M01S01226.superm  +++|  REQUEST,OPER.    PURGLOG STOPPED.
01423  M01S01227.superm  +++|  RETURN,OPER.
01424  M01S01228.superm  +++|  WRITEF,OUTPUT.
01425  M01S01229.superm  +++|  REVERT.  PURGLOG STOPPED
01426  M01S01230.superm  +++|ENDIF,PURGLOG1.
01427  M01S01231.superm  +++|
01428  M01S01232.superm  +++|PURGE,ACCOUNT/NA.
01429  M01S01233.superm  +++|PURGE,DAYFILE/NA.
01430  M01S01234.superm  +++|PURGE,ERRLOG/NA.
01431  M01S01235.superm  +++|PURGE,MAINLOG/NA.
01432  M01S01236.superm  +++|WRITEF,OUTPUT.
01433  M01S01237.superm  +++|REVERT.  PURGLOG COMPLETE
01434  M01S01238.superm  +++|*WEOR
01435  M01S01239.superm  +++|.PROC,SUCCESS*I
01436  M01S01240.superm  +++|,P1   [TOOL]
01437  M01S01241.superm  +++|      =(*F)
01438  M01S01242.superm  +++|.
01439  M01S00053.superm1 +++|RETURN,*,OUTPUT.
01440  M01S01243.superm  +++|****************************************
01441  M01S01244.superm  +++|*                                      *
01442  M01S01245.superm  +++|* P1 COMPLETE                     *
01443  M01S01246.superm  +++|* THIS TOOL RAN TO COMPLETION          *
01444  M01S01247.superm  +++|*                                      *
01445  M01S01248.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE      *
01446  M01S01249.superm  +++|*                                      *
01447  M01S01250.superm  +++|*   ENTER   ASSIGN,JSN,2.              *
01448  M01S01251.superm  +++|*                                      *
01449  M01S01252.superm  +++|****************************************
01450  M01S01253.superm  +++|REQUEST,OPER. P1 COMPLETE
01451  M01S01254.superm  +++|RETURN,OPER.
01452  M01S01255.superm  +++|REVERT,EX.REVERT. P1 COMPLETE
01453  M01S01256.superm  +++|*WEOR
01454  M01S01257.superm  +++|.PROC,VALUSER*I
01455  M01S01258.superm  +++|,TYPE      [NAME OF VALIDATION TYPE FILE]
01456  M01S01259.superm  +++|          =(*F,*N=$$)
01457  M01S01260.superm  +++|,USERNAME  [USERNAME]
01458  M01S01261.superm  +++|          =(*F,*N=INSTALL)
01459  M01S01262.superm  +++|,PASSWORD  [PASSWORD IS]
01460  M01S01263.superm  +++|          =(*F,*N=UNSECUR).
01461  M01S01264.superm  +++|.*
01462  M01S01265.superm  +++|.*     COMMAND FORMAT : *VALUSER(TYPE,USERNAME,PASSWORD)*
01463  M01S01266.superm  +++|.*  THIS PROCEDURE CAN EITHER CREATE, DELETE OR MODIFY A SINGLE
01464  M01S01267.superm  +++|.*  USERNAME OR MULTIPLE USERNAMES.  IF THE PARAMETERS WERE

Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01268.superm2 ---|.*  SUPPLIED, THEY WILL FUNCTION AS DESCRIBED FOR DIRECTF.
01466  M01S00067.superm2 +++|.*  SUPPLIED, THEY WILL FUNCTION AS DESCRIBED FOR WRITEVI.

Seq #  *Modification Id* Act 
----------------------------+
01467  M02S01269.superm1 ---|.*  IF NO PARAMETERS ARE SUPPLIED, TYPE FILE IS ZZZVDI CREATED
01468  M01S00054.superm1 +++|.*  IF NO PARAMETERS ARE SUPPLIED, TYPE FILE IS ZZZZVDI CREATED
01469  M01S01270.superm  +++|.*  BY WRITEVI AND CALLS MODVAL WITH THAT FILE AS THE DIRECTIVE
01470  M01S01271.superm  +++|.*  INPUT FILE.
01471  M01S01272.superm  +++|.*  AFTER A DIRECTIVE INPUT FILE HAS BEEN CREATED FROM THESE
01472  M01S01273.superm  +++|.*  PARAMETERS, MODVAL IS CALLED.  AFTER A SUCCESSFUL MODVAL
01473  M01S01274.superm  +++|.*  RUN ZZZZVDI IS PURGED AND REDEFINED.
01474  M01S01275.superm  +++|.*
01475  M01S01276.superm  +++|.IF,#$TYPE$.EQ.$$,VALUSER1.
01476  M01S01277.superm  +++|
01477  M01S01278.superm  +++|BEGIN(VERVDI,ZZZPFIL,VALUSER)
01478  M01S01279.superm  +++|
01479  M01S01280.superm  +++|MODVAL,OP=U,I=ZZZZVDI,FA.
01480  M01S00055.superm1 +++|REWIND,ZZZZVDI.
01481  M01S00056.superm1 +++|WRITER,ZZZZVDI.
01482  M01S01281.superm  +++|RETURN,ZZZZVDI.
01483  M01S01282.superm  +++|BEGIN(SETUP,SETUP,ZZZZVDI)
01484  M01S01283.superm  +++|REVERT. VALUSER COMPLETE
01485  M01S01284.superm  +++|
01486  M01S01285.superm  +++|.ENDIF,VALUSER1.
01487  M01S01286.superm  +++|
01488  M01S01287.superm  +++|BEGIN(VERUSER,ZZZPFIL,USERNAME,VALUSER)
01489  M01S01288.superm  +++|
01490  M01S01289.superm  +++|.IF,#$TYPE$.EQ.$DELETE$,VALUSER2.
01491  M01S01290.superm  +++|MODVAL,I=DELUSER,OP=UR,FA.
01492  M01S01291.superm  +++|.ELSE,VALUSER2.
01493  M01S01292.superm  +++|
01494  M01S01293.superm  +++|BEGIN(VERPASS,ZZZPFIL,PASSWORD,VALUSER)
01495  M01S01294.superm  +++|
01496  M01S01295.superm  +++|BEGIN(GETTYPE,ZZZPFIL,TYPE,VALUSER)
01497  M01S01296.superm  +++|
01498  M01S01297.superm  +++|SKIPR,INUSER.
01499  M01S01298.superm  +++|COPYBR(TYPE,INUSER)
01500  M01S01299.superm  +++|PACK(INUSER)
01501  M01S01300.superm  +++|MODVAL,I=INUSER,OP=U,FA.
01502  M01S01301.superm  +++|.ENDIF,VALUSER2.
01503  M01S01302.superm  +++|REVERT.  VALUSER COMLETE.
01504  M01S01303.superm  +++|.DATA,INUSER.
01505  M01S01304.superm  +++|/USERNAME,PW=PASSWORD.
01506  M01S01305.superm  +++|.DATA,DELUSER.
01507  M01S01306.superm  +++|/USERNAME,PW=DELETE.
01508  M01S01307.superm  +++|/USERNAME,DAC=USERNAME.
01509  M01S01308.superm  +++|*WEOR
01510  M01S01309.superm  +++|.PROC,VERDATE*I
01511  M01S01310.superm  +++|,P1       [DATE SUPPLIED]
01512  M01S01311.superm  +++|          =(*A,*N=).
01513  M01S01312.superm  +++|,P2       [TOOL]
01514  M01S01313.superm  +++|          =(*F)
01515  M01S01314.superm  +++|.
01516  M01S01315.superm  +++|ZZVERD1,P1. INSURE DATE IS ATLEAST SIX CHARACTERS
01517  M01S01316.superm  +++|SKIP,VERDATE1.
01518  M01S01317.superm  +++|EXIT. DATE NOT TOO SHORT
01519  M01S01318.superm  +++|ZZVERD,P1. INSURE DATE IS ONLY SIX NUMERIC CHARACTERS
01520  M01S01319.superm  +++|REVERT,NOLIST.   VERDATE COMPLETE
01521  M01S01320.superm  +++|EXIT.
01522  M01S01321.superm  +++|SET(R1G=1)
01523  M01S01322.superm  +++|****************************************
01524  M01S01323.superm  +++|*                                      *
01525  M01S01324.superm  +++|* ERROR--DATE: P1.              *
01526  M01S01325.superm  +++|* NOT PROPERLY SPECIFIED               *
01527  M01S01326.superm  +++|* TRY AGAIN WITH A 6 CHARACTER DATE    *
01528  M01S01327.superm  +++|* IN THE FORM YYMMDD.                  *
01529  M01S01328.superm  +++|*                                      *
01530  M01S01329.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE      *
01531  M01S01330.superm  +++|*                                      *
01532  M01S01331.superm  +++|*   ENTER   ASSIGN,JSN,2.              *
01533  M01S01332.superm  +++|*                                      *
01534  M01S01333.superm  +++|****************************************
01535  M01S01334.superm  +++|REQUEST,OPER. P2 FAILED
01536  M01S01335.superm  +++|RETURN,OPER.
01537  M01S01336.superm  +++|REVERT,EX.REVERT. P2 FAILED
01538  M01S01337.superm  +++|.DATA,ZZVERD
01539  M01S01338.superm  +++|.PROC,ZZVERD*I
01540  M01S01339.superm  +++|,R1   [DATE SUPPLIED]
01541  M01S01340.superm  +++|      =(*S6(0123456789))
01542  M01S01341.superm  +++|.
01543  M01S01342.superm  +++|REVERT,NOLIST.
01544  M01S01343.superm  +++|.DATA,ZZVERDM
01545  M01S01344.superm  +++|.PROC,ZZVERDM*I
01546  M01S01345.superm  +++|,R1   [DATE SUPPLIED]
01547  M01S01346.superm  +++|      =(*S5(0123456789))
01548  M01S01347.superm  +++|.
01549  M01S01348.superm  +++|REVERT. THIS PROC SHOULD FAIL
01550  M01S01349.superm  +++|*WEOR
01551  M01S01350.superm  +++|.PROC,VERF*I
01552  M01S01351.superm  +++|,P1       [PERMANENT FILE NAME]
01553  M01S01352.superm  +++|          =(*A,*N=)
01554  M01S01353.superm  +++|,P2       [TOOL]
01555  M01S01354.superm  +++|          =(*F)
01556  M01S01355.superm  +++|.
01557  M01S01356.superm  +++|ZZVERF,P1.
01558  M01S01357.superm  +++|REVERT,NOLIST.   VERF COMPLETED.
01559  M01S01358.superm  +++|EXIT.
01560  M01S01359.superm  +++|SET(R1G=1)
01561  M01S00057.superm1 +++|RETURN,*,OUTPUT.
01562  M01S01360.superm  +++|****************************************
01563  M01S01361.superm  +++|*                                      *
01564  M01S01362.superm  +++|* ERROR--FILE NAME: P1.         *
01565  M01S01363.superm  +++|* NOT PROPERLY SPECIFIED               *
01566  M01S01364.superm  +++|* TRY AGAIN WITH A 1-7 CHARACTER       *
01567  M01S01365.superm  +++|* ALPHANUMERIC FILE NAME.              *
01568  M01S01366.superm  +++|*                                      *
01569  M01S01367.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE      *
01570  M01S01368.superm  +++|*                                      *
01571  M01S01369.superm  +++|*   ENTER   ASSIGN,JSN,2.              *
01572  M01S01370.superm  +++|*                                      *
01573  M01S01371.superm  +++|****************************************
01574  M01S01372.superm  +++|REQUEST,OPER. P2 FAILED
01575  M01S01373.superm  +++|RETURN,OPER.
01576  M01S01374.superm  +++|REVERT,EX.REVERT. P2 FAILED
01577  M01S01375.superm  +++|.DATA,ZZVERF
01578  M01S01376.superm  +++|.PROC,ZZVERF*I
01579  M01S01377.superm  +++|,R1   [FILE NAME]
01580  M01S01378.superm  +++|      =(*F,*N=)
01581  M01S01379.superm  +++|.
01582  M01S01380.superm  +++|REVERT,NOLIST.
01583  M01S01381.superm  +++|*WEOR
01584  M01S01382.superm  +++|.PROC,VERJSN*I
01585  M01S01383.superm  +++|,JSN       [JOB SEQUENCE NUMBER]
01586  M01S01384.superm  +++|          =(*S4(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)).
01587  M01S01385.superm  +++|REVERT.  VERJSN COMPLETED.
01588  M01S01386.superm  +++|*WEOR
01589  M01S01387.superm  +++|.PROC,VERMPL*I
01590  M01S01388.superm  +++|,R1   [PASSWORD SUPPLIED]
01591  M01S01389.superm  +++|      =(*S3(0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ))
01592  M01S01390.superm  +++|.
01593  M01S01391.superm  +++|NOTE(OUTPUT,NR)* ERROR-- PASSWORD: R1 TOO SHORT
01594  M01S01392.superm  +++|NOTE(OUTPUT,NR)* TRY AGAIN WITH A 4 TO 7 CHARACTER PASSWORD
01595  M01S01393.superm  +++|ROLLOUT(5)
01596  M01S01394.superm  +++|
01597  M01S01395.superm  +++|REVERT. THIS PROC SHOULD FAIL
01598  M01S01396.superm  +++|*WEOR
01599  M01S01397.superm  +++|.PROC,VERPASS*I
01600  M01S01398.superm  +++|,P1       [PASSWORD SUPPLIED]
01601  M01S01399.superm  +++|          =(*A,*N=)
01602  M01S01400.superm  +++|,P2       [TOOL]
01603  M01S01401.superm  +++|          =(*F)
01604  M01S01402.superm  +++|.
01605  M01S01403.superm  +++|BEGIN(VERMPL,ZZZPFIL,P1) PASSWORD AT LEAST FOUR CHARACTERS
01606  M01S01404.superm  +++|SKIP,VERPASS1.
01607  M01S01405.superm  +++|EXIT. PASSWORD NOT TOO SHORT
01608  M01S01406.superm  +++|ZZVERP,P1. INSURE PASSWORD IS 7 OR FEWER CHARACTERS
01609  M01S01407.superm  +++|REVERT,NOLIST.   VERPASS COMPLETED.
01610  M01S01408.superm  +++|EXIT.
01611  M01S01409.superm  +++|ENDIF,VERPASS1.
01612  M01S01410.superm  +++|SET(R1G=1)
01613  M01S00058.superm1 +++|RETURN,*,OUTPUT.
01614  M01S01411.superm  +++|****************************************
01615  M01S01412.superm  +++|*                                      *
01616  M01S01413.superm  +++|* ERROR--PASSWORD: P1.          *
01617  M01S01414.superm  +++|* NOT PROPERLY SPECIFIED               *
01618  M01S01415.superm  +++|* TRY AGAIN WITH A 4-7 CHARACTER       *
01619  M01S01416.superm  +++|* ALPHANUMERIC PASSWORD.               *
01620  M01S01417.superm  +++|*                                      *
01621  M01S01418.superm  +++|* WHEN YOU HAVE READ THIS MESSAGE      *
01622  M01S01419.superm  +++|*                                      *
01623  M01S01420.superm  +++|*   ENTER   ASSIGN,JSN,2.              *
01624  M01S01421.superm  +++|*                                      *
01625  M01S01422.superm  +++|****************************************
01626  M01S01423.superm  +++|REQUEST,OPER. P2 FAILED
01627  M01S01424.superm  +++|RETURN,OPER.
01628  M01S01425.superm  +++|REVERT,EX.REVERT. P2 FAILED
01629  M01S01426.superm  +++|.DATA,ZZVERP
01630  M01S01427.superm  +++|.PROC,ZZVERP*I
01631  M01S01428.superm  +++|,R1   [PASSWORD SUPPLIED]
01632  M01S01429.superm  +++|      =(*S7(0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ))
01633  M01S01430.superm  +++|.
01634  M01S01431.superm  +++|REVERT,NOLIST.
01635  M01S01432.superm  +++|*WEOR
01636  M01S01433.superm  +++|.PROC,VERPURG*I
01637  M01S01434.superm  +++|,P        [PURGE ON-OFF]
01638  M01S01435.superm  +++|          =(PURGE=PURGE,*N=,*A).
01639  M01S01436.superm  +++|IF,$P$.EQ.$PURGE$,VERPURG1.
01640  M01S01437.superm  +++|REVERT.  FILES WILL BE PURGED.
01641  M01S01438.superm  +++|ENDIF,VERPURG1.
01642  M01S01439.superm  +++|IF,$P$.EQ.$$,VERPURG2.
01643  M01S01440.superm  +++|REVERT.  FILES WILL NOT BE PURGED.
01644  M01S01441.superm  +++|ELSE,VERPURG2.
01645  M01S01442.superm  +++|REVERT,ABORT.  VERPURGE FAILED.
01646  M01S01443.superm  +++|ENDIF,VERPURG2.
01647  M01S01444.superm  +++|REVERT,NOLIST. VERPURGE COMPLETED.
01648  M01S01445.superm  +++|*WEOR
01649  M01S01446.superm  +++|.PROC,VERSETM*I
01650  M01S01447.superm  +++|,NUMBER    [NUMBER OF TAPES IN SET]
01651  M01S01448.superm  +++|          =(*S1(12345678)).
01652  M01S01449.superm  +++|REVERT,NOLIST. VERSETM COMPLETED.
01653  M01S01450.superm  +++|*WEOR
01654  M01S01451.superm  +++|.PROC,VERSETN*I
01655  M01S01452.superm  +++|,SETNAME   [SETNAME OF TAPE SET]
01656  M01S01453.superm  +++|          =(*S5(ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890)).
01657  M01S01454.superm  +++|REVERT,NOLIST. VERSETN COMPLETED.
01658  M01S01455.superm  +++|*WEOR
01659  M01S01456.superm  +++|.PROC,VERSTPN*I
01660  M01S01457.superm  +++|,TOOL    [TOOL TO EXECUTE]
01661  M01S01458.superm  +++|         =(DUMPALL=1,DUMPMOD=1,DUMPQUE=1,DUMPLOG=2,
01662  M01S01459.superm  +++|           ENDLOG =0,ENDDF  =1,LOADF  =4,LOADQUE=1,
01663  M01S01460.superm  +++|           LOADLOG=5,DUMPOLD=2,PURGLOG=0,VALUSER=3,
01664  M01S01461.superm  +++|           LISTQUE=0,FINDJSN=1,BLANKST=2)
01665  M01S01462.superm  +++|,P1      [FIRST PARAMETER]
01666  M01S01463.superm  +++|         =(*N=,*A)
01667  M01S01464.superm  +++|,P2      [SECOND PARAMETER]
01668  M01S01465.superm  +++|         =(*N=,*A)
01669  M01S01466.superm  +++|,P3      [THIRD PARAMETER]
01670  M01S01467.superm  +++|         =(*N=,*A)
01671  M01S01468.superm  +++|,P4      [FOURTH PARAMETER]
01672  M01S01469.superm  +++|         =(*N=,*A)
01673  M01S01470.superm  +++|,P5      [FIFTH PARAMETER]
01674  M01S01471.superm  +++|         =(*N=,*A)
01675  M01S01472.superm  +++|,P6      [SIXTH PARAMETER]
01676  M01S01473.superm  +++|         =(*N=,*A)
01677  M01S01474.superm  +++|,P7      [SEVENTH PARAMETER]
01678  M01S01475.superm  +++|         =(*N=,*A)
01679  M01S01476.superm  +++|.
01680  M01S01477.superm  +++|.IF,((TOOL.LE.5).AND.(($P6$.NE.$$).OR.($P7$.NE.$$))).SKIP,VERSTP1.
01681  M01S01478.superm  +++|.IF,((TOOL.LE.4).AND.($P5$.NE.$$)).SKIP,VERSTP1.
01682  M01S01479.superm  +++|.IF,((TOOL.LE.3).AND.($P4$.NE.$$)).SKIP,VERSTP1.
01683  M01S01480.superm  +++|.IF,((TOOL.LE.2).AND.($P3$.NE.$$)).SKIP,VERSTP1.

Proceed to Part 1