Ansicht
Dokumentation

05737 - Backup CL

05737 - Backup CL

Vendor Master (General Section)   TXBHW - Original Tax Base Amount in Local Currency  
This documentation is copyright by SAP AG.
SAP E-Book

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


Durban Tours - Südafrika Safari

General Data in Customer Master   BAL_S_LOG - Application Log: Log header data  
This documentation is copyright by SAP AG.

Length: 1925 Date: 20240221 Time: 190421     sap01-206 ( 2 ms )