‎2008 Aug 06 7:04 AM
Hi Experts
I am getting a short dump error when selecting the records >= current date - 30 see the coding and comment please correct the coding I want to know the ztable records it is important for command interface.
I have 1402345 records available after deleting the records but as the memory is not enough it is giving short dump error
select count(*) from ZINT_TABLE
select count(*) from ZINT_MSGS
select * from zint_data
nto table izint_d2 . "PACKAGE SIZE 20000
where STATUS = 'OK' AND CREATED_ON >= w_date1. " VALUE
endselect.**
-
report z_eslp_command_records.
data: cnt type i.
data: cnt2 type i.
data: cnt3 type i.
data: cnt4 type i.
DATA:
w_date1 like sy-datum .
DATA:
w_date2 like sy-datum.
data: izint_msgs type table of zint_msgs.
data: izint_data type table of zint_data.
data: izint_m2 type table of zint_msgs.
data: izint_d2 type table of zint_data.
INITIALIZATION.
w_date1 = sy-datum - 30.
w_date2 = sy-datum - 30.
select * from zint_data
into table izint_data PACKAGE SIZE 3000
where STATUS = 'OK' AND CREATED_ON <= w_date1. " ZERO
endselect.
select * from zint_msgs
into table izint_msgs PACKAGE SIZE 3000
where CREATED_ON <= w_date2. " ZERO
endselect.
select * from zint_data
into table izint_d2 PACKAGE SIZE 20000
where STATUS = 'OK' AND CREATED_ON >= w_date1. " VALUE
endselect.
select * from zint_msgs
into table izint_m2 PACKAGE SIZE 20000
where CREATED_ON >= w_date2. " VALUE
endselect.
select * from zint_data
into table izint_data2
where STATUS = 'OK' AND CREATED_ON >= CONVERT(CHAR(8), GETDATE() - 30, 112)).
ENDSELECT.
*
select * from zint_msgs
into table izint_msgs2
where CREATED_ON >= CONVERT(CHAR(8), GETDATE() - 30, 112)).
ENDSELECT.
sort izint_data by created_on ascending.
sort izint_msgs by created_on ascending.
sort izint_d2 by created_on ascending.
sort izint_m2 by created_on ascending.
describe table izint_data lines cnt.
describe table izint_msgs lines cnt2.
describe table izint_d2 lines cnt3.
describe table izint_m2 lines cnt4.
write:/ ' Note: THE RECORDS COUNTED SHOULD SHOW ZERO ELSE THE SCRIPT FAILED TO RUN' color 3.
skip.
write:/ '1. Records counted in ZINT_DATA <=current date - 30 :' color 2, cnt color 4.
write:/ '2. Records available in ZINT_DATA >=current date - 30 'color 4, cnt3 color 4 .
skip.
write:/ '2. Records counted in ZINT_MSGS <=current date - 30 :' color 2 , cnt2 color 4.
write:/ '4. Records available in ZINT_MSGS >=current date - 30 'color 4 , cnt4 color 4 .
TOP-OF-PAGE.
WRITE:/55(60) ' WAGNERS INVESTMENT LIMITED '.
WRITE:/50(40) ' Command Interface Data' CENTERED .
WRITE:/50(40) '----
' CENTERED .
FORMAT INTENSIFIED ON.
SKIP.
"FORMAT COLOR COL_HEADING.
ULINE.
FORMAT COLOR 1.
END-OF-PAGE.
‎2008 Sep 11 4:12 AM