Re: Date problem

You can use %dec(act_Date : *YMD).  I think this is V5R3+ only though.

Adam

rpg400-l-bounces@xxxxxxxxxxxx wrote on 13/06/2006 10:30:11 AM:

THe problem now is that this act_date is needed to do a SETLL on a file 

so

that I can bring into the subfile only the past 60 days or so.

I need to convert this act_date back to a regular 6 00.

How about

act_date = %date(6psnDate:*ymd) - %days(60)

Don't remember if this works or not, but I thought I did something
similar.

On 6/13/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:

HI I have to compare 2 dates. From the file the format is 6 00 S,
yymmdd.

I need to comopare this date to the current date, less 60 days. So I
take
the system date, and I want to subtract 60 days from it. I put the
system
date into a field yymmdd.

I set my result field as:

Dact_Date         s               d

then :

c     yymmdd        Subdur    60:*Days      act_Date

but I am getting an error in compile:

RNF7052 30      1 Factor 1 and Factor 2 are not the same type; the
                  specification is ignored.

which is correct, in fact, act_date is considered as:

          ACT_DATE          D(10*USA/)

my question is, how to have act_date be the same type as a simple
numeric
field?

Thanks,
Steve

--
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.

--
Mike Wills
koldark@xxxxxxxxx
http://theriverbendpodcast.com

Code Monkey like Fritos
Code Monkey like Tab and Mountain Dew
Code Monkey very simple man
- Johnathan Coulton - Code Monkey
--
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.

#####################################################################################
Attention:
The above message and/or attachment(s) is private and confidential and is 
intended 
only for the people for which it is addressed. If you are not named in the 
address 
fields, ignore the contents and delete all the material. Thank you. Have a nice 
day.

For more information on email virus scanning, security and content
management, please contact administrator@xxxxxxxxxxxx
#####################################################################################