Coding to prevent table overflows withing programs

NanetteHaraden — Fri, 06 Nov 2009 17:14:37 +0000

In this new world of zero tollerance for abends and the goal of 100% production stability, I have been charged with determining the best method to prevent abends due to internal program table overflows. Our environment has Cobol, Eztrieve and Assembler programs with internal tables. We are looking to replace hard-coding of occurs clauses with a new method to dynamically increase table space if needed. I don’t know the best or simplest method or if there is a method that can be applied to all our programming languages. My suggestion was to set a threshold value to indicate if the table was close to max and send a message to support that the table is getting ready to overflow. This method is easy and could be applied to all laguages, but my mgmt. voted this down because it “doesn’t guarentee” the prevention of an abend. Another suggestion was the use of Dynamic Table Expansion using MICM tables. I haven’t completely figured out how this works and I’m not sure it this can be applied to all laguages, it also appears to require alot of coding. Another co-worker said that they have heard of coding a file FD where Cobol treats the file as a table and you don’t have to specify an occurs. I have not found any documentation on this method. Please lend your advise and point me to any examples and resources that might be available. Thanks very much for your assitance.

IKJEFT01 job giving SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011

Saurabhgargava — Sun, 12 Apr 2009 17:22:34 +0000

One of my job is trying to search the reagions which are holding a file and run this step
//PSTY0020 EXEC PGM=IKJEFT01,DYNAMNBR=8,
// PARM=(‘%ISFSCAN,&INS..PO.STDATM.JOURNAL’,
// ‘DD(2&DD),NONCICSABORT’)
//SYSPROC DD DSN=CSG.CTLCARD,DISP=SHR
//SYSTSIN DD DUMMY
//SYSTSPRT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//ISFSINFO DD DSN=&FSINFO,DISP=SHR
//ISFDADS DD DSN=&SEQ..PB.STDATM.ISFDADS,
// DISP=(MOD,CATLG,DELETE),
// DATACLAS=SMALL
//ISFDADR DD DSN=&SEQ..PB.STDATM.ISFDADR,
// DISP=(MOD,CATLG,DELETE),
// DATACLAS=SMALL
//*
This Stp is alway’s getting ended with Soc 4 and reason code =11
Please can somebody help !!!

IT Answers » ABEND

Coding to prevent table overflows withing programs

IKJEFT01 job giving SYSTEM COMPLETION CODE=0C4 REASON CODE=00000011