program-id.y.data division.working-storage section. 1 n pic 999. 1 s pic x(100) value"#$&(%+.*,'140)7:268-C=@;E>""go a.