Tema: [Información] No logro imprimir
Ver Mensaje Individual
  #1
Antiguo 20 de julio de 2019, 14:12
IDENTIFICATION DIVISION
jjop
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de jjop
DATA DIVISION
Forero desde (Registrado)febrero 2019
España
UbicaciónMadrid
Última Actividad22.07.2019 19:26
PROCEDURE DIVISION
PostsPosts: 2
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
jjop is an unknown quantity at this point
Impresora No logro imprimir

Hola,
Creo que deje lo del Cobol hace 100 años, lo tengo más que olvidado. No os aburro más. Recientemente he encontrado un compilador de Cobol (Open CobolIDE) y me he puesto a jugar y ver si iba recordando algo. El cobol está instalado en un PC con WINDOWS 10 Y un sistema operativo de 64 bits. La impresora es una HP ENVY 5030 (la causante de mis males).
Los programas que voy haciendo para refrescar son por partes. Este que he hecho es solo para imprimir y no complicarlo con otros posibles errores.
Cuando compilo, y ejecuto el programa, funciona perfectamente y no da ningún error, tanto en compilación como en ejecución.

Dejo aqui el programa a ver si alguien me puede echar una mano.

Código COBOL:
  1. ******************************************************************
  2.      * Author: Juan Jose
  3.      * Date:   9 de febrero 2019
  4.      * Purpose: Practicar
  5.      * Tectonics: cobc
  6.      ******************************************************************
  7.        IDENTIFICATION DIVISION.
  8.        PROGRAM-ID. YOUR-PROGRAM-NAME.
  9.        ENVIRONMENT DIVISION.
  10.        INPUT-OUTPUT SECTION.
  11.        FILE-CONTROL.
  12.        SELECT PRINTER-FILE ASSIGN TO PRINTER, "HPCAD2A9"
  13.                 file status is error-impresora.
  14.        DATA DIVISION.
  15.        FILE SECTION.
  16.            FD  PRINTER-FILE.
  17.            01  PRINTED-RECORD          PIC X(80).
  18.  
  19.        WORKING-STORAGE SECTION.
  20.             01 indice      PIC 99.
  21.             01 wk-count    PIC 99.
  22.             01 wk-fecha  pic x(8).
  23.             01 wkr-fecha REDEFINES wk-fecha.
  24.                05 wk-ano   pic 9(4).
  25.                05 wk-mes   pic 9(2).
  26.                05 wk-dia   pic 9(2).
  27.             01 error-impresora PIC 99 VALUE 33.
  28.             01 cabecera.
  29.                02 FILLER  PIC X(20) VALUE SPACE.
  30.                02 FILLER  PIC x(16) VALUE "Prueba Impresion".
  31.                02 FILLER  PIC X(20) VALUE SPACES.
  32.                02 FECHAIM PIC X(8).
  33.                02 FILLER  PIC X(14)   VALUE SPACES.
  34.                02 CONTIM  PIC Z9.
  35.  
  36.        PROCEDURE DIVISION.
  37.        MAIN-PROCEDURE.
  38.             MOVE FUNCTION CURRENT-DATE to wk-fecha.
  39.             OPEN OUTPUT PRINTER-FILE.
  40.             DISPLAY "Introduce numero de veces".
  41.             ACCEPT wk-count.
  42.             PERFORM 001-prueba UNTIL indice EQUAL wk-count.
  43.             PERFORM 002-impresion.
  44.             DISPLAY error-impresora.
  45.             CLOSE PRINTER-FILE.
  46.             STOP RUN.
  47.  
  48.             001-prueba.
  49.             ADD 1 to indice
  50.             DISPLAY "vez que pasa por el bucle:" indice
  51.             DISPLAY wk-dia
  52.             DISPLAY wk-mes
  53.             DISPLAY wk-ano
  54.             DISPLAY "Hola Juan Jose".
  55.  
  56.             002-impresion.
  57.             DISPLAY "Hola estoy en 002-impresion".
  58.             MOVE wk-fecha TO                FECHAIM.
  59.             MOVE wk-count TO                CONTIM.
  60.             MOVE cabecera TO PRINTED-RECORD.
  61.             WRITE PRINTED-RECORD BEFORE ADVANCING 1.
  62.  
  63.  
  64.        END PROGRAM YOUR-PROGRAM-NAME.
jjop no ha iniciado sesión   Responder Con Cita