Ansicht
Dokumentation

05761 - Backup CL

05761 - Backup CL

PERFORM Short Reference   ABAP Short Reference  
This documentation is copyright by SAP AG.
SAP E-Book

Backup CL

Hi,

I think that you need to set the r/3 enviroment with:

CALL PGM(R3<SID>400/R3INLPGM)


> 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

Fill RESBD Structure from EBP Component Structure   Fill RESBD Structure from EBP Component Structure  
This documentation is copyright by SAP AG.

Length: 2293 Date: 20240304 Time: 232752     sap01-206 ( 2 ms )