88 Usage Question

[TJ73]

Hello to all.
First time.

While looking at some legacy code . . .

01 DATA-TO-PROCESS.
03 DATA-FIELD-01 PIC X.
88 DF1-YES VALUE 'Y' 'Y'.
88 DF1-NO VALUE 'N'.

. . . what is the significance, purpose or benefit of doubling down on 'Y' ???

Regards -

TJ

 

[TJ73]

. . . I just thought its because "Y" is NE "y" and the original coder forgot their Cap Lock was left on. (???) But if that, why did they not do a "N", "n"?

 

[SaltyTheFrog]

Look at "Format2 - Multiple values" in the link:

https://www.mainframestechhelp.com/tutorials/cobol/88-level-number.htm#google_vignette