Newsgroup: it.comp.lang.visual-basic
Titolo: VB e As/400

Salve,
ho realizzato un piccolo software che fa dei calcoli su un database e
crea delle scritture contabili rispettando un tracciato record di
importazione e restituendo il tutto in un file .txt.
Questo file manualmente, tramite una procedura lo importo nell'as400.
Che possiibilità c'è per automatizzare questa operazione? Cioè, in che
modo posso far accettare il file all'as400 direttamente da VB?
Attualmente entro in una sessione ed in un menu' specifico di
immissione dati dico qual'è il path del file txt da importare. Poi
confermo e avviene l'importazione.
Thanks!!!

Il 3/13/2003 5:07 PM, Yachi scrisse:

Io ho fatto un programma vb che genera dei files per l'immissione di 
massa in as400. La persona che si occupa di as400 ha fatto dei 
programmini che permettono di fare l'immissione di massa in automatico 
sfruttando qualche meccanismo di avvio di programmi batch. Non so dirti 
se si possa inviare direttamente un comando da vb ad as400.
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!


wrote:

Mi puoi mandare qualcosa per prendere spunto?

 Thanks!!!
ciaociao

 ha scritto nel messaggio
news:mfb17vca4jp21ci3g...@4ax.com...

Utilizzando una connessione ADO al server AS/400 sono riuscito a lanciare un
programma passando dei parametri
e ricevendo eventualmente di ritorno dei valori (utilizzo un command)
Appena trovo il codice te lo posto...
Fabio

Tramite ADO e il provider IBMDA400 puoi accedere in maniera trasparente a
tutti i dati (DB2) presenti su un AS/400.
Io ho realizzato qualche programma per un nostro gestionale che risiede su
AS/400 e qualcosa per ACG senza nessun problema.
Ti allego un semplice esempio per accedere all'AS/400 e leggere una tabella,
per scrivere cambia veramente poco!
 conn.Open "Provider=IBMDA400;Data Source=" & strNomeSistema & ";",
strUtente, strPassword
 Set cmdCount.ActiveConnection = conn
 strSQL = "SELECT COUNT(HTPDOC) AS TOTREC" _
          & " FROM " & strLibreria & ".DBOTT00F" _
          & " WHERE HDTDOC <= " & Format(dtpDataMaster.Value, "yyyymmdd") _
          & " AND HFLAG1 <> 'S'"
 cmdCount.CommandText = strSQL
rsCount.CursorLocation = adUseServer
rsCount.Open cmdCount, , adOpenStatic, adLockBatchOptimistic
Comunque anche l'idea delle code dati non č male io l'ho sfruttata per
stampare gli scontrini da AS/400 su un registratore di cassa collegato ad un
PC ed č notevole come soluzione: molto piů performante dell'accesso con ADO
e molto meno codice da gestire.
Ciao, Vincenzo

 modo posso far accettare il file all'as400 direttamente da VB?
Se ti interessa io l'ho fatto  accedendo ad AS tramite CLIENTACCESS con ado.
Una volta che hai installato ti connetti ad AS400 come fosse un tuo normale
Db e ci
fai quello che vuoi (con grave disappunto dell'amministratore AS che mi
guarda sempre
male quando glielo ricordo...).
Alex

 Mi puoi mandare qualcosa per prendere spunto?
I programmini di cui sopra sono stati fatti da un programmatore as400, 
non in vb, per cui non ti posso dare niente.
Segui gli altri consigli del thread ...



Si, si possono inviare comandi all'AS400 da VB. Ho fatto una procedura che
dopo il rientro in remoto degli ordini da ogni agente, lancia una procedura
di rientro sul gestionale AS/400 solo se effettivamente sono rientrati tutti
gli archivi necessari (ci sono delle API del CA che ti permettono di vedere
se esiste una libreria, crearla o cancellarla).
Ciao, Vincenzo


Questo 'menù specifico' non è altro che una chiamata ad una procedura CL o
RPG dell'AS/400, che va a prendere il txt e lo importa.
Quindi, in linea di massima, questo menù non fa altro che fare una chiamata
che potresti fare con un comando di consolle amministratore (quelle cose
terribili tipo RUNCMD F4 CDDADM....).
Ed ecco la soluzione più gnocca: accedi all'AS/400 con una sessione FTP
(vedi oggetto winsock), con un account opportunamente autorizzato, fai
switchare la sessione FTP in modalità admin (qualcosa tipo RMTCMD o RUNRMT),
ed esegui come se tu fossi in una sessione admin di AS/400.
Il SA dell'AS/400 avrà sicuramente documentazione sul servizio FTP
supportato.
Ciao
Alberto
--
E non so se avrò gli amici a farmi il coro,
o se avrò soltanto volti sconosciuti,
canterò le mie canzoni a tutti loro
e alla fine della strada
potrò dire che i miei giorni li ho vissuti...