RE: Unexpected SCAN Opcode Result

Thank you for the replies.

I learned something today.

For the record, I have been programming in RPG for over 25 years.......never hit this problem before.

Thanks again.

From: Wells, Joe J
Sent: Friday, June 09, 2017 10:53 AM
To: 'rpg400-l@xxxxxxxxxxxx'
Subject: Unexpected SCAN Opcode Result

Before posting this, I did some quick research and did not find anything about this issue........forgive me if it is well known and I simply overlooked it!

Had an interesting problem this morning and I was surprised that it did not throw an error........

Wrote a short test program to illustrate the issue -

0001.00 d pos1 s 1 0 dim(20)
0002.00 d pos2 s 2 0 dim(20)
0003.00 d string s 20a
0004.00
0005.00 c eval string=
0006.00 c '1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|'
0007.00
0008.00 c '|' scan string pos1
0009.00
0010.00 c '|' scan string pos2

Here's what pos1 shows -

POS1(1) = 2.
POS1(2) = 4.
POS1(3) = 6.
POS1(4) = 8.
POS1(5) = 0.
POS1(6) = 2.
POS1(7) = 4.
POS1(8) = 6.
POS1(9) = 8.

And here's what pos2 shows -

POS2(1) = 02.
POS2(2) = 04.
POS2(3) = 06.
POS2(4) = 08.
POS2(5) = 10.
POS2(6) = 12.
POS2(7) = 14.
POS2(8) = 16.
POS2(9) = 18.


See the problem? POS1 is wrong because it only is only 1 position. The values are getting truncated and SCAN is not throwing an error.

POS2 is correct. It has 2 positions.

Has anyone seen this before?

Thanks,

Joe