report zmysql .
tables sscrfields.
selection-screen comment /1(72) p1.
selection-screen comment /1(72) p2.
parameters: lin_1(72) lower case default '"HardCode Here',
lin_2(72) lower case,
lin_3(72) lower case,
lin_4(72) lower case,
lin_5(72) lower case,
lin_6(72) lower case,
lin_7(72) lower case,
lin_8(72) lower case,
lin_9(72) lower case,
lin_a(72) lower case,
lin_b(72) lower case,
lin_c(72) lower case,
lin_d(72) lower case,
lin_e(72) lower case,
lin_f(72) lower case,
lin_0(72) lower case.
selection-screen comment /1(72) p3.
selection-screen comment /1(72) p4.
selection-screen function key 1.
selection-screen function key 2.
* Syntax - Check
data: f(240),
g type i,
h(72).
data: itab(72) occurs 0 with header line.
data: bkp(72) occurs 0 with header line.
initialization.
p1 = p2 = p3 = p4 =
'** NO WARRANTY ** NO RESPONSABILITY ** NO WARRANTY ** '.
move 'Clear' to sscrfields-functxt_01.
move 'Check' to sscrfields-functxt_02.
at selection-screen.
case sscrfields-ucomm.
when 'FC01'.
clear: lin_1, lin_4, lin_5, lin_8, lin_9, lin_0, lin_a, lin_b,
lin_e, lin_d, lin_c, lin_f, lin_2, lin_3, lin_6, lin_7.
when 'FC02'.
perform crear_tabla.
syntax-check for itab message f line g word h.
if sy-subrc ne 0.
message s398(00) with 'MEC!! ' f g h. exit.
else.
message s398(00) with 'Good Job/Luck'.
endif.
endcase.
end-of-selection.
perform crear_sql.
form crear_sql.
perform crear_tabla.
syntax-check for itab message f line g word h.
if sy-subrc ne 0.
message s398(00) with 'MEC!! ' f g h. exit.
endif.
* Histrico - Protect YourSelf!...
read report 'zmysql_test' into bkp.
loop at bkp.
if bkp cp '+rep*rt +mysql++est*' or
bkp cp '*"HardCode Here'.
delete bkp index sy-tabix.
continue.
endif.
check bkp+0(1) ne '*'.
concatenate '*' bkp into bkp.
if sy-subrc ne 0. bkp+0(1) = '*'. endif.
if bkp cp '+rep*rt +mysql++est*'.
delete bkp index sy-tabix.
else.
modify bkp index sy-tabix.
endif.
endloop.
append lines of bkp to itab.
* In God's hands..
insert report 'zmysql_test' from itab state 'A'.
submit zmysql_test and return.
endform.
form crear_tabla.
clear itab. refresh itab.
itab = 'report zmysql_test.'. append itab. "PE
* CSI is over your step...
concatenate '" ' sy-datum '.' sy-uzeit ':' sy-uname into itab.
append itab.
* Only one line to kill, the rest is for comment it...
if not lin_1 is initial. itab = lin_1. append itab. endif.
if not lin_2 is initial. itab = lin_2. append itab. endif.
if not lin_3 is initial. itab = lin_3. append itab. endif.
if not lin_4 is initial. itab = lin_4. append itab. endif.
if not lin_5 is initial. itab = lin_5. append itab. endif.
if not lin_6 is initial. itab = lin_6. append itab. endif.
if not lin_7 is initial. itab = lin_7. append itab. endif.
if not lin_8 is initial. itab = lin_8. append itab. endif.
if not lin_9 is initial. itab = lin_9. append itab. endif.
if not lin_a is initial. itab = lin_a. append itab. endif.
if not lin_b is initial. itab = lin_b. append itab. endif.
if not lin_c is initial. itab = lin_c. append itab. endif.
if not lin_d is initial. itab = lin_d. append itab. endif.
if not lin_e is initial. itab = lin_e. append itab. endif.
if not lin_f is initial. itab = lin_f. append itab. endif.
if not lin_0 is initial. itab = lin_0. append itab. endif.
endform.