/* ************************************************************************** */
/* MAKEDBGSPL: Make all required DBG WRKUSROUTQ utility objects               */
/* Copyright (C) 2000  Martin Rowe  <martin@dbg400.net>                       */
/*                                                                            */
/* This program is free software; you can redistribute it and/or modify       */
/* it under the terms of the GNU General Public License as published by       */
/* the Free Software Foundation; either version 2 of the License, or          */
/* (at your option) any later version.                                        */
/*                                                                            */
/* This program is distributed in the hope that it will be useful,            */
/* but WITHOUT ANY WARRANTY; without even the implied warranty of             */
/* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the              */
/* GNU General Public License for more details.                               */
/*                                                                            */
/* You should have received a copy of the GNU General Public License          */
/* along with this program; if not, write to the Free Software                */
/* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307   USA */
/* ************************************************************************** */
PGM
  DCL        VAR(&LIBRARY)   TYPE(*CHAR) LEN(10) VALUE('DBG400')
  DCL        VAR(&SRCLIB)    TYPE(*CHAR) LEN(10) VALUE('DBG400')
  DCL        VAR(&TYPE)      TYPE(*CHAR) LEN(1)
  RTVJOBA    TYPE(&TYPE)
  IF         COND(&TYPE *EQ '1') THEN(DO)
    SBMJOB     CMD(CALL PGM(MAKEDBGSPL))
    GOTO       CMDLBL(ENDPGM)
  ENDDO

  ADDLIBLE   LIB(&LIBRARY) POSITION(*AFTER QTEMP)
  MONMSG     MSGID(CPF0000)

/* Delete prior versions of objects, if there from an earlier MAKEDBGUTL */
/* Logicals */
/* Physicals */
  DLTF       FILE(&LIBRARY/DBGUOL00)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBG1860W)
  MONMSG     MSGID(CPF2105)
/* Display files */
  DLTF       FILE(&LIBRARY/DBG186DF)
  MONMSG     MSGID(CPF2105)
/* Reports */
/* Programs */
  DLTPGM     PGM(&LIBRARY/RTNIPADDR)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG186CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG187CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG186R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG187R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG188R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG189R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG190R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG191R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG192R4)
  MONMSG     MSGID(CPF2105)
/* Data Areas */
  DLTDTAARA  DTAARA(&LIBRARY/DBG186DA)
  MONMSG     MSGID(CPF2105)
/* Commands */
  DLTCMD     CMD(&LIBRARY/WRKUSROUTQ)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/RTNIPADDR)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/MOVDIAGMSG)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/RSNESCMSG)
  MONMSG     MSGID(CPF2105)

/* Now create all required objects */
/* Temp files for program compilation */
  CRTSRCPF   FILE(QTEMP/FTPSRC) RCDLEN(132)
  CRTPF      FILE(QTEMP/DBG1871W) RCDLEN(259)
  CRTPF      FILE(QTEMP/DBG1872W) RCDLEN(255)
/* Physicals */
  CRTPF      FILE(&LIBRARY/DBGUOL00) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBG1860W) +
               SRCFILE(&SRCLIB/QDDSSRC)
/* DISPLAYS */
  CRTDSPF    FILE(&LIBRARY/DBG186DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
/* COMMANDS */
  CRTCMD     CMD(&LIBRARY/WRKUSROUTQ) +
               PGM(&LIBRARY/DBG186CL) +
               SRCFILE(&SRCLIB/QCMDSRC)
  CRTCMD     CMD(&LIBRARY/RTNIPADDR) +

               PGM(&LIBRARY/RTNIPADDR) +
               SRCFILE(&SRCLIB/QCMDSRC) ALLOW(*BPGM +
               *IPGM *BMOD *IMOD)
  CRTCMD     CMD(&LIBRARY/MOVDIAGMSG) +
               PGM(QSYS/QMHMOVPM) +
               SRCFILE(&SRCLIB/QCMDSRC) ALLOW(*BPGM +
               *IPGM *BREXX *IREXX)
  CRTCMD     CMD(&LIBRARY/RSNESCMSG) +
               PGM(QSYS/QMHRSNEM) +
               SRCFILE(&SRCLIB/QCMDSRC)
/* CL PROGRAMS */
  CRTCLPGM   PGM(&LIBRARY/RTNIPADDR) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG186CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG187CL) +
               SRCFILE(&SRCLIB/QCLSRC)
/* RPG IV PROGRAMS */
  CRTBNDRPG  PGM(&LIBRARY/DBG186R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG187R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG188R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG189R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG190R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG191R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG192R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
/* Data areas */
  CRTDTAARA  DTAARA(&LIBRARY/DBG186DA) TYPE(*CHAR) LEN(100)
/* Message descriptions */

  ADDMSGD MSGID(GSM9999) MSGF(DBGMSGF) MSG('&1') +
               SEV(00) FMT((*CHAR  512)) DMPLST(*JOB) +
               ALROPT(*NO) LOGPRB(*NO) CCSID(65535)
  MONMSG     MSGID(CPF2412) EXEC(CHGMSGD MSGID(GSM9999) +
               MSGF(DBGMSGF) MSG('&1') SEV(00) +
               FMT((*CHAR 512)) DMPLST(*JOB) ALROPT(*NO) +
               LOGPRB(*NO) CCSID(65535))

/* Load On-line documents */
  OVRDBF     FILE(DBGDFTH1) TOFILE(&LIBRARY/DBGOLDH1)
  OVRDBF     FILE(DBGDFTD1) TOFILE(&LIBRARY/DBGOLDD1)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(HTMLSTART)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('HTMLSTART' +
               'WRKUSROUTQ default +
               web document header            ')

  DLTOVR     FILE(QTXTSRC)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(HTMLEND)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('HTMLEND' +
               'WRKUSROUTQ default web +
               document footer            ')

  DLTOVR     FILE(QTXTSRC DBGDFTH1 DBGDFTD1)
  OVRDBF     FILE(DBGDFTH1) TOFILE(&LIBRARY/DBGDFTH1)
  OVRDBF     FILE(DBGDFTD1) TOFILE(&LIBRARY/DBGDFTD1)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(DBG186R4)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('DBG186R4' +
               'WRKUSROUTQ - Work with users *OUTQ / +
                spoolfiles   ')
  DLTOVR     FILE(QTXTSRC DBGDFTH1 DBGDFTD1)

ENDPGM:
  RETURN
ENDPGM