RE: ftp code 530

[rob@xxxxxxxxx]

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