Can you find it out?

[Raja Rajendren <kgrajen@xxxxxxx>]

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