Re: Level 40 field size problem

[Mel Rothman <mel@xxxxxxxxxxxxxx>]

I just compiled and ran without error the following code on a V5R2M0 system at 
security level 40.  Perhaps your system does not have all the required PTFs 
installed.

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.

Steve Moland wrote:
> 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