IDENTIFICATION DIVISION. PROGRAM-ID.dat. ENVIRONMENT DIVISION. SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER. IBM-PC. DATA DIVISION. WORKING-STORAGE SECTION. 01 cr-date1. 05 yr pic 99. 05 FILLER PIC X VALUE \"/\". 05 mnth pic 99. 05 FILLER PIC X VALUE \"/\". 05 date1 pic 99 value 10. 01 cr-date2. 05 yr1 pic 99. 05 mnth1 pic 99. 05 date11 pic 99 value 10. 77 jul-dy pic 9(6). 01 tm. 05 hh1 pic 99. 05 mm1 pic 9. 05 ss1 pic 99. 05 fs1 pic 9. 01 tm1 pic 9(10). 77 dy-of-wk pic 9. PROCEDURE DIVISION. ACCEPT cr-date2 FROM DATE. MOVE yr1 TO yr. MOVE mnth1 TO mnth. MOVE date11 TO date1. DISPLAY cr-date1. DISPLAY \"YEAR:\" yr. DISPLAY \"month:\" mnth. DISPLAY \"date:\" date1. DISPLAY cr-date2. DISPLAY \"YEAR:\" yr1. DISPLAY \"month:\" mnth1. DISPLAY \"date:\" date11. ACCEPT jul-dy FROM DAY. ACCEPT tm FROM TIME. ACCEPT tm1 FROM TIME. ACCEPT dy-of-wk FROM DAY-OF-WEEK. DISPLAY \"julian\" jul-dy. DISPLAY \"time\" tm. DISPLAY \"HH\" hh1. DISPLAY \"MM\" mm1. DISPLAY \"SS\" ss1. DISPLAY \"TM1\" tm1. DISPLAY \" day of week\" dy-of-wk. STOP RUN. ******* OUTPUT: ******* 04/12/16 year :04 month:12 date :16 041216 YEAR :04 month:12 date :16 julian004351 time125858 HH12 MM5 SS85 TM10012585835 day of week 4