silentarya
New User
Joined: 11 Mar 2007 Posts: 35 Location: Chennai
|
|
|
|
Hi,
I am running a program which is updating a field in an adabas file.
However, I am getting an S017 abend each and every time with Maximum value for Adabas parm NISNHQ exceeded. DB/FNR :1:/:2: as msg.
JCL :
//STEP020 EXEC NATPROC,NPARM='''ESIZE=120''',
// APPLID=MYRLIB,PROGRAM=TSTSIX
//CMPRINT DD SYSOUT=*
Program :
READ file1
IF TOTVHCST > 99999.99
ESCAPE TOP
ELSE
TOTVHCST := 105000.00
UPDATE
END TRANSACTION
WRITE 'UPDATED'
ESCAPE TOP
END-IF
END-READ
Pls suggest how to go about it. |
|