You are here:
DBG/400
>
DBG400 Web
>
SourceCodeList
>
ClSource
>
ClMAKEDBGSPL
(24 Jun 2005,
MartinRowe
)
(raw view)
E
dit
A
ttach
<verbatim> /* ************************************************************************** */ /* 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 </verbatim> -- Main.MartinRowe - 24 Jun 2005
E
dit
|
A
ttach
|
P
rint version
|
H
istory
: r1
|
B
acklinks
|
V
iew topic
|
Edit
w
iki text
|
M
ore topic actions
Topic revision: r1 - 24 Jun 2005 - 05:31:34 -
MartinRowe
DBG400
Log In
DBG400 Web
Index
Search
Changes
Notifications
Statistics
Site Map
Downloads
Webs
DBG400
Jamaro
Main
Sandbox
Sandtub
System
Send a link to this page
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