I’m researching a problem with an OLD OLD (1988) NATURAL Report Mode program STORING a record on a VSAM KSDS; the DDM for this VSAM file includes a PE with 17 fields in the group, max 5 occurrences – the developers who noticed the problem SWEAR that this has always worked, until recently (though I am skeptical).
The STORE (partially) looks like this:
STORE LL-MFUPDATE WITH
DETAIL-SEQUENCE-NO(1) = 01
DETAIL-SEQUENCE-NO(2) = 02
DETAIL-SEQUENCE-NO(3) = 03
DETAIL-SEQUENCE-NO(4) = 04
DETAIL-SEQUENCE-NO(5) = 05
APPLICATION-NUMBER(1) = #TAPP-1
APPLICATION-NUMBER(2) = #TAPP-2
APPLICATION-NUMBER(3) = #TAPP-3
APPLICATION-NUMBER(4) = #TAPP-4
APPLICATION-NUMBER(5) = #TAPP-5 etc… etc… for the rest of the fields in the PE.
… … … …
The resultant record in the VSAM file has all the occurrence 5 values ending up in occurrence 1 for all fields. Period. The other occurrences (2 thru 5) are empty. Occurrences 1 thru 4 are gone. I have verified (checked and double-checked) that the values in the source fields (immediately before the STORE) are populated and correct. We are running NATURAL 4.2.7 on z/OS. Any thoughts?