× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

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.