An example of RPG code for the IBM AS/400

C     $Validate     BegSr                     
C                   If        #ORDNO <> *Zeros
C     @OBCOP        Chain     OBCOP100        
C                   If        %Found(OBCOP100)
C                   Eval      *In80 = *Off    
C                   Else                      
C                   Eval      *In80 = *On     
C                   EndIf                     
C                   EndIf                     
C                   ExSr      $Display