ABAP 指针与事件

悠悠 2023-02-19 01:29 2阅读 0赞

*\*&---------------------------------------------------------------------\**  
*\*& Report ZPP009*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zpp009.  
  
TABLES : aufk   , afpo,afko ,jest.  
  
DATA : BEGIN OF gs\_Out ,  
         dwerk     LIKE afpo\-dwerk,  
         aufnr     LIKE afpo\-aufnr,  
         dauat     LIKE afpo\-dauat,  
         matnr     LIKE afpo\-matnr,  
         maktx     LIKE makt\-maktx,  
         psmng     LIKE afpo\-psmng,  
         wemng     LIKE afpo\-wemng,  
         lgort     LIKE afpo\-lgort,  
         gstrp     LIKE afko\-gstrp,  
         gltrp     LIKE afko\-gltrp,  
         erdat     LIKE aufk\-erdat,  
         erfzeit   LIKE aufk\-erfzeit,  
         ernam     LIKE aufk\-ernam,  
         dispo     LIKE afko\-dispo,  
         fevor     LIKE afko\-fevor,  
         txt       LIKE t024f\-txt,  
         ablad     LIKE afpo\-ablad,  
         arbpl     LIKE crhd\-arbpl,  
         matnr2    LIKE resb\-matnr,  
         maktx2    LIKE  makt\-maktx,  
         charg     LIKE resb\-charg,  
         bdmng     LIKE resb\-bdmng,  
         meins     LIKE resb\-meins,  
         kunnr     LIKE   kna1\-kunnr,  
         name1     LIKE kna1\-name1,  
         cellcolor TYPE lvc\_t\_scol, *"**单元格颜色*  
         dn10      TYPE  p DECIMALS 3,  
         dn10\_low  TYPE  p DECIMALS 3,  
         dn10\_high TYPE  p DECIMALS 3,  
         dn10\_lh   TYPE c LENGTH 20,  
         dmin      TYPE  p DECIMALS 3,  
         dmin\_low  TYPE  p DECIMALS 3,  
         dmin\_high TYPE  p DECIMALS 3,  
         dmin\_lh   TYPE c LENGTH 20,  
         d10       TYPE  p DECIMALS 3,  
         D10\_low   TYPE  p DECIMALS 3,  
         D10\_high  TYPE  p DECIMALS 3,  
         d10\_lh    TYPE c LENGTH 20,  
         d50       TYPE  p DECIMALS 3,  
         D50\_low   TYPE  p DECIMALS 3,  
         D50\_high  TYPE  p DECIMALS 3,  
         d50\_lh    TYPE c LENGTH 20,  
         d90       TYPE  p DECIMALS 3,  
         D90\_low   TYPE  p DECIMALS 3,  
         D90\_high  TYPE  p DECIMALS 3,  
         d90\_lh    TYPE c LENGTH 20,  
         d99       TYPE  p DECIMALS 3,  
         D99\_low   TYPE  p DECIMALS 3,  
         D99\_high  TYPE  p DECIMALS 3,  
         d99\_lh    TYPE c LENGTH 20,  
         dmax      TYPE  p DECIMALS 3,  
         dMAX\_low  TYPE  p DECIMALS 3,  
         dMAX\_high TYPE  p DECIMALS 3,  
         dmax\_lh   TYPE c LENGTH 20,  
         zs        TYPE  p DECIMALS 3,  
         ZS\_low    TYPE  p DECIMALS 3,  
         ZS\_high   TYPE  p DECIMALS 3,  
         zs\_lh     TYPE c LENGTH 20,  
         bb        TYPE  p DECIMALS 3,  
         BB\_low    TYPE  p DECIMALS 3,  
         BB\_high   TYPE  p DECIMALS 3,  
         bb\_lh     TYPE c LENGTH 20,  
         rl        TYPE  p DECIMALS 3,  
         RL\_low    TYPE  p DECIMALS 3,  
         RL\_high   TYPE  p DECIMALS 3,  
         rl\_lh     TYPE c LENGTH 20,  
         xl        TYPE  p DECIMALS 3,  
         XL\_low    TYPE  p DECIMALS 3,  
         XL\_high   TYPE  p DECIMALS 3,  
         xl\_lh     TYPE c LENGTH 20,  
         cxwz      TYPE  p DECIMALS 3,  
         CXWZ\_low  TYPE  p DECIMALS 3,  
         CXWZ\_high TYPE  p DECIMALS 3,  
         cxwz\_lh   TYPE c LENGTH 20,  
         sf        TYPE  p DECIMALS 3,  
         SF\_low    TYPE  p DECIMALS 3,  
         SF\_high   TYPE  p DECIMALS 3,  
         sf\_lh     TYPE c LENGTH 20,  
         hf        TYPE  p DECIMALS 3,  
         HF\_low    TYPE  p DECIMALS 3,  
         HF\_high   TYPE  p DECIMALS 3,  
         hf\_lh     TYPE c LENGTH 20,  
         hff       TYPE  p DECIMALS 3,  
         HFF\_low   TYPE  p DECIMALS 3,  
         HFF\_high  TYPE  p DECIMALS 3,  
         hFf\_lh    TYPE c LENGTH 20,  
         zbz       TYPE c LENGTH 100,  
         mark,  
       END OF gs\_out .  
  
DATA : gt\_out LIKE TABLE OF gs\_out .  
DATA: gs\_Out2 LIKE gs\_out .  
DATA: gt\_out2 LIKE TABLE OF gs\_out .  
  
DATA: lt\_out LIKE TABLE OF gs\_out .  
DATA: ls\_out LIKE gs\_out .  
  
  
  
DATA: gt\_fieldcat TYPE   lvc\_t\_fcat .  
DATA: gs\_fieldcat TYPE   lvc\_s\_fcat .  
DATA: gs\_layout   TYPE   lvc\_s\_layo .  
  
  
  
DATA: g\_fm\_name TYPE rs38l\_fnam.  
DATA: gw\_options TYPE ssfcompop,  
      gw\_control TYPE ssfctrlop.  
  
  
SELECT-OPTIONS: s\_dwerk FOR afpo\-dwerk,  
                s\_matnr FOR  afpo\-matnr,  
                s\_AUFNR  FOR aufk\-aufnr  ,  
                s\_dauat FOR afpo\-dauat,  
                s\_dispo FOR afko\-dispo,  
                s\_fevor FOR afko\-fevor,  
                s\_gstrp FOR afko\-gstrp,  
                s\_erdat FOR aufk\-erdat,  
                s\_ernam FOR aufk\-ernam .  
  
PARAMETERS:p\_inact type jest\-inact .  
  
  
  
START-OF-SELECTION .  
  
DATA LV\_C  TYPE C .  
  
    IF p\_inact EQ 'X'.  
  
      SELECT  
       dwerk  *" LIKE afpo-dwerk,*  
       a~aufnr  *" LIKE afpo-aufnr,*  
       dauat  *" LIKE afpo-dauat,*  
       b~matnr  *" LIKE afpo-matnr,*  
       c~maktx  *" LIKE makt-maktx,*  
       psmng  *" LIKE afpo-psmng,*  
       wemng  *" LIKE afpo-wemng,*  
       b~lgort *"  LIKE afpo-lgort,*  
       d~gstrp  *" LIKE afko-gstrp,*  
       gltrp  *" LIKE afko-gltrp,*  
       erdat  *" LIKE aufk-erdat,*  
       erfzeit *"LIKE aufk-erfzeit,*  
       ernam *" LIKE aufk-ernam,*  
       dispo  *" LIKE afko-dispo,*  
       d~fevor  *" LIKE afko-fevor,*  
       txt    *" LIKE t024f-txt,*  
       b~ablad  
       f~arbpl  *" LIKE afpo-ablad,*  
       h~matnr AS matnr2  
       i~maktx AS maktx2  
       h~charg  
       h~bdmng  
       h~meins  
  
    INTO CORRESPONDING FIELDS OF TABLE    gt\_out  
    FROM aufk AS a  
    JOIN afpo AS b ON a~aufnr = b~aufnr  
    JOIN makt AS c ON b~matnr = c~matnr  
    JOIN afko AS d ON d~aufnr = a~aufnr  
    JOIN afvc AS e ON e~aufpl = d~aufpl  
    JOIN crhd AS f ON f~objid = e~arbid  
    JOIN t024f AS g ON g~fevor = d~fevor  
    JOIN resb AS h ON h~aufnr = b~aufnr  
    JOIN makt AS i ON h~matnr = i~matnr  
    JOIN jest AS j ON a~objnr = j~objnr  
  
    WHERE a~aufnr  IN s\_aufnr  
    AND j~stat = 'I0002'  
    AND j~inact eq  p\_inact  
    AND dwerk IN s\_dwerk  
    AND b~matnr IN s\_matnr  
    AND dauat IN s\_dauat  
    AND dispo IN s\_dispo  
    AND d~fevor IN s\_fevor  
    AND gstrp IN s\_gstrp  
    AND erdat IN s\_erdat  
    AND ernam IN s\_ernam  
    AND e~aplzl = '1'  
    AND g~werks = '1000'  
    AND h~shkzg = 'H'   AND h~bdmng > 0 .  
  
   else .  
  SELECT  
       dwerk  *" LIKE afpo-dwerk,*  
       a~aufnr  *" LIKE afpo-aufnr,*  
       dauat  *" LIKE afpo-dauat,*  
       b~matnr  *" LIKE afpo-matnr,*  
       c~maktx  *" LIKE makt-maktx,*  
       psmng  *" LIKE afpo-psmng,*  
       wemng  *" LIKE afpo-wemng,*  
       b~lgort *"  LIKE afpo-lgort,*  
       d~gstrp  *" LIKE afko-gstrp,*  
       gltrp  *" LIKE afko-gltrp,*  
       erdat  *" LIKE aufk-erdat,*  
       erfzeit *"LIKE aufk-erfzeit,*  
       ernam *" LIKE aufk-ernam,*  
       dispo  *" LIKE afko-dispo,*  
       d~fevor  *" LIKE afko-fevor,*  
       txt    *" LIKE t024f-txt,*  
       b~ablad  
       f~arbpl  *" LIKE afpo-ablad,*  
       h~matnr AS matnr2  
       i~maktx AS maktx2  
       h~charg  
       h~bdmng  
       h~meins  
  
    INTO CORRESPONDING FIELDS OF TABLE    gt\_out  
    FROM aufk AS a  
    JOIN afpo AS b ON a~aufnr = b~aufnr  
    JOIN makt AS c ON b~matnr = c~matnr  
    JOIN afko AS d ON d~aufnr = a~aufnr  
    JOIN afvc AS e ON e~aufpl = d~aufpl  
    JOIN crhd AS f ON f~objid = e~arbid  
    JOIN t024f AS g ON g~fevor = d~fevor  
    JOIN resb AS h ON h~aufnr = b~aufnr  
    JOIN makt AS i ON h~matnr = i~matnr  
    JOIN jest AS j ON a~objnr = j~objnr  
  
    WHERE a~aufnr  IN s\_aufnr  
    AND j~stat = 'I0002'  
    AND j~inact eq p\_inact  
    AND dwerk IN s\_dwerk  
    AND b~matnr IN s\_matnr  
    AND dauat IN s\_dauat  
    AND dispo IN s\_dispo  
    AND d~fevor IN s\_fevor  
    AND gstrp IN s\_gstrp  
    AND erdat IN s\_erdat  
    AND ernam IN s\_ernam  
    AND e~aplzl = '1'  
    AND g~werks = '1000'  
    AND h~shkzg = 'H' AND  h~xloek EQ ''  AND h~bdmng > 0 .  
  
  endif .  
  
  
  LOOP AT gt\_out INTO gs\_out .  
  
    SELECT  SINGLE kunnr  INTO gs\_out\-kunnr  FROM ztpp004 WHERE aufnr = gs\_out\-aufnr .  
    SELECT SINGLE name1 INTO gs\_out\-name1 FROM kna1 WHERE kunnr  = gs\_out\-kunnr  .  
    MODIFY gt\_Out FROM gs\_Out .  
    CLEAR gs\_out .  
  
  ENDLOOP .  
  
  
  
  gt\_Out2 = gt\_out .  
  
  SORT gt\_out2 BY aufnr .  
  
  DELETE ADJACENT DUPLICATES FROM gt\_out2 COMPARING aufnr .  
*\*   PERFORM jccs\_chk .  "**参数计算*  
  
  PERFORM frm\_display\_data.  
  
  
FORM frm\_display\_data .  
  
  DATA:  ls\_grid\_settings TYPE lvc\_s\_glay .  
  DATA :  lt\_events        TYPE slis\_t\_event.  
  DATA:  ls\_variant       TYPE disvariant.  
  DATA : cellcolor        TYPE lvc\_t\_scol .  
  
  DEFINE append\_field.  
    gs\_fieldcat\-fieldname = &1.  
    gs\_fieldcat\-coltext = &2.  
    APPEND gs\_fieldcat TO gt\_fieldcat.  
    CLEAR: gs\_fieldcat.  
  END-OF-DEFINITION.  
  
  append\_field: 'DWERK' '工厂' .  
  
  gs\_fieldcat\-fieldname = 'AUFNR'.  
  gs\_fieldcat\-coltext = '生产订单'.  
  gs\_fieldcat\-ref\_table = 'AFKO'.  
  gs\_fieldcat\-ref\_field = 'AUFNR'.  
*\*  gs\_fieldcat-EMPHASIZE = 'C710' .    " **列颜色*  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  append\_field: 'DAUAT' '订单类型' .  
  
  
  gs\_fieldcat\-fieldname = 'MATNR'.  
  gs\_fieldcat\-coltext = '物料代码'.  
  gs\_fieldcat\-ref\_table = 'MSEG'.  
  gs\_fieldcat\-ref\_field = 'MATNR'.  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  append\_field: 'MAKTX' '物料描述' .  
  append\_field: 'PSMNG' '订单计划数量' .  
  append\_field: 'WEMNG' '已入库数量' .  
  append\_field: 'LGORT' '收货地点' .  
  append\_field: 'GSTRP' '订单开始日期' .  
  append\_field: 'GLTRP' '订单结束日期' .  
  append\_field: 'ERDAT' '创建日期' .  
  append\_field: 'ERNAM' '创建账号' .  
  append\_field: 'DISPO' 'MRP控制者' .  
  
  
  gs\_fieldcat\-fieldname = 'KUNNR'.  
  gs\_fieldcat\-coltext = '客户编码'.  
  gs\_fieldcat\-ref\_table = 'KNA1'.  
  gs\_fieldcat\-ref\_field = 'KUNNR'.  
  gs\_fieldcat\-edit = 'X' .  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  gs\_fieldcat\-fieldname = 'ZBZ'.  
  gs\_fieldcat\-coltext = '备注'.  
  gs\_fieldcat\-INTLEN = 100 .  
  gs\_fieldcat\-edit = 'X' .  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  
  
  
  
  gs\_fieldcat\-fieldname = 'NAME1'.  
  gs\_fieldcat\-coltext = '客户名称'.  
  gs\_fieldcat\-ref\_table = 'KNA1'.  
  gs\_fieldcat\-ref\_field = 'NAME1'.  
  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
  
  
  append\_field: 'FEVOR' '生产调度员' .  
  append\_field: 'TXT' '生产车间' .  
  append\_field: 'ABLAD' '客户批次号' .  
  append\_field: 'ARBPL ' '生产工序' .  
  
  append\_field: 'DN10' 'DN10' .  
  append\_field: 'DN10\_LOW ' 'DN10\_LOW' .  
  append\_field: 'DN10\_HIGH ' 'DH10\_HIGH' .  
  append\_field: 'DN10\_LH ' 'DN10范围' .  
  
  append\_field: 'DMIN ' 'DMIN' .  
  append\_field: 'DMIN\_LOW ' 'DMIN\_LOW' .  
  append\_field: 'DMIN\_HIGH ' 'DMIN\_HIGH' .  
  append\_field: 'DMIN\_LH ' 'DMIN范围' .  
  
  append\_field: 'D10' 'D10' .  
  append\_field: 'D10\_LOW ' 'D10\_LOW' .  
  append\_field: 'D10\_HIGH ' 'D10\_HIGH' .  
  append\_field: 'D10\_LH ' 'D10范围' .  
  
  append\_field: 'D50' 'D50' .  
  append\_field: 'D50\_LOW ' 'D50\_LOW' .  
  append\_field: 'D50\_HIGH ' 'D50\_HIGH' .  
  append\_field: 'DN50\_LH ' 'D50范围' .  
  
  append\_field: 'D90' 'D90' .  
  append\_field: 'D90\_LOW ' 'D90\_LOW' .  
  append\_field: 'D90\_HIGH ' 'D90\_HIGH' .  
  append\_field: 'D90\_LH ' 'D90范围' .  
  
  append\_field: 'D99' 'D99' .  
  append\_field: 'D99\_LOW ' 'D99\_LOW' .  
  append\_field: 'D99\_HIGH ' 'D99\_HIGH' .  
  append\_field: 'D99\_LH ' 'D99范围' .  
  
  append\_field: 'DMAX' 'DMAX' .  
  append\_field: 'DMAX\_LOW ' 'DMAX\_LOW' .  
  append\_field: 'DMAX\_HIGH ' 'DMAX\_HIGH' .  
  append\_field: 'DMAX\_LH ' 'DMAX范围' .  
  
  append\_field: 'ZS' '振实' .  
  append\_field: 'ZS\_LOW ' '振实\_LOW' .  
  append\_field: 'ZS\_HIGH ' '振实\_HIGH' .  
  append\_field: 'ZS\_LH ' '振实范围' .  
  
  append\_field: 'BB' '比表' .  
  append\_field: 'BB\_LOW ' '比表\_LOW' .  
  append\_field: 'BB\_HIGH ' '比表\_HIGH' .  
  append\_field: 'BB\_LH ' '比表范围' .  
  
  append\_field: 'RL' '容量' .  
  append\_field: 'RL\_LOW ' '容量\_LOW' .  
  append\_field: 'RL\_HIGH ' '容量\_HIGH' .  
  append\_field: 'RL\_LH ' '容量范围' .  
  
  append\_field: 'XL' '效率' .  
  append\_field: 'XL\_LOW ' '效率\_LOW' .  
  append\_field: 'XL\_HIGH ' '效率\_HIGH' .  
  append\_field: 'XL\_LH ' '效率范围' .  
  
  append\_field: 'CXWZ ' '磁性物质' .  
  append\_field: 'CXWZ\_LOW ' '磁性物质\_LOW' .  
  append\_field: 'CXWZ\_HIGH ' '磁性物质\_HIGH' .  
  append\_field: 'CXWZ\_LH ' '磁性物质范围' .  
  
  append\_field: 'SF' '水分' .  
  append\_field: 'SF\_LOW ' '水分\_LOW' .  
  append\_field: 'SF\_HIGH ' '水分\_HIGH' .  
  append\_field: 'SF\_LH ' '水分范围H' .  
  
  append\_field: 'HF' '灰分' .  
  append\_field: 'HF\_LOW ' '灰分\_LOW' .  
  append\_field: 'HF\_HIGH ' '灰分\_HIGH' .  
  append\_field: 'HF\_LH' '灰分范围' .  
  
  append\_field: 'HFF ' 'HFF' .  
  append\_field: 'HFF\_LOW ' '挥发分\_LOW' .  
  append\_field: 'HFF\_HIGH ' '挥发分\_HIGH' .  
  append\_field: 'HFF\_LH ' '挥发分范围' .  
  
  
  
  
  
  
  gs\_layout\-box\_fname = 'MARK'.  
*\*  gs\_layout-coltab\_fieldname = 'CLR' . "**列颜色*  
  gs\_layout\-ctab\_fname = 'CELLCOLOR' .   *"**单元格颜色*  
  gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
  gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  ls\_grid\_settings\-edt\_cll\_cb = abap\_true.  
*\*  ls\_grid\_settings-edt\_cll\_cb =  'X'.*  
  ls\_variant\-report = sy\-repid.  
  
  APPEND VALUE \#( name = 'CALLER\_EXIT'  
                form = 'SET\_HANDLER'  
              ) TO lt\_events.  
  
  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\_out2  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  ENDIF.  
ENDFORM .  
  
  
  
FORM frm\_status\_set USING ut\_extab TYPE slis\_t\_extab.  
  SET PF-STATUS 'PF\_001'.  
ENDFORM.  
  
  
  
FORM frm\_user\_command USING uv\_ucomm LIKE sy\-ucomm  
                          us\_selfield TYPE slis\_selfield.  
  
  IF sy\-ucomm EQ 'CHK' .  
    PERFORM  cell\_check .  
    PERFORM jccs\_chk  USING 'DN10' 'Z\_BATCH\_04'  .  *"**参数计算*  
    PERFORM jccs\_chk USING   'DMIN' 'Z\_BATCH\_05'  .  
    PERFORM jccs\_chk USING   'D10' 'Z\_BATCH\_06'  .  
*\*    PERFORM jccs\_chk\_d10  .*  
    PERFORM jccs\_chk  USING  'D50' 'Z\_BATCH\_07'  .  
    PERFORM jccs\_chk  USING  'D90' 'Z\_BATCH\_08'  .  
    PERFORM jccs\_chk  USING  'D99' 'Z\_BATCH\_09'  .  
    PERFORM jccs\_chk  USING  'DMAX' 'Z\_BATCH\_10'  .  
    PERFORM jccs\_chk  USING  'ZS' 'Z\_BATCH\_11'  .    *"**振实*  
    PERFORM jccs\_chk  USING  'BB' 'Z\_BATCH\_12'  .  *"**比表*  
    PERFORM jccs\_chk  USING  'RL' 'Z\_BATCH\_13'  .  *"**容量*  
    PERFORM jccs\_chk  USING  'XL' 'Z\_BATCH\_14'  .   *"**效率*  
    PERFORM jccs\_chk  USING  'CXWZ' 'Z\_BATCH\_15'  .   *"**效率*  
    PERFORM jccs\_chk  USING  'SF' 'Z\_BATCH\_16'  . *" **水分*  
    PERFORM jccs\_chk  USING  'HF' 'Z\_BATCH\_17'  .  *"**灰分*  
    PERFORM jccs\_chk  USING  'HFF' 'Z\_BATCH\_18'  . *"**挥发分*  
  
    DATA : lt\_ztpp004 LIKE TABLE OF ztpp004 .  
    DATA : ls\_ztpp004 LIKE  ztpp004 .  
  
    LOOP AT gt\_out2 INTO gs\_out2  WHERE kunnr IS NOT INITIAL .  
      ls\_ztpp004\-aufnr = gs\_out2\-aufnr .  
      ls\_ztpp004\-kunnr = gs\_out2\-kunnr .  
      APPEND ls\_ztpp004 TO lt\_ztpp004 .  
      CLEAR: ls\_ztpp004 ,gs\_out2.  
    ENDLOOP .  
  
  
    MODIFY ztpp004 FROM TABLE lt\_ztpp004 .  
    IF sy\-subrc EQ 0 .  
      COMMIT WORK.  
    ELSE.  
      ROLLBACK WORK.  
    ENDIF .  
  
    us\_selfield\-refresh = 'X'.  
  
  ENDIF  .  
  
  
  
  
  IF  sy\-ucomm EQ 'PRINT' OR  sy\-ucomm EQ 'PRINT2' OR  sy\-ucomm EQ 'PRINT3'.  
  
    us\_selfield\-refresh = 'X'.  
  
    IF sy\-ucomm EQ 'PRINT'  .  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZSFPP009'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
  
    ELSEIF sy\-ucomm EQ 'PRINT2' .  
  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZSFPP009B'  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
  
    ELSEIF sy\-ucomm EQ 'PRINT3'  .  
  
      CALL FUNCTION 'SSF\_FUNCTION\_MODULE\_NAME'  
        EXPORTING  
          formname           = 'ZSFPP009C'              *"**标签打印*  
        IMPORTING  
          fm\_name            = g\_fm\_name  
        EXCEPTIONS  
          no\_form            = 1  
          no\_function\_module = 2  
          OTHERS             = 3.  
  
  
  
      LOOP AT gt\_out2 INTO gs\_out2  WHERE kunnr IS NOT INITIAL .  
        ls\_ztpp004\-aufnr = gs\_out2\-aufnr .  
        ls\_ztpp004\-kunnr = gs\_out2\-kunnr .  
        APPEND ls\_ztpp004 TO lt\_ztpp004 .  
        CLEAR: ls\_ztpp004 ,gs\_out2.  
      ENDLOOP .  
  
  
      MODIFY ztpp004 FROM TABLE lt\_ztpp004 .  
      IF sy\-subrc EQ 0 .  
        COMMIT WORK.  
      ELSE.  
        ROLLBACK WORK.  
      ENDIF .  
  
  
  
  
  
    ENDIF .  
  
    gw\_options\-tdnewid = 'X'.    *"New Spool*  
    gw\_options\-tdimmed = 'X'.  
    gw\_options\-tddelete = 'X'.    *"Delete Spool After Print*  
    gw\_options\-tdfinal = 'X'.  
    gw\_options\-tdiexit = 'X'.    *"Exit after printing in print preview*  
    gw\_options\-tddest = 'LP01'.  
  
*\*    gw\_control-no\_dialog = 'X'.*  
    gw\_control\-preview   = 'X'.  
    gw\_control\-no\_open   = 'X'.  
    gw\_control\-no\_close  = 'X'.  
    CALL FUNCTION 'SSF\_OPEN'    *"**打开打印窗口*  
      EXPORTING  
        control\_parameters = gw\_control  
        output\_options     = gw\_options  
        user\_settings      = ''  
      EXCEPTIONS  
        formatting\_error   = 1  
        internal\_error     = 2  
        send\_error         = 3  
        user\_canceled      = 4  
        OTHERS             = 5.  
  
    LOOP  AT  gt\_out2  INTO gs\_out2 WHERE mark EQ 'X'  .  
      LOOP AT gt\_out INTO gs\_out WHERE aufnr = gs\_out2\-aufnr.  
        gs\_out\-name1 = gs\_out2\-name1 .  
        gs\_out\-zbz   = gs\_out2\-zbz .  
        APPEND gs\_out TO lt\_out .  
  
      ENDLOOP .  
  
  
      CALL FUNCTION g\_fm\_name  
        EXPORTING  
          control\_parameters = gw\_control  
          output\_options     = gw\_options  
*\*         is\_bkpf            = gs\_bkpf*  
*\*    IMPORTING*  
*\*         job\_output\_info    = l\_end*  
*\*         job\_output\_options = l\_start*  
        TABLES  
          it\_out             = lt\_out  
*\*         it\_bkpf            = lt\_bkpf*  
        EXCEPTIONS  
          formatting\_error   = 1  
          internal\_error     = 2  
          send\_error         = 3  
          user\_canceled      = 4  
          OTHERS             = 5.  
      CLEAR: lt\_out\[\] .  
  
    ENDLOOP .  
  
    CALL FUNCTION 'SSF\_CLOSE'  
      EXCEPTIONS  
        formatting\_error = 1  
        internal\_error   = 2  
        send\_error       = 3  
        OTHERS           = 4.  
  
  
  ENDIF.  
  
  
ENDFORM .  
  
  
  
  
CLASS lcl\_event\_receiver DEFINITION.  
  PUBLIC SECTION.  
    METHODS:  
      on\_data\_change FOR EVENT data\_changed OF cl\_gui\_alv\_grid  
        IMPORTING  
          er\_data\_changed.  
  
  PRIVATE SECTION.  
    METHODS:  
      set\_zwcl  
        IMPORTING  
          ps\_good         TYPE lvc\_s\_modi  
          pr\_data\_changed TYPE REF TO cl\_alv\_changed\_data\_protocol.  
  
ENDCLASS.  
  
CLASS lcl\_event\_receiver IMPLEMENTATION.  
  
  METHOD on\_data\_change.  
    DATA:  
      ls\_good TYPE lvc\_s\_modi.  
  
    LOOP AT er\_data\_changed\->mt\_good\_cells INTO ls\_good.  
      CASE ls\_good\-fieldname.  
        WHEN 'KUNNR'.  
          set\_zwcl(  
            EXPORTING  
               ps\_good = ls\_good  
               pr\_data\_changed = er\_data\_changed ).  
      ENDCASE.  
    ENDLOOP.  
  
  ENDMETHOD.  
  
  
  METHOD set\_zwcl.  
    DATA: lv\_kunnr TYPE  kna1\-kunnr .  
    DATA: lv\_name1 TYPE  kna1\-name1 .  
  
  
    pr\_data\_changed\->get\_cell\_value(  
      EXPORTING  
        i\_row\_id    = ps\_good\-row\_id  
        i\_fieldname = ps\_good\-fieldname  
      IMPORTING  
        e\_value     = lv\_kunnr ).  
  
    pr\_data\_changed\->get\_cell\_value(  
      EXPORTING  
        i\_row\_id    = ps\_good\-row\_id  
        i\_fieldname = 'KUNNR'  
      IMPORTING  
        e\_value     = lv\_kunnr ).  
  
*\*    if lv\_zjhhk <> 0.*  
  
*\*      lv\_zwcl = lv\_zsjhk / lv\_zjhhk \* 100.*  
  
*\*    endif.*  
  
    SELECT SINGLE name1 INTO lv\_name1 FROM kna1 WHERE kunnr  = lv\_kunnr .  
  
    pr\_data\_changed\->modify\_cell(  
      EXPORTING  
        i\_fieldname = 'NAME1'  
        i\_row\_id    = ps\_good\-row\_id  
        i\_value     = lv\_name1 ).  
  
  
  ENDMETHOD.  
  
ENDCLASS.  
  
FORM set\_handler USING p\_grid TYPE slis\_data\_caller\_exit.  
  DATA:  
    lr\_event\_receiver TYPE REF TO lcl\_event\_receiver,  
    lr\_grid           TYPE REF TO cl\_gui\_alv\_grid.  
  
  CALL FUNCTION 'GET\_GLOBALS\_FROM\_SLVC\_FULLSCR'  
    IMPORTING  
      e\_grid = lr\_grid.  
  
  CREATE OBJECT lr\_event\_receiver.  
  
  SET HANDLER: lr\_event\_receiver\->on\_data\_change FOR lr\_grid.  
  
ENDFORM.  
  
  
  
*\*&---------------------------------------------------------------------\**  
*\*& Form cell\_check*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM cell\_check .  
  DATA: i TYPE i .  
  
  
  i = 6 .  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form cs\_chk*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM jccs\_chk  USING    p\_CS TYPE char20  
                         p\_ATINN TYPE char10 .  
  
  *"dn10 dmin **字段增加*  
  *"**第一步*  
  DATA: BEGIN OF gs\_resb,  
          aufnr    LIKE resb\-aufnr,  
          shkzg    LIKE resb\-shkzg,  
          meins    LIKE resb\-meins,  
          xloek    LIKE resb\-xloek,  
          bdmng    LIKE resb\-bdmng,  
          matnr    LIKE resb\-matnr,  
          charg    LIKE resb\-charg,  
          cuobj\_bm LIKE  mch1\-cuobj\_bm,  
          objek    LIKE ausp\-objek,  
          atinn    LIKE ausp\-atinn,  
          klart    LIKE ausp\-klart, *" 023*  
          atwrt    LIKE ausp\-atwrt,  
          atwrt2   TYPE p DECIMALS 4,  
  
  
        END OF gs\_resb .  
  DATA : gt\_resb LIKE TABLE OF gs\_resb .  
  
  *"**第二步，第三步*  
  DATA: BEGIN OF gs\_ausp,  
          objek LIKE ausp\-objek,  
          atinn LIKE ausp\-atinn,  
          klart LIKE ausp\-klart, *" 023*  
          atwrt LIKE ausp\-atwrt,  
  
        END OF gs\_ausp .  
  
  DATA : lv\_atinn LIKE ausp\-atinn .  
*\*  LOOP AT gt\_out2 INTO gs\_out .*  
  
  CALL FUNCTION 'CONVERSION\_EXIT\_ATINN\_INPUT'  
    EXPORTING  
*\*     input  = 'Z\_BATCH\_21'*  
      input  = p\_atinn  
    IMPORTING  
      output = lv\_atinn.  
  CLEAR :gs\_resb ,gt\_resb\[\] .  
  IF gt\_out2 IS NOT INITIAL .  
    SELECT  
      aufnr  *"like resb-aufnr ,*  
      shkzg *"like resb-shkzg,*  
      meins*" like resb-meins,*  
      xloek *"like resb-xloek,*  
      bdmng *"like resb-bdmng,*  
      a~matnr *"like resb-matnr,*  
      a~charg *"like resb-charg,*  
      cuobj\_bm   *" MCH1-CUOBJ\_BM*  
      objek *"like ausp-objek,*  
      atinn *"like ausp-atinn,*  
      klart *"like ausp-klart, " 023*  
      atwrt *"like ausp-atwrt ,*  
     INTO TABLE gt\_resb  
      FROM resb  AS a  
      JOIN  mch1 AS b ON a~matnr = b~matnr AND a~charg = b~charg  
      JOIN ausp AS c ON b~cuobj\_bm = c~objek  
      FOR ALL ENTRIES IN gt\_out2  
      WHERE aufnr  = gt\_out2\-aufnr  
      AND  a~shkzg = 'H'   AND a~meins = 'KG' AND a~xloek EQ ''  AND a~bdmng <> 0  
       AND c~atinn =  lv\_atinn    AND c~klart = '023' .  
  
  ENDIF .  
  
*\*ENDLOOP .*  
  
  DATA:BEGIN OF ls\_resb ,  
         aufnr  LIKE  aufk\-aufnr,  
         bdmng  LIKE resb\-bdmng,  
         atwrt2 TYPE p DECIMALS 6,  
       END OF ls\_resb .  
  DATA : lt\_resb LIKE TABLE OF ls\_resb .  
  
  LOOP AT gt\_resb INTO gs\_resb .  
    MOVE-CORRESPONDING gs\_resb TO ls\_resb .  
    COLLECT ls\_resb INTO lt\_resb .  
    CLEAR: gs\_resb ,ls\_resb .  
  ENDLOOP .  
  
  DATA : ls\_resb2  LIKE   ls\_resb .  
  DATA : lt\_resb2 LIKE TABLE OF ls\_resb .  
  
  LOOP AT gt\_resb INTO gs\_resb .  
    READ TABLE lt\_resb INTO ls\_resb WITH KEY aufnr = gs\_resb\-aufnr .  
    IF sy\-subrc EQ 0 .  
      gs\_resb\-atwrt2   =   gs\_resb\-bdmng \* gs\_resb\-atwrt / ls\_resb\-bdmng .  
      MOVE-CORRESPONDING gs\_resb TO ls\_resb2 .  
      COLLECT ls\_resb2 INTO lt\_resb2 .  
    ENDIF .  
  ENDLOOP .  
  
  TYPES : p3 TYPE p DECIMALS 3 .  
  
  DATA: s1  TYPE string.  
  DATA: s2  TYPE string.  
  DATA: s3  TYPE string.  
  
  LOOP AT gt\_out2 INTO gs\_out .  
*\*    gs\_Out-kunnr = '0000002000' .*  
    DATA: str\_gs\_out\_cs(20) .  
    str\_gs\_out\_cs =   'gs\_out-' && p\_cs.  
    FIELD-SYMBOLS: <gs\_out\_cs> .  
    ASSIGN  (str\_gs\_out\_cs)  TO <gs\_out\_cs>.  
  
    DATA:  str\_gs\_out\_csl(20) .  
    str\_gs\_out\_csl  = 'gs\_out-' && p\_cs && '\_low'.  
    FIELD-SYMBOLS: <gs\_out\_csl>.  
    ASSIGN  (str\_gs\_out\_csl)  TO  <gs\_out\_csl>.  
  
    DATA :  str\_gs\_out\_csh(20) .  
    str\_gs\_out\_csh  = 'gs\_out-' && p\_cs && '\_high'.  
    FIELD-SYMBOLS: <gs\_out\_csh>.  
    ASSIGN  (str\_gs\_out\_csh)  TO <gs\_out\_csh>.  
  
  
    CLEAR :ls\_resb2 .  
    READ TABLE lt\_resb2 INTO ls\_resb2 WITH KEY aufnr = gs\_Out\-aufnr .  
    IF sy\-subrc EQ 0 .  
*\*      gs\_out-dn10 = ls\_resb2-atwrt2 .*  
      <gs\_out\_cs> = ls\_resb2\-atwrt2 .  
    ENDIF .  
  
*\*    CLEAR: gs\_out-Dn10\_LOW, GS\_out-dn10\_high .*  
    CLEAR: <gs\_out\_csl> , <gs\_out\_csh> .  
    SELECT SINGLE \*  
      INTO CORRESPONDING FIELDS OF gs\_out  
*\*     MOVE-CORRESPONDING gs\_out TO ls\_out2 .*  
     FROM afpo AS a  
      JOIN ztmm005 AS b ON  a~matnr = b~matnr  
      WHERE a~aufnr = ls\_resb2\-aufnr  
      AND  b~kunnr = gs\_out\-kunnr .  
  
    DATA :  str\_gs\_out\_cslh(20) .  
    str\_gs\_out\_cslh  = 'gs\_out-' && p\_cs && '\_lh'.  
    FIELD-SYMBOLS: <gs\_out\_cslh>.  
    ASSIGN  (str\_gs\_out\_cslh)  TO <gs\_out\_cslh>.  
  
    s1 = <gs\_out\_csl>     .  
    s2 =  <gs\_out\_csh>   .  
    s3 = s1 &&  ' - ' && s2 .  
    <gs\_out\_cslh> =  s3  .  
  
  
  
  
    *"    3 yellow  5 green   6 red      7  orange 1  gray-blue*  
*\*    IF gs\_out-dn10 > gs\_out-dn10\_low AND gs\_Out-dn10 < gs\_out-dn10\_high .*  
    IF <gs\_out\_cs> GT  <gs\_out\_csl>  AND  <gs\_out\_cs> LT  <gs\_Out\_csh> .  
*\*      CLEAR:gs\_out-cellcolor\[\]  .*  
*\*      DELETE gs\_out-cellcolor WHERE fname = 'DN10' .*  
*\*      APPEND VALUE \#( fname = 'DN10'*  
      DELETE gs\_out\-cellcolor WHERE fname = p\_cs .  
      APPEND VALUE \#( fname = p\_cs  
                     color\-col = '5'  
                     color\-int = '1') TO gs\_out\-cellcolor .  
    ELSE .  
*\*       CLEAR:gs\_out-cellcolor\[\] .*  
*\*      DELETE gs\_out-cellcolor WHERE fname = 'DN10' .*  
      DELETE gs\_out\-cellcolor WHERE fname = p\_cs .  
      APPEND VALUE \#( fname =  p\_cs  
                       color\-col = '6'  
                       color\-int = '1') TO gs\_out\-cellcolor .  
    ENDIF .  
  
*\*    IF gs\_out-dn10\_LOW  EQ 0  OR gs\_out-dn10\_high EQ 0 .*  
    IF <gs\_out\_csl>  EQ 0  OR <gs\_out\_csh> EQ 0 .  
  
*\*      CLEAR:gs\_out-cellcolor\[\] .*  
      DELETE gs\_out\-cellcolor WHERE fname = p\_cs .  
      APPEND VALUE \#( fname = p\_cs  
                      color\-col = '3'  
                      color\-int = '1') TO gs\_out\-cellcolor .  
    ENDIF .  
  
  
  
  
    MODIFY gt\_out2 FROM gs\_out .  
  
    CLEAR :gs\_out ,ls\_resb2 .  
  
  ENDLOOP .  
  
  
  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form jccs\_chk\_dmin*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
  
FORM jccs\_chk\_d10 .  
  
  *"D10 D10 **字段增加*  
  *"**第一步*  
  DATA: BEGIN OF gs\_resb,  
          aufnr    LIKE resb\-aufnr,  
          shkzg    LIKE resb\-shkzg,  
          meins    LIKE resb\-meins,  
          xloek    LIKE resb\-xloek,  
          bdmng    LIKE resb\-bdmng,  
          matnr    LIKE resb\-matnr,  
          charg    LIKE resb\-charg,  
          cuobj\_bm LIKE  mch1\-cuobj\_bm,  
          objek    LIKE ausp\-objek,  
          atinn    LIKE ausp\-atinn,  
          klart    LIKE ausp\-klart, *" 023*  
          atwrt    LIKE ausp\-atwrt,  
          atwrt2   LIKE ausp\-atwrt,  
  
        END OF gs\_resb .  
  DATA : gt\_resb LIKE TABLE OF gs\_resb .  
  
  *"**第二步，第三步*  
  DATA: BEGIN OF gs\_ausp,  
          objek LIKE ausp\-objek,  
          atinn LIKE ausp\-atinn,  
          klart LIKE ausp\-klart, *" 023*  
          atwrt LIKE ausp\-atwrt,  
        END OF gs\_ausp .  
  
  DATA : lv\_atinn LIKE ausp\-atinn .  
*\*  LOOP AT gt\_out2 INTO gs\_out .*  
  
  CALL FUNCTION 'CONVERSION\_EXIT\_ATINN\_INPUT'  
    EXPORTING  
      input  = 'Z\_BATCH\_22'  
    IMPORTING  
      output = lv\_atinn.  
  CLEAR :gs\_resb ,gt\_resb\[\] .  
  IF gt\_out2 IS NOT INITIAL .  
    SELECT  
      aufnr  *"like resb-aufnr ,*  
      shkzg *"like resb-shkzg,*  
      meins*" like resb-meins,*  
      xloek *"like resb-xloek,*  
      bdmng *"like resb-bdmng,*  
      a~matnr *"like resb-matnr,*  
      a~charg *"like resb-charg,*  
      cuobj\_bm   *" MCH1-CUOBJ\_BM*  
      objek *"like ausp-objek,*  
      atinn *"like ausp-atinn,*  
      klart *"like ausp-klart, " 023*  
      atwrt *"like ausp-atwrt ,*  
     INTO TABLE gt\_resb  
      FROM resb  AS a  
      JOIN  mch1 AS b ON a~matnr = b~matnr AND a~charg = b~charg  
      JOIN ausp AS c ON b~cuobj\_bm = c~objek  
      FOR ALL ENTRIES IN gt\_out2  
      WHERE aufnr  = gt\_out2\-aufnr  
      AND  a~shkzg = 'H'   AND a~meins = 'KG' AND a~xloek EQ ''  AND a~bdmng <> 0  
       AND c~atinn =  lv\_atinn    AND c~klart = '023' .  
  
  ENDIF .  
  
*\*ENDLOOP .*  
  
  DATA:BEGIN OF ls\_resb ,  
         aufnr  LIKE  aufk\-aufnr,  
         bdmng  LIKE resb\-bdmng,  
         atwrt2 TYPE p DECIMALS 6,  
       END OF ls\_resb .  
  DATA : lt\_resb LIKE TABLE OF ls\_resb .  
  
  LOOP AT gt\_resb INTO gs\_resb .  
    MOVE-CORRESPONDING gs\_resb TO ls\_resb .  
    COLLECT ls\_resb INTO lt\_resb .  
    CLEAR: gs\_resb ,ls\_resb .  
  ENDLOOP .  
  
  DATA : ls\_resb2  LIKE   ls\_resb .  
  DATA : lt\_resb2 LIKE TABLE OF ls\_resb .  
  
  LOOP AT gt\_resb INTO gs\_resb .  
    READ TABLE lt\_resb INTO ls\_resb WITH KEY aufnr = gs\_resb\-aufnr .  
    IF sy\-subrc EQ 0 .  
      gs\_resb\-atwrt2 =   gs\_resb\-bdmng \* gs\_resb\-atwrt  /  ls\_resb\-bdmng .  
      MOVE-CORRESPONDING gs\_resb TO ls\_resb2 .  
      COLLECT ls\_resb2 INTO lt\_resb2 .  
    ENDIF .  
  ENDLOOP .  
  
  
  LOOP AT gt\_out2 INTO gs\_out .  
*\*    gs\_Out-kunnr = '0000002000' .*  
  
    CLEAR :ls\_resb2 .  
    READ TABLE lt\_resb2 INTO ls\_resb2 WITH KEY aufnr = gs\_Out\-aufnr .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-d10 = ls\_resb2\-atwrt2 .  
    ENDIF .  
  
    CLEAR: gs\_out\-D10\_low, GS\_out\-D10\_high .  
    DATA: str TYPE c LENGTH 30 .  
  
  
    SELECT SINGLE  D10\_low  D10\_high  
     INTO (  gs\_out\-D10\_low ,gs\_out\-D10\_high )  
     FROM afpo AS a  
      JOIN ztmm005 AS b ON  a~matnr = b~matnr  
      WHERE a~aufnr = ls\_resb2\-aufnr  
      AND  b~kunnr = gs\_out\-kunnr .  
    *"    3 yellow  5 green   6 red      7  orange 1  gray-blue*  
    IF gs\_out\-d10 > gs\_out\-D10\_low AND gs\_Out\-d10 < gs\_out\-D10\_high .  
*\*      CLEAR:gs\_out-cellcolor\[\]  .*  
      DELETE gs\_out\-cellcolor WHERE fname = 'D10' .  
      APPEND VALUE \#( fname = 'D10'  
                     color\-col = '5'  
                     color\-int = '1') TO gs\_out\-cellcolor .  
    ELSE .  
*\*       CLEAR:gs\_out-cellcolor\[\] .*  
      DELETE gs\_out\-cellcolor WHERE fname = 'D10' .  
      APPEND VALUE \#( fname = 'D10'  
                       color\-col = '6'  
                       color\-int = '1') TO gs\_out\-cellcolor .  
    ENDIF .  
  
    IF gs\_out\-D10\_low  EQ 0  OR gs\_out\-D10\_high EQ 0 .  
  
*\*      CLEAR:gs\_out-cellcolor\[\] .*  
      DELETE gs\_out\-cellcolor WHERE fname = 'D10' .  
      APPEND VALUE \#( fname = 'D10'  
                      color\-col = '3'  
                      color\-int = '1') TO gs\_out\-cellcolor .  
    ENDIF .  
  
    MODIFY gt\_out2 FROM gs\_out .  
  
    CLEAR :gs\_out ,ls\_resb2 .  
  
  ENDLOOP .  
  
  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form jccs\_chk\_d50*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&-------------*