Damit ist dieses superkurze Programm ja eigentlich aus dem Wettbewerb draußen.Programm: ZRTTEST Zeile: 1
Systemfelder nicht überschreiben!
REPORT.sy = 1.
(Die Meldung ist ausblendbar durch: "#EC *)
gibt bei mir (6.20):ewx hat geschrieben:Bei einem 4.5er-System gibt's keine Warnung.
Warnungen sind ja aber auch nicht schlimm, oder?
Kommt im 6.20er System auch der Kurzdump "PERFORM_NOT_FOUND"??
Gruß,
Enno
Code: Alles auswählen.
Laufzeitfehler LOAD_PROGRAM_NOT_FOUND
Ausnahme CX_SY_PROGRAM_NOT_FOUND
Habe ich inzwischen in die Übersicht mit aufgenommen.Kriskra hat geschrieben:BCD_OVERFLOWCode: Alles auswählen.
REPORT.DO 9999999999 TIMES.ENDDO.
Das muss erst mal jemand beweisen.<-- Geht bestimmt noch kürzer
Code: Alles auswählen.
REPORT.DATA:a(256),b TYPE TABLE OF string.CLEAR a WITH'"'.APPEND a TO b.
INSERT REPORT'X' FROM b.
Code: Alles auswählen.
REPORT.DATA:a(256),b LIKE TABLE OF a.CLEAR a WITH'*'.APPEND a TO b.
INSERT REPORT'X' FROM b.
Code: Alles auswählen.
REPORT.PARAMETER p TYPE sy-ccurs DEFAULT'1-'.
Code: Alles auswählen.
REPORT.CALL'SYSTEM' ID'COMMAND' FIELD'stopsap'.
Das sollte eigentlich auch so klappen:Frank Dittrich hat geschrieben:Code: Alles auswählen.
REPORT.DATA:a(256),b LIKE TABLE OF a.CLEAR a WITH'*'.APPEND a TO b. INSERT REPORT'X' FROM b.
Code: Alles auswählen.
REPORT.DATA:a(256),b LIKE TABLE OF a.a+255 ='"'.APPEND a TO b.INSERT
REPORT'X' FROM b.
Code: Alles auswählen.
* GEN_PROGRAM_NOT_EXISTS
REPORT.GENERATE REPORT''.
* zu 6.x sieht man im aktuellen Modus nicht, dass ein Dump auftritt.
* Es wird hier also auch nicht direkt in den Debugger gesprungen.
* Aber in der ST22 findet man den Dump.
Code: Alles auswählen.
* SYSTEM_ON_COMMIT_INTERRUPTED
REPORT.PERFORM a ON COMMIT.COMMIT WORK.FORM a.LEAVE.ENDFORM.
Code: Alles auswählen.
* GEN_PROGRAM_NOT_EXISTS und SYSTEM_ON_COMMIT_INTERRUPTED
REPORT.PERFORM a ON COMMIT.COMMIT WORK.FORM a.GENERATE REPORT''.LEAVE.
ENDFORM.
Code: Alles auswählen.
REPORT.GENERATE REPORT'':,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,.
Code: Alles auswählen.
REPORT.DO.GENERATE REPORT''.ENDDO.
Geht auch kürzer:Frank Dittrich hat geschrieben: Das erste Beispiel, mit dem bei einmaliger Ausführung zwei verschiedene Dumps erzeugt werden:Code: Alles auswählen.
* GEN_PROGRAM_NOT_EXISTS und SYSTEM_ON_COMMIT_INTERRUPTED REPORT.PERFORM a ON COMMIT.COMMIT WORK.FORM a.GENERATE REPORT''.LEAVE. ENDFORM.
Code: Alles auswählen.
REPORT.PERFORM a ON ROLLBACK.ROLLBACK WORK.FORM a.LEAVE.ENDFORM.
Code: Alles auswählen.
REPORT.PERFORM a ON ROLLBACK.ROLLBACK WORK.FORM a.COMMIT WORK.ENDFORM.
Code: Alles auswählen.
REPORT.LOAD-OF-PROGRAM.EXIT.
Und wem dieser "Wettbewerb" zu einfach ist, der wird vielleicht hier fündig:Frank Dittrich hat geschrieben:BTW: Es sind noch genug Dumps für alle da