/*š**************************************************************************€*/
/*šSRCPARSER2: Join a member (with ::PARSER:: trailer) to another            €*/
/*š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€*/
/*š**************************************************************************€*/
/*šTo use this as a PDM option, just copy in the following                   €*/
/*š    CALL PGM(SRCPARSER2) PARM(&N &L &F &S &X YourToMbr YourToLib)         €*/
/*šThe default value for YourToMbr is ALLSRCMBRS, which is currently hard    €*/
/*šcoded in SRCPARSER. It can be anything you like, just rename it to the    €*/
/*šdefault for distribution, or alter the distributed version of SRCPARSER.  €*/
/*š**************************************************************************€*/
PGM (&MEMBER &SRCLIB &SRCFILE &TYPE &TEXT &TOMBR &TOLIB)
  DCL        VAR(&TOMBR)     TYPE(*CHAR) LEN(10)
  DCL        VAR(&MEMBER)    TYPE(*CHAR) LEN(10)
  DCL        VAR(&TYPE)      TYPE(*CHAR) LEN(10)
  DCL        VAR(&TEXT)      TYPE(*CHAR) LEN(50)
  DCL        VAR(&SRCLIB)    TYPE(*CHAR) LEN(10)
  DCL        VAR(&SRCDTA)    TYPE(*CHAR) LEN(100)
  DCL        VAR(&SRCFILE)   TYPE(*CHAR) LEN(10)
  DCL        VAR(&TOLIB)     TYPE(*CHAR) LEN(10)
/*š**************************************************************************€*/
/*šMAINLINE:                                                                 €*/
/*š**************************************************************************€*/
  CPYSRCF    FROMFILE(&SRCLIB/&SRCFILE) TOFILE(&TOLIB/DBGSRCFILE) +
               FROMMBR(&MEMBER) TOMBR(&TOMBR) MBROPT(*ADD) +
               SRCOPT(*SEQNBR *DATE)
  CHGVAR     VAR(%SST(&SRCDTA 1 10)) VALUE('::PARSER::')
  CHGVAR     VAR(%SST(&SRCDTA 11 10)) VALUE(&MEMBER)
  CHGVAR     VAR(%SST(&SRCDTA 21 10)) VALUE(&TYPE)
  CHGVAR     VAR(%SST(&SRCDTA 31 10)) VALUE(&SRCFILE)
  CHGVAR     VAR(%SST(&SRCDTA 41 50)) VALUE(&TEXT)
  OVRDBF     FILE(DBGSRCFILE) TOFILE(&TOLIB/DBGSRCFILE) MBR(&TOMBR)
/*šAdd the ::PARSER:: line via RPGLE routine                                 €*/
  CALL       PGM(SRCPARSER3) PARM(&SRCDTA)
  DLTOVR     FILE(DBGSRCFILE)
  RETURN
ENDPGM
::PARSER::SRCPARSER2CLP       QCLSRC    Join a member (with ::PARSER:: trailer) to another
     š**********************************************************************************************
     š* SRCPARSER3: Add ::PARSER:: statements to multi-member member
     š* 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
     š**********************************************************************************************
     FDBGSRCFILEO    E             DISK    RENAME(DBGSRCFILE:FORMAT)
     š**********************************************************************************************
     š*  ENTRY PARAMETERS
     š**********************************************************************************************
     C     *ENTRY        PLIST
     C                   PARM                    SRCDTA
     š**********************************************************************************************
     š* MAINLINE PROGRAM
     š**********************************************************************************************
     C                   WRITE     FORMAT
     š* Time to go
     C                   EVAL      *INLR = *on
     C                   RETURN
     š**********************************************************************************************
::PARSER::SRCPARSER3RPGLE     QRPGLESRC Add ::PARSER:: statements to multi-member member