tag:blogger.com,1999:blog-1702153682347097612024-02-14T00:51:40.840-08:00ALV report SAP ABAPBasic ALV reportsJatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.comBlogger20125tag:blogger.com,1999:blog-170215368234709761.post-60514111825111827492020-06-26T10:51:00.000-07:002020-06-26T10:51:30.244-07:00GL balance PC Wise<div dir="ltr" style="text-align: left;" trbidi="on">
<br />
<span class="L0S52">REPORT </span>z_gl_prctr_bal <span class="L0S52">MESSAGE-ID </span>zzfmog<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TABLES</span><span class="L0S55">: </span>faglflext<span class="L0S55">, </span>bseg<span class="L0S55">.</span><br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S31">* Include Declaration</span><br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S31">"Include for global data declaration</span><br />
<span class="L0S52">INCLUDE </span>Z_GL_PRCTR_BAL_TOP<span class="L0S55">.</span><br />
<span class="L0S31">"Include for Selection screen</span><br />
<span class="L0S52">INCLUDE </span>Z_GL_PRCTR_BAL_SEL<span class="L0S55">.</span><br />
<span class="L0S31">"Include for Subroutines.</span><br />
<span class="L0S52">INCLUDE </span>Z_GL_PRCTR_BAL_FORMS<span class="L0S55">.</span><br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S31">* AT SELECTION-SCREEN</span><br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">ON </span>p_bukrs<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_val_bukrs<span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">ON </span>s_bupla<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_val_bupla<span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">ON </span>s_prctr<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_val_prctr<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S31">* START-OF-SELECTION</span><br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S52">START-OF-SELECTION</span><span class="L0S55">.</span><br />
<span class="L0S31">*Fetch data</span><br />
<span class="L0S52">PERFORM </span>f_get_data<span class="L0S55">.</span><br />
<span class="L0S31">*Process data</span><br />
<span class="L0S52">PERFORM </span>f_process_data<span class="L0S55">.</span><br />
<span class="L0S31">*Final table</span><br />
<span class="L0S52">PERFORM </span>f_build_final_table<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S31">* END-OF-SELECTION</span><br />
<span class="L0S31">*--------------------------------------------------------------*</span><br />
<span class="L0S31">*Prepare field catalogue</span><br />
<span class="L0S52">PERFORM </span>f_field_catalogue<span class="L0S55">.</span><br />
<span class="L0S31">*Data display</span><br />
<span class="L0S52">PERFORM </span>f_display_alv<span class="L0S55">.</span>
<br />
<span class="L0S55"><br /></span>
<span class="L0S55"><style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
</style>
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Include ZGLPRCTR_TOP</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_data<span class="L0S55">,</span><br />
rbukrs <span class="L0S52">TYPE </span>bukrs<span class="L0S55">,</span><br />
racct <span class="L0S52">TYPE </span>racct<span class="L0S55">,</span><br />
prctr <span class="L0S52">TYPE </span>prctr<span class="L0S55">,</span><br />
rfarea <span class="L0S52">TYPE </span>fkber<span class="L0S55">,</span><br />
drcrk <span class="L0S52">TYPE </span>shkzg<span class="L0S55">,</span><br />
account_text <span class="L0S52">TYPE </span>string<span class="L0S55">,</span><br />
zzaltkt <span class="L0S52">TYPE </span>altkt<span class="L0S55">,</span><br />
hslvt <span class="L0S52">TYPE </span>hslvt12<span class="L0S55">,</span><br />
hsl01 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl02 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl03 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl04 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl05 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl06 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl07 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl08 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl09 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl10 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl11 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsl12 <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
hsltotal <span class="L0S52">TYPE </span>hslxx12<span class="L0S55">,</span><br />
debit_in_period<br />
<span class="L0S52">TYPE </span>fagl_debit_in_period<span class="L0S55">,</span><br />
credit_in_period<br />
<span class="L0S52">TYPE </span>fagl_credit_in_period<span class="L0S55">,</span><br />
debit_to_period<br />
<span class="L0S52">TYPE </span>fagl_debit_to_period<span class="L0S55">,</span><br />
credit_to_period<br />
<span class="L0S52">TYPE </span>fagl_credit_to_period<span class="L0S55">,</span><br />
xbilk <span class="L0S52">TYPE </span>xbilk<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>ty_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES</span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_outtab_acc<span class="L0S55">,</span><br />
bukrs <span class="L0S52">TYPE </span>bukrs<span class="L0S55">,</span><br />
account <span class="L0S52">TYPE </span>hkont<span class="L0S55">,</span><br />
rfarea <span class="L0S52">TYPE </span>fkber<span class="L0S55">,</span><br />
prctr <span class="L0S52">TYPE </span>prctr<span class="L0S55">,</span><br />
<span class="L0S52">currency </span><span class="L0S52">TYPE </span>waers<span class="L0S55">,</span><br />
zzaltkt <span class="L0S52">TYPE </span>altkt<span class="L0S55">,</span><br />
account_text <span class="L0S52">TYPE </span>char50<span class="L0S55">,</span><br />
debit_in_period<br />
<span class="L0S52">TYPE </span>fagl_debit_in_period<span class="L0S55">,</span><br />
credit_in_period<br />
<span class="L0S52">TYPE </span>fagl_credit_in_period<span class="L0S55">,</span><br />
debit_to_period<br />
<span class="L0S52">TYPE </span>fagl_debit_to_period<span class="L0S55">,</span><br />
credit_to_period<br />
<span class="L0S52">TYPE </span>fagl_credit_to_period<span class="L0S55">,</span><br />
xbilk <span class="L0S52">TYPE </span>xbilk<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_final<span class="L0S55">,</span><br />
ktnra <span class="L0S52">TYPE </span>saknr<span class="L0S55">,</span><br />
glname <span class="L0S52">TYPE </span>char50<span class="L0S55">,</span><br />
rfarea <span class="L0S52">TYPE </span>fkber<span class="L0S55">,</span><br />
hypcode <span class="L0S52">TYPE </span>char10<span class="L0S55">,</span><br />
pc1 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc2 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc3 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc4 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc5 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc6 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc7 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc8 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc9 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc10 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc11 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc12 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc13 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc14 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc15 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc16 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc17 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc18 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc19 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc20 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc21 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc22 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc23 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc24 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc25 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc26 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc27 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
pc28 <span class="L0S52">TYPE </span>dmbtr<span class="L0S55">,</span><br />
total_debit_balance<br />
<span class="L0S52">TYPE </span>fagl_total_debit_balance<span class="L0S55">,</span><br />
total_credit_balance<br />
<span class="L0S52">TYPE </span>fagl_total_credit_balance<span class="L0S55">,</span><br />
balance<br />
<span class="L0S52">TYPE </span>wertv12 <span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>ty_final<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_ska1<span class="L0S55">,</span><br />
ktopl <span class="L0S52">TYPE </span>ktopl<span class="L0S55">,</span><br />
saknr <span class="L0S52">TYPE </span>saknr<span class="L0S55">,</span><br />
xbilk <span class="L0S52">TYPE </span>xbilk<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>ty_ska1<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES</span><span class="L0S55">: </span>tt_fieldlist <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>char30<span class="L0S55">,</span><br />
tt_grouplist <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>char30<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>gt_data <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_data<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>gt_final <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_final<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>gk_final <span class="L0S52">TYPE </span>ty_final<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>gt_outtab_acc <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>gt_fieldcatalog <span class="L0S52">TYPE </span>slis_t_fieldcat_alv<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>gt_sort <span class="L0S52">TYPE </span>slis_t_sortinfo_alv<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>gv_flag<span class="L0S55">(</span><span class="L0S32">1</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>gv_racct <span class="L0S52">TYPE </span>racct<span class="L0S55">,</span><br />
gv_rpmax <span class="L0S52">TYPE </span>rpmax<span class="L0S55">,</span><br />
gv_prctr <span class="L0S52">TYPE </span>prctr<span class="L0S55">,</span><br />
gv_bupla <span class="L0S52">TYPE </span>bupla<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>gv_tslvt_debit <span class="L0S52">TYPE </span>tslvt12<span class="L0S55">,</span><br />
gv_hslvt_debit <span class="L0S52">TYPE </span>hslvt12<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>gv_aknr <span class="L0S52">TYPE </span>racct<span class="L0S55">.</span><br />
<span class="L0S52">CONSTANTS </span><span class="L0S55">: </span>gc_e <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'E'</span><span class="L0S55">,</span><br />
gc_x <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'X'</span><span class="L0S55">,</span><br />
gc_xxxx <span class="L0S52">TYPE </span>char4 <span class="L0S52">VALUE </span><span class="L0S33">'XXXX'</span><span class="L0S55">.</span>
</span><br />
<span class="L0S55"><span class="L0S55"><br /></span></span>
<span class="L0S55"><span class="L0S55"><br /></span></span>
<span class="L0S55"><span class="L0S55"><br /></span></span>
<span class="L0S55"><span class="L0S55"><style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Include ZGLPRCTR_SEL</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b1 <span class="L0S52">with </span><span class="L0S52">frame</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT-OPTIONS </span><span class="L0S55">: </span>s_saknr <span class="L0S52">FOR </span>gv_racct<span class="L0S55">. </span><span class="L0S31">"faglflext-racct.</span><br />
<span class="L0S52">PARAMETERS </span><span class="L0S55">: </span>p_bukrs <span class="L0S52">TYPE </span>bukrs OBLIGATORY<span class="L0S55">.</span><br />
<span class="L0S52">PARAMETERS </span><span class="L0S55">: </span>p_gjahr <span class="L0S52">TYPE </span>gjahr OBLIGATORY<span class="L0S55">. </span><span class="L0S31">"faglflext-rpmax</span><br />
<span class="L0S52">SELECT-OPTIONS </span><span class="L0S55">: </span>s_per <span class="L0S52">FOR </span>gv_rpmax OBLIGATORY<span class="L0S55">.</span><br />
<span class="L0S52">SELECT-OPTIONS </span><span class="L0S55">: </span>s_bupla <span class="L0S52">FOR </span>gv_bupla<span class="L0S55">. </span><span class="L0S31">"bseg-bupla.</span><br />
<span class="L0S52">SELECT-OPTIONS </span><span class="L0S55">: </span>s_prctr <span class="L0S52">FOR </span>gv_prctr<span class="L0S55">. </span><span class="L0S31">"faglflext-prctr.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b1<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b2 <span class="L0S52">with </span><span class="L0S52">frame </span><span class="L0S52">title </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">001</span><span class="L0S55">.</span><br />
<span class="L0S52">PARAMETERS </span><span class="L0S55">: </span>r_rad1 <span class="L0S52">RADIOBUTTON </span><span class="L0S52">GROUP </span>rad1<span class="L0S55">,</span><br />
r_rad2 <span class="L0S52">RADIOBUTTON </span><span class="L0S52">GROUP </span>rad1<span class="L0S55">,</span><br />
r_rad3 <span class="L0S52">RADIOBUTTON </span><span class="L0S52">GROUP </span>rad1 <span class="L0S52">DEFAULT </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b2<span class="L0S55">.</span>
</span></span><br />
<span class="L0S55"><span class="L0S55"><span class="L0S55"><br /></span></span></span>
<span class="L0S55"><span class="L0S55"><span class="L0S55"><br /></span></span></span>
<span class="L0S55"><span class="L0S55"><span class="L0S55"><style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Include ZGLPRCTR_FORMS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_data <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lt_fieldlist <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>char30<span class="L0S55">,</span><br />
lt_grouplist <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>char30<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lt_ska1 <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_ska1<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>ls_ska1 <span class="L0S52">TYPE </span>ty_ska1<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>ls_texte <span class="L0S52">TYPE </span>skat<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>lv_konto <span class="L0S52">TYPE </span>skb1<span class="L0S70">-</span>saknr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS</span><span class="L0S55">:</span>lc_0l <span class="L0S52">TYPE </span>char2 <span class="L0S52">VALUE </span><span class="L0S33">'0L'</span><span class="L0S55">,</span><br />
lc_0 <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'0'</span><span class="L0S55">,</span><br />
lc_001 <span class="L0S52">TYPE </span>char3 <span class="L0S52">VALUE </span><span class="L0S33">'001'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS</span><span class="L0S55">: </span><ls_data> <span class="L0S52">TYPE </span>ty_data<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Prepare fieldlist (lt_fieldlist)</span><br />
<span class="L0S52">PERFORM </span>f_build_fieldlist <span class="L0S52">CHANGING </span>lt_fieldlist<span class="L0S55">.</span><br />
<span class="L0S31">*Prepare group list</span><br />
<span class="L0S52">PERFORM </span>f_build_grouplist <span class="L0S52">CHANGING </span>lt_grouplist<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Fetch data from FAGLFLEXT</span><br />
<span class="L0S52">SELECT </span><span class="L0S55">(</span>lt_fieldlist<span class="L0S55">)</span><br />
<span class="L0S52">FROM </span>faglflext<br />
<span class="L0S52">INTO </span>CORRESPONDING <span class="L0S52">FIELDS </span><span class="L0S52">OF </span><span class="L0S52">TABLE </span>gt_data<br />
<span class="L0S52">WHERE </span>rldnr <span class="L0S52">EQ </span>lc_0l<br />
<span class="L0S52">AND </span>rrcty <span class="L0S52">EQ </span>lc_0<br />
<span class="L0S52">AND </span>rvers <span class="L0S52">EQ </span>lc_001<br />
<span class="L0S52">AND </span>rbukrs <span class="L0S52">EQ </span>p_bukrs<br />
<span class="L0S52">AND </span>ryear <span class="L0S52">EQ </span>p_gjahr<br />
<span class="L0S52">AND </span>racct <span class="L0S52">IN </span>s_saknr<br />
<span class="L0S52">AND </span>prctr <span class="L0S52">IN </span>s_prctr<br />
<span class="L0S52">GROUP </span><span class="L0S52">BY </span><span class="L0S55">(</span>lt_grouplist<span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S31">* SORT gt_data BY racct rfarea prctr drcrk.</span><br />
<span class="L0S52">SORT </span>gt_data <span class="L0S52">BY </span>racct prctr rfarea drcrk<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Fetch P&L Indicator, Balance Sheet Indicator</span><br />
<span class="L0S52">IF </span>gt_data <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECT </span>ktopl saknr xbilk<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>lt_ska1<br />
<span class="L0S52">FROM </span>ska1<br />
<span class="L0S52">FOR </span><span class="L0S52">ALL </span>ENTRIES <span class="L0S52">IN </span>gt_data<br />
<span class="L0S52">WHERE </span>saknr <span class="L0S55">= </span>gt_data<span class="L0S70">-</span>racct<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_data <span class="L0S52">ASSIGNING </span><ls_data><span class="L0S55">.</span><br />
<br />
lv_konto <span class="L0S55">= </span><ls_data><span class="L0S70">-</span>racct<span class="L0S55">.</span><br />
<span class="L0S31">*Get Indicators</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>lt_ska1 <span class="L0S52">INTO </span>ls_ska1 <span class="L0S52">WITH </span><span class="L0S52">KEY </span>saknr <span class="L0S55">= </span>lv_konto<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<ls_data><span class="L0S70">-</span>xbilk <span class="L0S55">= </span>ls_ska1<span class="L0S70">-</span>xbilk<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Get amount for one period</span><br />
<span class="L0S52">PERFORM </span>f_get_amount_current_period <span class="L0S52">CHANGING </span><ls_data><span class="L0S55">.</span><br />
<span class="L0S31">*Get amount for all periods</span><br />
<span class="L0S52">PERFORM </span>f_get_amount_all_periods <span class="L0S52">CHANGING </span><ls_data><span class="L0S55">.</span><br />
<br />
<span class="L0S52">PERFORM </span>f_get_racct_desc <span class="L0S52">USING </span>lv_konto<br />
<span class="L0S52">CHANGING </span>ls_texte<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>ls_texte<span class="L0S70">-</span>txt20 <span class="L0S52">NE </span>space<span class="L0S55">.</span><br />
<ls_data><span class="L0S70">-</span>account_text <span class="L0S55">= </span>ls_texte<span class="L0S70">-</span>txt50<span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<ls_data><span class="L0S70">-</span>account_text <span class="L0S55">= </span>ls_texte<span class="L0S70">-</span>txt20<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" GET_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form PROCESS_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_process_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>ls_outtab_acc <span class="L0S52">TYPE </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS </span><ls_data> <span class="L0S52">TYPE </span>ty_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS</span><span class="L0S55">: </span>lc_s <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'S'</span><span class="L0S55">,</span><br />
lc_h <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'H'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Loop on table to transfer credit and debit amount of period</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_data <span class="L0S52">ASSIGNING </span><ls_data><span class="L0S55">.</span><br />
<br />
gv_hslvt_debit <span class="L0S55">= </span><ls_data><span class="L0S70">-</span>hslvt + gv_hslvt_debit<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span><ls_data><span class="L0S70">-</span>drcrk <span class="L0S55">= </span>lc_s<span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>debit_in_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>debit_in_period + <ls_data><span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>debit_to_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>debit_to_period + <ls_data><span class="L0S70">-</span>debit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">ELSEIF </span><ls_data><span class="L0S70">-</span>drcrk <span class="L0S55">= </span>lc_h<span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>credit_in_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>credit_in_period + <ls_data><span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>credit_to_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>credit_to_period + <ls_data><span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">END </span><span class="L0S52">OF </span>prctr<span class="L0S55">.</span><br />
<span class="L0S31">* Append single line for one profit center</span><br />
<span class="L0S52">IF </span>gv_tslvt_debit > <span class="L0S32">0</span><span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>debit_to_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>debit_to_period + gv_tslvt_debit <span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>credit_to_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>credit_to_period + gv_tslvt_debit <span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>gv_hslvt_debit > <span class="L0S32">0</span><span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>debit_to_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>debit_to_period + gv_hslvt_debit<span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
ls_outtab_acc<span class="L0S70">-</span>credit_to_period <span class="L0S55">= </span>ls_outtab_acc<span class="L0S70">-</span>credit_to_period + gv_hslvt_debit<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Transferring data to cumulative amount profit center table</span><br />
<span class="L0S52">MOVE</span><span class="L0S55">: </span><ls_data><span class="L0S70">-</span>account_text <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>account_text<span class="L0S55">,</span><br />
<ls_data><span class="L0S70">-</span>rbukrs <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>bukrs<span class="L0S55">,</span><br />
<ls_data><span class="L0S70">-</span>racct <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>account<span class="L0S55">,</span><br />
<ls_data><span class="L0S70">-</span>prctr <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>prctr<span class="L0S55">,</span><br />
<ls_data><span class="L0S70">-</span>rfarea <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>rfarea<span class="L0S55">,</span><br />
<ls_data><span class="L0S70">-</span>zzaltkt <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>zzaltkt<span class="L0S55">,</span><br />
<ls_data><span class="L0S70">-</span>xbilk <span class="L0S52">TO </span>ls_outtab_acc<span class="L0S70">-</span>xbilk<span class="L0S55">.</span><br />
<br />
<span class="L0S52">APPEND </span>ls_outtab_acc <span class="L0S52">TO </span>gt_outtab_acc<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR</span><span class="L0S55">: </span>ls_outtab_acc<span class="L0S55">,</span>gv_tslvt_debit<span class="L0S55">, </span>gv_hslvt_debit<span class="L0S55">.</span><br />
<span class="L0S52">ENDAT</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Filter data based on radio button selected</span><br />
<span class="L0S52">IF </span>r_rad1 <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">DELETE </span>gt_outtab_acc <span class="L0S52">WHERE </span>xbilk <span class="L0S52">EQ </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>gt_outtab_acc <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span>s037 DISPLAY <span class="L0S52">LIKE </span>gc_e<span class="L0S55">.</span><br />
<span class="L0S52">LEAVE </span><span class="L0S52">LIST-PROCESSING</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ELSEIF </span>r_rad2 <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">DELETE </span>gt_outtab_acc <span class="L0S52">WHERE </span>xbilk <span class="L0S52">NE </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>gt_outtab_acc <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span>s037 DISPLAY <span class="L0S52">LIKE </span>gc_e<span class="L0S55">.</span><br />
<span class="L0S52">LEAVE </span><span class="L0S52">LIST-PROCESSING</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">"process_data</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form BUILD_FINAL_TABLE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_build_final_table <span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Now transferring the data to final table</span><br />
<span class="L0S31">*Coverting Internal table into horizontal table i.e for every Profit Center map the data to final table</span><br />
<span class="L0S52">SORT </span>gt_outtab_acc <span class="L0S52">BY </span>bukrs account rfarea<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Build p&l accounts</span><br />
<span class="L0S52">IF </span>r_rad1 <span class="L0S52">EQ </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_build_pl_accounts<span class="L0S55">.</span><br />
<span class="L0S31">*Build balance sheet</span><br />
<span class="L0S52">ELSEIF </span>r_rad2 <span class="L0S52">EQ </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_build_balance_sheet_accounts<span class="L0S55">.</span><br />
<span class="L0S31">*Populating data for All accounts Radio button</span><br />
<span class="L0S52">ELSEIF </span>r_rad3 <span class="L0S52">EQ </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S31">* Check for P&L accounts</span><br />
<span class="L0S52">PERFORM </span>f_build_all_accounts<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" BUILD_FINAL_TABLE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form DISPLAY_ALV</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_display_alv <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lv_repid <span class="L0S52">LIKE </span>sy<span class="L0S70">-</span>repid<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>lt_evt <span class="L0S52">TYPE </span>slis_t_event<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>wa_evt <span class="L0S52">TYPE </span>slis_alv_event<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>lt_sort <span class="L0S52">TYPE </span>slis_t_sortinfo_alv <span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>wa_sort <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span>lt_sort <span class="L0S55">.</span><br />
<span class="L0S52">CONSTANTS</span><span class="L0S55">: </span>lc_i <span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'I'</span><span class="L0S55">.</span><br />
<br />
lv_repid <span class="L0S55">= </span>sy<span class="L0S70">-</span>repid<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Get Event table</span><br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_EVENTS_GET'</span><br />
<span class="L0S52">IMPORTING</span><br />
et_events <span class="L0S55">= </span>lt_evt<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Add pointer to custom top_of_list event handler</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>lt_evt <span class="L0S52">INTO </span>wa_evt<br />
<span class="L0S52">WITH </span><span class="L0S52">KEY </span>name <span class="L0S55">= </span>slis_ev_top_of_list <span class="L0S55">.</span><br />
wa_evt<span class="L0S70">-</span><span class="L0S52">form </span><span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">008</span><span class="L0S55">. </span><span class="L0S31">""'TOP_OF_LIST' .</span><br />
<span class="L0S52">MODIFY </span>lt_evt <span class="L0S52">FROM </span>wa_evt <span class="L0S52">INDEX </span>sy<span class="L0S70">-</span>tabix <span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_LIST_DISPLAY'</span><br />
<span class="L0S52">EXPORTING</span><br />
i_callback_program <span class="L0S55">= </span>lv_repid<br />
i_callback_user_command <span class="L0S55">= </span><span class="L0S33">'F_USER_COMMAND'</span><br />
it_fieldcat <span class="L0S55">= </span>gt_fieldcatalog<br />
i_save <span class="L0S55">= </span>gc_x<br />
it_events <span class="L0S55">= </span>lt_evt<br />
<span class="L0S31">* it_sort = lt_sort</span><br />
<span class="L0S52">TABLES</span><br />
t_outtab <span class="L0S55">= </span>gt_final<br />
<span class="L0S52">EXCEPTIONS</span><br />
program_error <span class="L0S55">= </span><span class="L0S32">1</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">003 </span><span class="L0S52">TYPE </span>lc_i<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" DISPLAY_ALV</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form USER_COMMAND</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_user_command <span class="L0S52">USING </span>ucomm <span class="L0S52">LIKE </span>sy<span class="L0S70">-</span>ucomm<br />
rs_selfield <span class="L0S52">TYPE </span>slis_selfield<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>ok_code <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>ucomm<span class="L0S55">.</span><br />
ok_code <span class="L0S55">= </span>ucomm<span class="L0S55">.</span><br />
<span class="L0S52">CASE </span>ok_code<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">'&IC1'</span><span class="L0S55">. </span><span class="L0S31">"for double click on alv grid line</span><br />
<span class="L0S52">IF </span>rs_selfield<span class="L0S70">-</span>fieldname <span class="L0S55">= </span><span class="L0S33">'KTNRA'</span><span class="L0S55">.</span><br />
<span class="L0S52">SET </span><span class="L0S52">PARAMETER </span><span class="L0S52">ID </span><span class="L0S33">'SAK' </span><span class="L0S52">FIELD </span>rs_selfield<span class="L0S70">-</span><span class="L0S52">value</span><span class="L0S55">.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">TRANSACTION </span><span class="L0S33">'FAGLL03' </span><span class="L0S52">AND </span><span class="L0S52">SKIP </span><span class="L0S52">FIRST </span><span class="L0S52">SCREEN</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">"user_command</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form BUILD_FIELDLIST</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* <--P_LT_FIELDLIST text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_build_fieldlist <span class="L0S52">CHANGING </span>p_lt_fieldlist <span class="L0S52">TYPE </span>tt_fieldlist<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>ls_fieldlist <span class="L0S52">TYPE </span>char30<span class="L0S55">.</span><br />
<br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RCLNT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RLDNR'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RRCTY'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RVERS'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RBUKRS'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RYEAR'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RACCT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'DRCRK'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RPMAX'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'PRCTR'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'RFAREA'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'ZZALTKT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSLVT ) AS HSLVT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL01 ) AS HSL01'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL02 ) AS HSL02'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL03 ) AS HSL03'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL04 ) AS HSL04'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL05 ) AS HSL05'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL06 ) AS HSL06'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL07 ) AS HSL07'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL08 ) AS HSL08'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL09 ) AS HSL09'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL10 ) AS HSL10'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL11 ) AS HSL11'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
ls_fieldlist <span class="L0S55">= </span><span class="L0S33">'SUM( HSL12 ) AS HSL12'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldlist <span class="L0S52">TO </span>p_lt_fieldlist<span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" BUILD_FIELDLIST</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form BUILD_GROUPLIST</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* <--P_LT_GROUPLIST text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_build_grouplist <span class="L0S52">CHANGING </span>p_lt_grouplist <span class="L0S52">TYPE </span>tt_grouplist<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>ls_grouplist <span class="L0S52">TYPE </span>char30<span class="L0S55">.</span><br />
<br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RCLNT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RLDNR'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RRCTY'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RVERS'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RBUKRS'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RYEAR'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RACCT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'DRCRK'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RPMAX'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'PRCTR'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'RFAREA'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
ls_grouplist <span class="L0S55">= </span><span class="L0S33">'ZZALTKT'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_grouplist <span class="L0S52">TO </span>p_lt_grouplist<span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" BUILD_GROUPLIST</span><br />
<span class="L0S31">" PROCESS_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_RACCT_DESC</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->P_<LS_DATA>_RACCT text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_racct_desc <span class="L0S52">USING </span>p_lv_konto <span class="L0S52">TYPE </span>skb1<span class="L0S70">-</span>saknr<br />
<span class="L0S52">CHANGING </span>p_ls_texte <span class="L0S52">TYPE </span>skat<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>ls_t001 <span class="L0S52">TYPE </span>t001<span class="L0S55">.</span><br />
<span class="L0S52">SELECT </span><span class="L0S52">SINGLE </span>* <span class="L0S52">FROM </span>t001 <span class="L0S52">INTO </span>ls_t001<br />
<span class="L0S52">WHERE </span>bukrs <span class="L0S55">= </span>p_bukrs<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'READ_HAUPTBUCH_TEXT'</span><br />
<span class="L0S52">EXPORTING</span><br />
kontenplan <span class="L0S55">= </span>ls_t001<span class="L0S70">-</span>ktopl<br />
sachkonto <span class="L0S55">= </span>p_lv_konto<br />
sprache <span class="L0S55">= </span>sy<span class="L0S70">-</span>langu<br />
<span class="L0S52">IMPORTING</span><br />
text_wa <span class="L0S55">= </span>p_ls_texte<br />
<span class="L0S52">EXCEPTIONS</span><br />
text_not_found <span class="L0S55">= </span><span class="L0S32">01</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">NE </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S31">* Handle message here.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" GET_RACCT_DESC</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form BUILD_PL_ACCOUNTS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_build_pl_accounts <span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lv_hyp1 <span class="L0S52">TYPE </span>altkt<span class="L0S55">,</span><br />
lv_hyp2 <span class="L0S52">TYPE </span>altkt<span class="L0S55">,</span><br />
lv_hyp <span class="L0S52">TYPE </span>altkt<span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS </span><ls_outtab_acc> <span class="L0S52">TYPE </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* LOOP AT gt_outtab_acc_temp ASSIGNING <ls_outtab_acc>.</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_outtab_acc <span class="L0S52">ASSIGNING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>gv_flag <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_all_periods <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_one_period <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S31">*Populate P&L Accounts</span><br />
<span class="L0S52">AT </span><span class="L0S52">END </span><span class="L0S52">OF </span>rfarea<span class="L0S55">.</span><br />
<span class="L0S31">*Get the balance field amount</span><br />
<span class="L0S52">Perform </span>f_get_balance <span class="L0S52">CHANGING </span>gk_final<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>ktnra <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>glname <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account_text<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>rfarea <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>rfarea<span class="L0S55">.</span><br />
<span class="L0S52">IF </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt+0<span class="L0S55">(</span><span class="L0S32">4</span><span class="L0S55">) </span><span class="L0S55">= </span>gc_xxxx<span class="L0S55">.</span><br />
lv_hyp1 <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>rfarea+0<span class="L0S55">(</span><span class="L0S32">4</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
lv_hyp2 <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt+4<span class="L0S55">(</span><span class="L0S32">6</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv_hyp1 lv_hyp2 <span class="L0S52">INTO </span>lv_hyp<span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
lv_hyp <span class="L0S55">= </span>lv_hyp2 <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>hypcode <span class="L0S55">= </span>lv_hyp<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gk_final <span class="L0S52">TO </span>gt_final<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>gk_final<span class="L0S55">.</span><br />
<span class="L0S52">ENDAT</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" BUILD_PL_ACCOUNTS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form BUILD_BALANCE_SHEET_ACCOUNTS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_build_balance_sheet_accounts <span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS </span><ls_outtab_acc> <span class="L0S52">TYPE </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_outtab_acc <span class="L0S52">ASSIGNING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>gv_flag <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_all_periods <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_one_period <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">AT </span><span class="L0S52">END </span><span class="L0S52">OF </span>account<span class="L0S55">.</span><br />
<span class="L0S31">*Get the balance field amount</span><br />
<span class="L0S52">Perform </span>f_get_balance <span class="L0S52">CHANGING </span>gk_final<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>ktnra <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>glname <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account_text<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>rfarea <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>rfarea<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>hypcode <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gk_final <span class="L0S52">TO </span>gt_final<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>gk_final<span class="L0S55">.</span><br />
<span class="L0S52">ENDAT</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" BUILD_BALANCE_SHEET_ACCOUNTS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form BUILD_ALL_ACCOUNTS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_build_all_accounts <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lv_hyp1 <span class="L0S52">TYPE </span>altkt<span class="L0S55">,</span><br />
lv_hyp2 <span class="L0S52">TYPE </span>altkt<span class="L0S55">,</span><br />
lv_hyp <span class="L0S52">TYPE </span>altkt<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>gt_outtab_acc_temp <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS </span><ls_outtab_acc> <span class="L0S52">TYPE </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<br />
gt_outtab_acc_temp <span class="L0S55">= </span>gt_outtab_acc<span class="L0S55">.</span><br />
<span class="L0S52">DELETE </span>gt_outtab_acc_temp <span class="L0S52">WHERE </span>xbilk <span class="L0S52">EQ </span>gc_x<span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_outtab_acc_temp <span class="L0S52">ASSIGNING </span><ls_outtab_acc><span class="L0S55">. </span><span class="L0S31">"WHERE xbilk NE 'X'.</span><br />
<br />
<span class="L0S52">IF </span>gv_flag <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_all_periods <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_one_period <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S31">*If cost center is not needed then make at end of rfarea</span><br />
<span class="L0S52">AT </span><span class="L0S52">END </span><span class="L0S52">OF </span>rfarea<span class="L0S55">.</span><br />
<span class="L0S31">*Get the balance field amount</span><br />
<span class="L0S52">Perform </span>f_get_balance <span class="L0S52">CHANGING </span>gk_final<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>ktnra <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>glname <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account_text<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>rfarea <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>rfarea<span class="L0S55">.</span><br />
<span class="L0S52">IF </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt+0<span class="L0S55">(</span><span class="L0S32">4</span><span class="L0S55">) </span><span class="L0S55">= </span>gc_xxxx<span class="L0S55">.</span><br />
lv_hyp1 <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>rfarea+0<span class="L0S55">(</span><span class="L0S32">4</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
lv_hyp2 <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt+4<span class="L0S55">(</span><span class="L0S32">6</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv_hyp1 lv_hyp2 <span class="L0S52">INTO </span>lv_hyp<span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
lv_hyp <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>hypcode <span class="L0S55">= </span>lv_hyp<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gk_final <span class="L0S52">TO </span>gt_final<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>gk_final<span class="L0S55">.</span><br />
<span class="L0S52">ENDAT</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S31">* Check for Balance sheet accounts</span><br />
<span class="L0S52">REFRESH </span>gt_outtab_acc_temp<span class="L0S55">.</span><br />
gt_outtab_acc_temp <span class="L0S55">= </span>gt_outtab_acc<span class="L0S55">.</span><br />
<span class="L0S52">DELETE </span>gt_outtab_acc_temp <span class="L0S52">WHERE </span>xbilk <span class="L0S52">NE </span>gc_x<span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_outtab_acc_temp <span class="L0S52">ASSIGNING </span><ls_outtab_acc><span class="L0S55">. </span><span class="L0S31">"WHERE xbilk EQ 'X'.</span><br />
<br />
<span class="L0S52">IF </span>gv_flag <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_all_periods <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_get_prctr_amount_one_period <span class="L0S52">USING </span><ls_outtab_acc><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">AT </span><span class="L0S52">END </span><span class="L0S52">OF </span>account<span class="L0S55">.</span><br />
<span class="L0S31">*Get the balance field amount</span><br />
<span class="L0S52">Perform </span>f_get_balance <span class="L0S52">CHANGING </span>gk_final<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>ktnra <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>glname <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>account_text<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>rfarea <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>rfarea<span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>hypcode <span class="L0S55">= </span><ls_outtab_acc><span class="L0S70">-</span>zzaltkt<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gk_final <span class="L0S52">TO </span>gt_final<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>gk_final<span class="L0S55">.</span><br />
<span class="L0S52">ENDAT</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">"build_all_accounts</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_AMOUNT_CURRENT_PERIOD</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* <--P_<ls_data> text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_amount_current_period <span class="L0S52">CHANGING </span>p_ls_data <span class="L0S52">TYPE </span>ty_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS</span><span class="L0S55">: </span>lc_s <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'S'</span><span class="L0S55">,</span><br />
lc_h <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'H'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>p_ls_data<span class="L0S70">-</span>drcrk <span class="L0S55">= </span>lc_s<span class="L0S55">.</span><br />
<span class="L0S52">CASE </span>s_per<span class="L0S70">-</span>low<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl01 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl02 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl03 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">4</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl04 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">5</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl05 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">6</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl06 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">7</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl07 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">8</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl08 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">9</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl09 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">10</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl10 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">11</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl11 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">12</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl12 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
<span class="L0S52">ELSEIF </span>p_ls_data<span class="L0S70">-</span>drcrk <span class="L0S55">= </span>lc_h<span class="L0S55">.</span><br />
<span class="L0S52">CASE </span>s_per<span class="L0S70">-</span>low<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl01 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl02 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl03 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">4</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl04 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">5</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl05 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">6</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl06 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">7</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl07 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">8</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl08 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">9</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl09 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">10</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl10 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">11</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl11 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">12</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsl12 <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" GET_AMOUNT_CURRENT_PERIOD</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_AMOUNT_ALL_PERIODS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->P_<LS_DATA> text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_amount_all_periods <span class="L0S52">CHANGING </span>p_ls_data <span class="L0S52">TYPE </span>ty_data<span class="L0S55">.</span><br />
<span class="L0S31">* Credit amount</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>lv_count <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">,</span><br />
n <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS</span><span class="L0S55">: </span>lc_s <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'S'</span><span class="L0S55">,</span><br />
lc_h <span class="L0S52">TYPE </span>char1 <span class="L0S52">VALUE </span><span class="L0S33">'H'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>s_per<span class="L0S70">-</span>high <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>p_ls_data<span class="L0S70">-</span>drcrk <span class="L0S55">= </span>lc_s<span class="L0S55">.</span><br />
lv_count <span class="L0S55">= </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">WHILE </span>lv_count <= s_per<span class="L0S70">-</span>high<span class="L0S55">.</span><br />
n <span class="L0S55">= </span>lv_count<span class="L0S55">.</span><br />
<span class="L0S52">CASE </span>n<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl01<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl02<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl03<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">4</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl04<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">5</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl05<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">6</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl06<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">7</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl07<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">8</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl08<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">9</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl09<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">10</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl10<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">11</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl11<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">12</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl12<span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
lv_count <span class="L0S55">= </span>lv_count + <span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDWHILE</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>debit_to_period<span class="L0S55">.</span><br />
<span class="L0S31">* Debit amount</span><br />
<span class="L0S52">ELSEIF </span>p_ls_data<span class="L0S70">-</span>drcrk <span class="L0S55">= </span>lc_h<span class="L0S55">.</span><br />
lv_count <span class="L0S55">= </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">WHILE </span>lv_count <= s_per<span class="L0S70">-</span>high<span class="L0S55">.</span><br />
n <span class="L0S55">= </span>lv_count<span class="L0S55">.</span><br />
<span class="L0S52">CASE </span>n<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl01<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl02<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl03<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">4</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl04<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">5</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl05<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">6</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl06<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">7</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl07<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">8</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl08<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">9</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl09<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">10</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl10<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">11</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl11<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S32">12</span><span class="L0S55">.</span><br />
p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S55">= </span>p_ls_data<span class="L0S70">-</span>hsltotal + p_ls_data<span class="L0S70">-</span>hsl12<span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
lv_count <span class="L0S55">= </span>lv_count + <span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDWHILE</span><span class="L0S55">.</span><br />
<span class="L0S52">MOVE </span>p_ls_data<span class="L0S70">-</span>hsltotal <span class="L0S52">TO </span>p_ls_data<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S31">* Flag to determine wheather we need all period amount or current period amount</span><br />
gv_flag <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" GET_AMOUNT_ALL_PERIODS</span><br />
<br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_PRCTR_AMOUNT</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_prctr_amount_one_period <span class="L0S52">USING </span>p_outtab_acc <span class="L0S52">TYPE </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lv_var<span class="L0S55">(</span><span class="L0S32">15</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS </span><span class="L0S55">: </span>lc_pc1<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118206'</span><span class="L0S55">,</span><br />
lc_pc2<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118207'</span><span class="L0S55">,</span><br />
lc_pc3<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118209'</span><span class="L0S55">,</span><br />
lc_pc4<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118211'</span><span class="L0S55">,</span><br />
lc_pc5<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118213'</span><span class="L0S55">,</span><br />
lc_pc6<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118214'</span><span class="L0S55">,</span><br />
lc_pc7<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118215'</span><span class="L0S55">,</span><br />
lc_pc8<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118216'</span><span class="L0S55">,</span><br />
lc_pc9<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118217'</span><span class="L0S55">,</span><br />
lc_pc10<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118218'</span><span class="L0S55">,</span><br />
lc_pc11<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118219'</span><span class="L0S55">,</span><br />
lc_pc12<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118220'</span><span class="L0S55">,</span><br />
lc_pc13<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118221'</span><span class="L0S55">,</span><br />
lc_pc14<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118222'</span><span class="L0S55">,</span><br />
lc_pc15<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118223'</span><span class="L0S55">,</span><br />
lc_pc16<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118224'</span><span class="L0S55">,</span><br />
lc_pc17<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118225'</span><span class="L0S55">,</span><br />
lc_pc18<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118226'</span><span class="L0S55">,</span><br />
lc_pc19<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118238'</span><span class="L0S55">,</span><br />
lc_pc20<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118239'</span><span class="L0S55">,</span><br />
lc_pc21<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118240'</span><span class="L0S55">,</span><br />
lc_pc22<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63110000'</span><span class="L0S55">,</span><br />
lc_pc23<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63110010'</span><span class="L0S55">,</span><br />
lc_pc24<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63110020'</span><span class="L0S55">,</span><br />
lc_pc25<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'DUMMY'</span><span class="L0S55">,</span><br />
lc_pc26<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'DUMMY2'</span><span class="L0S55">,</span><br />
lc_pc28<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118241'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CASE </span>p_outtab_acc<span class="L0S70">-</span>prctr<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc1<span class="L0S55">. </span><span class="L0S31">"'P63118206'.</span><br />
gk_final<span class="L0S70">-</span>pc1 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc1 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc2<span class="L0S55">. </span><span class="L0S31">"'P63118207'.</span><br />
gk_final<span class="L0S70">-</span>pc2 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc2 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc3<span class="L0S55">. </span><span class="L0S31">"'P63118209'.</span><br />
gk_final<span class="L0S70">-</span>pc3 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc3 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc4<span class="L0S55">. </span><span class="L0S31">"'P63118211'.</span><br />
gk_final<span class="L0S70">-</span>pc4 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc4 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc5<span class="L0S55">. </span><span class="L0S31">"'P63118213'.</span><br />
gk_final<span class="L0S70">-</span>pc5 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc5 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc6<span class="L0S55">. </span><span class="L0S31">"'P63118214'.</span><br />
gk_final<span class="L0S70">-</span>pc6 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc6 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc7<span class="L0S55">. </span><span class="L0S31">"'P63118215'.</span><br />
gk_final<span class="L0S70">-</span>pc7 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc7 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc8<span class="L0S55">. </span><span class="L0S31">"'P63118216'.</span><br />
gk_final<span class="L0S70">-</span>pc8 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc8 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc9<span class="L0S55">. </span><span class="L0S31">"'P63118217'.</span><br />
gk_final<span class="L0S70">-</span>pc9 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc9 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc10<span class="L0S55">. </span><span class="L0S31">"'P63118218'.</span><br />
gk_final<span class="L0S70">-</span>pc10 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc10 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc11<span class="L0S55">. </span><span class="L0S31">"'P63118219'.</span><br />
gk_final<span class="L0S70">-</span>pc11 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc11 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc12<span class="L0S55">. </span><span class="L0S31">"'P63118220'.</span><br />
gk_final<span class="L0S70">-</span>pc12 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc12 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc13<span class="L0S55">. </span><span class="L0S31">"'P63118221'.</span><br />
gk_final<span class="L0S70">-</span>pc13 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc13 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc14<span class="L0S55">. </span><span class="L0S31">"'P63118222'.</span><br />
gk_final<span class="L0S70">-</span>pc14 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc14 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc15<span class="L0S55">. </span><span class="L0S31">"'P63118223'.</span><br />
gk_final<span class="L0S70">-</span>pc15 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc15 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc16<span class="L0S55">. </span><span class="L0S31">"'P63118224'.</span><br />
gk_final<span class="L0S70">-</span>pc16 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc16 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc17<span class="L0S55">. </span><span class="L0S31">"'P63118225'.</span><br />
gk_final<span class="L0S70">-</span>pc17 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc17 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc18<span class="L0S55">. </span><span class="L0S31">"'P63118226'.</span><br />
gk_final<span class="L0S70">-</span>pc18 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc18 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc19<span class="L0S55">. </span><span class="L0S31">"'P63118238'.</span><br />
gk_final<span class="L0S70">-</span>pc19 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc19 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc20<span class="L0S55">. </span><span class="L0S31">"'P63118239'.</span><br />
gk_final<span class="L0S70">-</span>pc20 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc20 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc21<span class="L0S55">. </span><span class="L0S31">"'P63118240'.</span><br />
gk_final<span class="L0S70">-</span>pc21 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc21 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc22<span class="L0S55">. </span><span class="L0S31">"'P63110000'.</span><br />
gk_final<span class="L0S70">-</span>pc22 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc22 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc23<span class="L0S55">. </span><span class="L0S31">"'P63110010'.</span><br />
gk_final<span class="L0S70">-</span>pc23 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc23 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc24<span class="L0S55">. </span><span class="L0S31">"'P63110020'.</span><br />
gk_final<span class="L0S70">-</span>pc24 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc24 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc25<span class="L0S55">. </span><span class="L0S31">"'DUMMY'.</span><br />
gk_final<span class="L0S70">-</span>pc25 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc25 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc26<span class="L0S55">. </span><span class="L0S31">"'DUMMY2'.</span><br />
gk_final<span class="L0S70">-</span>pc26 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc26 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">' '</span><span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>pc27 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc27 + p_outtab_acc<span class="L0S70">-</span>debit_in_period + p_outtab_acc<span class="L0S70">-</span>credit_in_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc28<span class="L0S55">. </span><span class="L0S31">"'P63110041'</span><br />
gk_final<span class="L0S70">-</span>pc28 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc28 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">"get_prctr_amount</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_PRCTR_AMOUNT_ALL_PERIODS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->P_<LS_OUTTAB_ACC> text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_prctr_amount_all_periods <span class="L0S52">USING </span>p_outtab_acc <span class="L0S52">TYPE </span>ty_outtab_acc<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lv_var<span class="L0S55">(</span><span class="L0S32">15</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS </span><span class="L0S55">: </span>lc_pc1<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118206'</span><span class="L0S55">,</span><br />
lc_pc2<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118207'</span><span class="L0S55">,</span><br />
lc_pc3<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118209'</span><span class="L0S55">,</span><br />
lc_pc4<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118211'</span><span class="L0S55">,</span><br />
lc_pc5<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118213'</span><span class="L0S55">,</span><br />
lc_pc6<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118214'</span><span class="L0S55">,</span><br />
lc_pc7<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118215'</span><span class="L0S55">,</span><br />
lc_pc8<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118216'</span><span class="L0S55">,</span><br />
lc_pc9<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118217'</span><span class="L0S55">,</span><br />
lc_pc10<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118218'</span><span class="L0S55">,</span><br />
lc_pc11<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118219'</span><span class="L0S55">,</span><br />
lc_pc12<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118220'</span><span class="L0S55">,</span><br />
lc_pc13<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118221'</span><span class="L0S55">,</span><br />
lc_pc14<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118222'</span><span class="L0S55">,</span><br />
lc_pc15<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118223'</span><span class="L0S55">,</span><br />
lc_pc16<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118224'</span><span class="L0S55">,</span><br />
lc_pc17<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118225'</span><span class="L0S55">,</span><br />
lc_pc18<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118226'</span><span class="L0S55">,</span><br />
lc_pc19<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118238'</span><span class="L0S55">,</span><br />
lc_pc20<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118239'</span><span class="L0S55">,</span><br />
lc_pc21<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118240'</span><span class="L0S55">,</span><br />
lc_pc22<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63110000'</span><span class="L0S55">,</span><br />
lc_pc23<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63110010'</span><span class="L0S55">,</span><br />
lc_pc24<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63110020'</span><span class="L0S55">,</span><br />
lc_pc25<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'DUMMY'</span><span class="L0S55">,</span><br />
lc_pc26<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'DUMMY2'</span><span class="L0S55">,</span><br />
lc_pc28<span class="L0S55">(</span><span class="L0S32">9</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'P63118241'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CASE </span>p_outtab_acc<span class="L0S70">-</span>prctr<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc1<span class="L0S55">. </span><span class="L0S31">" 'P63118206'.</span><br />
gk_final<span class="L0S70">-</span>pc1 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc1 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc2<span class="L0S55">. </span><span class="L0S31">" 'P63118207'.</span><br />
gk_final<span class="L0S70">-</span>pc2 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc2 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc3<span class="L0S55">. </span><span class="L0S31">" 'P63118209'.</span><br />
gk_final<span class="L0S70">-</span>pc3 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc3 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc4<span class="L0S55">. </span><span class="L0S31">" 'P63118211'.</span><br />
gk_final<span class="L0S70">-</span>pc4 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc4 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc5<span class="L0S55">. </span><span class="L0S31">" 'P63118213'.</span><br />
gk_final<span class="L0S70">-</span>pc5 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc5 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc6<span class="L0S55">. </span><span class="L0S31">" 'P63118214'.</span><br />
gk_final<span class="L0S70">-</span>pc6 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc6 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc7<span class="L0S55">. </span><span class="L0S31">" 'P63118215'.</span><br />
gk_final<span class="L0S70">-</span>pc7 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc7 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc8<span class="L0S55">. </span><span class="L0S31">" 'P63118216'.</span><br />
gk_final<span class="L0S70">-</span>pc8 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc8 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc9<span class="L0S55">. </span><span class="L0S31">" 'P63118217'.</span><br />
gk_final<span class="L0S70">-</span>pc9 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc9 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc10<span class="L0S55">. </span><span class="L0S31">" 'P63118218'.</span><br />
gk_final<span class="L0S70">-</span>pc10 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc10 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc11<span class="L0S55">. </span><span class="L0S31">" 'P63118219'.</span><br />
gk_final<span class="L0S70">-</span>pc11 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc11 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc12<span class="L0S55">. </span><span class="L0S31">" 'P63118220'.</span><br />
gk_final<span class="L0S70">-</span>pc12 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc12 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc13<span class="L0S55">. </span><span class="L0S31">" 'P63118221'.</span><br />
gk_final<span class="L0S70">-</span>pc13 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc13 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc14<span class="L0S55">. </span><span class="L0S31">" 'P63118222'.</span><br />
gk_final<span class="L0S70">-</span>pc14 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc14 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc15<span class="L0S55">. </span><span class="L0S31">" 'P63118223'.</span><br />
gk_final<span class="L0S70">-</span>pc15 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc15 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc16<span class="L0S55">. </span><span class="L0S31">" 'P63118224'.</span><br />
gk_final<span class="L0S70">-</span>pc16 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc16 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc17<span class="L0S55">. </span><span class="L0S31">" 'P63118225'.</span><br />
gk_final<span class="L0S70">-</span>pc17 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc17 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc18<span class="L0S55">. </span><span class="L0S31">" 'P63118226'.</span><br />
gk_final<span class="L0S70">-</span>pc18 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc18 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc19<span class="L0S55">. </span><span class="L0S31">" 'P63118238'.</span><br />
gk_final<span class="L0S70">-</span>pc19 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc19 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc20<span class="L0S55">. </span><span class="L0S31">" 'P63118239'.</span><br />
gk_final<span class="L0S70">-</span>pc20 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc20 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc21<span class="L0S55">. </span><span class="L0S31">" 'P63118240'.</span><br />
gk_final<span class="L0S70">-</span>pc21 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc21 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc22<span class="L0S55">. </span><span class="L0S31">" 'P63110000'.</span><br />
gk_final<span class="L0S70">-</span>pc22 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc22 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc23<span class="L0S55">. </span><span class="L0S31">" 'P63110010'.</span><br />
gk_final<span class="L0S70">-</span>pc23 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc23 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc24<span class="L0S55">.</span><span class="L0S31">" 'P63110020'.</span><br />
gk_final<span class="L0S70">-</span>pc24 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc24 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc25<span class="L0S55">. </span><span class="L0S31">" 'DUMMY'.</span><br />
gk_final<span class="L0S70">-</span>pc25 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc25 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc26<span class="L0S55">. </span><span class="L0S31">" 'DUMMY2'.</span><br />
gk_final<span class="L0S70">-</span>pc26 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc26 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">' '</span><span class="L0S55">.</span><br />
gk_final<span class="L0S70">-</span>pc27 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc27 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span>lc_pc28<span class="L0S55">. </span><span class="L0S31">"P63110041</span><br />
gk_final<span class="L0S70">-</span>pc28 <span class="L0S55">= </span>gk_final<span class="L0S70">-</span>pc28 + p_outtab_acc<span class="L0S70">-</span>debit_to_period + p_outtab_acc<span class="L0S70">-</span>credit_to_period<span class="L0S55">.</span><br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" GET_PRCTR_AMOUNT_ALL_PERIODS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form FIELD_CATALOGUE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_field_catalogue <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>ls_fieldcatalog <span class="L0S52">TYPE </span>slis_fieldcat_alv<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lv_f_name <span class="L0S52">TYPE </span>slis_fieldname<span class="L0S55">,</span><br />
lv_f_text <span class="L0S52">TYPE </span>dd03p<span class="L0S70">-</span>scrtext_m<span class="L0S55">,</span><br />
lv_pos <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>cucol<span class="L0S55">,</span><br />
lv_outlen <span class="L0S52">TYPE </span>dd03p<span class="L0S70">-</span>outputlen<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>wa_sort <span class="L0S52">TYPE </span>slis_sortinfo_alv<span class="L0S55">.</span><br />
<br />
ls_fieldcatalog<span class="L0S70">-</span>fieldname <span class="L0S55">= </span><span class="L0S33">'KTNRA'</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">005</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>col_pos <span class="L0S55">= </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S32">10</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>emphasize <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span><span class="L0S52">key </span><span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S31">* ls_fieldcatalog-do_sum = 'X'.</span><br />
<span class="L0S31">* ls_fieldcatalog-no_zero = 'X'.</span><br />
<span class="L0S52">APPEND </span>ls_fieldcatalog <span class="L0S52">TO </span>gt_fieldcatalog<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>ls_fieldcatalog<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'GLNAME'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">006</span><span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'2'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'50'</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'RFAREA'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">043</span><span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'3'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'10'</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'HYPCODE'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">007</span><span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'3'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'10'</span><span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC1'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc1<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'4'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118206'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC2'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc2<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'5'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118207'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC3'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc3<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'6'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118209'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC4'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc4<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'7'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118211'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC5'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc5<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'8'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118213'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC6'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc6<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'9'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118214'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC7'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc7<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'10'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118215'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC8'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc8<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'11'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118216'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC9'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>pc9<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'12'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118217'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC10'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c10<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'13'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118218'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC11'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c11<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'14'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118219'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC12'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c12<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118220'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC13'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c13<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'16'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118221'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC14'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c14<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'17'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118222'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC15'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c15<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'18'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118223'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC16'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c16<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'19'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118224'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC17'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c17<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'20'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118225'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC18'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c18<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'21'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118226'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC19'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c19<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'22'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118238'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC20'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c20<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'23'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118239'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC21'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c21<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'24'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118240'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC22'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c22<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'25'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63110000'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC23'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c23<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'26'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63110010'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC24'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c24<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'27'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63110020'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC25'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c25<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'28'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'DUMMY'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC26'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c26<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'29'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'DUMMY2'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC27'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c27<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'30'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'BLANK'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
lv_f_name <span class="L0S55">= </span><span class="L0S33">'PC28'</span><span class="L0S55">. </span>lv_f_text <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span>c28<span class="L0S55">. </span>lv_pos <span class="L0S55">= </span><span class="L0S33">'31'</span><span class="L0S55">. </span>lv_outlen <span class="L0S55">= </span><span class="L0S33">'15'</span><span class="L0S55">. </span><span class="L0S31">"'P63118241'</span><br />
<span class="L0S52">PERFORM </span>f_set_field_catalogue <span class="L0S52">USING </span>lv_f_name lv_f_text lv_pos lv_outlen<span class="L0S55">.</span><br />
<br />
ls_fieldcatalog<span class="L0S70">-</span>fieldname <span class="L0S55">= </span><span class="L0S33">'BALANCE'</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">004</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>col_pos <span class="L0S55">= </span><span class="L0S32">32</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S32">18</span><span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>do_sum <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldcatalog <span class="L0S52">TO </span>gt_fieldcatalog<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>ls_fieldcatalog<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" FIELD_CATALOGUE</span><br />
<br />
<span class="L0S31">* Custom event handler to write group-level header</span><br />
<span class="L0S31">* Changing the length and spaces will change header 1 sync with header 2</span><br />
<span class="L0S52">FORM </span>f_top_of_list <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lv_records<span class="L0S55">(</span><span class="L0S32">3</span><span class="L0S55">) </span><span class="L0S52">TYPE </span>n<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>lt_list_comments <span class="L0S52">TYPE </span>slis_t_listheader<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>ls_list_comments <span class="L0S52">TYPE </span>slis_listheader<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lv1 <span class="L0S52">TYPE </span>string<span class="L0S55">,</span><br />
lv2 <span class="L0S52">TYPE </span>string<span class="L0S55">,</span><br />
lv3 <span class="L0S52">TYPE </span>string<span class="L0S55">,</span><br />
lv4 <span class="L0S52">TYPE </span>string<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONSTANTS</span><span class="L0S55">: </span>lc_s <span class="L0S52">TYPE </span><span class="L0S52">c </span><span class="L0S52">VALUE </span><span class="L0S33">'S'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">DESCRIBE </span><span class="L0S52">TABLE </span>gt_final <span class="L0S52">LINES </span>lv_records<span class="L0S55">.</span><br />
<br />
lv1 <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">009</span><span class="L0S55">.</span><br />
lv2 <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">010</span><span class="L0S55">.</span><br />
lv3 <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">011</span><span class="L0S55">.</span><br />
lv4 <span class="L0S55">= </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">012</span><span class="L0S55">.</span><br />
<br />
ls_list_comments<span class="L0S70">-</span>typ <span class="L0S55">= </span>lc_s<span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv1 sy<span class="L0S70">-</span>uname <span class="L0S52">INTO </span>lv1 <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv2 sy<span class="L0S70">-</span>datum <span class="L0S52">INTO </span>lv2 <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv1 lv2 <span class="L0S52">INTO </span>ls_list_comments<span class="L0S70">-</span>info <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_list_comments <span class="L0S52">TO </span>lt_list_comments<span class="L0S55">.</span><br />
<br />
ls_list_comments<span class="L0S70">-</span>typ <span class="L0S55">= </span>lc_s<span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv3 lv_records <span class="L0S52">INTO </span>lv3 <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv4 sy<span class="L0S70">-</span>uzeit <span class="L0S52">INTO </span>lv4 <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>lv3 lv4 <span class="L0S52">INTO </span>ls_list_comments<span class="L0S70">-</span>info <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_list_comments <span class="L0S52">TO </span>lt_list_comments<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_COMMENTARY_WRITE'</span><br />
<span class="L0S52">EXPORTING</span><br />
it_list_commentary <span class="L0S55">= </span>lt_list_comments<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ULINE </span><span class="L0S52">AT </span><span class="L0S32">1</span><span class="L0S55">(</span><span class="L0S32">552</span><span class="L0S55">) </span><span class="L0S55">.</span><br />
<span class="L0S52">FORMAT </span><span class="L0S52">COLOR </span><span class="L0S55">= </span><span class="L0S32">7 </span><span class="L0S55">.</span><br />
<span class="L0S52">WRITE</span><span class="L0S55">: </span>/ sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<span class="L0S32">86 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<span class="L0S32">87 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">013</span><span class="L0S55">, </span><span class="L0S31">"' GUJRAT ' ,</span><br />
<span class="L0S32">102 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<span class="L0S32">103 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">014</span><span class="L0S55">, </span><span class="L0S31">"' KARNATAKA ' ,</span><br />
<span class="L0S32">118 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<span class="L0S32">119 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">015</span><span class="L0S55">, </span><span class="L0S31">"' TAMIL NADU ',</span><br />
<span class="L0S32">134 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">135 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">016</span><span class="L0S55">, </span><span class="L0S31">"' ORISSA ',</span><br />
<span class="L0S32">150 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">151 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">017</span><span class="L0S55">, </span><span class="L0S31">"' DELHI ',</span><br />
<span class="L0S32">166 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">167 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">018</span><span class="L0S55">, </span><span class="L0S31">"' UP ',</span><br />
<span class="L0S32">182 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<span class="L0S32">183 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">019</span><span class="L0S55">, </span><span class="L0S31">"' HARAYANA ',</span><br />
<span class="L0S32">198 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">199 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">020</span><span class="L0S55">, </span><span class="L0S31">"' ASSAM ',</span><br />
<span class="L0S32">214 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">215 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">021</span><span class="L0S55">, </span><span class="L0S31">"' MP ',</span><br />
<span class="L0S32">230 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">231 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">022</span><span class="L0S55">, </span><span class="L0S31">"' RAJASTHAN ',</span><br />
<span class="L0S32">246 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<span class="L0S32">247 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">023</span><span class="L0S55">, </span><span class="L0S31">"' WB ',</span><br />
<span class="L0S32">262 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">263 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">024</span><span class="L0S55">, </span><span class="L0S31">"' PUNJAB ',</span><br />
<span class="L0S32">278 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">279 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">025</span><span class="L0S55">, </span><span class="L0S31">"' MAHARASTRA ',</span><br />
<span class="L0S32">294 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">295 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">026</span><span class="L0S55">, </span><span class="L0S31">"' BIHAR ',</span><br />
<span class="L0S32">310 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">311 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">027</span><span class="L0S55">, </span><span class="L0S31">"' CHATTISGARH ',</span><br />
<span class="L0S32">326 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">327 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">028</span><span class="L0S55">, </span><span class="L0S31">"' JHARKHAND ',</span><br />
<span class="L0S32">342 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">343 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">029</span><span class="L0S55">, </span><span class="L0S31">"' HARYANA ',</span><br />
<span class="L0S32">358 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">359 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">030</span><span class="L0S55">, </span><span class="L0S31">"' TG ',</span><br />
<span class="L0S32">374 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">375 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">031</span><span class="L0S55">, </span><span class="L0S31">"' Patodi ',</span><br />
<span class="L0S32">390 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">391 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">032</span><span class="L0S55">, </span><span class="L0S31">"' Palwal ',</span><br />
<span class="L0S32">406 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">407 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">033</span><span class="L0S55">, </span><span class="L0S31">"' HO HARYANA ',</span><br />
<span class="L0S32">422 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">423 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">034</span><span class="L0S55">, </span><span class="L0S31">"' P63110000',</span><br />
<span class="L0S32">438 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">439 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">035</span><span class="L0S55">, </span><span class="L0S31">"' P63110010',</span><br />
<span class="L0S32">454 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">455 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">036</span><span class="L0S55">, </span><span class="L0S31">"' P63110020',</span><br />
<span class="L0S32">470 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">471 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">037</span><span class="L0S55">, </span><span class="L0S31">"' DUMMY ',</span><br />
<span class="L0S32">486 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">487 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">038</span><span class="L0S55">, </span><span class="L0S31">"' DUMMY2 ',</span><br />
<span class="L0S32">502 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">503 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">039</span><span class="L0S55">, </span><span class="L0S31">"' BLANK ',</span><br />
<span class="L0S32">518 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">519 </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">039</span><span class="L0S55">, </span><span class="L0S31">"' ISD ',</span><br />
<span class="L0S32">534 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<span class="L0S32">553 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">"MY_TOP_OF_LIST</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form VAL_BUKRS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_val_bukrs <span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>ls_bukrs <span class="L0S52">TYPE </span>t001<span class="L0S55">.</span><br />
<span class="L0S52">SELECT </span><span class="L0S52">SINGLE </span>* <span class="L0S52">FROM </span>t001 <span class="L0S52">INTO </span>ls_bukrs <span class="L0S52">WHERE </span>bukrs <span class="L0S52">EQ </span>p_bukrs<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">SET </span><span class="L0S52">CURSOR </span><span class="L0S52">FIELD </span><span class="L0S33">'P_BUKRS-LOW'</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">002 </span><span class="L0S52">TYPE </span>gc_e<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" VAL_BUKRS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form F_VAL_BUPLA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_val_bupla <span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>ls_bupla <span class="L0S52">TYPE </span>gsber<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>s_bupla <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECT </span><span class="L0S52">SINGLE </span>gsber <span class="L0S52">FROM </span>tgsb <span class="L0S52">INTO </span>ls_bupla <span class="L0S52">WHERE </span>gsber <span class="L0S52">EQ </span>s_bupla<span class="L0S70">-</span>low<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>ls_bupla <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">SET </span><span class="L0S52">CURSOR </span><span class="L0S52">FIELD </span><span class="L0S33">'S_BUPLA-LOW'</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">040 </span><span class="L0S52">TYPE </span>gc_e<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" F_VAL_BUPLA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form F_VAL_PRCTR</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_val_prctr <span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>ls_cepc <span class="L0S52">LIKE </span>cepc<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>s_prctr <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECT </span>* <span class="L0S52">UP </span><span class="L0S52">TO </span><span class="L0S32">1 </span><span class="L0S52">ROWS </span><span class="L0S52">FROM </span>cepc <span class="L0S52">INTO </span>ls_cepc <span class="L0S52">WHERE </span>prctr <span class="L0S52">IN </span>s_prctr<span class="L0S55">.</span><br />
<span class="L0S52">ENDSELECT</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>ls_cepc <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">SET </span><span class="L0S52">CURSOR </span><span class="L0S52">FIELD </span><span class="L0S33">'S_PRCTR-LOW'</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">041 </span><span class="L0S52">TYPE </span>gc_e<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">"f_val_prctr</span><br />
<span class="L0S31">" F_VAL_PRCTR</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form F_SET_FIELD_CATALOGUE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->P_LV_F_NAME text</span><br />
<span class="L0S31">* -->P_LV_F_TEXT text</span><br />
<span class="L0S31">* -->P_LV_POS text</span><br />
<span class="L0S31">* -->P_LV_OUTLEN text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_set_field_catalogue <span class="L0S52">USING </span>p_lv_f_name <span class="L0S52">TYPE </span>slis_fieldname<br />
p_lv_f_text <span class="L0S52">TYPE </span>dd03p<span class="L0S70">-</span>scrtext_m<br />
p_lv_pos <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>cucol<br />
p_lv_outlen <span class="L0S52">TYPE </span>dd03p<span class="L0S70">-</span>outputlen<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>ls_fieldcatalog <span class="L0S52">TYPE </span>slis_fieldcat_alv<span class="L0S55">.</span><br />
<br />
ls_fieldcatalog<span class="L0S70">-</span>fieldname <span class="L0S55">= </span>p_lv_f_name<span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span>p_lv_f_text<span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>col_pos <span class="L0S55">= </span>p_lv_pos<span class="L0S55">.</span><br />
ls_fieldcatalog<span class="L0S70">-</span>outputlen <span class="L0S55">= </span>p_lv_outlen<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_fieldcatalog <span class="L0S52">TO </span>gt_fieldcatalog<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>ls_fieldcatalog<span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" F_SET_FIELD_CATALOGUE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form F_GET_BALANCE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* <--P_GK_FINAL text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>f_get_balance <span class="L0S52">CHANGING </span>p_gk_final <span class="L0S52">TYPE </span>ty_final<span class="L0S55">.</span><br />
<span class="L0S31">* Summing up all profit center amounts</span><br />
p_gk_final<span class="L0S70">-</span>balance <span class="L0S55">= </span>p_gk_final<span class="L0S70">-</span>pc1 + p_gk_final<span class="L0S70">-</span>pc2 + p_gk_final<span class="L0S70">-</span>pc3 + p_gk_final<span class="L0S70">-</span>pc4 + p_gk_final<span class="L0S70">-</span>pc5 +<br />
p_gk_final<span class="L0S70">-</span>pc6 + p_gk_final<span class="L0S70">-</span>pc7 + p_gk_final<span class="L0S70">-</span>pc8 + p_gk_final<span class="L0S70">-</span>pc9 + p_gk_final<span class="L0S70">-</span>pc10 +<br />
p_gk_final<span class="L0S70">-</span>pc11 + p_gk_final<span class="L0S70">-</span>pc12 + p_gk_final<span class="L0S70">-</span>pc13 + p_gk_final<span class="L0S70">-</span>pc14 + p_gk_final<span class="L0S70">-</span>pc15 +<br />
p_gk_final<span class="L0S70">-</span>pc16 + p_gk_final<span class="L0S70">-</span>pc17 + p_gk_final<span class="L0S70">-</span>pc18 + p_gk_final<span class="L0S70">-</span>pc19 + p_gk_final<span class="L0S70">-</span>pc20 +<br />
p_gk_final<span class="L0S70">-</span>pc21 + p_gk_final<span class="L0S70">-</span>pc22 + p_gk_final<span class="L0S70">-</span>pc23 + p_gk_final<span class="L0S70">-</span>pc24 + p_gk_final<span class="L0S70">-</span>pc25 +<br />
p_gk_final<span class="L0S70">-</span>pc26 + p_gk_final<span class="L0S70">-</span>pc27 + p_gk_final<span class="L0S70">-</span>pc28<span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" F_GET_BALANCE</span>
</span></span></span></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-26495120306256109482019-04-04T00:05:00.002-07:002019-04-04T00:05:37.424-07:00Modify screen based on check box<div dir="ltr" style="text-align: left;" trbidi="on">
<br />
<br />
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>There are two buttons on screen<br />
Rad1<br />
Rad2<br />
<br />
<br />
Both buttons are in same block and same group.<br />
<br />
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
</style>
<span class="L0S52">PARAMETERS </span>p_opt1 <span class="L0S52">RADIOBUTTON </span><span class="L0S52">GROUP </span>gr1 <span class="L0S52">DEFAULT </span><span class="L0S33">'X' </span><span class="L0S52">USER-COMMAND </span>a<span class="L0S55">.</span>
<br />
<span class="L0S55"><style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
</style>
<span class="L0S52">PARAMETERS </span><span class="L0S55">: </span>p_opt2 <span class="L0S52">RADIOBUTTON </span><span class="L0S52">GROUP </span>gr1.</span><br />
<span class="L0S55"><br /></span>
<span class="L0S55"><br /></span>
This code will populate the variant field based on radio button selected.<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span><span class="L0S52">SCREEN</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>p_opt2 <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>p_var<span class="L0S55">.</span><br />
p_var <span class="L0S55">= </span><span class="L0S33">'/EXCEL'</span><span class="L0S55">(</span><span class="L0S32">025</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span><span class="L0S52">screen</span><span class="L0S70">-</span>name <span class="L0S55">= </span><span class="L0S33">'P_MATNR'</span><span class="L0S55">. " Input parameter</span><br />
<span class="L0S52">CLEAR </span>p_matnr<span class="L0S55">.</span><br />
<span class="L0S52">screen</span><span class="L0S70">-</span><span class="L0S52">input </span><span class="L0S55">= </span><span class="L0S33">'0'</span><span class="L0S55">.</span><br />
<span class="L0S52">MODIFY </span><span class="L0S52">SCREEN</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ELSEIF </span>p_opt1 <span class="L0S55">= </span>gc_x<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>p_file<span class="L0S55">.</span><br />
p_var <span class="L0S55">= </span><span class="L0S33">'/DEFAULT'</span><span class="L0S55">(</span><span class="L0S32">026</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-27260288099747258482019-04-03T23:58:00.003-07:002019-04-03T23:58:26.755-07:00Fetch data from excel file into Internal table<div dir="ltr" style="text-align: left;" trbidi="on">
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S52"> DATA</span><span class="L0S55">: </span>lt_itab <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>alsmex_tabline <span class="L0S52">INITIAL </span><span class="L0S52">SIZE </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lk_itab <span class="L0S52">TYPE </span>alsmex_tabline<span class="L0S55">,</span><br /> lk_excel <span class="L0S52">TYPE </span>ty_excel<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lt_excel <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_excel<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>lv_ivnum<span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">) </span><span class="L0S52">TYPE </span>n<span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS</span><span class="L0S55">: </span><itab_xls> <span class="L0S52">TYPE </span><span class="L0S52">any</span><span class="L0S55">,</span><br />
<fk_excel> <span class="L0S52">TYPE </span>ty_excel<span class="L0S55">.</span><br />
<span class="L0S31">*read file from presentation Layer for XL file upload</span><br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'ALSM_EXCEL_TO_INTERNAL_TABLE'</span><br />
<span class="L0S52">EXPORTING</span><br />
filename <span class="L0S55">= </span>p_file<br />
i_begin_col <span class="L0S55">= </span><span class="L0S33">'1'</span><br />
i_begin_row <span class="L0S55">= </span><span class="L0S33">'2'</span><br />
i_end_col <span class="L0S55">= </span><span class="L0S33">'200'</span><br />
i_end_row <span class="L0S55">= </span><span class="L0S33">'9999'</span><br />
<span class="L0S52">TABLES</span><br />
intern <span class="L0S55">= </span>lt_itab<br />
<span class="L0S52">EXCEPTIONS</span><br />
inconsistent_parameters <span class="L0S55">= </span><span class="L0S32">1</span><br />
upload_ole <span class="L0S55">= </span><span class="L0S32">2</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">ID </span>sy<span class="L0S70">-</span>msgid <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>msgty <span class="L0S52">NUMBER </span>sy<span class="L0S70">-</span>msgno<br />
<span class="L0S52">WITH </span>sy<span class="L0S70">-</span>msgv1 sy<span class="L0S70">-</span>msgv2 sy<span class="L0S70">-</span>msgv3 sy<span class="L0S70">-</span>msgv4<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S31">* Sort table by rows and colums</span><br />
<span class="L0S52">SORT </span>lt_itab <span class="L0S52">BY </span>row col <span class="L0S52">ASCENDING</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span><span class="L0S52">NOT </span>lt_itab <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S31">* Populate it_data_read with the data read from excel file</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>lt_itab <span class="L0S52">INTO </span>lk_itab<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span>lk_itab<span class="L0S70">-</span>col <span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span>lk_excel<br />
<span class="L0S52">TO </span><itab_xls><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">NE </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">EXIT</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<itab_xls> <span class="L0S55">= </span>lk_itab<span class="L0S70">-</span><span class="L0S52">value</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">END </span><span class="L0S52">OF </span>row<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>lk_excel <span class="L0S52">TO </span>gt_excel<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR</span><span class="L0S55">: </span>lk_itab<span class="L0S55">, </span>lk_excel<span class="L0S55">.</span><br />
<span class="L0S52">ENDAT</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-49388856162479074452019-04-03T23:57:00.000-07:002019-04-04T00:07:06.886-07:00Populte filepath on selection screen<div dir="ltr" style="text-align: left;" trbidi="on">
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S52">DATA</span><span class="L0S55">: </span>lt_filetab <span class="L0S52">TYPE </span>filetable<span class="L0S55">,</span><br />
lk_filetab <span class="L0S52">TYPE </span>file_table<span class="L0S55">,</span><br />
lc_title <span class="L0S52">TYPE </span>string<span class="L0S55">,</span><br />
lk_rc <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">.</span><br />
<br />
lc_title <span class="L0S55">= </span><span class="L0S33">'Select local file'</span><span class="L0S55">(</span><span class="L0S32">004</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>cl_gui_frontend_services<span class="L0S70">=></span>file_open_dialog<br />
<span class="L0S52">EXPORTING</span><br />
window_title <span class="L0S55">= </span>lc_title<br />
file_filter <span class="L0S55">= </span><span class="L0S33">',*.*,*.*.'</span><br />
initial_directory <span class="L0S55">= </span><span class="L0S33">': '</span><br />
<span class="L0S52">CHANGING</span><br />
file_table <span class="L0S55">= </span>lt_filetab<br />
rc <span class="L0S55">= </span>lk_rc<br />
<span class="L0S52">EXCEPTIONS</span><br />
file_open_dialog_failed <span class="L0S55">= </span><span class="L0S32">1</span><br />
cntl_error <span class="L0S55">= </span><span class="L0S32">2</span><br />
error_no_gui <span class="L0S55">= </span><span class="L0S32">3</span><br />
not_supported_by_gui <span class="L0S55">= </span><span class="L0S32">4</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">5</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">ID </span>sy<span class="L0S70">-</span>msgid <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>msgty <span class="L0S52">NUMBER </span>sy<span class="L0S70">-</span>msgno<br />
<span class="L0S52">WITH </span>sy<span class="L0S70">-</span>msgv1 sy<span class="L0S70">-</span>msgv2 sy<span class="L0S70">-</span>msgv3 sy<span class="L0S70">-</span>msgv4<span class="L0S55">.</span><br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>lt_filetab <span class="L0S52">INTO </span>lk_filetab <span class="L0S52">INDEX </span><span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">EQ </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
p_filepath <span class="L0S55">= </span>lk_filetab<span class="L0S70">-</span>filename<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-25307537482419741712019-04-03T23:56:00.000-07:002019-04-03T23:56:03.689-07:00Refresh ALV Grid on user action<div dir="ltr" style="text-align: left;" trbidi="on">
<span class="L0S31"><br /></span>
<span class="L0S31"><br /></span>
<span class="L0S31"><style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
</style>
<span class="L0S52">DATA </span>ref_grid <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_gui_alv_grid<span class="L0S55">.</span>
</span><br />
<span class="L0S31"><span class="L0S55"><br /></span></span>
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">* to reflect the data changed into internal table</span><br />
<span class="L0S52">IF </span>ref_grid <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'GET_GLOBALS_FROM_SLVC_FULLSCR'</span><br />
<span class="L0S52">IMPORTING</span><br />
e_grid <span class="L0S55">= </span>ref_grid<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span><span class="L0S52">NOT </span>ref_grid <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>ref_grid<span class="L0S70">-></span>refresh_table_display<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span>
<br />
<span class="L0S55"><br /></span>
<span class="L0S55">******************************************************</span><br />
<span class="L0S55">Option -2.</span><br />
<span class="L0S55"><br /></span>
<span class="L0S55"><style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">* to reflect the data changed into internal table</span><br />
<span class="L0S52">IF </span>ref_grid <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'GET_GLOBALS_FROM_SLVC_FULLSCR'</span><br />
<span class="L0S52">IMPORTING</span><br />
e_grid <span class="L0S55">= </span>ref_grid<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span><span class="L0S52">NOT </span>ref_grid <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>ref_grid<span class="L0S70">-></span>check_changed_data<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S31">* refresh the ALV Grid output from internal table</span><br />
l_selfield<span class="L0S70">-</span><span class="L0S52">refresh </span><span class="L0S55">= </span>gc_x<span class="L0S55">.</span>
</span></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com1tag:blogger.com,1999:blog-170215368234709761.post-39133034095528490292018-02-20T22:10:00.002-08:002018-02-20T22:10:49.241-08:00Add Button on application toolbar<div dir="ltr" style="text-align: left;" trbidi="on">
Hi<br />
<br />
CLASS lcl_event_toolbar DEFINITION.<br />
PUBLIC SECTION.<br />
<br />
CLASS-METHODS:<br />
handle_toolbar FOR EVENT toolbar OF cl_gui_alv_grid<br />
IMPORTING<br />
e_object e_interactive,<br />
handle_user_command FOR EVENT user_command OF cl_gui_alv_grid<br />
IMPORTING e_ucomm.<br />
<br />
ENDCLASS. "lcl_event_toolbar DEFINITION<br />
<br />
<br />
CLASS lcl_event_toolbar IMPLEMENTATION.<br />
<br />
METHOD handle_toolbar.<br />
DATA:<br />
lw_toolbar TYPE stb_button.<br />
CLEAR lw_toolbar.<br />
lw_toolbar-function = 'DETAIL'.<br />
lw_toolbar-icon = 'ICON_DETAIL'.<br />
lw_toolbar-butn_type = '0'.<br />
lw_toolbar-text = 'Display < 30 seats'.<br />
APPEND lw_toolbar TO e_object->mt_toolbar.<br />
ENDMETHOD. "handle_toolbar<br />
<br />
METHOD handle_user_command.<br />
CASE e_ucomm.<br />
<br />
WHEN 'DETAIL'.<br />
CALL SCREEN 101.<br />
ENDCASE.<br />
ENDMETHOD. "handle_user_command<br />
ENDCLASS. "lcl_event_toolbar IMPLEMENTATION<br />
<br />
The above code will display the button titled 'Display < 30 seats' and also handle when user<br />
clicks it.</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-67535942477810050222015-08-07T03:20:00.003-07:002016-06-13T23:34:55.209-07:00Dynamic Internal table sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<!--StartFragment -->
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">*& DESCRIPTION :This program will display the meaning of a term in different</span><br />
<span class="L0S31">*& languages in which it is maintained in custtable The program</span><br />
<span class="L0S31">*& will create Dynamic Internal table based on user Input on Selection screen.</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">REPORT </span>yj_test_dynamic_int_tab1<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_static_st<span class="L0S55">,</span><br />
termid <span class="L0S52">TYPE </span>yplm_termid<span class="L0S55">,</span><br />
term <span class="L0S52">TYPE </span>yplm_term<span class="L0S55">,</span><br />
spras <span class="L0S52">TYPE </span>spras<span class="L0S55">,</span><br />
fterm <span class="L0S52">TYPE </span>yplm_fterm<span class="L0S55">,</span><br />
sterm <span class="L0S52">TYPE </span>yplm_sterm<span class="L0S55">,</span><br />
meaning <span class="L0S52">TYPE </span>yplm_vocab_meaning<span class="L0S55">,</span><br />
fused <span class="L0S52">TYPE </span>yplm_term_fstused<span class="L0S55">,</span><br />
status <span class="L0S52">TYPE </span>mstae<span class="L0S55">.</span><br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">END </span><span class="L0S52">OF </span>ty_static_st<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_f4_st<span class="L0S55">,</span><br />
termid <span class="L0S52">TYPE </span>yplm_termid<span class="L0S55">,</span><br />
term <span class="L0S52">TYPE </span>yplm_term<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>ty_f4_st<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gt_static <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_static_st<span class="L0S55">,</span><br />
gt_static_tt <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_static_st<span class="L0S55">,</span><br />
gt_f4_help <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_f4_st<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>gv_termid <span class="L0S52">TYPE </span>yplm_termid<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>gv_pos <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Dynamic Table Declarations</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gt_dyn_table <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
gs_line <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
gs_line1 <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
gs_dyn_fcat <span class="L0S52">TYPE </span>lvc_s_fcat<span class="L0S55">,</span><br />
gt_dyn_fcat <span class="L0S52">TYPE </span>lvc_t_fcat<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Field Symbols Declarations</span><br />
<span class="L0S52">FIELD-SYMBOLS</span><span class="L0S55">: </span><gs_line><span class="L0S55">, </span><gs_line1><span class="L0S55">,</span><br />
<gs_dyn_table> <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE</span><span class="L0S55">,</span><br />
<gs><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*----------------------------------------------------------------------------</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b01 <span class="L0S52">WITH </span><span class="L0S52">FRAME </span><span class="L0S52">TITLE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">001</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECT-OPTIONS </span>s_termid <span class="L0S52">FOR </span>gv_termid<span class="L0S55">.</span><br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S55">:</span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b01<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*----------------------------------------------------------------------------</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>s_termid <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">002 </span><span class="L0S52">TYPE </span><span class="L0S33">'E'</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">ON </span><span class="L0S52">VALUE-REQUEST </span><span class="L0S52">FOR </span>s_termid<span class="L0S70">-</span>low<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT </span>termid term <span class="L0S52">FROM </span>yplm_vocab_trans<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_f4_help<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'F4IF_INT_TABLE_VALUE_REQUEST'</span><br />
<span class="L0S52">EXPORTING</span><br />
retfield <span class="L0S55">= </span><span class="L0S33">'TERMID'</span><br />
dynpprog <span class="L0S55">= </span><span class="L0S33">'YJ_TEST_DYNAMIC_INT_TAB1'</span><br />
dynpnr <span class="L0S55">= </span><span class="L0S33">'1000'</span><br />
dynprofield <span class="L0S55">= </span><span class="L0S33">'S_TERMID-LOW'</span><br />
value_org <span class="L0S55">= </span><span class="L0S33">'S'</span><br />
<span class="L0S52">TABLES</span><br />
value_tab <span class="L0S55">= </span>gt_f4_help<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">ON </span><span class="L0S52">VALUE-REQUEST </span><span class="L0S52">FOR </span>s_termid<span class="L0S70">-</span>high<span class="L0S55">.</span><br />
<br />
<span class="L0S52">REFRESH </span>gt_f4_help<span class="L0S55">.</span><br />
<span class="L0S52">SELECT </span>termid term <span class="L0S52">FROM </span>yplm_vocab_trans<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_f4_help<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'F4IF_INT_TABLE_VALUE_REQUEST'</span><br />
<span class="L0S52">EXPORTING</span><br />
retfield <span class="L0S55">= </span><span class="L0S33">'TERMID'</span><br />
dynpprog <span class="L0S55">= </span><span class="L0S33">'YJ_TEST_DYNAMIC_INT_TAB1'</span><br />
dynpnr <span class="L0S55">= </span><span class="L0S33">'1000'</span><br />
dynprofield <span class="L0S55">= </span><span class="L0S33">'S_TERMID-HIGH'</span><br />
value_org <span class="L0S55">= </span><span class="L0S33">'S'</span><br />
<span class="L0S52">TABLES</span><br />
value_tab <span class="L0S55">= </span>gt_f4_help<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">START-OF-SELECTION</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Populating the static input table.</span><br />
<span class="L0S52">SELECT </span>termid term spras fterm sterm meaning fused status<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_static<br />
<span class="L0S52">FROM </span>yplm_vocab_trans<br />
<span class="L0S52">WHERE </span>termid <span class="L0S52">IN </span>s_termid<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S31">*Creating a dynamic structure and dynamic table</span><br />
<span class="L0S52">PERFORM </span>create_structure <span class="L0S52">USING </span>gt_static<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S31">*Populating Dynamic Internal table</span><br />
<span class="L0S52">PERFORM </span>populate_dyn_table <span class="L0S52">USING </span>gt_static<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">END-OF-SELECTION</span><span class="L0S55">.</span><br />
<span class="L0S31">*Display Dynamic ALV O/P</span><br />
<span class="L0S52">PERFORM </span>display_alv <span class="L0S52">USING </span>gt_static<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form create_structure</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->Pt_static text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">FORM </span>create_structure <span class="L0S52">USING </span>pt_static <span class="L0S52">LIKE </span>gt_static_tt<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lv_fieldname<span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">)</span><span class="L0S55">,</span><br />
lv_coltext<span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">)</span><span class="L0S55">,</span><br />
lv_outputlen <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">,</span><br />
lv_key <span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>ls_static <span class="L0S52">TYPE </span>ty_static_st<span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span><span class="L0S33">'TERMID' </span><span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">12</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span><span class="L0S33">'TERMID'</span><span class="L0S55">. </span>lv_key <span class="L0S55">= </span>abap_true<span class="L0S55">. </span><span class="L0S31">" Creating termid column</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key<span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span><span class="L0S33">'TERM' </span><span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">12</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span><span class="L0S33">'TERM'</span><span class="L0S55">. </span>lv_key <span class="L0S55">= </span>abap_true<span class="L0S55">. </span><span class="L0S31">" Creating column term</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Loop through the internal table creating a column for every distinct language in the internal table</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>pt_static <span class="L0S52">INTO </span>ls_static <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">:</span>lv_fieldname1<span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">,</span><br />
fname1 <span class="L0S52">TYPE </span>string<span class="L0S55">,</span><br />
fname <span class="L0S52">TYPE </span>string<span class="L0S55">.</span><br />
<br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>gt_dyn_fcat <span class="L0S52">INTO </span>gs_dyn_fcat <span class="L0S52">WITH </span><span class="L0S52">KEY </span>fieldname <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>spras<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">NE </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT </span><span class="L0S52">SINGLE </span>sptxt <span class="L0S52">FROM </span>t002t <span class="L0S52">INTO </span>fname1 <span class="L0S52">WHERE </span>spras <span class="L0S55">= </span><span class="L0S33">'E'</span><br />
<span class="L0S52">AND </span>sprsl <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>spras<span class="L0S55">.</span><br />
<br />
gv_pos <span class="L0S55">= </span>gv_pos + <span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>fname1 <span class="L0S33">'FullDesc' </span><span class="L0S52">INTO </span>fname <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>spras <span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">10</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span>fname<span class="L0S55">. </span>lv_key <span class="L0S55">= </span>space<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key <span class="L0S55">.</span><br />
<br />
<span class="L0S52">CONCATENATE </span>ls_static<span class="L0S70">-</span>spras <span class="L0S33">'S' </span><span class="L0S52">INTO </span>lv_fieldname1<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Adding Small desc Column for every language</span><br />
gv_pos <span class="L0S55">= </span>gv_pos + <span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>fname1 <span class="L0S33">'SmallDesc' </span><span class="L0S52">INTO </span>fname <span class="L0S52">SEPARATED </span><span class="L0S52">BY </span>space<span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span>lv_fieldname1 <span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">10</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span>fname<span class="L0S55">. </span>lv_key <span class="L0S55">= </span>space<span class="L0S55">.</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>gs_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span><span class="L0S33">'MEANING' </span><span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">14</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span><span class="L0S33">'Term Meaning'</span><span class="L0S55">. </span>lv_key <span class="L0S55">= </span>space<span class="L0S55">. </span><span class="L0S31">" Create column Meaning</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key<span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span><span class="L0S33">'FUSED' </span><span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">14</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span><span class="L0S33">'Term First Used'</span><span class="L0S55">. </span>lv_key <span class="L0S55">= </span>space<span class="L0S55">. </span><span class="L0S31">" Create column Fused</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key<span class="L0S55">.</span><br />
<br />
lv_fieldname <span class="L0S55">= </span><span class="L0S33">'STATUS' </span><span class="L0S55">. </span>lv_outputlen <span class="L0S55">= </span><span class="L0S32">14</span><span class="L0S55">. </span>lv_coltext <span class="L0S55">= </span><span class="L0S33">'Status'</span><span class="L0S55">. </span>lv_key <span class="L0S55">= </span>space<span class="L0S55">. </span><span class="L0S31">" Create column status</span><br />
<span class="L0S52">PERFORM </span>create_column <span class="L0S52">USING </span>lv_fieldname<br />
lv_outputlen<br />
lv_coltext<br />
lv_key<span class="L0S55">.</span><br />
<br />
<span class="L0S31">** Create a dynamic internal table with this structure.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>cl_alv_table_create<span class="L0S70">=></span>create_dynamic_table<br />
<span class="L0S52">EXPORTING</span><br />
i_style_table <span class="L0S55">= </span><span class="L0S33">'X'</span><br />
it_fieldcatalog <span class="L0S55">= </span>gt_dyn_fcat<br />
<span class="L0S52">IMPORTING</span><br />
ep_table <span class="L0S55">= </span>gt_dyn_table<br />
<span class="L0S52">EXCEPTIONS</span><br />
generate_subpool_dir_full <span class="L0S55">= </span><span class="L0S32">1</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">EQ </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Assign the new table to field symbol</span><br />
<span class="L0S52">ASSIGN </span>gt_dyn_table<span class="L0S70">-></span>* <span class="L0S52">TO </span><gs_dyn_table><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Create dynamic work area for the dynamic table</span><br />
<span class="L0S52">CREATE </span><span class="L0S52">DATA </span>gs_line <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span><gs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">CREATE </span><span class="L0S52">DATA </span>gs_line1 <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span><gs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span>gs_line<span class="L0S70">-></span>* <span class="L0S52">TO </span><gs_line><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span>gs_line1<span class="L0S70">-></span>* <span class="L0S52">TO </span><gs_line1><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">.</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form POPULATE_DYN_TABLE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->pt_static text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>populate_dyn_table <span class="L0S52">USING </span>pt_static <span class="L0S52">LIKE </span>gt_static_tt<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">:</span>ls_static <span class="L0S52">TYPE </span>ty_static_st<span class="L0S55">,</span><br />
ls_static1 <span class="L0S52">TYPE </span>ty_static_st<span class="L0S55">,</span><br />
ls_line <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
ls_line1 <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Populate the dynamic table</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>pt_static <span class="L0S52">INTO </span>ls_static<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Avoid duplicate entries for key field TERM.</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span><gs_dyn_table> <span class="L0S52">INTO </span><gs_line1> <span class="L0S52">WITH </span><span class="L0S52">KEY </span><span class="L0S55">(</span><span class="L0S33">'TERM'</span><span class="L0S55">) </span><span class="L0S55">= </span>ls_static<span class="L0S70">-</span>term<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">CONTINUE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Assing values to the components other than Full Desc and Short Desc</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span><span class="L0S33">'TERM' </span><span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>term<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span><span class="L0S33">'TERMID' </span><span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>termid<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span><span class="L0S33">'MEANING' </span><span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>meaning<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span><span class="L0S33">'FUSED' </span><span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>fused<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span><span class="L0S33">'STATUS' </span><span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>status<span class="L0S55">.</span><br />
<br />
UNASSIGN <gs><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Loop on fcat to assign values to fterm and sterm</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_dyn_fcat <span class="L0S52">INTO </span>gs_dyn_fcat<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lv_fieldname1<span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>gs_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S55">= </span><span class="L0S33">'TERM'</span><span class="L0S55">.</span><br />
<span class="L0S52">CONTINUE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>pt_static <span class="L0S52">INTO </span>ls_static1 <span class="L0S52">WITH </span><span class="L0S52">KEY </span>term <span class="L0S55">= </span>ls_static<span class="L0S70">-</span>term<br />
spras <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span>gs_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static1<span class="L0S70">-</span>fterm<span class="L0S55">.</span><br />
<span class="L0S31">* UNASSIGN <gs>.</span><br />
<br />
<span class="L0S52">CONCATENATE </span>gs_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S33">'S' </span><span class="L0S52">INTO </span>lv_fieldname1<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span>lv_fieldname1 <span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gs_line> <span class="L0S52">TO </span><gs><span class="L0S55">.</span><br />
<gs> <span class="L0S55">= </span>ls_static1<span class="L0S70">-</span>sterm<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
UNASSIGN <gs><span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span><span class="L0S55">: </span>ls_static1<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Appending the value to the dynamic Internal table</span><br />
<span class="L0S52">APPEND </span><gs_line> <span class="L0S52">TO </span><gs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">CLEAR</span><span class="L0S55">: </span><gs_line><span class="L0S55">.</span><br />
<span class="L0S52">CLEAR</span><span class="L0S55">: </span>ls_static<span class="L0S55">, </span>ls_static1<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" POPULATE_DYN_TABLE</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form DISPLAY_ALV</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->pt_static text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>display_alv <span class="L0S52">USING </span>pt_static<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>ls_alv_fieldcat <span class="L0S52">TYPE </span>slis_fieldcat_alv<span class="L0S55">,</span><br />
lt_alv_fieldcat <span class="L0S52">TYPE </span>slis_t_fieldcat_alv<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span>lv_pos <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_dyn_fcat <span class="L0S52">INTO </span>gs_dyn_fcat<span class="L0S55">.</span><br />
lv_pos <span class="L0S55">= </span>lv_pos + <span class="L0S32">1</span><span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>fieldname <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>fieldname<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>tabname <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>tabname<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>coltext<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>outputlen <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>outputlen<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>col_pos <span class="L0S55">= </span>lv_pos<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>do_sum <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>do_sum<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>emphasize <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>emphasize<span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span><span class="L0S52">key </span><span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span><span class="L0S52">key</span><span class="L0S55">.</span><br />
ls_alv_fieldcat<span class="L0S70">-</span>no_out <span class="L0S55">= </span>gs_dyn_fcat<span class="L0S70">-</span>no_out<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>ls_alv_fieldcat <span class="L0S52">TO </span>lt_alv_fieldcat<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_GRID_DISPLAY'</span><br />
<span class="L0S52">EXPORTING</span><br />
i_callback_program <span class="L0S55">= </span>sy<span class="L0S70">-</span>repid<br />
it_fieldcat <span class="L0S55">= </span>lt_alv_fieldcat<br />
i_default <span class="L0S55">= </span><span class="L0S33">'X'</span><br />
i_save <span class="L0S55">= </span><span class="L0S33">'A'</span><br />
<span class="L0S52">TABLES</span><br />
t_outtab <span class="L0S55">= </span><gs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" DISPLAY_ALV</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form CREATE_COLUMN</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* -->PV_FIELDNAME text</span><br />
<span class="L0S31">* -->PV_OUTPUTLEN text</span><br />
<span class="L0S31">* -->PV_COLTEXT text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>create_column <span class="L0S52">USING </span>pv_fieldname <span class="L0S52">TYPE </span><span class="L0S52">c</span><br />
pv_outputlen <span class="L0S52">TYPE </span><span class="L0S52">i</span><br />
pv_coltext <span class="L0S52">TYPE </span><span class="L0S52">c</span><br />
pv_key <span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">** This would create structure Text Lang Full-desc Short-desc etc ....</span><br />
gv_pos <span class="L0S55">= </span>gv_pos + <span class="L0S32">1</span><span class="L0S55">.</span><br />
gs_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S55">= </span>pv_fieldname<span class="L0S55">. </span><span class="L0S31">"Term id column</span><br />
gs_dyn_fcat<span class="L0S70">-</span>outputlen <span class="L0S55">= </span>pv_outputlen<span class="L0S55">.</span><br />
gs_dyn_fcat<span class="L0S70">-</span>tabname <span class="L0S55">= </span><span class="L0S33">'IT_DYNAMIC'</span><span class="L0S55">.</span><br />
gs_dyn_fcat<span class="L0S70">-</span>coltext <span class="L0S55">= </span>pv_coltext<span class="L0S55">.</span><br />
gs_dyn_fcat<span class="L0S70">-</span>col_pos <span class="L0S55">= </span>gv_pos<span class="L0S55">.</span><br />
gs_dyn_fcat<span class="L0S70">-</span><span class="L0S52">key </span><span class="L0S55">= </span>pv_key<span class="L0S55">.</span><br />
gs_dyn_fcat<span class="L0S70">-</span>key_sel <span class="L0S55">= </span>pv_key<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gs_dyn_fcat <span class="L0S52">TO </span>gt_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">CLEAR </span>gs_dyn_fcat<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" CREATE_COLUMN</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com2tag:blogger.com,1999:blog-170215368234709761.post-17676533652011555322015-08-07T03:19:00.003-07:002016-06-13T23:34:33.332-07:00Dynamic Internal table SAP ABAP<div dir="ltr" style="text-align: left;" trbidi="on">
<!--StartFragment -->
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Report YJ_TEST_DYNAIC_INT_TAB</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">REPORT </span>YJ_TEST_DYNAIC_INT_TAB<span class="L0S55">.</span><br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>gfirst_typ<span class="L0S55">,</span><br />
vend<span class="L0S55">(</span><span class="L0S32">6</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">,</span><br />
month<span class="L0S55">(</span><span class="L0S32">5</span><span class="L0S55">) </span><span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">,</span><br />
amt <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">.</span><br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">END </span><span class="L0S52">OF </span>gfirst_typ<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>it_zdemo <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>gfirst_typ<span class="L0S55">.</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>wa_zdemo <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span>it_zdemo<span class="L0S55">,</span><br />
wa_zdemo1 <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span>it_zdemo<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gv_pos <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">.</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>fname <span class="L0S52">TYPE </span>string<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Dynamic Table Declarations</span><br />
<br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gt_dyn_table <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
gw_line <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
gw_line1 <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span><span class="L0S52">data</span><span class="L0S55">,</span><br />
gw_dyn_fcat <span class="L0S52">TYPE </span>lvc_s_fcat<span class="L0S55">,</span><br />
gt_dyn_fcat <span class="L0S52">TYPE </span>lvc_t_fcat<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Field Symbols Declarations</span><br />
<br />
<br />
<br />
<span class="L0S52">FIELD-SYMBOLS</span><span class="L0S55">: </span><gfs_line><span class="L0S55">,</span><gfs_line1><span class="L0S55">,</span><br />
<gfs_dyn_table> <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE</span><span class="L0S55">,</span><br />
<fs1><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Populate the initial input table. Usually this input table contents will be populated at run time, which raises the requirement of dynamic table. The table contents are filled here for illustration purpose.</span><br />
<br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V100'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'JAN'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">100</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V100'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'FEB'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">200</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V200'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'FEB'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">200</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V300'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'FEB'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">150</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V200'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'MAR'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">250</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V300'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'MAR'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">300</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V100'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'APR'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">200</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
<br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V100'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'MAY'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">100</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V200'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'MAY'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">50</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V300'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'MAY'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">125</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
wa_zdemo<span class="L0S70">-</span>vend <span class="L0S55">= </span><span class="L0S33">'V400'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>month <span class="L0S55">= </span><span class="L0S33">'MAY'</span><span class="L0S55">.</span><br />
wa_zdemo<span class="L0S70">-</span>amt <span class="L0S55">= </span><span class="L0S32">475</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>wa_zdemo <span class="L0S52">TO </span>it_zdemo<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">Write </span><span class="L0S55">: </span>/ <span class="L0S33">'Initial Internal Table'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">WRITE </span><span class="L0S55">:</span>/<span class="L0S55">.</span><br />
<span class="L0S52">write </span><span class="L0S55">:</span>/<span class="L0S55">(</span><span class="L0S32">6</span><span class="L0S55">) </span><span class="L0S33">'Vendor'</span><span class="L0S55">.</span><br />
<span class="L0S52">write </span><span class="L0S55">: </span><span class="L0S55">(</span><span class="L0S32">12</span><span class="L0S55">) </span><span class="L0S33">'Month' </span><span class="L0S55">.</span><br />
<span class="L0S52">write </span><span class="L0S55">: </span><span class="L0S55">(</span><span class="L0S32">3</span><span class="L0S55">) </span><span class="L0S33">'Amt' </span><span class="L0S55">.</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>it_zdemo <span class="L0S52">INTO </span>wa_zdemo<span class="L0S55">.</span><br />
<span class="L0S52">WRITE </span><span class="L0S55">:</span>/ wa_zdemo<span class="L0S70">-</span>vend<span class="L0S55">, </span>wa_zdemo<span class="L0S70">-</span>month<span class="L0S55">, </span>wa_zdemo<span class="L0S70">-</span>amt<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S31">** This would create structure Vendor Jan13 Feb13 Mar13 etc ....</span><br />
<br />
<br />
gv_pos <span class="L0S55">= </span>gv_pos + <span class="L0S32">1</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S55">= </span><span class="L0S33">'VEND'</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S32">5</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>tabname <span class="L0S55">= </span><span class="L0S33">'IT_DEMO'</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>coltext <span class="L0S55">= </span><span class="L0S33">'VENDOR'</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>col_pos <span class="L0S55">= </span>gv_pos<span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span><span class="L0S52">key </span><span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>key_sel <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gw_dyn_fcat <span class="L0S52">TO </span>gt_dyn_fcat<span class="L0S55">.</span><br />
<br />
<span class="L0S52">clear </span>gw_dyn_fcat<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S31">* Loop through the internal table creating a column for every distinct month in the internal table</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>it_zdemo <span class="L0S52">INTO </span>wa_zdemo<span class="L0S55">.</span><br />
gv_pos <span class="L0S55">= </span>gv_pos + <span class="L0S32">1</span><span class="L0S55">.</span><br />
<span class="L0S52">CONCATENATE </span>wa_zdemo<span class="L0S70">-</span>month <span class="L0S33">'13' </span><span class="L0S52">INTO </span>fname<span class="L0S55">.</span><br />
<span class="L0S52">read </span><span class="L0S52">table </span>gt_dyn_fcat <span class="L0S52">into </span>gw_dyn_fcat <span class="L0S52">with </span><span class="L0S52">key </span>fieldname <span class="L0S55">= </span>wa_zdemo<span class="L0S70">-</span>month<span class="L0S55">.</span><br />
<span class="L0S52">if </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">NE </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S55">= </span>wa_zdemo<span class="L0S70">-</span>month<span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>tabname <span class="L0S55">= </span><span class="L0S33">'IT_DEMO'</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>coltext <span class="L0S55">= </span>fname<span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S32">10</span><span class="L0S55">.</span><br />
gw_dyn_fcat<span class="L0S70">-</span>col_pos <span class="L0S55">= </span>gv_pos<span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span>gw_dyn_fcat <span class="L0S52">TO </span>gt_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">endif</span><span class="L0S55">.</span><br />
<span class="L0S52">clear </span>gw_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<br />
<span class="L0S31">** Create a dynamic internal table with this structure.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>cl_alv_table_create<span class="L0S70">=></span>create_dynamic_table<br />
<span class="L0S52">EXPORTING</span><br />
i_style_table <span class="L0S55">= </span><span class="L0S33">'X'</span><br />
it_fieldcatalog <span class="L0S55">= </span>gt_dyn_fcat<br />
<span class="L0S52">IMPORTING</span><br />
ep_table <span class="L0S55">= </span>gt_dyn_table<br />
<span class="L0S52">EXCEPTIONS</span><br />
generate_subpool_dir_full <span class="L0S55">= </span><span class="L0S32">1</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">EQ </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S31">* Assign the new table to field symbol</span><br />
<span class="L0S52">ASSIGN </span>gt_dyn_table<span class="L0S70">-></span>* <span class="L0S52">TO </span><gfs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S31">* Create dynamic work area for the dynamic table</span><br />
<span class="L0S52">CREATE </span><span class="L0S52">DATA </span>gw_line <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span><gfs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">CREATE </span><span class="L0S52">DATA </span>gw_line1 <span class="L0S52">LIKE </span><span class="L0S52">LINE </span><span class="L0S52">OF </span><gfs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span>gw_line<span class="L0S70">-></span>* <span class="L0S52">TO </span><gfs_line><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span>gw_line1<span class="L0S70">-></span>* <span class="L0S52">TO </span><gfs_line1><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<br />
<span class="L0S31">* Populate the dynamic table</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>it_zdemo <span class="L0S52">INTO </span>wa_zdemo<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S31">* Avoid duplicate entries for key field PART.</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span><gfs_dyn_table> <span class="L0S52">INTO </span><gfs_line1> <span class="L0S52">WITH </span><span class="L0S52">KEY </span><span class="L0S55">(</span><span class="L0S33">'VEND'</span><span class="L0S55">) </span><span class="L0S55">= </span>wa_zdemo<span class="L0S70">-</span>vend<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">CONTINUE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span><span class="L0S33">'VEND' </span><span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gfs_line> <span class="L0S52">TO </span><fs1><span class="L0S55">.</span><br />
<fs1> <span class="L0S55">= </span>wa_zdemo<span class="L0S70">-</span>vend<span class="L0S55">.</span><br />
UNASSIGN <fs1><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_dyn_fcat <span class="L0S52">INTO </span>gw_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>gw_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S55">= </span><span class="L0S33">'VEND'</span><span class="L0S55">.</span><br />
<span class="L0S52">CONTINUE</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>it_zdemo <span class="L0S52">WITH </span><span class="L0S52">KEY </span>vend <span class="L0S55">= </span>wa_zdemo<span class="L0S70">-</span>vend month <span class="L0S55">= </span>gw_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S52">INTO </span>wa_zdemo1<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span>gw_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gfs_line> <span class="L0S52">TO </span><fs1><span class="L0S55">.</span><br />
<fs1> <span class="L0S55">= </span>wa_zdemo1<span class="L0S70">-</span>amt<span class="L0S55">.</span><br />
UNASSIGN <fs1><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">clear </span><span class="L0S55">: </span>wa_zdemo1<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">APPEND </span><gfs_line> <span class="L0S52">TO </span><gfs_dyn_table><span class="L0S55">.</span><br />
<span class="L0S52">CLEAR</span><span class="L0S55">: </span><gfs_line><span class="L0S55">.</span><br />
<span class="L0S52">clear</span><span class="L0S55">: </span>wa_zdemo<span class="L0S55">, </span>wa_zdemo1<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">WRITE </span><span class="L0S55">:</span>/<span class="L0S55">.</span><br />
<br />
<span class="L0S52">Write </span><span class="L0S55">: </span>/ <span class="L0S33">'Dynamic Internal Table'</span><span class="L0S55">.</span><br />
<span class="L0S52">WRITE </span><span class="L0S55">:</span>/<span class="L0S55">.</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_dyn_fcat <span class="L0S52">INTO </span>gw_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">WRITE </span><span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">) </span><span class="L0S55">: </span>gw_dyn_fcat<span class="L0S70">-</span>coltext<span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">WRITE </span><span class="L0S55">:</span>/<span class="L0S55">.</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span><gfs_dyn_table> <span class="L0S52">INTO </span><gfs_line><span class="L0S55">.</span><br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_dyn_fcat <span class="L0S52">INTO </span>gw_dyn_fcat<span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S52">COMPONENT </span>gw_dyn_fcat<span class="L0S70">-</span>fieldname <span class="L0S52">OF </span><span class="L0S52">STRUCTURE </span><gfs_line> <span class="L0S52">TO </span><fs1><span class="L0S55">.</span><br />
<span class="L0S52">WRITE </span><span class="L0S55">: </span><fs1><span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">WRITE </span><span class="L0S55">:</span>/ <span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-31685953790365055242015-08-07T03:16:00.002-07:002016-06-13T23:35:43.359-07:00Userexit determining program sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<!--StartFragment -->
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Report YJUSEREXIT</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">REPORT </span>YJUSEREXIT<span class="L0S55">.</span><br />
<span class="L0S31">*report z_find_user_exit no standard page heading.</span><br />
<br />
<br />
<br />
<span class="L0S52">tables</span><span class="L0S55">: </span>tstc<span class="L0S55">, </span>tadir<span class="L0S55">, </span>modsapt<span class="L0S55">, </span>modact<span class="L0S55">,</span><br />
<br />
trdir<span class="L0S55">, </span>tfdir<span class="L0S55">, </span>enlfdir<span class="L0S55">, </span>tstct<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">data </span><span class="L0S55">: </span>jtab <span class="L0S52">like </span>tadir <span class="L0S52">occurs </span><span class="L0S32">0 </span><span class="L0S52">with </span><span class="L0S52">header </span><span class="L0S52">line</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">data </span><span class="L0S55">: </span><span class="L0S52">hotspot</span><span class="L0S55">(</span><span class="L0S32">30</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">parameters </span><span class="L0S55">: </span>p_tcode <span class="L0S52">like </span>tstc<span class="L0S70">-</span>tcode obligatory<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">at </span><span class="L0S52">line-selection</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">get </span><span class="L0S52">cursor </span><span class="L0S52">field </span><span class="L0S52">hotspot</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">check </span><span class="L0S52">hotspot</span><span class="L0S55">(</span><span class="L0S32">4</span><span class="L0S55">) </span><span class="L0S52">eq </span><span class="L0S33">'JTAB'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">set </span><span class="L0S52">parameter </span><span class="L0S52">id </span><span class="L0S33">'MON' </span><span class="L0S52">field </span>sy<span class="L0S70">-</span>lisel+1<span class="L0S55">(</span><span class="L0S32">10</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">call </span><span class="L0S52">transaction </span><span class="L0S33">'SMOD' </span><span class="L0S52">and </span><span class="L0S52">skip </span><span class="L0S52">first </span><span class="L0S52">screen</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">start-of-selection</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">perform </span>get_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">perform </span>write_list<span class="L0S55">.</span><br />
<br />
<br />
<br />
<br />
<br />
<span class="L0S31">*----</span><br />
<br />
<span class="L0S31">*--------------------------------------------------------------------------------</span><br />
<br />
<br />
<span class="L0S31">* FORM get_data *</span><br />
<br />
<br />
<span class="L0S31">*----</span><br />
<br />
<span class="L0S31">*--------------------------------------------------------------------------------</span><br />
<br />
<br />
<span class="L0S52">form </span>get_data<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>tstc<br />
<br />
<span class="L0S52">where </span>tcode <span class="L0S52">eq </span>p_tcode<span class="L0S55">.</span><br />
<br />
<span class="L0S52">check </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">eq </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>tadir<br />
<br />
<span class="L0S52">where </span>pgmid <span class="L0S55">= </span><span class="L0S33">'R3TR'</span><br />
<br />
<span class="L0S52">and </span>object <span class="L0S55">= </span><span class="L0S33">'PROG'</span><br />
<br />
<span class="L0S52">and </span>obj_name <span class="L0S55">= </span>tstc<span class="L0S70">-</span>pgmna<span class="L0S55">.</span><br />
<br />
<br />
<br />
<br />
<br />
<span class="L0S52">if </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">ne </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>trdir<br />
<br />
<span class="L0S52">where </span>name <span class="L0S55">= </span>tstc<span class="L0S70">-</span>pgmna<span class="L0S55">.</span><br />
<br />
<span class="L0S52">if </span>trdir<span class="L0S70">-</span>subc <span class="L0S52">eq </span><span class="L0S33">'F'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>tfdir<br />
<br />
<span class="L0S52">where </span>pname <span class="L0S55">= </span>tstc<span class="L0S70">-</span>pgmna<span class="L0S55">.</span><br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>enlfdir<br />
<br />
<span class="L0S52">where </span>funcname <span class="L0S55">= </span>tfdir<span class="L0S70">-</span>funcname<span class="L0S55">.</span><br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>tadir<br />
<br />
<span class="L0S52">where </span>pgmid <span class="L0S55">= </span><span class="L0S33">'R3TR'</span><br />
<br />
<span class="L0S52">and </span>object <span class="L0S55">= </span><span class="L0S33">'FUGR'</span><br />
<br />
<span class="L0S52">and </span>obj_name <span class="L0S52">eq </span>enlfdir<span class="L0S70">-</span>area<span class="L0S55">.</span><br />
<br />
<span class="L0S52">endif</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">endif</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">select </span>* <span class="L0S52">from </span>tadir <span class="L0S52">into </span><span class="L0S52">table </span>jtab<br />
<br />
<span class="L0S52">where </span>pgmid <span class="L0S55">= </span><span class="L0S33">'R3TR'</span><br />
<br />
<span class="L0S52">and </span>object <span class="L0S55">= </span><span class="L0S33">'SMOD'</span><br />
<br />
<span class="L0S52">and </span>devclass <span class="L0S55">= </span>tadir<span class="L0S70">-</span>devclass<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>tstct<br />
<br />
<span class="L0S52">where </span>sprsl <span class="L0S52">eq </span>sy<span class="L0S70">-</span>langu<br />
<br />
<span class="L0S52">and </span>tcode <span class="L0S52">eq </span>p_tcode<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">endform</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S31">*----</span><br />
<br />
<span class="L0S31">*--------------------------------------------------------------------------------</span><br />
<br />
<br />
<span class="L0S31">* FORM write_list *</span><br />
<br />
<br />
<span class="L0S31">*----</span><br />
<br />
<span class="L0S31">*--------------------------------------------------------------------------------</span><br />
<br />
<br />
<span class="L0S52">form </span>write_list<span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">format </span><span class="L0S52">color </span>col_positive <span class="L0S52">intensified </span>off<span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/<span class="L0S55">(</span><span class="L0S32">19</span><span class="L0S55">) </span><span class="L0S33">'Transaction Code - '</span><span class="L0S55">,</span><br />
<br />
<span class="L0S32">20</span><span class="L0S55">(</span><span class="L0S32">20</span><span class="L0S55">) </span>p_tcode<span class="L0S55">,</span><br />
<br />
<span class="L0S32">45</span><span class="L0S55">(</span><span class="L0S32">50</span><span class="L0S55">) </span>tstct<span class="L0S70">-</span>ttext<span class="L0S55">.</span><br />
<br />
<span class="L0S52">skip</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">if </span><span class="L0S52">not </span>jtab[] <span class="L0S52">is </span><span class="L0S52">initial</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/<span class="L0S55">(</span><span class="L0S32">95</span><span class="L0S55">) </span>sy<span class="L0S70">-</span><span class="L0S52">uline</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">format </span><span class="L0S52">color </span>col_heading <span class="L0S52">intensified </span><span class="L0S52">on</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/1 sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<br />
<span class="L0S32">2 </span><span class="L0S33">'Exit Name'</span><span class="L0S55">,</span><br />
<br />
<span class="L0S32">21 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<br />
<span class="L0S32">22 </span><span class="L0S33">'Description'</span><span class="L0S55">,</span><br />
<br />
<span class="L0S32">95 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/<span class="L0S55">(</span><span class="L0S32">95</span><span class="L0S55">) </span>sy<span class="L0S70">-</span><span class="L0S52">uline</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">loop </span><span class="L0S52">at </span>jtab<span class="L0S55">.</span><br />
<br />
<span class="L0S52">select </span><span class="L0S52">single </span>* <span class="L0S52">from </span>modsapt<br />
<br />
<span class="L0S52">where </span>sprsl <span class="L0S55">= </span>sy<span class="L0S70">-</span>langu <span class="L0S52">and</span><br />
<br />
name <span class="L0S55">= </span>jtab<span class="L0S70">-</span>obj_name<span class="L0S55">.</span><br />
<br />
<span class="L0S52">format </span><span class="L0S52">color </span><span class="L0S52">col_normal </span><span class="L0S52">intensified </span>off<span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/1 sy<span class="L0S70">-</span>vline<span class="L0S55">,</span><br />
<br />
<span class="L0S32">2 </span>jtab<span class="L0S70">-</span>obj_name <span class="L0S52">hotspot </span><span class="L0S52">on</span><span class="L0S55">,</span><br />
<br />
<span class="L0S32">21 </span>sy<span class="L0S70">-</span>vline <span class="L0S55">,</span><br />
<br />
<span class="L0S32">22 </span>modsapt<span class="L0S70">-</span>modtext<span class="L0S55">,</span><br />
<br />
<span class="L0S32">95 </span>sy<span class="L0S70">-</span>vline<span class="L0S55">.</span><br />
<br />
<span class="L0S52">endloop</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/<span class="L0S55">(</span><span class="L0S32">95</span><span class="L0S55">) </span>sy<span class="L0S70">-</span><span class="L0S52">uline</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">describe </span><span class="L0S52">table </span>jtab<span class="L0S55">.</span><br />
<br />
<span class="L0S52">skip</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">format </span><span class="L0S52">color </span>col_total <span class="L0S52">intensified </span><span class="L0S52">on</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/ <span class="L0S33">'No of Exits:' </span><span class="L0S55">, </span>sy<span class="L0S70">-</span>tfill<span class="L0S55">.</span><br />
<br />
<span class="L0S52">else</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">format </span><span class="L0S52">color </span><span class="L0S52">col_negative </span><span class="L0S52">intensified </span><span class="L0S52">on</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">write</span><span class="L0S55">:</span>/<span class="L0S55">(</span><span class="L0S32">95</span><span class="L0S55">) </span><span class="L0S33">'No User Exit exists'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">endif</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">endform</span><span class="L0S55">.</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-30586183226215565112015-03-01T23:05:00.002-08:002016-06-13T23:38:53.469-07:00Custom container alv sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
REPORT YJ_OOPS_ALV_CUSTOMER_CONTAINER.<br />
DATA : o_cust TYPE REF TO cl_gui_custom_container,<br />
o_alv TYPE REF TO cl_gui_alv_grid,<br />
it_mara TYPE TABLE OF mara,<br />
wa_mara TYPE mara,<br />
ok_code TYPE sy-ucomm.<br />
PARAMETERS : p_matnr like mara-matnr.<br />
START-OF-SELECTION.<br />
PERFORM data_fetch.<br />
CALL SCREEN 100.<br />
<br />
FORM data_fetch .<br />
SELECT * FROM mara INTO TABLE it_mara WHERE matnr = p_matnr.<br />
ENDFORM. " DATA_FETCH<br />
<br />
<br />
MODULE status_0100 OUTPUT.<br />
SET PF-STATUS 'STATUS'.<br />
SET TITLEBAR 'TITLE'.<br />
ENDMODULE. " STATUS_0100 OUTPUT<br />
<br />
<br />
MODULE user_command_0100 INPUT.<br />
CASE ok_code.<br />
WHEN 'BACK' .<br />
LEAVE TO SCREEN 0.<br />
WHEN 'EXIT'.<br />
LEAVE PROGRAM.<br />
ENDCASE.<br />
ENDMODULE. " USER_COMMAND_0100 INPUT<br />
<br />
<br />
MODULE display_alv OUTPUT.<br />
CREATE OBJECT o_cust<br />
EXPORTING<br />
container_name = 'CUSTOM'.<br />
CREATE OBJECT o_alv<br />
EXPORTING<br />
i_parent = O_CUST.<br />
CALL METHOD o_alv->set_table_for_first_display<br />
EXPORTING<br />
i_structure_name = 'MARA'<br />
CHANGING<br />
it_outtab = IT_mara.<br />
ENDMODULE. " DISPLAY_ALV OUTPUT</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-11750512256372810202015-03-01T23:04:00.002-08:002015-03-01T23:04:15.286-08:00Include Editable ALV<div dir="ltr" style="text-align: left;" trbidi="on">
*----------------------------------------------------------------------*<br />* Name of the program: *<br />* *<br />* Purpose: Include program for Y_CLASSES_ALV_EDIT_BUTTON *<br />*----------------------------------------------------------------------*<br />* Author : JATIN SINGHAL *<br />* Date : 06.04.2014 *<br />* Ref Doc : *<br />* TR No. : *<br />*----------------------------------------------------------------------*<br />*----------------------------------------------------------------------*<br />* MODIFICATION HISTORY - Oldest on Top *<br />*----------------------------------------------------------------------*<br />* Date Transport No. Person Comments *<br />*----------------------------------------------------------------------*<br />* mm/dd/yyyy XXXXXXX ******** ******** *<br />* *<br />*----------------------------------------------------------------------*<br />
DATA : o_cust TYPE REF TO cl_gui_custom_container,<br /> o_alv TYPE REF TO cl_gui_alv_grid,<br /> it_mara TYPE TABLE OF mara,<br /> wa_mara TYPE mara,<br /> gt_fcat TYPE lvc_t_fcat,<br /> gs_layo TYPE lvc_s_layo,<br /> ok_code TYPE sy-ucomm.<br />
DATA: t_mat LIKE mara-matnr,<br /> variant TYPE disvariant,<br /> gv_matnr type matnr.<br />*DATA : ty_toolbar TYPE stb_button.<br />DATA : e_object TYPE REF TO cl_alv_event_toolbar_set,<br /> io_alv_toolbar TYPE REF TO cl_alv_event_toolbar_set.<br />
data: i_modified TYPE STANDARD TABLE OF mara,"For getting modified rows<br /> w_modified TYPE mara.<br />
<br />
CLASS lcl_event_handler DEFINITION .<br /> PUBLIC SECTION .<br /> METHODS:<br />
*--Double-click control<br /> handle_double_click<br /> FOR EVENT double_click OF cl_gui_alv_grid<br /> IMPORTING e_row e_column es_row_no.<br />
PRIVATE SECTION.<br />ENDCLASS. "lcl_event_handler DEFINITION<br />
DATA gr_event_handler TYPE REF TO lcl_event_handler .<br />*----------------------------------------------------------------------*<br />* CLASS lcl_event_handler IMPLEMENTATION<br />*----------------------------------------------------------------------*<br />
CLASS lcl_event_handler IMPLEMENTATION .<br />
<br />*--Handle Double Click<br /> METHOD handle_double_click .<br /> PERFORM handle_double_click USING e_row e_column es_row_no .<br /> ENDMETHOD . "handle_double_click<br />
ENDCLASS . "lcl_event_handler IMPLEMENTATION<br />
CLASS cl_event_receiver DEFINITION.<br />
PUBLIC SECTION.<br />
METHODS handle_data_changed<br /> FOR EVENT data_changed OF cl_gui_alv_grid<br /> IMPORTING e_ucomm.<br />* er_data_changed<br />* e_onf4<br />* e_onf4_before<br />* e_onf4_after<br />ENDCLASS. "cl_event_receiver DEFINITION<br />
CLASS cl_event_receiver IMPLEMENTATION.<br /> METHOD handle_data_changed.<br />* BREAK-POINT.<br />
*data: lt_index type LVC_T_ROW,<br />* lt_row type LVC_T_ROID.<br />
DATA i_selected_rows TYPE lvc_t_row.<br />o_alv->check_changed_data( ).<br />
<br />CALL METHOD o_alv->get_selected_rows<br /> IMPORTING<br /> et_index_rows = i_selected_rows.<br />* et_row_no = lt_row.<br />* WHAT FUNCTION CAUSED THIS EVENT???<br />ENDMETHOD. "handle_data_changed<br />ENDCLASS. "cl_event_receiver IMPLEMENTATION<br />
*CLASS lcl_events_d0100 DEFINITION DEFERRED.<br />
<br />
<br />DATA: "event_receiver1 TYPE REF TO lcl_events_d0100,<br /> event_receiver TYPE REF TO cl_event_receiver,<br /> i_selected_rows TYPE lvc_t_row, "Selected Rows<br /> w_selected_rows TYPE lvc_s_row,<br /> i_inserted_rows TYPE lvc_t_row,<br /> w_inserted_rows TYPE lvc_s_row,<br /> i_deleted_rows TYPE lvc_t_row,<br /> W_deleted_rows TYPE lvc_S_row.<br />*TYPE-POOLS : CNDP.<br />Select-OPTIONS : s_matnr for gv_matnr.<br />
<br />
<br />*CLASS lcl_events_d0100 DEFINITION.<br />***<br />** PUBLIC SECTION.<br />**<br />** METHODS handle_toolbar_set<br />** FOR EVENT toolbar OF cl_gui_alv_grid<br />** IMPORTING<br />** e_object<br />** e_interactive."---user command on clicking a button<br />**<br />* METHODS handle_user_command.<br />* FOR EVENT user_command OF cl_gui_alv_grid<br />* IMPORTING e_ucomm sender.<br />* ENDMETHOD.<br />* ENDCLASS. "lcl_events_d0100 DEFINITIONTYPE-POOLS cndp.<br />*<br />*<br />*<br />*<br />*<br />*CLASS lcl_events_d0100 IMPLEMENTATION.<br />**<br />** METHOD handle_toolbar_set.<br />** ty_toolbar-function = 'SAVE'. "name of btn to catch click<br />** ty_toolbar-butn_type = 0.<br />** ty_toolbar-text = 'SAVE'.<br />** ty_toolbar-icon = 'icon_save_row'.<br />** APPEND ty_toolbar TO e_object->mt_toolbar.<br />**<br />** ENDMETHOD. "handle_toolbar_set<br />**<br />* METHOD handle_user_command.<br />** DATA: wr_data_changed TYPE REF TO cl_alv_changed_data_protocol.<br />*<br />* perform delete_row .<br />** Perform save_database.<br />** CALL METHOD o_alv->REFRESH_TABLE_DISPLAY.<br />** ENDCASE.<br />**<br />** ENDMETHOD. "handle_user_commandENDCLASS.<br />**ENDCLASS.</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-16115065887417962622015-03-01T22:46:00.003-08:002016-06-13T23:39:18.809-07:00BOM explode Report sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<br />
TYPES: BEGIN OF ty_header, <br />
matnr TYPE vbeln, <br />
matkl TYPE kunag,<br />
werks TYPE werks_d,<br />
stlal type stalt,<br />
stktx TYPE stktx,<br />
bmeng type basmn,<br />
bmein type basme,<br />
datuv type datuv,<br />
andat type andat,<br />
annam type annam,<br />
aedat type aedat,<br />
aenam type aenam,<br />
END OF ty_header. <br />
TYPES: BEGIN OF ty_item, <br />
posnr TYPE sposn, <br />
postp TYPE postp, <br />
idnrk TYPE idnrk, <br />
menge TYPE kmpmg, <br />
meins type kmpme,<br />
potx1 type potx1,<br />
potx2 type potx2,<br />
sanin type sanin,<br />
erskz type erskz,<br />
<br />
END OF ty_item. <br />
DATA: w_header TYPE ty_header.<br />
DATA: t_header TYPE STANDARD TABLE OF ty_header. <br />
DATA: w_item TYPE ty_item.<br />
DATA: t_item TYPE STANDARD TABLE OF ty_item.<br />
DATA : gs_top like cstmat.<br />
DATA : gt_stb like table of stpox.<br />
DATA : gv_matnr type matnr,<br />
gv_werks type werks_d.<br />
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.<br />
Select-options : s_matnr for gv_matnr,<br />
s_werks for gv_werks.<br />
Parameters : p_stlal type stlal default ='1',<br />
p_stlan type stlan default = '4'.<br />
SELECTION-SCREEN BEGIN OF BLOCK B1.<br />
<br />
START-OF-SELECTION. <br />
Loop at s_matnr. <br />
PERFORM Validation tables i_stpov<br />
using s_matnr-low<br />
s_werks-low.<br />
Endloop.<br />
<br />
PERFORM build_fieldcat. <br />
PERFORM display_alv. <br />
<br />
Form Validation tables itab<br />
using matnr<br />
werks.<br />
call function 'CS_WHERE_USED_MAT'<br />
exporting<br />
datub = sy-datum<br />
datuv = sy-datum<br />
matnr = matnr<br />
postp = ' '<br />
stlan = ' '<br />
werks = werks<br />
stltp = ' '<br />
importing<br />
topmat = selpool "Not Currently Used<br />
tables<br />
wultb = itab<br />
* equicat = eqpcat "Not Currently Used<br />
* kndcat = kndcat "Not Currently Used<br />
* matcat = matcat "Not Currently Used<br />
* stdcat = stdcat "Not Currently Used<br />
* tplcat = tplcat "Not Currently Used<br />
* prjcat = prjcat "Not Currently Used<br />
exceptions<br />
material_not_found = 02.<br />
If ne 02.<br />
<br />
PERFORM get_data using s_matnr-low.<br />
Endif.<br />
Endform.<br />
<br />
Form get_data using matnr.<br />
<br />
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'<br />
EXPORTING<br />
AUMNG = 'X'<br />
CAPID = 'PP01'<br />
CUOBJ = 000000000000000<br />
DATUV = sy-datum<br />
EMENG = '2.000'<br />
MBWLS = 'X'<br />
MKTLS = 'X'<br />
MEHRS = 'X'<br />
MMORY = 1<br />
MTNRV = matnr<br />
STLAL = 1<br />
STLAN = 1<br />
STPST = 0<br />
SVWVO = 'X'<br />
WERKS = '5501'<br />
VRSVO = 'X'<br />
IMPORTING<br />
TOPMAT = gs_top<br />
DSTST =<br />
TABLES<br />
stb = gt_stb<br />
* MATCAT = gt_matca<br />
EXCEPTIONS<br />
ALT_NOT_FOUND = 1<br />
CALL_INVALID = 2<br />
MATERIAL_NOT_FOUND = 3<br />
MISSING_AUTHORIZATION = 4<br />
NO_BOM_FOUND = 5<br />
NO_PLANT_DATA = 6<br />
NO_SUITABLE_BOM_FOUND = 7<br />
CONVERSION_ERROR = 8<br />
OTHERS = 9<br />
.<br />
IF sy-subrc <> 0.<br />
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO<br />
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.<br />
ENDIF.<br />
MOVE CORRESPONDING gs_top to t_header.<br />
MOVE CORRESPONDING gt_stb to t_item.<br />
Endform.<br />
<br />
FORM build_fieldcat . <br />
w_keyinfo-header01 = 'VBELN'. <br />
w_keyinfo-item01 = 'VBELN'.<br />
*&---------------------------------------------------------------------* <br />
<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'MATNR'. <br />
w_fcat-seltext_m = 'Material Number'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'MATKL'. <br />
w_fcat-seltext_m = 'Material Group'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'WERKS'. <br />
w_fcat-seltext_m = 'Plant'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'STLAL'. <br />
w_fcat-seltext_m = 'Alternative BOM'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'BMENG'. <br />
w_fcat-seltext_m = 'Base quantity'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat.<br />
<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'DATUV'. <br />
w_fcat-seltext_m = 'Valid from date'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'ANDAT'. <br />
w_fcat-seltext_m = 'Created on'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'ANNAM'. <br />
w_fcat-seltext_m = 'Created by'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat.<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'AEDAT'. <br />
w_fcat-seltext_m = 'Changed on'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
<br />
w_fcat-col_pos = 1. <br />
w_fcat-fieldname = 'AENAM'. <br />
w_fcat-seltext_m = 'Changed by'. <br />
w_fcat-tabname = 'W_header'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 2. <br />
w_fcat-fieldname = 'POSTP'. <br />
w_fcat-seltext_m = 'Item Category (Bill of Material)'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 3. <br />
w_fcat-fieldname = 'IDNRK'. <br />
w_fcat-seltext_m = 'BOM component'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 4. <br />
w_fcat-fieldname = 'MENGE'. <br />
w_fcat-seltext_l = 'Component quantity'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 5. <br />
w_fcat-fieldname = 'MEINS'. <br />
w_fcat-seltext_m = 'Component unit of measure'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat. <br />
w_fcat-col_pos = 6. <br />
w_fcat-fieldname = 'POTX1'. <br />
w_fcat-seltext_m = 'BOM Item Text (Line 1)'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat.<br />
w_fcat-col_pos = 7. <br />
w_fcat-fieldname = 'POTX2'. <br />
w_fcat-seltext_m = 'BOM item text (line 2)'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat.<br />
<br />
w_fcat-col_pos = 8. <br />
w_fcat-fieldname = 'SANIN'. <br />
w_fcat-seltext_m = 'Indicator: item relevant to plant maintenance'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat.<br />
<br />
w_fcat-col_pos = 9. <br />
w_fcat-fieldname = 'ERSKZ'. <br />
w_fcat-seltext_m = 'Indicator: spare part'. <br />
w_fcat-tabname = 'w_item'. <br />
APPEND w_fcat TO t_fcat.<br />
ENDFORM. " BUILD_FIELDCAT<br />
<br />
FORM display_alv . <br />
<br />
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' <br />
EXPORTING <br />
it_fieldcat = t_fcat <br />
i_tabname_header = c_vbrk <br />
i_tabname_item = c_vbrp <br />
is_keyinfo = w_keyinfo <br />
TABLES <br />
t_outtab_header = t_header <br />
t_outtab_item = t_item.<br />
ENDFORM. </div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-34344680905239318922015-02-27T03:55:00.005-08:002016-06-13T23:39:53.059-07:00Sample alv report sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<!--StartFragment -->
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Report YJFIR03</span><br />
<span class="L0S31">*& Name Jatin Singhal</span><br />
<span class="L0S31">* Date 05.02.15</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">REPORT </span>yjfir03<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>gs_mbew<span class="L0S55">,</span><br />
matnr <span class="L0S52">TYPE </span>matnr<span class="L0S55">,</span><br />
pstat <span class="L0S52">TYPE </span>pstat_d<span class="L0S55">,</span><br />
bwkey <span class="L0S52">TYPE </span>bwkey<span class="L0S55">,</span><br />
bklas <span class="L0S52">TYPE </span>bklas<span class="L0S55">,</span><br />
stprs <span class="L0S52">TYPE </span>stprs<span class="L0S55">,</span><br />
lfmon <span class="L0S52">TYPE </span>lfmon<span class="L0S55">,</span><br />
lfgja <span class="L0S52">TYPE </span>lfgja<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>gs_mbew<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>gs_mbewh<span class="L0S55">,</span><br />
matnr <span class="L0S52">TYPE </span>matnr<span class="L0S55">,</span><br />
stprs <span class="L0S52">TYPE </span>stprs<span class="L0S55">,</span><br />
lfmon <span class="L0S52">TYPE </span>lfmon<span class="L0S55">,</span><br />
lfgja <span class="L0S52">TYPE </span>lfgja<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>gs_mbewh<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gv_werks <span class="L0S52">TYPE </span>werks_d<span class="L0S55">,</span><br />
gv_matnr <span class="L0S52">TYPE </span>matnr<span class="L0S55">,</span><br />
gv_ean11 <span class="L0S52">TYPE </span>ean11<span class="L0S55">,</span><br />
gv_mtart <span class="L0S52">TYPE </span>mtart<span class="L0S55">,</span><br />
gv_matkl <span class="L0S52">TYPE </span>matkl<span class="L0S55">,</span><br />
gv_lfmon <span class="L0S52">TYPE </span>lfmon<span class="L0S55">,</span><br />
gv_lfgja <span class="L0S52">TYPE </span>lfgja<span class="L0S55">.</span><br />
<span class="L0S31">*-----------------------------</span><br />
<span class="L0S31">*For Testing purpose</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>g_mbew_h1<span class="L0S55">,</span><br />
matnr <span class="L0S52">TYPE </span>matnr<span class="L0S55">,</span><br />
pstat <span class="L0S52">TYPE </span>pstat<span class="L0S55">,</span><br />
<span class="L0S52">End </span><span class="L0S52">of </span>g_mbew_h1<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>g_mbew_h2 <span class="L0S52">LIKE </span>g_mbew_h1<span class="L0S55">.</span><br />
<span class="L0S31">*------------------------------</span><br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>g_flag1 <span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">,</span><br />
g_flag2 <span class="L0S52">TYPE </span><span class="L0S52">c</span><span class="L0S55">. </span><span class="L0S31">" Indicator to check data coming from MBEW and MBEWH</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">:</span>gt_final <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>yjalv03<span class="L0S55">,</span><br />
gt_fcat <span class="L0S52">TYPE </span>slis_t_fieldcat_alv<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b01 <span class="L0S52">WITH </span><span class="L0S52">FRAME </span><span class="L0S52">TITLE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">001</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT-OPTIONS </span><span class="L0S55">: </span>s_werks <span class="L0S52">FOR </span>gv_werks OBLIGATORY<span class="L0S55">,</span><br />
s_matnr <span class="L0S52">FOR </span>gv_matnr<span class="L0S55">,</span><br />
s_ean11 <span class="L0S52">FOR </span>gv_ean11<span class="L0S55">,</span><br />
s_mtart <span class="L0S52">FOR </span>gv_mtart<span class="L0S55">,</span><br />
s_matkl <span class="L0S52">FOR </span>gv_matkl<span class="L0S55">,</span><br />
s_lfmon <span class="L0S52">FOR </span>gv_lfmon<span class="L0S55">,</span><br />
s_lfgja <span class="L0S52">FOR </span>gv_lfgja<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S55">: </span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b01 <span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b02 <span class="L0S52">WITH </span><span class="L0S52">FRAME </span><span class="L0S52">TITLE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">002</span><span class="L0S55">.</span><br />
<span class="L0S52">PARAMETERS </span><span class="L0S55">: </span>p_layout <span class="L0S52">AS </span><span class="L0S52">CHECKBOX</span><span class="L0S55">,</span><br />
p_cond <span class="L0S52">AS </span><span class="L0S52">CHECKBOX</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S55">: </span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b02 <span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">PERFORM </span>field_validations<span class="L0S55">.</span><br />
<br />
<span class="L0S52">START-OF-SELECTION</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">PERFORM </span>get_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">END-OF-SELECTION</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">PERFORM </span>display_data<span class="L0S55">.</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form GET_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>get_data <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lt_mbew <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>gs_mbew<span class="L0S55">,</span><br />
lt_mbewh <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>gs_mbewh<span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS </span><span class="L0S55">: </span><fs_final> <span class="L0S52">TYPE </span>yjalv03<span class="L0S55">,</span><br />
<fs_mbew> <span class="L0S52">TYPE </span>gs_mbew<span class="L0S55">,</span><br />
<fs_mbewh> <span class="L0S52">TYPE </span>gs_mbewh<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>p_cond <> <span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Fetching data from MARA and MARC.</span><br />
<span class="L0S52">SELECT </span>mc<span class="L0S70">~</span>werks mr<span class="L0S70">~</span>matnr normt ean11 ersda ernam mtart matkl<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_final<br />
<span class="L0S52">FROM </span>marc <span class="L0S52">AS </span>mc INNER <span class="L0S52">JOIN </span>mara <span class="L0S52">AS </span>mr<br />
<span class="L0S52">ON </span>mc<span class="L0S70">~</span>matnr <span class="L0S55">= </span>mr<span class="L0S70">~</span>matnr<br />
<span class="L0S52">WHERE </span>mc<span class="L0S70">~</span>werks <span class="L0S52">IN </span>s_werks<br />
<span class="L0S52">AND </span>mr<span class="L0S70">~</span>matnr <span class="L0S52">IN </span>s_matnr<br />
<span class="L0S52">AND </span>ean11 <span class="L0S52">IN </span>s_ean11<br />
<span class="L0S52">AND </span>mtart <span class="L0S52">IN </span>s_mtart<br />
<span class="L0S52">AND </span>matkl <span class="L0S52">IN </span>s_matkl<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>gt_final <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT </span>mbew<span class="L0S70">~</span>matnr mbew<span class="L0S70">~</span>pstat mbew<span class="L0S70">~</span>bwkey mbew<span class="L0S70">~</span>bklas<br />
mbewh<span class="L0S70">~</span>stprs mbewh<span class="L0S70">~</span>lfmon mbewh<span class="L0S70">~</span>lfgja<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>lt_mbew<br />
<span class="L0S52">FROM </span>mbew INNER <span class="L0S52">JOIN </span>mbewh<br />
<span class="L0S52">ON </span>mbew<span class="L0S70">~</span>matnr <span class="L0S55">= </span>mbewh<span class="L0S70">~</span>matnr<br />
<span class="L0S52">FOR </span><span class="L0S52">ALL </span>ENTRIES <span class="L0S52">IN </span>gt_final<br />
<span class="L0S52">WHERE </span>mbew<span class="L0S70">~</span>matnr <span class="L0S55">= </span>gt_final<span class="L0S70">-</span>matnr<br />
<span class="L0S52">AND </span>mbewh<span class="L0S70">~</span>lfmon <span class="L0S52">IN </span>s_lfmon<br />
<span class="L0S52">AND </span>mbewh<span class="L0S70">~</span>lfgja <span class="L0S52">IN </span>s_lfgja<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>lt_mbew <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
g_flag1 <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">RETURN</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_final <span class="L0S52">ASSIGNING </span><fs_final><span class="L0S55">.</span><br />
<br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>lt_mbew <span class="L0S52">ASSIGNING </span><fs_mbew> <span class="L0S52">WITH </span><span class="L0S52">KEY </span>matnr <span class="L0S55">= </span><fs_final><span class="L0S70">-</span>matnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>pstat <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>pstat<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>bwkey <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>bwkey<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>bklas <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>bklas<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>stprs <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>stprs<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>lfmon <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>lfmon<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>lfgja <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>lfgja<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S31">* Fetching data using Inner Join on four tables</span><br />
<br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT </span>mc<span class="L0S70">~</span>werks mr<span class="L0S70">~</span>matnr normt ean11 ersda ernam mtart matkl<br />
mbew<span class="L0S70">~</span>pstat mbew<span class="L0S70">~</span>bwkey mbew<span class="L0S70">~</span>bklas<br />
<span class="L0S31">* mbewh~stprs mbewh~lfmon mbewh~lfgja</span><br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_final<br />
<span class="L0S52">FROM </span>marc <span class="L0S52">AS </span>mc<br />
INNER <span class="L0S52">JOIN </span>mara <span class="L0S52">AS </span>mr<br />
<span class="L0S52">ON </span>mc<span class="L0S70">~</span>matnr <span class="L0S55">= </span>mr<span class="L0S70">~</span>matnr<br />
<span class="L0S52">LEFT </span>OUTER <span class="L0S52">JOIN </span>mbew<br />
<span class="L0S52">ON </span>mbew<span class="L0S70">~</span>matnr <span class="L0S55">= </span>mr<span class="L0S70">~</span>matnr<br />
<span class="L0S31">* LEFT OUTER JOIN mbewh</span><br />
<span class="L0S31">* ON mbewh~matnr = mbew~matnr</span><br />
<br />
<span class="L0S52">WHERE </span>mc<span class="L0S70">~</span>werks <span class="L0S52">IN </span>s_werks<br />
<span class="L0S52">AND </span>mr<span class="L0S70">~</span>matnr <span class="L0S52">IN </span>s_matnr<br />
<span class="L0S52">AND </span>ean11 <span class="L0S52">IN </span>s_ean11<br />
<span class="L0S52">AND </span>mtart <span class="L0S52">IN </span>s_mtart<br />
<span class="L0S52">AND </span>matkl <span class="L0S52">IN </span>s_matkl<span class="L0S55">.</span><br />
<span class="L0S31">* AND mbewh~lfmon IN s_lfmon</span><br />
<span class="L0S31">* AND mbewh~lfgja IN s_lfgja.</span><br />
<br />
<span class="L0S52">SELECT </span>matnr stprs lfmon lfgja<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>lt_mbewh<br />
<span class="L0S52">FROM </span>mbewh<br />
<span class="L0S52">FOR </span><span class="L0S52">ALL </span>ENTRIES <span class="L0S52">IN </span>gt_final<br />
<span class="L0S52">WHERE </span>matnr <span class="L0S55">= </span>gt_final<span class="L0S70">-</span>matnr<br />
<span class="L0S52">AND </span>lfmon <span class="L0S52">IN </span>s_lfmon<br />
<span class="L0S52">AND </span>lfgja <span class="L0S52">IN </span>s_lfgja<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
g_flag2 <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">RETURN</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_final <span class="L0S52">ASSIGNING </span><fs_final><span class="L0S55">.</span><br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>lt_mbewh <span class="L0S52">ASSIGNING </span><fs_mbewh> <span class="L0S52">WITH </span><span class="L0S52">KEY </span>matnr <span class="L0S55">= </span><fs_final><span class="L0S70">-</span>matnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>stprs <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>stprs<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>lfmon <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>lfmon<span class="L0S55">.</span><br />
<fs_final><span class="L0S70">-</span>lfgja <span class="L0S55">= </span><fs_mbew><span class="L0S70">-</span>lfgja<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" GET_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form DISPLAY_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>display_data <span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>gt_final <span class="L0S52">IS </span><span class="L0S52">INITIAL </span><span class="L0S55">. </span><span class="L0S31">" Return to Selection screen if Global Table is blank</span><br />
<span class="L0S52">RETURN</span><span class="L0S55">.</span><br />
<span class="L0S52">ELSEIF </span>g_flag1 <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">004 </span><span class="L0S52">TYPE </span><span class="L0S33">'I'</span><span class="L0S55">.</span><br />
<span class="L0S52">ELSEIF </span>g_flag2 <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">005 </span><span class="L0S52">TYPE </span><span class="L0S33">'I'</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_repid <span class="L0S52">TYPE </span>syrepid<span class="L0S55">,</span><br />
l_title <span class="L0S52">TYPE </span>lvc_title<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Layout structure</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_layout <span class="L0S52">TYPE </span>slis_layout_alv<span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_gridset <span class="L0S52">TYPE </span>lvc_s_glay<span class="L0S55">.</span><br />
<br />
l_layout<span class="L0S70">-</span>info_fieldname <span class="L0S55">= </span><span class="L0S33">'COLCODE'</span><span class="L0S55">.</span><br />
l_repid <span class="L0S55">= </span>sy<span class="L0S70">-</span>repid<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Prepare Field catalog for the ALV report</span><br />
<span class="L0S52">PERFORM </span>setup_fieldcatalog<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_GRID_DISPLAY'</span><br />
<span class="L0S52">EXPORTING</span><br />
i_callback_program <span class="L0S55">= </span>l_repid<br />
<span class="L0S31">* i_callback_pf_status_set = 'SET_STATUS'</span><br />
i_callback_user_command <span class="L0S55">= </span><span class="L0S33">'USER_COMMAND'</span><br />
<span class="L0S31">* i_callback_top_of_page = 'TOP_OF_PAGE'</span><br />
<span class="L0S31">* i_background_id = 'ALV_BACKGROUND'</span><br />
i_grid_title <span class="L0S55">= </span>l_title<br />
i_grid_settings <span class="L0S55">= </span>l_gridset<br />
is_layout <span class="L0S55">= </span>l_layout<br />
it_fieldcat <span class="L0S55">= </span>gt_fcat<br />
i_save <span class="L0S55">= </span><span class="L0S33">'A'</span><br />
<span class="L0S52">TABLES</span><br />
t_outtab <span class="L0S55">= </span>gt_final<br />
<span class="L0S52">EXCEPTIONS</span><br />
program_error <span class="L0S55">= </span><span class="L0S32">1</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">FORM </span>setup_fieldcatalog <span class="L0S55">.</span><br />
<br />
<span class="L0S31">* DATA g_fcat_h TYPE slis_fieldcat_alv.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_FIELDCATALOG_MERGE'</span><br />
<span class="L0S52">EXPORTING</span><br />
i_program_name <span class="L0S55">= </span><span class="L0S33">'YJFIR03'</span><br />
i_structure_name <span class="L0S55">= </span><span class="L0S33">'YJALV03'</span><br />
<span class="L0S52">CHANGING</span><br />
ct_fieldcat <span class="L0S55">= </span>gt_fcat<br />
<span class="L0S52">EXCEPTIONS</span><br />
inconsistent_interface <span class="L0S55">= </span><span class="L0S32">1</span><br />
program_error <span class="L0S55">= </span><span class="L0S32">2</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">ID </span>sy<span class="L0S70">-</span>msgid <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>msgty <span class="L0S52">NUMBER </span>sy<span class="L0S70">-</span>msgno<br />
<span class="L0S52">WITH </span>sy<span class="L0S70">-</span>msgv1 sy<span class="L0S70">-</span>msgv2 sy<span class="L0S70">-</span>msgv3 sy<span class="L0S70">-</span>msgv4<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" DISPLAY_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form FIELD_VALIDATIONS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>field_validations <span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" FIELD_VALIDATIONS</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-27654419978884205902015-02-27T03:54:00.000-08:002015-02-27T03:54:06.539-08:00Hide field in final o/p <div dir="ltr" style="text-align: left;" trbidi="on">
<!--StartFragment -->
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span><span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Report YJFIR02</span><br />
<span class="L0S31">*& Name : Jatin Singhal</span><br />
<span class="L0S31">* Date 04.02.15</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<br />
<span class="L0S52">REPORT </span>yjfir02<span class="L0S55">.</span><br />
<br />
<span class="L0S31">*TYPES : BEGIN OF gs_final_alv,</span><br />
<span class="L0S31">* bukrs TYPE bukrs,</span><br />
<span class="L0S31">* kunnr TYPE kunnr,</span><br />
<span class="L0S31">* name1_ku TYPE name1_gp,</span><br />
<span class="L0S31">* ort01_ku TYPE ort01_gp,</span><br />
<span class="L0S31">* ort02_ku TYPE ort02_gp,</span><br />
<span class="L0S31">* lifnr TYPE lifnr,</span><br />
<span class="L0S31">* name1_li TYPE name1_gp,</span><br />
<span class="L0S31">* ort01_li TYPE ort01_gp,</span><br />
<span class="L0S31">* ort02_li TYPE ort02_gp,</span><br />
<span class="L0S31">* END OF gs_final_alv.</span><br />
<span class="L0S52">TYPES </span>gs_final_alv <span class="L0S52">TYPE </span>yjalv02<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>gs_lifnr<span class="L0S55">,</span><br />
lifnr <span class="L0S52">TYPE </span>lifnr<span class="L0S55">,</span><br />
kunnr <span class="L0S52">TYPE </span>kunnr<span class="L0S55">,</span><br />
name1_li <span class="L0S52">TYPE </span>name1_gp<span class="L0S55">,</span><br />
ort01_li <span class="L0S52">TYPE </span>ort01_gp<span class="L0S55">,</span><br />
ort02_li <span class="L0S52">TYPE </span>ort02_gp<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>gs_lifnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES </span>gt_lifnr_tt <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>gs_lifnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gt_final_alv <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>gs_final_alv<span class="L0S55">,</span><br />
gt_fcat <span class="L0S52">TYPE </span>slis_t_fieldcat_alv<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gv_bukrs <span class="L0S52">TYPE </span>bukrs<span class="L0S55">,</span><br />
gv_kunnr <span class="L0S52">TYPE </span>kunnr<span class="L0S55">,</span><br />
gv_ort01 <span class="L0S52">TYPE </span>ort01_gp<span class="L0S55">,</span><br />
gv_lifnr <span class="L0S52">TYPE </span>lifnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span><span class="L0S55">: </span>gr_table <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_table<span class="L0S55">,</span><br />
gr_columns <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_columns_table<span class="L0S55">,</span><br />
gr_column <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_column_table<span class="L0S55">,</span><br />
gr_functions <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_functions<span class="L0S55">,</span><br />
gr_layout <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_layout<span class="L0S55">,</span><br />
gr_display <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_display_settings<span class="L0S55">,</span><br />
r_field_label <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>ycl_field_label<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b01 <span class="L0S52">WITH </span><span class="L0S52">FRAME </span><span class="L0S52">TITLE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">001</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT-OPTIONS </span><span class="L0S55">: </span>s_bukrs <span class="L0S52">FOR </span>gv_bukrs<span class="L0S55">,</span><br />
s_kunnr <span class="L0S52">FOR </span>gv_kunnr<span class="L0S55">,</span><br />
s_ort01k <span class="L0S52">FOR </span>gv_ort01<span class="L0S55">,</span><br />
s_lifnr <span class="L0S52">FOR </span>gv_lifnr<span class="L0S55">,</span><br />
s_ort01l <span class="L0S52">FOR </span>gv_ort01<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b01<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b02 <span class="L0S52">WITH </span><span class="L0S52">FRAME </span><span class="L0S52">TITLE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">002</span><span class="L0S55">.</span><br />
<span class="L0S52">PARAMETERS </span><span class="L0S55">:</span>p_layout <span class="L0S52">AS </span><span class="L0S52">CHECKBOX</span><span class="L0S55">,</span><br />
p_factor <span class="L0S52">AS </span><span class="L0S52">CHECKBOX</span><span class="L0S55">.</span><br />
<span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">END </span><span class="L0S52">OF </span><span class="L0S52">BLOCK </span>b02<span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>s_bukrs <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><br />
<span class="L0S52">AND </span>s_kunnr <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><br />
<span class="L0S52">AND </span>s_lifnr <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">004 </span><span class="L0S52">TYPE </span><span class="L0S33">'E'</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">AT </span><span class="L0S52">SELECTION-SCREEN </span><span class="L0S52">OUTPUT</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* LOOP AT SCREEN. " To change Selection screen name at run time</span><br />
<span class="L0S31">* CASE screen-name.</span><br />
<span class="L0S31">* WHEN '%_S_ORT01L_%_APP_%-TEXT'. PERFORM change_sel_screen_text USING 'XXX'. "Vendor City</span><br />
<span class="L0S31">* ENDCASE.</span><br />
<span class="L0S31">* ENDLOOP.</span><br />
<br />
<span class="L0S52">START-OF-SELECTION</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*Fetching Company code and Customer No</span><br />
<span class="L0S52">PERFORM </span>fetch_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">END-OF-SELECTION</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">PERFORM </span>cocd_auth_check <span class="L0S55">.</span><br />
<span class="L0S31">*Displaying the report</span><br />
<span class="L0S52">PERFORM </span>display_data<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">FORM </span>fetch_data<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>lt_lifnr <span class="L0S52">TYPE </span>gt_lifnr_tt<span class="L0S55">.</span><br />
<br />
<span class="L0S52">FIELD-SYMBOLS </span><span class="L0S55">: </span><fs_final_alv> <span class="L0S52">TYPE </span>gs_final_alv<span class="L0S55">,</span><br />
<fs_lifnr> <span class="L0S52">TYPE </span>gs_lifnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT </span>bukrs<br />
kna1<span class="L0S70">~</span>kunnr<br />
name1<br />
ort01<br />
ort02<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_final_alv<br />
<span class="L0S52">FROM </span>kna1 INNER <span class="L0S52">JOIN </span>knb1<br />
<span class="L0S52">ON </span>kna1<span class="L0S70">~</span>kunnr <span class="L0S55">= </span>knb1<span class="L0S70">~</span>kunnr<br />
<span class="L0S52">WHERE </span>kna1<span class="L0S70">~</span>kunnr <span class="L0S52">IN </span>s_kunnr<br />
<span class="L0S52">AND </span>bukrs <span class="L0S52">IN </span>s_bukrs<br />
<span class="L0S52">AND </span>ort01 <span class="L0S52">IN </span>s_ort01k<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>gt_final_alv <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">SELECT </span>kunnr<br />
lifnr<br />
name1<br />
ort01<br />
ort02<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>lt_lifnr<br />
<span class="L0S52">FROM </span>lfa1<br />
<span class="L0S52">FOR </span><span class="L0S52">ALL </span>ENTRIES <span class="L0S52">IN </span>gt_final_alv<br />
<span class="L0S52">WHERE </span>kunnr <span class="L0S55">= </span>gt_final_alv<span class="L0S70">-</span>kunnr<br />
<span class="L0S52">AND </span>lifnr <span class="L0S52">IN </span>s_lifnr<br />
<span class="L0S52">AND </span>ort01 <span class="L0S52">IN </span>s_ort01l<span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_final_alv <span class="L0S52">ASSIGNING </span><fs_final_alv><span class="L0S55">.</span><br />
<br />
<span class="L0S52">READ </span><span class="L0S52">TABLE </span>lt_lifnr <span class="L0S52">ASSIGNING </span><fs_lifnr> <span class="L0S52">WITH </span><span class="L0S52">KEY </span>kunnr <span class="L0S55">= </span><fs_final_alv><span class="L0S70">-</span>kunnr<span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<fs_final_alv><span class="L0S70">-</span>lifnr <span class="L0S55">= </span><fs_lifnr><span class="L0S70">-</span>lifnr<span class="L0S55">.</span><br />
<fs_final_alv><span class="L0S70">-</span>name1_li <span class="L0S55">= </span><fs_lifnr><span class="L0S70">-</span>name1_li<span class="L0S55">.</span><br />
<fs_final_alv><span class="L0S70">-</span>ort01_li <span class="L0S55">= </span><fs_lifnr><span class="L0S70">-</span>ort01_li<span class="L0S55">.</span><br />
<fs_final_alv><span class="L0S70">-</span>ort02_li <span class="L0S55">= </span><fs_lifnr><span class="L0S70">-</span>ort02_li<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">MESSAGE </span><span class="L0S52">text</span><span class="L0S70">-</span><span class="L0S32">003 </span><span class="L0S52">TYPE </span><span class="L0S33">'I'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">.</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form DISPLAY_DATA</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">* text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S31">* --> p1 text</span><br />
<span class="L0S31">* <-- p2 text</span><br />
<span class="L0S31">*----------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>display_data <span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>gt_final_alv <span class="L0S52">IS </span><span class="L0S52">INITIAL</span><span class="L0S55">. </span><span class="L0S31">" Return to Selection screen if Global Table is blank</span><br />
<span class="L0S52">RETURN</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">IF </span>p_factor <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">. </span><span class="L0S31">" Display data using Factory_alv</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_key <span class="L0S52">TYPE </span>salv_s_layout_key<span class="L0S55">.</span><br />
<br />
<span class="L0S31">"Get instance of the CL_SALV_TABLE using Factory method</span><br />
<span class="L0S52">TRY</span><span class="L0S55">.</span><br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>cl_salv_table<span class="L0S70">=></span>factory<br />
<span class="L0S52">IMPORTING</span><br />
r_salv_table <span class="L0S55">= </span>gr_table<br />
<span class="L0S52">CHANGING</span><br />
t_table <span class="L0S55">= </span>gt_final_alv<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CATCH </span>cx_salv_msg <span class="L0S55">.</span><br />
<span class="L0S52">ENDTRY</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">TRY</span><span class="L0S55">.</span><br />
<span class="L0S31">*set functions</span><br />
gr_functions <span class="L0S55">= </span>gr_table<span class="L0S70">-></span>get_functions<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_functions<span class="L0S70">-></span>set_all<span class="L0S55">( </span>abap_true <span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* add function</span><br />
<span class="L0S31">* gr_functions->add_function(</span><br />
<span class="L0S31">* name = 'ADVHAN'</span><br />
<span class="L0S31">* icon = '@BB@'</span><br />
<span class="L0S31">* text = 'Advisor'</span><br />
<span class="L0S31">* tooltip = 'Handled by advisor'</span><br />
<span class="L0S31">* position = if_salv_c_function_position=>right_of_salv_functions ).</span><br />
<br />
<br />
<span class="L0S31">* set column</span><br />
gr_columns <span class="L0S55">= </span>gr_table<span class="L0S70">-></span>get_columns<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_columns<span class="L0S70">-></span>set_optimize<span class="L0S55">( </span>abap_true <span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* set hotspot</span><br />
<span class="L0S31">* gr_column ?= gr_columns->get_column( 'EQUNR' ).</span><br />
<span class="L0S31">* gr_column->set_cell_type( if_salv_c_cell_type=>hotspot ).</span><br />
<span class="L0S31">*</span><br />
<span class="L0S31">* gr_column ?= gr_columns->get_column( 'EQART' ).</span><br />
<span class="L0S31">* gr_column->set_cell_type( if_salv_c_cell_type=>hotspot ).</span><br />
<br />
<span class="L0S31">* highlight column</span><br />
gr_column ?= gr_columns<span class="L0S70">-></span>get_column<span class="L0S55">(</span><span class="L0S33">'BUKRS'</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_column<span class="L0S70">-></span>set_key<span class="L0S55">( </span>abap_true <span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
gr_column ?= gr_columns<span class="L0S70">-></span>get_column<span class="L0S55">(</span><span class="L0S33">'KUNNR'</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_column<span class="L0S70">-></span>set_key<span class="L0S55">( </span>if_salv_c_bool_sap<span class="L0S70">=></span>true <span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S31">* gr_column ?= gr_columns->get_column('BELNR').</span><br />
<br />
<br />
<span class="L0S31">* Hardcoding field label</span><br />
gr_column ?= gr_columns<span class="L0S70">-></span>get_column<span class="L0S55">(</span><span class="L0S33">'ORT01_KU'</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_column<span class="L0S70">-></span>set_short_text<span class="L0S55">(</span><span class="L0S33">'Cust City'</span><span class="L0S55">)</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* "Get Display Settings</span><br />
gr_display ?= gr_table<span class="L0S70">-></span>get_display_settings<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_display<span class="L0S70">-></span>set_striped_pattern<span class="L0S55">( </span>abap_true <span class="L0S55">)</span><span class="L0S55">. </span><span class="L0S31">"Stripped Pattern</span><br />
<br />
<br />
<span class="L0S52">CREATE </span>OBJECT r_field_label<br />
<span class="L0S52">EXPORTING</span><br />
im_columns_table <span class="L0S55">= </span>gr_columns<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* To change field label at run time</span><br />
<span class="L0S31">* PERFORM set_texts USING 'BUKRS' 'XXX'. "Company code</span><br />
<span class="L0S31">* PERFORM set_texts USING 'KUNNR' 'XXX'. "Customer No.</span><br />
<br />
<span class="L0S31">* Disable few field in O/P</span><br />
<span class="L0S52">PERFORM </span>set_technical <span class="L0S52">USING </span><span class="L0S33">'ORT02_LI'</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">"Display ALV</span><br />
<span class="L0S52">CALL </span><span class="L0S52">METHOD </span>gr_table<span class="L0S70">-></span>display<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CATCH </span>cx_salv_not_found<span class="L0S55">.</span><br />
<span class="L0S52">CATCH </span>cx_salv_wrong_call<span class="L0S55">.</span><br />
<span class="L0S52">CATCH </span>cx_salv_existing<span class="L0S55">.</span><br />
<span class="L0S52">CATCH </span>cx_salv_data_error<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDTRY</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ELSE</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_repid <span class="L0S52">TYPE </span>syrepid<span class="L0S55">,</span><br />
l_title <span class="L0S52">TYPE </span>lvc_title<span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Layout structure</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_layout <span class="L0S52">TYPE </span>slis_layout_alv<span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>l_gridset <span class="L0S52">TYPE </span>lvc_s_glay<span class="L0S55">.</span><br />
<br />
l_layout<span class="L0S70">-</span>info_fieldname <span class="L0S55">= </span><span class="L0S33">'COLCODE'</span><span class="L0S55">.</span><br />
l_repid <span class="L0S55">= </span>sy<span class="L0S70">-</span>repid<span class="L0S55">.</span></span><br />
<span><span class="L0S55"></span></span><br />
<span><span class="L0S55"></span> </span><br />
-------------------------------------------------------------------------<br />
<br />
<span class="L0S31">*Prepare Field catalog for the ALV report</span><br />
<strong> <span class="L0S52">PERFORM </span>setup_fieldcatalog<span class="L0S55">.</span></strong>
<br />
<br />
------------------------------------------------------------------------<br />
<br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_GRID_DISPLAY'</span><br />
<span class="L0S52">EXPORTING</span><br />
i_callback_program <span class="L0S55">= </span>l_repid<br />
<span class="L0S31">* i_callback_pf_status_set = 'SET_STATUS'</span><br />
i_callback_user_command <span class="L0S55">= </span><span class="L0S33">'USER_COMMAND'</span><br />
<span class="L0S31">* i_callback_top_of_page = 'TOP_OF_PAGE'</span><br />
<span class="L0S31">* i_background_id = 'ALV_BACKGROUND'</span><br />
i_grid_title <span class="L0S55">= </span>l_title<br />
i_grid_settings <span class="L0S55">= </span>l_gridset<br />
is_layout <span class="L0S55">= </span>l_layout<br />
it_fieldcat <span class="L0S55">= </span>gt_fcat<br />
i_save <span class="L0S55">= </span><span class="L0S33">'A'</span><br />
<span class="L0S52">TABLES</span><br />
t_outtab <span class="L0S55">= </span>gt_final_alv<br />
<span class="L0S52">EXCEPTIONS</span><br />
program_error <span class="L0S55">= </span><span class="L0S32">1</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">2</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">FORM </span>setup_fieldcatalog <span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA </span>g_fcat_h <span class="L0S52">TYPE </span>slis_fieldcat_alv<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CALL </span><span class="L0S52">FUNCTION </span><span class="L0S33">'REUSE_ALV_FIELDCATALOG_MERGE'</span><br />
<span class="L0S52">EXPORTING</span><br />
i_program_name <span class="L0S55">= </span><span class="L0S33">'YJFIR02'</span><br />
i_structure_name <span class="L0S55">= </span><span class="L0S33">'YJALV02'</span><br />
<span class="L0S52">CHANGING</span><br />
ct_fieldcat <span class="L0S55">= </span>gt_fcat<br />
<span class="L0S52">EXCEPTIONS</span><br />
inconsistent_interface <span class="L0S55">= </span><span class="L0S32">1</span><br />
program_error <span class="L0S55">= </span><span class="L0S32">2</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">3</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">ID </span>sy<span class="L0S70">-</span>msgid <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>msgty <span class="L0S52">NUMBER </span>sy<span class="L0S70">-</span>msgno<br />
<span class="L0S52">WITH </span>sy<span class="L0S70">-</span>msgv1 sy<span class="L0S70">-</span>msgv2 sy<span class="L0S70">-</span>msgv3 sy<span class="L0S70">-</span>msgv4<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>gt_fcat <span class="L0S52">INTO </span>g_fcat_h<span class="L0S55">.</span><br />
<br />
<span class="L0S52">CASE </span>g_fcat_h<span class="L0S70">-</span>fieldname<span class="L0S55">.</span><br />
<br />
<span class="L0S52">WHEN </span><span class="L0S33">'KUNNR'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span><span class="L0S52">key </span><span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>key_sel <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span><span class="L0S33">'Customer number'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S33">'Customer No.'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_s <span class="L0S55">= </span><span class="L0S33">'Cust.No.'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">'LIFNR'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span><span class="L0S52">key </span><span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>key_sel <span class="L0S55">= </span><span class="L0S33">'X'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span><span class="L0S33">'Vendor number'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S33">'Vendor No.'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_s <span class="L0S55">= </span><span class="L0S33">'Vend.No.'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">'NAME1_KU'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span><span class="L0S33">'Customer Name'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S33">'Cust Name'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S33">'20'</span><span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">'NAME1_LI'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span><span class="L0S33">'Vendor Name'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S33">'Vend Name'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S33">'20'</span><span class="L0S55">.</span><br />
<span class="L0S52">WHEN </span><span class="L0S33">'ORT01_KU'</span><span class="L0S55">.</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_l <span class="L0S55">= </span><span class="L0S33">'Customer City'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>seltext_m <span class="L0S55">= </span><span class="L0S33">'Cust City'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
g_fcat_h<span class="L0S70">-</span>outputlen <span class="L0S55">= </span><span class="L0S33">'20'</span><span class="L0S55">. </span><span class="L0S31">"#EC NOTEXT</span><br />
<br />
<span class="L0S52">ENDCASE</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">MODIFY </span>gt_fcat <span class="L0S52">FROM </span>g_fcat_h<span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" SETUP_FIELDCATALOG</span><br />
<br />
<span class="L0S52">FORM </span>cocd_auth_check <span class="L0S55">.</span><br />
<br />
<span class="L0S52">TYPES</span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>lt_t001<span class="L0S55">,</span><br />
bukrs <span class="L0S52">TYPE </span>bukrs<span class="L0S55">,</span><br />
butxt <span class="L0S52">TYPE </span>butxt<span class="L0S55">,</span><br />
ort01 <span class="L0S52">TYPE </span>ort01<span class="L0S55">,</span><br />
land1 <span class="L0S52">TYPE </span>land1<span class="L0S55">,</span><br />
<span class="L0S52">END </span><span class="L0S52">OF </span>lt_t001<span class="L0S55">.</span><br />
<br />
<span class="L0S52">DATA</span><span class="L0S55">: </span>lit_t001 <span class="L0S52">TYPE </span><span class="L0S52">STANDARD </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>lt_t001 <span class="L0S52">INITIAL </span><span class="L0S52">SIZE </span><span class="L0S32">0</span><span class="L0S55">,</span><br />
lwa_t001 <span class="L0S52">TYPE </span>lt_t001<span class="L0S55">.</span><br />
<br />
<br />
<span class="L0S52">SELECT </span>bukrs<br />
butxt<br />
ort01<br />
land1<br />
<span class="L0S52">INTO </span><span class="L0S52">TABLE </span>lit_t001<br />
<span class="L0S52">FROM </span>t001<br />
<span class="L0S52">WHERE </span>bukrs <span class="L0S52">IN </span>s_bukrs<span class="L0S55">.</span><br />
<br />
<span class="L0S52">LOOP </span><span class="L0S52">AT </span>lit_t001 <span class="L0S52">INTO </span>lwa_t001<span class="L0S55">.</span><br />
<br />
<span class="L0S52">AUTHORITY-CHECK </span>OBJECT <span class="L0S33">'F_BKPF_BUK'</span><br />
<span class="L0S52">ID </span><span class="L0S33">'ACTVT' </span><span class="L0S52">FIELD </span><span class="L0S33">'03'</span><br />
<span class="L0S52">ID </span><span class="L0S33">'BUKRS' </span><span class="L0S52">FIELD </span>lwa_t001<span class="L0S70">-</span>bukrs<span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span>e001<span class="L0S55">(</span>zfi_eucomp<span class="L0S55">) </span><span class="L0S52">WITH </span>lwa_t001<span class="L0S70">-</span>bukrs<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDLOOP</span><span class="L0S55">.</span><br />
<br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" COCD_AUTH_CHECK</span><br />
<br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form SET_TEXTS</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>set_texts <span class="L0S52">USING </span>p_columnname <span class="L0S52">TYPE </span>lvc_fname<br />
p_field_label <span class="L0S52">TYPE </span>yfield_label<span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">:</span><br />
l_columnname <span class="L0S52">TYPE </span>lvc_fname<span class="L0S55">,</span><br />
l_field_label <span class="L0S52">TYPE </span>yfield_label<span class="L0S55">.</span><br />
<br />
l_columnname <span class="L0S55">= </span>p_columnname<span class="L0S55">.</span><br />
l_field_label <span class="L0S55">= </span>p_field_label<span class="L0S55">.</span><br />
<br />
r_field_label<span class="L0S70">-></span>set_texts<span class="L0S55">(</span><br />
<span class="L0S52">EXPORTING</span><br />
im_columnname <span class="L0S55">= </span>l_columnname<br />
im_field_label <span class="L0S55">= </span>l_field_label<br />
<span class="L0S52">EXCEPTIONS</span><br />
field_label_not_found <span class="L0S55">= </span><span class="L0S32">1</span><br />
columnname_not_found <span class="L0S55">= </span><span class="L0S32">2</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">3</span><br />
<span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">MESSAGE </span><span class="L0S52">ID </span>sy<span class="L0S70">-</span>msgid <span class="L0S52">TYPE </span>sy<span class="L0S70">-</span>msgty <span class="L0S52">NUMBER </span>sy<span class="L0S70">-</span>msgno<br />
<span class="L0S52">WITH </span>sy<span class="L0S70">-</span>msgv1 sy<span class="L0S70">-</span>msgv2 sy<span class="L0S70">-</span>msgv3 sy<span class="L0S70">-</span>msgv4<span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" SET_TEXTS</span><br />
<br />
<span class="L0S52">FORM </span>set_technical <span class="L0S52">USING </span>p_columnname <span class="L0S52">TYPE </span>lvc_fname<span class="L0S55">.</span><br />
<span class="L0S52">TRY</span><span class="L0S55">.</span><br />
gr_column ?= gr_columns<span class="L0S70">-></span>get_column<span class="L0S55">( </span>columnname <span class="L0S55">= </span>p_columnname <span class="L0S55">)</span><span class="L0S55">.</span><br />
gr_column<span class="L0S70">-></span>set_technical<span class="L0S55">( </span><span class="L0S52">value </span><span class="L0S55">= </span>if_salv_c_bool_sap<span class="L0S70">=></span>true <span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">CATCH </span>cx_salv_not_found cx_salv_existing cx_salv_data_error<span class="L0S55">. </span><span class="L0S31">"#EC NO_HANDLER</span><br />
<span class="L0S52">ENDTRY</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31">*& Form CHANGE_SEL_SCREEN_TEXT</span><br />
<span class="L0S31">*&---------------------------------------------------------------------*</span><br />
<span class="L0S52">FORM </span>change_sel_screen_text <span class="L0S52">USING </span>p_field_label <span class="L0S52">TYPE </span>yfield_label<span class="L0S55">.</span><br />
<span class="L0S52">DATA</span><span class="L0S55">:</span><br />
l_long_text <span class="L0S52">TYPE </span>ybc_field_labelt<span class="L0S70">-</span>long_text<span class="L0S55">.</span><br />
<span class="L0S52">FIELD-SYMBOLS</span><span class="L0S55">:</span><br />
<text> <span class="L0S52">TYPE </span><span class="L0S52">any</span><span class="L0S55">.</span><br />
<br />
<span class="L0S31">* Get Field Label</span><br />
ycl_field_label<span class="L0S70">=></span>get_field_label<span class="L0S55">(</span><br />
<span class="L0S52">EXPORTING</span><br />
im_field_label <span class="L0S55">= </span>p_field_label<br />
<span class="L0S52">IMPORTING</span><br />
<span class="L0S31">* ex_short_text =</span><br />
<span class="L0S31">* ex_medium_text =</span><br />
ex_long_text <span class="L0S55">= </span>l_long_text<br />
<span class="L0S31">* ex_tooltip =</span><br />
<span class="L0S52">EXCEPTIONS</span><br />
field_label_not_found <span class="L0S55">= </span><span class="L0S32">1</span><br />
<span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">2</span><br />
<span class="L0S55">)</span><span class="L0S55">.</span><br />
<span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S55">= </span><span class="L0S32">0</span><span class="L0S55">.</span><br />
<span class="L0S52">ASSIGN </span><span class="L0S55">(</span><span class="L0S52">screen</span><span class="L0S70">-</span>name<span class="L0S55">) </span><span class="L0S52">TO </span><text><span class="L0S55">.</span><br />
<text> <span class="L0S55">= </span>l_long_text<span class="L0S55">.</span><br />
<span class="L0S52">MODIFY </span><span class="L0S52">SCREEN</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDIF</span><span class="L0S55">.</span><br />
<span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" CHANGE_SEL_SCREEN_TEXT</span>
</div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-89095548312038785712014-10-20T00:41:00.002-07:002016-06-13T23:38:22.985-07:00Factory ALV sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<!--StartFragment --><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">
<style type="text/css">
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
</style>
<span class="L0S31">**&---------------------------------------------------------------------*</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Report YJ_FACTORY_ALV</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&Author : Jatin Singhal</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&Date : 19/8/2014</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">REPORT </span>yj_factory_alv<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">TYPES </span><span class="L0S55">: </span><span class="L0S52">BEGIN </span><span class="L0S52">OF </span>ty_equip<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> equnr <span class="L0S52">TYPE </span>equnr<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> eqart <span class="L0S52">TYPE </span>eqart<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> serge <span class="L0S52">TYPE </span>serge<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> objnr <span class="L0S52">TYPE </span>objnr<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> submt <span class="L0S52">TYPE </span>submt<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> ingrp <span class="L0S52">TYPE </span>ingrp<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> iloan <span class="L0S52">TYPE </span>iloan<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> advisor_action<span class="L0S55">(</span><span class="L0S32">4</span><span class="L0S55">) </span><span class="L0S52">type </span><span class="L0S52">c</span><span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">END </span><span class="L0S52">OF </span>ty_equip<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">DATA </span>gt_equip <span class="L0S52">TYPE </span><span class="L0S52">TABLE </span><span class="L0S52">OF </span>ty_equip <span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">CLASS </span>lcl_handle_events <span class="L0S52">DEFINITION</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">PUBLIC </span><span class="L0S52">SECTION</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">METHODS</span><span class="L0S55">: </span>on_user_command <span class="L0S52">FOR </span><span class="L0S52">EVENT </span>added_function <span class="L0S52">OF </span>cl_salv_events_table</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">IMPORTING </span>e_salv_function<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">METHODS</span><span class="L0S55">: </span>on_double_click <span class="L0S52">FOR </span><span class="L0S52">EVENT </span>double_click <span class="L0S52">OF </span>cl_salv_events_table</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">IMPORTING </span>row column<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">METHODS</span><span class="L0S55">: </span>on_link_click <span class="L0S52">FOR </span><span class="L0S52">EVENT </span>link_click <span class="L0S52">OF </span>cl_salv_events_table</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">IMPORTING </span>row column<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDCLASS</span><span class="L0S55">. </span><span class="L0S31">"lcl_handle_events DEFINITION</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Class (Implementation) lcl_handle_events</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* Text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">DATA </span><span class="L0S55">: </span>gr_table <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_table<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_columns <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_columns_table<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_column <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_column_table<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_functions <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_functions<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_container_head <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_gui_custom_container<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_handle_event <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>lcl_handle_events<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_event <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_events_table<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">CLASS </span>lcl_handle_events <span class="L0S52">IMPLEMENTATION</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">METHOD </span>on_user_command<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">DATA</span><span class="L0S55">: </span>lr_selections <span class="L0S52">TYPE </span><span class="L0S52">REF </span><span class="L0S52">TO </span>cl_salv_selections<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> li_rows <span class="L0S52">TYPE </span>salv_t_row<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> l_row <span class="L0S52">TYPE </span><span class="L0S52">i</span><span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> l_output <span class="L0S52">TYPE </span>ty_equip<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> l_message <span class="L0S52">TYPE </span>string<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> l_refresh <span class="L0S52">TYPE </span>flag<span class="L0S55">,</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> l_ucomm <span class="L0S52">TYPE </span>syucomm<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">FIELD-SYMBOLS</span><span class="L0S55">: </span><output> <span class="L0S52">TYPE </span>ty_equip<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CLEAR </span>l_refresh<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CASE </span>e_salv_function<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">WHEN </span><span class="L0S33">'ADVHAN'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> lr_selections <span class="L0S55">= </span>gr_table<span class="L0S70">-></span>get_selections<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> li_rows <span class="L0S55">= </span>lr_selections<span class="L0S70">-></span>get_selected_rows<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">LOOP </span><span class="L0S52">AT </span>li_rows <span class="L0S52">INTO </span>l_row<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CLEAR </span>l_output<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">READ </span><span class="L0S52">TABLE </span>gt_equip <span class="L0S52">INDEX </span>l_row <span class="L0S52">into </span>l_output<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <span class="L0S52">EQ </span><span class="L0S32">0</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> l_output<span class="L0S70">-</span>advisor_action <span class="L0S55">= </span><span class="L0S33">'TRUE'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">MODIFY </span>gt_equip <span class="L0S52">FROM </span>l_output <span class="L0S52">INDEX </span>l_row <span class="L0S52">TRANSPORTING </span>advisor_action<span class="L0S55">.</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* CALL SCREEN 1000.</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDIF</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDLOOP</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* EXPORTING</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* wait = abap_true.</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDCASE</span><span class="L0S55">.</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* IF l_refresh EQ abap_true.</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* PERFORM refresh.</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* ENDIF.</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDMETHOD</span><span class="L0S55">. </span><span class="L0S31">"on_user_command</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">METHOD </span>on_double_click<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDMETHOD</span><span class="L0S55">. </span><span class="L0S31">"on_double_click</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">METHOD </span>on_link_click<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CASE </span>column<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">WHEN </span><span class="L0S33">'EQUNR'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">PERFORM </span>call_va03 <span class="L0S52">USING </span>row<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">WHEN </span><span class="L0S33">'EQART'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">PERFORM </span>call_vl03n <span class="L0S52">USING </span>row<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDCASE</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDMETHOD</span><span class="L0S55">. </span><span class="L0S31">"on_link_click</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDCLASS</span><span class="L0S55">. </span><span class="L0S31">"lcl_handle_events IMPLEMENTATION</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">START-OF-SELECTION</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">SELECT </span>equi<span class="L0S70">~</span>equnr equi<span class="L0S70">~</span>eqart equi<span class="L0S70">~</span>serge equi<span class="L0S70">~</span>objnr</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> equz<span class="L0S70">~</span>submt equz<span class="L0S70">~</span>ingrp</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> iloa<span class="L0S70">~</span>iloan</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">INTO </span><span class="L0S52">TABLE </span>gt_equip</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">FROM </span>equi</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> INNER <span class="L0S52">JOIN </span>equz</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">ON </span>equi<span class="L0S70">~</span>equnr <span class="L0S55">= </span>equz<span class="L0S70">~</span>equnr</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> INNER <span class="L0S52">JOIN </span>iloa</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ON </span>equz<span class="L0S70">~</span>iloan <span class="L0S55">= </span>iloa<span class="L0S70">~</span>iloan<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">DELETE </span>gt_equip <span class="L0S52">WHERE </span>serge <span class="L0S55">= </span>space<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SORT </span>gt_equip <span class="L0S52">BY </span>equnr<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">END-OF-SELECTION</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CALL </span><span class="L0S52">SCREEN </span><span class="L0S32">1000</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*CALL METHOD cl_salv_table=>factory</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* IMPORTING</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* r_salv_table = gr_table</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* CHANGING</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* t_table = gt_equip.</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Module STATUS_1000 OUTPUT</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">MODULE </span>status_1000 <span class="L0S52">OUTPUT</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">PF-STATUS </span><span class="L0S33">'STATUS'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">TITLEBAR </span><span class="L0S33">'FACTORY_ALV_DEMO'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDMODULE</span><span class="L0S55">. </span><span class="L0S31">" STATUS_1000 OUTPUT</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Module DISPLAY_ALV OUTPUT</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">MODULE </span>display_alv <span class="L0S52">OUTPUT</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">Perform </span>show_alv<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDMODULE</span><span class="L0S55">. </span><span class="L0S31">" DISPLAY_ALV OUTPUT</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Module EXIT_1000 INPUT</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">MODULE </span>exit_1000 <span class="L0S52">INPUT</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">CASE </span>SY<span class="L0S70">-</span>UCOMM<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">When </span><span class="L0S33">'EXIT'</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">LEAVE </span><span class="L0S52">TO </span><span class="L0S52">SCREEN </span><span class="L0S32">0</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">Endcase</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDMODULE</span><span class="L0S55">. </span><span class="L0S31">" EXIT_1000 INPUT</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">FORM </span>call_va03 <span class="L0S52">USING </span>p_row<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">DATA </span>l_output <span class="L0S52">TYPE </span>ty_equip<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CHECK </span>p_row <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">READ </span><span class="L0S52">TABLE </span>gt_equip <span class="L0S52">INDEX </span>p_row <span class="L0S52">INTO </span>l_output<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">PARAMETER </span><span class="L0S52">ID </span><span class="L0S33">'AUN' </span><span class="L0S52">FIELD </span>l_output<span class="L0S70">-</span>equnr<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CALL </span><span class="L0S52">TRANSACTION </span><span class="L0S33">'VA03' </span><span class="L0S52">AND </span><span class="L0S52">SKIP </span><span class="L0S52">FIRST </span><span class="L0S52">SCREEN</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" CALL_VA03</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Form CALL_VL03N</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* -->P_ROW text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">FORM </span>call_vl03n <span class="L0S52">USING </span>p_row<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">DATA </span>l_output <span class="L0S52">TYPE </span>ty_equip<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CHECK </span>p_row <span class="L0S52">IS </span><span class="L0S52">NOT </span><span class="L0S52">INITIAL</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">READ </span><span class="L0S52">TABLE </span>gt_equip <span class="L0S52">INDEX </span>p_row <span class="L0S52">INTO </span>l_output<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">PARAMETER </span><span class="L0S52">ID </span><span class="L0S33">'VL' </span><span class="L0S52">FIELD </span>l_output<span class="L0S70">-</span>eqart<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CALL </span><span class="L0S52">TRANSACTION </span><span class="L0S33">'VL03N' </span><span class="L0S52">AND </span><span class="L0S52">SKIP </span><span class="L0S52">FIRST </span><span class="L0S52">SCREEN</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" CALL_VL03N</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*& Form SHOW_ALV</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* --> p1 text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* <-- p2 text</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">FORM </span>show_alv <span class="L0S55">.</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*IF gr_container_head IS INITIAL.</span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">CREATE </span>OBJECT gr_container_head</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">EXPORTING</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> container_name <span class="L0S55">= </span><span class="L0S33">'C_CONT1'</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">EXCEPTIONS</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> cntl_error <span class="L0S55">= </span><span class="L0S32">1</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> cntl_system_error <span class="L0S55">= </span><span class="L0S32">2</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> create_error <span class="L0S55">= </span><span class="L0S32">3</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> lifetime_error <span class="L0S55">= </span><span class="L0S32">4</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> lifetime_dynpro_dynpro_link <span class="L0S55">= </span><span class="L0S32">5</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">OTHERS </span><span class="L0S55">= </span><span class="L0S32">6</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">IF </span>sy<span class="L0S70">-</span>subrc <> <span class="L0S32">0</span><span class="L0S55">.</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO</span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDIF</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">TRY</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> cl_salv_table<span class="L0S70">=></span>factory<span class="L0S55">(</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">EXPORTING </span>r_container <span class="L0S55">= </span>gr_container_head</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> container_name <span class="L0S55">= </span><span class="L0S33">'C_CONT1'</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span class="L0S52">IMPORTING </span>r_salv_table <span class="L0S55">= </span>gr_table</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CHANGING </span>t_table <span class="L0S55">= </span>gt_equip <span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CATCH </span>cx_salv_msg<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDTRY</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">TRY</span><span class="L0S55">.</span></span></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*set functions</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_functions <span class="L0S55">= </span>gr_table<span class="L0S70">-></span>get_functions<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_functions<span class="L0S70">-></span>set_all<span class="L0S55">( </span>abap_true <span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* add function</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_functions<span class="L0S70">-></span>add_function<span class="L0S55">(</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> name <span class="L0S55">= </span><span class="L0S33">'ADVHAN'</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">icon </span><span class="L0S55">= </span><span class="L0S33">'@BB@'</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">text </span><span class="L0S55">= </span><span class="L0S33">'Advisor'</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> tooltip <span class="L0S55">= </span><span class="L0S33">'Handled by advisor'</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">position </span><span class="L0S55">= </span>if_salv_c_function_position<span class="L0S70">=></span>right_of_salv_functions <span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*set column</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_columns <span class="L0S55">= </span>gr_table<span class="L0S70">-></span>get_columns<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_columns<span class="L0S70">-></span>set_optimize<span class="L0S55">( </span>abap_true <span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* set hotspot</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_column ?= gr_columns<span class="L0S70">-></span>get_column<span class="L0S55">( </span><span class="L0S33">'EQUNR' </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_column<span class="L0S70">-></span>set_cell_type<span class="L0S55">( </span>if_salv_c_cell_type<span class="L0S70">=></span><span class="L0S52">hotspot </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_column ?= gr_columns<span class="L0S70">-></span>get_column<span class="L0S55">( </span><span class="L0S33">'EQART' </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_column<span class="L0S70">-></span>set_cell_type<span class="L0S55">( </span>if_salv_c_cell_type<span class="L0S70">=></span><span class="L0S52">hotspot </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CATCH </span>cx_salv_not_found<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CATCH </span>cx_salv_wrong_call<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CATCH </span>cx_salv_existing<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CATCH </span>cx_salv_data_error<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">ENDTRY</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">* register events</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> gr_event <span class="L0S55">= </span>gr_table<span class="L0S70">-></span>get_event<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">CREATE </span>OBJECT gr_handle_event<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">HANDLER </span>gr_handle_event<span class="L0S70">-></span>on_user_command <span class="L0S52">FOR </span>gr_event<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">HANDLER </span>gr_handle_event<span class="L0S70">-></span>on_double_click <span class="L0S52">FOR </span>gr_event<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"> <span class="L0S52">SET </span><span class="L0S52">HANDLER </span>gr_handle_event<span class="L0S70">-></span>on_link_click <span class="L0S52">FOR </span>gr_event<span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*Display the ALV table.</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">gr_table<span class="L0S70">-></span>display<span class="L0S55">( </span><span class="L0S55">)</span><span class="L0S55">.</span></span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span class="L0S31" style="font-family: "verdana" , sans-serif; font-size: x-small;">*Endif.</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span class="L0S52">ENDFORM</span><span class="L0S55">. </span><span class="L0S31">" SHOW_ALV</span>
</span></span></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-57580052249704228042014-10-14T23:01:00.000-07:002016-06-13T23:41:32.907-07:00BOM Hierarical Report sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">
</span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* Author : JATIN SINGHAL *</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* Date : 17.06.2014 *</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">REPORT </span></span><span style="font-size: x-small;">yj_bom_rep_alv_hier </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE-ID </span></span><span style="font-size: x-small;">ymsg</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*INCLUDE y_inc_bom_hier_alv.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE-POOLS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">:</span></span><span style="font-size: x-small;">slis</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">ty_header</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
matnr </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
matkl </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">kunag</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
werks </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">werks_d</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
stlal </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stalt</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
stktx </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stktx</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
bmeng </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">basmn</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
bmein </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">basme</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
datuv </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">datuv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
andat </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">andat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
annam </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">annam</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
aedat </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">aedat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
aenam </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">aenam</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">ty_header</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">w_header </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">ty_header</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
t_header </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE STANDARD TABLE OF </span></span><span style="font-size: x-small;">ty_header</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">ty_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
matnr </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
posnr </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sposn</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
postp </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">postp</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
idnrk </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">idnrk</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
menge </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">kmpmg</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
meins </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">kmpme</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
potx1 </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">potx1</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
potx2 </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">potx2</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
sanin </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sanin</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
erskz </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">erskz</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* yystand_comp type mara-yystand_comp,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* YYPART_MATERIAL type mara-YYPART_MATERIAL,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* YYPART_COMMENT type mara-YYPART_COMMENT,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* normt TYPE mara-normt,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* mfrnr TYPE mara-mfrnr,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* mfrpn TYPE mara-mfrpn,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">ty_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">w_item </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">ty_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
t_item </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE STANDARD TABLE OF </span></span><span style="font-size: x-small;">ty_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">ty_mast</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
matnr </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
werks </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">werks_d</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
stlan </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stlan</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
stlal </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stlal</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
matkl </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">matkl</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">ty_mast</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">it_mast </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE TABLE OF </span></span><span style="font-size: x-small;">ty_mast</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
wa_mast </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">ty_mast</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">gs_top </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">cstmat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gt_stb </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE TABLE OF </span></span><span style="font-size: x-small;">stpox</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_stb </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE LINE OF </span></span><span style="font-size: x-small;">gt_stb</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_keyinfo </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_keyinfo_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_fieldcat_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
t_fcat </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_t_fieldcat_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_layout </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_layout_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CONSTANTS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">c_header </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_tabname </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">VALUE </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'w_header'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
c_item </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_tabname </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">VALUE </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'w_item'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">gv_matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gv_werks </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">werks_d</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_stpov </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE TABLE OF </span></span><span style="font-size: x-small;">stpov</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECTION-SCREEN BEGIN OF BLOCK </span></span><span style="font-size: x-small;">b1 </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WITH FRAME TITLE text</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">001</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECT-OPTIONS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">s_matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR </span></span><span style="font-size: x-small;">gv_matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
s_werks </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR </span></span><span style="font-size: x-small;">gv_werks</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PARAMETERS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">p_stlal </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stlal </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DEFAULT </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'1'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
p_stlan </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">stlan </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DEFAULT </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'4'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECTION-SCREEN END OF BLOCK </span></span><span style="font-size: x-small;">b1</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AT SELECTION-SCREEN ON </span></span><span style="font-size: x-small;">s_matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Validate Material Range</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">chk_material</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AT SELECTION-SCREEN ON </span></span><span style="font-size: x-small;">s_werks</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Validate Plant Range</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">chk_werks</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AT SELECTION-SCREEN ON </span></span><span style="font-size: x-small;">p_stlan</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Validate Bom Usage</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">chk_usage</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
START</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">SELECTION</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Determine Material Bom Link</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">get_material_bom_link</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Get data for each Material Plant</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LOOP AT </span></span><span style="font-size: x-small;">it_mast </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">wa_mast </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">get_data </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">USING </span></span><span style="font-size: x-small;">wa_mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">matnr wa_mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">werks wa_mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">stlal wa_mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">stlan</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDLOOP</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Display O/P using ALV list</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">display_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">get_data </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">USING </span></span><span style="font-size: x-small;">matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">matnr werks </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">werks_d stlal </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stlal stlan </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">stlan</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL FUNCTION </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CS_BOM_EXPL_MAT_V2'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">EXPORTING</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* aumng = 'X'</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
capid </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'PP01'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
cuobj </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">000000000000000</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
datuv </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">datum<br />
</span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">* emeng = '2.000'</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
mbwls </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
mktls </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
mehrs </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
mmory </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'1'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
mtnrv </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">matnr<br />
stlal </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">stlal<br />
stlan </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">stlan<br />
stpst </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'0'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
svwvo </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
werks </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">werks<br />
vrsvo </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">IMPORTING</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
topmat </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">gs_top<br />
</span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">* DSTST =</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">TABLES</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
stb </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">gt_stb<br />
</span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">* MATCAT = gt_matca</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">EXCEPTIONS</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
alt_not_found </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">1</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
call_invalid </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
material_not_found </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
missing_authorization </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
no_bom_found </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">5</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
no_plant_data </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">6</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
no_suitable_bom_found </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">7</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
conversion_error </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">8</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OTHERS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">9</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE ID </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgty </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">NUMBER </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">msgno<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WITH </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv1 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv2 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv3 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv4</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MOVE-CORRESPONDING </span></span><span style="font-size: x-small;">gs_top </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">w_header</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_header </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_header</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LOOP AT </span></span><span style="font-size: x-small;">gt_stb </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">w_stb</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MOVE-CORRESPONDING </span></span><span style="font-size: x-small;">w_stb </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">w_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_item </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDLOOP</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">build_fieldcat </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_keyinfo</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">header01 </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATNR'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_keyinfo</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">item01 </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATNR'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INCLUDE </span></span><span style="font-size: x-small;">y_inc_build_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" BUILD_FIELDCAT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*to expand the header table for item details</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">build_layout </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_layout</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">expand_fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'EXPAND'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_layout</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">window_titlebar </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Hierarchical ALV list display'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* it_layout-lights_tabname = 'IT_DD03L'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_layout</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">colwidth_optimize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" build_layout</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">display_alv </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*SORT t_item BY matnr.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*SORT t_header BY matnr.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">build_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">build_layout</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL FUNCTION </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'REUSE_ALV_HIERSEQ_LIST_DISPLAY'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">EXPORTING</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_fieldcat </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">t_fcat<br />
i_tabname_header </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
i_tabname_item </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
is_keyinfo </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">w_keyinfo<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TABLES</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
t_outtab_header </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">t_header<br />
t_outtab_item </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">t_item</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Form CHK_MATERIAL</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">chk_material </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">s_matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IS NOT INITIAL</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">SELECT SINGLE </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">matnr<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">mara<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">gv_matnr<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span><span style="font-size: x-small;">s_matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE </span></span><span style="font-size: x-small;">e001</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" CHK_MATERIAL</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Form CHK_WERKS</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">chk_werks </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">s_werks </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IS NOT INITIAL</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">SELECT SINGLE </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">werks<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">t001w<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">gv_werks<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">werks </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span><span style="font-size: x-small;">s_werks</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE </span></span><span style="font-size: x-small;">e002</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" CHK_WERKS</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Form CHK_USAGE</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">chk_usage </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">p_stlan </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IS NOT INITIAL</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">SELECT SINGLE </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">stlan<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">t416<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">p_stlan<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">stlan </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">p_stlan</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE </span></span><span style="font-size: x-small;">e003</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" CHK_USAGE</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Form GET_MATERIAL_BOM_LINK</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">get_material_bom_link </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECT </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">matnr mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">werks mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">stlan mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">stlal mara</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">matkl<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO TABLE </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">it_mast<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span><span style="font-size: x-small;">mast </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AS </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">mast<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">JOIN </span></span><span style="font-size: x-small;">mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AS </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">mara<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ON </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">matnr </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">mara</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">matnr<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">s_matnr<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AND </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">werks </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">s_werks<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AND </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">stlan </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">p_stlan<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AND </span></span><span style="font-size: x-small;">mast</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">~</span></span><span style="font-size: x-small;">stlal </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">p_stlal</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SORT </span></span><span style="font-size: x-small;">it_mast </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BY </span></span><span style="font-size: x-small;">matnr werks </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"stlan stlal.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" GET_MATERIAL_BOM_LINK</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Form VALIDATIONS_ON_FIELDS</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><br />
<em><span style="color: grey; font-family: "verdana"; font-size: x-small;"></span></em><br />
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"><br /></span></span><span style="font-size: x-small;">
</span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Include Y_INC_BUILD_FIELDCAT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">1</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATNR'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Material Number'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATKL'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Material Group'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'WERKS'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Plant'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'STLAL'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Alternative BOM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">5</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BMENG'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Base quantity'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">6</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'DATUV'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Valid from date'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">7</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ANDAT'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Created on'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">8</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ANNAM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Created by'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">9</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'AEDAT'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Changed on'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">10</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'AENAM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Changed by'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_HEADER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">11</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'POSTP'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Item Category (Bill of Material)'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">12</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IDNRK'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BOM component'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">13</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MENGE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_l </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Component quantity'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">14</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MEINS'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Component unit of measure'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">15</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'POTX1'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BOM Item Text (Line 1)'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">16</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'POTX2'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BOM item text (line 2)'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">17</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'SANIN'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Indicator: item relevant to plant maintenance'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">18</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ERSKZ'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Indicator: spare part'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'W_ITEM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Clear </span></span><span style="font-size: x-small;">w_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><br />
<span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;"></span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><br /></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-81266577835171676242014-10-14T22:56:00.001-07:002014-10-14T22:56:37.945-07:00Hierarical ALV <div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;"><span style="color: black;">R</span>EPORT </span></span><span style="font-size: x-small;">Y_ALV_HIERARICAL_LIST_DISPLAY</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">POOLS</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">slis</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">icon</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*structure declaration for table details</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">ty_dd02l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">icon type </span></span><span style="font-size: x-small;">icon_d</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
tabname </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">tabname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
tabclass </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">tabclass</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
contflag </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">contflag</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
actflag </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">actflag</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
mainflag </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">maintflag</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
buffered </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">buffered</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
as4user </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">as4user</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
as4date </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">as4date</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
as4time </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">as4time</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
expand</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: Verdana, sans-serif; font-size: x-small;">,</span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">ty_dd02l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*internal table and wa decln for table details</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">it_dd02l </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE STANDARD TABLE OF </span></span><span style="font-size: x-small;">ty_dd02l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_dd02l </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">ty_dd02l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*structure declarations for field details</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">ty_dd03l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
tabname </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">tabname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fieldname </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">fieldname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
keyflag </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">keyflag</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
mandatory </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">mandatory</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
checktable </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">checktable</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
rollname </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">rollname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">ty_dd03l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*Internal table and wa decln for field details</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">it_dd03l </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE STANDARD TABLE OF </span></span><span style="font-size: x-small;">ty_dd03l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_dd03l </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">ty_dd03l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*data declarations for ALV</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">it_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_t_fieldcat_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_fieldcat_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
it_layout </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">slis_layout_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">key TYPE </span></span><span style="font-size: x-small;">slis_keyinfo_alv</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*Input the tables.User cannot enter a range but can enter any number*of tables one by one in this select-options</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECT-OPTIONS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">s_table </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR </span></span><span style="font-size: x-small;">wa_dd02l</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">NO </span></span><span style="font-size: x-small;">INTERVALS</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*initializatin event</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INITIALIZATION</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*start-of-selection even</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
START</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">SELECTION</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*subroutine to fetch the data from the tables</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">fetch_tabledata</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*subroutine to build alv hierarchy output</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">hierarchyalv_build</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*&</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* Form hierarchyalv_build&---------------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*text------------------------------------------------------------------------></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*p1 text<-- p2 text----------------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">hierarchyalv_build </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*fieldcatalogueper</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERform </span></span><span style="font-size: x-small;">build_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*layoutper</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERform </span></span><span style="font-size: x-small;">build_layout</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*key information for hierarchy</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">perform </span></span><span style="font-size: x-small;">build_key</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*outputperform list_display.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" hierarchyalv_build</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*&</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* Form build_fieldcat*&--------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*------------------------------- text------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*------------------------------------> p1 text<-- p2 text-----------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Form </span></span><span style="font-size: x-small;">build_fieldcat </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">1</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'TABNAME'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Tablename'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">key </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C610'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'TABCLASS'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Tablecategory'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C600'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CONTFLAG'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'DeliveryClass'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C510'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ACTFLAG'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Activationstatus'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C500'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">5</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MAINFLAG'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MaintainenceFlag'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C410'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">6</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BUFFERED'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BufferFlag'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C400'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">7</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'AS4USER'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'User'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C310'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">8</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'AS4DATE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Date'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C300'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">9</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'AS4TIME'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Time'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C210'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">10</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ICON'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ICON'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ICON </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">11</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FIELDNAME'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">key </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Field'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">EMPHASIZE </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C600'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">12</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'KEYFLAG'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Key'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">EMPHASIZE </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C500'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">13</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CHECKTABLE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Checktable'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">EMPHASIZE </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C400'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">14</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MANDATORY'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Mandatory'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">EMPHASIZE </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C300'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">wa_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">15</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ROLLNAME'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">seltext_m </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Dataelement'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_fieldcat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">EMPHASIZE </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C200'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">wa_fieldcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">it_fieldcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" build_fieldcat</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*& Form build_layout*&----------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------- text------------------------------------------------------------------------></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* p1 text<-- p2 text----------------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">build_layout </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*to expand the header table for item details</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
it_layout</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">expand_fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'EXPAND'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
it_layout</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">window_titlebar </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Hierarchical ALV list display'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
it_layout</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">lights_tabname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
it_layout</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">colwidth_optimize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" build_layout</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*& Form build_key*&---------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*------------------------------ text------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*------------> p1 text<-- p2 text----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">build_key </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*key infomation for the header and item table</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">key</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">header01 </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'TABNAME'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">key</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">item01 </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'TABNAME'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*" build_key *&---------------------------------------------------------------------*& Form list_display*&-----------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*---------------------------------------------- text----------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*--------------------------------> p1 text<-- p2 text*----------------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">list_display </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* *ALV output</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL FUNCTION </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'REUSE_ALV_HIERSEQ_LIST_DISPLAY'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">EXPORTING</span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
i_callback_program </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">cprog<br />
is_layout </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">it_layout<br />
it_fieldcat </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">it_fieldcat<br />
i_tabname_header </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD02L'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
i_tabname_item </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'IT_DD03L'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
is_keyinfo </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">key</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">TABLES</span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
t_outtab_header </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: Verdana, sans-serif; font-size: x-small;">= </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">it_dd02L<br />
lt_outtab_item </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">it_dd03l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" list_display *&---------------------------------------------------------------------*&</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* Form fetch_tabledata*&---------------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*text------------------------------------------------------------------------> p1 text<-- p2 text----------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* ------------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">fetch_tabledata </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*select table data</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">SELECT </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">tabname<br />
tabclass<br />
contflag<br />
actflag<br />
mainflag<br />
buffered<br />
as4user<br />
as4date<br />
as4time<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">dd02l<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">CORRESPONDING </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FIELDS OF TABLE </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">it_dd02l<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">tabname </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span><span style="font-size: x-small;">s_table</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*select field data</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">it_dd02l[] </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IS NOT INITIAL</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">SELECT </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">tabname<br />
fieldname<br />
keyflag<br />
mandatory<br />
checktable<br />
rollname<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">dd03l<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">CORRESPONDING </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FIELDS OF TABLE </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">it_dd03l<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR ALL </span></span><span style="font-size: x-small;">ENTRIES </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">it_dd02l<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">tabname </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EQ </span></span><span style="font-size: x-small;">it_dd02l</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*adding icon to the header table</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">loop at </span></span><span style="font-size: x-small;">it_dd02l </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">into </span></span><span style="font-size: x-small;">wa_dd02l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">at new </span></span><span style="font-size: x-small;">tabname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa_dd02l</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">icon </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">' '</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"-------------------------------------------->any icon of choice</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODIFY </span></span><span style="font-size: x-small;">it_dd02l </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span><span style="font-size: x-small;">wa_dd02l </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TRANSPORTING icon WHERE </span></span><span style="font-size: x-small;">tabname </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EQ </span></span><span style="font-size: x-small;">wa_dd02l</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">tabname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">wa_dd02l</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endat</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endloop</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" fetch_tabledata</span></span></i></span><br />
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-37063199535209593522014-10-14T22:53:00.000-07:002016-06-13T23:41:01.316-07:00Editable ALV sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">REPORT </span></span><span style="font-size: x-small;">y_oops_alv_edit_pushbutton</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INCLUDE </span></span><span style="font-size: x-small;">y_classes_alv_edit_button</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
START</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">SELECTION</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">data_fetch</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL SCREEN </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">103</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<em><span style="color: grey;">" STATUS_0100 OUTPUT<span style="font-size: x-small;"><span style="font-size: x-small;"></span></span></span></em><span style="font-size: x-small;"><br /></span>
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">status_0103 </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OUTPUT</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SET PF-STATUS </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'STATUS3'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SET TITLEBAR </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'TITLE3'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMODULE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span></span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">display_alv </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OUTPUT</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">o_cust </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IS NOT BOUND</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">CREATE </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">OBJECT o_cust<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
container_name </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CUSTOM1'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">CREATE </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">OBJECT o_alv<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
i_parent </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">o_cust</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">register_edit_event<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING </span></span><span style="font-size: x-small;">i_event_id </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">cl_gui_alv_grid</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">=></span></span><span style="font-size: x-small;">mc_evt_modified</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><br />
<span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><em>" Create field catalogue and layout</em><br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">create_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CHANGING </span></span><span style="font-size: x-small;">gt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<span style="font-family: "times new roman"; font-size: small;"> </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">create_layout </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CHANGING </span></span><span style="font-size: x-small;">gs_layo</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">set_table_for_first_display<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* is_variant = variant</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
is_layout </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">gs_layo<br />
i_save </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'A'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* it_toolbar_excluding = t_toolbar</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* i_structure_name =</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">CHANGING</span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_outtab </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: "verdana" , sans-serif; font-size: x-small;">= </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">it_mara<br />
it_fieldcatalog </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">gt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CREATE </span></span><span style="font-size: x-small;">OBJECT gr_event_handler </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CREATE </span></span><span style="font-size: x-small;">OBJECT event_receiver</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*CREATE OBJECT event_receiver1 .</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SET HANDLER </span></span><span style="font-size: x-small;">gr_event_handler</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span><span style="font-size: x-small;">handle_double_click </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR </span></span><span style="font-size: x-small;">o_alv </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*SET HANDLER event_receiver->handle_data_changed FOR O_ALV..</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*SET HANDLER event_receiver1->handle_toolbar_set FOR o_alv.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*SET HANDLER event_receiver1->handle_user_command FOR o_alv.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ELSE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span><span style="font-size: x-small;">refresh_table_display</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMODULE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">user_command_0103 </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INPUT</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CASE </span></span><span style="font-size: x-small;">ok_code</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BACK' </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LEAVE TO SCREEN </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'EXIT'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LEAVE PROGRAM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'SAVE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">save_database</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'UPDT'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">db_delete</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* CALL METHOD o_alv->REFRESH_TABLE_DISPLAY.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCASE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMODULE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" USER_COMMAND_0100 INPUT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<em><span style="color: grey;">" DATA_FETCH<span style="font-size: x-small;"><span style="font-size: x-small;"></span></span></span></em><span style="font-size: x-small;"><br /></span>
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">data_fetch </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECT </span></span><span style="font-size: x-small;">* </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span><span style="font-size: x-small;">mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO TABLE </span></span><span style="font-size: x-small;">it_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span><span style="font-size: x-small;">s_matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
variant</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">report </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">repid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
variant</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">username </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">uname</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span></span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">create_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CHANGING </span></span><span style="font-size: x-small;">pt_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ls_fcat-coltext = 'Radio Button'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ls_fcat-fieldname = 'RADIO'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ls_fcat-ref_table = 'gt_emp'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ls_fcat-icon = 'X'. "Icons</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ls_fcat-hotspot = 'X'. "Hotspot(Hand Symbol)</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ls_fcat-col_pos = '1'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATNR'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Material'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">18</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">hotspot </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MEINS'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Base Unit'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">edit </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MTART'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Material Type'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">edit </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MBRSH'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Industry Sector'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">edit </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ERSDA'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Created on'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">8</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">edit </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'ERNAM'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Name of person'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">12</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">edit </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATKL'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Material Group'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">outputlen </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">10</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ls_fcat</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">edit </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">ls_fcat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">pt_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">ls_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">create_layout </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CHANGING </span></span><span style="font-size: x-small;">ps_layo </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_layo</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gs_layo</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">zebra </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">handle_double_click </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">USING </span></span><span style="font-size: x-small;">i_row </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">lvc_s_row<br />
i_column </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">lvc_s_col<br />
is_row_no </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_roid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">READ TABLE </span></span><span style="font-size: x-small;">it_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">wa_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INDEX </span></span><span style="font-size: x-small;">is_row_no</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">row_id </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0 </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SET PARAMETER ID </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MAT' </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FIELD </span></span><span style="font-size: x-small;">wa_mara</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CASE </span></span><span style="font-size: x-small;">i_column</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MATNR'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL TRANSACTION </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MM03' </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AND SKIP FIRST SCREEN</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MBLNR'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL TRANSACTION </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'MIGO' </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AND SKIP FIRST SCREEN</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">.<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN OTHERS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCASE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">save_database </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*--- Getting the selected rows index</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">get_selected_rows<br />
<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPORTING </span></span><span style="font-size: x-small;">et_index_rows </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">i_selected_rows</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*--- Through the index capturing the values of selected rows</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LOOP AT </span></span><span style="font-size: x-small;">i_selected_rows </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">w_selected_rows</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">READ TABLE </span></span><span style="font-size: x-small;">it_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">wa_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INDEX </span></span><span style="font-size: x-small;">w_selected_rows</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">index</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EQ </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MOVE-CORRESPONDING </span></span><span style="font-size: x-small;">wa_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">w_modified</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_modified </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">i_modified</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDLOOP</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODIFY </span></span><span style="font-size: x-small;">mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM TABLE </span></span><span style="font-size: x-small;">i_modified</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" SAVE_DATABASE "handle_double_click</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><br />
<br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">db_delete</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="font-size: x-small;">i_selected_rows </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">get_selected_rows<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPORTING </span></span><span style="font-size: x-small;">et_index_rows </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">i_selected_rows</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LOOP AT </span></span><span style="font-size: x-small;">i_selected_rows </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">w_selected_rows</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">READ TABLE </span></span><span style="font-size: x-small;">it_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">wa_mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INDEX </span></span><span style="font-size: x-small;">w_selected_rows</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">index </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DELETE FROM </span></span><span style="font-size: x-small;">mara </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">matnr </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">wa_mara</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE text</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">002 </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'I'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDLOOP</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* Insert Lines.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*------------------------------------------------------</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* Else.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*mt_inserted_rows</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* CALL METHOD o_alv->get_selected_rows</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* IMPORTING et_index_rows = i_selected_rows.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* LOOP AT i_selected_rows INTO w_selected_rows.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* MOVE-CORRESPONDING w_selected_rows TO w_modified.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* APPEND w_modified TO i_modified.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ENDLOOP.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* INSERT mara FROM TABLE i_modified.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*** §9.Refresh your internal tables.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*Endif.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span><span style="font-size: x-small;">refresh_table_display</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*& Form DELETE_ROW</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*FORM delete_row .</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*DATA: lt_rows TYPE lvc_t_row,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* lt_index TYPE lvc_s_row-index,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ls_row TYPE lvc_s_row.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* CALL METHOD o_alv->get_selected_rows</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* IMPORTING</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* et_index_rows = i_deleted_rows.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** SORT lcl_eventhandler=>mt_del_rows BY index DESCENDING. " !!!</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* LOOP AT i_deleted_rows INTO w_deleted_rows.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* DELETE yjdemo INDEX w_deleted_rows-index.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ENDLOOP.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*ENDFORM. " DELETE_ROW</span></span></i><br />
<em><span style="color: grey; font-family: "verdana"; font-size: x-small;"></span></em><br />
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><strong>DECLARATION PART</strong></span></span><br />
<span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><strong>*-------------------------------------------------*</strong><br />
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">o_cust </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_gui_custom_container</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
o_alv </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_gui_alv_grid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_mara </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE TABLE OF </span></span><span style="font-size: x-small;">mara</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
wa_mara </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">mara</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gt_fcat </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gs_layo </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_layo</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ok_code </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">ucomm</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">t_mat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE </span></span><span style="font-size: x-small;">mara</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
variant </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">disvariant</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gv_matnr </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*DATA : ty_toolbar TYPE stb_button.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">e_object </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_alv_event_toolbar_set</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
io_alv_toolbar </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_alv_event_toolbar_set</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">data</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">i_modified </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE STANDARD TABLE OF </span></span><span style="font-size: x-small;">mara</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"For getting modified rows</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_modified </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">mara</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLASS </span></span><span style="font-size: x-small;">lcl_event_handler </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DEFINITION </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PUBLIC SECTION </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br />
</span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">METHODS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">:</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*--Double-click control</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
handle_double_click<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR EVENT </span></span><span style="font-size: x-small;">double_click </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">cl_gui_alv_grid<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPORTING </span></span><span style="font-size: x-small;">e_row e_column es_row_no</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PRIVATE SECTION</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCLASS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"lcl_event_handler DEFINITION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="font-size: x-small;">gr_event_handler </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">lcl_event_handler </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* CLASS lcl_event_handler IMPLEMENTATION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLASS </span></span><span style="font-size: x-small;">lcl_event_handler </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPLEMENTATION </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*--Handle Double Click</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">METHOD </span></span><span style="font-size: x-small;">handle_double_click </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">handle_double_click </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">USING </span></span><span style="font-size: x-small;">e_row e_column es_row_no </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMETHOD </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"handle_double_click</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span>
</span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCLASS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"lcl_event_handler IMPLEMENTATION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLASS </span></span><span style="font-size: x-small;">cl_event_receiver </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DEFINITION</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PUBLIC SECTION</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: "verdana" , sans-serif; font-size: x-small;">METHODS </span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">handle_data_changed<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR EVENT </span></span><span style="font-size: x-small;">data_changed </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">cl_gui_alv_grid<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPORTING </span></span><span style="font-size: x-small;">e_ucomm</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* er_data_changed</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* e_onf4</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* e_onf4_before</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* e_onf4_after</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCLASS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"cl_event_receiver DEFINITION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLASS </span></span><span style="font-size: x-small;">cl_event_receiver </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPLEMENTATION</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">METHOD </span></span><span style="font-size: x-small;">handle_data_changed</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* BREAK-POINT.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*data: lt_index type LVC_T_ROW,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* lt_row type LVC_T_ROID.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="font-size: x-small;">i_selected_rows </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
o_alv</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span><span style="font-size: x-small;">check_changed_data</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">( )</span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">.<br />
<br />
<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">o_alv</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">get_selected_rows<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPORTING</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
et_index_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">i_selected_rows</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* et_row_no = lt_row.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* WHAT FUNCTION CAUSED THIS EVENT???</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMETHOD</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"handle_data_changed</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCLASS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"cl_event_receiver IMPLEMENTATION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*CLASS lcl_events_d0100 DEFINITION DEFERRED.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"event_receiver1 TYPE REF TO lcl_events_d0100,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
event_receiver </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_event_receiver</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
i_selected_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">, </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"Selected Rows</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_selected_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
i_inserted_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
w_inserted_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
i_deleted_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
W_deleted_rows </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_S_row</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*TYPE-POOLS : CNDP.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Select-OPTIONS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">s_matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">for </span></span><span style="font-size: x-small;">gv_matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*CLASS lcl_events_d0100 DEFINITION.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">***</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** PUBLIC SECTION.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** METHODS handle_toolbar_set</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** FOR EVENT toolbar OF cl_gui_alv_grid</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** IMPORTING</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** e_object</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** e_interactive."---user command on clicking a button</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* METHODS handle_user_command.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* FOR EVENT user_command OF cl_gui_alv_grid</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* IMPORTING e_ucomm sender.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ENDMETHOD.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* ENDCLASS. "lcl_events_d0100 DEFINITIONTYPE-POOLS cndp.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*CLASS lcl_events_d0100 IMPLEMENTATION.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** METHOD handle_toolbar_set.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ty_toolbar-function = 'SAVE'. "name of btn to catch click</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ty_toolbar-butn_type = 0.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ty_toolbar-text = 'SAVE'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ty_toolbar-icon = 'icon_save_row'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** APPEND ty_toolbar TO e_object->mt_toolbar.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ENDMETHOD. "handle_toolbar_set</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* METHOD handle_user_command.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** DATA: wr_data_changed TYPE REF TO cl_alv_changed_data_protocol.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* perform delete_row .</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** Perform save_database.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** CALL METHOD o_alv->REFRESH_TABLE_DISPLAY.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ENDCASE.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">** ENDMETHOD. "handle_user_commandENDCLASS.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">**ENDCLASS.</span></span></i><br />
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><br /></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-10406368779967234102014-10-13T23:16:00.005-07:002014-10-13T23:16:53.031-07:00Interactive ALV<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">REPORT </span></span><span style="font-size: x-small;">yj_alv_interactive_oops</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">include </span></span><span style="font-size: x-small;">y_alv_interactive_oops_dec</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
<br />
<br />
START</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">SELECTION</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">SELECT </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">carrid<br />
connid<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span><span style="font-size: x-small;">spfli </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO TABLE </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_spfli<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">where </span></span><span style="font-size: x-small;">carrid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span><span style="font-size: x-small;">s_carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL SCREEN </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">100</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*--------------------------------------------------------------------**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* Module ALV_OUTPUT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">alv_output </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OUTPUT</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">perform </span></span><span style="font-size: x-small;">field_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">CREATE </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">OBJECT r_container<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING </span></span><span style="font-size: x-small;">container_name </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CUSTOM' </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*EXCEPTIONS CNTL_ERROR = 1</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* CNTL_SYSTEM_ERROR = 2</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* CREATE_ERROR = 3</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* LIFETIME_ERROR = 4</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* LIFETIME_DYNPRO_DYNPRO_LINK = 5</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* OTHERS = 6</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;"> MESSAGE ID </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgty </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">NUMBER </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">msgno<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WITH </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv1 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv2 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv3 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv4</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">CREATE </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">OBJECT r_alv_grid<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING </span></span><span style="font-size: x-small;">i_parent </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">r_container</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*EXCEPTIONS ERROR_CNTL_CREATE = 1</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* ERROR_CNTL_INIT = 2</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* ERROR_CNTL_LINK = 3</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* ERROR_DP_CREATE = 4</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* OTHERS = 5 .</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE ID </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgty </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">NUMBER </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">msgno<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WITH </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv1 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv2 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv3 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv4</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">r_alv_grid</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">set_table_for_first_display<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
i_structure_name </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FS_SPFLI'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
is_layout </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: Verdana, sans-serif; font-size: x-small;">= </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">w_lay<br />
<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CHANGING </span></span></span><br />
<span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;"><span style="color: blue;"> </span>it_outtab <span style="color: purple;"><span style="color: purple;">= </span></span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_spfli<br />
it_fieldcatalog </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_cat<br />
<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXCEPTIONS </span></span></span><br />
<span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><span style="color: blue;"> </span>invalid_parameter_combination <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">1</span></span></span><br /><span style="font-family: Verdana, sans-serif;">
program_error </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
too_many_lines </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span></span><span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OTHERS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;"> MESSAGE ID </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgty </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">NUMBER </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">msgno<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WITH </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv1 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv2 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv3 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv4</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMODULE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------**</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* Module STATUS_0100 OUTPUT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">status_0100 </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OUTPUT</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SET PF-STATUS </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BACK'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SET TITLEBAR </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BASIC LIST'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMODULE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" STATUS_0100 OUTPUT*&---------------------------------------------------------------------**&</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*& Module USER_COMMAND_0100 INPUT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">user_command_0100 </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INPUT</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CASE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">ucomm</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'BACK'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LEAVE TO SCREEN </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'EXIT'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LEAVE PROGRAM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHEN </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'SFLIGHT'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">sflight</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* WHEN 'SBOOK'.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* PERFORM SBOOK.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCASE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMODULE</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" USER_COMMAND_0100 INPUT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><br />
<span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">sflight </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">w_lines </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE i</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_lineno </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_row </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_lineno1 </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_cell</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE LINE OF </span></span><span style="font-size: x-small;">w_lineno</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
wa1 </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE LINE OF </span></span><span style="font-size: x-small;">w_lineno1</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">index TYPE i</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fs_spfli </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE LINE OF </span></span><span style="font-size: x-small;">t_spfli</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">r_alv_grid</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">get_selected_rows<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPORTING </span></span><span style="font-size: x-small;">et_index_rows </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">w_lineno</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LOOP AT </span></span><span style="font-size: x-small;">w_lineno </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO </span></span><span style="font-size: x-small;">wa</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">READ TABLE </span></span><span style="font-size: x-small;">t_spfli </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INDEX </span></span><span style="font-size: x-small;">wa</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">index INTO </span></span><span style="font-size: x-small;">fs_spfli </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fs_hide</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">carrid </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">fs_spfli</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fs_hide</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">connid </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">fs_spfli</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">connid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">fs_hide </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_hide</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDLOOP</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF NOT </span></span><span style="font-size: x-small;">t_hide </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IS INITIAL</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-family: Verdana, sans-serif; font-size: x-small;">SELECT </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">carrid<br />
connid<br />
fldate<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FROM </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">sflight<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">INTO TABLE </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_sflight<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FOR ALL </span></span><span style="font-size: x-small;">ENTRIES </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IN </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_hide<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WHERE </span></span><span style="font-size: x-small;">carrid </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">t_hide</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">carrid<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">AND </span></span><span style="font-size: x-small;">connid </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="font-size: x-small;">t_hide</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">connid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">t_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">w_lay</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">perform </span></span><span style="font-size: x-small;">field_cat2</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL METHOD </span></span><span style="font-size: x-small;">r_alv_grid</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-></span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">set_table_for_first_display<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXPORTING </span></span><span style="font-size: x-small;">i_structure_name </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FS_SFLIGHT'</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
is_layout </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-family: Verdana, sans-serif; font-size: x-small;">= </span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">w_lay<br />
<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CHANGING </span></span><span style="font-size: x-small;">it_outtab </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_sflight<br />
it_fieldcatalog </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">t_cat<br />
<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">EXCEPTIONS</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
invalid_parameter_combination </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">1</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
program_error </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
too_many_lines </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OTHERS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IF </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">subrc <> </span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">0</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">MESSAGE ID </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgty </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">NUMBER </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span></span><span style="font-family: Verdana, sans-serif;"><span style="font-size: x-small;">msgno<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">WITH </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv1 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv2 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv3 sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">msgv4</span></span><span style="font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDIF</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDFORM</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" SFLIGHT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*& Form FIELD_CAT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">FIELD_CAT </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CARRID'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CARRID'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_cat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">w_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CONNID'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Connection id'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_cat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">w_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
w_lay</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">grid_title </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FLIGHT SCHEDULE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_lay</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">sel_mode </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" FIELD_CAT</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*& Form FIELD_CAT2</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*&---------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* --> p1 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* <-- p2 text</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">form </span></span><span style="font-size: x-small;">FIELD_CAT2 </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CARRID'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CARRID'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">2</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">key_sel </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">emphasize </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C700'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_cat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">w_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'CONNID'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'Connection id'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">3</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">lzero </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'YES'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">just </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'C'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">key_sel </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'X'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_cat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">w_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fieldname </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FLDATE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">coltext </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FLIGHT DATE'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">col_pos </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">4</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">APPEND </span></span><span style="font-size: x-small;">w_cat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TO </span></span><span style="font-size: x-small;">t_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLEAR </span></span><span style="font-size: x-small;">w_cat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
w_lay</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">grid_title </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">= </span></span><span style="color: #4da619; font-size: x-small;"><span style="color: #4da619; font-size: x-small;">'FLIGHT INFORMATION'</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">endform</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">" FIELD_CAT2</span></span></i></span><br />
<em><span style="color: grey; font-family: Verdana; font-size: x-small;"></span></em><br />
<em><span style="color: grey; font-family: Verdana; font-size: x-small;"></span></em><br />
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">include </span></span><span style="font-size: x-small;">y_alv_interactive_oops_dec</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /></span>*-----------------------------------------------------------------------*</span><br /></span><br />
<span style="font-size: x-small;"><br />
</span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">type_s_spfli</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
carrid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">spfli</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
connid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">spfli</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">connid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">type_s_spfli</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">type_s_sflight</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
carrid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sflight</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
connid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sflight</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">connid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fldate </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sflight</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">fldate</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">type_s_sflight</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*TYPES: BEGIN OF type_s_sbook,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* carrid TYPE sbook-carrid,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* connid TYPE sbook-connid,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* fldate TYPE sbook-fldate,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* bookid TYPE sbook-bookid,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">*END OF type_s_sbook.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPES</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">BEGIN OF </span></span><span style="font-size: x-small;">type_s_hide</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
carrid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sflight</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
connid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sflight</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">connid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">END OF </span></span><span style="font-size: x-small;">type_s_hide</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br />
<br />
<br />
</span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: *</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">fs_spfli TYPE type_s_spfli,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fs_sflight </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">type_s_sflight</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* fs_sbook TYPE type_s_sbook,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
fs_hide </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">type_s_hide</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">r_container </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_gui_custom_container</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
r_alv_grid </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_gui_alv_grid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* r_container1 TYPE REF TO cl_gui_custom_container,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* r_alv_grid1 TYPE REF TO cl_gui_alv_grid.</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">t_spfli </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE STANDARD TABLE OF </span></span><span style="font-size: x-small;">type_s_spfli</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
t_sflight </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE STANDARD TABLE OF </span></span><span style="font-size: x-small;">fs_sflight</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: Verdana, sans-serif; font-size: x-small;">* t_sbook LIKE STANDARD TABLE OF fs_sbook,</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
t_hide </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE TABLE OF </span></span><span style="font-size: x-small;">fs_hide</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">:</span></span><span style="font-size: x-small;">t_cat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_cat </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_lay </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_layo</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
w_sort </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_sort</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
t_sort </span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_sort</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br />
<br />
</span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="font-size: x-small;">gv_carrid </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">spfli</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: Verdana, sans-serif;">
<br />
</span></span><span style="font-family: Verdana, sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">SELECT-OPTIONS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">s_CARRID </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">for </span></span><span style="font-size: x-small;">gv_carrid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><br />
<span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;"></span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0tag:blogger.com,1999:blog-170215368234709761.post-77237621758947155852014-10-13T22:56:00.004-07:002016-06-13T23:40:46.203-07:00ALV Double Click event sap abap<div dir="ltr" style="text-align: left;" trbidi="on">
<i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;"><br /></span><span style="font-family: "verdana" , sans-serif;"></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">REPORT </span></span><span style="font-size: x-small;">yj_interactive_alv_oops</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLASS </span></span><span style="font-size: x-small;">lcl_event_handler </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DEFINITION </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PUBLIC SECTION </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">METHODS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">:</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*--Double-click control</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
handle_double_click</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;"><span style="color: black;"> </span>FOR EVENT </span></span><span style="font-size: x-small;">double_click </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF </span></span></span><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">cl_gui_alv_grid<br />
</span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;"> IMPORTING </span></span><span style="font-size: x-small;">e_row e_column es_row_no</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PRIVATE SECTION</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCLASS</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"lcl_event_handler DEFINITION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">* CLASS lcl_event_handler IMPLEMENTATION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*----------------------------------------------------------------------*</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CLASS </span></span><span style="font-size: x-small;">lcl_event_handler </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">IMPLEMENTATION </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-family: "verdana" , sans-serif; font-size: x-small;">*--Handle Double Click</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">METHOD </span></span><span style="font-size: x-small;">handle_double_click </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">handle_double_click </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">USING </span></span><span style="font-size: x-small;">e_row e_column es_row_no </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDMETHOD </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"handle_double_click</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">ENDCLASS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">. </span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">"lcl_event_handler IMPLEMENTATION</span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">o_cust </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_gui_custom_container</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
o_alv </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">cl_gui_alv_grid</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
it_mara </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE TABLE OF </span></span><span style="font-size: x-small;">mara</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
wa_mara </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">mara</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gt_fcat </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_t_fcat</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gs_layo </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">lvc_s_layo</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
ok_code </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">sy</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">ucomm</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="font-size: x-small;">gr_event_handler </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE REF TO </span></span><span style="font-size: x-small;">lcl_event_handler </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">DATA </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">t_mat </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">LIKE </span></span><span style="font-size: x-small;">mara</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
variant </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">TYPE </span></span><span style="font-size: x-small;">disvariant</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">,</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
gv_matnr </span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">type </span></span><span style="font-size: x-small;">matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">Select-OPTIONS </span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">: </span></span><span style="font-size: x-small;">s_matnr </span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">for </span></span><span style="font-size: x-small;">gv_matnr</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;">START</span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">OF</span></span><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;">-</span></span><span style="font-size: x-small;">SELECTION</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
</span></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">PERFORM </span></span><span style="font-size: x-small;">data_fetch</span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">CALL SCREEN </span></span><span style="color: #3399ff; font-size: x-small;"><span style="color: #3399ff; font-size: x-small;">102</span></span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
<br />
<br />
</span><span style="font-family: "verdana" , sans-serif;"><em><span style="color: grey;">" DATA_FETCH</span></em>
<br />
</span></span><span style="font-family: "verdana" , sans-serif;"><span style="color: blue; font-size: x-small;"><span style="color: blue; font-size: x-small;">FORM </span></span><span style="font-size: x-small;">data_fetch </span><span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;">.</span></span></span><span style="font-size: x-small;"><br /><span style="font-family: "verdana" , sans-serif;">
</span></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"> <span style="color: blue;"><span style="color: blue;">SELECT </span></span>* <span style="color: blue;"><span style="color: blue;">FROM </span></span>mara <span style="color: blue;"><span style="color: blue;">INTO TABLE </span></span>it_mara <span style="color: blue;"><span style="color: blue;">WHERE </span></span>matnr <span style="color: blue;"><span style="color: blue;">IN </span></span>s_matnr<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
variant<span style="color: grey;"><span style="color: grey;">-</span></span><span style="color: blue;"><span style="color: blue;">report </span></span><span style="color: purple;"><span style="color: purple;">= </span></span>sy<span style="color: grey;"><span style="color: grey;">-</span></span>repid<span style="color: purple;"><span style="color: purple;">.</span></span><br />
variant<span style="color: grey;"><span style="color: grey;">-</span></span>username <span style="color: purple;"><span style="color: purple;">= </span></span>sy<span style="color: grey;"><span style="color: grey;">-</span></span>uname<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">ENDFORM</span></span><span style="color: purple;"><span style="color: purple;">. </span></span><br />
<br />
<br />
<em><span style="color: grey;">" STATUS_0100 OUTPUT</span></em><br />
<br />
<span style="color: blue;"><span style="color: blue;">MODULE </span></span>status_0102 <span style="color: blue;"><span style="color: blue;">OUTPUT</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">SET PF-STATUS </span></span><span style="color: #4da619;"><span style="color: #4da619;">'STATUS1'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">SET TITLEBAR </span></span><span style="color: #4da619;"><span style="color: #4da619;">'TITLE1'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">ENDMODULE</span></span><span style="color: purple;"><span style="color: purple;">. </span></span><br />
<br />
</span><br />
<span style="font-size: x-small;"><em><span style="color: grey; font-family: "verdana" , sans-serif;">" DISPLAY OUTPUT</span></em></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;"></span><br />
<span style="font-family: "verdana" , sans-serif; font-size: x-small;">
<span style="color: blue;"><span style="color: blue;">MODULE </span></span>display_alv <span style="color: blue;"><span style="color: blue;">OUTPUT</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">CREATE </span></span>OBJECT o_cust<br />
<span style="color: blue;"><span style="color: blue;">EXPORTING</span></span><br />
container_name <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'CUSTOM1'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">CREATE </span></span>OBJECT o_alv<br />
<span style="color: blue;"><span style="color: blue;">EXPORTING</span></span><br />
i_parent <span style="color: purple;"><span style="color: purple;">= </span></span>o_cust<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
</span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">PERFORM </span></span>create_fcat <span style="color: blue;"><span style="color: blue;">CHANGING </span></span>gt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
</span></span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">PERFORM </span></span>create_layout <span style="color: blue;"><span style="color: blue;">CHANGING </span></span>gs_layo<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
</span></span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">CALL METHOD </span></span>o_alv<span style="color: grey;"><span style="color: grey;">-></span></span>set_table_for_first_display<br />
<span style="color: blue;"><span style="color: blue;">EXPORTING</span></span><br />
is_variant <span style="color: purple;"><span style="color: purple;">= </span></span>variant<br />
is_layout <span style="color: purple;"><span style="color: purple;">= </span></span>gs_layo<br />
i_save <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'A'</span></span><br />
<br />
<i><span style="color: grey;"><span style="color: grey;">* i_structure_name =</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
</span></span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">CHANGING</span></span><br />
it_outtab <span style="color: purple;"><span style="color: purple;">= </span></span>it_mara<br />
it_fieldcatalog <span style="color: purple;"><span style="color: purple;">= </span></span>gt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
</span></span><span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">CREATE </span></span>OBJECT gr_event_handler <span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;"></span></span></span></span><br />
<span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">SET HANDLER </span></span>gr_event_handler<span style="color: grey;"><span style="color: grey;">-></span></span>handle_double_click <span style="color: blue;"><span style="color: blue;">FOR </span></span>o_alv <span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">ENDMODULE</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<br />
<em><span style="color: grey;">" USER_COMMAND_0100 INPUT</span></em><br />
<span style="color: blue;"><span style="color: blue;">MODULE </span></span>user_command_0102 <span style="color: blue;"><span style="color: blue;">INPUT</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">CASE </span></span>ok_code<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">WHEN </span></span><span style="color: #4da619;"><span style="color: #4da619;">'BACK' </span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">LEAVE TO SCREEN </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">0</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br /><br />
<span style="color: blue;"><span style="color: blue;">WHEN </span></span><span style="color: #4da619;"><span style="color: #4da619;">'EXIT'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">LEAVE PROGRAM</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">ENDCASE</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">ENDMODULE</span></span><span style="color: purple;"><span style="color: purple;">. </span></span>
<br />
<br />
</span></span><br />
<span style="font-size: x-small;"><span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">FORM </span></span>create_fcat <span style="color: blue;"><span style="color: blue;">CHANGING </span></span>pt_fcat <span style="color: blue;"><span style="color: blue;">TYPE </span></span>lvc_t_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">DATA </span></span><span style="color: purple;"><span style="color: purple;">: </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TYPE </span></span>lvc_s_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<br />
<i><span style="color: grey;"><span style="color: grey;">* ls_fcat-coltext = 'Radio Button'.</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
<i><span style="color: grey;"><span style="color: grey;">* ls_fcat-fieldname = 'RADIO'.</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
<i><span style="color: grey;"><span style="color: grey;">** ls_fcat-ref_table = 'gt_emp'.</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
<i><span style="color: grey;"><span style="color: grey;">* ls_fcat-icon = 'X'. "Icons</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
<i><span style="color: grey;"><span style="color: grey;">* ls_fcat-hotspot = 'X'. "Hotspot(Hand Symbol)</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
<i><span style="color: grey;"><span style="color: grey;">* ls_fcat-col_pos = '1'.</span></span></i><span style="color: grey;"><span style="color: grey;"></span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MATNR'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Material'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">18</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MEINS'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Base Unit'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">4</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MTART'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Material Type'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">4</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MBRSH'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Industry Sector'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">2</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'ERSDA'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Created on'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">8</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'ERNAM'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Name of person'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">12</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>fieldname <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MATKL'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>coltext <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'Material Group'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span>outputlen <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">10</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
ls_fcat<span style="color: grey;"><span style="color: grey;">-</span></span><span style="color: blue;"><span style="color: blue;">edit </span></span><span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'X'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">APPEND </span></span>ls_fcat <span style="color: blue;"><span style="color: blue;">TO </span></span>pt_fcat<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">Clear </span></span>ls_fcat<span style="color: purple;"><span style="color: purple;">.</span></span></span></span><br />
<span style="font-size: x-small;"><span style="color: purple;"></span><br /><span style="font-family: "verdana" , sans-serif;">
<span style="color: blue;"><span style="color: blue;">ENDFORM</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
</span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">FORM </span></span>create_layout <span style="color: blue;"><span style="color: blue;">CHANGING </span></span>ps_layo <span style="color: blue;"><span style="color: blue;">TYPE </span></span>lvc_s_layo<span style="color: purple;"><span style="color: purple;">.</span></span><br />
ps_layo<span style="color: grey;"><span style="color: grey;">-</span></span>zebra <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #4da619;"><span style="color: #4da619;">'X'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">ENDFORM</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<br />
<span style="color: blue;"><span style="color: blue;">FORM </span></span>handle_double_click <span style="color: blue;"><span style="color: blue;">USING </span></span>i_row <span style="color: blue;"><span style="color: blue;">TYPE </span></span>lvc_s_row<br />
i_column <span style="color: blue;"><span style="color: blue;">TYPE </span></span>lvc_s_col<br />
is_row_no <span style="color: blue;"><span style="color: blue;">TYPE </span></span>lvc_s_roid<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">READ TABLE </span></span>it_mara <span style="color: blue;"><span style="color: blue;">INTO </span></span>wa_mara <span style="color: blue;"><span style="color: blue;">INDEX </span></span>is_row_no<span style="color: grey;"><span style="color: grey;">-</span></span>row_id <span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">IF </span></span>sy<span style="color: grey;"><span style="color: grey;">-</span></span>subrc <span style="color: purple;"><span style="color: purple;">= </span></span><span style="color: #3399ff;"><span style="color: #3399ff;">0 </span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">SET PARAMETER ID </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MAT' </span></span><span style="color: blue;"><span style="color: blue;">FIELD </span></span>wa_mara<span style="color: grey;"><span style="color: grey;">-</span></span>matnr<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<br />
<span style="color: blue;"><span style="color: blue;">CASE </span></span>i_column<span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">WHEN </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MATNR'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">CALL TRANSACTION </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MM03' </span></span><span style="color: blue;"><span style="color: blue;">AND SKIP FIRST SCREEN</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">WHEN </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MBLNR'</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">CALL TRANSACTION </span></span><span style="color: #4da619;"><span style="color: #4da619;">'MIGO' </span></span><span style="color: blue;"><span style="color: blue;">AND SKIP FIRST SCREEN</span></span><span style="color: purple;"><span style="color: purple;">.</span></span>.<br />
<span style="color: blue;"><span style="color: blue;">WHEN OTHERS</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">ENDCASE</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
<span style="color: blue;"><span style="color: blue;">ENDIF</span></span><span style="color: purple;"><span style="color: purple;">.</span></span><br />
</span><br />
<span style="font-family: "verdana" , sans-serif;"></span><br />
<span style="font-family: "verdana" , sans-serif;"><span style="color: blue;"><span style="color: blue;">ENDFORM </span></span><span style="color: purple;"><span style="color: purple;">. </span></span><i><span style="color: grey;"><span style="color: grey;">"handle_double_click</span></span></i></span><br />
<em><span style="color: grey; font-family: "verdana" , sans-serif;"></span></em><br />
<em><span style="color: grey; font-family: "verdana" , sans-serif;"></span></em><br />
<em><span style="color: grey; font-family: "verdana" , sans-serif;"></span></em><br />
<em><span style="color: #cc0000; font-family: "verdana" , sans-serif;"><strong>Flow logic of screen 102</strong></span></em><br />
<em><span style="color: #cc0000; font-family: "verdana" , sans-serif;"><strong></strong></span></em><br />
<span style="color: #cc0000; font-family: "verdana" , sans-serif; font-size: x-small;"><strong>PROCESS BEFORE </strong></span><span style="color: #cc0000;"><strong><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span style="font-size: x-small;">OUTPUT</span></span><span style="font-size: x-small;"><span style="font-size: x-small;">.</span></span></span></strong></span><span style="font-size: x-small;"><br /><span style="color: #cc0000; font-family: "verdana" , sans-serif;"><strong>
</strong></span></span><span style="color: #cc0000;"><strong><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span style="font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">STATUS_0102</span><span style="font-size: x-small;"><span style="font-size: x-small;">.</span></span></span></strong></span><span style="font-size: x-small;"><br /><span style="color: #cc0000; font-family: "verdana" , sans-serif;"><strong>
</strong></span></span><span style="color: #cc0000;"><strong><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span style="font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">display_alv</span><span style="font-size: x-small;"><span style="font-size: x-small;">.</span></span></span></strong></span><span style="font-size: x-small;"><br /><span style="color: #cc0000; font-family: "verdana" , sans-serif;"><strong>
<br />
PROCESS AFTER </strong></span></span><span style="color: #cc0000;"><strong><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span style="font-size: x-small;">INPUT</span></span><span style="font-size: x-small;"><span style="font-size: x-small;">.</span></span></span></strong></span><span style="font-size: x-small;"><br /><span style="color: #cc0000; font-family: "verdana" , sans-serif;"><strong>
</strong></span></span><span style="color: #cc0000;"><strong><span style="font-family: "verdana" , sans-serif;"><span style="font-size: x-small;"><span style="font-size: x-small;">MODULE </span></span><span style="font-size: x-small;">USER_COMMAND_0102</span><span style="font-size: x-small;"><span style="font-size: x-small;">.</span></span></span></strong></span><br />
<span style="color: purple; font-size: x-small;"><span style="color: purple; font-size: x-small;"></span></span></span><i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></i><span style="color: grey; font-size: x-small;"><span style="color: grey; font-size: x-small;"></span></span></div>
Jatin Singhalhttp://www.blogger.com/profile/08169202372902033210noreply@blogger.com0