Citación del post de
Kuk
|
❞
@Joseg, creo que lo he arreglado:
Código COBOL:
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 01 idx-1 pic 9(4) comp-5. 01 wsomamodelos pic 9(18) comp-5. LINKAGE SECTION. 01 LNK-DATOS. 05 LNK-INPUT PIC X(3000). 05 filler redefines LNK-INPUT. 10 byte occurs 750 pic 9(8) comp-5. 05 LNK-OUTPUT PIC 9(18). PROCEDURE DIVISION USING LNK-DATOS. move 1 to idx-1 move 0 to LNK-OUTPUT, wsomamodelos perform until idx-1 > 750 COMPUTE wsomamodelos = wsomamodelos + byte(idx-1) * idx-1 add 1 to idx-1 end-perform MOVE wsomamodelos to LNK-OUTPUT display LNK-OUTPUT
Es que estábamos tontos macho, con la SUMA no vale, y lo sabemos desde el cole 
|
"Es que estábamos tontos macho, con la SUMA no vale, y lo sabemos desde el cole"
Agora si !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!
Muitas muitas gracias Kuk