I have a Rexx date function that I got years ago from the TSO-REXX
listserv. It has an "edit" option. Contact me off-list if you want it.
Regards,
John K
<snip>
Option 9:
Edits the supplied date. Returns '1' if date supplied in parm1 is
valid; returns 'ERROR' if date is invalid.
parm1 = null (current date) or mm/dd/yy or mm/dd/yyyy
parm2 = not used
e.g. RXDATE(9,'a1/01/2000') returns ===> ERROR
RXDATE(9,'01/33/1985') returns ===> ERROR (33 not valid)
RXDATE(9,'07/04/1776') returns ===> 1
RXDATE(9,'02/29/85') returns ===> ERROR (not leap year)
RXDATE(9,'02/29/84') returns ===> 1
</snip>
Re: Control date format using Rexx
CUNY Yann
to:
IBM-MAIN
04/26/2011 09:32 AM
Sent by:
IBM Mainframe Discussion List <[email protected]>
Please respond to IBM Mainframe Discussion List
I have a dataset with a lot of date, in YYMMDD Format.
I just want to verify that the dates indicated in the dataset are real :
120229 => OK
100229 => KO
101328 => KO
Etc.
-----Message d'origine-----
De : IBM Mainframe Discussion List [mailto:[email protected]] De la
part de McKown, John
Envoyé : mardi 26 avril 2011 17:25
À : [email protected]
Objet : Re: Control date format using Rexx
> -----Original Message-----
> From: IBM Mainframe Discussion List
> [mailto:[email protected]] On Behalf Of CUNY Yann
> Sent: Tuesday, April 26, 2011 10:17 AM
> To: [email protected]
> Subject: Control date format using Rexx
>
> Hi all,
>
> I would like to control a date format in a dataset with
REXX. I know
> it is possible to convert ... but I just want to make a control.
>
> Thanks in advance.
>
> Yann
I don't understand. What does "make a control" mean to you? Perhaps an
example of the output you want would help. If you need today's date in
European format: dd/mm/yy, then
TODAY=DATE('E')
would do it.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4A390/4.3.16
--
John McKown
Systems Engineer IV
IT
Administrative Services Group
HealthMarkets(r)
9151 Boulevard 26 * N. Richland Hills * TX 76010
(817) 255-3225 phone *
[email protected] * www.HealthMarkets.com
Confidentiality Notice: This e-mail message may contain confidential or
proprietary information. If you are not the intended recipient, please
contact the sender by reply e-mail and destroy all copies of the original
message. HealthMarkets(r) is the brand name for products underwritten and
issued by the insurance subsidiaries of HealthMarkets, Inc. -The
Chesapeake Life Insurance Company(r), Mid-West National Life Insurance
Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
to [email protected] with the message: GET IBM-MAIN INFO Search the
archives at http://bama.ua.edu/archives/ibm-main.html
Ce message est confidentiel; Son contenu ne represente en aucun cas
un engagement de la part de AXA Technology Services (AXA Tech) sous
reserve de tout accord conclu par ecrit entre vous et AXA Technology
Services (AXA Tech).Toute publication, utilisation ou diffusion,meme
partielle, doit etre autorisee prealablement. Si vous n'etes pas
destinataire de ce message, merci d'en avertir immediatement l'expe-
diteur.
This message is confidential; its contents do not constitute a
commitment by AXA Technology Services (AXA Tech) except where provi-
ded for in a written agreement between you and AXA Technology
Services (AXA Tech). Any unauthorised disclosure, use or dissemina-
tion, either whole or partial, is prohibited. If you are not the
intended recipient of the message, please notify the sender imme-
diately.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
