RE: "Extract Fields" problem

["David Schopp" <dschopp@xxxxxxx>]

Okay, a few clarifying questions:

1.  I should first copy the FIELDS.LX macro to MyMacros folder, then edit
THAT copy, correct?

2.  Do I want a blank between the second apostrophe and LEFT?  In other
words, is it
       'insert ' LEFT(stuff,80)    or
       'insert 'LEFT(stuff,80)     ??

3.  I don't have a PROFSYS.LXU file, but I do have a PROFILE.LX in MyMacros
folder.  I assume I can add the PopupMenu line to that.  I don't understand
the part about adding "it to the IF at the end of the profile source."  I
don't have an "IF" at the end.  What's the format of THAT?


This is great stuff!

Dave


> -----Original Message-----
> From: code400-l-admin@midrange.com
> [mailto:code400-l-admin@midrange.com]On Behalf Of Scott Johnson
> Sent: Tuesday, November 06, 2001 12:19 PM
> To: code400-l@midrange.com
> Subject: RE: "Extract Fields" problem
>
>
>
> 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
> >