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.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.