tables

• 文章

  TABLES关键字

  ABAP

   "用tables关键字申明表的同时，也申明了同名的结构体,所以select...endselect或者select single查询时未指定into对象，但没问题. "代码来源：CYAUFTR1 TABLES: CAUFV, AFVC, *AFVC, AFVV, CRHD, PLAF, KBKO.   SELECT * FROM AFVC WHERE AUFPL = CAUFV-AUFPL                        AND SUMNR = '00000000'                      ORDER BY VORNR. *   Hauptvorgang oder Phase selektiert.     IF AFVC-PHFLG IS INITIAL.       ULINE.       WRITE: /'Vorgang: ' COLOR 3 NO-GAP.                   "#EC NOTEXT     ELSE.       WRITE: /'  Phase: '.                                  "#EC NOTEXT     ENDIF.     SELECT SINGLE * FROM AFVV WHERE AUFPL = AFVC-AUFPL                                 AND APLZL = AFVC-APLZL.     SELECT SINGLE * FROM CRHD WHERE OBJTY = 'A'                                 AND OBJID = AFVC-ARBID.     MGVRG = AFVV-MGVRG.     VGW01 = AFVV-VGW01.     VGW02 = AFVV-VGW02.     VGW03 = AFVV-VGW03.     WRITE: AFVC-VORNR COLOR 3,            '  APLZL: ', AFVC-APLZL,                         "#EC NOTEXT            '  BEDZL: ', AFVC-BEDZL,                         "#EC NOTEXT          / '    ARBPL: ', AFVC-ARBID, CRHD-ARBPL,           "#EC NOTEXT            '    Menge: ', MGVRG, AFVV-MEINH,                "#EC NOTEXT          / '    Vorgabewerte (1-3): ',                      "#EC NOTEXT            VGW01, AFVV-VGE01,            VGW02, AFVV-VGE02,            VGW03, AFVV-VGE03. *   KBEDs zum Hauptvorgang     PERFORM WRITE_KBED USING AFVC-BEDID                              AFVC-BEDZL                              SPACE. *   Untervorgänge zum Hauptvorgang     SELECT * FROM AFVC INTO *AFVC                         WHERE AUFPL = CAUFV-AUFPL                           AND SUMNR = AFVC-APLZL                         ORDER BY VORNR. *     Untervorgang selektiert.       SELECT SINGLE * FROM CRHD WHERE OBJTY = 'A'                                   AND OBJID = *AFVC-ARBID.       IF AFVC-PHFLG IS INITIAL.         WRITE: /' ', 'Untervorgang:      ' COLOR 4 NO-GAP.  "#EC NOTEXT       ELSE.         WRITE: /' ', 'Sekundaerressource: ' COLOR 4 NO-GAP. "#EC NOTEXT       ENDIF.       WRITE:    *AFVC-VORNR COLOR 4,                 '  APLZL: ', *AFVC-APLZL,                   "#EC NOTEXT                 '  BEDZL: ', *AFVC-BEDZL,                   "#EC NOTEXT               / '    ARBPL: ', *AFVC-ARBID, CRHD-ARBPL.     "#EC NOTEXT *     KBEDs zu Untervorgang/Sekundärressource       PERFORM WRITE_KBED USING *AFVC-BEDID                                *AFVC-BEDZL                                SPACE.     ENDSELECT.     ULINE.   ENDSELECT.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60

  "用tables关键字申明表的同时，也申明了同名的结构体,所以select...endselect或者select single查询时未指定into对象，但没问题. "代码来源：CYAUFTR1   TABLES: CAUFV, AFVC, *AFVC, AFVV, CRHD, PLAF, KBKO.     SELECT * FROM AFVC WHERE AUFPL = CAUFV-AUFPL                        AND SUMNR = '00000000'                      ORDER BY VORNR. *   Hauptvorgang oder Phase selektiert.     IF AFVC-PHFLG IS INITIAL.       ULINE.       WRITE: /'Vorgang: ' COLOR 3 NO-GAP.                   "#EC NOTEXT     ELSE.       WRITE: /'  Phase: '.                                  "#EC NOTEXT     ENDIF.     SELECT SINGLE * FROM AFVV WHERE AUFPL = AFVC-AUFPL                                 AND APLZL = AFVC-APLZL.     SELECT SINGLE * FROM CRHD WHERE OBJTY = 'A'                                 AND OBJID = AFVC-ARBID.     MGVRG = AFVV-MGVRG.     VGW01 = AFVV-VGW01.     VGW02 = AFVV-VGW02.     VGW03 = AFVV-VGW03.     WRITE: AFVC-VORNR COLOR 3,            '  APLZL: ', AFVC-APLZL,                         "#EC NOTEXT            '  BEDZL: ', AFVC-BEDZL,                         "#EC NOTEXT          / '    ARBPL: ', AFVC-ARBID, CRHD-ARBPL,           "#EC NOTEXT            '    Menge: ', MGVRG, AFVV-MEINH,                "#EC NOTEXT          / '    Vorgabewerte (1-3): ',                      "#EC NOTEXT            VGW01, AFVV-VGE01,            VGW02, AFVV-VGE02,            VGW03, AFVV-VGE03. *   KBEDs zum Hauptvorgang     PERFORM WRITE_KBED USING AFVC-BEDID                              AFVC-BEDZL                              SPACE. *   Untervorgänge zum Hauptvorgang     SELECT * FROM AFVC INTO *AFVC                         WHERE AUFPL = CAUFV-AUFPL                           AND SUMNR = AFVC-APLZL                         ORDER BY VORNR. *     Untervorgang selektiert.       SELECT SINGLE * FROM CRHD WHERE OBJTY = 'A'                                   AND OBJID = *AFVC-ARBID.       IF AFVC-PHFLG IS INITIAL.         WRITE: /' ', 'Untervorgang:      ' COLOR 4 NO-GAP.  "#EC NOTEXT       ELSE.         WRITE: /' ', 'Sekundaerressource: ' COLOR 4 NO-GAP. "#EC NOTEXT       ENDIF.       WRITE:    *AFVC-VORNR COLOR 4,                 '  APLZL: ', *AFVC-APLZL,                   "#EC NOTEXT                 '  BEDZL: ', *AFVC-BEDZL,                   "#EC NOTEXT               / '    ARBPL: ', *AFVC-ARBID, CRHD-ARBPL.     "#EC NOTEXT *     KBEDs zu Untervorgang/Sekundärressource       PERFORM WRITE_KBED USING *AFVC-BEDID                                *AFVC-BEDZL                                SPACE.     ENDSELECT.     ULINE.   ENDSELECT.

  ag

  2020.11.22

  1.3K000
• 文章

  SAP ECC中最重要的550张表

  表名 简短描述 ADCP Person/Address Assignment (Business Address Services) ADR2 Telephone Numbers …

  ag

  2018.03.21

  4.4K100