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

By trapping the overflow on the printer file with a keyword, print the header
record when its condition is true.

Raja Rajendren wrote:

> 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
> +---

+---
| 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
+---