Hi, Loyd:

As I recall, MBRL0100 does not provide the CCSID, etc.  You need to use a
different format, I believe.

HTH
--
Dennis Lovelady                    Simpsonville, SC
mail: dennis@lovelady.com          dennis.e.lovelady@ac.com
URL:  http://lovelady.piedmont.net
ICQ:  5734860

(Embedded image moved to file: pic07093.pcx)
lgoodbar@watervalley.net (lg - Loyd Goodbar)  (Mailed by:
lgoodbar@watervalley.net (lg - Loyd Goodbar) )
03/09/99 03:35 AM GMT
Please respond to MIDRANGE-L@midrange.com

To:   midrange-l@midrange.com
cc:    (bcc: Dennis E. Lovelady)
Subject:  List API header info




I was writing a utility to get information from the common API header
area...
and ran into a strange thing:
When I received the data for CCSID, country ID, location ID, and sublist
indicator, none of these had anything, and I even received an error message
during the process.
Here's a code sample of what I was doing:

(CL pgm)

1. Created user space QTEMP/@TSTRTVUS
2. CALL PGM(QUSLMBR) PARM('@TSTRTVUS QTEMP     ' +
   'MBRL0100' 'QRPGSRC   QSYSINC   ' +
   '*ALL      ' '0')
3. Retreived user space into receiver variable (at least 193 length)
4. CHGVAR VAR(&CCSID) VALUE(%BIN(&RECEIVER 141 4))
   CHGVAR VAR(&CID) VALUE(%SST(&RECEIVER 145 2))
   CHGVAR VAR(&LID) VALUE(%SST(&RECEIVER 147 3))
   CHGVAR VAR(&SUBLST) VALUE(%SST(&RECEIVER 150 1))

I received a CPF0818 message on the CHGVAR &CCSID line. (Don't know the
message text offhand, something like could not change var to implied type.)

My program dump shows:
&CCSID    *DEC 5 0  0
&CID      *CHAR     2    '  '
&LID      *CHAR     3    '   '
&SUBLST   *CHAR     1    ' '

If I read the object dump correctly (I could be off by 1)I think I'm
getting:
&CCSID    0A 00 00 00 hex
&CID      00 00
&LID      00 00 00
&SUBLST   00

After pos 140 on the specific line in my object dump, is all 00s.
There's absolutely nothing looking like char data for country/language IDs,
etc.

Does this normally occur, or is it just the specific API I'm using?

Other than those 4 items not showing correctly, my utility works great!
(Will
post on web site soon.)

Loyd

--
"Somewhere there's danger, somewhere there's injustice,
 and somewhere else the tea's getting cold." --The Doctor
lgoodbar@watervalley.net  ICQ#504581
http://www.watervalley.net/users/lgoodbar/
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator:
david@midrange.com
+---


                                  n n n n

pic07093.pcx


This thread ...


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