Re: Level 40 field size problem

H dftactgrp(*NO) actgrp(*new)
Hoption(*srcstmt : *nodebugio)
D someds          ds
D number                 59     64s 0
C                   eval      number = 999999
C                   eval      *inlr = *on

Mel Rothman
Mel Rothman, Inc.

An RPG program which has been running since dirt was still uneroded rock and
on thousands of systems both CISC and RISC under every OS level there is,
does not like to run on V5R2 after a system was switched to level 40
security. It had been running fine the day before the switch.

The failure makes no sense to me.

"An intermediate result is not large enough to contain the result"

The line of code which fails is:

Eval      YPageTo = 999999

The receiver field is defined as follows

d YPageTo 59 64S 0

It is not the first line of executable code in the program and any obvious
authority problems would have probably blown up the program much earlier in
executing code due to failures in user space creation or work file creation
code which calls APIs and a bunch of subprogram calls. Debugging shows no
authority related problems and in fact there are no other failures or
warnings at all.

Though it shouldn't make any difference, this program is running from within
a CL program called via an FTP remote command from a VB program on a PC
client.

Steve Moland
Access Paths Inc
12 Parmenter Rd Unit-C4
Londonderry NH 03053
603.845.0190 Ext 2
steve@xxxxxxxxxxx  - personal
support@xxxxxxxxxxx - tech support