SQL: Connecting to a remote system

[rob@xxxxxxxxx]

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Trying midrange-l, since maybe more people there are familiar with SQL and
remote connections in general, (and the fact that I got zero responses on
the RPG list).


I have the following RPG code:
     ...
     C/EXEC SQL
     C+ connect to :iSeries
     C/END-EXEC
      /free
        Select;
        When sqlstt='08002';  // connection to relational database already
exists
        When sqlcod<>*zeros;
         sqlstt=sqlstt;  // for debugging purposes
         return;
        EndSl;
       EndSl;  // not *LOCAL.

       // An alias is often used to override to a specific member of a
file.  We
       // will create one and we want to ensure that one does not
currently
       // exist.
       // Also, if there is a file by the same name as the alias, but it
is not
       // an alias, we want to make sure it is deleted.
      /end-free
     C/EXEC SQL
     C+ Drop Alias qtemp/dt1
     C/END-EXEC
      /free
       Select;
     ...
SQLSTT is equal to '51002' after the DROP statement
Looking at
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/rzala/rzalafinder.htm
I see that I need to create a SQL package.  Thus I ran:
CRTSQLPKG PGM(ROB/DIRDPR) RDB(GDI) USER(ADOPT)
PASSWORD(wouldn'tyouliketoknow)
But that bombs with the following messages:
CPD83EA-Allocation error received for location GDI device GDI.
CPF4734-Evoke function...rejected., error code X'080F6051'
CPF9162-Cannot establish DDM connection with remote system.
SQ30080-Communication error occurred during distributed database
processing.
SQL9004-Create of SQL package failed.
A spool file is also generated.  It contains,
MSG ID  SEV  RECORD  TEXT
SQ30080  30          Communication error occurred during distributed
database
                     processing.
SQL5056              SQL package creation for module DIRDPR failed.
Package
                     name was to be DIRDPR in ROB at GDI.


WRKRDBDIRE
Relational          Remote
Database            Location
ROB                 ROB
GDISYS              *LOCAL
GDI                 GDI
GDIHQ               GDIHQ



Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.