bara_hence
Member
Have a little question how to do this:
I want to do a ANY pointer wich gets a DBnr (INT) and number of bytes to send and number of bytes to send (INT) The question i have is when makiing the last part of the ANYPOINTER for the SEND area i want to use the recieve areas lenght to set the start adress is this possible to do? This is what I have come up with:
L #RecvLen
SLD 3
T D [AR1,P#6.0]
Will that work to point out the startadress for example dbx50.0 (if RecvLen = 50)??
The other code follows:
I want to do a ANY pointer wich gets a DBnr (INT) and number of bytes to send and number of bytes to send (INT) The question i have is when makiing the last part of the ANYPOINTER for the SEND area i want to use the recieve areas lenght to set the start adress is this possible to do? This is what I have come up with:
L #RecvLen
SLD 3
T D [AR1,P#6.0]
Will that work to point out the startadress for example dbx50.0 (if RecvLen = 50)??
The other code follows:
Code:
L #SendDB_Nr
T #Temp_DB_Nr
//************************************
// Build Anypointer Send
//************************************
L P##P_Send
LAR1
// System-Code
L B#16#10
T B [AR1,P#0.0]
// Datatype Byte
L B#16#2
T B [AR1,P#1.0]
// Number of Bytes to Exchange
L #SendLen
T W [AR1,P#2.0]
// DB Nr.
L #Temp_DB_Nr
T W [AR1,P#4.0]
// Start-Adress i DB OBS möjligt att göra?
//L #RecvLen
//SLD 3
//T D [AR1,P#6.0]
L P#DBX 50.0
T D [AR1,P#6.0]
//*********************************************
// Build Anypointer Recv
//*********************************************
L P##P_Recv
LAR1
// System-Code
L B#16#10
T B [AR1,P#0.0]
// Datatype Byte
L B#16#2
T B [AR1,P#1.0]
// Number of Bytes to Exchange
L #RecvLen
T W [AR1,P#2.0]
// DB Nr.
L #Temp_DB_Nr
T W [AR1,P#4.0]
//Start-Adress i DBt
L P#DBX 0.0
T D [AR1,P#6.0]