Is it possible to have is numeric check in easytrive? How it can be used?

FILE INXXXX FB (XXX XXXXX)
IN-XXXXXX-RE 1 12 A
IN-CXXE 14 02 A
AN-COUNT 17 07 N
AA-DD 35 02 N
AA-MMM 38 03 A
AA-YYYY 42 04 N

FILE OUTXXXX FB (XXX XXXXX)
XXT-DATE 1 11 A
XXT-XXXXXX-RE 1 12 A
XXT-XXDE 14 02 A
AUT-COUNT 17 07 N

WS-I W 2 N
WS-AAAA W 11 A
WS-DD WS-AAAA 02 N
WS-FL WS-AAAA +02 01 A VALUE '-'
WS-MMM WS-AAAA +03 03 A
WS-FL1 WS-AAAA +06 01 A VALUE '-'
WS-YYYY WS-AAAA +07 04 N
WS-CNT W 2 N
WS-COUNT W 1 A
WS-RECORD-RE W 12 A VALUE 'XXXS-XXXXTEN'
WS-XXXX-TABLE W 21 A OCCURS 20
WS-RECORD-RE1 WS-XXXX-TABLE 12 A
WS-XXXXA WS-XXXX-TABLE +12 02 A
WS-AAAAAA WS-XXXX-TABLE +17 07 N

***********************************************************
JOB INPUT INXXXX
IF AA-DD NUMERIC AND AA-YYYY NUMERIC
WS-DD = AA-DD
WS-MMM = AA-MMM
WS-YYYY = AA-YYYY
AAT-AADE = WS-AAAA
PUT OUTXXXX
END-IF
IF AA-DD NUMERIC AND AA-YYYY NUMERIC AND +
AA-DD NE WS-DD AND AA-YYYY NE WS-YYYY AND WS-MMM NE AA-MMM
WS-COUNT = 'N'
END-IF
IF AN-XXXXXX-RE = 'XXXS-XXXXTEN'
WS-CNT = WS-CNT + 1
IF WS-CNT > 10
WS-COUNT = 'Y'
END-IF
IF WS-COUNT = 'Y'
AUT-XXXXXX-XE = AN-XXXXXX-RE
AAT-XXXE = XX-XXDE
AAT-COUNT = AN-COUNT
PUT OUTXXXX
WS-CNT = 0
END-IF
END-IF
//*

//*VALUE CLAUSE CAN BE USED IN EASYTRIEVE WHILE DECLARING VARIABLES