IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
DATA DIVISION.
WORKING-STAORAGE SECTION.
01 A PIC S999 SIGN IS LEADING SEPARATE.
PROCEDURE DIVISION.
MOVE 123- TO A.
DISPLAY A.
STOP RUN.
ICAgICBJREVOVElGSUNBVElPTiBESVZJU0lPTi4KICAgICBQUk9HUkFNLUlELiBJREVPTkUuCiAgICAgREFUQSBESVZJU0lPTi4KICAgICBXT1JLSU5HLVNUQU9SQUdFIFNFQ1RJT04uCiAgICAgMDEgQSBQSUMgUzk5OSBTSUdOIElTIExFQURJTkcgU0VQQVJBVEUuCiAgICAgUFJPQ0VEVVJFIERJVklTSU9OLgogICAgICAgIE1PVkUgMTIzLSBUTyBBLgogICAgICAgIERJU1BMQVkgQS4KICAgICAgICBTVE9QIFJVTi4=