How to find the application type fora Script based on Form name?

Question

Hi Guys,
            can anybody tell me how to find the Application Type and output type based on Form name and print program name?
I am having form name as: ZINVENT (INVENT is the actual) and program name as RM07IDRU.How can i find the Appliction ntype and OutType for entering into the NACE tr code.
                i tried thru TNAPR table but i was not able to find the Entry in the TNAPR with form Name and printprogram name
               Th Script is about Phsical inventory Documents.
Thanks,
Gopi.

Answer 1

You can use this...
REPORT  Z_DUMMY_ATG NO STANDARD PAGE HEADING.
*======================================================================
* Tablas
*======================================================================
TABLES: TTXFP.
*======================================================================
* Tablas Internas
*======================================================================
DATA: T_TTXFP TYPE STANDARD TABLE OF TTXFP WITH HEADER LINE.
*======================================================================
* Selection-Screen
*======================================================================
SELECTION-SCREEN BEGIN OF BLOCK SCRIPT WITH FRAME.
SELECT-OPTIONS:
              PRINTNAM FOR TTXFP-PRINT_NAME,
              TDFORM   FOR TTXFP-TDFORM.
SELECTION-SCREEN END OF BLOCK SCRIPT.
*======================================================================
* Start-of-selection
*======================================================================
START-OF-SELECTION.
  PERFORM SELECT_DATA.
  PERFORM PRINT_DATA.
*&      Form  SELECT_DATA
*       Seleccionamos los datos del reporte.
FORM SELECT_DATA.
  SELECT TDFORM PRINT_NAME LAST_PROG
  INTO TABLE T_TTXFP
  FROM TTXFP
  WHERE PRINT_NAME IN PRINTNAM
    AND TDFORM IN TDFORM
  ORDER BY TDFORM.
ENDFORM.                    "SELECT_DATA
*&      Form  PRINT_DATA
*       Imprimimos el resultado del reporte.
FORM PRINT_DATA.
  FORMAT COLOR 3.
  WRITE: 'Programa', 18 'Formulario', 50 'Flag de Ultimo programa'.
  FORMAT COLOR OFF.
  SKIP 1.
  IF NOT T_TTXFP[] IS INITIAL.
  SORT T_TTXFP BY PRINT_NAME.
    LOOP AT T_TTXFP.
      IF T_TTXFP-LAST_PROG EQ 'X'.
      FORMAT COLOR 4.
      WRITE:/ T_TTXFP-PRINT_NAME, 18 T_TTXFP-TDFORM, 60 T_TTXFP-LAST_PROG.
      FORMAT COLOR OFF.
      ELSE.
      WRITE:/ T_TTXFP-PRINT_NAME, 18 T_TTXFP-TDFORM, 60 T_TTXFP-LAST_PROG.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDFORM.                    "PRINT_DATA
Greetings,
Blag.