MVSFORUMS.com

[durgamallesh]

Hi All,

I am trying to call a Cobol program from a CICS CSP Program.
The cobol program accesses a VSAM dataset and returns the values to CSP.
While doing this, i am getting 4038 abend on CICS.

Not sure if it has got anything to do with the record lengths. The VSAM file record length is 42 and the same record length is defined in the cobol program.

Any suggestions in this regard?

Thanks in Advance.

Cheers,
Mallesh
_________________
S.Durga Mallesh,
Project engineer.

[durgamallesh]

Hi Ravi,

Sorry for not giving the details at the first go...

here is the error message about the abend in the CICS log in Spool

"Transaction DG01 abend 4038 in program FSPX900C term 1003. Updates to local recoverable resources backed out."

In the above error message, DG01 is the CICS transaction written in CSP. FSPX900C is the Cobol program called by DG01. This program accesses the VSAM file 'SXPS.LOOKUP'.

""CEE DUMP
CEE3DMP V1 R4.0: Condition processing resulted in the unhandled condition.

Storage around GPR2 (00000214)
-0020 000001F4 Inaccessible storage.
+0000 00000214 Inaccessible storage.
+0020 00000234 Inaccessible storage.
Storage around GPR3 (0ECD7C9C)
-0020 0ECD7C7C C6C6C6C6 C6C6C6C6 C6C6C6C6 C5E3C3D3 C5E3E2E4 C6C6C6C6 C
+0000 0ECD7C9C C5E5C9D6 C5E5D6C3 C5E5D6F2 C5D5D9E3 C5E3D9D4 C5E5E2E5 C
+0000 0ECD7C9C C5E5C9D6 C5E5D6C3 C5E5D6F2 C5D5D9E3 C5E3D9D4 C5E5E2E5 C
+0020 0ECD7CBC C5C4D4D9 C5E3C8C9 C5E3C8E3 C5D6D7D5 C5D9C3D6 C5D3D6D7 C
Storage around GPR4 (0EB13810)
-0020 0EB137F0 00000000 00000000 00062978 00000000 00060000 000036D0 C
+0000 0EB13810 80000041 0EB13808 0EB13DA4 0EB136C0 00000031 0EB0F208 0
+0020 0EB13830 0F0993B6 00098DB8 0EB11240 0EB13868 0EB1386C 00000000 0
Storage around GPR5 (00000008)
-0008 00000000 Inaccessible storage.
+0018 00000020 Inaccessible storage.
+0038 00000040 Inaccessible storage.
Storage around GPR6 (00000000)
+0000 00000000 Inaccessible storage.
+0020 00000020 Inaccessible storage.
+0040 00000040 Inaccessible storage.
Storage around GPR7 (00062A2C)
-0020 00062A0C 00000000 00000000 00000000 00000000 00000000 00000000 0
+0000 00062A2C 00062CAC 00062CB2 00062CB8 00062CBE 00062CC4 00062CCA 0
+0020 00062A4C 00062CDC 00062CE2 00062CE8 00062CEE 00062CF4 00062CFA 0
Storage around GPR8 (0EB03110)
-0020 0EB030F0 00000000 00000000 00000000 00000000 00000000 00000000 0""

here is the error on the CICS screen when the transaction is invoked.

" DFHAC2206 09:06:43 S5CICS Transaction DG01 failed with abend 4038. Updates to local recoverable resources backed out."

I am not sure if i can find more info about the abend in the spool. please let me know if i can do that.

Cheers,
Mallesh.
_________________
S.Durga Mallesh,
Project engineer.