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.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).