*&---------------------------------------------------------------------* *& Chapter 10: Simple form (local subroutine of a program) *&---------------------------------------------------------------------* REPORT CHAP1001. * Global field of the program DATA FLAG VALUE 'G'. * Displaying the global field WRITE FLAG. * Calling a form PERFORM SET_FLAG. * Displaying the global field again WRITE FLAG. * Defining a form FORM SET_FLAG. * Changing and displaying the global field FLAG = 'L'. WRITE FLAG. ENDFORM.