Does anyone know what this program produces as output?
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. NUMBERS.
000300 AUTHOR. TEEBEE.
000400****************************************************************
000500* Simply transfer the present program to your favorite *
000600* mainframe computer, compile it, link it and submit some *
000700* appropriate JCL to run it. Its output tells the answer. *
000800****************************************************************
000900 ENVIRONMENT DIVISION.
001000 CONFIGURATION SECTION.
001100 OBJECT-COMPUTER. IBM-370.
001200 SOURCE-COMPUTER. IBM-370.
001300 DATA DIVISION.
001400 WORKING-STORAGE SECTION.
001500 01 THE-NUMBERS.
001600 10 FILLER USAGE IS COMP-1 VALUE -.24093455E+04.
001700 10 FILLER USAGE IS COMP-1 VALUE -.55439222E-47.
001800 10 FILLER USAGE IS COMP-1 VALUE -.33044246E-54.
001900 10 FILLER USAGE IS COMP-1 VALUE -.15622514E-50.
002000 10 FILLER USAGE IS COMP-1 VALUE .90854859E+00.
002100 10 FILLER USAGE IS COMP-1 VALUE -.27585575E-47.
002200 10 FILLER USAGE IS COMP-1 VALUE -.48936378E-36.
002300 10 FILLER USAGE IS COMP-1 VALUE .53763199E+00.
002400 10 FILLER USAGE IS COMP-1 VALUE .21482344E+74.
002500 10 FILLER USAGE IS COMP-1 VALUE .76006532E+00.
002600 10 FILLER USAGE IS COMP-1 VALUE -.22917763E-71.
002700 10 FILLER USAGE IS COMP-1 VALUE -.15607424E-50.
002800 01 THE-ANSWER REDEFINES THE-NUMBERS PIC X(48).
002900 PROCEDURE DIVISION.
003000 DISPLAY THE-ANSWER
003100 GOBACK.
003200 END PROGRAM NUMBERS.
My retired COBOL programmer friends tell me it produces some text (?) but as a total COBOL newbie (I can program in Delphi and Python, amongst others) I'm struggling.
Kind regards, I'm probably being dim.
Jim