REPORT ZSOURCE1001.
* 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.
No comments:
Post a Comment