SAPPGMUPDWN程序的功能是将在开发系统开发的程序导入生产系统或测试系统，无需请求号传输。在ECC6版本中此程序被去除，也许是更改名字了，没有细查。

更改后的程序源码如下：此程序与原标准程序不同的一点是，取消了原程序对行项目长度的限制。

REPORT SAPPGMUP LINE-SIZE 268 NO STANDARD PAGE HEADING.
TABLES: TRDIR,TRDIRT.

DATA: BEGIN OF ITAB1 OCCURS 100,
        ID     LIKE TEXTPOOL-ID,    "1
        KEY    LIKE TEXTPOOL-KEY,   "8
        ENTRY  LIKE TEXTPOOL-ENTRY, "255
        LENGTH LIKE TEXTPOOL-LENGTH,"10
      END OF ITAB1.

DATA: BEGIN OF ITAB2 OCCURS 100,
        ID     LIKE TEXTPOOL-ID,    "1
        KEY    LIKE TEXTPOOL-KEY,   "8
        ENTRY  LIKE TEXTPOOL-ENTRY, "255
        LENGTH LIKE TEXTPOOL-LENGTH,"10
      END OF ITAB2.

DATA CODE(255) OCCURS 10.
DATA MESG(60).

SELECTION-SCREEN: BEGIN OF LINE.
PARAMETERS: P1 RADIOBUTTON GROUP RAD0 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 4(60) TEXT-001 FOR FIELD P1.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF BLOCK BL1 WITH FRAME. TITLE TEXT-001.
PARAMETERS: PGMNM1 LIKE TRDIR-NAME.
SELECTION-SCREEN: END OF BLOCK BL1.
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN: BEGIN OF LINE.
PARAMETERS: P2 RADIOBUTTON GROUP RAD0.
SELECTION-SCREEN COMMENT 4(60) TEXT-002 FOR FIELD P2.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF BLOCK BL2 WITH FRAME. TITLE TEXT-002.
PARAMETERS: PGMNM2 LIKE TRDIR-NAME.
SELECTION-SCREEN: END OF BLOCK BL2.
SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN: BEGIN OF LINE.
PARAMETERS: P3 RADIOBUTTON GROUP RAD0.
SELECTION-SCREEN COMMENT 4(60) TEXT-003 FOR FIELD P3.
SELECTION-SCREEN: END OF LINE.
SELECTION-SCREEN: BEGIN OF BLOCK BL3 WITH FRAME. TITLE TEXT-003.
PARAMETERS: PGMNM3 LIKE TRDIR-NAME.
SELECTION-SCREEN: END OF BLOCK BL3.

START-OF-SELECTION.
  IF P1 EQ 'X'.
    REFRESH ITAB1.
    READ TEXTPOOL PGMNM1 INTO ITAB1 LANGUAGE SY-LANGU.
    LOOP AT ITAB1.
      WRITE:/00 ITAB1-ID COLOR 2,
             02 ITAB1-KEY COLOR 2,
             10 ITAB1-ENTRY COLOR 2,
            265 ITAB1-LENGTH COLOR 2.
    ENDLOOP.
  ENDIF.

  IF P2 EQ 'X'.
    CALL FUNCTION 'UPLOAD'
      EXPORTING
        FILENAME            = 'D:\SAPFILES\'
        FILETYPE            = 'ASC'
      TABLES
        DATA_TAB            = ITAB2
      EXCEPTIONS
        CONVERSION_ERROR    = 1
        INVALID_TABLE_WIDTH = 2
        INVALID_TYPE        = 3
        NO_BATCH            = 4
        UNKNOWN_ERROR       = 5
        OTHERS              = 6.

    DELETE TEXTPOOL PGMNM2 LANGUAGE SY-LANGU.
    INSERT TEXTPOOL PGMNM2 FROM ITAB2 LANGUAGE SY-LANGU STATE 'A'.
    IF SY-SUBRC EQ 0.
      MESSAGE S509(01) WITH 'Text Element was uploaded Success!'.
    ENDIF.
  ENDIF.

  IF P3 EQ 'X'.
    CALL FUNCTION 'UPLOAD'
      EXPORTING
        FILENAME            = 'D:\SAPFILES\'
        FILETYPE            = 'ASC'
      TABLES
        DATA_TAB            = CODE
      EXCEPTIONS
        CONVERSION_ERROR    = 1
        INVALID_TABLE_WIDTH = 2
        INVALID_TYPE        = 3
        NO_BATCH            = 4
        UNKNOWN_ERROR       = 5
        OTHERS              = 6.
    SELECT * FROM TRDIR WHERE NAME = PGMNM3.
      EXIT.
    ENDSELECT.
    INSERT REPORT PGMNM3 FROM CODE.
    IF SY-SUBRC NE 0.
      MESSAGE S509(01) WITH 'Program Code was uploaded Success!'.
    ENDIF.
  ENDIF.