REPORT zsapgos_002.
TABLES: scarr.
DATA: ok_code LIKE sy-ucomm,
save_ok LIKE ok_code.
DATA: gv_attfile.
PARAMETERS: p_carrid LIKE scarr-carrid.
START-OF-SELECTION.
CLEAR: scarr.
SELECT SINGLE *
FROM scarr
WHERE carrid = p_carrid.
IF sy-subrc NE 0.
LEAVE LIST-PROCESSING.
ENDIF.
CALL SCREEN 100.
*&-------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&-------------------------------------------------------------*
module STATUS_0100 output.
SET PF-STATUS '0100'.
* SET TITLEBAR '0100'.
endmodule. " STATUS_0100 OUTPUT
*&-------------------------------------------------------------*
*& Module EXIT INPUT
*&-------------------------------------------------------------*
module EXIT input.
CASE ok_code.
WHEN 'EXIT'.
LEAVE TO SCREEN 0.
ENDCASE.
endmodule. " EXIT INPUT
*&---------------------------------------------------------------------*
*& Module CREATE_GOS OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE create_gos OUTPUT.
CALL FUNCTION 'SWU_OBJECT_PUBLISH'
EXPORTING
objtype = 'ZSAPGOS'
objkey = p_carrid.
ENDMODULE. " CREATE_GOS OUTPUT
*&---------------------------------------------------------------------*
*& Module CHECK_ATTA_FILE OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE check_atta_file OUTPUT.
TABLES: srgbtbrel.
CLEAR : srgbtbrel, gv_attfile.
SELECT SINGLE *
FROM srgbtbrel
WHERE reltype = 'ATTA'
AND instid_a = p_carrid.
IF sy-subrc = 0.
gv_attfile = 'X'.
ENDIF.
ENDMODULE. " CHECK_ATTA_FILE OUTPUT
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
489 | REPORT z17_15 . | sapjoy | 2012.08.01 | 2473 |
488 | REPORT z19_003 | sapjoy | 2007.03.26 | 2473 |
487 | REPORT z18_019 | sapjoy | 2007.03.12 | 2473 |
486 | REPORT Z07_024 | sapjoy | 2006.12.08 | 2472 |
485 | REPORT Z15_037. | sapjoy | 2007.02.05 | 2472 |
484 | REPORT zale_001 . | sapjoy | 2009.02.10 | 2470 |
483 | REPORT z17_21 . | sapjoy | 2012.08.01 | 2469 |
482 | report zunicode_008. | sapjoy | 2008.11.21 | 2465 |
481 | REPORT z11_004 . | sapjoy | 2006.12.22 | 2465 |
480 | REPORT z18_022 | sapjoy | 2007.03.16 | 2464 |
479 | REPORT Z07_008 | sapjoy | 2006.12.07 | 2462 |
478 | REPORT z18_018 [4] | sapjoy | 2007.03.11 | 2462 |
477 | REPORT Z04_033 [1] | sapjoy | 2008.04.14 | 2456 |
476 | REPORT Z05_012 [1] | sapjoy | 2008.04.14 | 2455 |
475 | REPORT Z15_041 | sapjoy | 2007.07.31 | 2453 |
474 | REPORT Z07_021 [2] | sapjoy | 2006.12.08 | 2452 |
473 | REPORT z15_021 | sapjoy | 2007.01.29 | 2452 |
» | REPORT zsapgos_002. | sapjoy | 2009.02.11 | 2451 |
471 | REPORT z18_035 | sapjoy | 2007.03.13 | 2450 |
470 | REPORT Z03_012 [6] | sapjoy | 2007.05.14 | 2448 |