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!