Re: *ISO date in COBOL?

A little more info:
Portion of calling CL:
/* OVERRIDE INPUT FILES */
OVRDBF FILE(EVENTS) TOFILE(JE027006)


DSPFFD for the date field in Je027006:
BEGIN_DATE DATE 10 10 39 Both
Field text . . . . . . . . . . . . . . . : Begin Date field CCYY-MM-DD
Date Format . . . . . . . . . . . . . . . : *ISO
Coded Character Set Identifier . . . . . : 37


JE027006 is logical for physical file JE027000
The date field in record number 4294967295 is: 2013-05-20


The error message:


Message ID . . . . . . : CPF5035

Date sent . . . . . . : 11/29/13 Time sent . . . . . . : 09:37:05



Message . . . . : Data mapping error on member JE027000


Cause . . . . . : A data mapping error occurred on field BEGIN_DATE in

record number 4294967295, record format JE027000, member number 1, in
member
JE027000 file JE027000 in library GYJEMS60CC, because of error code 17.
The
error code meanings follow:


17 -- The format of the data in a date, time, or timestamp field is not
valid.


The SELECT statement (the calling CL does an override for this):
* INPUT EVENTS FILE
SELECT EVENTS-IN ASSIGN TO DATABASE-EVENTS
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS EXTERNALLY-DESCRIBED-KEY
WITH DUPLICATES.

The FD for it:
FD EVENTS-IN.
01 MCEVNT-RECORD. COPY DDSR-JE027006 OF EVENTS.


This is the compile statement being used:
/* OVERRIDE INPUT FILES */
OVRDBF FILE(EVENTS) TOFILE(JE027006)
/* COMPILE EXTRACTION PROGRAM FOR COUNTY CLERK */
CRTBNDCBL PGM(IDOCKETGY/CCEXTRACT) +
SRCFILE(IDOCKETGY/QCBLSRC) SRCMBR(*PGM) +
OPTION(*SOURCE) CVTOPT(*DATETIME *DATE) +
DBGVIEW(*ALL)



Thanks for any insight for this,
TomH


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Wednesday, November 27, 2013 5:59 PM
To: COBOL Programming on the IBM i (AS/400 and iSeries)
Subject: Re: [COBOL400-L] *ISO date in COBOL?

Need to see more of the code then Tom - the SELECT clause and FD etc. as a
minimum.

Also what error code are you actually seeing?


On 2013-11-27, at 6:55 PM, Tom Hightower <tomh@xxxxxxxxxxx> wrote:

The programmer working on it says that she's doing the compile like so:

CRTBNDCBL PGM(IDOCKETGY/CCEXTRACT) +
SRCFILE(IDOCKETGY/QCBLSRC) SRCMBR(*PGM) +
OPTION(*SOURCE) CVTOPT(*DATETIME *DATE) +
DBGVIEW(*ALL)

TomH



-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of Jon Paris
Sent: Wednesday, November 27, 2013 5:07 PM
To: COBOL Programming on the IBM i (AS/400 and iSeries)
Subject: Re: [COBOL400-L] *ISO date in COBOL?

Are you specifying CVTOPT(*DATE) on the compile? That will allow dates
to come into the program correctly.


On 2013-11-27, at 5:54 PM, "Tom Hightower" <tomh@xxxxxxxxxxx> wrote:

Hi all. I've had a request to debug this issue and am having a bit
of a time at it. Here's my issue:

Sample PF TestPF:
BOA, char, 20 byes
FYA, char, 5 bytes
NBR, packed, 7.0
DATE, date, 10 (*ISO)

Sample LF TestLF
Key fields:
BOA
DATE

Many records have DATE field values of '0001-01-01' (I assume that's
*loval)

The COBOL program is trying to use LF, but is getting a key mapping
error on the logical. How do I get past that key mapping error in
the program? I'm happy to supply any more info as needed.

TomH

--
This is the COBOL Programming on the IBM i (AS/400 and iSeries)
(COBOL400-L) mailing list To post a message email:
COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list
options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/cobol400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com




--
This is the COBOL Programming on the IBM i (AS/400 and iSeries)
(COBOL400-L) mailing list To post a message email:
COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list
options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at http://archive.midrange.com/cobol400-l.

--
This is the COBOL Programming on the IBM i (AS/400 and iSeries)
(COBOL400-L) mailing list To post a message email:
COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list
options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at
http://archive.midrange.com/cobol400-l.

Jon Paris

www.partner400.com
www.SystemiDeveloper.com




--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L)
mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at http://archive.midrange.com/cobol400-l.