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



thank all of you for the quick response.

your answers solved my problem.

thanx again.

cu

mk

> -----Ursprüngliche Nachricht-----
> Von: Bob Cozzi [mailto:cozzi@xxxxxxxxx] 
> Gesendet: Montag, 19. April 2004 14:30
> An: 'RPG programming on the AS400 / iSeries'
> Betreff: RE: retrieve user space api problem
> 
> 
> You should be using the RPG ToolKit to do this kind of stuff; all the
> difficulties you're seeing are hidden in the Toolkit API wrappers.
> Having said that, a Bin(4) value is in fact a 10i0 value in RPG IV.
> However it occupies 4 bytes of storage. So to get the value, 
> use %SUBST(x :
> pos : 4) and store it in a Char(4) field that is overlaid on 
> top of a 10I0
> value, as follows:
> D            DS
> D  szChar                  4A
> D  nOffset                10I 0  Overlay(szChar)
> 
> C               eval  szChar = %subst(buffer : POS : 4)
> 
> -Bob Cozzi
> 
> 
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Knezevic, Mihael
> Sent: Monday, April 19, 2004 7:06 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: retrieve user space api problem
> 
> hi,
> 
> i have problems retrieving binary(4) data from user space. 
> the char data
> is ok. but i have problems getting binary(4) fields like 
> 
> 124   7C      BINARY(4)       Offset to list data section
> 
> if i use the display command in my rpg program i get:
> 
> DSPLY  b
> 
> i tried to convert it to a number with:
> 
> listPosition = %dec(%trim(listValue) : 10 : 0);
> 
> but i get an error with errorcode 105 (which seems to be 
> undocumented or
> at least i can't find the docu of that status) when i look at 
> the status
> field of the program error data structure.
> 
> i think i make some terribly simple mistake but i don't get 
> it. perhaps
> someone can help me.
> 
> thanx in advance.
> 
> mk
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) 
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> 
> 


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.