Permet de concaténer plusieurs fichiers PDF pour créer un nouveau fichier PDF.
Le nombre maximum de PDF à concaténer avec la commande PDFCONCAT est de 104.
Vous serez sans doute obligé de changer la taille de Parm1 (voir Exemple 2).
Syntaxe
|
CHGVAR |
VAR(&CMD) VALUE('PDFCONCAT') |
|
CHGVAR |
VAR(&PARM1)
VALUE('"<path_file1>.pdf";"<path_file2>.pdf";
|
|
CHGVAR |
VAR(&PARM2) VALUE('Dest="Chemin PDF final"') |
|
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT) |
Paramètres
|
Paramètres |
|
|
Parm1
Parm2 |
Chemin complet (entre guillemets) des différents fichiers PDF à concaténer, séparés par des ';'.
|
Exemple 1
LNCCMD CMD(PDFCONCAT) +
PARM1('"C:\A\a.pdf";"C:\A\b.pdf";"C:\A\R_27+
WORD.pdf";"C:\A\c.pdf"') +
PARM2('Dest="C:\A\res2.pdf"')
Exemple 2
Vous pouvez utiliser la commande DIRLIST pour lister les PDF d’un répertoire, et les envoyer en paramètre de PDFCONCAT.
Dans cet exemple, la commande PROPERTY a été utilisée pour changer la taille des paramètres Parm1, Parm2 et Result, seulement pour la connexion en cours.
A la fin de la connexion, les paramètres par défaut sont appliqués.
PROPERTY n'a pas d'effet quand on utilise les commandes LNCCMD. Il faut utiliser l'appel de programme CALL PGM(LNCCMD).
Il faudra changer bien entendu la taille des variables.
La taille cumulée pour Parm1 et Parm2 ne doit pas dépasser 32700.
La taille pour Result ne doit pas dépasser 32700.
PGM
DCL VAR(&RES) TYPE(*CHAR) LEN(512)
DCL VAR(&OPT) TYPE(*CHAR) LEN(1)
DCL VAR(&HDL) TYPE(*CHAR) LEN(100) VALUE('*ONLY ')
DCL VAR(&PARM1) TYPE(*CHAR) LEN(31000)
DCL VAR(&PARM2) TYPE(*CHAR) LEN(1000)
DCL VAR(&LIST) TYPE(*CHAR) LEN(20000)
DCL VAR(&CNT) TYPE(*DEC) LEN(3) VALUE(0)
DCL VAR(&REP) TYPE(*CHAR) LEN(3000)
LNCOPEN
LNCCMD CMD(PROPERTY) +
PARM1('PARMSIZE(31000,1000,512)')
CHGVAR VAR(&REP) VALUE('C:\A\concat')
CHGVAR VAR(&LIST) VALUE(' ')
CHGVAR VAR(&PARM1) VALUE('PATTERN="*.pdf";PATH="' +
*TCAT &REP *TCAT '"')
CHGVAR VAR(&PARM2) VALUE('FIRST=TRUE')
CALL PGM(LNCCMD) PARM(&HDL 'DIRLIST' &OPT &PARM1 +
&PARM2 &RES)
IF COND(&RES *NE ' ') THEN(DO)
CHGVAR VAR(&LIST) VALUE(&LIST *TCAT '"' *TCAT &REP +
*TCAT '\' *TCAT &RES *TCAT '"')
CHGVAR VAR(&CNT) VALUE(&CNT + 1)
ENDDO
CHGVAR VAR(&PARM2) VALUE('FIRST=FALSE')
DOWHILE COND(&RES *NE ' ')
IF COND(&CNT *GT 1) THEN(DO)
CHGVAR VAR(&LIST) VALUE(&LIST *TCAT ';"' *TCAT &REP +
*TCAT '\' *TCAT &RES *TCAT '"')
ENDDO
CHGVAR VAR(&CNT) VALUE(&CNT + 1)
CALL PGM(LNCCMD) PARM(&HDL 'DIRLIST' &OPT &PARM1 +
&PARM2 &RES)
ENDDO
CHGVAR VAR(&PARM1) VALUE(&LIST)
CHGVAR VAR(&PARM2) +
VALUE('DEST="C:\TEMP\FINAL_CONCAT.PDF"')
CALL PGM(LNCCMD) PARM(&HDL 'PDFCONCAT' &OPT +
&PARM1 &PARM2 &RES)
LNCCLOSE
ENDPGM