Kaillou, Forum AS400

Forum AS400 et de discussions


    Ouvrir un document en émulation PC

    Partagez
    avatar
    Shewolf
    Admin

    Nombre de messages : 190
    Localisation : 91 idf
    Emploi : Analyste Réalisateur / Chef de Projets

    Ouvrir un document en émulation PC

    Message par Shewolf le Lun 12 Nov - 11:19

    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

      La date/heure actuelle est Lun 20 Nov - 1:49