Re: [SYSTEM21] ISO Dates

[steven_fuller@xxxxxxxxxxxxxx]

This is one of those strange compiler things.   If you can change the
program to be an SQLRPG program it picks up the DATEISO.   I am not sure on
the processing, have never tried,  but it does pick it up!

Here is a file detail of the compile with out the DATEISO field

A000000   INPUT  FIELDS FOR RECORD JITA FILE JTLJITAX FORMAT JITA.
A000000         JIT RELEASE HEADER RECORD
A000001                                           1   2 COMPNY
COMPANY NO
A000002                                           3   8 CABBV
CUSTOMER ABBREVIATION
A000003                                           9  23 PARTNO
OUR PART NUMBER
A000004                                          24  29 DABBV
DESTINATION ABBREVIATION
A000005                                          30  33 MY
MODEL YEAR
A000006                                          34  43 RELNO
RELEASE NUMBER
A000007                                          54  70 ISSDUN
ISSUING DUNS
A000008                                          71  87 DSTDUN
DESTINATION DUNS NUMBER
A000009                                          88 104 SUPPID
SUPPLIER ID
A000010                                         105 114 DOCK
DOCK OR BAY
A000011                                       P 115 1190CSHIP1
OUR CUM SHIPPED
A000012                                       P 120 1240CSHIP2
OUR CUM SHIPPED

And here it is with the SQLRPG

F000000   INPUT  FIELDS FOR RECORD JITA FILE JTLJITAX FORMAT JITA.
F000000         JIT RELEASE HEADER RECORD
F000001                                           1   2 COMPNY
COMPANY NO
F000002                                           3   8 CABBV
CUSTOMER ABBREVIATION
F000003                                           9  23 PARTNO
OUR PART NUMBER
F000004                                          24  29 DABBV
DESTINATION ABBREVIATION
F000005                                          30  33 MY
MODEL YEAR
F000006                                          34  43 RELNO
RELEASE NUMBER
F000007                                          44  53 RLSDTE
RELEASE DATE YYMMDD
                                EXTERNAL DATA TYPE DATE
F000008                                          54  70 ISSDUN
ISSUING DUNS
F000009                                          71  87 DSTDUN
DESTINATION DUNS NUMBER
F000010                                          88 104 SUPPID
SUPPLIER ID
F000011                                         105 114 DOCK
DOCK OR BAY
F000012                                       P 115 1190CSHIP1
OUR CUM SHIPPED
F000013                                       P 120 1240CSHIP2
OUR CUM SHIPPED




Steven Fuller
Pullman Industries, Inc.



                                                                                
                                                                    
                    "glen.work"                                                 
                                                                    
                    <gkp1227@xxxxxxxxxx        To:     "System 21 Users" 
<system21@xxxxxxxxxxxx>                                                    
                    m>                         cc:                              
                                                                    
                    Sent by:                   Subject:     [SYSTEM21]   ISO 
Dates                                                                  
                    system21-bounces@mi                                         
                                                                    
                    drange.com                                                  
                                                                    
                                                                                
                                                                    
                                                                                
                                                                    
                    11/19/2003 01:01 PM                                         
                                                                    
                    Please respond to                                           
                                                                    
                    System 21 Users                                             
                                                                    
                                                                                
                                                                    
                                                                                
                                                                    



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.