Re: QUSRJOBI API & CPF0859 error

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

Vinay,

*DEC in CL is a packed decimal format.  That's very different from the 
API's Binary(4), which is a 4-byte binary integer (twos complement).

In CL you'd use TYPE(*INT) LEN(4) for what the API calls Binary(4).

Good luck



On 12/31/2014 12:33 PM, Vinay Gavankar wrote:
> The new field name is not same as any other variable name.
>
> For the call, the first parameter is a *CHAR of length 512, second is *DEC
> 4, 0 with value of 512, third is 'JOBI0400', fourth is '*' and last is a
> blank.
>
> Not sure if *DEC is how you define binary and the value to initialize it
> with. If that is incorrect, it would mess things up. What is the right way
> to do it?
>
>
>
> On Wed, Dec 31, 2014 at 12:11 PM, Jim Oberholtzer <
> midrangel@xxxxxxxxxxxxxxxxx> wrote:
>
> > I would also check variable names.  Did you by chance use the same variable
> > name in the new file and API data?.
> >
> > Yea I know that's basic but how many times do you see it?
> >
> > --
> > Jim Oberholtzer
> > Chief Technical Architect
> > Agile Technology Architects
> >
> >
> > -----Original Message-----
> > From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> > Scott
> > Mildenberger
> > Sent: Wednesday, December 31, 2014 11:07 AM
> > To: Midrange Systems Technical Discussion
> > Subject: RE: QUSRJOBI API & CPF0859 error
> >
> > Possibly the call to QUSRJOBI has a parameter coded incorrectly and you are
> > corrupting memory.  Previously, it just happened to work and now it doesn't
> > because the memory being corrupted is important.
> >
> > Scott
> >
> >
> > -----Original Message-----
> > From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of
> > Vinay
> > Gavankar
> > Sent: Wednesday, December 31, 2014 9:07 AM
> > To: Midrange Systems Technical Discussion
> > Subject: QUSRJOBI API & CPF0859 error
> >
> > Hi,
> >
> > Happy New Year!
> >
> > I have a CL program which is working in production.
> >
> > The program has a file defined and a RCVF command. It also has a call to
> > QUSRJOBI API at the beginning of the program. The RCVF command is after a
> > lot of other processing.
> >
> > I changed the file to add another field, and recompiled the program (target
> > Release = V7R1M0) in Dev box.
> >
> > The program blows up on the RCVF command with CPF0859 error (File Override
> > caused I/O buffer size to be exceeded).
> >
> > If I comment out the call to the QUSRJOBI API, and recompile the program
> > (not sure WHY someone tried this), the program executes normally with no
> > error.
> >
> > Any suggestions on why this might be happening?
> >
> > Regards
> > Vinay
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
> > unsubscribe,
> > or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
> > moment to review the archives at http://archive.midrange.com/midrange-l.
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
> > unsubscribe,
> > or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
> > moment to review the archives at http://archive.midrange.com/midrange-l.
> >
> >
> > --
> > This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> > To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> > or email: MIDRANGE-L-request@xxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at http://archive.midrange.com/midrange-l.