Re: AS400 object name validation ?

m
Hello Eric,

You wrote:
>For myself, all I can say is I know I don't know enough about UIM to know 
>if I should know more, you know? <g> (Sorry about that.) For example, the 
>only example I've seen of UIM was a menu. It was quite nice, with built in
>security and the like. But  can UIM be a replacement for DDS DSPF that 
>we're all accustomed to using for development. What are the strengths of 
>this interface over DDS. 

Sorry, I missed responding to this one in the flood of UIM notes.

UIM can certainly replace DDS.  The major strengths are the ability to 
manage lists better than subfiles, better display conditioning, more 
consistent formatting, an environment conducive to modularity, easier to 
add new function to an application because UIM can invoke commands and 
programs.  For example, assume I wish to add a function key to display 
message for the user.  

With DDS and standard HLL coding I edit the DDS to add the text that shows 
F6=Display messages, I define F6 as a valid function key and associate an 
indicator with it. Save and compile the DSPF.  I edit the HLL source and 
add a test for the indicator and if set I run the DSPMSG command via a call 
to QCMDEXC.

With UIM I edit the source and add a key definition to the key list 
associated with the display panel.  The key definition looks like:

:keyi     key=f6
          action='CMD DSPMSG MSGQ(*USRPRF)' 
          help='fkeys/dspmsg'.&msg(TXT5483).

I recompile the panel group and the function key is immediately available.  
No HLL programming changes.  Woohooo!!  I can even use substitution 
variables or supply additional values on the command line.

It is just as easy to add support for new options in a work-with list or 
menu.  Here is an example to handle a 2=Change option in a list:

:listact  option=2
          help='wrkshr/change'
          nocmd=prompt
          enter='CMD CHGSMBSHR &SHRNAME. &SHRTYPE. &PARMS.'
          prompt='CMD ?CHGSMBSHR ?*SHARE(&SHRNAME.) ?*TYPE(&SHRTYPE.) 
&PARMS.'
          usrexit='CALL UPDLSTENT'.&msg(TXT5520).

UIM means "User Interface Manager" with the operative word being MANAGER.  
It does stuff for you.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175   Mobile: +61 0411 091 400        /"\   «»
«» Fax:   +61 3 9419 0175   mailto: shc@flybynight.com.au   \ /   «»
«»                                                           X    «»
«»               ASCII Ribbon campaign against HTML E-Mail  / \   «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---