Re: [Re: Can you find it out?] -- RPG400-L

Dear dajiba,

Can u send me a sample code.

Regards,
Rajendren K. G.
TMSI. India.

"nan pat" <seedrp@hotmail.com> wrote:
Hi Raja

U havent coded over flow indicators in F specs on RPG for the printer 
file.You got to set it off too , .


if u want i will send my sample code to u.

let me know

dajiba
*********************************************************

>From: Raja Rajendren <kgrajen@usa.net>
>Reply-To: RPG400-L@midrange.com
>To: rpg400-l@midrange.com
>Subject: Can you find it out?
>Date: 17 Jul 00 08:19:58 MDT
>
>When I tried to print using RPG/400 to a PRTF (RLU). After writing 60 lines
>to the spool file, program ends up with the following error
>
>Error Msg:
>-----------
>CPF5004 I/O error was detected in GLRP01 (C G S D F).
>
>Message Conten:
>---------------
>Message . . . . : CPF5004 I/O error was detected in GLRP01 (C G S D F).
>
>Cause . . . . . : The RPG program GLMRPT in library CGSSRC received the
>
>message CPF5004 at statement 6100 while doing WRITE I/O operation on file
>
>GLRP01. Actual file is CGSDTA/GLRP01 MEMBER - Q878515622. See the job log
>
>for a complete description of message CPF5004.
>
>Recovery . . . : Enter C to cancel, G to continue processing at *GETIN, S
>
>to obtain a printout of system storage, D to obtain an RPG formatted
>
>printout of system storage, or F to obtain a full formatted printout of
>
>system storage.
>
>
>How to rectify this problem. But I'm very clear that this problem is due to
>some over flow indicators. How to trap it. I've list my program down. Can u
>pls find the problem. This is the first time I'm trying the print option.
>
>Expecting your quick reply.
>
>Thaning you,
>
>Regards,
>Rajendren K. G.
>
>
>FGLRP01 O E PRINTER
>FGLMLF IP E DISK
>*
>C *ENTRY PLIST
>C PARM CURUSR 3
>C PARM NFRMDT 80
>C PARM NTODAT 80
>C PARM RCDTYP
>C PARM COUNT
>*
>C *IN65 IFEQ *OFF
>C Z-ADD0 LCNT 40
>C MOVE CURUSR PUSR
>C EXSR WRTHDR
>C SETON 65
>C ENDIF
>*
>C *INLR IFEQ *ON
>C EXSR WRTFTR
>C ENDIF
>*
>C NLR EXSR WRTCNT
>C ADD 1 LCNT
>*
>C LCNT IFGT 60
>C Z-ADD0 LCNT
>C EXSR WRTHDR
>C ENDIF
>C**************************************************************
>C *INZSR BEGSR
>C Z-ADD0 COUNT 80
>C ENDSR
>C**************************************************************
>C WRTHDR BEGSR
>C NFRMDT IFGT 0
>C CALL 'CNVDAT'
>C PARM NFRMDT
>C PARM FRMDAT
>C ENDIF
>C NTODAT IFGT 0
>C CALL 'CNVDAT'
>C PARM NTODAT
>C PARM TODAT
>C ENDIF
>C WRITERCD001
>C WRITERCD007
>C WRITERCD002
>C WRITERCD005
>C WRITERCD003
>C WRITERCD004
>C WRITERCD005
>C ADD 7 LCNT
>C ENDSR
>C**************************************************************
>C WRTFTR BEGSR
>C WRITERCD005
>C ENDSR
>C**************************************************************
>C WRTCNT BEGSR
>C EXSR MAKFMT
>C WRITERCD006
>C ADD 1 COUNT
>C ENDSR
>C**************************************************************C
>WRITERCD005
>C ADD 7 LCNT
>C ENDSR
>C**************************************************************
>C WRTFTR BEGSR
>C WRITERCD005
>C ENDSR
>C**************************************************************
>C WRTCNT BEGSR
>C EXSR MAKFMT
>C WRITERCD006
>C ADD 1 COUNT
>C ENDSR
>C**************************************************************
>C MAKFMT BEGSR
>C MOVE *BLANKS FCTDT
>C MOVE *BLANKS FCHDT
>C MAKFMT BEGSR
>C MOVE *BLANKS FCTDT
>C MOVE *BLANKS FCHDT
>xx xx x x x x x
>x x x x x x x x x
>(some goes here)
>C**************************************************************
>
>
>
>____________________________________________________________________
>Get free email and a permanent address at http://www.netaddress.com/?N=1
>+---
>| This is the RPG/400 Mailing List!
>| To submit a new message, send your mail to RPG400-L@midrange.com.
>| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
>| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator: 
>david@midrange.com
>+---

________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


____________________________________________________________________
Get free email and a permanent address at http://www.netaddress.com/?N=1
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---