× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@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 thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 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.