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

[Barbara Morris <bmorris@xxxxxxxxxx>]

G Armour wrote:
> 
> 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.
> 

Prior to v5r1, you need two MOVEs, with tempdate defined as a D type:

    c   *jobrun   move Jobdate    tempdate
    c   *ymd      move tempdate   YYMMDD#