SAP Reports / Programs

comments icon Comments

RIGENE10 SAP ABAP Report - List of Active Permits







RIGENE10 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RIGENE10 into the relevant SAP transactions such as SE38 or SE80


Transaction Code(s):

Below is a list of transaction codes which are relevant to this SAP report

IPM3 - Display Permit
IPM2 - Change Permit


ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.






SUBMIT RIGENE10. "Basic submit
SUBMIT RIGENE10 AND RETURN. "Return to original report after report execution complete
SUBMIT RIGENE10 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Selection Text: S_AAEDAT = D Change date for order master
Selection Text: S_AAENAM = D Last changed by
Selection Text: S_AEDAT = Change date
Selection Text: S_AENAM = Last changed by
Selection Text: S_AERDAT = D Date entered
Selection Text: S_AERNAM = D Created by
Selection Text: S_AUFNR = D Order
Selection Text: S_BEBER = D Plant section
Selection Text: S_BUKRS = D Company code
Selection Text: S_ERDAT = Date entered
Selection Text: S_ERNAM = Created by
Selection Text: S_GNTYP = D Permit category
Selection Text: S_ILART = D Maintenance activity type
Selection Text: S_INGPR = D Maintenance Planner Group
Selection Text: S_IWERK = D Planning plant
Selection Text: S_PRIOK = D Priority
Selection Text: S_PSPEL = WBS element order header
Selection Text: S_SOGEN = D Permit
Selection Text: S_SPART = D Division
Selection Text: S_SWERK = D Maintenance plant
Selection Text: S_VKORG = D Sales organization
Selection Text: S_VTWEG = D Distribution channel
Title: List of Active Permits
Text Symbol: SON = Others
Text Symbol: S71 = Layout
Text Symbol: S60 = Location data/account assignment
Text Symbol: S50 = General data/administrative data
Text Symbol: 700 = **** LINES 701, 702, 703 are one sentence.
Text Symbol: 701 = Cancel processing for all
Text Symbol: 702 = the objects selected that
Text Symbol: 703 = have not yet been processed?
Text Symbol: 704 = List editing canceled
Text Symbol: 705 = No
Text Symbol: 706 = Y
Text Symbol: ANZ = Number
Text Symbol: FGA = Permit
Text Symbol: FGB = Permit issue
Text Symbol: FGC = Order (general)





Text Symbol: FGD = Location/AccAss.
Text Symbol: S10 = Permit status
Text Symbol: S11 = Not issued
Text Symbol: S12 = Issued
Text Symbol: S20 = Permit selection
Text Symbol: S21 = Only permits with authorization to be issued and reset
Text Symbol: S22 = Duration to key date
Text Symbol: S23 = Days
Text Symbol: S30 = Order status
Text Symbol: S31 = Outstanding
Text Symbol: S32 = In process
Text Symbol: S33 = Completed
Text Symbol: S40 = Order selection
Text Symbol: S41 = Partner
Text Symbol: S42 = Period
Text Symbol: S43 = To


INCLUDES used within this REPORT RIGENE10

INCLUDE MIOLXTOP.


TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!


Function Modules used within report and the associated call statement:

PM_PARTNER_LENGTH
     CALL FUNCTION 'PM_PARTNER_LENGTH'
          EXPORTING
               PARNR_IMP              =  H_PARNR
               PARVW                  =  H_PARVW
*              NRART                  =
          IMPORTING
               PARNR_EXP              =  H_PARNR
*              NRART_EXP              =
          EXCEPTIONS
               PARVW_AND_NRART_INITAL = 01
               INVALID_PARVW          = 02.

PM_PARTNER_VALUE_REQUEST
   CALL FUNCTION 'PM_PARTNER_VALUE_REQUEST'
     EXPORTING
       PARVW       = P_PARVW
       PARNR_IMP   = P_PARNR
       REPID       = G_REPID
       PARVW_FIELD = 'P_PARVW'
     IMPORTING
       PARNR_EXP   = P_PARNR.

MESSAGES_INITIALIZE
   CALL FUNCTION 'MESSAGES_INITIALIZE'
        EXPORTING
*         COLLECT_AND_SEND = ' '
*         RESET            = 'X'
*         LINE_FROM        = ' '
*         LINE_TO          = ' '
*         I_IDENTIFICATION =
             CHECK_ON_COMMIT  = ' '
*    IMPORTING
*         E_IDENTIFICATION =
             .

MESSAGES_STOP
   CALL FUNCTION 'MESSAGES_STOP'
     EXCEPTIONS
       A_MESSAGE = 1
       E_MESSAGE = 2
       I_MESSAGE = 3
       W_MESSAGE = 4
       OTHERS    = 5.

MESSAGES_SHOW
     CALL FUNCTION 'MESSAGES_SHOW'
*    EXPORTING
*         CORRECTIONS_OPTION    = ' '
*         CORRECTIONS_FUNC_TEXT = ' '
*         LINE_FROM             = ' '
*         LINE_TO               = ' '
*         OBJECT                = ' '
*         SEND_IF_ONE           = ' '
*         BATCH_LIST_TYPE       = 'J'
*         SHOW_LINNO            = 'X'
*         SHOW_LINNO_TEXT       = ' '
*         SHOW_LINNO_TEXT_LEN   = '3'
*         I_USE_GRID            = ' '
*    IMPORTING
*         CORRECTIONS_WANTED    =
*    EXCEPTIONS
*         INCONSISTENT_RANGE    = 1
*         NO_MESSAGES           = 2
*         OTHERS                = 3
               .

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
         ARBGB = 'IG'
         MSGTY = 'E'
         MSGV1 = OBJECT_TAB-AUFNR
         MSGV2 = OBJECT_TAB-PMSOG
         TXTNR = '009'.

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
         ARBGB = 'IG'
         MSGTY = 'E'
         MSGV1 = OBJECT_TAB-AUFNR
         MSGV2 = OBJECT_TAB-PMSOG
         TXTNR = '007'.

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
         ARBGB = 'IG'
         MSGTY = 'E'
         MSGV1 = OBJECT_TAB-AUFNR
         MSGV2 = OBJECT_TAB-PMSOG
         TXTNR = '008'.

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
         ARBGB = 'IG'
         MSGTY = 'E'
         MSGV1 = OBJECT_TAB-AUFNR
         MSGV2 = OBJECT_TAB-PMSOG
         TXTNR = '002'.

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
         ARBGB = 'IG'
         MSGTY = 'E'
         MSGV1 = OBJECT_TAB-AUFNR
         MSGV2 = OBJECT_TAB-PMSOG
         TXTNR = '000'.






MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
       EXPORTING
         ARBGB = 'IG'
         MSGTY = 'E'
         MSGV1 = OBJECT_TAB-AUFNR
         MSGV2 = OBJECT_TAB-PMSOG
         TXTNR = '001'.

CO_ZF_ORDER_LOCK
   CALL FUNCTION 'CO_ZF_ORDER_LOCK'
     EXPORTING
       AUFNR                = SEL_TAB-AUFNR
       AUTYP                = '30'
       CLIENT               = SY-MANDT
     EXCEPTIONS
       ORDER_ALREADY_LOCKED = 1
       SYSTEM_FAILURE       = 2
       OTHERS               = 3.

MESSAGE_STORE
       CALL FUNCTION 'MESSAGE_STORE'
*      Auftrag & ist bereits gesperrt.

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
*      Genehmigung & zum Auftrag & wurde GEÄNDERT während Listenanzeige
          EXPORTING
               ARBGB                   = 'IG'
               MSGTY                   = 'E'
               MSGV1                   = SEL_TAB-AUFNR
               MSGV2                   = SEL_TAB-PMSOG
               TXTNR                   = '003'
               .

MESSAGE_STORE
     CALL FUNCTION 'MESSAGE_STORE'
*      Genehmigung & zum Auftrag & wurde GEÄNDERT während Listenanzeige
          EXPORTING
               ARBGB                   = 'IG'
               MSGTY                   = 'E'
               MSGV1                   = SEL_TAB-AUFNR
               MSGV2                   = SEL_TAB-PMSOG
               TXTNR                   = '003'
               .

PM_SP_ISSUE_POST
   CALL FUNCTION 'PM_SP_ISSUE_POST' IN UPDATE TASK
     EXPORTING
       I_BELGNSTAB = BELGNSTAB[].

MESSAGE_STORE
   CALL FUNCTION 'MESSAGE_STORE'
     EXPORTING
       ARBGB = 'IG'
       MSGTY = 'I'
       MSGV1 = OBJECT_TAB-AUFNR
       MSGV2 = OBJECT_TAB-PMSOG
       TXTNR = '011'.

MESSAGE_STORE
   CALL FUNCTION 'MESSAGE_STORE'
     EXPORTING
       ARBGB = 'IG'
       MSGTY = 'I'
       MSGV1 = OBJECT_TAB-AUFNR
       MSGV2 = OBJECT_TAB-PMSOG
       TXTNR = '004'.

SOGEN_INST_AUTHORITY_CHECK
     CALL FUNCTION 'SOGEN_INST_AUTHORITY_CHECK'
       EXPORTING
         swerk  = hviaufks-iwerk
         pmsog  = hihsg-pmsog
       EXCEPTIONS
         OTHERS = 1.

DDIF_DTEL_GET
     CALL FUNCTION 'DDIF_DTEL_GET'
       EXPORTING
         NAME     = 'MANDT'
         LANGU    = SY-LANGU
       IMPORTING
         DD04V_WA = H_DD04V_WA
       EXCEPTIONS
         OTHERS   = 1.

DDIF_DTEL_GET
     CALL FUNCTION 'DDIF_DTEL_GET'
       EXPORTING
         NAME     = 'IPHAS'
         LANGU    = SY-LANGU
       IMPORTING
         DD04V_WA = H_DD04V_WA
       EXCEPTIONS
         OTHERS   = 1.

DDIF_DTEL_GET
     CALL FUNCTION 'DDIF_DTEL_GET'
       EXPORTING
         NAME     = 'AUFSTAT'
         LANGU    = SY-LANGU
       IMPORTING
         DD04V_WA = H_DD04V_WA
       EXCEPTIONS
         OTHERS   = 1.

MESSAGE_STORE
       CALL FUNCTION 'MESSAGE_STORE'
         EXPORTING
           ARBGB = 'IG'
           MSGTY = 'E'
           MSGV1 = OBJECT_TAB-AUFNR
           MSGV2 = OBJECT_TAB-PMSOG
           TXTNR = '010'.

INST_AUTHORITY_CHECK_ALL
   CALL FUNCTION 'INST_AUTHORITY_CHECK_ALL'
      EXPORTING
           begrp                    = lv_begru
           iwerk                    = is_order-iwerk
           swerk                    = is_order-swerk
           tcode                    = 'IW33'
           auart                    = is_order-auart
           ingrp                    = is_order-ingpr
*          AKTTYP                   = ' '
           kokrs                    = is_order-kokrs
           kostl                    = is_order-kostl
      EXCEPTIONS
           keine_berechtigung_begrp = 1
           keine_berechtigung_iwerk = 2
           keine_berechtigung_swerk = 3
           keine_berechtigung_auart = 4
           keine_berechtigung_ingrp = 5
           keine_berechtigung_kostl = 6
           OTHERS                   = 7.


Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name RIGENE10 or its description.


   
 

RIGENE10 - List of Active Permits
RIGENE10 - List of Active Permits
RIGC9001 - GIC Business Connector: Test for Data Mapping (Internal Use Only)
RIGC9001 - GIC Business Connector: Test for Data Mapping (Internal Use Only)
RIGC0010 - GBC: Generation of Attribute Operations
RIGC0010 - GBC: Generation of Attribute Operations