PERFORM

Reference

Syntax

PERFORM { { { subr
            | {subr|(sname) IN PROGRAM [prog|(pname)] [IF FOUND]}
            | {n OF subr1 subr2 ...}
            | {subr(prog) [IF FOUND]} }
            [TABLES itab1 itab2 ...]
            [USING a1 a2 ...]
            [CHANGING a1 a2 ...] }
        | { ON { {COMMIT [LEVEL idx]}
               | ROLLBACK } } }.

Effect

Calls a subroutine.

Additions

Specification of the subroutine:

• subr - Subroutine subr from the same program.
  
  
• subr|(sname) IN PROGRAM [prog|(pname)] - Static or dynamic specification of a subroutine in another or the current program.
  
  
• n OF subr1 subr2 ... - Subroutine n from a list of subroutines.
  
  
• subr(prog) - Obsolete: Static specification of a subroutine in another program prog.
  
  
• IF FOUND
  Suppresses an exception if the subroutine is not found. .
  
  

Specification of the parameter:

• TABLES itab1 itab2 ...
  Assigns internal tables itab1, itab2, ...to the table parameters of the same position.
  
  
• USING a1 a2 ...
  Assigns current parameters a1, a2, ...to the formal parameters of the same position.
  
  
• CHANGING a1 a2 ...
  Assigns current parameters a1, a2, ... to the formal parameters of the same position.
  
  

Specification of Execution:

• ON COMMIT [LEVEL idx]
  Registers the subroutine for execution with COMMIT WORK, where the execution sequence time can be controlled with LEVEL.
  
  
• ON ROLLBACK
  Registers the subroutine for execution with ROLLBACK WORK.