From 3fa1a86dfde628446bcf54a1a564e000e585aeea Mon Sep 17 00:00:00 2001 From: Eckhard Gosch Date: Tue, 15 Sep 2026 14:28:21 +0200 Subject: [PATCH] tstx saniert --- meddfntstx.rpgle | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/meddfntstx.rpgle b/meddfntstx.rpgle index d81e908..a57a892 100644 --- a/meddfntstx.rpgle +++ b/meddfntstx.rpgle @@ -86,6 +86,16 @@ dsply 'MEDDFN Parser Error Test completed'; dsply '----------------------------------------'; +//===================================================================== +// +// End +// +//===================================================================== + +*inlr = *on; +return; + + //===================================================================== // // TestInvalidHeader @@ -146,14 +156,4 @@ dcl-proc TestInvalidHeader; dsply 'INFO Error.MessageData contains data'; endif; -end-proc; - - -//===================================================================== -// -// End -// -//===================================================================== - -*inlr = *on; -return; +end-proc; \ No newline at end of file