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

You aren't detecting overflow on the printer file F-spec.  There are no
resulting indicators in the example, are you are detecting errors on the
print file write lines (indicator in the LO indicator)?  The program was
deliberately written to not monitor printer file errors.  Was that your
intention?

Richard Jackson
mailto:richardjackson@richardjackson.net
www.richardjacksonltd.com
Voice: 1 (303) 808-8058
Fax:   1 (303) 663-4325

-----Original Message-----
From: owner-rpg400-l@midrange.com [mailto:owner-rpg400-l@midrange.com]On
Behalf Of Raja Rajendren
Sent: Monday, July 17, 2000 8: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
+---