<verbatim> ********************************************************************************************** * DBG191RG: Fix source member name (remove invalid characters) * Copyright (C) 2000 Martin Rowe <martin@dbg400.net> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ********************************************************************************************** H DATEDIT(*YMD) DEBUG(*YES) OPTION(*NODEBUGIO : *SRCSTMT) ********************************************************************************************** * DATA STRUCTURES ********************************************************************************************** D bad C CONST('?:|><"*/\£''') D better C CONST('#;----#----') D p#member S 50 D string S 50 ********************************************************************************************** C *ENTRY PLIST C PARM p#member ********************************************************************************************** * MAINLINE PROGRAM ********************************************************************************************** C bad:better XLATE p#member string C EVAL p#member = string C RETURN ********************************************************************************************** </verbatim>
This topic: DBG400
>
SourceCodeList
>
RpgleSource
>
RpgleDBG191R4
Topic revision: r1 - 26 May 2005 - 19:44:23 -
MartinRowe
Copyright © by the contributing authors. All material on this collaboration platform is the property of the contributing authors.
Ideas, requests, problems regarding DBG/400?
Send feedback