Esempio pratico
A questo punto l'ambiente è pronto per poter utilizzare classi Java per accedere al DB2400, il primo sorgente mostrato è la
classe "driver" che gestisce tutte le chiamate di tipo locale o remoto verso il DBMS.
 

 /** 
 * ----------------------------------------------------------------------------- * 
 * AS400 - Classe Driver di accesso Remoto e Locale al DB2 AS/400 
 * ----------------------------------------------------------------------------- * 
 */

 import java.io.*; 
 import java.sql.*; 
 import com.ibm.as400.access.*; // package tollbox for Java 
 import com.ibm.db2.jdbc.app.*; // package dev. kit for Java 
 

 public class DB2Access {

 static Connection AScon 

 Statement stmt; 
 ResultSet rs; 
 ResultSetMetaData rsmd;

 String hostname = new String("10.100.0.10"); // IP address per acccesso Remoto 
 String db2name = new String("DB2"); // Nome indirizzario as400 (WRKRDBDIRE) per accesso Locale

 // Se utente non è specificato verrà presentata automaticamente una finestra con la richiesta utente 
 String user = new String("QPGMR"); // nome utente AS400 di default 
 String pwrd = new String("QPGMR"); // password utente AS400

 AS400 ASname = new AS400(hostname); 
 

 /** 
 * Costruttore per accesso Remoto (richiamato per default) 
 */ 
 public DB2Access() {

 // Apre connessione con AS400 se necessario 
 try {

 if ((AScon == null) || (AScon.isClosed())) { // se la connection è close >> open connessione 
 DriverManager.registerDriver(new AS400JDBCDriver()); // registro il driver 
 AScon = DriverManager.getConnection("jdbc:as400://" + ASname, user, pwrd); // accesso remoto 
 }

 } catch (SQLException ex1) { 
 System.out.println ("SQLException : " + ex1.getMessage()); 
 } 

 } // end DB2Access() 
 

 /** 
 * Costruttore per Accesso Locale (da specificare passando parametro char "L") 
 */ 
 public DB2Access(char local) {

 // Apre connessione con AS400 solo se necessario cioè se non aperta già in precedenza 
 try {

 if ((AScon == null) || (AScon.isClosed())) { // se la connection è close >> open connessione 
 DriverManager.registerDriver(new DB2Driver()); // registro il driver 
 AScon = DriverManager.getConnection("jdbc:db2://" + db2name, "", ""); // accesso locale 
 }

 } catch (SQLException ex1) { 
 System.out.println ("SQLException : " + ex1.getMessage()); 
 } 

 } // end DB2Access() 
 

 /** 
 * Esegue la query SQL - è richiesto la stringa della query e della fonte dati 
 */ 
 public void ExecStmt(String query) {

 try { 
 stmt = AScon.createStatement(); // prepare dello statement 
 rs = stmt.executeQuery(query); // esegue statment SQL e restituisce i dati 
 rsmd = rs.getMetaData(); // recupera le caratteristiche dei campi estratti

 } catch(SQLException ex) { 
 System.out.println ("\n*** SQLException catturata ***\n"); 
 while (ex != null) { 
 System.out.println ("SQLState: " + ex.getSQLState ()); 
 System.out.println ("Message: " + ex.getMessage ()); 
 System.out.println ("Code: " + ex.getErrorCode ()); 
 ex = ex.getNextException (); 
 System.out.println (""); 
 } 
 } 

 } // end ExecStmt() 

 

 /** 
 * Chiusura statement accesso SQL 
 */ 
 public void CloseStmt() {

 // Chiusura SQL 
 try { 
 rs.close(); 
 stmt.close(); 
 } catch (SQLException ex) { 
 System.out.println ("SQLException : " + ex.getMessage()); 
 } 
 } // end CloseStmt() 
 

 /** 
 * Chiusura connessione verso DB2 
 */ 
 public void CloseCon() {

 // Chiusura servizio AS400 per accesso a FILE 
 ASname.disconnectService(AS400.FILE); // importante per non lasciare appeso il servizio

 try { 
 AScon.close(); 
 } catch (SQLException ex) { 
 System.out.println ("SQLException : " + ex.getMessage()); 
 } 
 } // end CloseCon() 
 

 } // end Class DB2Access

Da evidenziare l'overloading del costruttore attivato a seconda dei parametri passati nella dichiarazione della classe (parametro L=locale, blank=remoto) e l'apertura della connection che viene controllata ed è effettuata una sola volta in modo da ottimizzare le performance di accesso; il resto del codice dovrebbe essere comprensibile leggendo le note. 
Il secondo sorgente serve solo ad istanziare la classe "driver", comporre la query SQL da eseguire e mostrare a video il contenuto di un file DB richiesto. 
 

 /** 
 * ------------------------------------------------------------------------- * 
 * DataBase access to DB2 to system as400 
 * 
 * esempio di chiamata : java ReadDB R agfdev.qsmesrc 
 * ------------------------------------------------------------------------- * 
 */

 import java.io.*; 
 import java.sql.*;

 import DB2Access.*;

 public class ReadDB2 {

 public static void main(String[] args) throws IOException {

 DB2Access aaa; 
 String query; 
 char car;

 if (args.length < 2) 
 System.out.println("Manca TIPO ACCESSO (L/R) e/o nome/i LIBRERIA.FILE da visualizzare !!!"); 
 else { 
 query = new String("SELECT * FROM " + args[1]);

 if ((args[0].compareTo("L") == 0) || (args[0].compareTo("l") == 0)) 
 aaa = new DB2Access('L'); // accesso locale 
 else 
 aaa = new DB2Access(); // accesso remoto 

 // Visualizza risultato 
 aaa.ExecStmt(query); 
 try { 
 int numberOfColumns = aaa.rsmd.getColumnCount(); 
 while (aaa.rs.next()) { 
 // estrazione dati riga distinta tavola 
 for (int i = 1; i <= numberOfColumns; i++) { 
 System.out.print(aaa.rs.getString(i)); // visualizzazione brutale del contenuto del record del file DB richiesto 
 } 
 System.out.println(); 
 } 
 } catch(SQLException ex) { 
 System.err.println("SQLException: " + ex.getMessage()); 
 } 
 aaa.CloseStmt();

 aaa.CloseCon(); 
 } 

 } 
 } // end Class

Conclusioni
Spero che questo articolo possa essere di aiuto a molti per poter iniziare ad utilizzare Java per programmare su as400 cercando di abbandonare, gradualmente s'intende, i linguaggi tipici fino ad oggi utilizzati (RPG, COBOL); certo le performance di Java su as400 non sono ancora paragonabili a quelle dei linguaggi tradizionali ma e bene abituarsi e cominciare perchè, a mio avviso, in breve tempo anche questo ostacolo verrà risolto ed allora si potrà sfruttare a pieno tutta la potenzialità di questo linguaggio "rivoluzionario". 

Bibliografia
[1] Mauro Molino, "AS/400 ToolBox for Java", Dec. 1998. 
[2] Michele Sciabarrà, "AS/400 e Java primi passi di eCommerce", Mar. 1999. 
[3] sito IBM http://www.as400.ibm.com/tstudio/java .