message: 9
date: Thu, 28 Feb 2008 10:12:04 -0600
from: "Kevin Bucknum" <Kevin@xxxxxxxxxxxxxxxxxxx>
subject: Re: [WDSCI-L] Setting up a compile in WDSC...Another try
I haven't had to use a custom compile in a while as we moved to ACMS for
change management a while back, but I dug out one, and with playing
around this is the minimum setup that I've been able to get working:
Command in WDSC: KEVIN/WDSCCOMP PGM(&N) SRCLIB(&L) SRCFILE(&F) /*
*EVENTF SRCMBR(&N) */
Command on the iSeries:
CMD PROMPT('WDSC Compile')
PARM KWD(PGM) TYPE(*CHAR) LEN(10) MIN(1) +
PROMPT('Program:')
PARM KWD(SRCLIB) TYPE(*CHAR) LEN(10) MIN(1) +
PROMPT('Source Lib:')
PARM KWD(SRCFILE) TYPE(*CHAR) LEN(10) MIN(1) +
PROMPT('Source File:')
Cl that processes the command.
PGM PARM(&PGM &SRCLIB &SRCFILE)
DCL VAR(&PGM) TYPE(*CHAR) LEN(10)
DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10)
/* SIMPLE COMPILE EXAMPLE */
CHGCURLIB CURLIB(KEVIN)
CRTRPGPGM PGM(KEVIN/&PGM) SRCFILE(&SRCLIB/&SRCFILE) +
OPTION(*SRCDBG)
MONMSG MSGID(CPF0000)
CHGDTAARA DTAARA(*LDA (1 10)) VALUE('KEVIN ')
CHGDTAARA DTAARA(*LDA (11 10)) VALUE(&PGM)
ENDPGM
Kevin,
I really appreciate you trying this for me. I chopped my CL program down
even more and everything is pretty much exactly like yours. The only
differences I see is that I need a MONMSG for LBL9001, I set the output
library and I am compiling Cobol. I am wondering if there is something set
up differently just in our shop. Either that or it is a Cobol issue. Even
though WDSC includes Cobol as a supported language, I have found numerous
little things that don't work. I was trying to follow along in Cobol as
Susan Gantner was giving her webcast the other day. Many functions did not
work in Cobol...eg. BLOCKING, Content Assist, Outline contents.
Here is my WDSC command:
IPRU56A/WDCBLCOMP PGM(&N) SRCLIB(&L) SRCFILE(&F) /* *EVENTF SRCMBR(&N)
*/
Here is my CL program:
PGM PARM(&PGM &SRCLIB &SRCFILE &OBJLIB)
DCL VAR(&PGM) TYPE(*CHAR) LEN(08)
DCL VAR(&SRCFILE) TYPE(*CHAR) LEN(10)
DCL VAR(&SRCLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&OBJLIB) TYPE(*CHAR) LEN(10)
IF COND((&OBJLIB) = ' ') THEN(DO)
CHGVAR VAR(&OBJLIB) VALUE(&SRCLIB)
CHGVAR VAR(%SUBSTRING(&OBJLIB 4 1)) VALUE(O)
ENDDO
CHGCURLIB CURLIB(&OBJLIB)
CRTCBLPGM PGM(&OBJLIB/&PGM) SRCFILE(&SRCLIB/SRCE) +
OPTION(*SRCDBG)
MONMSG MSGID(CPF0000 LBL9001)
CHGDTAARA DTAARA(*LDA (1 10)) VALUE(&OBJLIB)
CHGDTAARA DTAARA(*LDA (11 10)) VALUE(&PGM)
ENDPGM
As I mentioned earlier, the supplied CRTCBLPGM does return the error list
yet my compile command will not.
I really appreciate the ideas I have been given so far. Any other
suggestions?
Rod
Please consider the environment before printing this email.
This message, including any attached documents, is intended for the
addressees only. It may contain information that is confidential,
privileged and/or exempt from disclosure. No rights to privilege or
confidentiality have been waived. Any unauthorized use or disclosure is
prohibited. If you have received this message in error, please reply to the
sender by e-mail and delete or destroy all copies of this message.
______________________________________________________
Avant d'imprimer ce courriel, pensez à l'environnement.
Ce message, incluant tous les documents joints, est à l'intention des
destinataires visés seulement. Il peut contenir des renseignements
confidentiels, protégés et/ou ne pouvant pas être divulgués. Aucune
renonciation n'est faite quant à sa nature confidentielle et privilégiée.
Par conséquent, toute diffusion ou utilisation non autorisée est
strictement interdite. Si vous avez reçu ce message par erreur, veuillez
en aviser immédiatement l'expéditeur par retour de courriel et en détruire
toutes les copies existantes.
midrange.com
