Identification Division.
Program-Id. Numeric-examples.

Data Division.
Working-Storage Section.
01 Item-Price PICTURE 9999V99.
01 Nice-Price PICTURE ZZZ9.99.
01 Bin-Number PICTURE 999.
01 Stock-Qty PICTURE 9(10).
01 Nice-Qty PICTURE Z(9)9.
01 Account-Balance PICTURE S9(20)V99.
01 Nice-Balance PICTURE -$Z(19)9.99.

Procedure Division.
    Set Bin-Number TO 143.
    Set Item-Price TO 0140.64.
    Set Stock-Qty TO 85806502.
    Set Account-Balance to -3.29
    Display "Bin: " Bin-Number.
    Display "Price: " Item-Price.
    Display "Qty. Avail: " Stock-Qty.
    Display "Account Balance: " Account-Balance.
    Move Item-Price to Nice-Price.
    Move Stock-Qty to Nice-Qty.
    Move Account-Balance to Nice-Balance.
    Display "Formatted Price: " Nice-Price.
    Display "Formatted Quantity: " Nice-Qty.
    Display "Formatted Balance: " Nice-Balance.
    Stop Run.