Documentation View

We are hiring and constantly growing! Have a look through our vacancies to find the right role for you!

00690 - Report to runafter Hotpackages are app lied

00690 - Report to runafter Hotpackages are app lied

RFUMSV00 - Advance Return for Tax on Sales/Purchases   General Data in Customer Master  
This documentation is copyright by SAP AG.
SAP E-Book

Report to runafter Hotpackages are app lied

I use to use the program TOUCHALL followed by an RSREGEN in the 3.0E days
and 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

PERFORM Short Reference   rdisp/max_wprun_time - Maximum work process run time  
This documentation is copyright by SAP AG.

Length: 4667 Date: 20230207 Time: 114625     sap01-206 ( 3 ms )