Juan, hay tiene unas líneas de ejemplo como lo hago yo
Código COBOL:
SELECT STOLMO33 ASSIGN PRINT "C:\INFORMES\STOLMO33.CSV"
ORGANIZATION IS LINE SEQUENTIAL
FILE STATUS FILE-STATUS.
SELECT PRINTER ASSIGN PRINT "PRINTER.TXT"
FILE STATUS FILE-STATUS.
FD STOLMO33 LABEL RECORD OMITTED.
01 R-STOLMO33.
02 FILLER PIC X(260).
FD PRINTER LABEL RECORD OMITTED.
01 LINEA.
05 FILLER PIC X(500).
01 TIT-2EX.
05 FILLER PIC X(05) VALUE "PRE".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(06) VALUE "PREDIO".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(05) VALUE "CCO".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(12) VALUE "CENTRO COSTO".
05 FILLER PIC X(01) VALUE ";".
05 FILLER PIC X(08) VALUE "$ MONTO".
01 DET-1EX.
05 D1EX-CPRE PIC 9(03).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-NPRE PIC X(30).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-CCEN PIC 9(03).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-NCEN PIC X(35).
05 FILLER PIC X(01) VALUE ";".
05 D1EX-MON PIC ZZZ.ZZZ.ZZZ.
12-IMPR-EXCEL.
MOVE 0 TO TOT-GENERAL
OPEN OUTPUT STOLMO33
WRITE R-STOLMO33 FROM TIT-1EX
WRITE R-STOLMO33 FROM TIT-2EX AFTER 2
PERFORM 12-B UNTIL ERR = 1
MOVE TOT-GENERAL TO D3EX-MONGEN
WRITE R-STOLMO33 FROM DET-3EX.
CLOSE STOLMO33.
CALL "SYSTEM" USING "STARTER.EXE C:\INFORMES\STOLMO33.CSV".
12-B.
MOVE 0 TO TOT-PREDIO
MOVE 2 TO REGTAB-TABLA
MOVE BOD-MO TO BODEGA REGTAB-CODIGO D1EX-CPRE
READ REGTABLA INVALID MOVE
"** NO EXISTE **" TO REGTAB-DESCRI.
MOVE REGTAB-DESCRI TO D1EX-NPRE
PERFORM 12-B1 UNTIL ERR = 1 OR
BOD-MO NOT = BODEGA.
MOVE TOT-MONTO TO D2EX-MONPRE
ADD TOT-MONTO TO TOT-GENERAL
WRITE R-STOLMO33 FROM DET-2EX.
|
|