let us say if Iam reading a file (say xfile) of 192 bytes. The copybook has the following structure.
01 X pic x(192)
01 Y redefines X.
05 rectype pic X(2).
88 type1 value '01'.
88 type2 value '02'.
88 type3 value '03'.
05 recdata pic x(190).
Suppose if I have the statement
Read xfile into X
Then, can I issue a statement like
If type1 perform process-para.
My actual doubt is when we are reading into X can we check a record of Y but redefined to X ? Please clarify. thanks in advance.
Joined: 14 Oct 2005 Posts: 1187 Location: Bangalore,India
Yes u can .
Because the area occupied by a field in a COBOL layout can be re-used for different data by redefining the original field. This does exactly what it says -- it redefines the space used by a field for another use.