Franco Lombardo

Ho già scritto su questo argomento, ma vorrei ricapitolare con maggiore chiarezza quanto è necessario fare in caso di mancato funzionamento della console oppure di impostazione errata della stessa (ad esempio spesso l’AS400 viene impostato con l’Operation Console di default anche quando la console è twinax).
In queste situazioni può essere necessario ricorrere alla funzione 65 + 21 + 11.
La funzione 65 + 21 + 11 è utilizzabile solo dal pannello.

1. Da pannello portare l’AS/400 in manuale (01 B M)
2. Selezionare la funzione 25 e invio
3. Selezionare la funzione 26 e invio
(Se il sistema risponde con 65 FF ripetere i passi 2 e 3)

Il pannello passa alla modalità avanzata.

La funzione 65 deve essere seguita entro 45 secondi da una funzione 21 e da una 11. Se passano 45 secondi, la funzione 21 forzerà il menù DST sulla console. A seconda dello stato dell’IPL, si potrebbero vedere dei cambiamenti sulla console se la console è ancora presente dopo la funzione 65.
Se le funzioni 65, 21 e 11 vengono richieste in meno di 45 secondi apparirà sul pannello un SRC: A6nn500A.
Ripetendo la funzione 65, 21 e 11 il sistema entra in modalità modifica in cui è possibile effettuare dei cambiamenti o eseguire delle operazioni. Dopo la seconda terna di 65, 21 e 11, sul pannello apparirà un altro SRC: A6nn500B per indicare il modo edit. A questo punto occorre ripetere la terna 65, 21 e 11 per incrementare “nn” all’interno dell’SRC . “nn” rappresenta quale operazione si intende eseguire.
A questo punto un singolo 21 indicherà la selezione della funzione.
L’SRC diventerà A6nn500C per indicare che la funzione è stata selezionata correttamente.
Se ogni volta che si effettua una funzione 65 e 21 si eccedono i 45 secondi o tra due 21 successivi, appare un SRC A6nn500D che indica il raggiungimento del time out e l’uscita dal modo edit. In questo caso per effettuare una modifica, occorre ripartire da capo.
L’uscita immediata dall’edit può essere effettuata con una funzione 66.
Ecco i codici di riferimenti (“nn”):

00 Nessuna console definita
01 Console twinax
02 Operation console diretta
03 Operation console di rete
04 Hardware management console
C3 Reimposta configurazione LAN
A3 Disattivazione e riattivazione della scheda di rete Operations Console

Utilizzando i codici C3 e A3 è possibile azzerare le impostazioni di rete dell’Operations Console

Cancellare la password del device Operations Console

Per cancellare la password dell’Operations Console, usare la procedura seguente.

1. Portare la console in modalità avanzata (vedi sopra)
2. 65 + invio. Il sistema dovrebbe rispondere con 65 00. Potrebbe essere necessario utilizzare la funzione 11 per mostrare i risultati (D1008065).
3. 13 + invio. Il sistema presenta due righe di valori numerici. La prima termina con una cifra che rappresenta il numero esecuzioni della funzione 65. Dovremo incrementare fino a 7 questo valor. La seconda riga 00000001 fino a quando non sono state eseguite le 7 funzioni 65, 00000000 al raggiungimento della settima iterazione.
4. Ripetere i passi 2 e 3 per 7 volte. Si hanno 5 minuti per concludere l’operazione.

Uso questo post come promemoria per l'elenco delle porte usate da IBM Client Access, conosciuto anche come IBM i Access.
Ricapitolando, le porte indispensabili per l'emulazione video sono

• Server Mapper - 449
• License Management - 8470
• Signon Verification - 8476
• Telnet - 23

Per ODBC/JDBC

• Server Mapper - 449
• Signon Verification - 8476
• Database - 8471

Ecco l'elenco completo delle porte

Per copiare la definizione delle stampanti (o in generale di device) da un AS400 ad un altro è possibile seguire il procedimento seguente.

Sull'AS400 di partenza digitare

SAVCFG TAP01

dove TAP01 è l'identificativo dell'unità nastro da utilizzare (è possibile far ricorso anche ad un save file)

Sull'AS400 di destinazione, dopo aver inserito il nastro su cui la configurazione di partenza è stata memorizzata, digitare

RSTCFG OBJ(NOME_STAMPANTE)  DEV(TAP01)  OBJTYPE(*DEVD)  SRM(*NONE)

Si noti che NOME_STAMPANTE può essere generico: ad esempio PRT* indica tutte le stampanti il cui nome inizia per PRT.

ATTENZIONE: È MOLTO IMPORTANTE INDICARE IL PARAMETRO SRM(*NONE), altrimenti la configurazione ripristinata potrebbe essere inutilizzabile.

In alcuni casi i device potrebbero non essere ripristinati perché il nome dell’unità di controllo è differente tra i due sistemi. In questo caso occorre quindi ripristinare anche l’unità di controllo con il comando:

RSTCFG OBJ(NOME_UNITA_CONTROLLO)  DEV(TAP01)  OBJTYPE(*CTLD)  SRM(*NONE)

- Collegarsi con l'utente QSECOFR di sistema operativo.

- Digitare dalla riga comandi STRSST

- Inserire l'utente e password di manutenzione DST richiesti

Type choice, press Enter.  

Service tools user ID. . . . . QSECOFR
Service tools password . . . xxxxxxx (case sensitive)

- Selezionare Start a service tool / Avvio di un programma di manutenzione
(opz.1)

- Selezionare Hardware Service manager / Programma di manutenzione hardware
(opz.7)

- Selezionare Work with service action log / Gestione delle registrazioni
delle azioni di assistenza (opz.6)

- Dare la data di inizio ricerca errori più vecchia possibile (installazione del sistema ) fino alla data attuale, quindi invio.....

- Verificare gli errori che appaiono sul sito INFOCENTER

- Spegnere la luce di attenzione facendo l'acknowledge dei problemi
F6=Acknowledge All Errors / Ricezione di tutti gli errori

- Rimuovere tutti gli errori presenti , uno alla volta, utilizzando l'opzione 8 di Close (Chiusura) e poi 9 di Delete (Cancellazione).
Se non ci sono errori nella pagina ma è presente la funzione F6 fare comunque l'acknowledge per spegnere la luce.
Verrà richiesto un F10 di conferma

- Una volta eseguito l'Acknowledge(Ricezione) appare sul fondo della videata la scritta: All errors have been acknowledged / Tutti gli errori sono stati ricevuti (a questo punto la luce si dovrebbe essere spenta)

A volte nei log di sistema dei server Windows che convivono in una subnet con un AS400 può comparire il seguente errore:

"The browser driver has received too many illegal datagrams from the remote computer YOUR_AS400_NAME to name xxxx on transport NetBT_Tcpip_{DF3149C4-A44D-493F-BD8C-BE3B. The data is the datagram. No more events will be generated until the reset frequency has expired."

Il problema può essere risolto eliminando la spunta da "Invia annunci di ricerca" dalla configurazione del NetServer in iSeries Navigator.

I know that AS400 gives its own native support to Tomcat and other application servers, but it does it in the IBM style: intricate and rigid. What if, for example, I need to use a version of Tomcat that it is not shipped with my operating system?
Here is one possible answer:

1) Download a copy of Apache Tomcat and unzip it in a directory of the Integrated File System of AS400.

2) In another directory of the Integrated File System Create a text file named tomcat with a simple script like this:

#! /bin/sh

#The path of the JDK you want to use
export JAVA_HOME=/QOpenSys/QIBM/ProdData/JavaVM/jdk60/32bit
#The JVM option you want to use
export JAVA_OPTS='-Djava.awt.headless=true'

#Put here the pat of the tomcat directory
export CATALINA_HOME=/path/to/tomcat/directory

export PATH=$CATALINA_HOME/bin:$PATH
if [ "$1" == "stop" ] ; then
    echo "Stopping..."
    shutdown.sh
else
    echo "Starting..."
    startup.sh
fi

3) In a 5250 session (or in a batch job) execute this command

QSH CMD('/path/to/my/script/tomcat')

Your Tomcat should be alive and kicking

4) In order to shut down Tomcat, use this command

QSH CMD('/path/to/my/script/tomcat stop')

Enjoy with Tomcat and AS400!!!

Nei giorni scorsi uno degli AS400 (V5R3) che contribuisco a gestire non ha effettuato il consueto riavvio mattutino. Sul pannellino era presente il codice SRC B150F22A. Il tentativo di un IPL manuale falliva con il medesimo codice di errore. Ecco come, con l'aiuto del supporto IBM, ho cercato di rianimarlo.

Il codice SRC indicava un errore nel Service Processor, la scheda che controlla la macchina prima ancora dell'avvio del sistema operativo OS400 (i5OS o IBM i che dir si voglia).

Come prima misura, ho tentato di riavviare la macchia dopo aver tolto la spina, cos� come riportato in questo articolo IBM. Ovviamente la cosa non ha avuto successo.

Il secondo tentativo � stato quello di resettare il Service Processor premendo con la punta di una graffetta il micro interruttore posto nel forellino a destra del tasto di accensione. Anche in questo caso non ho avuto fortuna.

La terza prova � stata quella di effettuare un reset totale del Service Processor interrompendo l'alimentazione della batteria tampone.

Per effettuarla ho aperto la macchina ed estratto la scheda del Service Processor, premendo le due levette viola che la bloccano.

Ho quindi introdotto un foglio di carta sotto la graffetta che fissa la batteria tampone, al fine di interrompere per qualche decina di secondi l'alimentazione ai circuiti.

A questo punto la macchina si � riavviata con successo!

Una nota. La macchina effettua il primo IPL dopo il reset in modo manuale. Occorre quindi disporre della console. Inoltre state attenti alle impostazioni di data/ora fusorario ed ora legale. Nel mio caso, infatti, non ho impostato correttamente tali parametri ed al mattino successivo la macchina non si � riavviata in quanto il suo orologio era indietro di un paio d'ore.

Ho trovato un utile blog su Ubuntu, nel quale � possibile leggere diversi articoli interessanti relativi alla connessione ad AS400 da sistemi Linux. Ecco alcuni link:

• Connettersi ad un sistema AS400/iSeries via tn5250
• Connettersi ad un sistema AS400/iSeries via IBM iSeries Access
• Accedere ad un database su AS400/iSeries via ODBC
• Accedere ad un database su AS400/iSeries con OpenOffice

In un bellissimo articolo su IT Jungle ho trovato un interessante trucco. Il problema � quello di inserire i dati in una tabella, solo nel caso non esista gi� una chiave uguale, utilizzando un solo prepared statement. Ecco la soluzione

 
INSERT INTO myTable
(KEY, code, name)
SELECT Cast(? AS Int),
       Cast(? AS VarChar(30)),
       Cast(? AS Char(10))
  FROM SYSIBM.SysDummy1
 WHERE NOT EXISTS
    (SELECT 1
       FROM myTable
      WHERE KEY=?)

con il relativo codice Java che ne fa uso:

 
Connection conn=DriverManager.getConnection("jdbc:as400://myas400;naming=sql","user","pwd");
String sql="Insert Into myLib.myTable (key, code, name) " +
  "Select Cast(? As Int)," +
  "       Cast(? As VarChar(30))," +
  "       Cast(? As Char(10))" +
  "  From SysIBM.SysDummy1 " +
  " Where Not Exists " +
  " (Select * " +
  "    From myLib.myTable " +
  "   Where key=?)";
PreparedStatement ps=conn.prepareStatement(sql);
ps.setInt(1, 3);                // Column 1
ps.setString(2, "Test It");   // Column 2
ps.setFloat(3,"Fun");         // Column 3
ps.setInt(4, 3);               // Where Clause
ps.execute();                  // Run the statement
ps.close();
conn.close();

Per verificare la quantit� di memoria RAM installata su AS400, andare al men� HARDWARE con il comando
GO HARDWARE
quindi utilizzare la chiave

4. Gestione delle risorse del processore


Il che equivale al comando

WRKHDWRSC *PRC


La RAM � rappresentata dalle ultime righe, simili a

MS01 30D2 Operativo Scheda memoria princi
MS02 30D2 Operativo Scheda memoria princi
MS03 30D2 Operativo Scheda memoria princi
MS04 30D2 Operativo Scheda memoria princi

L'opzione 7 a fianco di ogni riga mostra la dimensione del modulo di memoria installato.