Re: displaying *JOB format

["Booth Martin" <Booth@xxxxxxxxxxxx>]

I need it for an RPG program. I want to display the field with *JOB, and
display a hint beside it as to the layout, which can be any of the standard
formats from *USA to *ISO to *MDY 
 
 
 
---------------------------------------------------------
Booth Martin http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: Wednesday, September 24, 2003 7:35:02 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: displaying *JOB format
 
Peter Vidal wrote:
>
> Well, in my case (and based on what I understand you are saying) , I will
do it
> like this:
>
> DCL VAR(&DATFMT) TYPE(*CHAR) LEN(4)
> RTVJOBA DATFMT(&DATFMT)
>
> Let's say the result is *MDY, then you know is MM/DD/YY, etc.....
>
 
You should also retrieve DATSEP. There's only 4 possible job date
formats (*YMD, *MDY, *DMY and *JUL).