Hallo Leute,

habe folgendes Problem:

Ich möchte pro User verschiedene Startverzeichnisse geben.
Dem einen QGPL

und einen anderen /HOME/QSECOFR

ich schaffe es leider nicht das er mir das richtig macht.
Er schreibt immer nach dem ftp Start:

qsecofr
331 Enter password.
230 QSECOFR logged on.
OS/400 is the remote operating system. The TCP/IP version is "V5R4M0".
250 Now using naming format "0".
257 "QGPL" is current library.

FTPLOGON: PGM PARM(&APPIDIN &USRIN &USRLENIN &AUTIN +
&AUTLENIN &CCSID &IPADRIN &IPLENIN &RETCDOUT +
&USRPRFOUT &PASSWDOUT &PASSLENOUT +
&CCSIDPASSW &CURLIBOUT &INITHOMDIR +
&INITHOMLEN &CCSIDINITH &APPSPEC +
&APPSPECLEN)
/* */
/* +
http://publib.boulder.ibm.com/iseries/v5r2/+
ic2929/index.htm?info/rzaiq/rzaiql0300.htm */
/* */
/*DECLARE INPUT PARAMETERS */

DCL &APPIDIN *CHAR 4 /* APPLICATION ID, BINARY NUM */
DCL &USRIN *CHAR 999 /* USER ID */
DCL &USRLENIN *CHAR 4 /* LEN OF USER ID, BINARY NUM */
DCL &AUTIN *CHAR 999 /* AUTENTICATION */
DCL &AUTLENIN *CHAR 4 /* LENGTH OF AUTH, BINARY NUM */
DCL &CCSID *CHAR 4 /* CCSID BINARY NUM */
DCL &IPADRIN *CHAR 999 /* CLIENT IP ADRESS */
DCL &IPLENIN *CHAR 4 /* IPADDRESS LENGTH BINARY NUM */
DCL &RETCDOUT *CHAR 4 /* RETURN CODE (OUT) */
DCL &USRPRFOUT *CHAR 10 /* USER PROFILE BINARY NUM */
DCL &PASSWDOUT *CHAR 999 /* PASSWORD */
DCL &PASSLENOUT *CHAR 4 /* PASSWORD LENGTH BINARY NUM */
DCL &CCSIDPASSW *CHAR 4 /* CCSID OF PASSW LENGTH BINARY NUM */
DCL &CURLIBOUT *CHAR 10 /* INITIAL CURRENT LIBRARY */
DCL &INITHOMDIR *CHAR 999 /* INITIAL HOME DIRECTORY */
DCL &INITHOMLEN *CHAR 4 /* INITIAL HOME DIR LENGTH BINARY NUM */
DCL &CCSIDINITH *CHAR 4 /* CCSID OF INITIHOME LENGTH BINARY NU*/
DCL &APPSPEC *CHAR 999 /* CCSID OF INITIHOME LENGTH BINARY NU*/
DCL &APPSPECLEN *CHAR 4 /* CCSID OF INITIHOME LENGTH BINARY NU*/

DCL VAR(&APPID) TYPE(*DEC) LEN(1 0)
DCL VAR(&USRLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&AUTLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&IPLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&HOMLEN) TYPE(*DEC) LEN(5 0)
DCL VAR(&HOMCCS) TYPE(*DEC) LEN(5 0)

/*ASSIGN INPUT PARA. TO LOCAL COPIES */


CHGVAR VAR(&APPID) VALUE(%BINARY(&APPIDIN))
CHGVAR VAR(&USRLEN) VALUE(%BINARY(&USRLENIN))
CHGVAR VAR(&AUTLEN) VALUE(%BINARY(&AUTLENIN))
CHGVAR VAR(&IPLEN) VALUE(%BINARY(&IPLENIN))
CHGVAR VAR(&HOMLEN) VALUE(%BINARY(&INITHOMLEN))
CHGVAR VAR(&HOMCCS) VALUE(%BINARY(&CCSIDINITH))


/*ASSIGN INPUT PARA. TO LOCAL COPIES */

IF COND(&APPID *EQ 2) THEN(GOTO CMDLBL(END)) /* +
1=ftp 2=rexex */




IF (%SST(&USRIN 1 &USRLEN) = 'QSECOFR') THEN(DO)

CHGVAR VAR(%BINARY(&RETCDOUT)) VALUE(3)

CHGVAR VAR(&USRPRFOUT) VALUE(%SST(&USRIN 1 &USRLEN))
CHGVAR VAR(&INITHOMDIR) VALUE('/home/qsecofr')
CHGVAR VAR(%BINARY(&INITHOMLEN)) VALUE(13)
CHGVAR VAR(%BINARY(&CCSIDINITH)) VALUE(1141)

GOTO CMDLBL(END)
ENDDO
CHGVAR VAR(%BINARY(&RETCDOUT)) VALUE(0)
END:
ENDPGM

Bitte um Hilfe.

Besten Dank im Voraus

lg
Michael