Question

How to move data between variables in COBOL

Answer 1

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
*>

 

70+ SQL courses for beginners and professionals