Reason Code 20 loading cobol 6.x programs in IDMS

Products

• IDMS

Issue/Introduction

An attempt to execute or even simply load a cobol 6.x compiled program load module in IDMS fails with Reason Code 20.

Environment

Release: All supported releases.

Cause

Cobol 6.x load modules must reside in a PDSE (this is a cobol restriction, not IDMS). An attempt to load one from a PDS will result in the Reason Code 20 error.

Resolution

The Reason Code 20 is a displaying of the R15 return code value of x'14' resulting from the #LOAD call as documented in DML Reference Assembler manual.

However this error can also happen if a cobol 6.x load module is loaded from a PDS. An attempt to compile a cobol 6.x program into a PDS will probably fail in the link-edit step with IEW2606S, so it is likely that the only way this can happen is if a cobol 6.x load module is copied from a PDSE to a PDS.