!————————————-!
! Procedure: Date-Validation !
! Descr: Validate $entered_date. !
!————————————-!
Begin-Procedure Date-Validation
#debug show ‘Entering Date-Validation’
Let $Date_Validation = ‘N’
!Show ‘$entered_date: ‘ $entered_date
Let #1st_Slash_position = instr($entered_date, ‘/’, 1)
!Show ‘#1st_Slash_position: ‘ #1st_Slash_position
Let #2nd_Slash_position = instr($entered_date, ‘/’, #1st_Slash_position + 1)
!Show ‘#2nd_Slash_position: ‘ #2nd_Slash_position