Red Hat SATELLITE 5.1.0 RELEASE NOTES Instrukcja Instalacji Pobierz pdf (Strona 242)

224 The Virtualization Cookbook for Red Hat Enterprise Linux 5.2

ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED

AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,

OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF

THE USE OR DISTRIBUTION OF THE PROGRAM OR THE EXERCISE OF ANY RIGHTS

GRANTED HEREUNDER, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGES

-------------------------------------------------------------------*/

/* Construct the two character label prefix */

firstChar = 'M' /* change this for an LPAR ID other than 'M' */

labelPrefix = firstChar'V'

/* Parse arguments */

parse upper arg res spl pag w01 w02 .

if (w02 = '') then call help

/* Construct the 5 labels */

resLabel = getLabel(labelPrefix res)

splLabel = getLabel(labelPrefix spl)

pagLabel = getLabel(labelPrefix pag)

w01Label = getLabel(labelPrefix w01)

w02Label = getLabel(labelPrefix w02)

/* Ask "Are you sure?" */

say 'The volumes are:'

'CP Q' res spl pag w01 w02

say ''

say 'The system volume labels will become:'

say resLabel splLabel pagLabel w01Label w02Label

say ''

say 'ARE YOU SURE you want to relabel the DASD (y/n)?'

parse upper pull answer

ansFirstChar = substr(answer, 1, 1)

if (ansFirstChar ^= 'Y') then exit 2

/* Label the 4 volumes: RES is 123, W01 is 124, W02 is 125, SPL is 122 */

'CP TERM MORE 1 1'

'CPFMTXA 123' resLabel 'LABEL'

'CPFMTXA 124' w01Label 'LABEL'

'CPFMTXA 125' w02Label 'LABEL'

'CPFMTXA 122' splLabel 'LABEL'

/* LINK the 540PAG volume which is $PAGE$ A03, label it, DETACH it */

'CP LINK $PAGE$ A03 A03 MR'

'CPFMTXA A03' pagLabel 'LABEL'

'CP DET A03'

'CP TERM MORE 50 10'

exit

/*+------------------------------------------------------------------+*/

help: procedure expose firstChar

/*+------------------------------------------------------------------+*/

parse source . . fn .

say ""

say "Synopsis:"

say ""

say "Relabel 5 system volumes (540RES, 540W01, ...) to" firstChar"V<xxxx>"

say " where <xxxx> is the 4 digit address"

say ""

1 2 ... 237 238 239 240 241 242 243 244 245 246 247 ... 267 268

Komentarze do niniejszej Instrukcji

Brak uwag

Red Hat SATELLITE 5.1.0 RELEASE NOTES Instrukcja Instalacji Strona 242

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Oprogramowanie Red Hat SATELLITE 5.1.0 RELEASE NOTES