在AS400中如何控制分别对用户进行ftp的控制？

wlas400

在WRKREGINF中设置exit program?
有例子吗？

xuguopeng

在CA的导航器中可以实现 EXIT PGM也可以

Eagle_wolf

这里有个简单的例子

1. TSTLOGCL: PGM PARM(&APPIDIN &USRIN &USRLENIN &AUTIN &AUTLENIN +
   
2. &IPADDRIN &IPLENIN &RETCDOUT &USRPRFOUT &PASSWDOUT +
   
3. &CURLIBOUT)
   
4. 
   
5.          DCL VAR(&APPIDIN) TYPE(*CHAR) LEN(4)          /* Application identifier */
   
6.          DCL VAR(&USRIN) TYPE(*CHAR) LEN(999)         /* User ID */
   
7.          DCL VAR(&USRLENIN) TYPE(*CHAR) LEN(4)            /* Length of user ID */
   
8.          DCL VAR(&AUTIN) TYPE(*CHAR) LEN(999)            /* Authentication string */
   
9.          DCL VAR(&AUTLENIN) TYPE(*CHAR) LEN(4)          /* Length of auth. string */
   
10.          DCL VAR(&IPADDRIN) TYPE(*CHAR) LEN(15)        /* Client IP address */
    
11.          DCL VAR(&IPLENIN) TYPE(*CHAR) LEN(4)         /* IP address length */
    
12.          DCL VAR(&RETCDOUT) TYPE(*CHAR) LEN(4)        /* return code (out) */
    
13.          DCL VAR(&USRPRFOUT) TYPE(*CHAR) LEN(10)      /* user profile (out) */
    
14.          DCL VAR(&PASSWDOUT) TYPE(*CHAR) LEN(10)      /* password (out) */
    
15.          DCL VAR(&CURLIBOUT) TYPE(*CHAR) LEN(10)      /* current library (out) */
    
16.          /* Declare local copiesof parameters(in format usable by CL) */
    
17.          DCL VAR(&APPID) TYPE(*DEC) LEN(1 0)
    
18.          DCL VAR(&USRLEN) TYPE(*DEC) LEN(5 0)
    
19.          DCL VAR(&AUTLEN) TYPE(*DEC) LEN(5 0)
    
20.          DCL VAR(&IPLEN) TYPE(*DEC) LEN(5 0)
    
21.          /* Assign input parameters to local copies */
    
22.          CHGVAR VAR(&APPID) VALUE(%BINARY(&APPIDIN))
    
23.          CHGVAR VAR(&USRLEN) VALUE(%BINARY(&USRLENIN))
    
24.          CHGVAR VAR(&AUTLEN) VALUE(%BINARY(&AUTLENIN))
    
25.          CHGVAR VAR(&IPLEN) VALUE(%BINARY(&IPLENIN))
    
26.          /* Check for ANONYMOUS user. Allow for ANONYMOUSA, etc. as “regular” */
    
27.          /* user profile. */
    
28.          IF COND(&USRLEN = 9) THEN(DO)
    
29.          IF COND(%SST(&USRIN 1 9) = ’ANONYMOUS’) THEN(DO)
    
30.          /* For anonymous user: want to force user profile ANONYMOUS current library to PUBLIC. */
    
31.          CHGVAR VAR(%BINARY(&RETCDOUT)) VALUE(6)
    
32.          CHGVAR VAR(&USRPRFOUT) VALUE(’ANONYMOUS ’)
    
33.          CHGVAR VAR(&CURLIBOUT) VALUE(’PUBLIC ’)
    
34.          ENDDO
    
35.          /* Any other user: proceed with normal logon processing. */
    
36.                   ELSE CMD(CHGVAR VAR(%BINARY(&RETCDOUT)) VALUE(1))
    
37.          ENDDO
    
38.          ELSE CMD(CHGVAR VAR(%BINARY(&RETCDOUT)) VALUE(1))
    
39.          END: ENDPGM

复制代码

wlas400

thanks.