User |
GENERAL ARCHIVO TXT |
vpardilla |
Enviado: 18/Aug/16 - 15:13 |
Vistas: 829
Respuestas: 1
Estatus: Close
|
GRACIAS ESTABA LLAMANDO MAL LA RUTA DONDE ESTABA EL ARCHIVO AHORA
YO GENERO ARCHIVO TXT QUE GENERE DE UN PROGRAMA COBOL.
IDENTIFICATION DIVISION.
PROGRAM-ID. SCXC199.
*COMENTARIO : LISTA ARCHIVO DEFINICION DE LOS TIPOS
* DE TRANSACCIONES .
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. MDS-800.
OBJECT-COMPUTER. MDS-800.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
COPY "/w/FD/SMSTOEMP".
COPY "/w/FD/SCLASTR".
*******COPY "/w/FD/SSALIDA".
SELECT ARCHIVO-S
ASSIGN TO PRINT, "PRINTER"
FILE STATUS IS FILESTAT.
DATA DIVISION.
FILE SECTION.
COPY "/w/FD/FMSTOEMP".
COPY "/w/FD/FCLASTR".
COPY "/w/FD/FSALIDA".
WORKING-STORAGE SECTION.
01 PICA-10.
02 ESC-10 PIC X.
02 CHR-DAN PIC X VALUE "P".
01 CHR-DRAFT.
02 ESC-DRAFT PIC X.
02 CHR-DRAFT1 PIC X VALUE "x".
02 CHR-DRAFT2 PIC X VALUE "0".
01 CHR-COND-OFF.
02 CAMPO-18 PIC 9(02) USAGE IS COMP-1 VALUE 18.
02 CAMPO-19 REDEFINES CAMPO-18.
03 FILLER PIC X.
03 CHR18 PIC X.
01 CHR-27.
02 CAMPO-27 PIC 9(02) USAGE IS COMP-1 VALUE 27 .
02 CAMPO27 REDEFINES CAMPO-27.
03 FILLER PIC X.
03 ESC PIC X.
01 DOBLE-WITH.
02 PRUEBA-1W PIC X.
02 PRUEBA-2 PIC X VALUE "W".
02 PRUEBA-3 PIC X VALUE "1".
01 DOBLE-WITH-OFF.
02 PRUEBA-1WO PIC X.
02 PRUEBA-2 PIC X VALUE "W".
02 PRUEBA-3 PIC X VALUE "0".
|