RE: "Extract Fields" problem

["Scott Johnson" <sjohnson@xxxxxxxxxxxxx>]

David,

For the error, try this:  Edit the file ?:\WDT400\macros\fields.lx in CODE.
At about line 326 you should see the statement 'insert 'stuff. Change this
line to
'insert ' LEFT(stuff,80).  Warning:  I did not have any long text
descriptions to test this on!

To add the option to the pop-up menu from the right mouse button, add the
following to your profsys.lxu file (or the profile file of your choice):
               'SET POPUPMENU.Extract_fields_(LIST) MACRO FIELDS'
The single ticks are needed. If you want it only available for RPG source,
add it to the IF at the end of the profile source.  I did not actually test
this, but in theory it should work.

--
------------------------------------------------------
Scott P. Johnson
Applications Development Team Coordinator
Microcomputer Development Specialist
IBM Certified Specialist - AS/400 RPG Programmer
Highsmith Inc.
W5527 Hwy 106, PO BOX 800
Fort Atkinson, WI 53538-0800
TEL:  920-563-9571                FAX:  920-563-7395
sjohnson@highsmith.com
www.highsmith.com
------------------------------------------------------


>
> I posted this awhile back, but got 0 responses, so in the
> vein of being a
> "squeaky wheel", I thought I'd post it again!  :-)
>
> When I use the LIST feature (Extras | Fields | Extract
> Fields), I get an
> error when the extraction hits a field with a long text
> description (46
> chars or more).  the LIST macro displays an error dialog stating:
>    "Unexpected error using INSERT. Return code = -6"
> and the field is not added to the field list - thus the list
> of fields is
> incomplete.
>
> I'd like the LIST macro to still insert the field, truncating
> the long text
> if necessary.
>
> I'd also like the ability to highlight the file name and then
> right-click to
> select the LIST function.  Is it possible to do that?  Or
> perhaps highlight
> a range of file names and have the selected files LISTed?
>
>
> Thanks.
>
> Details -
>   Client:             V4R5 SP2
>   PC OS:     Windows 2000
>   Host:      V4R5
>
> David Schopp
> WISDM Team Leader
> Computers Unlimited
> 2407 Montana Ave
> Billings, MT  59101
> v:406.255.9500
> f:406.255.9693