CHGVAR

VAR(&CMD) VALUE('IFSPUT')

CHGVAR

VAR(&PARM1) VALUE('Chemin et nom de fichier PC')

CHGVAR

VAR(&PARM2) VALUE('
<Dossier et nom de fichier IFS> 

[; Mode=*ALL ]
[; Append ]
[; Text ]
[; RecIO[=nombre] ]
')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +

&PARM2 &RESULT)

Paramètres

Parm1

Chemin et nom du fichier source PC à transférer vers l’AS/400. 

Parm2

Chemin complet vers le fichier ou document de destination dans l’IFS, ou dans le système de fichier de l’AS/400.

Si la destination est un fichier dans l’IFS, le chemin doit être exprimé depuis la racine. (/documents/prod_docs/doc01.pdf)
Utilisez la commande WRKLNK pour connaître la hiérarchie des répertoires.

Si la destination est dans les dossiers partagés, le chemin doit commencer par "/QDLS/".
Attention, l’IFS et "Les dossiers partagés" ne représentent pas la même chose. Les dossiers partagés sont dans un sous répertoire de l’IFS : /QDLS.

Si la destination est un fichier dans une librairie de l’AS/400, le chemin peut être exprimé sous la forme :
 /QSYS.LIB/MYLIB.LIB/MYFILE.FILE

Il peut aussi être exprimé sous la forme :
MYLIB/MYFILE
si l’option RecIO est donnée.

Le chemin vers le fichier de destination peut être suivi d’options, séparées par un point virgule. Les options sont séparées du chemin vers le fichier, par un point virgule.

Mode=*ALL : Donne les droits en lecture et écriture à tous les utilisateurs pour le fichier.

Append : Les données seront ajoutées au fichier. Par défaut le fichier est effacé pour être remplacé par les nouvelles valeurs.
Si le fichier de destination n’existe pas, il est créé.

Text : Par défaut, le fichier est transféré "tel que", sans conversion. Si l’option Text est fixée, les données seront converties de texte à texte.

RecIO=Nombre. Cette option indique que le fichier de destination est exprimé sous la forme "LIBRAIRIE/FICHIER(MEMBRE) ". Si un nombre est fixée avec l’option RecIO, il indique la taille d’enregistrements du fichier si celui-ci doit être créé.
Si le mot RecIO seul est fixé, sans nombre affecté, alors le fichier doit exister.

LNCPRTDOC

DOC('C:\Modeles\layout.doc')
MRGTYPE(*FILE)
FROMFILE(SP_LAYOUT)
OUTPUT(*OUTPRN)
OUTPRN('C:\temp\layout.prn')
ENDOPT(*APP)

CHGVAR

VAR(&CMD) VALUE('IFSPUT')

CHGVAR

VAR(&PARM1) VALUE('C:\Temp\layout.prn')

CHGVAR

VAR(&PARM2) VALUE('/QDLS/IMAGES/Layout.prn')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +
&PARM2 &RESULT)

CRTPRNSPLF

FILE('/QDLS/IMAGES/Layout.prn')
SPLFNAME(PRNSPLF)
USRTXT('Document Word')

RMVLNK

OBJLNK('/QDLS/IMAGES/Layout.prn')

CALL

PGM(LNCCLOSE)