COBOL 6.3 JSON-GENERATE SUPPRESS is suppressing all table occurrences - cobol

Question

I am working with the COBOL Enterprise 6.3 JSON-GENERATE, using the SUPPRESS phrase. I have the following COBOL data area:
05 contactInfo.
07 postalAddresses OCCURS 0 TO 10
DEPENDING ON WIMBCST-POSTAL-COUNT.
09 POSTAL-ID PIC X(40).
09 addressCategory PIC X(30).
09 startDate PIC X(10).
09 legalAddressStartDate PIC X(10).
09 endDate PIC X(10).
09 perpetualEndDate PIC X(10).
09 perpetualStartDate PIC X(10).
09 addressFormatName PIC X(10).
09 POSTAL-SEQ PIC 99.
09 postalAddressType PIC X(20).
09 addressLines OCCURS 10 TIMES.
11 addressLineType PIC X(20).
11 addressLineText PIC X(60).
09 locationLines OCCURS 10 TIMES.
11 locationType PIC X(20).
11 locationText PIC X(60).
The data is initially LOW-VALUES. When the JSON is generated, if any occurrence of addressLines or locationLines is eligible for suppression, the entire table is suppressed as follows:
{
"postalAddresses": [
{
"addressCategory": "Master",
"addressFormatName": "US",
"sequenceNumber": 1,
"postalAddressType": "Unknown"
}
]
}
Even though occurrence 1 of addressLines has data, and locationLines has 3 occurrences of data.
I am really expecting this:
{
"postalAddresses": [
{
"addressCategory": "Master",
"addressFormatName": "US",
"sequenceNumber": 1,
"postalAddressType": "Unknown",
"addressLines": [
{
"addressLineType": "A",
"addressLineText": "123 MAIN"
}
],
"locationLines": [
{
"locationType": "City",
"locationText": "TEST CITY"
},
{
"locationType": "State",
"locationText": "CA"
},
{
"locationType": "Postal Code",
"locationText": "99999"
}
]
}
]
}
Any tips/advice on how I can use the SUPPRESS phrase and get the addressLines and locationLines items generated?

Answer 1

this is a known problem that should be fixed by APAR PH40288