>>SOURCE FORMAT IS FREE
*> cobol-move-noninteger.cob - the MOVE lesson's second dialect probe: a
*>   numeric item with decimal places moved to an alphanumeric item, the
*>   move the integer-only rule forbids. Whether this compiles depends on
*>   the dialect, which is the point of the listing.
*> Dialect: GnuCOBOL 3.x, free format; meant to be compiled once per
*>          dialect (the lesson shows default, -std=ibm and -std=mf):
*>          cobc -x cobol-move-noninteger.cob
*>          cobc -x -std=ibm cobol-move-noninteger.cob
*>          cobc -x -std=mf cobol-move-noninteger.cob
*> Status : compiled with GnuCOBOL 3.2 on 2026-10-30: refused under the
*>          default dialect, compiled with a warning and run under
*>          -std=ibm and -std=mf
*> Inputs : none
*> Outputs: one line on standard output, when it compiles
*> Run    : ./cobol-move-noninteger
*>          (Windows: cobol-move-noninteger.exe)

IDENTIFICATION DIVISION.
PROGRAM-ID. MOVE-NONINTEGER.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-Money          PIC 9(3)V99  VALUE 123.45.
01 WS-Num-As-Text    PIC X(6).

PROCEDURE DIVISION.
MAIN-PARAGRAPH.
    MOVE WS-Money TO WS-Num-As-Text
    DISPLAY "9(3)V99 to X(6) : [" WS-Num-As-Text "]"
    STOP RUN.