Question

How to copy part of the data in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. COBOL-PRO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 A-NUM1 PIC 9(9).
   01 A-NUM2 PIC 9(3).   
   01 A-NUM3 PIC 9(4).

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   MOVE 123456789 TO A-NUM1.
   MOVE A-NUM1(1:3) TO A-NUM2.
   MOVE A-NUM1(1:3) TO A-NUM3.
   
   DISPLAY "A-NUM1 : " A-NUM1
   DISPLAY "A-NUM2 : " A-NUM2
   DISPLAY "A-NUM3 : " A-NUM3

STOP RUN.



# run:
# 
# A-NUM1 : 123456789
# A-NUM2 : 123
# A-NUM3 : 0123

 

70+ SQL courses for beginners and professionals