Newsgroup: it.comp.appl.notes-domino
Titolo: Notes ed AS400

Qualcuno sa dirmi quali modi ci sono (ed eventualmente come documentarmi)
per portare dati da un As/400 ad un db Notes?
The easier, the better   ;-)))
Grazie e ciao.

per portare dati da un As/400 ad un db Notes?
Io per il momento sto cercando di scrivere un'applicazione in Lotus
Script che importi e spedisca dei file di testo spediti dall'AS alla
macchina NT con Domino via ftp.
E' un macello.
Se qualcuno avesse già fatto qualcosa si simile sarebbe interessante
parlarne.
Ciao.
Bye,
   Ricky



Tramite ODBC, Notes Pump (troppo costoso), DECS (già incluso in domino 4.6.3
o superiore), MQ Series di IBM.
Con ODBC posso passarti un esempio in Lotus Script...


Anche se non conosco granchč Lotus Script mi farebbe molto piacere per farmi
un'idea.
La mia  mail č: 
ccao...@eliminagoldnet.it
 (senza elimina)
Grazie 1k.




per portare dati da un As/400 ad un db Notes?


Vi scrivo le mie impressioni, premettendo che queste procedure le faccio
giornalmente....
ODBC: lento.
NotesPump: valido ma costoso.
DECS: praticamente un fulmine e GRATIS dalla 4.6.3 perchè compreso in Notes.
Con la R5 ha avuto molte ottimizzazioni ed è veramente utile.
IDB DB2: mai sentito parlare di questo? questo prodotto è fine a se stesso,
visto che è un vero e proprio gestore di db relazionali. In poche parole con
DB2 importo in un db i dati dall'HOST e poi con Notes leggo il db di DB2.
Non è gratis, visto che è un prodotto che fa tante altre cose.
Client ACCESS: so' che esiste ma non so' darvi tante delucidazioni. Da non
confondere con MS ACCESS... chiaro....
Comunque per parlare di queste cose, si deve analizzare bene la situazione e
verificare le necessità. Prima di segliere il prodotto da utilizzare,
infatti, si deve ben definire la tipologia di scambio dati, cioè se deve
avvenire solo una LETTURA delle informazioni sull'HOST da parte di Notes,
oppure se i dati dell'HOST devono anche essere aggionati da Notes e
viceversa. In base a questo, si deciderà poi la strada migliore.
Saluti.
sh...@libero.it

 giornalmente....



wrote:
Se vi dicessi che anch'io sono interessato sia all'oggetto Script che
alle informazioni su Decs, sono troppo ingordo?
Grazie.

Ciao 
TL14!
------------
Se la fortuna e cieca,
la sfiga ci vede benissimo
e a volte piglia pure la mira
------------

 wrote in message
7tfnjj$3tm$1...@fe2.cs.interbusiness.it...


Usare Decs è veramente semplice...non sono esperto di decs, come voi ho
chiesto una dritta, ho eseguito pochi passi ed ha funzionato.
La prova l'ho fatta con DB/400, Domino/400 4.6.3 e Client 4.6.3
Adesso ho installato la 5 sia su AS400 che sul client ma mi becco un errore
in un wizard che guida nella configurazione del decs.
1) LOAD DECS dalla consol del server...potreste beccarvi un messaggio per la
mancanza di una variabile nel file ini...riceverete un messaggio con le
istruzioni.
2) Dal client aprite l'archivo del decs Administrator
3) Eseguite i passi descritti nel navigatore dell'archivio
In sostanza si deve:
1) configurare una connessione
2) usare questa connessione
3) specificare l'archivio notes e as400 da tenere allineati
4) quali sono i campi notes e as400
5) attivare la connessione
saluti

Scusate il ritardo...
Pensando di fare cosa gradita "posto" un'esempio di script. Premetto che
programmare in script non è la mia attività principale.
Questo esempio importa l'output del comando OS/400 DspFFD...
==================
Option Public
Uselsx "*lsxodbc"
==================
 Dim workspace As New NotesUIWorkSpace
     'Creazione oggetto AS400 per la classe ODBCConnection
 Dim AS400 As New ODBCConnection
     'Creazione dell'oggetto qry per la classe OdbcQuery
 Dim qry As New OdbcQuery
     'Creazione dell'oggetto result per la classe ODBCResultSet
 Dim result As New OdbcResultSet
     'Creazione oggetti necessari alla creazione di documenti nel database
corrente
 Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim doc As NotesDocument
 Dim chiave As String
 Dim retval As Variant
 Dim fileas400 As String
 Set db=session.CurrentDatabase
' DspFFD è una vista notes....
 Set view = db.GetView( "DspFFD" )
'     Goto dopo
     ' File di lavoro creato da...
 fileas400="SELECT
WHFILE,WHLIB,WHNAME,WHTEXT,WHFLDN,WHRLEN,WHFLDE,WHFLDB,WHFLDD,WHFLDP,WHFTXT,
WHCHD1,WHCHD2,WHCHD3,WHFLDT from DspFFD WHERE WHFILE='MOAZ200F' OR
WHFILE='RCONS00F'"
     'Mette in piedi la connessione con il file sull'AS/400 usando il DSN
AS400DB definito in ODBC32 Administrator
 Print "Connecting to AS400 system..."
 If Not AS400.ConnectTo("AS400DB") Then
  Messagebox "Manca la connessione all'AS/400 !"
  Exit Sub
 End If
 Print "Connected to AS400 system."
     'Collega l'oggetto qry con l'oggetto connessione
 Set qry.Connection=AS400
     'Imposta la query
 Print "Running  query on to AS400 system..."
 qry.SQL=fileas400
     'Collegamento tra l'oggetto result e l'oggetto qry
 Set result.Query=qry
     '  ????
 If Not result.Execute() Then
  Messagebox "Errore nell'esecuzione della SELECT !"
  Exit Sub
 End If
 Print "Elaborating query result..."
 Do
          'Scorre i records reperiti
  Call result.NextRow()
  If result.GetValue("WHFILE")<>"" Then
   Set doc = db.CreateDocument
   doc.form="DspFFD"
   doc.WHFILE=result.GetValue("WHFILE")
   doc.WHLIB=result.GetValue("WHLIB")
   doc.WHNAME=result.GetValue("WHNAME")
   doc.WHTEXT=result.GetValue("WHTEXT")
   doc.WHFLDN=result.GetValue("WHFLDN")
   doc.WHRLEN=result.GetValue("WHRLEN")
   doc.WHFLDE=result.GetValue("WHFLDE")
   doc.WHFLDB=result.GetValue("WHFLDB")
   doc.WHFLDD=result.GetValue("WHFLDD")
   doc.WHFLDP=result.GetValue("WHFLDP")
   doc.WHFTXT=result.GetValue("WHFTXT")
   doc.WHCHD1=result.GetValue("WHCHD1")
   doc.WHCHD2=result.GetValue("WHCHD2")
   doc.WHCHD3=result.GetValue("WHCHD3")
   doc.WHFLDT=result.GetValue("WHFLDT")
   Call doc.Save (True,True)
  End If
 Loop Until result.IsEndofData
' dopo:
 Call workspace.ViewRefresh
 Print "Record imported"