IDENTIFICATION DIVISION.
PROGRAM-ID. LIGNE-FIXE-FILLER.

DATA DIVISION.
WORKING-STORAGE SECTION.
01  LIGNE-REPORT           PIC X(60) VALUE SPACES.

01  DONNEES-CLIENT.
    05  CODE-CLIENT        PIC X(10) VALUE "CUST004567".
    05  FILLER             PIC X(4)  VALUE SPACES.           *> espace fixe entre code et nom
    05  NOM-CLIENT         PIC X(25) VALUE "DUPONT Marie-Jeanne   ".
    05  FILLER             PIC X(6)  VALUE SPACES.           *> espace fixe entre nom et montant
    05  MONTANT            PIC ZZZ,ZZZ,ZZ9.99 VALUE 12487.50.
    05  FILLER             PIC X(8)  VALUE SPACES.           *> remplissage fin de ligne

PROCEDURE DIVISION.
    MOVE DONNEES-CLIENT    TO LIGNE-REPORT

    DISPLAY "Ligne formatee (positions fixes) :"
    DISPLAY LIGNE-REPORT
    DISPLAY " "
    DISPLAY "Longueur totale              : " FUNCTION LENGTH(LIGNE-REPORT)

    STOP RUN.