Re: convert *ISO to 8 digit w/o MOVE

[fkany@xxxxxxxxxxxxxxxxxx]

That worked good Mark.

Thanks,

Frank





MWalter@xxxxxxxxxxxxxxx@midrange.com on 03/15/2004 10:13:35 AM

Please respond to RPG programming on the AS400 / iSeries
       <rpg400-l@xxxxxxxxxxxx>

Sent by:    rpg400-l-bounces@xxxxxxxxxxxx


To:    RPG programming on the AS400/iSeries <rpg400-l@xxxxxxxxxxxx>
cc:

Subject:    Re: convert *ISO to 8 digit w/o MOVE



Free format like this.

fld80 = %int(%char(dateField:*iso0))

Thanks,

Mark

Mark D. Walter
Senior Programmer/Analyst
CCX, Inc.
mwalter@xxxxxxxxxx
http://www.ccxinc.com



                      fkany@averittexpre
                      ss.com                    To:
                      RPG400-L@xxxxxxxxxxxx
                      Sent by:                  cc:
                      rpg400-l-bounces@m        Subject:  convert *ISO to 8
                      digit w/o MOVE
                      idrange.com


                      03/15/2004 10:49
                      AM
                      Please respond to
                      RPG programming on
                      the AS400 /
                      iSeries







Hello,

Does anyone have an example of how to convert an *ISO date field to an 8,0
digit field without using the MOVE operation?

Thanks,

Frank


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.






_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.