cbl apost
       cbl list
       Identification division.
       Program-id. TestEuro.
       Environment division.
       Configuration section.
       Special-Names.
           currency sign is 'EUR'
                         with picture symbol 'U'
           decimal-point is comma.
       Data division.
       Working-storage section.
       01  WORK-AMOUNT      PIC S9(13)V99 PACKED-DECIMAL.
       01  WORK-BALANCE     PIC S9(13)V99 PACKED-DECIMAL VALUE 0.
       01  EDIT1-LINE.
           02                PIC X(25) VALUE 'FIXED LEFT 1'.
           02                PIC X(9) VALUE 'AMOUNT : '.
           02  EDIT1-AMOUNT  PIC U--.---.---.---.--9,99.
           02                PIC X(11) VALUE ' BALANCE : '.
           02  EDIT1-BALANCE PIC U--.---.---.---.--9,99.
      *01  EDIT2-LINE.
      *    02                PIC X(25) VALUE 'FIXED LEFT 2'.
      *    02                PIC X(9) VALUE 'AMOUNT : '.
      *    02  EDIT2-AMOUNT  PIC UUU--.---.---.---.--9,99.
      *    02                PIC X(11) VALUE ' BALANCE : '.
      *    02  EDIT2-BALANCE PIC UUU--.---.---.---.--9,99.
      * IGYDS1162-E "PICTURE" string character "-" was out of sequence
      * or was invalid with the preceding "PICTURE" string characters.
      * "PICTURE" string "S9(1)" was assumed.
       01  EDIT3-LINE.
           02                PIC X(25) VALUE 'FIXED LEFT 3'.
           02                PIC X(9) VALUE 'AMOUNT : '.
           02  EDIT3-AMOUNT  PIC U*.***.***.***.**9,99-.
           02                PIC X(11) VALUE ' BALANCE : '.
           02  EDIT3-BALANCE PIC U*.***.***.***.**9,99-.
       01  EDIT4-LINE.
           02                PIC X(25) VALUE 'FLOATING LEFT'.
           02                PIC X(9) VALUE 'AMOUNT : '.
           02  EDIT4-AMOUNT  PIC U.UUU.UUU.UUU.UU9,99-.
           02                PIC X(11) VALUE ' BALANCE : '.
           02  EDIT4-BALANCE PIC U.UUU.UUU.UUU.UU9,99-.
      *01  EDIT5-LINE.
      *    02                PIC X(25) VALUE 'FIXED RIGHT 1'.
      *    02                PIC X(9) VALUE 'AMOUNT : '.
      *    02  EDIT5-AMOUNT  PIC Z.ZZZ.ZZZ.ZZZ.ZZ9,99BU.
      *    02                PIC X(11) VALUE ' BALANCE : '.
      *    02  EDIT5-BALANCE PIC Z.ZZZ.ZZZ.ZZZ.ZZ9,99BU.
      * IGYDS1162-E "PICTURE" string character "-" was out of sequence
      * or was invalid with the preceding "PICTURE" string characters.
      * "PICTURE" string "S9(1)" was assumed.
       Procedure division.
       Main.
           display 'positive values'
           move 123456789   to WORK-AMOUNT
           perform Edit-lines
           display 'negative values'
           move -987654321  to WORK-AMOUNT
           perform Edit-lines
           .
       Bye.
           Goback
           .
       Edit-lines.
           add WORK-AMOUNT   to WORK-BALANCE
      *
           move WORK-AMOUNT  to EDIT1-AMOUNT
           move WORK-BALANCE to EDIT1-BALANCE
           display EDIT1-LINE
      *    move WORK-AMOUNT  to EDIT2-AMOUNT
      *    move WORK-BALANCE to EDIT2-BALANCE
      *    display EDIT2-LINE
           move WORK-AMOUNT  to EDIT3-AMOUNT
           move WORK-BALANCE to EDIT3-BALANCE
           display EDIT3-LINE
           move WORK-AMOUNT  to EDIT4-AMOUNT
           move WORK-BALANCE to EDIT4-BALANCE
           display EDIT4-LINE
      *    move WORK-AMOUNT  to EDIT5-AMOUNT
      *    move WORK-BALANCE to EDIT5-BALANCE
      *    display EDIT5-LINE
           display ' '
           .
       End program TestEuro.