AS400 Aprire da un CLP un file che risiede in rete

Allego un pezzo di codice (CLP) che serve per accedere ad un file che risiede su una cartella condivisa su una macchina in rete (windows o samba):

DCL        VAR(&PATH_AS) TYPE(*CHAR) LEN(512) VALUE(‘ ‘)
DCL        VAR(&PATH_PC) TYPE(*CHAR) LEN(512) VALUE(‘ ‘)
DCL        VAR(&LIB) TYPE(*CHAR) LEN(10) VALUE(‘<LIBRERIA_DATI>’)
MD DIR(‘/QNTC/<IP_MACCHINA_IN_RETE>’)
MONMSG MSGID(CPF0000)
CHGVAR     VAR(&PATH_PC) VALUE(‘/QNTC/<IP_MACCHINA_IN_RETE>/<NOME_SHARE>’)
CHGVAR     VAR(&PATH_AS) VALUE(‘/QSYS.LIB/’ *TCAT <LIBRERIA_DATI> *TCAT ‘.LIB/<NOMEFILEAS>.FILE/<NOMEFILEAS>.MBR’)
CPYTOSTMF  FROMMBR(&PATH_AS) TOSTMF(&PATH_PC) STMFOPT(*REPLACE) STMFCODPAG(*PCASCII)

A questo punto nella libreria <LIBRERIA_DATI> troveremo un file che si chiama <NOMEFILEAS> leggibile da qualunque programma nativo AS400.

Attenzione:

1) Il file in rete deve essere di tipo testo, se è un doc xls, odf o altro necessita di una conversione

2) le credenziali per accedere alla macchina in rete sono user e paassword dell’utente del lavoro attivo su AS400.

VN:F [1.9.22_1171]
Rating: 10.0/10 (1 vote cast)
VN:F [1.9.22_1171]
Rating: 0 (from 0 votes)
AS400 Aprire da un CLP un file che risiede in rete, 10.0 out of 10 based on 1 rating

Lascia un commento

*

Utilizzo i cookie per essere sicuro che tu possa avere la migliore esperienza sul mio sito. Se continui ad utilizzare questo sito assumo che tu ne sia felice.. maggiori informazioni

Questo sito utilizza i cookie per fonire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o clicchi su "Accetta" permetti al loro utilizzo.

Chiudi