Vous connaissez tous comment ajouter un partage par System i Navigator ; voici une solution pour en créer un à partir d'un programme CLP.

avec l'API QZLSADFS

CALL QZLSADFS PARM(SHARE1 '/temp' x'00000005' x'00000000'

 'My shared data folder' x'00000001' x'ffffffff' x'00000000')

Paramètres : 

SHARE - Nom du partage 

'/temp' - nom du chemin

x'00000005' - longueur du chemin en caractères 

x'00000000' - CCSID (0 même que le job) 

'partage temporaire' - texte description 

x'00000002' - droits (2 lecture/écriture, 1 lecture) 

x'ffffffff' - maximum d'utilisateurs (-1 no max) 

x'00000000' - mettre une variable pour le code retour en CLP

Pour arrêter le partage

CALL QZLSRMS PARM(SHARE1 x'00000000')

Paramètres : 

SHARE1  - Nom du partage 

x'00000000' - code retours