Dummy macro defining the number to be formatted

# Define a number

a_number = 123456789

# Print the number

PRINT "Input number = ", a_number

PRINT "Calling formatting sub-macro..."

PRINT ""

PRINT "Formatted number = ",

# Define the number as an input for the sub-macro

CALLSETDBL 1, a_number

# Call the formatting sub-macro

CALLMACRO Comma_separation.ZPL

Sub-macro formatting the numbers with commas

# Retrieve input number

a_number = CALD(1)

# Change format to 3 digits integer

FORMAT 3 INT

# If input number is smaller than 1000 ...

IF (a_number > 999)

    # and if input number is smaller than 1000000 ...

    IF (a_number > 999999)

        a_string$ = $STR(a_number)

        a_string$ = $RIGHTSTRING(a_string$, 6)

        

        # ... otherwise, we print the millions, add a coma

        PRINT $STR(a_number/999999), ",",

        # print the thousands, add another coma

        PRINT $LEFTSTRING(a_string$, 3), ",",

        # and then print the rest

        PRINT $RIGHTSTRING(a_string$, 3)

    ELSE

        a_string$ = $STR(a_number)

        

        # ... we first print the thousands, add a coma

        PRINT $STR(a_number/1000), ",",

        # and then print the rest

        PRINT $RIGHTSTRING(a_string$, 3)

    ENDIF

ELSE

    # ... we just print that number

    PRINT a_number

ENDIF