      IDENTIFICATION DIVISION.
      PROGRAM-ID. 051A.
      DATA DIVISION.
      WORKING-STORAGE SECTION.
      01 S PIC X(19).
      01 IDX PIC 9(1).
      
      PROCEDURE DIVISION.
      ACCEPT S.
      INSPECT S REPLACING ALL "," BY " ".
      DISPLAY S.
      STOP RUN.