Could anyone please explain me the following code ? How do it got DB number ? What is the use of the current_offset and RT_Int_ Offset? Why used in the code ITD, SLD 3, LAR1 ?? What is doing the code in between CNT and LOOP_CNT ?
// set BR = 1
SET
SAVE
// load constants
L "GlobalConstants".RT_Int_DB
T #DB_Tpen
L "GlobalConstants".RT_Int_Number
T #RT_Number
L "GlobalConstants".RT_Int_Size
T #RT_Size
L #Table_ID
T #Table_ID_Temp
// check for a valid DB number
L 0
L #DB_Tpen
==I
SPB DNE
T #DB_Tpen
// open block
AUF DB [#DB_Tpen]
L 0
T #Current_Offset
L #RT_Number
CNT: T #RT_Int_Counter
L #Current_Offset
ITD
SLD 3
LAR1
// offset for table id is 12
L DBW [AR1,P#12.0]
L #Table_ID_Temp
==I
SPB OFD
L #Current_Offset
L #RT_Size
+I
T #Current_Offset
L #RT_Int_Counter
LOOP CNT
DNE: L 0
T #RT_Int_Offset
BE
OFD: L #Current_Offset
T #RT_Int_Offset
BE
Thanks
// set BR = 1
SET
SAVE
// load constants
L "GlobalConstants".RT_Int_DB
T #DB_Tpen
L "GlobalConstants".RT_Int_Number
T #RT_Number
L "GlobalConstants".RT_Int_Size
T #RT_Size
L #Table_ID
T #Table_ID_Temp
// check for a valid DB number
L 0
L #DB_Tpen
==I
SPB DNE
T #DB_Tpen
// open block
AUF DB [#DB_Tpen]
L 0
T #Current_Offset
L #RT_Number
CNT: T #RT_Int_Counter
L #Current_Offset
ITD
SLD 3
LAR1
// offset for table id is 12
L DBW [AR1,P#12.0]
L #Table_ID_Temp
==I
SPB OFD
L #Current_Offset
L #RT_Size
+I
T #Current_Offset
L #RT_Int_Counter
LOOP CNT
DNE: L 0
T #RT_Int_Offset
BE
OFD: L #Current_Offset
T #RT_Int_Offset
BE
Thanks