Re: Would anybody know of a way, from a CL program, . . .

[Simon Coulter <shc@xxxxxxxxxxxxxxxxx>]

On 22/09/2004, at 10:33 PM, Dan Bale wrote:

> Well, that may be part of the issue, since the one instance of UIM I've
> played with has 650 records in it.  It was a WRKSPLF clone, and I 
> wanted to
> change option 9 to use CPYSPLF.  The basic function works, but there 
> are
> behavioral differences that tend to aggravate after you've thrown 
> several
> hours of effort to make it work similar to the way IBM's panels work.  
> Note
> that this was at least 6 years ago, probably on a v3r2 system, maybe 
> the
> documentation has gotten better since then?

The documentation for UIM hasn't changed much if at all since it's 
inception. The Application Display Programming manual was last updated 
(as far as I can tell) in 410. However, everything you need to use UIM 
is described in that manual. A little thought will deal with any 
oversights.

Your particular problem is probably because you didn't include the 
parameters from the command line in the prompted command when you 
defined the command to UIM.

You should have something that looks like:

:list    listdef=wrksplf
         depth='*'
         maxhead=2
         maxactl=3
         actor=uim
         parms=parms          <----- Note this!!
         botsep=space.

:listact option=9
         help='somehelp'
         enter='CMD CPYSPLF FILE(&FILE.) TOFILE(&TOFILE.) &PARMS.'
         prompt='CMD ?CPYSPLF ?*FILE(&FILE.) ?*TOFILE(&TOFILE.) &PARMS.'
         .9=Copy

You'll also need:

:class   name=parmCL    basetype='char 255'.
:eclass.

and

:var     name=parms     class=parmCL.

Regards,
Simon Coulter.
--------------------------------------------------------------------
   FlyByNight Software         AS/400 Technical Specialists

   http://www.flybynight.com.au/
   Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\
   Fax:   +61 3 9419 0175                                   \ /
                                                             X
                 ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------