Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
As Dick has said, you don't have ZD. Try with FS for your format,
Code:
81,7,FS,TO=PD,LENGTH=3
That your get " 0.1234" (actial decimal point, blank leading sign (example)) at position 81 into PIC S9V9(4) COMP-3.
You'll have to explain about the partial key you mention. Are you talking about the VSAM key, or the JOiNKEYS key?
If the JOINKEYS puts the VSAM data out of sequence (not a problem if it is the high-order part of the key being matched, but then your data from the VSAM is in sequence, and you've said it is not) you will need to SORT in the Main Task.
You will need a JOIN.
Code:
JOIN UNPAIRED,F1
Can you get unpaired F2? What do you want to do with them if you can?
Your REFORMAT will contain the enire VSAM record, plus the matching fields. In the Main Task, check for a match, do the replacement.