IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 PINNUM1 PIC 9(5) VALUE 90324.
77 PINNUM2 PIC 9(5).
PROCEDURE DIVISION.
MOVE PINNUM1 TO PINNUM2.
DISPLAY PINNUM1.
DISPLAY PINNUM2.
STOP RUN.
*> run:
*>
*> 90324
*> 90324
*>