Re: FTP exit programs

Been awhile since I wrote mine, but your substring issue looks familiar, 
(if you look at my code).

...
      *
      * Define parameter list
      *
     D  USRIN          s            999a      User ID
     D  AUTIN          s            999a      Authentication Strg
     D  IPADDRIN       s             30a      Client IP Address


     D FTPLOGON        PI      *entry plist
      * Input parameters:
     D  APPIDIN                      10i 0      Application ID
      *                                                    possible 
values:   1 = FTP Server Program
     D  lUSRIN                             LIKE(USRIN)      User ID
     D  USRLENIN                     10i 0      Length of User ID
     D  lAUTIN                             LIKE(AUTIN)      Authentication 
Strg
     D  AUTLENIN                     10i 0      Length of Auth. Strg
     D  lIPADDRIN                          LIKE(IPADDRIN)      Client IP 
Address
     D  IPLENIN                      10i 0      Length of IP Address
      * Return parameters:
     D  RETCDOUT                     10i 0      Return Code (Out)
      *                                                    possible 
values:   0 = Reject Logon
      *    1 = Continue Logon
      *    2 = Continue Logon,
      *        override user pro-
      *        file and password
      *    3 = Continue Logon,
      *        override user prf
     D  USRPRFOUT                    10a      User Profile (Out)
     D  PASSWDOUT                    10a      Password (Out)
     D  CURLIBOUT                    10a      Current Lib. (Out)
     D  CurDirOut                   100a      Current Dir. (Out)
     D  CurDirOutLen                 10i 0      Len of cur directory
     D  AppSpecDta                         like(AppSpecDtaDS)  Application 
specific
      *       data (Out)
     D  AppSpecDtaLen                10i 0      Length of applica-
      *       tion specific data

     d dsplyvar        s             52a
...
      /free
       // Clean up overlapping memory
       monitor;
        UsrIn=%subst(lUsrIn:1:UsrLenIn);
        on-error 00100;
         UsrIn='';
       endmon;
       UsrIn=%xlate(lwr:upr:UsrIn);  // convert signin to upper case
       monitor;
        AutIn=%subst(lAutIn:1:AutLenIn);
        on-error 00100;
         AutIn='';
       endmon;
       AutIn=%xlate(lwr:upr:AutIn);  // convert password to upper case
       monitor;
        IpAddrIn=%subst(lIpAddrIn:1:IpLenIn);
        on-error 00100;
         IpAddrIn='';
       endmon;
...

Rob Berendt
-- 
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





Steven.Gray@xxxxxxxxxxxxxx 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
04/07/2004 11:51 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

Subject
Re: FTP exit programs






The parameters defined in my program are as follows,

*entry                   PLIST 
                         PARM                    APPIDIN 
                         PARM                    USRIN           999 
                         PARM                    USRLENIN 
                 PARM                    AUTIN           999 
                         PARM                    AUTLENIN 
                         PARM                    IPADDRIN         15 
                         PARM                    IPLENIN  
                                 PARM                    RETCDOUT  
                 PARM                    USRPRFOUT        10 
                 PARM                    PASSWDOUT        10 
                 PARM                    CURLIBOUT        10 

these are taken from the example program, I am setting RETCDOUT = 1. The
only difference I can see however is I do not place anything into 
USRPRFOUT
, the example pgm places ANONYMOUS into this. Obviously I do not want to 
do
this.
I was getting a decimal data error on the 
USRLENIN      SUBST(P)  USRIN:1       User             10 
line of code , therefore I substituted 10 in place of USRLENIN , User now
contains the user ID and part of the password. 
Not sure why I was getting the decimal data error.

Regards

Steve

_____________________________________________________________________
This e-mail has been scanned for viruses by MCI's Internet Managed 
Scanning Services - powered by MessageLabs. For further information visit 
http://www.mci.com
_______________________________________________
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.