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



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.




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