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. |
本文作者: GavinDong
版权属于: GavinDong博客
文章链接: https://gavindong.com/5156.html
如果使用过程中遇到问题,可 **点击此处** 交流沟通。
版权所有,转载时必须以链接形式注明作者和原始出处及本声明。