identification division.

program-id. lab6aproj.

data division.

working-storage section.

01 mil-time.

05 ct-hh pic 99.

05 ct-mm pic 99.

01 clock-time.

05 mt-hh pic z9.

05 pic x value ":".

05 mt-mm pic 99.

05 pic x value space.

05 mt-ampm pic xx.

procedure division.

100-main.

display "Enter military time in hhmm format".

accept mil-time.

call "lab6asub" using mil-time clock-time.

display "Current time is: " clock-time.

accept omitted.

stop run.