IBM Mainframe Forum

Hi,
I have a IDMS program, which bind's & ready's the area. It will read the data from input file and it will create few records in database.

The problem is the IDMS program failed with the following error.
**********************************
DNS SEND/RECEIVE Failure Status is : 5839
DNS Processing error, Function is RECEIVE_AND_WAIT, Status is XMIT Error
DTS: Abend on path's subsequent downstream node
DTS: Logical connections to node disabled
DTS: Physical connection to node disabled
DNS SEND/RECEIVE Failure Status is : Broken DNS path
DTS Error: TD0D - Path to server disabled due to remote abend
DTS Error: TD0D - Service E return code: -98
DNS SEND/RECEIVE Failure Status is : Broken DNS path
DTS Error: TD0D - Path to server disabled due to remote abend
DTS Error: TD0D - Service E return code: -98
DNS SEND/RECEIVE Failure Status is : Broken DNS path
DTS Error: TD0D - Path to server disabled due to remote abend
DTS Error: TD0D - Service E return code: -98
1 JCAA25 - ABEND=S000 U0077 REASON=00000000 348

This program has been running for years without any problem. suddenly for today it was failing with this error. It was giving error-status 0077 just after the obtain calc of the record. Can somebody explain why i was getting this error. The record which it was trying to read was in IDMS is used by alot of other programs which were working fine.

I would check your JCL again - those do not look like IDMS messages, rather they look like FTP, or similar, messages. Or is your database on a remote system?

//JCAA25 EXEC PGM=OSBIB004,
// COND=(0,NE)
//*
//*
//SYSCTL DD DSN=SYS3.SDMS.SYSCTL,
// DISP=SHR
//*
//EXPDFILE DD DSN=AISSOS.COMN.JCFY45A.DT0713,
// DISP=SHR
//*
//OTFILE DD DSN=AISSOS.COMP.JCAA25A.DT0714,
// DISP=MOD
//* *** THIS DATASET MUST REMAIN AS 'MOD' DUE TO
//* ACCUMULATING ALL DATA. ***
//*
//ORDFILE DD DSN=AISSOS.COMP.JCAA25C.DT0624,
// DISP=MOD
//* *** THIS DATASET MUST REMAIN AS 'MOD' DUE TO
//* ACCUMULATING ALL DATA. ***
//*
//GESSFILE DD DUMMY
//*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSUDUMP DD SYSOUT=Z
//*
//JCLFLIN DD DSN=AISSOS.RSPWARR.TBLINP.TEST(POSTJCFO),
// DISP=SHR
//*
//JCLFLOUT DD SYSOUT=(A,INTRDR),
// BLKSIZE=80
//*
//* *****************************************************************
//* CONTROL CARD FORMAT
//* 1. DB-NAME=OSBDBN WILL START IN COLUMN 1 (1ST CARD)
//* 2. THE JOB-NAME WILL START IN COLUMN 1 (2ND CARD)
//* THE FORMAT IS JOB-NAME=JCAA.
//* 3. TYPE=FILE WILL START IN COLUMN 1 (3RD CARD)
//* *****************************************************************
//SYSIN DD DSN=AISSOS.RSPWARR.TBLINP.TEST(JCAA25),
// DISP=SHR
//*
//SYSIPT DD * *** CONSTANT CONTROL CARDS ***
DB-NAME=OSBDBN
/* END OF INPUT

This is the JCL that i am using.

The script inside the SYSIN "AISSOS.RSPWARR.TBLINP.TEST(JCAA25)"

JOB-NAME=
TYPE=WALK
JCFMI SN ** PL115B REMOVING HARDCODING
SG ** PL115B REMOVING HARDCODING

The Script available in JCLFLIN is

//A7JCFO77 JOB 00095ISS, POSTING TRIGGER FOR JCFO
// 'G3-PROD-APPL-SV',
// CLASS=P,
// MSGCLASS=I
/*ROUTE XEQ AE057
//*ROUTE PRINT CDAEISS
//*ROUTE PUNCH EVENDALE
//POSTJOB EXEC PROC=CA7SVC,COND=(0,NE)
//CA7DATA DD *
POST.FROM.JCAA.JCFO
D=POST.FROM.JCAA.TO.JCFO

Please check and help me to solve this error.

Your script within JCLFLIN looks as though it could be FTPing something but without knowing why your program OSBIB004 is using that file or what else it does I cannot say what is wrong although your messages seem to indicate a broken network link so maybe your network guys can help you on that.

I tried removing some of the data in the input file and i ran the job, it went fine. I think i do not have access to use IDM for large amount of data updatation.

If you can update 1 record you should be able to update any number. Maybe one of gthe records ypou removed is incorrect - have you tried processing the removed records?

yes, i tried, but it is aborting for next record. Yesterday i ran this job with empty file, then also this job abort with same error code with same error message.

Actually this program will take the data form input file and from database the update few more records. So, even though the input file is empty, it will pick the data from database the it will update in database.