IDMS error 1494

rohitcognizant · Posted: Sat Feb 23, 2008 9:05 pm

hi

i got an idms error 1494 when i was runnung a DB2-IDMS program
the spool out put after error was
LNK-DBNAME IS=DB03IROS
FOR SB
DB-STATUS AFTER BIND IS-1494

The following is the piece of cobol-idms code where it abended
MOVE 'DB03IRAS' TO LNK-DBNAME
DISPLAY 'LNK-DBNAME IS=' LNK-DBNAME
BIND RUN-UNIT DBNAME LNK-DBNAME

BIND SHAROWNER
DISPLAY 'FOR SB'
DISPLAY 'DB-STATUS AFTER BIND IS-' ERROR-STATUS
IF NOT DB-STATUS-OK
PERFORM IDMS-STATUS
END-IF

ON CHECKIN INTERNET I FOUND THAT THE DB NAME THAT I REFERENCED MAY NOT BE PRESENT IN THE DATABASE NAME TABLE

The following is my runjcl
//**jobcard statement
//**load libraries
//JOBLIB DD DSN=AT.W.TEST.LINKLIB,DISP=SHR
// DD DSN=AT.IDMS.LINKLIB,DISP=SHR
// DD DSN=SBT.S.STIDMSW.LINKLIB,DISP=SHR
// DD DSN=KEW.S.FASTSW.LOADON,DISP=SHR
// DD DSN=KEW.S.IDMS.LINKLIB,DISP=SHR
// DD DSN=ADB.W.DSNLOAD,DISP=SHR

//STTBDT05 EXEC PGM=IKJEFT01
//SYSTSIN DD *

DSNECP00 SYSTEM(DBB0)
RUN PROGRAM(DBNASTEM) PLAN(STPBSHRP)
END
//DBNAMES INCLUDE MEMBER=TDBLI66A &DBDDS
I1//DBJRNLTP DD DUMMY
I1//SYSIDMS DD DSN=ST.TEST.CARDLIB(DXKKLM18),DISP=SHR
I1// DD DSN=ST.TEST.CARDLIB(I16A),DISP=SHR
//DBJRNLTP INCLUDE MEMBER=TT1
I1//SYSJRNL DD DUMMY

//*INPUT FILES
//*OUTPUT FILES

THERE IS A DB2 ERROR OCCURING JUST BEFORE THIS STEP BUT I HAVE
RESET THE RETRIEVAL RESULT OF THE DB2 QUERY.i hope that return code wont pose any threat to IDMS bind.

CAN ANYONE HELP ME IN SOLVING THIS???

rohitcognizant · Posted: Sat Feb 23, 2008 9:08 pm

hi
these four line are there b/w the steps
JOBLIB & STTBDT05
/*JOBPARM K=0
/*ROUTE XEQ DBB0
/*ROUTE PRINT MBSST
// SET MODE=L <-

Thanks

puviarasu · New User Joined: 10 Mar 2008 Posts: 4 Location: India

Its A BIND ERROR .. BIND RUN-UNIT

The DBNAME specified does not match any DBNAME defined in the Database Name Table or any segment defined in the DMCL. The status also results if a DBNAME defined in the DBNAME TABLE is invalid.