hum...

Notion de MOVE CORRESPONDING ?

Exemple :

01 DATE1.
05 SS PIC X(2).
05 AA PIC X(2).
05 FILLER PIC X VALUE '-'