Здравствуйте!
FUNCTION ZWWW_PREPARE_TABLE.
....
If IT_FIELDS_CATALOG is requested.
Loop at IT_FIELDS_CATALOG assigning <it_FldCtlg>.
Translate <it_FldCtlg>-Field_Name to upper case.
EndLoop.
Sort IT_FIELDS_CATALOG by Field_Name.
Loop at it_Struc assigning <it_Struc>.
Read table IT_FIELDS_CATALOG assigning <it_FldCtlg>
with key Field_Name = <it_Struc>-Field_Name
binary search.
If sy-subrc = 0.
If not <it_FldCtlg>-Find_Text is initial.
<it_Struc>-Find_Text = <it_FldCtlg>-Find_Text.
EndIf.
<it_Struc>-Field_Header = <it_FldCtlg>-Field_Header.
EndIf.
EndLoop.
EndIf.
....
СКАЖИТЕ как лучше преобразовать данный код к синтаксису 4.0B не нарушая логики программы
Я начал така, но
If IT_FIELDS_CATALOG is requested.
data: it_fldctlg like line of it_fields_catalog.
loop at it_fields_catalog into it_fldctlg.
Translate it_FldCtlg-Field_Name to upper case.
EndLoop.
Sort IT_FIELDS_CATALOG by Field_Name.
Loop at it_Struc assigning <it_Struc>.
*Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!
в дальнейшем опять используется <it_FldCtlg>
но перед этим была произведена замена на it_fldctlg, СКАЖИТЕ как лучше преобразовать данный код к синтаксису 4.0B не нарушая логики программы
*Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!!
Read table IT_FIELDS_CATALOG assigning <it_FldCtlg>
with key Field_Name = <it_Struc>-Field_Name
binary search.
If sy-subrc = 0.
If not <it_FldCtlg>-Find_Text is initial.
<it_Struc>-Find_Text = <it_FldCtlg>-Find_Text.
EndIf.
<it_Struc>-Field_Header = <it_FldCtlg>-Field_Header.
EndIf.
EndLoop.
EndIf.
Спасибо