Kaillou, Forum AS400

Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Kaillou, Forum AS400

Forum AS400 et de discussions

-34%
Le deal à ne pas rater :
-34% LG OLED55B3 – TV OLED 4K 55″ 2023 – 100Hz HDR 10+, ...
919 € 1399 €
Voir le deal

    Ouvrir un document en émulation PC

    Shewolf
    Shewolf
    Admin


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

    Ouvrir un document en émulation PC Empty Ouvrir un document en émulation PC

    Message par Shewolf 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 Ven 29 Mar - 8:00

      Ne ratez plus aucun deal !
      Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
      IgnorerAutoriser