bbbbbbbIDENTIFICATION DIVISION. bbbbbbbPROGRAM-ID. DINORI01. bbbbbbbDATA DIVISION. bbbbbbbWORKING-STORAGE SECTION. bbbbbbb01 WS-LEY-DINO PIC X(18). bbbbbbbPROCEDURE DIVISION. bbbbbbbDINO-PROC01. bbbbbbbbbbbSET WS-LEY-DINO EQUAL “SOS UN…