Joined: 13 Feb 2007 Posts: 55 Location: Pune India
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.
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.
