Dezhi Systems support site

Hi Everyone,

I am thankful for the people of this forum and efglobe, for providing a fantastic mainframe terminal connection.

Code: Select all

Please, can someone tell me how to pass values to a cobol programme which uses OCCURS CLAUSE... here is example

77 I   PIC   9(2).   
          01 REC1
                   02 A-TAB OCCURS 5 TIMES INDEXED BY A1
                        03 ACNO        PIC  X(6).
                        03 PERNAME   PIC  A(10).
                         03 AMOUNT   PIC   9(8).
          PROCEDURE DIVISION.
                     MOVE1 TO I.
                     PERFORM UNTIL I>5
                          ACCEPT ACNO(I)
                          ACCEPT PERNAME(I)
                          ACCEPT AMOUNT(i)
                          ADD 1 TO I.
                       END-PERFORM.     


Please post such non-FanDeZhi specific questions in one of the fora mentioned in this post. You are far more likely to get a reply there than here... (I don't know nothing about C*B*L )