Tear,

the DATA statement doesn't work that way, see PBP Manual section 5.11

I guess you can't expect someone to help you any further with the "spaghetti"-code you have posted, because it is "unreadable"

It is no surprise that one gets lost with this kind of code.

In addition:

some CRLF in your posting would have increased readabiltiy dramatically.