I've a file HPHOSP having patient details. It has 8 fields to store diagnosis codes - LPCD01, LPCD02....LPCD08. I've declared these fields as a part od DS so that these can be accessed by array LPCD.
Now in my program, when I chain file HPHOSP, then all fields fo file has correct value but these 8 fields (LPCD*) always has blank value, although these are non-blank in database file.
The above code is part of a procedure. File HPHOSP is declared in F-specs at global level and not inside procedure. And this procesure is part of a service program.
What could be the reason for this:
1. Is it because file is declared in global F-specs and not inside procedure definition?
2. This is part of service program that is inducing some error?
3. Any other reason.
0085.00 D DS 0086.00 D LPCD 1 64 0087.00 D DIM(8) 0088.00 D LPCD01 1 8 0089.00 D LPCD02 9 16 0090.00 D LPCD03 17 24 0091.00 D LPCD04 25 32 0092.00 D LPCD05 33 40 0093.00 D LPCD06 41 48 0094.00 D LPCD07 49 56 0095.00 D LPCD08 57 64