So denn:
Das Coding arbeitet mit einem Serververzeichnis e.g. C:\000
In DIR_WORK wird das LOG (Jens.log) geschrieben .
Nicht freigegebene Transporte werden "released" und nach C:\000 geschrieben.
Von der Vorgehensweise würde ich den Transport "normal" freigeben und dann noch mal mit diesem Programm eine "unkomprimierte Fassung erzeugen.
So erhält man auch die Cofiles Datei.
Für Unix sind die Pfade ggf. anzupassen.
- Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
- *&---------------------------------------------------------------------*
- *& YBC_RUN_R3TRANS_COMMAND
- *&
- *&---------------------------------------------------------------------*
- *&
- *&
- *&---------------------------------------------------------------------*
- REPORT ybc_run_r3trans_command.
- tpcmd(256).
- * Get APPSERVERS Path separator ***
- CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_SEP'
- ID 'VALUE' FIELD sep.
- * Get Executable PATH
- CALL 'C_SAPGPARAM' ID 'NAME' FIELD 'DIR_CT_RUN'
- ID 'VALUE' FIELD tr_path.
- * EXPORT
- * CLIENT = 001
- * COMPRESS = " "
- * FILE = "C:\000\R900056.NSP"
- * USE COMMANDFILE NSPK900056
- * EXPORT
- * CREATECOFILE (ist nich das Selbe Format)
- CONCATENATE 'FILE = "' p_work sep 'R' p_trkorr+4 '.' sy-sysid '"' INTO s_script-wa. APPEND s_script TO t_script.
- CONCATENATE 'USE COMMANDFILE' p_trkorr INTO s_script-wa SEPARATED BY space. APPEND s_script TO t_script.
- OPEN DATASET fn FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
- CLOSE DATASET fn.
- * R3trans -w NSPK900039.log -v -u 18 C:\000\EXPO.txt
- clear tpcmd .
- REFRESH tabl.
- CALL 'SYSTEM' ID 'COMMAND' FIELD tpcmd ID 'TAB' FIELD tabl-*sys*.
- LOOP AT tabl.
- GeSHi ©
gruß Jens