Report Y9030020

Concatenate Strings with a subroutine - by Stefan Riedel-Seifert

[for Download or 'cut and paste']

REPORT Y9030020 LINE-SIZE 250.   "Release 3.1G, 4.5A
*
**********************         HEADER                    **************
*
* Copyright (c) 1999 by Stefan Riedel-Seifert
*               71034 Boeblingen.
*
*     You can use or modify this report for your own work as long
*               as you don't try to sell or republish it.
*      In no event will the author be liable for indirect, special,
*        Incidental, or consequental damages (if any) arising out of
*                       the use of this report.
*//////////////////////////////////////////////////////////////////////*
 MOVE: 'Strings in calling subroutines                   '
        TO SY-TITLE.
************************************************************************
* Data declarations.
  DATA:
    C TYPE I.
* Add 1 and 20.
  PERFORM ADD USING '1'
                    '2'
                  & '0'
                     C.

* Output.
  WRITE C.

*------------------------------------------*
* FORM Add                                 *
*------------------------------------------*
FORM ADD USING VALUE(A) VALUE(B) C.

  C = A + B.

ENDFORM.