Click's Blog

宏申's profileClick's BlogPhotosBlogListsMore

Tools

Help

Guestbook

MSN: no17_agl@hotmail.com

QQ: 5210072

有钱的捧个钱场，没钱的捧个人场

Add a comment

长门wrote:

兄弟请教下你博客照片中那个ALV List同类项目合计是怎么做的啊？我也是作ABAP的最近在研究ALV 经验还不足多多指教啊

Mar. 30

色狼等级靠证试题，答中60分以上者可评资深色狼，80分对可以评为大师级色狼，100分答对的话，你就是色狼领袖了。
1.一名女教师正在给同学们上拼音课，教着教着忽然脸红了。请问她现在正在教的最有可能是哪个字？
A，软 B，硬 C，嫩 D，嬲
2.请问金庸小说人物里面，谁是真正的同性恋？
A，东方不败 B，陈家洛 C，李文秀 D，杨过
3.有一位姓雷的师傅发扬团结友爱互相帮助的精神，骑车送他的女同事回家。那么这辆自行车最有可能的配置是什么？
A，有前杠有后座 B，有前杠没后座 C，有后座没前杠 D，没前杠没后座
4.下列那个大洲的足球赛最好看？
A，亚洲杯 B，美洲杯 C，非洲杯 D，欧洲杯
5.有一艘游艇漏水了，正在这个船上的中国领导仗着自己牛高马大，抢到了一个救生圈，秘书提醒他：“船上还有妇女同志呢？”领导说：
A，让领导先走！！！B，这是我的party费。C，我没那个心情。D，我上有小，下有老。
6.有一炒股的夫妻俩，他们最怕股市的哪个术语？
A，光头大阳线 B，突破 C，井喷 D，解套
7.寝室里面五兄弟，请问谁交女朋友可能最多？
A，老大 B，老二 C，老三 D，老五
8.台湾2008大选的时候，如果民进party推出苏贞昌和谢长廷的组合，那么国民party的马英九应该招谁当副手才是绝配？
A，王金平B，萧万长C，颜清标D，吕秀莲
9.下列四组成语都是描写新婚大喜的，请问哪一组的男主人公最自卑？
A，一针见血若有所失B，一见如故一塌糊涂C，一五一十十拿九稳D，一柱擎天一败涂地
10.中国少女节在哪一天？
A，二月十四日B，三月七日C，七月七日D，十二月一日
附加题：下列哪一首诗的情侣最多？
A，李白《望庐山瀑布》B，李绅《悯农》C，王之涣《登鹳雀楼》D，王维《九月九日忆山东兄弟》

11:20 PM | Add a comment | Read comments (1) | Permalink | Blog it

January 24

DELETE APPLICATION LOG ACCORDING TO NUMBER

REPORT  zctest02.

TABLES balhdr.
DATA: it_handle TYPE bal_t_logh.

SELECT-OPTIONS s_num FOR balhdr-lognumber OBLIGATORY.

SELECT log_handle
  INTO TABLE it_handle
  FROM balhdr
WHERE lognumber IN s_num.
IF sy-subrc <> 0.
  MESSAGE 'HAVE NO SUCH NUMBER!' TYPE 'S' DISPLAY LIKE 'E'.
  EXIT.
ENDIF.

CALL FUNCTION 'BAL_DB_DELETE'
  EXPORTING
    i_t_log_handle           = it_handle
  EXCEPTIONS
    no_logs_specified        = 1
    OTHERS                   = 2.
IF sy-subrc = 0.
  MESSAGE 'DELETED SUCCESSFULLY!' TYPE 'S'.
ELSE.
  MESSAGE ID sy-msgid TYPE 'S'  NUMBER sy-msgno DISPLAY LIKE 'E'
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

9:12 PM | Add a comment | Permalink | Blog it | SAP/ABAP

Application Log: create

T-CODE:

SLG0 创建对象

SLG1 察看日志

REPORT  zctest01.

DATA: wa_log TYPE bal_s_log,
      wa_msg TYPE bal_s_msg.

wa_log-object = 'ZCTEST01'.
wa_log-alprog = sy-cprog.

CALL FUNCTION 'BAL_LOG_CREATE'
  EXPORTING
    i_s_log                       = wa_log
EXCEPTIONS
   log_header_inconsistent       = 1
   OTHERS                        = 2.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

wa_msg-msgty = 'E'.
wa_msg-msgid = '00'.
wa_msg-msgno = '001'.
wa_msg-msgv1 = 'MSGV1'.
wa_msg-msgv2 = 'MSGV2'.
wa_msg-msgv3 = 'MSGV3'.
wa_msg-msgv4 = 'MSGV4'.

CALL FUNCTION 'BAL_LOG_MSG_ADD'
  EXPORTING
    i_s_msg                   = wa_msg
EXCEPTIONS
   log_not_found             = 1
   msg_inconsistent          = 2
   log_is_full               = 3
   OTHERS                    = 4.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

wa_msg-msgty = 'S'.
wa_msg-msgid = '00'.
wa_msg-msgno = '001'.
wa_msg-msgv1 = 'AA'.
wa_msg-msgv2 = 'BB'.
wa_msg-msgv3 = 'CC'.
wa_msg-msgv4 = 'DD'.

CALL FUNCTION 'BAL_LOG_MSG_ADD'
  EXPORTING
    i_s_msg                   = wa_msg
EXCEPTIONS
   log_not_found             = 1
   msg_inconsistent          = 2
   log_is_full               = 3
   OTHERS                    = 4.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CALL FUNCTION 'BAL_DB_SAVE'
  EXPORTING
    i_save_all             = 'X'
  EXCEPTIONS
    log_not_found          = 1
    save_not_allowed       = 2
    numbering_error        = 3
    OTHERS                 = 4.
IF sy-subrc <> 0.
  MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
        WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.