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.