不同程序传值

青旅半醒 2022-12-24 02:55 80阅读 0赞

*\*&---------------------------------------------------------------------\**  
*\*& Report ZTST01*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT ztst01a.  
  
TABLES : makt .  
  
PARAMETERS: p\_matnr TYPE makt\-matnr .  
  
  
DATA : BEGIN OF gs\_out,  
         matnr LIKE makt\-matnr,  
         maktx LIKE makt\-maktx,  
         ersda LIKE mara\-ersda,  
       END OF gs\_out .  
  
DATA :gt\_out LIKE TABLE OF gs\_out .  
  
FIELD-SYMBOLS: <lt\_pay\_data> TYPE ANY TABLE,  
               <lt\_temp>     TYPE ANY TABLE,  
               <ls\_data>.  
  
DATA : lr\_pay\_data              TYPE REF TO data.  
  
  
  
SELECT matnr maktx  
  INTO TABLE gt\_out  
  FROM makt  
  WHERE matnr = p\_matnr.  
  
  
LOOP  AT gt\_out INTO gs\_out .  
  cl\_salv\_bs\_runtime\_info=>set( EXPORTING     display  = abap\_false  
                                       metadata = abap\_false  
                                       data     = abap\_true ).  
  
  SUBMIT ztst01  
  WITH p\_matnr    =  gs\_out\-matnr *"**年份*  
  
  AND RETURN.  
  
  
  CLEAR lr\_pay\_data.  
  UNASSIGN <lt\_pay\_data>.  
  
  TRY.  
      cl\_salv\_bs\_runtime\_info=>get\_data\_ref(  
        IMPORTING r\_data = lr\_pay\_data ).  
      ASSIGN lr\_pay\_data\->\* TO <lt\_pay\_data>.  
  
    CATCH cx\_salv\_bs\_sc\_runtime\_info.  
  ENDTRY.  
  
  
  cl\_salv\_bs\_runtime\_info=>clear\_all( ).  
  
  IF <lt\_pay\_data> IS ASSIGNED.  
    LOOP AT <lt\_pay\_data> ASSIGNING <ls\_data>.  
      MOVE-CORRESPONDING <ls\_data> TO gs\_out .  
    ENDLOOP .  
  ENDIF .  
  
  MODIFY GT\_out from gs\_out .  
ENDLOOP .  
  
  
DATA : c .  
c = '1' .

*\*&---------------------------------------------------------------------\**  
*\*& Report ZTST01*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT ZTST01.  
  
TABLES : mara .  
  
PARAMETERS: p\_matnr TYPE mara\-matnr .  
  
  
DATA : BEGIN OF gs\_out,  
     matnr like mara\-matnr,  
     ersda like mara\-ersda ,  
 END OF gs\_out .  
  
 DATA :gt\_out like TABLE OF gs\_out .  
  
  
  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
  
 SELECT matnr ersda  
   into TABLE gt\_out  
   from mara  
   where matnr = p\_matnr.  
  
  
  DEFINE append\_field.  
  gs\_fieldcat\-fieldname = &1.  
  gs\_fieldcat\-coltext = &2.  
  gs\_fieldcat\-ref\_field = &3.  
  gs\_fieldcat\-ref\_table =  &4.  
  gs\_fieldcat\-no\_zero = 'X'.  *"**去**0*  
  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
END-OF-DEFINITION.  
  
  
  
  
  
*\*    gs\_layout-box\_fname = 'MARK'.*  
*\*  gs\_layout-coltab\_fieldname = 'CLR' . "**列颜色*  
*\*gs\_layout-ctab\_fname = 'CELLCOLOR' .   "**单元格颜色*  
gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  
  append\_field: 'MATNR' '物料编码'  '' '' .  
  
  append\_field: 'ERSDA' '日期'  '' '' .  
  
  
CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
  EXPORTING  
    i\_callback\_program = sy\-repid  
*\*   i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'*  
*\*   i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'*  
*\*\**  
*\*   I\_GRID\_SETTINGS    =*  
    is\_layout\_lvc      = gs\_layout  
    it\_fieldcat\_lvc    = gt\_fieldcat  
    i\_save             = 'A'  
*\*   i\_grid\_settings    = ls\_grid\_settings*  
*\*   it\_events          = lt\_events*  
*\*   is\_variant         = ls\_variant*  
*\*   ES\_EXIT\_CAUSED\_BY\_USER   =*  
  TABLES  
    t\_outtab           = gt\_out  
  EXCEPTIONS  
    program\_error      = 1  
    OTHERS             = 2.  
IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
ENDIF.