× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




I had asked this question before but I believe part of the problem was due
to too many call layers. I have set up a new "chopped down" version of a
compile procedure for Cobol programs. The reason I want to call a procedure
instead of using the supplied CRTCBLPGM is because the input library sets
the library list so the copybooks will be found according to the correct
library list. Also, the compiled object is placed in a different library.
eg. If person is compiling out of ISPS56A, the CL program will put this
library plus a couple of other default libraries in the library list, sets
the output library for the PGM parameter to be ISPO56A and then runs
CRTCBLPGM.

When I run this, the compile is run but the errors are not returned to
iSeries Error List. I have looked at all comments and references from last
time which includes putting /* OPTION(*EVENTF) SRCMBR(&N) */ at end of
command. There was another listing that said to use /* *EVENTF SRCMBR(&N)
*/ which I tried also. The entire command is WDCBLCOMP PGM(&N) SRCLIB(&L)
SRCFILE(&F) /* *EVENTF SRCMBR(&N) */. I set up a command call WDCBLCOMP
as well as a CL program. The CL program calls an in-house routine to set
the library list and the output library and then runs CRTCBLPGM as
following:

CRTCBLPGM PGM(&OBJLIB/&PGM) SRCFILE(&SRCLIB/SRCE) OPTION(*SOURCE *LSTDBG
*APOST *XREF *MAP).

I also went into preferences for iSeries Command Execution and unchecked
"Compile in batch".
I read some info written by Bruce Guetzkow and Kushal Munir regarding
running a command. It says you have to write the events file location to
the local data area. How do I do that? And where would I find the data
area that is used by my WDSC session? I tried adding following two commands
after the CRTBLPGM call but nothing happened:
CHGDTAARA DTAARA(*LDA (1 10)) VALUE(&OBJLIB)
CHGDTAARA DTAARA(*LDA (11 10)) VALUE(&PGM)

Thanks in advance,
Rod Verity

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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.