R: recursion calls

[Finucci Domenico <Domenico.Finucci@xxxxxxxxxxxx>]

Cobol 400 (NOT ILE COBOL) does support recursive calls.

 

Here enclosed you may find an example.

Sincerely

Domenico Finucci
Fiditalia , Milano, 02- 4301-2494

-----Messaggio originale-----
Da: Refaie.Heba@khb.hu [mailto:Refaie.Heba@khb.hu]
Inviato: martedì 10 aprile 2001 11.45
A: MIDRANGE-L@midrange.com; MIDRANGE-L@midrange.com
Oggetto: recursion calls

Hello Group,


       What are the programming language on the AS/400 that support the recursion calls of a function or a program?

Could anybody post me a recursive fuction call example code.

Thanks in advance
Heba





       

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    URECURSE.
       AUTHOR.        DFINUCCI.
       DATE-WRITTEN.  24/11/1999.
      * ----------------------------------------------------------
      * ----------------------------------------------------------
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-AS400.
       OBJECT-COMPUTER. IBM-AS400.
       SPECIAL-NAMES.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
       DATA DIVISION.
       FILE SECTION.
      *
      *
       WORKING-STORAGE SECTION.
       01 max-num    pic 9(3) value 20.
       LINKAGE SECTION.
       01 NUMERO PIC 9(3).
      ** ----------------------------------------------------
       PROCEDURE DIVISION USING NUMERO.
       MAIN.
           IF NUMERO GREATER ZERO
              ADD 1 TO NUMERO
           END-IF.
           DISPLAY 'NUMERO ' NUMERO
           IF NUMERO LESS    max-num
              CALL 'URECURSE'  USING NUMERO
           END-IF.
           GOBACK.