/* ************************************************************************** */
/* MAKEDBG: Make all required DBG 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(MAKEDBG))
    GOTO       CMDLBL(ENDPGM)
  ENDDO

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

/* DELETE PRIOR VERSIONS OF OBJECTS, IF THERE FROM AN EARLIER MAKEDBG */
/* LOGICALS */
  DLTF       FILE(&LIBRARY/DBGDFTH1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDFTK1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDFTK2)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDFTD1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDFTD2)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLH1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLK1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLK2)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLD1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDH1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDK1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDK2)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDD1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDPRO1)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDPRO2)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDEP01)
  MONMSG     MSGID(CPF2105)
/* PHYSICALS */
  DLTF       FILE(&LIBRARY/DBGDFTH0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDFTK0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDFTD0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLH0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLK0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGSQLD0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDH0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDK0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLDD0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGOLD0W)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDPRO0)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBGDGL00)
  MONMSG     MSGID(CPF2105)
/* DISPLAY FILES */
  DLTF       FILE(&LIBRARY/DBG110DF)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBG020DF)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBG030DF)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBG005DF)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBG100DF)
  MONMSG     MSGID(CPF2105)
  DLTF       FILE(&LIBRARY/DBG105DF)
  MONMSG     MSGID(CPF2105)
/* REPORTS */
  DLTF       FILE(&LIBRARY/DBG015PF)
  MONMSG     MSGID(CPF2105)
/* PROGRAMS */
  DLTPGM     PGM(&LIBRARY/DBG109CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG106CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG107CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG108CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG110CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG112CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG114CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG046CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG010CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG045CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG102CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG103CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG104CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG105CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG005CL)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG043R3)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG020R3)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG040R3)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG042R3)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG044R3)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG108R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG020R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG030R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG010R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG015R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG041R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG005R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG006R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/SETHLPTXT)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG100R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG101R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG102R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG103R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG104R4)
  MONMSG     MSGID(CPF2105)
  DLTPGM     PGM(&LIBRARY/DBG105R4)
  MONMSG     MSGID(CPF2105)
/* DATA AREAS */
  DLTDTAARA  DTAARA(&LIBRARY/DBGSQLD1)
  MONMSG     MSGID(CPF2105)
  DLTDTAARA  DTAARA(&LIBRARY/DBGDFTD1)
  MONMSG     MSGID(CPF2105)
  DLTDTAARA  DTAARA(&LIBRARY/DBGOLDD1)
  MONMSG     MSGID(CPF2105)
  DLTDTAARA  DTAARA(&LIBRARY/DBGCOMP)
  MONMSG     MSGID(CPF2105)
/* QM QUERIES */
  DLTQMQRY   QMQRY(&LIBRARY/DBG102QM)
  MONMSG     MSGID(CPF2105)
/* UIM PANEL GROUPS */
  DLTPNLGRP  PNLGRP(&LIBRARY/DBG020PG)
  MONMSG     MSGID(CPF2105)
  DLTPNLGRP  PNLGRP(&LIBRARY/DBG030PG)
  MONMSG     MSGID(CPF2105)
/* MESSAGE FILES */
  DLTMSGF    MSGF(&LIBRARY/DBGMSGF)
  MONMSG     MSGID(CPF2105)
/* COMMANDS */
  DLTCMD     CMD(&LIBRARY/CRTDBGSCP)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/CRTPGMFSET)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/DBG)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/EDTDBGLNK)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/EDTDBGSCP)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/EXCDBGSCP)
  MONMSG     MSGID(CPF2105)
  DLTCMD     CMD(&LIBRARY/WRKOLD)
  MONMSG     MSGID(CPF2105)

/* NOW CREATE ALL REQUIRED OBJECTS */
/* PHYSICALS */
  CRTPF      FILE(&LIBRARY/DBGDPRO0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGDFTH0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGDFTK0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGDFTD0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGOLD0W) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGSQLH0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGSQLK0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGSQLD0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGOLDH0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGOLDK0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGOLDD0) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTPF      FILE(&LIBRARY/DBGDGL00) +
               SRCFILE(&SRCLIB/QDDSSRC)
  DSPFD      FILE(&LIBRARY/*ALL) TYPE(*MBR) +
               OUTPUT(*OUTFILE) OUTFILE(QTEMP/DBGLIST)
/* LOGICALS */
  CRTLF      FILE(&LIBRARY/DBGDPRO1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDPRO2) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDFTH1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDFTK1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDFTK2) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDFTD1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDFTD2) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGSQLH1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGSQLK1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGSQLK2) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGSQLD1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGOLDH1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGOLDK1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGOLDK2) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGOLDD1) +
               SRCFILE(&SRCLIB/QDDSSRC)
  CRTLF      FILE(&LIBRARY/DBGDEP01) +
               SRCFILE(&SRCLIB/QDDSSRC)
/* DISPLAYS */
  CRTDSPF    FILE(&LIBRARY/DBG110DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
  CRTDSPF    FILE(&LIBRARY/DBG020DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
  CRTDSPF    FILE(&LIBRARY/DBG030DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
  CRTDSPF    FILE(&LIBRARY/DBG005DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
  CRTDSPF    FILE(&LIBRARY/DBG100DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
  CRTDSPF    FILE(&LIBRARY/DBG105DF) +
               SRCFILE(&SRCLIB/QDDSSRC) RSTDSP(*YES)
/* REPORTS */
  CRTPRTF    FILE(&LIBRARY/DBG015PF) +
               SRCFILE(&SRCLIB/QDDSSRC) PAGESIZE(70 +
               100) LPI(6) CPI(12) OVRFLW(69)
/* COMMANDS */
  CRTCMD     CMD(&LIBRARY/CRTDBGSCP) +
               PGM(&LIBRARY/DBG106CL) +
               SRCFILE(&SRCLIB/QCMDSRC) +
               VLDCKR(&LIBRARY/DBG107CL)
  CRTCMD     CMD(&LIBRARY/CRTPGMFSET) +
               PGM(&LIBRARY/DBG108CL) +
               SRCFILE(&SRCLIB/QCMDSRC)
  CRTCMD     CMD(&LIBRARY/DBG) PGM(&LIBRARY/DBG110CL) +
               SRCFILE(&SRCLIB/QCMDSRC)
  CRTCMD     CMD(&LIBRARY/EDTDBGLNK) +
               PGM(&LIBRARY/DBG100R4) +
               SRCFILE(&SRCLIB/QCMDSRC)
  CRTCMD     CMD(&LIBRARY/EDTDBGSCP) +
               PGM(&LIBRARY/DBG112CL) +
               SRCFILE(&SRCLIB/QCMDSRC)
  CRTCMD     CMD(&LIBRARY/EXCDBGSCP) +
               PGM(&LIBRARY/DBG114CL) +
               SRCFILE(&SRCLIB/QCMDSRC)
  CRTCMD     CMD(&LIBRARY/WRKOLD) +
               PGM(&LIBRARY/DBG005CL) +
               SRCFILE(&SRCLIB/QCMDSRC)
/* CL PROGRAMS */
  CRTCLPGM   PGM(&LIBRARY/DBG109CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG106CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG107CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG108CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG110CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG112CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG114CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG046CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG010CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG045CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG102CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG103CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG104CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG105CL) +
               SRCFILE(&SRCLIB/QCLSRC)
  CRTCLPGM   PGM(&LIBRARY/DBG005CL) +
               SRCFILE(&SRCLIB/QCLSRC)
/* RPG PROGRAMS */
  CRTRPGPGM  PGM(&LIBRARY/DBG043R3) +
               SRCFILE(&SRCLIB/QRPGSRC)
  CRTRPGPGM  PGM(&LIBRARY/DBG020R3) +
               SRCFILE(&SRCLIB/QRPGSRC)
  CRTRPGPGM  PGM(&LIBRARY/DBG040R3) +
               SRCFILE(&SRCLIB/QRPGSRC)
  CRTRPGPGM  PGM(&LIBRARY/DBG042R3) +
               SRCFILE(&SRCLIB/QRPGSRC)
  CRTRPGPGM  PGM(&LIBRARY/DBG044R3) +
               SRCFILE(&SRCLIB/QRPGSRC)
/* RPG IV PROGRAMS */
  CRTBNDRPG  PGM(&LIBRARY/DBG108R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  OVRDBF     FILE(TEMPDFT1) TOFILE(&LIBRARY/DBGDFTD1)
  OVRDBF     FILE(TEMPDFT2) TOFILE(&LIBRARY/DBGDFTD2)
  CRTBNDRPG  PGM(&LIBRARY/DBG020R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG030R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG010R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG015R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG041R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG005R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG006R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/SETHLPTXT) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG100R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG101R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG102R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG103R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG104R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
  CRTBNDRPG  PGM(&LIBRARY/DBG105R4) +
               SRCFILE(&SRCLIB/QRPGLESRC) DFTACTGRP(*YES)
/* DATA AREAS */
  CRTDTAARA  DTAARA(&LIBRARY/DBGDFTD1) TYPE(*CHAR) LEN(20) +
               VALUE('DBGDFTH1  DBGDFTK1')
  CRTDTAARA  DTAARA(&LIBRARY/DBGOLDD1) TYPE(*CHAR) LEN(20) +
               VALUE('DBGOLDH1  DBGOLDK1')
  CRTDTAARA  DTAARA(&LIBRARY/DBGSQLD1) TYPE(*CHAR) LEN(20) +
               VALUE('DBGSQLH1  DBGSQLK1')
  CRTDTAARA  DTAARA(&LIBRARY/DBGCOMP) TYPE(*CHAR) LEN(40) +
               VALUE('Your company name in *DTAARA DBGCOMP')
/* QM QUERY */
  CRTQMQRY   QMQRY(&LIBRARY/DBG102QM) +
               SRCFILE(&SRCLIB/QQMQRYSRC)
/* UIM PANEL GROUPS */
  CRTPNLGRP  PNLGRP(&LIBRARY/DBG020PG) +
               SRCFILE(&SRCLIB/QPNLSRC)
  CRTPNLGRP  PNLGRP(&LIBRARY/DBG030PG) +
               SRCFILE(&SRCLIB/QPNLSRC)
/* MESSAGE FILE */
  CRTMSGF    MSGF(&LIBRARY/DBGMSGF) TEXT('DBG Utilities')

  ADDMSGD MSGID(GSM0300) MSGF(DBGMSGF) MSG('Move the cursor to +
               the desired location & press F7 to complete the copy.') +
               SEV(00) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0301) MSGF(DBGMSGF) MSG('Document &1 "&2" +
               printed.') SEV(00) FMT((*CHAR   10) (*CHAR   50)) +
               DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0302) MSGF(DBGMSGF) MSG('Move the cursor to +
               the desired location & press F5 to complete the move.') +
               SEV(00) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0303) MSGF(DBGMSGF) MSG('Move the cursor to +
               the desired location & press F9 to complete the overlay.') +
               SEV(00) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0304) MSGF(DBGMSGF) MSG('The document &1 +
               already exists.') SEV(00) FMT((*CHAR   10)) DMPLST(*JOB) +
               ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0305) MSGF(DBGMSGF) MSG('A document name is +
               required') SEV(00) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) +
               CCSID(65535)

  ADDMSGD MSGID(GSM0306) MSGF(DBGMSGF) MSG('Document &1 is +
               locked. Edit/Delete is not available for locked documents.') +
               SEV(00) FMT((*CHAR   10)) DMPLST(*JOB) ALROPT(*NO) +
               LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0307) MSGF(DBGMSGF) MSG('Move the cursor to +
               the other end of the block to be wrapped, and press F11.') +
               SEV(00) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(GSM0308) MSGF(DBGMSGF) MSG('&1 not found. Press +
               F16 to search from the beginning.') SEV(00) FMT((*CHAR +
               25)) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)


  ADDMSGD MSGID(MIT0065) MSGF(DBGMSGF) MSG('Unable to create &1, +
               type &2 in library &3. Review joblog.') SEV(00) FMT((*CHAR +
               10) (*CHAR   10) (*CHAR   10)) DMPLST(*JOB) ALROPT(*NO) +
               LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0071) MSGF(DBGMSGF) MSG('The link &1 &2 &3 +
               does not exist.') SEV(00) FMT((*CHAR   10) (*CHAR   10) +
               (*CHAR    3)) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) +
               CCSID(65535)

  ADDMSGD MSGID(MIT0072) MSGF(DBGMSGF) MSG('Script &1 does not +
               exist') SEV(00) FMT((*CHAR   10)) DMPLST(*JOB) ALROPT(*NO) +
               LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0073) MSGF(DBGMSGF) MSG('Library &1 must be +
               of type *TEST') SEV(00) FMT((*CHAR   10)) DMPLST(*JOB) +
               ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0074) MSGF(DBGMSGF) MSG('Target file not +
               defined') SEV(00) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) +
               CCSID(65535)

  ADDMSGD MSGID(MIT0075) MSGF(DBGMSGF) MSG('Script &1 already +
               exists') SEV(00) FMT((*CHAR   10)) DMPLST(*JOB) ALROPT(*NO) +
               LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0076) MSGF(DBGMSGF) MSG('Script &1 created.') +
               SEV(00) FMT((*CHAR   10)) DMPLST(*JOB) ALROPT(*NO) +
               LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0077) MSGF(DBGMSGF) MSG('Object &2 in Library +
               &3 not found.') SEV(40) FMT((*CHAR    4) (*CHAR   10) (*CHAR +
               10)) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0078) MSGF(DBGMSGF) MSG('Library &2 does not +
               exist.') SEV(40) FMT((*CHAR    4) (*CHAR   10)) DMPLST(*JOB) +
               ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0079) MSGF(DBGMSGF) MSG('Object &1 created in +
               Library &2.') SEV(00) FMT((*CHAR   10) (*CHAR   10)) +
               DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

  ADDMSGD MSGID(MIT0080) MSGF(DBGMSGF) MSG('Object &1 not +
               created in Library &2.') SECLVL('Object &1 was not created +
               in the target library &2. The cause is likely to be either, +
               authorities, or &1 may be a Join Logical. Join Logicals will +
               only be copied if ALL physical files required for the join +
               are present in library &2.') SEV(00) FMT((*CHAR   10) (*CHAR +
               10)) DMPLST(*JOB) ALROPT(*NO) LOGPRB(*NO) CCSID(65535)

/* LOAD HELP TEXT */
  OVRDBF     FILE(DBGDFTH1) TOFILE(&LIBRARY/DBGDFTH1)
  OVRDBF     FILE(DBGDFTD1) TOFILE(&LIBRARY/DBGDFTD1)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(DBG110CL)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('DBG110CL' +
               'DataBase Generation +
               commands                      ')

  DLTOVR     FILE(QTXTSRC)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(DBG100R4)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('DBG100R4' +
               'Edit DataBase Generation +
               scripts                  ')

  DLTOVR     FILE(QTXTSRC)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(DBG005R4)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('DBG005R4' +
               'Work with on-line +
               documents                       ')

  DLTOVR     FILE(QTXTSRC DBGDFTH1 DBGDFTD1)
  OVRDBF     FILE(DBGDFTH1) TOFILE(&LIBRARY/DBGSQLH1)
  OVRDBF     FILE(DBGDFTD1) TOFILE(&LIBRARY/DBGSQLD1)
  OVRDBF     FILE(QTXTSRC) TOFILE(&SRCLIB/QTXTSRC) +
               MBR(DBGSCPHELP)
  CALL       PGM(&LIBRARY/SETHLPTXT) PARM('*README' +
               '***** Read this overview on creating +
               scripts *****')

ENDPGM:
  RETURN
ENDPGM

-- MartinRowe - 24 Jun 2005
Topic revision: r1 - 24 Jun 2005 - 05:30:44 - MartinRowe
 
This site is powered by FoswikiCopyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400? Send feedback