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

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.

Environment

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.

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)