|
midrange.com
The &LENGTH parameter in this program is defined as *DEC but the API is
expecting *INT. The statement
DCL VAR(&LENGTH) TYPE(*DEC) LEN(4) VALUE(50)
is creating &LENGTH with a value of x'0000050F' which the API is
interpreting as 1295 - just a bit longer than the 50 bytes you are really
passing. On V5R3 you could change to
DCL VAR(&LENGTH) TYPE(*INT) VALUE(50)
which would give you x'00000032' (a length of 50). Alternatively you could
DCL VAR(&LENGTH) TYPE (*CHAR) LEN(4) VALUE(x'00000032')
Your API call may have appeared to be working OK on prior releases, but you
were inadvertently corrupting storage which may have caused other
application functions to work "strangely".
Bruce Vining
"Peter Vidal"
<Peter_Vidal@pall
.com> To
Sent by: midrange-l@xxxxxxxxxxxx
midrange-l-bounce cc
s@xxxxxxxxxxxx
Subject
QLGCNVCS problems with V5R3
05/17/2005 10:10
AM
Please respond to
Midrange Systems
Technical
Discussion
Hi list!
This is the first time I have an error with this API after we installed
V5R3.
0038.00 /* */
0039.00 /***************************************************************/
0040.00 START: PGM PARM(&TASK &SUBTASK)
0041.00
0042.00 DCL VAR(&TASK) TYPE(*CHAR) LEN(10)
0043.00 DCL VAR(&SUBTASK) TYPE(*CHAR) LEN(10)
0044.00
0045.00 DCL VAR(&LOWER) TYPE(*CHAR) LEN(50)
0046.00 DCL VAR(&UPPER) TYPE(*CHAR) LEN(50)
0047.00 DCL VAR(&REQUEST) TYPE(*CHAR) LEN(22) +
0048.00 VALUE(X'00000001000000000000000000000000000+
0049.00 000000000') /* Uppercase based on job +
0050.00 default CCSID */
0051.00 DCL VAR(&LENGTH) TYPE(*DEC) LEN(4) VALUE(50)
0052.00 DCL VAR(&ERRCODE) TYPE(*DEC) LEN(4) VALUE(0)
0053.00
0054.00 /* Change task to be uppercase */
0055.00 CHGVAR VAR(&LOWER) VALUE(&TASK)
0056.00 CALL PGM(QLGCNVCS) PARM(&REQUEST &LOWER &UPPER
+
0057.00 &LENGTH &ERRCODE)
Line 56 is blowing up:
==================
Scalar operand contains a value that is not valid.
Dump output directed to spooled file 1, job 653686/PVIDAL/NPITPV1 created
on system PAC400 on 05/17/05 11:05:57.
Complete thread information not available.
Function check. MCH5003 unmonitored by QLEAWI at statement 0000000013,
instruction X'0000'.
MCH5003 received by procedure MAPSECTSK. (C D I R)
MCH5003 received by procedure MAPSECTSK. (C D I R)
What have changed? I checked the archives and there are just 10 hits
about this topic.
I do not find too much help on the IBM's website:
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/ic2924/info/apis/QLGCNVCS.htm
TIA,
Peter Vidal
PALL Corporation / SR Programmer Analyst, IT Development Group
10540 Ridge Rd., Ste 203, New Port Richey, FL 34654-5111
http://www.pall.com
"Courage is the strength or choice to begin a change. Determination is the
persistence to continue in that change."
-- Anonymous ----
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
