Ansicht
Dokumentation
05761 - Backup CL
rdisp/max_wprun_time - Maximum work process run time TXBHW - Original Tax Base Amount in Local CurrencyThis documentation is copyright by SAP AG.
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 SUBST_MERGE_LIST - merge external lists to one complete list with #if... logic for R3up
This documentation is copyright by SAP AG.
Length: 2293 Date: 20240425 Time: 191757 sap01-206 ( 2 ms )
