Ouvrir un document en émulation PC

Pour ouvrir un document WORD en émulation PC depuis un AS400.

Ici on passe 2 variables :

1/ le paramètre "nom du fichier avec son extension" en paramètre d'entrée,

2/ la 2ième étant le chemin d'accès du fichier (1/) , cette valeur paramétrable se trouvant dans une dtaara nommée DTAREPFIC à partir de la position 10 de celle ci sur 100 caractères.

Le source du CLP :

Code:

 PGM PARM(&PARNMFIC)

DCL VAR(&PARNMFIC) TYPE(*CHAR) LEN(100)
DCL VAR(&CHMIN) TYPE(*CHAR) LEN(100)
DCL VAR(&COMNDE) TYPE(*CHAR) LEN(200)
DCL VAR(&CHMFIC) TYPE(*CHAR) LEN(200)
DCL VAR(&COMD) TYPE(*CHAR) LEN(5) VALUE('START')

/* DÉMARRAGE DE L'INTÉGRATEUR PC */
STRPCO
MONMSG MSGID(IWS4010)

/* RÉPERTOIRE PAR DÉFAUT */
RTVDTAARA DTAARA(DTAREPFIC (10 100)) RTNVAR(&CHMIN)

/* NOM FICHIER AVEC SON CHEMIN D'ACCES CONCATÉNÉ DEDANS */
CHGVAR &CHMFIC VALUE(&CHMIN *TCAT &PARNMFIC)

/* CONCATÉNATION DE LA COMMANDE ET DU NOM DE FICHIER COMPLET */
CHGVAR &COMNDE VALUE(&COMD *BCAT &CHMFIC)



/* EMULATION WINWORD.EXE POUR LE DOC */
STRPCCMD PCCMD(&COMNDE) PAUSE(*NO)
MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(FIN))

FIN: ENDPGM