FTP Server Logon Exit Point with format TCPL0300

Hi,

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))

If I don't load the application specific parameters I can allow or reject
the FTP login OK, so I know the exit point is registered OK and is being
called.  As soon as the parameters are loaded, I get:

Data from exit program for exit point QIBM_QTMF_SVR_LOGON is missing or
  not valid.
Which is moaning about the CCSID of initial home directory.  I tried
leaving this at zero, and hard-coding it to 37, but neither help.

Does anyone have any idea what I'm doing wrong, or a working version I
could look at?  I tried checking the archives but I'm just getting a page
cannot be displayed error.

Thanks
Robin


--------------------------------------------------------------------
mail2web - Check your email from the web at
http://mail2web.com/ .