REPORT ZCODE.
tables: tstc, tobjt, usobt, tactz, tobj, sscrfields.
* AUTH_FIELD_GET_INFO DDIF_FIELDINFO_GET AUTH_FIELDINFO_GET
data: begin of itab occurs 0.
include structure usobt.
data: end of itab.
data: begin of i_tc occurs 0,
tcode_l like tstc-tcode,
tcode_h like tstc-tcode,
end of i_tc.
data: begin of i_file occurs 0,
tcode_low like tstc-tcode,
tcode_high like tstc-tcode,
end of i_file.
data: fld_txt like dfies-fieldtext.
data: aa type i, bb type i, cc type i, dd type i, ee type i, ff type i.
data: begin of values occurs 0.
include structure tpr01.
data: end of values.
*
data new_line.
data upload.
data obj_change.
data fld_change.
*
data fld(20).
data val(20).
data ln_o like sy-lilli.
data ln_f like sy-lilli.
data field like itab-field.
data object like itab-object.
*
ranges: i_tcode for tstc-tcode. " OPTION EQ SIGN I.
select-options: tcode for tstc-tcode memory id tcd.
selection-screen function key 1.
selection-screen function key 2.
*SELECTION-SCREEN FUNCTION KEY 4.
initialization.
move 'Create File' to sscrfields-functxt_01.
move 'Upload Transaction Codes' to sscrfields-functxt_02.
at selection-screen.
case sy-ucomm.
when 'FC01'.
loop at tcode.
i_file-tcode_high = tcode-high.
i_file-tcode_low = tcode-low.
append i_file.
endloop.
if sy-subrc <> 0.
message i000(8i) with 'Empty File will be created!'.
endif.
call function 'DOWNLOAD'
exporting
filename = 'C:\Windows\Desktop\TCODE.txt '
filetype = 'DAT'
tables
data_tab = i_file
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
when 'FC02'.
refresh i_tc. clear i_tc. refresh tcode. clear tcode.
upload = 'X'.
call function 'UPLOAD'
exporting
filename = 'C:\Windows\Desktop\Tcode.txt'
filetype = 'DAT'
tables
data_tab = i_tc
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else.
refresh i_tcode. clear i_tcode.
loop at i_tc.
if i_tc-tcode_h is initial.
if i_tc-tcode_l ca '*'.endif.
if sy-fdpos <> 20.
i_tcode-sign = 'I'.
i_tcode-option = 'CP'.
i_tcode-low = i_tc-tcode_l.
i_tcode-high = i_tc-tcode_h.
else.
i_tcode-sign = 'I'.
i_tcode-option = 'EQ'.
i_tcode-low = i_tc-tcode_l.
i_tcode-high = i_tc-tcode_h.
endif.
else.
i_tcode-sign = 'I'.
i_tcode-option = 'BT'.
i_tcode-low = i_tc-tcode_l.
i_tcode-high = i_tc-tcode_h.
endif.
append i_tcode.
endloop.
tcode[] = i_tcode[].
endif.
endcase.
read table tcode.
if sy-subrc <> 0.
message e000(8i) with 'Please enter a Transaction Code'.
endif.
start-of-selection.
aa = 18.
bb = aa + 15.
cc = bb + 50.
dd = cc + 10.
ee = dd + 30.
ff = ee + 20.
select * from usobt into table itab where name in tcode.
loop at itab.
select single * from tobjt where object = itab-object
and langu = sy-langu.
clear new_line.
clear obj_change.
clear fld_change.
format color off.
on change of itab-name.
new_line = 'Y'.
format color 4.
write:/2 itab-name(30).
hide: itab-name.
endon.
if new_line <> 'Y'.
new-line.
endif.
on change of itab-object.
obj_change = 'X'.
write: at aa itab-object.
hide: itab-object.
endon.
if new_line = 'Y' and obj_change <> 'X'.
write: at aa itab-object.
hide: itab-object.
endif.
on change of tobjt-ttext.
write: at bb tobjt-ttext.
endon.
if new_line = 'Y' and obj_change <> 'X'.
write: at bb tobjt-ttext.
hide: tobjt-ttext.
endif.
on change of itab-field.
fld_change = 'X'.
write: at cc itab-field color 6 inverse on hotspot.
hide: itab-field .
call function 'AUTH_FIELD_GET_INFO'
exporting
fieldname = itab-field
importing
text = fld_txt
.
write: at dd fld_txt.
endon.
if new_line = 'Y' and fld_change <> 'X'.
write: at cc itab-field color 6 inverse on hotspot.
write: at dd fld_txt.
endif.
write: at ee itab-low.
write: at ff itab-high.
endloop.
end-of-selection.
clear itab.
at line-selection.
clear object. clear field.
ln_o = sy-lilli.
ln_f = sy-lilli.
field = itab-field.
get cursor field fld value val.
if itab-object is initial.
do.
ln_o = ln_o - 1.
read line ln_o.
if sy-subrc <> 0.
exit.
endif.
if not itab-object is initial.
exit.
endif.
enddo.
object = itab-object.
else.
object = itab-object.
endif.
if field is initial.
do.
ln_f = ln_f - 1.
read line ln_f.
if sy-subrc <> 0.
exit.
endif.
if not itab-field is initial.
exit.
endif.
enddo.
field = itab-field.
endif.
call function 'SUPRN_MAINTAIN_VALUES'
exporting
object = object
field = field
tables
f_values = values.
*&---------------------------------------------------------------------*
*& Report ZCODE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCODE.
tables: tstc, tobjt, usobt, tactz, tobj, sscrfields.
* AUTH_FIELD_GET_INFO DDIF_FIELDINFO_GET AUTH_FIELDINFO_GET
data: begin of itab occurs 0.
include structure usobt.
data: end of itab.
data: begin of i_tc occurs 0,
tcode_l like tstc-tcode,
tcode_h like tstc-tcode,
end of i_tc.
data: begin of i_file occurs 0,
tcode_low like tstc-tcode,
tcode_high like tstc-tcode,
end of i_file.
data: fld_txt like dfies-fieldtext.
data: aa type i, bb type i, cc type i, dd type i, ee type i, ff type i.
data: begin of values occurs 0.
include structure tpr01.
data: end of values.
*
data new_line.
data upload.
data obj_change.
data fld_change.
*
data fld(20).
data val(20).
data ln_o like sy-lilli.
data ln_f like sy-lilli.
data field like itab-field.
data object like itab-object.
*
ranges: i_tcode for tstc-tcode. " OPTION EQ SIGN I.
select-options: tcode for tstc-tcode memory id tcd.
selection-screen function key 1.
selection-screen function key 2.
*SELECTION-SCREEN FUNCTION KEY 4.
initialization.
move 'Create File' to sscrfields-functxt_01.
move 'Upload Transaction Codes' to sscrfields-functxt_02.
at selection-screen.
case sy-ucomm.
when 'FC01'.
loop at tcode.
i_file-tcode_high = tcode-high.
i_file-tcode_low = tcode-low.
append i_file.
endloop.
if sy-subrc <> 0.
message i000(8i) with 'Empty File will be created!'.
endif.
call function 'DOWNLOAD'
exporting
filename = 'C:\Windows\Desktop\TCODE.txt '
filetype = 'DAT'
tables
data_tab = i_file
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
when 'FC02'.
refresh i_tc. clear i_tc. refresh tcode. clear tcode.
upload = 'X'.
call function 'UPLOAD'
exporting
filename = 'C:\Windows\Desktop\Tcode.txt'
filetype = 'DAT'
tables
data_tab = i_tc
.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else.
refresh i_tcode. clear i_tcode.
loop at i_tc.
if i_tc-tcode_h is initial.
if i_tc-tcode_l ca '*'.endif.
if sy-fdpos <> 20.
i_tcode-sign = 'I'.
i_tcode-option = 'CP'.
i_tcode-low = i_tc-tcode_l.
i_tcode-high = i_tc-tcode_h.
else.
i_tcode-sign = 'I'.
i_tcode-option = 'EQ'.
i_tcode-low = i_tc-tcode_l.
i_tcode-high = i_tc-tcode_h.
endif.
else.
i_tcode-sign = 'I'.
i_tcode-option = 'BT'.
i_tcode-low = i_tc-tcode_l.
i_tcode-high = i_tc-tcode_h.
endif.
append i_tcode.
endloop.
tcode[] = i_tcode[].
endif.
endcase.
read table tcode.
if sy-subrc <> 0.
message e000(8i) with 'Please enter a Transaction Code'.
endif.
start-of-selection.
aa = 18.
bb = aa + 15.
cc = bb + 50.
dd = cc + 10.
ee = dd + 30.
ff = ee + 20.
select * from usobt into table itab where name in tcode.
loop at itab.
select single * from tobjt where object = itab-object
and langu = sy-langu.
clear new_line.
clear obj_change.
clear fld_change.
format color off.
on change of itab-name.
new_line = 'Y'.
format color 4.
write:/2 itab-name(30).
hide: itab-name.
endon.
if new_line <> 'Y'.
new-line.
endif.
on change of itab-object.
obj_change = 'X'.
write: at aa itab-object.
hide: itab-object.
endon.
if new_line = 'Y' and obj_change <> 'X'.
write: at aa itab-object.
hide: itab-object.
endif.
on change of tobjt-ttext.
write: at bb tobjt-ttext.
endon.
if new_line = 'Y' and obj_change <> 'X'.
write: at bb tobjt-ttext.
hide: tobjt-ttext.
endif.
on change of itab-field.
fld_change = 'X'.
write: at cc itab-field color 6 inverse on hotspot.
hide: itab-field .
call function 'AUTH_FIELD_GET_INFO'
exporting
fieldname = itab-field
importing
text = fld_txt
.
write: at dd fld_txt.
endon.
if new_line = 'Y' and fld_change <> 'X'.
write: at cc itab-field color 6 inverse on hotspot.
write: at dd fld_txt.
endif.
write: at ee itab-low.
write: at ff itab-high.
endloop.
end-of-selection.
clear itab.
at line-selection.
clear object. clear field.
ln_o = sy-lilli.
ln_f = sy-lilli.
field = itab-field.
get cursor field fld value val.
if itab-object is initial.
do.
ln_o = ln_o - 1.
read line ln_o.
if sy-subrc <> 0.
exit.
endif.
if not itab-object is initial.
exit.
endif.
enddo.
object = itab-object.
else.
object = itab-object.
endif.
if field is initial.
do.
ln_f = ln_f - 1.
read line ln_f.
if sy-subrc <> 0.
exit.
endif.
if not itab-field is initial.
exit.
endif.
enddo.
field = itab-field.
endif.
call function 'SUPRN_MAINTAIN_VALUES'
exporting
object = object
field = field
tables
f_values = values.
要获取更多Jerry的原创文章，请关注公众号"汪子熙":
