Attempting to run the sample API program ENHAPLST and it is failing with message ASMA034E; why?

book

Article ID: 38064

calendar_today

Updated On:

Products

CA Endevor Software Change Manager (SCM) CA Endevor Software Change Manager - Natural Integration (SCM) CA Endevor Software Change Manager - ECLIPSE Plugin (SCM) CA Endevor Software Change Manager - Enterprise Workbench (SCM)

Issue/Introduction

Question:

Attempting to run the sample API program ENHAPLST and it is failing with message ASMA034E; why?

Answer:

The problem is with the length of the work area exceeding the length of your register. Additional registers need to be created. Below is an example on how to accomplish this:

Near the start of ENHAPPGM CSECT, change this:
***********************************************************************
* GET STORAGE FOR WORKAREA
***********************************************************************
L R0,=A(WORKLN) GET SIZE OF W.A
GETMAIN R,LV=(0) GET WORKING STORAGE
ST R1,8(R13) STORE NEW STACK +8(OLD)
ST R13,4(R1) STORE OLD STACK +4(NEW)
LR R13,R1 POINT R13 TO OUR STACK
USING SAVEAREA,R13 ESTABLISH ADDRESSIBILIY
************************************************************
* INITIALIZE AND POPULATE THE CONTROL STRUCTURE
Into this:
***********************************************************************
* GET STORAGE FOR WORKAREA
***********************************************************************
L R0,=A(WORKLN) GET SIZE OF W.A
GETMAIN R,LV=(0) GET WORKING STORAGE
ST R1,8(R13) STORE NEW STACK +8(OLD)
ST R13,4(R1) STORE OLD STACK +4(NEW)
LR R13,R1 POINT R13 TO OUR STACK
LR R11,R1 USE R11 AS ...
AHI R11,4096 ... SECOND BASE REGISTER
USING SAVEAREA,R13,R11 ESTABLISH ADDRESSIBILIY

 

Environment

Release:
Component: ENDBAS