Job TNCA1300 runs three times on the same LPAR with the same data and id.
Run 1 – production COBOL program, calls production assembler program, runs
successfully.
Bring production COBOL program into a development PDS and compile program
without changes.
Run 2- development program, calls production assembler program, fails with SOC4
in assembler program.
Add these two lines of code to COBOL program to bypass header record on input
dataset:
IF WS-NA-RECORDS-READ EQUAL 1
GO TO 1200-READ-MASTER.
Compile COBOL program with change. Compile output messages identical to first
compile.
Run 3 – development COBOL program (changed), calls production assembler
program, runs successfully.
Note: No overrides or changes to AMODE, RMODE or DATA during the test. Using
the shops default compile and link settings.
Program moves from the FD to WORKING-STORAGE before the call to the assembler
program for all “input” parameters.
I am missing something here; I do not see why this code would resolve the SOC4.
Or has mentioned, missing something else… the unknown unknowns
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
