• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Extracts a long int from an area

Parameters:
my	Area where the long is extracted from
0	position of the var in the area (in bytes)

global
procedure Test00Rn(record RcVc RepSpec)
begin

  Area my;
  LongInt lo;

  StartReportJob(USetStr(2301));
  PrintHeader(RepSpec);
  EndHeader;
  
  SetRepCol(2,70);
  SetRepCol(3,280);
  SetRepCol(4,400);  

  StartFormat(15);
  AddLongToArea(RepSpec.long1,my);
  AddLongToArea(RepSpec.long2,my);
  lo=GetLongFromArea(my,0);
  OutLongInt(0,0,lo,false); 
  lo=GetLongFromArea(my,4); 
  OutLongInt(2,0,lo,false);
  EndFormat;
  EndJob;
  return;
end;

Related topics: