000800 01  THE-WHOLE-MESSAGE.
000900     05  THE-NUMBER          PIC 9(2)  VALUE ZEROES.
001000     05  A-SPACE             PIC X(1)  VALUE SPACE.
001100     05  THE-MESSAGE         PIC X(50) VALUE SPACES.
000800 01  THE-WHOLE-MESSAGE.
000900     05  THE-NUMBER          PIC 9(2)  VALUE ZEROES.
001000     05  A-SPACE             PIC X(1)  VALUE SPACE.
001100     05  THE-MESSAGE         PIC X(50) VALUE SPACES.

Back