[Tiny-cobol-users] occurs bug ??

[Carlinux <car...@te...>]

       identification division.
       program-id . occurserr.
       environment division.
       data division.
       working-storage section.
       01  WK-CADPRO.
           03  PRO-WS.
               05  PRO-WS1 OCCURS 8 TIMES.
                    10  AJ-PRODUTO-WS    PIC 9(05).
                    10  AJ-QTDE-WS       PIC 9(04).
                    10  AJ-POSNEG-WS     PIC X.

        procedure division.
        inicio.
       ***** occurs = 8  move 10 permited,  BUG???  *****
           move 1010 to aj-produto-ws (10)
           MOVE 10   TO AJ-QTDE-WS (10)
           MOVE "P"  to aj-posneg-ws (10)
           display aj-produto-ws (10)
           display aj-qtde-ws (10)
           display aj-posneg-ws (10).
           stop " "
           stop run.
         
-- 

Carlucio Lopes- Cobolito 62-8415-8939 msn:car...@ho...
Entenda Pirataria => http://www.carlinux.v10.com.br 
Compilador Cobol Free http://tinycobol.org em Portugues
Porque Cobol? ==> http://www.clubecobol.com.br/cc_porque_cobol_02.asp
Projeto Debian Brasil http://cdd.debian-br.org Tinycobol/Debian Gnu-Linux/Postgresql/Tcl-Tk