× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@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 thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.