         PROCEDURE MGRB2020                                               000100
                                                                          000200
***********************************************************************   000300
* PROCEDURE:  MGRB1205                                                *   000400
* AUTHOR:     JMC                                                     *   000500
* TITLE:      Scratch Work Library Utility                            *   000600
* REMARKS:    This procedure is executed to scratch every file        *   000700
*             in the work library.                                    *   000800
*                                                                     *   000900
*---------------------------------------------------------------------*   001000
*                            MODIFICATIONS                            *   001100
* VER WHO   DATE   WHY                                                *   001200
* --- --- -------- -------------------------------------------------- *   001300
*  00 JMC 06/24/87 Original Version                                   *   001400
*                                                                     *   001500
***********************************************************************   001600
                                                                          001700
         DECLARE &WORK_LIB      as String (08) Initial "        "         001800
         DECLARE &WORK_VOL      as String (06) Initial "      "           001900
                                                                          002000
***********************************************************************   002100
* STEP01 -- Will get the Work Lib & Volume                            *   002200
***********************************************************************   002300
STEP01:  EXTRACT &WORK_VOL      = WORKVOL                                 002400
         EXTRACT &WORK_LIB      = WORKLIB                                 002500
                                                                          002600
         IF      &WORK_LIB      = "        " CALL CREAT                   002700
         IF      &WORK_VOL      = "      "   CALL CREAT                   002800
                                                                          002900
***********************************************************************   003000
* STEP02: Will Scratch the Library                                    *   003100
***********************************************************************   003200
STEP02:  SCRATCH LIBRARY &WORK_LIB on &WORK_VOL                           003300
                                                                          003400
***********************************************************************   003500
* EOJ: End of Job                                                     *   003600
***********************************************************************   003700
EOJ:     RETURN                                                           003800
                                                                          003900
*#####################################################################*   004000
*                          S U B R O U T I N E S                      *   004100
*#####################################################################*   004200
***********************************************************************   004300
* CREAT -- Will Create a dummy file                                   *   004400
***********************************************************************   004500
CREAT:   RUN CREATE                                                       004600
            X: ENTER OUTPUT  FILE     = ##000001,                         004700
                             TYPE     = C,                                004800
                             RECSIZE  = 1,                                004900
                             RECORDS  = 1                                 005000
               ENTER INPUT   16                                           005100
               ENTER EOJ     16                                           005200
                                                                          005300
         ASSIGN &WORK_LIB = (X.LIBRARY)                                   005400
         ASSIGN &WORK_VOL = (X.VOLUME)                                    005500
                                                                          005600
END                                                                       005700
                                                                          005800
