RE: Why initial value does not match data type of field?

it looks like your definition of nDur should be 10I 0 Const (4 bytes)

The command definition of *INT4 means an integer 4 bytes long.

Hope this helps

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Cesar Mendoza
Sent: Monday, February 28, 2005 3:23 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Why initial value does not match data type of field?


   Hello!

   The following is the source for the ADDDUR CL command:

   Opc       Miembro  Tipo Texto

            TESTADDUR CLP  Example Using ADDDUR

   COMPILED WITH: ALLOW(*IPGM *BPGM)

   0001.00 PGM

   0002.00 DCL VAR(&MYDATE) TYPE(*CHAR) LEN(6)

   0003.00 DCL VAR(&TOMORROW) TYPE(*CHAR) LEN(6)

   0004.00 RTVJOBA DATE(&MYDATE)

   0005.00 ADDDUR DATE(&MYDATE) DURATION(-4) RTNDATE(&TOMORROW)

   0006.00 SNDMSG MSG('DATE ---> : ' *CAT &MYDATE ) TOUSR(D9045)

   0007.00 SNDMSG MSG('DATE DURATION: ' *CAT &TOMORROW) TOUSR(D9045)

   0008.00

   0009.00 ENDPGM

   ****************** Fin de datos ***********************************

   The following is the source for the ADDDUR CMD command:

   Opc Miembro Tipo Texto

       ADDDUR  CMD  COMMAND FOR ADD A DURATION TO A DATE

   0019.00 ADDDUR: CMD PROMPT('ADD A DURATION TO A DATE')

   0020.00

   0021.00 PARM KWD(DATE) TYPE(*DATE) DFT(*JOBDATE) +

   0022.00 SPCVAL((*TODAY 000000) (*SYSDATE 000000) +

   0023.00 (*TOMORROW 000001) (*YESTERDAY 000002) +

   0024.00 (*JOBDATE 000003) (*JOBRUN 000003) +

   0025.00 (*SBMDATE 000004)) PROMPT('BASE DATE')

   0026.00

   0027.00 PARM KWD(DURATION) TYPE(*INT4) DFT(1) +

   0028.00 LISTDSPL(*INT4) PROMPT('NUMBER OF DAYS TO +

   0029.00 ADD')

   0030.00

   0031.00 /* RETURNED DATE IS ALWAYS IN JOB DATE FORMAT */

   0032.00 PARM KWD(RTNDATE) TYPE(*CHAR) LEN(6) RTNVAL(*YES) +

   0033.00 CHOICE('RTN FORMAT: JOB DATE FORMAT') +

   0034.00 PROMPT('CL VAR. RETURN DATE')

   0035.00

   ****************** Fin de datos **********************************

   The following is part of the source ILE RPG for the ADDDUR PGM:

   Opc Miembro Tipo  Texto

       ADDDUR  RPGLE ADDDUR

   0006.00 D ADDDUR PR

   0007.00 D inDate 7A Const

   0008.00 D nDur 5I 0 Const

   0009.00 D rtnDate 6A

   0010.00

   0011.00 D ADDDUR PI

   0012.00 D inDate 7A Const

   0013.00 D nDur 5I 0 Const

   0014.00 D rtnDate 6A

   0015.00

   0016.00 D Today S D Inz(*SYS)

   0017.00 D JOBDate S D Inz(*JOB)

   0018.00 D Job S 26A

   0019.00 D IntrnlJobID S 16A

   0020.00 D SBMDate S 8-a

   Visualizar Fuente Modulo

   Programa: ADDDUR Biblioteca: ESPD62S Modulo: ADDDUR

   1 H OPTION(*NODEBUGIO:*SRCSTMT)

   2 H DFTACTGRP(*NO)

   **

   **

   5

   6 D ADDDUR PR

   7 D inDate 7A Const

   8 D nDur 5I 0 Const

   9 D rtnDate 6A

   10

   11 D ADDDUR PI

   12 D inDate 7A Const

   13 D nDur 5I 0 Const

   14 D rtnDate 6A

   15

   Mas...

   Depuracion

   INDATE = '1050228'

   Visualizar Fuente Modulo

   Programa: ADDDUR Biblioteca: ESPD62S Modulo: ADDDUR

   1 H OPTION(*NODEBUGIO:*SRCSTMT)

   2 H DFTACTGRP(*NO)

   3 **

   4 **

   5

   6 D ADDDUR PR

   7 D inDate 7A Const

   8 D nDur 5I 0 Const

   9 D rtnDate 6A

   10

   11 D ADDDUR PI

   12 D inDate 7A Const

   13 D nDur 5I 0 Const

   14 D rtnDate 6A

   15

   Mas...

   Depuracion

   NDUR = -1

   Why initial value (NDUR)does not match data type of field?

   Can you help me?

   Un abrazo cordial,
   Cesar A. Mendoza Gomez
   Calle Buen Retiro 216 Chalet 22 - Lima 33 - Peru
   Phone: +(511) 434-2024
   Mobile: +(511) 985-42410

     ----------------------------------------------------------------------

   Express yourself instantly with MSN Messenger! MSN Messenger Download
   today it's FREE!
-- 
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.