I try to validate the date field but the Indicator sets on for both valid and invalid. Please advice.
D datevalid S 8A inz('20131225')
D dateINVAlid S 8A inz('99999999')
test(DE) *ymd0 datevalid;
if %error() ;
dsply 'Error!' ;
C *YMD TEST(D) datevalid 44
C N44'valid' dsply
C *YMD TEST(D) dateINVAlid 55
C 55'INVALID' dsply
Free Guide: Managing storage for virtual environments
Complete a brief survey to get a complimentary 70-page whitepaper featuring the best methods and solutions for your virtual environment, as well as hypervisor-specific management advice from TechTarget experts. Don’t miss out on this exclusive content!
No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.
Your password has been sent to:email@example.com
To follow this tag...
Thanks! We'll email you when relevant content is added and updated.
Share this item with your network: