There are two fairly straight forward ways of doing this.
One is to subdivide the source variable declaration:
02 C-SERVICE-DATE-E.
10 C-SERVICE-CYE.
15 C-SERVICE-CYE-CC PIC X(02).
15 C-SERVICE-CYE-YY PIC X(02).
10 C-SERVICE-MME PIC X(02).
10 C-SERVICE-DDE PIC X(02).
Then modify the MOVE statement to: MOVE C-SERVICE-CYE-YY TO S-CYE
The other way is to use reference modification: MOVE C-SERVICE-CYE (3:2) TO S-CYE
This all works because the data items you are referencing here are DISPLAY
types. Had they
been numeric (eg. COMP something) this technique would not work.