FW: Multiple CODE servers to one AS/400

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

Finishing my previous e-mail which my fingers accidentally sent too early!

-----Original Message-----
From: Scott Mildenberger
Sent: Tuesday, March 05, 2002 7:52 AM
To: 'code400-l@midrange.com'
Subject: RE: Multiple CODE servers to one AS/400


Peter,

Here is what I use to change library lists from within Code/400:

Add the following to the bottom of your profile.lx macro, you should have
your own copy in a separate directory (as all your own custom macros) and
enable it with EXTRAS ON (the default profile.lx has the instructions how to
do.

'set actionbar.~Library_Lists.~Starr macro mymacros/starr'
'set actionbar.~Library_Lists.~MRL macro mymacros/mrl'
'set actionbar.~Library_Lists.~Crew_Calling macro mymacros/crew'
'set actionbar.~Library_Lists.Common macro mymacros/common'
'set actionbar.~Library_Lists.~JDE macro mymacros/jde'


The above commands create a menu option called 'Library Lists' that has 5
items on it for each library list that I use, each item calls another macro
that sets the library list.  The ~ marks are for shortcuts that you can
access with the Alt key if you like.

An example of a macro to set the library list is:

/*  This macro sets the library list for MRL  */
      say "Mrl library list set"
      codesrv exec OS400S "chglibl libl(mrlpgmlib mrldtalib mrlsrcstr)"


The OS400S on the codesrv line is the Code/400 server that I have defined.
When you execute the macro you can check the job log of your communication
job on the 400 to make sure there where no errors on executing the command
such as a typo on one of the library names.

Scott Mildenberger



> -----Original Message-----
> From: Peter Colpaert [mailto:Peter.Colpaert@honda-eu.com]
> Sent: Tuesday, March 05, 2002 7:13 AM
> To: code400-l@midrange.com
> Subject: RE: Multiple CODE servers to one AS/400
>
>
>
> Hi Scott,
>
> that's indeed what I need (although the LDA is also
> different, but that's
> only relevant at runtime).
>
> TIA
>