批量解压上传SAP Note
最近在做印度GST相关的东西，需要手动给系统实施上百个SAP Note，十分繁琐。
标准事务代码SNOTE只支持每次上传一个Note，逐个上传大量Note会很麻烦，为此摸索出一个批量解压上传的流程，下面是细节。
本文链接：https://www.cnblogs.com/hhelibeb/p/17548517.html
0，去SAP网站下载Note文件
1，准备好SAR文件，如 '0002407980_00.SAR'，把所有SAR文件放到同一个目录下。
2，在相同目录内，放置SAPCAR.EXE解压程序。新建批处理程序xxx.bat，写入以下代码并运行：
@echo off setlocal for %%f in (*.SAR) do ( SAPCAR -xvf "%%f" ) for %%f in (*.ZIP) do ( tar -xf "%%f" ) endlocal
这是ChatGPT提供的代码，可以解压当前目录下的SAR文件，具体功能解释如下，
@echo off命令用于关闭命令的回显，使输出更清晰。setlocal和endlocal命令用于限制变量的范围，防止它们影响到其他的脚本和环境。for %%f in (*.SAR) do这一行是一个for循环，它会遍历当前目录中所有的.SAR文件。每次迭代中，%%f变量都会包含一个文件名。SAPCAR -xvf "%%f"这一行调用SAPCAR命令，并将当前文件名作为参数。%%f将被替换为实际的文件名。- 同理，下一个
for遍历目录中所有的.ZIP文件并解压。
（注意，旧版windows可能不支持tar，但这并不要紧，只需要手动全选ZIP文件并解压即可。）
3，步骤2完成后，目录中出现解压得到的TXT文件，可以用于上传。
4，登陆你希望实施Note的SAP系统，运行程序 ZSCWN_NOTES_UPLOAD，选择上文中存放Note的目录，选择全部TXT文件，上传。
如果Note数量多的话，需要耐心等待一段时间，直到程序运行结束。之后，进入事务代码SNOTE，就可以看到批量上传的全部Note已经被加载到SNOTE中。
ZSCWN_NOTES_UPLOAD 的作者是Frank Buchholz，原文：Report ZSCWN_NOTES_UPLOAD – Load multiple notes files into SNOTE
为了防止链接失效，在下面贴出代码，
1 *&---------------------------------------------------------------------* 2 *& Report ZSCWN_NOTES_UPLOAD 3 *& Load multiple notes files into SNOTE 4 *&---------------------------------------------------------------------* 5 *& 6 *& Reference: 7 *& Security Patch Process FAQ 8 *& http://scn.sap.com/community/security/blog/2012/03/27/security-patch-process-faq#23_What_should_I_do_if_I_cannot_download_a_note_into_SNOTE 9 *& 23. What should I do if I cannot download a note into SNOTE? 10 *& 11 *& Sometimes you run into trouble while downloading large notes in transaction SNOTE, like for the security note 1826162 from July 2013. (In addition this note requires another large note 1674132, too.) 12 *& 13 *& In such a case use the download basket to get the note: 14 *& 15 *& 1. Show the note on SMP, e.g. https://service.sap.com/sap/support/notes/1826162 16 *& 2. Use the button "Download Corrections". You get a new window showing a log. 17 *& 3. Repeat 1. and 2. for more notes, e.g. note 1826162 requires other note 1674132 18 *& 4. Use the button "Download Basket" on the log window to show your basket 19 *& 5. Click on every link for the selected notes to download the file via the internet browser (You could try to use the SAP Download Manager, however, this might not work as it uses the same interface like SNOTE.) 20 *& 6. Un-zip the archive files which you have downloaded 21 *& 7. In transaction SNOTE use the menu path Goto->Upload note to load the note(s) one by one 22 *& 8. Implement the note as usual 23 *& 24 *& Another advantage is, that you can use the same files for uploading notes into several development systems 25 *& 26 *& 19.08.2013 Initial version based on function SCWN_NOTE_UPLOAD_INTERNAL which allows the upload of a single file 27 *& 28 *&---------------------------------------------------------------------* 29 30 REPORT ZSCWN_NOTES_UPLOAD. 31 32 constants: c_program_version(15) type c value '19.08.2013'. 33 34 selection-screen begin of line. 35 selection-screen comment 1(32) T_PATH for field s_path. 36 parameters: s_path type string LOWER CASE. 37 selection-screen end of line. 38 39 SELECTION-SCREEN COMMENT 1(60) ss_vers. 40 41 *----------------------------------------------------------------------* 42 43 INITIALIZATION. 44 * Authorization check according to report SCWN_ENTRY_TREE (=SNOTE) 45 CALL FUNCTION 'AUTHORITY_CHECK_TCODE' 46 EXPORTING 47 tcode = 'SNOTE' 48 EXCEPTIONS 49 ok = 0 50 not_ok = 1 51 OTHERS = 2. 52 53 IF sy-subrc <> 0. 54 * All messages raised from authority_check_tcode means: 55 * 'This transaction can or should not be started.' 56 MESSAGE i775(scwn) WITH 'SNOTE'. 57 LEAVE PROGRAM. 58 ENDIF. 59 60 T_PATH = 'Local path with text files'(000). 61 62 concatenate 'Program version from'(000) c_program_version into SS_VERS 63 SEPARATED BY SPACE. 64 65 * Get default download path 66 data l_UPLOAD_PATH type string. 67 CALL METHOD CL_GUI_FRONTEND_SERVICES=>GET_UPLOAD_DOWNLOAD_PATH 68 CHANGING 69 UPLOAD_PATH = l_UPLOAD_PATH 70 DOWNLOAD_PATH = s_path 71 EXCEPTIONS 72 CNTL_ERROR = 1 73 ERROR_NO_GUI = 2 74 NOT_SUPPORTED_BY_GUI = 3 75 GUI_UPLOAD_DOWNLOAD_PATH = 4 76 UPLOAD_DOWNLOAD_PATH_FAILED = 5 77 others = 6. 78 IF SY-SUBRC <> 0. 79 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO 80 * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. 81 ENDIF. 82 83 *----------------------------------------------------------------------* 84 85 START-OF-SELECTION. 86 87 data: lv_file_filter TYPE string, 88 lv_filename TYPE string, 89 lv_file_table TYPE filetable, 90 lv_rc TYPE i, 91 lv_user_action TYPE i, 92 lv_file TYPE LINE OF filetable, 93 lv_title TYPE string. 94 data: lt_cont LIKE cwbdata OCCURS 0, 95 lv_FILELENGTH type i. 96 97 * dialog for file 98 CLASS cl_gui_frontend_services DEFINITION LOAD. 99 * Definition of file types see text elements of class CL_GUI_FRONTEND_SERVICES 100 lv_file_filter = cl_gui_frontend_services=>FILETYPE_TEXT. 101 lv_title = 'Upload SAP Note'(100). 102 103 * Ask for list of files 104 CALL METHOD cl_gui_frontend_services=>file_open_dialog 105 EXPORTING 106 window_title = lv_title 107 INITIAL_DIRECTORY = s_path 108 * default_filename = lv_filename 109 file_filter = lv_file_filter 110 multiselection = 'X' 111 CHANGING 112 file_table = lv_file_table 113 rc = lv_rc 114 user_action = lv_user_action 115 EXCEPTIONS 116 OTHERS = 1. 117 118 IF sy-subrc <> 0 OR lv_rc <= 0. 119 EXIT. 120 ENDIF. 121 122 IF lv_user_action = cl_gui_frontend_services=>action_cancel. 123 MESSAGE s020(scwn). 124 EXIT. 125 ENDIF. 126 127 * process files 128 data: lv_lines type i, 129 lv_percent type i, 130 lv_message(132). 131 describe table lv_file_table lines lv_lines. 132 loop at lv_file_table into lv_filename. 133 134 lv_percent = 100 * sy-tabix / lv_lines. 135 concatenate 'Read file'(002) lv_filename into lv_message SEPARATED BY space. 136 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' 137 EXPORTING 138 PERCENTAGE = lv_percent 139 TEXT = lv_message. 140 141 * Read file 142 CALL FUNCTION 'GUI_UPLOAD' 143 EXPORTING 144 filename = lv_filename 145 FILETYPE = 'ASC' 146 IMPORTING 147 FILELENGTH = lv_FILELENGTH 148 TABLES 149 data_tab = lt_cont 150 EXCEPTIONS 151 file_open_error = 1 152 file_read_error = 2 153 no_batch = 3 154 gui_refuse_filetransfer = 4 155 invalid_type = 5 156 no_authority = 6 157 unknown_error = 7 158 bad_data_format = 8 159 header_not_allowed = 9 160 separator_not_allowed = 10 161 header_too_long = 11 162 unknown_dp_error = 12 163 access_denied = 13 164 dp_out_of_memory = 14 165 disk_full = 15 166 dp_timeout = 16 167 OTHERS = 17. 168 169 IF sy-subrc <> 0. 170 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 171 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 172 ENDIF. 173 174 * Process file 175 perform scwn_note_upload_internal 176 tables lt_cont. 177 178 endloop. 179 180 message 'Files loaded'(003) type 'S'. 181 182 *FUNCTION scwn_note_upload_internal. 183 *"---------------------------------------------------------------------- 184 *"*"Lokale Schnittstelle: 185 *" EXCEPTIONS 186 *" INCOMPATIBLE_VERSIONS 187 *" CORRUPT_DATA_FILE 188 *"---------------------------------------------------------------------- 189 constants: true type BCWBN_BOOL value 'X', 190 false type BCWBN_BOOL value space. 191 * 192 FORM scwn_note_upload_internal 193 tables lt_cont. " LIKE cwbdata OCCURS 0. 194 195 FIELD-SYMBOLS: <ls_cwbnthead> TYPE cwbnthead. 196 197 DATA: lv_cancel, 198 lv_filetype LIKE rlgrap-filetype, 199 * lt_cont LIKE cwbdata OCCURS 0, 200 lt_cwbnthead LIKE cwbnthead OCCURS 0, 201 lt_cwbntstxt LIKE cwbntstxt OCCURS 0, 202 lt_cwbntdata TYPE bcwbn_note_text OCCURS 0, 203 lt_cwbntvalid LIKE cwbntvalid OCCURS 0, 204 lt_cwbntci LIKE cwbntci OCCURS 0, 205 lt_cwbntfixed LIKE cwbntfixed OCCURS 0, 206 lt_cwbntgattr LIKE cwbntgattr OCCURS 0, 207 lt_cwbcihead LIKE cwbcihead OCCURS 0, 208 lt_cwbcidata TYPE bcwbn_cinst_delta OCCURS 0, 209 lt_cwbcivalid LIKE cwbcivalid OCCURS 0, 210 lt_cwbciinvld LIKE cwbciinvld OCCURS 0, 211 lt_cwbcifixed LIKE cwbcifixed OCCURS 0, 212 lt_cwbcidpndc LIKE cwbcidpndc OCCURS 0, 213 lt_cwbciobj LIKE cwbciobj OCCURS 0, 214 lt_cwbcmpnt LIKE cwbcmpnt OCCURS 0, 215 lt_cwbcmtext LIKE cwbcmtext OCCURS 0, 216 lt_cwbcmlast LIKE cwbcmlast OCCURS 0, 217 lt_cwbdehead LIKE cwbdehead OCCURS 0, 218 lt_cwbdeprdc LIKE cwbdeprdc OCCURS 0, 219 lt_cwbdetrack LIKE cwbdetrack OCCURS 0, 220 lt_cwbdeequiv LIKE cwbdeequiv OCCURS 0, 221 lt_cwbcidata_ref TYPE cwb_deltas, 222 * lv_file_filter TYPE string, 223 * lv_filename TYPE string, 224 * lv_file_table TYPE filetable, 225 * lv_rc TYPE i, 226 * lv_user_action TYPE i, 227 lv_file TYPE LINE OF filetable, 228 * lv_title TYPE string, 229 ls_note TYPE bcwbn_note, 230 lt_notes TYPE bcwbn_notes, 231 ls_cwbnthead LIKE cwbnthead. 232 233 DATA: lv_data_bin TYPE xstring, 234 lv_code_delta_bin TYPE xstring, 235 lt_object_data_bin TYPE cwbci_t_objdelta, 236 ls_numm_versno TYPE cwbntkeyvs. 237 238 ** dialog for file 239 * CLASS cl_gui_frontend_services DEFINITION LOAD. 240 * lv_file_filter = cl_gui_frontend_services=>filetype_all. 241 * lv_title = text-100. 242 * 243 * CALL METHOD cl_gui_frontend_services=>file_open_dialog 244 * EXPORTING 245 * window_title = lv_title 246 * default_filename = lv_filename 247 * file_filter = lv_file_filter 248 * CHANGING 249 * file_table = lv_file_table 250 * rc = lv_rc 251 * user_action = lv_user_action 252 * EXCEPTIONS 253 * OTHERS = 1. 254 * 255 * IF sy-subrc <> 0 OR lv_rc <= 0. 256 * EXIT. 257 * ENDIF. 258 * 259 * IF lv_user_action = cl_gui_frontend_services=>action_cancel. 260 * MESSAGE s020(scwn). 261 * EXIT. 262 * ENDIF. 263 * 264 ** upload file 265 * READ TABLE lv_file_table INTO lv_file INDEX 1. 266 * lv_filename = lv_file-filename. 267 * 268 * CALL FUNCTION 'GUI_UPLOAD' 269 * EXPORTING 270 * filename = lv_filename 271 * TABLES 272 * data_tab = lt_cont_bin 273 * EXCEPTIONS 274 * file_open_error = 1 275 * file_read_error = 2 276 * no_batch = 3 277 * gui_refuse_filetransfer = 4 278 * invalid_type = 5 279 * no_authority = 6 280 * unknown_error = 7 281 * bad_data_format = 8 282 * header_not_allowed = 9 283 * separator_not_allowed = 10 284 * header_too_long = 11 285 * unknown_dp_error = 12 286 * access_denied = 13 287 * dp_out_of_memory = 14 288 * disk_full = 15 289 * dp_timeout = 16 290 * OTHERS = 17. 291 * 292 * IF sy-subrc <> 0. 293 * MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 294 * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 295 * ENDIF. 296 297 CALL FUNCTION 'SCWN_NOTE_UNPACK' 298 IMPORTING 299 ev_data_bin = lv_data_bin 300 ev_code_delta_bin = lv_code_delta_bin 301 et_object_data_bin = lt_object_data_bin 302 TABLES 303 tt_cont = lt_cont 304 EXCEPTIONS 305 incompatible_versions = 1 306 corrupt_data_file = 2 307 OTHERS = 3. 308 309 IF sy-subrc <> 0. 310 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 311 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 312 ENDIF. 313 314 CALL FUNCTION 'SCWN_NOTE_UNPACK_XML' 315 EXPORTING 316 iv_data_bin = lv_data_bin 317 iv_code_delta_bin = lv_code_delta_bin 318 it_object_data_bin = lt_object_data_bin 319 IMPORTING 320 et_cwbnthead = lt_cwbnthead 321 et_cwbntstxt = lt_cwbntstxt 322 et_cwbntdata = lt_cwbntdata 323 et_cwbntvalid = lt_cwbntvalid 324 et_cwbntci = lt_cwbntci 325 et_cwbntfixed = lt_cwbntfixed 326 et_cwbntgattr = lt_cwbntgattr 327 et_cwbcihead = lt_cwbcihead 328 et_cwbcidata = lt_cwbcidata 329 et_cwbcidata_ref = lt_cwbcidata_ref 330 et_cwbcivalid = lt_cwbcivalid 331 et_cwbciinvld = lt_cwbciinvld 332 et_cwbcifixed = lt_cwbcifixed 333 et_cwbcidpndc = lt_cwbcidpndc 334 et_cwbciobj = lt_cwbciobj 335 et_cwbcmpnt = lt_cwbcmpnt 336 et_cwbcmtext = lt_cwbcmtext 337 et_cwbcmlast = lt_cwbcmlast 338 et_cwbdehead = lt_cwbdehead 339 et_cwbdeprdc = lt_cwbdeprdc 340 et_cwbdetrack = lt_cwbdetrack 341 et_cwbdeequiv = lt_cwbdeequiv 342 EXCEPTIONS 343 corrupt_data_file = 1 344 incompatible_versions = 2 345 OTHERS = 3. 346 IF sy-subrc <> 0. 347 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 348 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 349 RAISING corrupt_data_file. 350 ENDIF. 351 352 * store note 353 CALL FUNCTION 'SCWN_NOTE_STORE' 354 EXPORTING 355 it_cwbcmpnt = lt_cwbcmpnt 356 it_cwbdetrack = lt_cwbdetrack 357 it_cwbdehead = lt_cwbdehead 358 it_cwbdeequiv = lt_cwbdeequiv 359 TABLES 360 tt_cwbnthead = lt_cwbnthead 361 tt_cwbntstxt = lt_cwbntstxt 362 tt_cwbntdata = lt_cwbntdata 363 tt_cwbntvalid = lt_cwbntvalid 364 tt_cwbntci = lt_cwbntci 365 tt_cwbntfixed = lt_cwbntfixed 366 tt_cwbntgattr = lt_cwbntgattr 367 tt_cwbcihead = lt_cwbcihead 368 tt_cwbcidata = lt_cwbcidata 369 tt_cwbcidata_ref = lt_cwbcidata_ref 370 tt_cwbcivalid = lt_cwbcivalid 371 tt_cwbciinvld = lt_cwbciinvld 372 tt_cwbcifixed = lt_cwbcifixed 373 tt_cwbcidpndc = lt_cwbcidpndc 374 tt_cwbciobj = lt_cwbciobj 375 EXCEPTIONS 376 failure = 1 377 OTHERS = 2. 378 379 IF sy-subrc <> 0. 380 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 381 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 382 ELSE. 383 * store each stored note in download history 384 LOOP AT lt_cwbnthead ASSIGNING <ls_cwbnthead>. 385 ls_numm_versno-numm = <ls_cwbnthead>-numm. 386 ls_numm_versno-versno = <ls_cwbnthead>-versno. 387 CALL FUNCTION 'SCWN_NOTE_DOWNLOAD_HIST' 388 EXPORTING 389 is_note_version = ls_numm_versno 390 iv_mode_write = true 391 EXCEPTIONS 392 OTHERS = 1. 393 IF sy-subrc <> 0. 394 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 395 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 396 ENDIF. 397 ENDLOOP. 398 ENDIF. 399 400 * update software component if necessary 401 CALL FUNCTION 'SCWN_UPDATE_SOFTWARE_COMPONENT' 402 TABLES 403 tt_cwbcmpnt = lt_cwbcmpnt 404 tt_cwbcmtext = lt_cwbcmtext 405 tt_cwbcmlast = lt_cwbcmlast 406 tt_cwbdehead = lt_cwbdehead 407 tt_cwbdeprdc = lt_cwbdeprdc 408 tt_cwbdetrack = lt_cwbdetrack 409 tt_cwbdeequiv = lt_cwbdeequiv 410 EXCEPTIONS 411 failure = 1 412 OTHERS = 2. 413 414 IF sy-subrc <> 0. 415 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno 416 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 417 ENDIF. 418 419 * classify notes 420 LOOP AT lt_cwbnthead INTO ls_cwbnthead. 421 ls_note-key-numm = ls_cwbnthead-numm. 422 ls_note-key-versno = ls_cwbnthead-versno. 423 APPEND ls_note TO lt_notes. 424 ENDLOOP. 425 426 CALL FUNCTION 'SCWB_NOTES_CLASSIFY' 427 EXPORTING 428 it_notes = lt_notes 429 iv_set_ntstatus = ' '. 430 431 ENDFORM. 432 *ENDFUNCTION.
