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

Always check for overflow _before_ a write of a record format.  And always
specify an indicator in the LO column of the WRITE.

Brad

> -----Original Message-----
> From: Raja Rajendren [mailto:kgrajen@usa.net]
> Sent: Monday, July 17, 2000 9:20 AM
> To: rpg400-l@midrange.com
> Subject: Can you find it out?
> 
> 
> 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
+---