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


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  / \
--------------------------------------------------------------------