RE: ftp code 530

Rob,

If you absolutely need to use an initial home directory you will need to
return the following settings (they assume *PUBLIC, or whomever has the
appropriate rights to /FTP/GDS).

RETCDOUT        = 3                '00000003'X
USRPRFOUT       =  %Trim('FTPTEST')
PASSWDOUT       = *Blanks
CURLIBOUT       = Same as was supplied to the exit point by the FTP
Signon server.  In other words, don't touch it.
CURDIROUT       = %Trim('/FTP/GDS')
CURDIROUTLEN  = %Len(%Trim(CURDIROUT))
InitNameFmt     = 1
InitWrkDir      = 1
InitFileLst     = 0
CtrlCnnSec      = 0
DtaCnnEnc       = 0
DtaCnnCip       = 0

It should work with this configuration.  It does here anyway.  It
appears you can use CURLIBOUT or CURDIROUTLEN but not both at the same
time.  When I ran my tests QGPL became the current directory.

Hope this helps.


-----Original Message-----
From: midrange-l-bounces+gary.monnier=powertechgroup.com@xxxxxxxxxxxx
[mailto:midrange-l-bounces+gary.monnier=powertechgroup.com@xxxxxxxxxxxx]
On Behalf Of rob@xxxxxxxxx
Sent: Thursday, March 13, 2003 1:42 PM
To: Midrange Systems Technical Discussion
Subject: RE: ftp code 530


Gary,

How about this?

Utilizing
Exit point:   QIBM_QTMF_SVR_LOGON      Format:   TCPL0200

to switch a user id from a dummy userid to a real userid.  And to select

current directory, etc.

When ftping to this iSeries server from my dos client (W2K) I am
getting: 530 Not able to set library QGPL for user FTPTEST; logon
rejected. Login failed.

Nothing in QSYSOPR, QSYSMSG, DSPLOG or any of the QTFTP* jobs in
subsystem 
QSYSWRK seem to indicate anything.

Object . . . . . . . :   QGPL 
  Library  . . . . . :     QSYS 
Object type  . . . . :   *LIB 
                         Object 
User        Group       Authority
QSYS                    *ALL 
QSRV                    USER DEF 
QPGMR                   USER DEF 
QSYSOPR                 USER DEF 
*PUBLIC                 *CHANGE 

User profile . . . . . . . . . . . . . . . :   FTPTEST
Special authority  . . . . . . . . . . . . :   *NONE
Initial program  . . . . . . . . . . . . . :   *NONE 
  Library  . . . . . . . . . . . . . . . . : 
Initial menu . . . . . . . . . . . . . . . :   MAIN 
  Library  . . . . . . . . . . . . . . . . :     *LIBL
Limit capabilities . . . . . . . . . . . . :   *NO 

Parameters of exit point program:
     D  AppSpecDtaDS   ds                  based(pAppSpecDtaDS)
     D   InitNameFmt                 10i 0
     D   InitWrkDir                  10i 0
     D   InitFileLst                 10i 0
     D   CtrlCnnSec                  10i 0
     D   DtaCnnEnc                   10i 0
     D   CtrlCnnCip                   5i 0
     D   DtaCnnCip                    5i 0
     D  USRIN          s            999a
     D  AUTIN          s            999a
     D  IPADDRIN       s             30a
     D FTPLOGONN       PI
     D  APPIDIN                      10i 0
     D  lUSRIN                             LIKE(USRIN)
     D  USRLENIN                     10i 0
     D  lAUTIN                             LIKE(AUTIN)
     D  AUTLENIN                     10i 0
     D  lIPADDRIN                          LIKE(IPADDRIN)
     D  IPLENIN                      10i 0
     D  RETCDOUT                     10i 0
     D  USRPRFOUT                    10a
     D  PASSWDOUT                    10a
     D  CURLIBOUT                    10a
     D  CurDirOut                   100a
     D  CurDirOutLen                 10i 0
     D  AppSpecDta                         like(AppSpecDtaDS)
     D  AppSpecDtaLen                10i 0

Contents of these variables:
APPSPECDTADS          DS 
  CTRLCNNCIP          INT(5)               0                '0000'X 
  CTRLCNNSEC          INT(10)              0                '00000000'X
  DTACNNCIP           INT(5)               0                '0000'X 
  DTACNNENC           INT(10)              -1               'FFFFFFFF'X
  INITFILELST         INT(10)              0                '00000000'X
  INITNAMEFMT         INT(10)              1                '00000001'X
  INITWRKDIR          INT(10)              1                '00000001'X
APPSPECDTALEN         INT(10)              24               '00000018'X
USRIN                 CHAR(999)            'RALPH
AUTIN                 CHAR(999)            'MALPH
IPADDRIN              CHAR(30)             '10.10.222.69

APPIDIN               INT(10)              1                '00000001'X
LUSRIN                CHAR(999)            'RALPH MALPH 10.10.222.69 
/FTP/GDS
USRLENIN              INT(10)              5                '00000005'X
LAUTIN                CHAR(999)            'MALPH 10.10.222.69 /FTP/GDS
AUTLENIN              INT(10)              5                '00000005'X
LIPADDRIN             CHAR(30)             '10.10.222.69 /FTP/GDS
IPLENIN               INT(10)              12               '0000000C'X
RETCDOUT              INT(10)              3                '00000003'X
USRPRFOUT             CHAR(10)             'FTPTEST   '
PASSWDOUT             CHAR(10)             '          '
CURLIBOUT             CHAR(10)             'QGPL      '
CURDIROUT             CHAR(100)            '/FTP/GDS
CURDIROUTLEN          INT(10)              8                '00000008'X
APPSPECDTA            CHAR(24)             '                ŸŸŸŸ    '

 
                      VALUE IN HEX 
'00000001000000010000000000000000FFFFFFFF00000000'X
APPSPECDTALEN         INT(10)              24               '00000018'X

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin