U4039 ABEND occurs when a subroutine stored in the Panexec library is called.
Article ID: 369129
Updated On:
Products
Issue/Introduction
Added a COBOL subroutine load module (xsubrtnx) from a user LOADLIB to PEXLIB with the %ADD command.
A CEE3501S error occurs when running an Easytrieve program that calls the COBOL subroutine that is stored in a PanExec library.
CEE3501S The module xsubrtnx was not found.
From compile unit A181 at entry point A181 at compile unit offset +000000C2 at entry offset +000000C2 at
address 1DF07C6A.
IEF237I JES2 ALLOCATED TO SYSIN
IEA995I SYMPTOM DUMP OUTPUT
USER COMPLETION CODE=4039 REASON CODE=00000000
TIME=18.08.29 SEQ=00036 CPU=0000 ASID=0035
PSW AT TIME OF ERROR 078D1A00 89CE867A ILC 2 INTC 0D
ACTIVE MODULE ADDRESS=00000000_09C1D880 OFFSET=000CADFA
NAME=CEEPLPKA
Environment
PanExec V5.3
Resolution
Could be a conflict between the FILEOPTs on the PanExec library and the status of the member in the Panexec library
1) Run a PE101 report:
//PE101 EXEC PGM=PANEXEC,REGION=1024K
//STEPLIB DD DISP=SHR,DSN=hlq.mlq.panexec.V53.PANESRL
//PANESRL DD DISP=SHR,DSN=hlq.mlq.panexec.V53.PANESRL
//PANELIB DD DISP=SHR,DSN=hlq.mlq.PEXLIB
//PANPRINT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD UNIT=SYSDA,SPACE=(CYL,(20,2))
//EZTIN DD UNIT=SYSDA,SPACE=(CYL,(20,2))
//FILEA DD UNIT=SYSDA,SPACE=(CYL,(20,2))
//FILEB DD UNIT=SYSDA,SPACE=(CYL,(20,5))
//PANEIN DD *
%INPUT REPORTS,*,PE101
//
2) Find the member in the report and check its status:
PANELIB *group .xsubrtnx/EXEC ;PA EXECUTED LVL 000
3) In the PE101 report, locate the - DEFAULTS FOR PROGRAM EXECUTION section and check the Default Status / Mode:
- DEFAULTS FOR PROGRAM EXECUTION
DEFAULT GROUP TEST
DEFAULT STATUS/MODE TA
REGULATED STATUS PT
EIR STATISTICS OPTION A
4) If there is a conflict with the Statue / Mode (SM), remove the TA from %FILEOPT command or change it to PA.
From:
//PANEIN DD *
%FILEOPT,ADPT F*G.;TA
/*
//
To:
//PANEIN DD *
%FILEOPT,ADPT F*G.;
/*
//
From the FILEOPT Command in the Panexec System Reference Guide:
The FILEOPT command has one required operand.
{Panexec name} ─────────> {F*[G.;SM]}You must specify the file name (F*), and it must correspond to the ddname of a Panexec library. Group name, status, and mode, if present, are checked for correct syntax but are processed only when you specify the D option.
If the D option is specified, the group name, element status, and element mode from the Panexec name operand become the defaults for the Panexec library identified by F*.
Feedback
