program-id.a.data division.local-storage section. 1 l pic x(7). procedure division.a.accept l.if l(2:1)=l(3:1)display l(2:1)else display l(5:1).if""not=l go a.