Re: *ISO date in COBOL?

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.