|
Rob, Just a couple of quick questions. First, do you really need to supply initial directory /FTP/GDS? Second, if you do need to supply an initial directory, what is the authority on directory /FTP/GDS? -----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
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
