ABAP设计源代码1.docVIP

*---------------------------------------------------------------------* * Report Z_CALLING_PROGRAM_77_DJB * *---------------------------------------------------------------------* * * *---------------------------------------------------------------------* REPORT z_calling_program_77_djb. START-OF-SELECTION. WRITE This program calls another program.. * SUBMIT z_simple_program_74_djb. SUBMIT z_simple_program_74_djb AND RETURN.注意本句的语法 *---------------------------------------------------------------------* * Report Z_CALLING_FUNCTION_158_DJB * *---------------------------------------------------------------------* * * *---------------------------------------------------------------------* report z_calling_function_158_djb. data:int1 type i value 3, int2 type i value 4, sum type i. call function Z_INTEGER_ADD_155_DJB exporting input_1 = int1 input_2 = int2 importing output = sum. if sy-subrc = 0. write sum. endif. FUNCTION Z_INTEGER_ADD_155_DJB. *---------------------------------------------------------------------- **Local Interface: * IMPORTING * REFERENCE(INPUT_1) TYPE I * REFERENCE(INPUT_2) TYPE I * EXPORTING * REFERENCE(OUTPUT) TYPE I *---------------------------------------------------------------------- output = input_1 + input_2. ENDFUNCTION. *---------------------------------------------------------------------* * Report Z_CASE_ENDCASE_113_DJB * *---------------------------------------------------------------------* * * *---------------------------------------------------------------------* REPORT z_case_endcase_113_djb. CASE sy-datum+4(2). WHEN 12 OR 01 OR 02. WRITE / The season now is Winter.. WHEN 03 OR 04 OR 05. WRITE / The season now is Spring.. WHEN 06 OR 07 OR 08. WRITE / The season now is Summer.. WHEN 09 OR 10 OR 11. WRITE / The season now is Autumn.. WHEN others. WRITE / This is illegal date.. ENDCASE. *--------------------------------------------