Hi I would like to add one more point. I tried with so many options to display 4 digit year in my batch job. But I couldn't get. For that finally I got with the following code. What might be the reason we couldn't get without using the following logic.
01 CE-SYSTEM-DATE PIC X(08) VALUE SPACES.
01 CE-CURR-DATE PIC X(10) VALUE SPACES.
CALL 'IGZEDT4' USING BY REFERENCE CE-SYSTEM-DATE.
STRING CE-SYSTEM-DATE(5:2) '-'
DELIMITED BY SIZE INTO CE-CURR-DATE.