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

Replies:

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

This mailing list archive is Copyright 1997-2022 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.