IDENTIFICATION DIVISION.
       PROGRAM-ID. EXEMPLE-PICV.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 MONTANT-A PIC 9(5)V9(2) VALUE 12345.67.
       01 MONTANT-B PIC 99999V99 VALUE 12345.67.

       PROCEDURE DIVISION.
           DISPLAY MONTANT-A.
           DISPLAY MONTANT-B.
           STOP RUN.