Commande ENUMPRT

Liste les imprimantes installées sur le PC Windows.

Chaque appel à ENUMPRT retourne dans &RESULT la description d’une imprimante.

Syntaxe

CHGVAR	VAR(&CMD) VALUE('ENUMPRT')
CHGVAR	VAR(&PARM1) VALUE(' [ First=True / False ] [; NameOnly=True / False ] [; Close=True ; False ] ')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

Paramètres

Parm1

First : Vrai pour initialiser le listage, et recevoir la description de la première imprimante.
Si First est faux, &RESULT contiendra la description de l’imprimante suivante.

NameOnly : Si NameOnly est vrai, la variable &RESULT ne contiendra que le nom de l’imprimante.
Sinon, &RESULT contient une description sous la forme :

Printer="Nom de l’imprimante";Server="Nom du serveur"

Close : Vrai pour terminer le listage des imprimantes.

RESULT

En sortie, Le paramètre &RESULT contient :

• *NONE si la fin de la liste des imprimantes est atteinte.

• La description d’une imprimante, selon un format dépendant de la valeur du mot clé NameOnly.

Exemple

PGM

DCL VAR(&RES) TYPE(*CHAR) LEN(2000)

DCL VAR(&OPT) TYPE(*CHAR) LEN(1)

DCL VAR(&RES2) TYPE(*CHAR) LEN(2000)

DCL VAR(&HDL) TYPE(*CHAR) LEN(100) VALUE('*ONLY ')

DCL VAR(&PARM1) TYPE(*CHAR) LEN(512)

DCL VAR(&PARM2) TYPE(*CHAR) LEN(1024)

LNCOPEN

CHGVAR VAR(&PARM1) VALUE('FIRST=TRUE')

CALL PGM(LNCCMD) PARM(&HDL 'ENUMPRT' &OPT &PARM1 +

&PARM2 &RES)

CHGVAR VAR(&PARM1) VALUE('FIRST=FALSE')

DOWHILE COND(&RES *NE '*NONE')

CALL PGM(LNCCMD) PARM(&HDL 'ENUMPRT' &OPT &PARM1 +

&PARM2 &RES)

ENDDO

LNCCLOSE

ENDPGM