The Intertest CICS File Transaction abends with an S0C4 dump in program IN71FLE with FILX abend.

Products

• InterTest - CICS

Issue/Introduction

Intertest CICS  r 11.0 was installed 3-30-2019 and current maintenance put on 1-20-2023. Both of these maintenance levels produce an S0C4 dump in program IN71FLE when the FILE transaction is executed to read a VSAM file. The initial screen displays, the DD name filled in and get record results in the S0C4 abend. CICS 5.4 FILE transaction issues message 

SAVE PARTITION DUMP CODE=FILX FOR CA INTERTEST SUPPORT.

For CICS 5.5 then the S0C4 would be in module IN72FLE

For CICS 5.6 then the S0C4 would be in module IN73FLE

For CICS 6.1 then the S0C4 would be in module IN74FLE

Environment

Z/OS 

CICS

Cause

The SVC dump indicates that the IN25SEC2 security module was assembled and linked without the IN25SEC2 TYPE=FINAL statement.

Resolution

The IN25SEC2 macro is used to assemble an InterTest for CICS load module that contains the passwords for the CORE facility, FILE facility, and CNTL facility. The IN25SEC2 passwords are not stored anywhere in their unscrambled form. For secrecy, you can code PRINT OFF in your IN25SEC2 assembly. 

Passwords can be changed at any time, even if someone is using the CORE or FILE facilities. Just run an IN25SEC2 assembly with the new passwords. If the CICS system is active, enter the following command to put the new passwords into effect:
CEMT SET PROG(IN25SEC2) NEW

Required Parameters

The IN25SEC2 macro is delivered in the InterTest for CICS source code file and must be unloaded from the distribution files before the assembly job.

IN25SEC2 TYPE=INITIAL,SCRNUM=(x,x,x,x)

The TYPE=INITIAL macro initiates the assembly and specifies the four numbers in the SCRNUM keyword that are to be used in your version of the scrambling algorithm. These numbers must be a value from 1 to 16, separated by commas, and enclosed in parentheses.

The TYPE=FINAL macro must be the last macro before the END statement. This macro must not contain any other parameters.

Below is an example of the IN25SEC2 macro statements.

//SYSIN    DD  *                                 
   IN25SEC2 TYPE=INITIAL,SCRNUM=(07,07,07,07)    
   IN25SEC2 NAME=PROT$FUN,PASS=PFUN              
   IN25SEC2 NAME=PROTCORE,PASS=PCOR              
   IN25SEC2 NAME=FILE001,PASS=FILE               
   IN25SEC2 TYPE=FINAL                           
   END