Ansicht
Dokumentation
00690 - Report to runafter Hotpackages are app lied
rdisp/max_wprun_time - Maximum work process run time BAL_S_LOG - Application Log: Log header dataThis documentation is copyright by SAP AG.
Report to runafter Hotpackages are app lied
I use to use the program TOUCHALL followed by an RSREGEN in the 3.0E daysand earliar. These two jobs could be scheduled overnight after applying
hotpackages. For some reason, these programs stopped working around
release 3.1. I don't remember what the error was. I reported to it OSS as a
problem. The answer I got was that it was no longer supported.
It would be nice to have this working again.
Cheers,
Steve Boucher
"Gueldenpfennig, Volker" <volker.gueldenpfennigZs...> on 02/07/2001
02:08:01 PM
To: "Olson, Clyde" <clyde.olsonZs...>, "Sap400 (E-mail)"
<sap400Zm...>
cc:
Subject: RE: Re: Re: 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
Addresses (Business Address Services) CPI1466 during Backup
This documentation is copyright by SAP AG.
Length: 4667 Date: 20240419 Time: 214714 sap01-206 ( 3 ms )
