Thanks Scott. Worked like a charm.

On Wed, Dec 31, 2014 at 1:39 PM, Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>
wrote:

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.


--
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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].