RE: Convert *JOB date alpha to YYMMDD numeric in one EVAL

["Bob cozzi" <cozzi@xxxxxxxxx>]

The MOVE opcode allows *JOBRUN in Factor 1 so that when you move a value
from a numeric field into a date field, that original value is in the same
format as the job running the program. The target date's format is
irrelevant to the MOVE opcode. Of course if you want to move the value from
one numeric field to another numeric fields, then it is NOT a date field,
and hence none of the date stuff works with it.
However you can nest %DATE and %CHAR to a point (if you're on V5R1 and
perhaps 5.2) where you might be able to do what you want to do.


Bob Cozzi
Cozzi Consulting
www.rpgiv.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of G Armour
Sent: Wednesday, October 01, 2003 4:47 PM
To: RPG400-L@xxxxxxxxxxxx
Subject: Convert *JOB date alpha to YYMMDD numeric in one EVAL

Esteemed Listers,

Given variables:
  JobDate:  6-character alpha always guaranteed to contain a valid *JOB date
  YYMMDD#:  6-digit numeric

Is there a way to move JobDate into YYMMDD# in one EVAL, converting it from
the *JOB
date format to yymmdd format along the way?  The sticky point is that I
won't know
at compile time whether *JOB date format is mdy, ymd, etc.

I'm thinking maybe nested date BIFs of some sort, but I'm not familiar
enough with
them to get a handle on it.

TIA, GA

__________________________________
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
http://shopping.yahoo.com
_______________________________________________
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.