| 123456789101112131415161718192021222324252627282930313233343536 |
- /*------------------------------------------------------------------------
- File : testGetLogFilePath.p
- Purpose :
- Syntax :
- Description :
- Author(s) : walter.riechsteiner
- Created : Fri May 21 10:43:59 CEST 2021
- Notes :
- ----------------------------------------------------------------------*/
- /* *************************** Definitions ************************** */
- BLOCK-LEVEL ON ERROR UNDO, THROW.
- DEFINE VARIABLE cPath AS CHARACTER NO-UNDO.
- DEFINE VARIABLE cString AS CHARACTER NO-UNDO.
- /* ******************** Preprocessor Definitions ******************** */
- /* *************************** Main Block *************************** */
- { super/funktionen.i }
- cString = 'wari' + CHR(01) + '' + CHR(01) + '1000'.
- RUN ANMELDUNG ( INPUT cString ).
- cpath = DYNAMIC-FUNCTION ('getLogFilePfad':U) NO-ERROR.
- MESSAGE cpath
- VIEW-AS ALERT-BOX.
|
