IDENTIFICATION DIVISION.
PROGRAM-ID. MEMORY-EXAMPLE.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CLIENT-A        PIC X(10) VALUE "ABCDEFGHIJ".

01 CLIENT-B.
   02 ID-C         PIC X(03) VALUE "123".
   02 FILLER       PIC X(03) VALUE "   ".

PROCEDURE DIVISION.
    DISPLAY "CLIENT-A (10 octets)  : [" CLIENT-A "]"
    DISPLAY "ID-C (3 octets)       : [" ID-C "]"
    DISPLAY "CLIENT-B (6 octets)   : [" CLIENT-B "]"

    MOVE "XYZ" TO ID-C
    DISPLAY "Apres modification ID-C :"
    DISPLAY "ID-C     : [" ID-C "]"
    DISPLAY "CLIENT-B : [" CLIENT-B "]"   

    STOP RUN.