Pointer any to FC

Hallo,

Can somebody help mee.
I write a function to convert a DWORD to CHAR but i have problems with de pointer any.
See mij code

CALL "Second_ASQII"
OTZwaarde :=DB15.DBD64 //DWORD in DB15
DBString :=P#DB41.DBX210.0 //DB41= DWORD to char
StringFile:='A'

The string in DB41 = 'A000000_04' and begin on byte 210

FC1

L P##DBString //any pointer
LAR1
L D [AR1,P#2.0]
T #iDBArea
L W [AR1,P#4.0]
T #iDBNummer
L D [AR1,P#6.0]
T #IDBBereik
OPN DB [#iDBNummer]
LAR1 P#2.0
L #StringFile
T DBB [AR1,P#0.0]
L ' '
T DBW [AR1,P#3.0]
L ' '
T DBW [AR1,P#5.0]
L ' '
T DBW [AR1,P#7.0]
L ' '
T DBW [AR1,P#9.0]
L ' '
T DBB [AR1,P#11.0]

thanks
Jacques

If you post in symbolic form, we can't tell what "Second_ASQII" is. Is it FC1 of which you've shown a part ?

In your FC1 code you are not doing anything with the area pointer which you store in IDBBereik but you load AR1 with P#2.0, this means that
T DBB[ar1,p#0.0] will actually reference DBB2. I think you need to add P#2.0 to IDBBereik and use this in the address register. (Your code is putting spaces in the string)

Hallo,

Thanks for your anser.

Yes "Second_ASQII" = FC1
thats my problem.
IDBBereik = 212 is the area position in the DB (=DBX212.0)
How must i do that Lar1 = P#212.0?

One thing I see wrong is the "L D[AR1,P2.0]" statement. It should be "L D[AR1,P#0.0]" instead. I can't see where you are using IDBArea though, so maybe it isn't hurting anything right now.

And Simon is right. If you are using true Siemens strings (where the first two bytes are used for string lengths), then you have to add two bytes to the pointer, such as this:

L #IDBBereik
LAR1
+AR1 P#2.0

Now, you will be pointing to DBB212.

But then in the following code, you aren't writing to all of the bytes. Try this:

L #StringFile
T DBB [AR1,P#0.0]
L ' '
T DBB [AR1,P#1.0]
L ' '
T DBB [AR1,P#2.0]
L ' '
T DBB [AR1,P#3.0]
L ' '
T DBB [AR1,P#4.0]
L ' '
T DBB [AR1,P#5.0]
etc, etc

Or, you could write to words if you insert an extra space so you are transfering two bytes:

L #StringFile
T DBB [AR1,P#0.0]
L ' '
T DBW [AR1,P#1.0]
L ' '
T DBB [AR1,P#3.0]
L ' '
T DBB [AR1,P#5.0]
etc, etc