× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I have the following 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


As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.