D PR01DS DS D PR01PG 152 153B 0 D PR01OF 188 189B 0 D PR01LN 367 368B 0This does appear to work most of the time, but recently had a failure with a test on PR01LN with "The target for a numeric operation is too small to hold the result". The contents of the dump for PR01DS were:
PR01DS DS PR01LN BIN(4,0) 6448. '4040'X PR01OF BIN(4,0) 0060. '003C'X PR01PG BIN(4,0) 0066. '0042'X
My questions are:
1. When does PR01LN get initialized?
2. Should I need to initialize it?
3. In the Redbook for ILE RPG these fields are defined as unsigned Integers so would it cause a problem when I define them as Binary?
The field PRO1LN gets initialized at the open of the print file which is usually at the start of the program. You do not need to initialize it. My thoughts for the problem are that the number of lines written is surpassing the 9999 count. This would give you the error that field is too small to hold the result. Increase the size of PRO1LN to at least a 6,0B field.
================================== MORE INFORMATION ON THIS TOPIC ==================================
The Best Web Links: Tips, tutorials and more.
Ask your systems management questions--or help out your peers by answering them--in our live discussion forums.
Read this Search400.com Featured Topic: Managing your iSeries.
Ask the Experts yourself: Our systems management gurus are waiting to answer your technical questions.
This was first published in April 2004