[sqr-users] Accessing multiple databases using the -DB option

[JOHN_HARRIS@qvc.com]

I am trying to connect to multiple databases using the -DB option.
I have an oracle table that stores my connect information; ODBC name,
username and password for each database.  I use the job factory to connect
to oracle, select the record that I need from the database, and put the id
and pw into $ variables.  The trouble is, the -DB option in the select is
not working at compile time.

Any suggestions would be greatly appreciated.

I am getting the following error:
      (SQR 1803) CONNECT failed.  Perhaps username/password incorrect.
      SQR: Program Aborting.

CODE:
BEGIN-PROGRAM
DO GET_VERTEX_DB_INFO
DO GET_DB2_DB_INFO
DO GET_THE_DATA_01
END-PROGRAM



BEGIN-PROCEDURE GET_VERTEX_DB_INFO
BEGIN-SELECT
MB_ID      &S_VERTQADB_ID
MB_TEXT    &S_VERTQADB_TEXT
    LET $VERTQADB_ID   = &S_VERTQADB_ID
    LET $VERTQADB_TEXT = &S_VERTQADB_TEXT
    LET $VERTQADB      = 'VERTQADB'
FROM MB_INFO
WHERE MB_TYPE_CD = 'VERTQADB'
END-SELECT
END-PROCEDURE

BEGIN-PROCEDURE GET_DB2_DB_INFO
BEGIN-SELECT
MB_ID      &S_LOCDBI0_ID
MB_TEXT    &S_LOCDBI0_TEXT
    LET $LOCDBI0_ID   = &S_LOCDBI0_ID
    LET $LOCDBI0_TEXT = &S_LOCDBI0_TEXT
    LET $LOCDBI0      = 'LOCDBI0'
FROM MB_INFO
WHERE MB_TYPE_CD = 'LOCDBI0'
END-SELECT
END-PROCEDURE

BEGIN-PROCEDURE   GET_THE_DATA_01
BEGIN-SELECT  -DB'DSN=$VERTQADB;UID=$VERTEX_DB_ID;PWD=$VERTEX_DB_PW'
              ON-ERROR=RECORD_SQL_ERROR ($SQL-ERROR,
                                        'MAJOR', '',
                                        'GET_THE_DATA_01')
ItemNBR         &S_ItemNBR
      DO GET_ITEM_DESC
FROM VERTADM.Rdbitemtype.Useritemidcode
END-SELECT
END-PROCEDURE

BEGIN-PROCEDURE GET_ITEM_DESC
BEGIN-SELECT -DB'DSN=$LOCDBI0;UID=$LOCDBI0_ID;PWD=$LOCDBI0_TEXT'
DESC    &S_ITEM_DESC
FROM    DESC_TABLE
WHERE   ITEM_NBR = &S_ItemNBR
END-SELECT
END-PROCEDURE

Thank you,
John


_______________________________________________
sqr-users mailing list
sqr-users@sqrug.org
http://www.sqrug.org/mailman/listinfo/sqr-users