Folder freigeben

[Cobolaner]

Hallo Zusammen.
Wir haben einen Wechsel von einer 720 auf eine i5/550 vorgenommen. Hat alles super funktioniert, nur unsere Folder sind nicht freigegeben, Wir haben ca. 500 -600 FLR und suchen nun einen Trick, wie wir diese ohne großen manuellen Aufwand freigeben können. Wer kann uns bitte helfen. Besten Dank Cobolaner

[malzusrex]

moin moin,

wenn du das alte system noch hast, würde ich mit API's arbeiten.
mit QZLSLSTI auf dem alten system die ordner ermitteln und in ein file schreiben und auf dem neuen mit QZLSADFS wieder die freigaben erstellen.

Gruß Ronald



http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/rzahl/rzahlapiguide.htm

[sidoc_Support]

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