Re: PDM option that submits customized compile

This is a little CL I wrote a long time ago to do
printouts of compile listings, no object create.
It does NOT handle modules or bindings.
Carels suggestion is the way to go.
It is very simple and it probably does not even do
what you want. Still HIH.
PDM OPTION
 LR    SBMJOB CMD(CALL PGM(LSTRPG) PARM(&N &L &F &S 'N')) JOB(&N)

CL PGM


PGM  (&N &L &F &S &I)

/* GENERATE RPG COMPILE LISTINGS */

DCL &N *CHAR 10
DCL &L *CHAR 10
DCL &F *CHAR 10
DCL &S *CHAR 10
DCL &I *CHAR 1
DCL &INDT *CHAR 5 '*NONE'
DCL &OUTQ *CHAR 10

MONMSG     MSGID(CPF0000 RPG0000 SQL0000) EXEC(GOTO +
                          CMDLBL(END))




RTVDTAARA LSTRPG &OUTQ

IF (&I *EQ 'Y') (CHGVAR &INDT '¦    ')

OVRPRTF    FILE(QSYSPRT) PAGESIZE(132) OVRFLW(126)  +
           OUTQ(&OUTQ)

IF (&S  *EQ 'RPGLE') +
(CRTBNDRPG  PGM(QTEMP/&N) SRCFILE(&L/&F) OPTION(*XREF +
            *NOGEN) DBGVIEW(*ALL) INDENT(&INDT))

IF (&S *EQ 'RPG' *OR &S *EQ 'RPG38') +
(CRTRPGPGM  PGM(QTEMP/&N) SRCFILE(&L/&F) OPTION(*NOGEN) INDENT(&INDT))

IF (&S *EQ 'RPT' *OR &S *EQ 'RPT38') +
(CRTRPTPGM PGM(QTEMP/&N) SRCFILE(&L/&F) OPTION(*NOGEN) INDENT(&INDT))

IF (&S *EQ 'SQLRPG') THEN(CRTSQLRPG +
           PGM(QTEMP/&N) SRCFILE(&L/&F)  +
      OPTION(*SRC *XREF *GEN *LSTDBG *SEQSRC))

IF (&S *EQ 'SQLRPGLE') +
  THEN(CRTSQLRPGI  OBJ(QTEMP/&N) SRCFILE(&L/&F) +
      OPTION(*XREF *GEN  *SEQSRC) DBGVIEW(*SOURCE))

END: ENDPGM

Frank Kolmann

******* reply seperator **********




message: 8
date: Thu, 20 Feb 2003 22:29:25 +0100
from: "Carel Teijgeler" <coteijgeler@xxxxxxxxx>
subject: Re: PDM option that submits customized compile

Dan,

write your own command that wrap the CRTMOD and CRTPGM commands in one CPP.
Use that command as a user defined option in PDM.

The only thing you have to figure out is to tell the CRTPGM what modules,
*SRVPGM, binding directories/sources should be used to create the final
executable.

Just my option.

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR  ***********

On 20-2-03 at 12:43 Dan wrote:

>I know this has been discussed before, but a couple of searches turned up
>nothing in the archives.
> (So feel free to either point me to specific archive posts or the search
>terms you used.)
>