Re: FTP Server Logon Exit Point with format TCPL0300

["Peter Dow" <maillist@xxxxxxxxxxxxxxx>]

Hi Robin,

Try replacing

      c                   Eval      AppSpeLen = %Len(%TrimR(AppSpecific))

with

      c                   Eval      AppSpeLen = %size(AppSpecific)

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050 voice
909 522-3214 cellular
909 793-4480 fax


----- Original Message -----
From: <robin@ringbase.com>
Sent: Thursday, July 11, 2002 1:38 AM
Subject: FTP Server Logon Exit Point with format TCPL0300


> I'm trying to use the QIBM_QTMF_SVR_LOGON exit point with format TCPL0300
> to force a specific user to a fixed IFS directory and in name format 1.
> I'm having a problem with the application-specific information parameter.
>
> I have:
>
>      D AppSpec         ds
>      d  InitNamFmt                   10I 0
>      d  InitWD                       10I 0
>      d  InitFL                       10I 0
>      d  ControlCnn                   10I 0
>      d  DataEncrypt                  10I 0
>      d  ContConCy                     5I 0
>      d  DataConCy                     5I 0
>
> And I'm filling it as
>
>      c                   Eval      InitNamFmt = 1
>      c                   Eval      InitWD = 1
>      c                   Eval      InitFL = 0
>      c                   Eval      ControlCnn = 0
>      c                   Eval      DataEncrypt = -1
>      c                   Eval      ContConCy = 0
>      c                   Eval      DataConCy = 0
>
> AppSpecific is a parameter defined as 999A and AppSpeLen is a parameter
> defined as 10I
>
>      c                   Eval      AppSpecific = AppSpec
>      c                   Eval      AppSpeLen = %Len(%TrimR(AppSpecific))