program-id.y.data division.working-storage section.
1 y pic 9(8).
1 d pic 99.
1 s pic x(10).
procedure division.a.accept s
if 0>s(7:)move 0 to s(5:1).move s(1:7)to y
move s(8:)to d
compute d=function mod(function integer-of-date(y*100+d),7)display
d(2:)if y<>200806 if y<>225212 if y<>509002 go a.