You are here: DBG/400>DBG400 Web>SourceCodeList>ClSource>ClMAKEDBG (24 Jun 2005, MartinRowe)EditAttach
/* ************************************************************************** */
/* 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 Edit | Attach | Print version | History: r1 | Backlinks | View wiki text | Edit wiki text | More topic actions
Topic revision: r1 - 24 Jun 2005 - 05:30:44 - MartinRowe
Site Map
DBG400
Copyright © 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