ALERT: Some images may not load properly within the Knowledge Base Article. If you see a broken image, please right-click and select 'Open image in a new tab'. We apologize for this inconvenience.

Compress V5.5 user cobol compile abends on a S0C4 abend

book

Article ID: 132795

calendar_today

Updated On:

Products

CIS COMMON SERVICES FOR Z/OS 90S SERVICES DATABASE MANAGEMENT SOLUTIONS FOR DB2 FOR Z/OS COMMON PRODUCT SERVICES COMPONENT Common Services Datacom/AD CA ecoMeter Server Component FOC EASYTRIEVE REPORT GENERATOR FOR COMMON SERVICES INFOCAI MAINTENANCE IPC UNICENTER JCLCHECK COMMON COMPONENT Mainframe VM Product Manager CHORUS SOFTWARE MANAGER CA On Demand Portal CA Service Desk Manager - Unified Self Service PAM CLIENT FOR LINUX ON MAINFRAME MAINFRAME CONNECTOR FOR LINUX ON MAINFRAME GRAPHICAL MANAGEMENT INTERFACE WEB ADMINISTRATOR FOR TOP SECRET Xpertware Compress Data Compression for MVS Compress Data Compression for Fujitsu

Issue/Introduction

Cobol compile that calls an assembler program abends on a S0C4 after upgrading to Compress V5.5.

Cause

S0C4 abend occurs. The SHRKSTUB and the SHEXMODS modules are now RMODE ANY in V5.5 rather than RMODE 24.
The user's composite module, QDSR117, is being linked as AMODE 24.  SHRKSTUB is one of the statically linked modules within QDSR117 and is linked as AMODE 24 instead of AMODE 31.    
The previous Compress release did not have a problem with SHRKSTUB being statically linked as AMODE 24 because SHEXMODS resided below the line. 
However, with the current release, SHEXMODS resides above the line and cannot be accessed causing the S0C4 problem. 
Also with the latest releases of z/OS, system control blocks and modules may now reside above the line rather than below which is why SHRKSTUB should be AMODE 31.

Environment

Compress V5.5

Resolution

Relink SHEXMODS and EXPAND to AMODE 31 RMODE24 in the CCVBLOAD library:


Example JCL below:


//LKED EXEC PGM=IEWL,REGION=2048K, 

// PARM='NCAL' 

//SYSLIB DD DSN=SYS1.CCVBLOAD,DISP=SHR 

//SYSLMOD DD DSN=SYS1.CCVBLOAD,DISP=SHR 

//SYSPRINT DD SYSOUT=* 

//SYSLIN DD * 

MODE AMODE(31) RMODE(24) 

INCLUDE SYSLIB(SHEXMODS) 

ENTRY SHEXSUBS 

NAME SHEXMODS (R) 

//


Additional JCL for EXPAND relink

//LINK02   EXEC PGM=IEWL,PARM='NORENT,NOREUS'           

//SYSUT1   DD UNIT=SYSDA,SPACE=(1024,(500,50))          

//SYSPRINT DD SYSOUT=*                                  

//INPUT    DD DISP=SHR,DSN=your 55.CMPMVS.CCVBLOAD       

//SYSLMOD  DD DISP=SHR,DSN=your 55.TEST.CMPMVS.CCVBLOAD 

//SYSLIN   DD *                                         

  INCLUDE INPUT(EXPAND)                                 

    ENTRY EXPAND                                        

     MODE AMODE(31),RMODE(24)                           

     NAME EXPAND(R)