Ansicht
Dokumentation

05747 - Backup CL

05747 - Backup CL

Addresses (Business Address Services)   BAL Application Log Documentation  
This documentation is copyright by SAP AG.
SAP E-Book

Backup CL

Hi Franz,
Thank you for your advice.
when the test system not in use, then i will test it.
Today, or tomrrow.

regards, Tibor

-----Original Message-----
From: Lehnardt, Franz [mailto:franz.lehnardtZe...]
Sent: Wednesday, April 17, 2002 8:59 AM
To: DoNotReply@consolut.eu
Subject: AW: Backup CL


Hi Tibor,

was your CRTCLPGM successful?
If yes, what does the joblog of your backup say? In case that you don't get
a detailed joblog, try to submit your backup with parameters LOG(4 0
*SECLVL) and LOGCLPGM(*YES) to get more info.

Regards,

Franz Lehnardt
AS/400 & R/3 Basis Administration
EGG IT Services GmbH
Eschborn, Germany
Tel. ++49 (0) 6196 477-360
Fax ++49 (0) 6196 477-776


-----Ursprüngliche Nachricht-----
Von: Szurok Tibor [mailto:t_szurokZb...]
Gesendet am: Mittwoch, 17. April 2002 08:31
An: DoNotReply@consolut.eu
Betreff: Backup CL

I'm new here, and i have a little problem with my CL backup program.
The
prgram runs very interesty. In normaly the program saved the SAP
librarys,
and the IFS to, but it holds in the STOPSAP command (in wrkactjob is
see
so), but it uses the cpu, and the hard drive to. Here is the
program:

PGM PARM(&SID &INS) /* the instance and sid are
paramteres */
DCL VAR(&SID) TYPE(*CHAR) LEN(3)
DCL VAR(&INS) TYPE(*CHAR) LEN(2)
DCL VAR(&LIB1) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB2) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB3) TYPE(*CHAR) LEN(10)
DCL VAR(&LIB4) TYPE(*CHAR) LEN(10)

IF COND(&SID *EQ 'HRT') THEN(GOTO
CMDLBL(MEHET)) /*
momently its works only on the HRT SID */
GOTO CMDLBL(NOSID)
MEHET:

CHGVAR VAR(&LIB1) VALUE('R3' *cat &sid *cat 'DATA')
CHGVAR VAR(&LIB2) VALUE('R3' *CAT &SID *CAT 'JRN')
CHGVAR VAR(&LIB3) VALUE('R3' *CAT &SID *CAT '400')
CHGVAR VAR(&LIB4) VALUE('R346D' *CAT &SID )

STOPSAP SID(&SID) INSTANCE(&INS)
DLYJOB DLY(60)

IFS: SAV DEV('qsys.lib/tap02.devd') OBJ(('/sapmnt/*')
+
('/usr/sap/*')) ENDOPT(*LEAVE)
UPDHST(*YES)
R3: SAVLIB LIB(&LIB1 &LIB2 &LIB3 &LIB4) DEV(TAP02) +
ENDOPT(*LEAVE) CLEAR(*NONE) OUTPUT(*PRINT)

STARTSAP SID(&SID) INSTANCE(&INS)
GOTO OK

NOSID: SNDPGMMSG MSG('Wrong SID')
GOTO VEGE

OK: SNDPGMMSG MSG('All done.')

/* THE END */
VEGE:
ENDPGM


------------------
Regards, Tibor


------------------------ consolut Sponsor

Have a look to our homepage at: http://www.consolut.net
DoNotReply@consolut.eu

Your use of consolut is subject to
http://www.consolut.net


consolut Sponsor





Have a look to our homepage at: http://www.consolut.net
DoNotReply@consolut.eu




Durban Tours - Südafrika Safari

BAL Application Log Documentation   ROGBILLS - Synchronize billing plans  
This documentation is copyright by SAP AG.

Length: 4217 Date: 20240221 Time: 182041     sap01-206 ( 3 ms )