Sylvana   180 pts.  |   Nov 6 2009  2:33PM GMT

THANK YOU CHARLIE B.

Could you help me please? the screen shows a mistake when i try to run the program:

Trabajo 415222/MC0329/QQFTR7011 arrancado el 06/11/09 a las 09:11:46 en el s
Falló la operación I/O en el programa PROG3 en HIPTSTMAP1 (C D F G).
C

CharlieBrowne   6350 pts.  |   Nov 6 2009  3:14PM GMT

Sorry, I am not bilingual.
But, from the format below, I would recommend you take option D.
You may get more. Keep taking option D
This will give you a formatted dump and joblogs of the program and should help you resolve your issue.

Sylvana   180 pts.  |   Nov 6 2009  4:58PM GMT

HI I THINK THERE IS AN ERROR WHEN READ THE DISPLAY FILE, IS A CORRECT FORM TO READ THIS FILE?, AND BELOW THERE IS THE PRINTER FILE.
PLEASE I NEED HELP.

SYLVANA.

Sylvana   180 pts.  |   Nov 6 2009  4:59PM GMT

CODE:
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG3.
AUTHOR. HIPER.
DATE-WRITTEN. 04/10/2009
*****************************************************************
* PROG3 *
*****************************************************************
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT HIPM01 ASSIGN TO WORKSTATION-HIPM01
ORGANIZATION IS TRANSACTION
ACCESS IS SEQUENTIAL.

SELECT HIPR01 ASSIGN TO PRINTER-HIPR01
ORGANIZATION IS SEQUENTIAL
ACCESS MODE IS SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
*
FD HIPM01.
01 HIPM01R-RECORD.
COPY DDS-ALL-FORMATS OF HIPM01.
*
FD HIPR01.
01 HIPR01R-RECORD.
05 FILLER PIC X(80).
* COPY DDS-ALL-FORMATS OF HIPR01.
*
WORKING-STORAGE SECTION.
01 LINE-1.
05 FILLER PIC A(11) VALUE ‘PROGRAMA3 :’.
05 FILLER PIC X(15).
01 DISPLAY-LINE.
05 M1COD-DSP PIC X(6).
05 M1DESC-DSP PIC X(40).
01 PRINTER-LINE.
05 FILLER PIC X(6) VALUE ‘CODIGO’.
05 R1COD-PRT PIC X(6).
05 FILLER PIC X(11) VALUE ‘DESCRIPCION’.
05 R1DESC-PRT PIC X(40).
*01 WS-SAVE-SCREEN PIC X(500) VALUE SPACES.
*****************************************************************
* FLAGS AND SWITCHES *
*****************************************************************
77 SW-FIN PIC 9 VALUE 0.
*
PROCEDURE DIVISION.
1000-MAINLINE.

PERFORM 2000-HOUSEKEEPING
THRU 2000-HOUSEKEEPING-EXIT.

PERFORM 3000-PROCESS
THRU 3000-PROCESS-EXIT UNTIL SW-FIN = 1.

PERFORM 8000-WRAP-UP
THRU 8000-WRAP-UP-EXIT.

STOP RUN.
2000-HOUSEKEEPING.
OPEN I-O HIPM01.
OPEN OUTPUT HIPR01.
* MOVE LINE-1 TO HIPM01R-RECORD.
* WRITE HIPM01R-RECORD AFTER 1.
* MOVE SPACES TO HIPM01R-RECORD.
2000-HOUSEKEEPING-EXIT.
EXIT.
3000-PROCESS.
WRITE HIPM01R-RECORD FORMAT IS ‘HIPM01R’.
READ HIPM01 FORMAT IS ‘HIPM01R’.
MOVE M1COD TO M1COD-DSP.
MOVE M1COD-DSP TO R1COD-PRT.
MOVE M1DESC TO M1DESC-DSP.
MOVE M1DESC-DSP TO R1DESC-PRT.
MOVE DISPLAY-LINE TO PRINTER-LINE.
MOVE PRINTER-LINE TO HIPR01R-RECORD.
WRITE HIPR01R-RECORD FROM PRINTER-LINE.
3000-PROCESS-EXIT.
EXIT.
8000-WRAP-UP.
CLOSE HIPM01
HIPR01.
8000-WRAP-UP-EXIT.
EXIT.

Sylvana   180 pts.  |   Nov 9 2009  3:12PM GMT

hi,
how can i write a printer file?

thanks.
Sylvana