RE: Having problems with CL V5R4 DCL STG(*DEFINED) DEFVAR

Hi again,

We put PTF SI34814 in and no change: &SAVFLIB is still wrong.

Just want to check if what I'm doing is okay. I actually have 3 parms from the command to the cpp and the first parm is variable in length.

PGM PARM(&OBJLIST &SAVF &CLEAR)

/* Program variable definitions. */

DCL VAR(&OBJLIST) TYPE(*CHAR) LEN(1002) /* 50 +
obj/libs + 2 for counter */
DCL VAR(&SAVF) TYPE(*CHAR) LEN(20) /* name & +
library */
DCL VAR(&CLEAR) TYPE(*CHAR) LEN(4) /* *YES, *NO */

DCL VAR(&OBJCOUNT) TYPE(*INT) STG(*DEFINED) +
LEN(2) DEFVAR(&OBJLIST)
DCL VAR(&LOOPCOUNT) TYPE(*INT) LEN(2)
DCL VAR(&OBJPTR) TYPE(*PTR)
DCL VAR(&OBJ) TYPE(*CHAR) STG(*BASED) LEN(20) +
BASPTR(&OBJPTR)
DCL VAR(&OBJNAME) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&OBJ 1)
DCL VAR(&OBJLIB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&OBJ 11)
DCL VAR(&SAVFNAME) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&SAVF 1)
DCL VAR(&SAVFLIB) TYPE(*CHAR) STG(*DEFINED) +
LEN(10) DEFVAR(&SAVF 11)

DCL VAR(&ABENDING) TYPE(*LGL)
DCL VAR(&MSGID) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGDTA) TYPE(*CHAR) LEN(256)
DCL VAR(&MSGF) TYPE(*CHAR) LEN(10)
DCL VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&RTNTYPE) TYPE(*CHAR) LEN(2)

MONMSG MSGID(CPF0000 MCH0000 RNX0000) EXEC(GOTO +
CMDLBL(ERROR))

/* Check that all files in list exist. */
CHGVAR VAR(&OBJPTR) VALUE(%ADDR(&OBJLIST))
CHGVAR VAR(%OFS(&OBJPTR)) VALUE(%OFS(&OBJPTR) + 2)

DOFOR VAR(&LOOPCOUNT) FROM(1) TO(&OBJCOUNT)
CHKOBJ OBJ(&OBJLIB/&OBJNAME) OBJTYPE(*FILE)
IF COND(&LOOPCOUNT *NE &OBJCOUNT) THEN(DO)
CHGVAR VAR(%OFS(&OBJPTR)) VALUE(%OFS(&OBJPTR) + 20)
ENDDO /* loopcount <> objcount */
ENDDO /* dofor */

/* Check the save file exists. */
CHKOBJ OBJ(&SAVFLIB/&SAVFNAME) OBJTYPE(*FILE)

MONMSG MSGID(CPF9801) EXEC(DO) /* file doesn't +
exist */
SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG) MSGDTA('Save +
file does not exist. Specify a save file +
that exists.') MSGTYPE(*ESCAPE)
ENDDO /* cpf9801 */

/* Clear the save file if requested. */
IF COND(&CLEAR = *YES) THEN(DO)
CLRSAVF FILE(&SAVFLIB/&SAVFNAME)
ENDDO

<snip>

Tks, Glenn Gundermann

To learn more about Kuehne + Nagel Ltd, please visit our website at: www.kuehne-nagel.com<http://www.kuehne-nagel.com> For the Kuehne + Nagel email disclaimer, visit: http://www.kn-portal.com/material/Electronic_Email_Disclaimer_English_French.pdf



Visitez le site internet de Kuehne + Nagel Lt?e: www.kuehne-nagel.com<http://www.kuehne-nagel.com> Notre d?charge de responsabilit? est disponible comme suit: http://www.kn-portal.com/material/Electronic_Email_Disclaimer_English_French.pdf