Hier ein kleines CL, wie wir shares erstellen. Ich würde das in eurem Fall als Programm machen, welches pro share aufgerufen wird mit parameter sharename und verzeichnisname. Die müsstet ihr in eine Datei eintragen und dann dieses Programm jeweils pro eintrag ein mal aufrufen. Falls Verzeichnis und share identisch sind, kann man evtl. auch per CL den namen zusammenbauen. Die Parameter sind an eure Gegebenheiten anzupassen.

DCL VAR(&SHNAM) TYPE(*CHAR) LEN(12) VALUE('freigabename')
DCL VAR(&PATH) TYPE(*CHAR) LEN(7) VALUE('/verzeichnis im IFS')
DCL VAR(&PATHLN) TYPE(*CHAR) LEN(4)
DCL VAR(&CCSID) TYPE(*CHAR) LEN(4)
DCL VAR(&DSC) TYPE(*CHAR) LEN(50)
DCL VAR(&PERMITS) TYPE(*CHAR) LEN(4)
DCL VAR(&MAXUSR) TYPE(*CHAR) LEN(4)
DCL VAR(&ERRORCD) TYPE(*CHAR) LEN(20)
CHGVAR VAR(%BIN(&PATHLN 1 4)) VALUE(7)
CHGVAR VAR(%BIN(&CCSID 1 4)) VALUE(0)
CHGVAR VAR(%BIN(&PERMITS 1 4)) VALUE(2)
CHGVAR VAR(%BIN(&MAXUSR 1 4)) VALUE(25)
/* share erstellen */
CALL PGM(QZLSADFS) PARM(&SHNAM &PATH &PATHLN &CCSID &DSC &PERMITS &MAXUSR &ERRORCD)

Gruß
Martin
http://www.sidoc.de