program
STRING*3 TESTCAT
DATE TESTDATE ("DDMMYYYY")
CAT VARS TESTCAT ("ONE","TWO")
SET TESTCAT("ONE") TESTDATE("15012008")
write "VALIDATE CATVAR = " [validate(-1,"TESTCAT","")]
write "VARPUT CATVAR = " [varput("TESTCAT","")]
write "CATVAR = " TESTCAT " (MISNUM " [misnum(TESTCAT)] ")" /
write "VALIDATE DATEVAR = " [validate(-1,"TESTDATE","")]
write "VARPUT DATEVAR = " [varput("TESTDATE","")]
write "DATEVAR = " TESTDATE " (MISNUM " [misnum(TESTDATE)] ")" /
end program
VALIDATE CATVAR = 2
VARPUT CATVAR = 3
CATVAR = * (MISNUM 0 )
VALIDATE DATEVAR = 2
VARPUT DATEVAR = 3
DATEVAR = ******** (MISNUM 0 )
|