AW: TSO administrative client
1999-01-15 04:59:34
Subject: |
AW: TSO administrative client |
From: |
"Faust, Axel" <faust AT CSD DOT DE> |
Date: |
Fri, 15 Jan 1999 10:59:34 +0100 |
Thomas,
here is our TSO CALL command. Try the following:
/* REXX ***************************************************************/
/**********************************************************************/
/* ADSM-ADMINCLIENT PER TSO ADSM-V2 */
/**********************************************************************/
X = MSG("OFF")
"FREE F(DSCLANG,DSCOPT)"
"ALLOC F(DSCOPT) DA('ADSM.TSOADMIN.OPTIONS') SHR REUSE"
"ALLOC F(DSCLANG) DA('ADSM.SANSMSG(ANSMENU)') SHR REUSE"
X = MSG("ON")
PARM = '/ -ID=userid -PA=password'
ADDRESS ISPEXEC "SELECT PGM(DSMADMC) PARM("PARM")"
X = MSG("OFF")
"FREE F(DSCLANG,DSCOPT)"
X = MSG("ON")
EXIT
/* REXX ***************************************************************/
/**********************************************************************/
/* ADSM-ADMINCLIENT PER TSO ADSM-V3 */
/**********************************************************************/
X = MSG("OFF")
"FREE F(DSCLANG,DSCOPT,ISPLLIB,ISPLUSR)"
"ALLOC F(ISPLLIB) DA('ADSMV3.LOADLIB') SHR REUSE"
"ALLOC F(ISPLUSR) DA('ADSMV3.LOADLIB') SHR REUSE"
"ALLOC F(DSCOPT) DA('ADSM.TSOADMIN.OPTIONS') SHR REUSE"
"ALLOC F(DSCLANG) DA('ADSM.SANSMSG(ANSMENU)') SHR REUSE"
X = MSG("ON")
PARM = '/ -ID=userid -PA=password'
ADDRESS TSO "CALL 'ADSMV3.LOADLIB(DSMADMC)' '"PARM"'"
X = MSG("OFF")
"FREE F(DSCLANG,DSCOPT,ISPLLIB,ISPLUSR)"
X = MSG("ON")
EXIT
MfG
Axel Faust (email: faust AT csd DOT de)
Tel: +49 6151 32-1691 Fax: - 3844
Schenck Informationssysteme GmbH (http://www.csd.de)
FIRZ / Rechenzentrum
Landwehrstrasse 55
D-64293 Darmstadt, Germany
And on the second day God created ADSM to backup up what He
did on the first day.
> ----------
> Von: Thomas Denier[SMTP:Thomas.Denier AT MAIL.TJU DOT EDU]
> Antwort an: ADSM: Dist Stor Manager
> Gesendet: Mittwoch, 30. Dezember 1998 22:19
> An: ADSM-L AT VM.MARIST DOT EDU
> Betreff: TSO administrative client
>
> My site has just installed ADSM on an OS/390 system. I am now trying to
> figure
> out how to use the TSO administrative client. The examples in the Quick
> Start
> manual show DSMADMC being invoked by means of the TSO CALL command. This
> seems
> to be working. On the other hand, the Rexx execs included in the recovery
> plan
> files produced by the PREPARE command invoke DSMADMC as a TSO command in
> its
> own right. My attempts to imitate this usage in my own Rexx code have
> consistently failed with return codes of -206. Attempts to invoke DSMADMC
> from
> the TSO command line without the CALL command consistently fail with a
> message
> complaining of a 106000 hex ABEND.
>
> How do I get DSMADMC to work as a TSO command?
>
|
<Prev in Thread] |
Current Thread |
[Next in Thread> |
- AW: TSO administrative client,
Faust, Axel <=
|
|
|