PGM        PARM(&CUSTID))

             DCL        VAR(&CUSTID) TYPE(*CHAR) LEN(5)

             /* Envoyer le fichier des commandes à Word */
             /* Le modèle Word sélectionne les commandes de chaque client  */
             LNCXFER    PCFILE('%LNCDIR%\SAMPLES\SP_ORD.TXT') +
                          FROMFILE(SP_ORD) CLOSECOM(*NO)

             /* Selectionne l'enregistrement CLIENT */
             OPNQRYF    FILE((SP_CUST)) QRYSLT('CUST_ID=' *CAT &CUSTID)
             OVRDBF     FILE(SP_CUST) SHARE(*YES)
             /* Fusionne l'enregistrement Client sélectionné avec le modèle */
             LNCPRTDOC  DOC(S_02WORD.DOC) FLR('%LNCDIR%\SAMPLES') +
                          MRGTYPE(*FILE) FROMFILE(SP_CUST) +
                          OUTPUT(*) OUTSAVE(*NO) SHOWDOC(*YES) +
                          EXESRV(*CURRENT) ENDOPT(*CON) +
                          WORDPATH('%LNCDIR%\Samples')
             /* Ici, le document est complet et affiché */
             CLOF       OPNID(SP_CUST)
             OVRDBF     FILE(SP_CUST) SHARE(*NO)

 FIN:        ENDPGM