Codes for retrieving data in an RPG program

Codes for retrieving data in an RPG program

In order to retrieve data in an RPG program you have to use the IN operation.

Syntax: IN{(E)} {*LOCK} data-area-name, were Factor 1-*LOCK and Factor 2 – data-area-name

The IN operation retrieves a data area and optionally allows you to specify whether the data area is to be locked from update by another program. For a data area to be retrieved by the IN operation, it must be specified in the result field of an *DTAARA DEFINE statement or using the DTAARA KETWORD on the Definition specification.

The variable containing the name of the data area must be set before the IN operation.

·         *LOCK can be specified in Factor 1 to indicate that the data area cannot be updated or locked by another program until an UNLOCK operation is processed,  and OUT operation with no data-area-name operand specified.

·          data-area-name must be the name of a definition defined with the DTAARA keyword, 

On a fixed-form calculation, positions 71-72 and 75-76 must be blank.

Eg:

/free
       in *lock *dtaara;
      TotAmt = TotAmt + Amount;
      TotGrs = TotGrs + Gross;
      TotNet = TotNet + Net;
  /end-free
* To start total calcs, code a fixed format calc statement with a
* level entry specified.
CL0   total_calcs   tag
/free
       if *inlr
         out *dtaara
      endif
/end-free