!! Leggere un database da un sistema non Iseries !!
In questo esempio vediamo come da un programma RPG con SQL Embedded leggiamo un Database DB2 residente su un sistema Linux nella rete locale dell'azienda:

!! Creare una connessione al DB nel DRDA !!

ADDRDBDIRE RDB(MIODB MIODB) RMTLOCNAME('192.168.X.X' *IP) TEXT('Collegam
ento a DB su Linux') PORT(XXXX) RMTAUTMTH(*USRIDPWD)   

!! Prestare attenzione la CSID !!

Per i sistemi Linux modificare il CCSID del Job a 280 con il comando
CHGJOB CCSID(280)

!! Creare il programma SQLRPLE !!
Riporto qui sotto un esempio di programma molto semplice ...



{{    :DWRSLT                    \\
      DRAWER=DRAWER1           \\
/*    DATA ='1B266C3448'X. */  \\
      DATA ='1B266C3148'X.     \\
    :DWRSLT                   \\
      DRAWER=DRAWER2          \\
/*    DATA ='1B266C3148'X. */ \\
      DATA ='1B266C3448'X.    }}