CA View - Received Abend S0C1 in ADLIST (SARSAM8)

Products

• Deliver
• View

Issue/Introduction

In their upgrade from View 12.2 to 14.0, the client received a S0C1 abend in their first run of the ADLIST program.

Environment

Release : 14.0

Component : CA View

Resolution

The client had used an improper assembly of the SARSAM8 module. 

 

They then used the following to properly assemble and link the SARSAM8 module, ADLIST:

//XXXXXXXX JOB ...
//ASM EXEC PGM=ASMA90,PARM=('NODECK,OBJECT')
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSLIN DD DSN=&&OBJ,DISP=(,PASS),SPACE=(CYL,(1,1)),UNIT=SYSDA
//SYSLIB DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=hlq.CAVIEW.R14.CVDEMAC
//SYSIN DD DISP=SHR,DSN=hlq.CAVIEW.R14.CVDEOPTN(SARSAM8)
//LKED EXEC PGM=IEWL,PARM='XREF,LIST,NCAL,MAP'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSLIB DD DISP=SHR,DSN=hql.CAVIEW.R14.ABRMMOD
//CAILIB DD DISP=SHR,DSN=hlq.CAVIEW.R14.CVDELOAD
//SYSLMOD DD DISP=SHR,DSN=hlq.CAVIEW.R14.CVDELOAD
//SYSLIN DD DSN=&&OBJ,DISP=(OLD,DELETE)
// DD *
INCLUDE CAILIB(SARSAM)
INCLUDE CAILIB(SARDFMT)
ENTRY ADLIST
NAME ADLIST(R)
/*
//

Using the resulting ADLIST module, the client jobs ran successfully.