|
Try this D CDATE S D DATFMT(*ISO) D FLDDATE S 8 0 /FREE FLDDATE = (%SUBDT(CDATE:*Y) * 10000) + (%SUBDT(CDATE:*M) * 100) + %SUBDT(CDATE:*D); /END-FREE HTH -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Michael_Schutte@xxxxxxxxxxxx Sent: Wednesday, April 19, 2006 12:57 PM To: RPG programming on the AS400 / iSeries Subject: Re: Date Type -to- Numeric Then I'm afraid that you'll either have to use the DS or use positional CSPECS. D NewIso S D DatFmt(*ISO) C *MDY Move Udate NewIso C *ISO Move NewIso $TriSeqD Michael Schutte "Captain Jerry" <captainjerry@gma il.com> To Sent by: "RPG programming on the AS400 / rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx> midrange.com cc Subject 04/19/2006 12:52 Re: Date Type -to- Numeric PM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> > Good try... > > %Int(%Char(%Date():*ISO0)); > *RNF0325 30 1 The parameter for %INT or %INTH is not valid. > > > Michael Schutte > > > > > "Captain Jerry" > <captainjerry@gma > il.com> To > Sent by: "RPG programming on the AS400 / > rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx> > midrange.com cc > > Subject > 04/19/2006 12:26 Re: Date Type -to- Numeric > PM > > > Please respond to > RPG programming > on the AS400 / > iSeries > <rpg400-l@midrang > e.com> > > > > > > > That would have been smart of me to include! > > V5R1 > > Will either your R2 or R3 option work? (I'll be trying while I wait for a > response ~ Thanks... > > > On 4/19/06, Michael_Schutte@xxxxxxxxxxxx <Michael_Schutte@xxxxxxxxxxxx> > wrote: > > > > What version are you on? > > > > V5R2 > > > > %Int(%Char(%Date():*ISO0)); > > > > V5R3 > > > > %Dec(%Date():*ISO); > > > > > > Michael Schutte > > > > > > > > > > "Captain Jerry" > > <captainjerry@gma > > il.com > > To > > Sent by: "RPG programming on the AS400 / > > rpg400-l-bounces@ iSeries" <rpg400-l@xxxxxxxxxxxx> > > midrange.com > cc > > > > > Subject > > 04/19/2006 12:04 Date Type -to- Numeric > > PM > > > > > > Please respond to > > RPG programming > > on the AS400 / > > iSeries > > <rpg400-l@midrang > > e.com> > > > > > > > > > > > > > > Hi RPG'ers, > > > > I'm writing a simple utility to fix some data in a file, and brushing up > > on > > my /Free format coding as well. > > > > I can't seem to figure out how to get a Date Type field (*System Date) > > into > > our standard way of storing dates, which is Numeric 8,0 YYYYMMDD. > > > > Is there an easy way to do this without jumping through Data Structure > > hoops, or breaking out of /Free to use Move? > > > > Help! and Thanks, > > > > //Jerry/ > > -- > > 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. > > > > > -- > 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. > > -- 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.
As an Amazon Associate we earn from qualifying purchases.
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.