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