cobol move data to different location

Program to move the data from one to different location

IDENTIFICATION DIVISION.
PROGRAM-ID. PGM8.
AUTHOR. XYZ.
*MOVE FROM ONE TO DIFFERENT LOCATION
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 A PIC X(3) VALUE 'ICS'.
77 B PIC X(4) VALUE SPACES.
77 C PIC X(4) VALUE SPACES.
77 D PIC X(4) VALUE SPACES.
PROCEDURE DIVISION.

MOVE A TO B,C,D.
DISPLAY B C D.
STOP RUN.

0 comments:

Post a Comment