Re: Command To Check Current Subsystem

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

"
Hello Joe,

Here is a Q&D command I wrote years ago to do that.  It uses an IBM program as 
it's 
CPP but that program is a user domain program so you shouldn't have problems.  
It is 
easier to use than the API suggestions.  I haven't used it recently so caveat 
emptor.

/*‚***************************************************************€*/
/*‚ Title    :- QMNSBS                                            €*/
/*‚ CPP      :- QMNSBS                                            €*/
/*‚ Function :- To return the name of the current subsystem, the  €*/
/*‚             name of the controlling subsystem and the library €*/
/*‚             the controlling subsystem description is in.      €*/
/*‚                                                               €*/
/*‚ Notes:-  Command processing program QMNSBS is not a supported €*/
/*‚          user interface. It is subject to change without notic€*/
/*‚                                                               €*/
/*‚ Author   :- S.H.Coulter          Modified :-                  €*/
/*‚ Date     :- 30/03/90             Date     :-                  €*/
/*‚                                                               €*/
/*‚***************************************************************€*/

             CMD        PROMPT('Retrieve Subsystem Information')

             PARM       KWD(SBS) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          MIN(1) CHOICE('Character value') +
                          PROMPT('CL var for SBS          (10)')

             PARM       KWD(CTLSBSD) TYPE(*CHAR) LEN(10) RTNVAL(*YES) +
                          MIN(1) CHOICE('Character value') +
                          PROMPT('CL var for CTLSBSD      (10)')

             PARM       KWD(CTLSBSDLIB) TYPE(*CHAR) LEN(10) +
                          RTNVAL(*YES) MIN(1) CHOICE('Character +
                          value') PROMPT('CL var for CTLSBSDLIB   +
                          (10)')



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      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---