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.
Add new attachment
Only authorized users are allowed to upload new attachments.