Ansicht
Dokumentation
00686 - Report to runafter Hotpackages are app lied
CPI1466 during Backup rdisp/max_wprun_time - Maximum work process run timeThis documentation is copyright by SAP AG.
Report to runafter Hotpackages are app lied
Hi Alan,you are right. I looked into the source, it really "touches" everything with
updating some timestamps. Unfortunately it just reads the PXASTAT instead of
the D010LINF. So only all the programs of the current ABAP-buffer are
regenerated. I'm currently thinking about wrinting an own PGM reading the
D010LINF and looping about this one.
I found it in 4.0B and even in 4.6C. So I suspect it is delivered
everywhere.
Regards
Volker
P.S.: When it should miss somewhere here the origianl 4.6C version:
" <pre>
REPORT TOUCHALL.
DATA : DATE LIKE SY-DATUM,
TIME LIKE SY-UZEIT.
DATE = SY-DATUM.
TIME = SY-UZEIT.
*-----------------------------------------------------------------------
* Reset all programs and regenerate the programs being loaded
* during the last run of the system.
*-----------------------------------------------------------------------
* System log
CALL 'C_WRITE_SYSLOG_ENTRY'
ID 'TYP' FIELD SPACE
ID 'KEY' FIELD 'AB6'
ID 'DATA' FIELD SY-UNAME.
*
* Check Authorization
AUTHORITY-CHECK OBJECT 'S_ADMI_FCD'
ID 'S_ADMI_FCD' FIELD 'TOUC'.
IF SY-SUBRC <> 0.
MESSAGE E149(00) WITH SY-REPID.
ENDIF.
* Touch source
EXEC SQL.
UPDATE D010SINF SET SDATE = :DATE ,
STIME = :TIME
ENDEXEC.
* Touch load
EXEC SQL.
UPDATE D010LINF SET SDAT = :DATE , STIME = :TIME
ENDEXEC.
COMMIT WORK.
* regenerate last loaded programs
PERFORM REGEN.
* -------
* End
* -------
* Forms
FORM REGEN.
DATA : FILE(7) VALUE 'pxastat'.
DATA : BEGIN OF RECORD,
LOAD(1) TYPE C,
BLANK(1) TYPE C,
PROG LIKE SY-REPID,
END OF RECORD.
OPEN DATASET FILE FOR INPUT IN TEXT MODE.
IF SY-SUBRC = 0.
DO.
READ DATASET FILE INTO RECORD.
IF SY-SUBRC <> 0.
EXIT.
ENDIF.
PERFORM CHECK_REPO USING RECORD-PROG SY-SUBRC.
IF SY-SUBRC = 0.
GENERATE REPORT RECORD-PROG.
COMMIT WORK.
ENDIF.
ENDDO.
ENDIF.
ENDFORM.
FORM CHECK_REPO USING REPO LIKE SY-REPID SUBRC LIKE SY-SUBRC.
IF REPO = 'TOUCHALL' OR
REPO = 'RSDBRUNT' OR
REPO = 'SAPDB__S' OR
REPO = 'SAPMSSY0'.
SUBRC = 1.
ELSE.
SUBRC = 0.
ENDIF.
ENDFORM.
" </pre>
-----Original Message-----
From: Olson, Clyde
Sent: Wednesday, February 07, 2001 1:48 PM
To: Gueldenpfennig, Volker
Subject: RE: Re: Re: Report to runafter Hotpackages are
applied
I don't remember for sure, but I think TOUCHALL was a program in 4.0B and
before.
Alan
-----Original Message-----
From: Gueldenpfennig, Volker
Sent: Wednesday, February 07, 2001 4:42 PM
To: Olson, Clyde
Subject: FW: Re: Re: Report to runafter Hotpackages are
applied
Hi Alan,
did you write a program for some customers with the name TOUCHALL ? Do you
have it by any chance somewhere and could include it in an e-mail ? (Not as
attachment, as attachments are not posted via our eGroup)
Regards
Volker
Durban Tours - Südafrika Safari
Vendor Master (General Section) rdisp/max_wprun_time - Maximum work process run time
This documentation is copyright by SAP AG.
Length: 3517 Date: 20240418 Time: 034531 sap01-206 ( 5 ms )
