
Conclusion :
It is always better to keep an eye on above points while developing / creating AA objects. This blog will help us to skip our 3 man days work and will give the output within seconds. I have tried my level best to make it very clear to achieve this peculiar requirement. I am sure this is going to help us, as many clients does this kind of analysis authorizations.
Thank You
*&---------------------------------------------------------------------*
*& Report ZTEST_AA
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_AA.
TABLES: rsecval, rsectxt, RSECBIAU.
DATA: lstring(255) TYPE C,
lfld(9) TYPE C.
DATA: l_idx TYPE sy-tabix.
TYPES: BEGIN OF ty_str,
lstr(255) TYPE C,
lfld1(6) TYPE C,
lfld2(9) TYPE C,
lfld3(9) TYPE C,
END OF ty_str.
DATA: tstr TYPE TABLE OF ty_str,
lstr TYPE ty_str.
DATA: ts(15) TYPE C,
d(8) TYPE C,
t(6) TYPE C.
d = sy-datum.
t = sy-uzeit.
CONCATENATE d t INTO ts.
data: auth(12) type c,
cnt(6) type c VALUE 'ZGLPC_',
VAL(10) TYPE C value '0000'.
DATA: ST TYPE RSTXT20 VALUE 'GL Profit CTR',
MT TYPE RSTXT40 VALUE 'GL STEP Profit Center',
LT TYPE RSTXT60 VALUE 'GL STEP Profit Center'.
PERFORM UPLOAD_FILE.
loop at tstr INTO lstr.
CONCATENATE st lstr-lfld1 INTO st SEPARATED BY space.
CONCATENATE Mt lstr-lfld1 INTO mt SEPARATED BY space.
CONCATENATE lt lstr-lfld1 INTO lt SEPARATED BY space.
CONCATENATE cnt lstr-lfld1 INTO auth.
CONCATENATE val lstr-lfld1 INTO val.
PERFORM UPD_TBL.
clear: st, mt, lt, val, lstr.
st = 'GL Profit CTR'.
mt = 'GL STEP Profit Center'.
lt = 'GL STEP Profit Center'.
val = '0000'.
ENDLOOP.
WRITE: 'hi'.
*&---------------------------------------------------------------------*
*& Form UPD_TBL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM UPD_TBL .
DATA: trsectxt TYPE TABLE OF rsectxt,
wrsectxt TYPE rsectxt,
trsecval TYPE TABLE OF rsecval,
wrsecval TYPE rsecval,
tRSECBIAU TYPE TABLE OF RSECBIAU,
wRSECBIAU TYPE RSECBIAU.
********************Active version *****************
wRSECBIAU-AUTH = auth.
wRSECBIAU-OBJVERS = 'A'.
wRSECBIAU-OBJSTAT = 'ACT'.
wRSECBIAU-CONTTIMESTMP = '0'.
wRSECBIAU-TSTPNM = 'KMUNAGAP'.
wRSECBIAU-TIMESTMP = ts.
modify rsecbiau FROM wrsecbiau.
CLEAR: wrsecbiau.
********************Modify version *****************
wRSECBIAU-AUTH = auth.
wRSECBIAU-OBJVERS = 'M'.
wRSECBIAU-OBJSTAT = 'ACT'.
wRSECBIAU-CONTTIMESTMP = '0'.
wRSECBIAU-TSTPNM = 'KMUNAGAP'.
wRSECBIAU-TIMESTMP = ts.
modify rsecbiau FROM wrsecbiau.
CLEAR: wrsecbiau.
********************Active version *****************
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = '0TCAACTVT'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = '03'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = '0TCAIPROV'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'CP'.
wrsecval-tcTLOW = '*'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = '0TCAIPROV'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = '0FIGL_R10'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = '0TCAVALID'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'CP'.
wrsecval-tcTLOW = '*'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = 'ZCOSTCTR'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'CP'.
wrsecval-tcTLOW = '*'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = 'ZCO_AREA'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = ':'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = 'ZCO_AREA'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = 'COCE'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = 'ZPROFTCTR'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = val.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'A'.
wrsecval-tcTIOBJNM = 'ZPROFTCTR'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = ':'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
********************Modify version *****************
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = '0TCAACTVT'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = '03'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = '0TCAIPROV'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'CP'.
wrsecval-tcTLOW = '*'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = '0TCAIPROV'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = '0FIGL_R10'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = '0TCAVALID'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'CP'.
wrsecval-tcTLOW = '*'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = 'ZCOSTCTR'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'CP'.
wrsecval-tcTLOW = '*'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = 'ZCO_AREA'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = ':'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = 'ZCO_AREA'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = 'COCE'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = 'ZPROFTCTR'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = val.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
wrsecval-tcTAUTH = auth.
wrsecval-OBJVERS = 'M'.
wrsecval-tcTIOBJNM = 'ZPROFTCTR'.
wrsecval-tcTSIGN = 'I'.
wrsecval-tcTOPTION = 'EQ'.
wrsecval-tcTLOW = ':'.
wrsecval-tcTHIGH = ''.
modify RSECVAL FROM WRSECVAL.
CLEAR: wrsecVAL.
**********Modify version ****************************
wrsectxt-tcTAUTH = auth.
wrsectxt-OBJVERS = 'M'.
wrsectxt-tcTLANGU = 'E'.
wrsectxt-tcTTXTSH = st.
wrsectxt-tcTTXTMD = mt.
wrsectxt-tcTTXTLG = lt.
modify RSECTXT FROM WRSECTXT.
CLEAR: wrsectxt.
*********Active version***********
wrsectxt-tcTAUTH = auth.
wrsectxt-OBJVERS = 'A'.
wrsectxt-tcTLANGU = 'E'.
wrsectxt-tcTTXTSH = st.
wrsectxt-tcTTXTMD = mt.
wrsectxt-tcTTXTLG = lt.
modify RSECTXT FROM WRSECTXT.
CLEAR: wrsectxt.
*****************************************************
ENDFORM. " UPD_TBL
*&---------------------------------------------------------------------*
*& Form UPLOAD_FILE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM UPLOAD_FILE .
***************txt file*****xml transport****
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = 'c:\test.csv'
FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = ','
HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
NO_AUTH_CHECK = ' '
tables
data_tab = tstr
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17 .
IF sy-subrc <> 0.
*Implement suitable error handling here
else.
data: f1(9) type c,
f2(9) type c,
f3(9) type c.
loop at tstr into lstr.
l_idx = sy-tabix.
if l_idx > 0.
split lstr-lstr at ';' into f1 f2 f3.
lstr-lfld1 = f1.
lstr-lfld2 = f2.
lstr-lfld3 = f3.
modify tstr from lstr index l_idx TRANSPORTING lfld1 lfld2 lfld3.
clear: f1, f2, f3.
endif.
ENDLOOP.
ENDIF.
ENDFORM. " UPLOAD_FILE
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
8 | |
7 | |
7 | |
6 | |
5 | |
5 | |
5 | |
5 | |
5 | |
4 |