After applying Endevor PTF LU10901 API fails

Products

• Endevor

Issue/Introduction

Using an API that performs a LIST PACKAGE and it is failing with the below: 

ENAPIMGR 20,032 THE RESPONSE STRUCTURE HEADER IS INVALID 01B0000005E10002D3E2E4E2

Environment

Release:  18.1 and 19.0 

Cause

LU10901	API RC=20 RE=32 ERROR DUE TO INVALID LENGTH IN RESP HEADER	19.0
LU11951	API RC=20 RE=32 ERROR DUE TO INVALID LENGTH IN RESP HEADER	18.1

Resolution

Regarding the exact symptom, this message will be printed:

ENAPIMGR 20,032 THE RESPONSE STRUCTURE HEADER IS INVALID 01B0000005E10002D3E2E4E2

The numbers will be constant, except the highlighted part, which can be different. I guess "01B0" will be the most common value (Move action with 8-char elm name), but it can be different. The rest will always be the same.

 

This is how the initialization is done currently:

INITIALIZE ALSUM-RQ-DATAAREA.

INITIALIZE ALSUM-RS-DATAAREA.

 

Or the same in shortened form:

INITIALIZE ALSUM-RQ-DATAAREA

           ALSUM-RS-DATAAREA.

 

The workaround just needs to add one line:

INITIALIZE ALSUM-RS-HEADER ALL TO VALUE.

INITIALIZE ALSUM-RQ-DATAAREA

           ALSUM-RS-DATAAREA.

 

This ONLY applies to COBOL programs. The problem does not exist for assembler programs where API$INIT macro is used.

The workaround works with COBOL 6.x and higher, which covers all supported versions of COBOL. It does not work with 5.x or older, but those are unsupported.