|
midrange.com
Gary,
You hit it. If I use InitNameFmt of 1 I should leave CURLIBOUT alone.
select;
when InitNameFmt=0;
curlibout=C_LIBRARY;
when InitNameFmt=1;
curdirout=%trim(C_DIRECTORY);
other;
// Error - this choice location for rent
EndSl;
I seem to be having some problems with coming in with the library system.
But I'll plug away on that for awhile.
Thanks again.
Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
"Gary Monnier" <gary.monnier@xxxxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
03/13/2003 08:03 PM
Please respond to Midrange Systems Technical Discussion
To: "'Midrange Systems Technical Discussion'"
<midrange-l@xxxxxxxxxxxx>
cc:
Fax to:
Subject: 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
_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.
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.
