IDENTIFICATION DIVISION.

       PROGRAM-ID. FILLDAYS.
 
       WORKING-STORAGE SECTION.
       77  current-value   pic x(50).

       LINKAGE SECTION.
       77  cb1-handle handle of combo-box.

       PROCEDURE DIVISION USING cb1-handle.

       MAIN.
           modify cb1-handle 
                  item-to-add "Monday"
                  item-to-add "Tuesday"
                  item-to-add "Wednesday"
                  item-to-add "Thursday"
                  item-to-add "Friday"
                  item-to-add "Saturday"
                  item-to-add "Sunday".

           modify cb1-handle value "Monday"
           goback.