|
midrange.com
for my own benefit i created an SQLRPG program that reads a file that has
DATEISO and when it reads the DATEISO it converts it... the DATEISO field
has 2003-03-04 and it is converted to 03/04/03..
Here is the Data VIA DFU
WORK WITH DATA IN A FILE Mode . . . . : CHANGE
Format . . . . : JITA File . . . . : JTLJITAX
COMPNY: 11 PARTNO: 090000 CABBV: AETNA
DABBV: AETNA MY: RELNO: 54 DATEISO:
2003-03-04
ISSDUN: DSTDUN:
SUPPID: DOCK: CSHIP1:
51227
CSHIP2: 49727 CSHIP3: 48227 CSHIP4: 46727 DATEISO:
2003-04-09
DATEISO: 2003-01-08 DATEISO: 2002-12-11 DATEISO: 2002-09-05 OLSQ1:
1500
OLSQ2: 1500 OLSQ3: 1500 OLSQ4: 1500 OEM: M
BOOKNO: 0000 HPLTCD: PKGCAL: FCUM:
HFAB: HFREL#: DATEISO: 0001-01-01 MCUM:
HMATL: HMREL#: DATEISO: 0001-01-01 SHIPTO:
99979
SOLDTO: 99979 CPARTN: 400014
CHRYSF: DEPOT: IZPRC#:
COMCOD: 001 BALOUT: 0 FINAL: PROD:
PKGQTY: 1500 WSCODE: PRCCDE: M CSRC:
MRP862: MRP830: X MRP850: X REP862: X
REP830: X REP850: X PRPRFG: CLR862:
CLR830: CLR850: X ANALY#:
And the Debug...
TSLMODS/MK200TS:2300 ISDB/400 More: -
PARTN='090000 '
@RLSDT='03/04/03 '
002300 C/EXEC SQL
002400 C+ FETCH NEXT FROM JTLJIT INTO :COMP, :PARTN, :@RLSDT
002500 C/END-EXEC
002600 C END
002700 C/EXEC SQL
002800 C+ CLOSE JTLJIT
002900 C/END-EXEC
003000 C SETON LR
Steven Fuller
Pullman Industries, Inc.
"Brunk, Kevin"
<KBrunk@xxxxxxxxxxx To: "System 21 Users"
<system21@xxxxxxxxxxxx>
m> cc:
Sent by: Subject: RE: [SYSTEM21]
ISO Dates
system21-bounces@mi
drange.com
11/21/2003 12:13 PM
Please respond to
System 21 Users
Glen,
You'll probably have more luck asking this on the RPG400-L list.
==Kevin
-----Original Message-----
From: glen.work [mailto:gkp1227@xxxxxxxxxxx]
Sent: Wednesday, November 19, 2003 1:01 PM
To: System 21 Users
Subject: [SYSTEM21] ISO Dates
Help!
Is there any way I can convert/access an ISO date field within an RPG III
program - the RPG III compiler is simply ignoring the field with message:
QRG7151 Severity 00 The record format contains DATE/TIME/TIMSTAMP
fields.........ignored.
One for you maybe Jeff!!
Glen
_______________________________________________
This is the System 21 Users (SYSTEM21) mailing list
To post a message email: SYSTEM21@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/system21
or email: SYSTEM21-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/system21.
**********************************************************************
CONFIDENTIALITY NOTICE: The information transmitted in this message is
intended only for the person or entity to which it is addressed and may
contain confidential and/or privileged material. Any review,
retransmission, dissemination or other use of this information by persons
or entities other than the intended recipient is prohibited. If you
received this in error, please contact the sender and destroy all copies of
this document. Thank you.
The Butler Company
**********************************************************************
_______________________________________________
This is the System 21 Users (SYSTEM21) mailing list
To post a message email: SYSTEM21@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/system21
or email: SYSTEM21-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/system21.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
