topic Re: Problem with ACCP data type field in Application Development and Automation Discussions

Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 18:41:06 GMT

Hello guys,

in my requirement i have to give space/blank when my issue date with '------'. but my issue date data type field is ACCP, because of that it can`t change. i got a runtime message Unable to interpret "------" as a number.

i wnat to modify field with space/blank when issue date field with '------'.

so how can i solve this problem???

please guide me....

Thanks

Jigar

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 18:52:00 GMT

Declare the field as Char.

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 18:56:27 GMT

Hi Amandeep,

i can not change in the table. so How to change runtime data type field from ACCP to CHAR.....

can you guide me please??

Thnaks

Jigar

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 19:13:35 GMT

Can u paste your code. Would like to know if this is standard or custom program. Which table are we referring to ?

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 19:32:35 GMT

Hi Amardeep,

look my below code:

REPORT ZFPOL003 LINE-SIZE 255 MESSAGE-ID ZA.

TABLES : ZPOL,

ZCCODE,

BHDGD,

SSCRFIELDS.

INCLUDE ZSWATCH1.

*{ REPLACE DV1K900042 1

*\DATA: TAB_FILE LIKE FILE OCCURS 0 WITH HEADER LINE.

DATA: TAB_FILE LIKE ZFILE OCCURS 0 WITH HEADER LINE.

*} REPLACE

DATA : BEGIN OF INT_ZPOL OCCURS 1000.

DATA : SYSID(3).

INCLUDE STRUCTURE ZPOL.

DATA : END OF INT_ZPOL.

DATA : BEGIN OF INS_ZPOL OCCURS 1000.

INCLUDE STRUCTURE ZPOL.

DATA : END OF INS_ZPOL.

DATA : BEGIN OF UPD_ZPOL OCCURS 1000.

INCLUDE STRUCTURE ZPOL.

DATA : END OF UPD_ZPOL.

DATA : BEGIN OF INT_ZCCODE OCCURS 1000.

INCLUDE STRUCTURE ZCCODE.

DATA : END OF INT_ZCCODE.

SELECTION-SCREEN BEGIN OF BLOCK 1 WITH FRAME TITLE TEXT-001.

PARAMETERS: P_UPLOAD RADIOBUTTON GROUP ZPL.

PARAMETERS: P_LOAD RADIOBUTTON GROUP ZPL DEFAULT 'X'.

PARAMETERS: P_PATH(50) OBLIGATORY LOWER CASE

DEFAULT '/export/SAPtf/inc/',

P_FILE(50) OBLIGATORY LOWER CASE DEFAULT 'TA80.ZPOL.TXT',

P_BATCH TYPE I OBLIGATORY DEFAULT 10000.

SELECTION-SCREEN SKIP 1.

PARAMETERS: PO_PATH(50) OBLIGATORY LOWER CASE

DEFAULT '/export/SAPtf/wrk/'.

SELECTION-SCREEN SKIP 1.

PARAMETERS: P_DELETE RADIOBUTTON GROUP ZPL.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(45) TEXT-004.

SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS: S_BUKRS FOR ZPOL-BUKRS,

S_ZZPOL FOR ZPOL-ZZPOL.

SELECTION-SCREEN BEGIN OF BLOCK 500 WITH FRAME.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(29) TEXT-501.

PARAMETERS: P_PRINT AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(29) TEXT-502.

PARAMETERS: P_TEST AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(29) TEXT-503.

PARAMETERS: P_SKIP AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK 500.

SELECTION-SCREEN END OF BLOCK 1.

DATA : W_DSN(70) TYPE C,

W_LIN TYPE P,

W_MSG(50) TYPE C,

W_SYSID LIKE INT_ZPOL-SYSID,

W_INPUT_COUNT TYPE I,

W_UPDATED_COUNT TYPE I,

W_SELECTED_COUNT TYPE I,

W_INSERTED_COUNT TYPE I,

W_BUKRS LIKE ZPOL-BUKRS,

W_REM TYPE I,

W_ANS.

AT SELECTION-SCREEN.

IF P_DELETE = 'X'.

clear : p_path, p_file.

DESCRIBE TABLE S_BUKRS LINES W_LIN.

IF W_LIN = 0.

MESSAGE E058.

ENDIF.

IF SSCRFIELDS-UCOMM EQ 'ONLI'

OR SSCRFIELDS-UCOMM EQ 'PRIN'.

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

TEXTLINE1 = 'Do you want to delete ?'

TITEL = 'Confirm Delete'

IMPORTING

ANSWER = W_ANS

EXCEPTIONS

OTHERS = 1.

IF W_ANS <> 'J'.

MESSAGE E035 WITH 'Canceled by user request'.

ENDIF.

*Shiva-Change -01/08/2007 Costom Authorization Check.

*INITIALIZATION.

INCLUDE zauthocheck.

*End.

START-OF-SELECTION.

IF P_DELETE = 'X'.

PERFORM PROCESS_DELETE.

ENDIF.

IF P_UPLOAD = 'X'.

CALL FUNCTION 'UPLOAD'

EXPORTING

FILETYPE = 'ASC'

*{ DELETE ED1K900100 1

*\ IMPORTING

*\ FILENAME = W_DSN

*} DELETE

TABLES

DATA_TAB = INT_ZPOL

EXCEPTIONS

CONVERSION_ERROR = 1

INVALID_TABLE_WIDTH = 2

INVALID_TYPE = 3

NO_BATCH = 4

UNKNOWN_ERROR = 5

OTHERS = 6.

IF SY-SUBRC <> 0.

WRITE:/ 'Upload error Return code = ', SY-SUBRC.

EXIT.

ENDIF.

PERFORM LOAD_INT_TABLES.

ENDIF.

IF P_LOAD = 'X'.

PERFORM DETERMINE_TAB_FILES.

PERFORM LOAD_DATA.

SORT INT_ZPOL BY SYSID DESCENDING

BUKRS ASCENDING

ZZPOL ASCENDING.

DELETE ADJACENT DUPLICATES FROM INT_ZPOL

COMPARING SYSID BUKRS ZZPOL.

PERFORM LOAD_INT_TABLES.

ENDIF.

&----

*& Form PROCESS_INSERT_TABLE

&----

FORM PROCESS_INSERT_TABLE.

DESCRIBE TABLE INS_ZPOL LINES W_LIN.

CHECK W_LIN > 0.

ADD W_LIN TO W_INSERTED_COUNT.

IF P_TEST = ' '.

INSERT ZPOL FROM TABLE INS_ZPOL.

IF SY-SUBRC <> 0.

WRITE:/ 'Update table error'.

ELSE.

write:/ 'inserted ', w_lin.

COMMIT WORK.

ENDIF.

REFRESH INS_ZPOL.

CLEAR INS_ZPOL.

ENDFORM. " PROCESS_INSERT_TABLE

&----

*& Form PROCESS_UPDATE_TABLE

&----

FORM PROCESS_UPDATE_TABLE.

DESCRIBE TABLE UPD_ZPOL LINES W_LIN.

CHECK W_LIN > 0.

IF P_TEST = ' '.

ADD W_LIN TO W_UPDATED_COUNT.

UPDATE ZPOL FROM TABLE UPD_ZPOL.

IF SY-SUBRC <> 0.

WRITE:/ 'Update table error'.

ELSE.

write:/ 'updated ', w_lin.

COMMIT WORK.

ENDIF.

REFRESH UPD_ZPOL.

CLEAR UPD_ZPOL.

ENDFORM.

&----

*& Form PROCESS_DELETE

&----

FORM PROCESS_DELETE.

IF P_TEST = SPACE.

DELETE FROM ZPOL WHERE BUKRS IN S_BUKRS AND

ZZPOL IN S_ZZPOL.

IF SY-SUBRC = 0.

WRITE:/ 'Delete successful'.

ELSE.

WRITE:/ 'Delete error'.

ENDIF.

ELSE.

WRITE:/ 'Records not deleted - test option used'.

ENDIF.

ENDFORM.

TOP-OF-PAGE.

*---- perform batch heading routine -

BHDGD-UNAME = SY-UNAME. "User name

BHDGD-REPID = SY-REPID. "Report id

BHDGD-INIFL = '0'.

FORMAT COLOR COL_HEADING INTENSIFIED ON.

PERFORM BATCH-HEADING(RSBTCHH0).

WRITE :/01 'Co. Pol # I/G',

AT 25 ' Qual S/F Alloc I/Def MVA Broker Agent Plan',

AT 79 ' Iss Dte Iss st Res st Prod/fund'.

&----

*& Form PRINT_RECORDS

&----

FORM PRINT_INPUT_RECORDS.

FORMAT COLOR COL_BACKGROUND INTENSIFIED ON.

WRITE:/01 INT_ZPOL-BUKRS,

INT_ZPOL-ZZPOL,

INT_ZPOL-ZZINDGRP,

AT 26 INT_ZPOL-ZZQUALIF,

AT 32 INT_ZPOL-ZZSINFLE,

AT 37 INT_ZPOL-ZZALLOCA,

AT 43 INT_ZPOL-ZZIMMDEF,

AT 50 INT_ZPOL-ZZVALMET,

AT 58 INT_ZPOL-ZZBROKER,

AT 66 INT_ZPOL-ZZAGENTN,

AT 73 INT_ZPOL-ZZPLANCO,

AT 80 INT_ZPOL-ZZISSUEP,

AT 91 INT_ZPOL-ZZSTATEI,

AT 99 INT_ZPOL-ZZSTATER,

AT 106 INT_ZPOL-ZZPRODFND.

ENDFORM.

----

FORM PRINT_INSERTED_RECORDS *

----

........ *

----

FORM PRINT_INSERTED_RECORDS.

FORMAT COLOR COL_BACKGROUND INTENSIFIED ON.

WRITE:/01 INS_ZPOL-BUKRS,

INS_ZPOL-ZZPOL,

INS_ZPOL-ZZINDGRP,

AT 26 INS_ZPOL-ZZQUALIF,

AT 32 INS_ZPOL-ZZSINFLE,

AT 37 INS_ZPOL-ZZALLOCA,

AT 43 INS_ZPOL-ZZIMMDEF,

AT 50 INS_ZPOL-ZZVALMET,

AT 58 INS_ZPOL-ZZBROKER,

AT 66 INS_ZPOL-ZZAGENTN,

AT 73 INS_ZPOL-ZZPLANCO,

AT 80 INS_ZPOL-ZZISSUEP,

AT 91 INS_ZPOL-ZZSTATEI,

AT 99 INS_ZPOL-ZZSTATER,

AT 106 INS_ZPOL-ZZPRODFND.

ENDFORM.

----

FORM PRINT_UPDATED_RECORDS *

----

........ *

----

FORM PRINT_UPDATED_RECORDS.

FORMAT COLOR COL_BACKGROUND INTENSIFIED ON.

WRITE:/01 UPD_ZPOL-BUKRS,

UPD_ZPOL-ZZPOL,

UPD_ZPOL-ZZINDGRP,

AT 26 UPD_ZPOL-ZZQUALIF,

AT 32 UPD_ZPOL-ZZSINFLE,

AT 37 UPD_ZPOL-ZZALLOCA,

AT 43 UPD_ZPOL-ZZIMMDEF,

AT 50 UPD_ZPOL-ZZVALMET,

AT 58 UPD_ZPOL-ZZBROKER,

AT 66 UPD_ZPOL-ZZAGENTN,

AT 73 UPD_ZPOL-ZZPLANCO,

AT 80 UPD_ZPOL-ZZISSUEP,

AT 91 UPD_ZPOL-ZZSTATEI,

AT 99 UPD_ZPOL-ZZSTATER,

AT 106 UPD_ZPOL-ZZPRODFND.

ENDFORM.

&----

*& Form LOAD_DATA

&----

FORM LOAD_DATA.

IF P_TEST = 'X'.

CONCATENATE P_PATH P_FILE INTO W_DSN.

ELSE.

CONCATENATE PO_PATH TAB_FILE-NAME INTO W_DSN.

ENDIF.

OPEN DATASET W_DSN FOR INPUT IN TEXT MODE MESSAGE W_MSG.

IF SY-SUBRC <> 0.

WRITE : W_MSG, W_DSN.

STOP.

ENDIF.

IF P_PRINT <> SPACE.

NEW-PAGE.

CLEAR BHDGD-LINE1.

BHDGD-LINE1 = 'Input File data '.

ENDIF.

DO.

READ DATASET W_DSN INTO INT_ZPOL.

IF SY-SUBRC <> 0.

WRITE : / ' Input Records = ', W_INPUT_COUNT,

: / ' Selected Records = ', W_SELECTED_COUNT,

: / ' End of input file ', W_DSN.

EXIT.

ENDIF.

CONDENSE INT_ZPOL-ZZPOL NO-GAPS.

CHECK INT_ZPOL-ZZPOL IN S_ZZPOL.

ADD 1 TO W_INPUT_COUNT.

IF INT_ZPOL-BUKRS IN S_BUKRS AND

INT_ZPOL-ZZPOL IN S_ZZPOL.

IF P_PRINT <> SPACE.

PERFORM PRINT_INPUT_RECORDS.

ENDIF.

ADD 1 TO W_SELECTED_COUNT.

APPEND INT_ZPOL.

ENDIF.

ENDDO.

ENDFORM.

&----

*& Form LOAD_INT_TABLES

&----

FORM LOAD_INT_TABLES.

REFRESH : UPD_ZPOL,

INS_ZPOL.

CLEAR : UPD_ZPOL,

INS_ZPOL.

INT_ZPOL-MANDT = SYST-MANDT.

MODIFY INT_ZPOL TRANSPORTING MANDT WHERE MANDT EQ '--- '.

*Start Jigar changes

if INT_ZPOL-ZZISSUEP = '------'.

data: n1 type c.

INT_ZPOL-ZZISSUEP = n1.

INT_ZPOL-ZZISSUEP = space.

MODIFY INT_ZPOL TRANSPORTING ZZISSUEP WHERE ZZISSUEP EQ '------'.

endif.

*End Jigar changes

IF P_PRINT <> SPACE.

CLEAR BHDGD-LINE1.

CLEAR BHDGD-LINE2.

BHDGD-LINE1 = 'Updated File data '.

NEW-PAGE.

ENDIF.

LOOP AT INT_ZPOL.

W_REM = SY-TABIX MOD P_BATCH.

AT NEW BUKRS.

PERFORM VALIDATE_CONVERT_DATA.

ENDAT.

SELECT SINGLE * FROM ZPOL

WHERE BUKRS = W_BUKRS AND

ZZPOL = INT_ZPOL-ZZPOL.

IF SY-SUBRC = 0.

IF INT_ZPOL-SYSID = 'RPS'.

UPD_ZPOL = ZPOL.

UPD_ZPOL-ZZINDGRP = INT_ZPOL-ZZINDGRP.

UPD_ZPOL-ZZALLOCA = INT_ZPOL-ZZALLOCA.

UPD_ZPOL-ZZQUALIF = INT_ZPOL-ZZQUALIF.

UPD_ZPOL-ZZPRODFND = INT_ZPOL-ZZPRODFND.

ELSE.

MOVE-CORRESPONDING INT_ZPOL TO UPD_ZPOL.

ENDIF.

UPD_ZPOL-BUKRS = W_BUKRS.

IF P_PRINT <> SPACE.

PERFORM PRINT_UPDATED_RECORDS.

ENDIF.

APPEND UPD_ZPOL.

ELSE.

MOVE-CORRESPONDING INT_ZPOL TO INS_ZPOL.

INS_ZPOL-BUKRS = W_BUKRS.

IF P_PRINT <> SPACE.

PERFORM PRINT_INSERTED_RECORDS.

ENDIF.

APPEND INS_ZPOL.

ENDIF.

IF W_REM = 0.

PERFORM PROCESS_INSERT_TABLE.

PERFORM PROCESS_UPDATE_TABLE.

ENDIF.

AT END OF BUKRS.

PERFORM PROCESS_INSERT_TABLE.

PERFORM PROCESS_UPDATE_TABLE.

ENDAT.

ENDLOOP.

WRITE : / ' Records Inserted = ', W_INSERTED_COUNT,

: / ' Records updated = ', W_UPDATED_COUNT,

: / ' End of report'.

ENDFORM. " LOAD_INT_TABLES

&----

*& Form VALIDATE_CONVERT_DATA

&----

FORM VALIDATE_CONVERT_DATA.

IF INT_ZPOL-SYSID <> 'VAN' AND

*{ INSERT DEVK908429 3

Please insert all these into ZFILESUB TABLE and verify there.

INT_ZPOL-SYSID <> 'OAS' AND

INT_ZPOL-SYSID <> 'STS' AND

INT_ZPOL-SYSID <> 'ORD' AND

INT_ZPOL-SYSID <> 'PLK' AND

INT_ZPOL-SYSID <> 'FLD' AND

INT_ZPOL-SYSID <> 'SSA' AND

INT_ZPOL-SYSID <> 'TLC' AND

INT_ZPOL-SYSID <> 'SAI' AND

*} INSERT

*{ INSERT DEVK908429 2

INT_ZPOL-SYSID <> 'VTC' AND

INT_ZPOL-SYSID <> 'VSY' AND

*} INSERT

INT_ZPOL-SYSID <> 'RPS' AND

*{ INSERT DEVK908429 1

INT_ZPOL-SYSID <> 'VRP' AND

INT_ZPOL-SYSID <> 'V19' AND

INT_ZPOL-SYSID <> 'DVF' AND

INT_ZPOL-SYSID <> 'DVP' AND

INT_ZPOL-SYSID <> 'DVC' AND

INT_ZPOL-SYSID <> 'AGL' AND

INT_ZPOL-SYSID <> 'TLB' AND

INT_ZPOL-SYSID <> 'NVS' AND

*} INSERT

INT_ZPOL-SYSID <> 'VSA'.

*{ REPLACE DEVK908429 4

*\ WRITE:/ 'Invalid sysid - Must be VAN or RPS or VSA',

WRITE:/ 'Invalid sysid - Must be VAN or RPS or VSA or OAS or STS',

' or ORD or VTC or VSY or VRP ',

*} REPLACE

'Sysid = ', INT_ZPOL-SYSID, ' policy # ', INT_ZPOL-ZZPOL.

STOP.

ENDIF.

IF INT_ZPOL-SYSID = 'VSA'.

W_SYSID = 'ABC'.

ELSE.

W_SYSID = 'ZPL'.

ENDIF.

CALL FUNCTION 'Z_DETERMINE_COMPANY_CODE'

EXPORTING

OLD_SID = W_SYSID

OLD_BUKRS = INT_ZPOL-BUKRS

IMPORTING

SAP_BUKRS = W_BUKRS

EXCEPTIONS

UNRECOGNIZ_COMPANY_OR_SYST_ID = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

WRITE:/ 'Invalid company code - ', INT_ZPOL-BUKRS,

' policy # ', INT_ZPOL-ZZPOL.

ENDIF.

ENDFORM. " VALIDATE_CONVERT_DATA

----

FORM DETERMINE_TAB_FILES *

----

........ *

----

FORM DETERMINE_TAB_FILES.

DATA: STATUS(01).

CALL FUNCTION 'Z_DETERMINE_INTERFACE_FILES'

EXPORTING

PATH_NAME = P_PATH

FILE_NAME = P_FILE

TABLES

TAB_FILE = TAB_FILE

EXCEPTIONS

NO_FILES_FOUND = 1.

IF SYST-SUBRC NE 0.

*{ REPLACE DV1K900043 1

*\ MESSAGE E016 WITH P_PATH FILE.

MESSAGE E016 WITH P_PATH p_FILE.

*} REPLACE

ENDIF.

CHECK P_TEST EQ SPACE.

LOOP AT TAB_FILE.

STATUS = 'Y'. "JSTERN 03-08-99

IF P_SKIP NE 'X'.

CALL FUNCTION 'Z_CHECK_INTERFACE_FILES'

EXPORTING

FILE_NAME = TAB_FILE-NAME

EXCEPTIONS

ERRORS_FOUND = 1

OTHERS = 2.

IF SY-SUBRC NE 0.

PERFORM REMOVE_FILE(ZFWATCH3) USING TAB_FILE-DIRNAME

TAB_FILE-NAME.

DELETE TAB_FILE.

STATUS = 'N'.

ENDIF.

CHECK STATUS EQ 'Y'. "JSTERN 03-08-99

CALL FUNCTION 'Z_RENAME_INTERFACE_FILES'

EXPORTING

PATH_NAME = P_PATH

FILE_NAME = TAB_FILE-NAME

PATH_NAME_OUT = PO_PATH

IMPORTING

FILE_NAME_OUT = TAB_FILE-NAME

EXCEPTIONS

RENAME_DID_NOT_WORK = 1.

IF SYST-SUBRC NE 0.

WRITE: /01 'Rename did not work!', TAB_FILE-DIRNAME,

TAB_FILE-NAME.

DELETE TAB_FILE.

ELSE.

TAB_FILE-DIRNAME = P_PATH.

MODIFY TAB_FILE.

ENDIF.

ENDLOOP.

ENDFORM. " DETERMINE_TAB_FILES

check line no near 300 an please let me know

Thanks

Jigar

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 19:39:02 GMT

Hi Amandeep,

Its custom program, i have used Ztable in the program.

i can not change data type field as a CHAR, so many extarct file running with this program..

Can you please guide me how to convert runtime data type ACCP to CHAR.

Thanks

Jigar

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 20:55:16 GMT

Hello guys,

i have problem with data type ACCP. in my ztabel field is Issue date that data type is ACCP. i want to convert data type from ACCP to CHAR data type field.

how can i convert this data type field?

Please guide me.

Thnaks

Jigar

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 21:02:41 GMT

HI,

Please check this..

DATA: v_data TYPE buper.  " Type ACCP..
DATA: v_char TYPE char6.


v_data = '200708'.

v_char = v_data.

WRITE: / v_char.

is this what you require?

Thanks

Naren

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 21:25:23 GMT

Hi Naren,

look my below 2 line code where i wnat to change

present in my file i have date field but its look like '------'

i want to change as a blank/space when my issue date field

is '------'.

for that i write below code.

INT_ZPOL-ZZISSUEP = space.

MODIFY INT_ZPOL TRANSPORTING ZZISSUEP WHERE ZZISSUEP EQ '------'.

I got a runtime message Unable to interpret "------" as a number.

but my ZZISSUEP data type is ACCP. that i cant change as a CHAR. i want to change only runtime ACCP to CHAR

Note: below code is working in all CHAR data type field.

Please guide me...

Thanks

Jigar

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 21:49:10 GMT

Are you sure there is even a '----' in that field?

When I do this


types: begin of ty_est,
field type BUPER,
end of ty_est.

data: itab type table of ty_est with header line.
itab-field = '------'.
append itab.

field gets the default blank component '000000'

It's weird that a ACCP field would get filled with characters, check if your entries are also '000000' in that case you need to change the where condition.

Re: Problem with ACCP data type field

Former Member — Fri, 05 Sep 2008 21:54:40 GMT

Hi,

Are you sure you are getting '-------' in the accp data type field..?please check in the debugging...what is the value stored...

when I tried this code..it is not putting '------' value in the buper column....

DATA: BEGIN OF s_data,
        buper TYPE buper,
      END OF s_data.

DATA: t_data LIKE TABLE OF s_data.

s_data-buper = '-------'.
APPEND s_data TO t_data.

I also trying loading from a file using GUI_UPLOAD..the file has '------' but in the internal table it is storing it as 000000...

MODIFY t_data FROM s_data
              TRANSPORTING buper
              WHERE buper EQ '------'.

Yeah... this code is failing...

THanks

Naren

Re: Problem with ACCP data type field

Former Member — Sat, 06 Sep 2008 00:00:21 GMT

Hi Naren,

I run my program without my modify code. value store with

in issue date field.....

Thnaks

Jigar

Re: Problem with ACCP data type field

Former Member — Sat, 06 Sep 2008 00:02:53 GMT

Hi Naren,

can i used Replace & Trnaslate field but its not working

for Replace date type should be Char but my issue date field is ACCP...

can you give me some idea of replace & translate statement

Thanks

Jigar

Re: Problem with ACCP data type field

Former Member — Sat, 06 Sep 2008 00:12:17 GMT

convert date type to char that's what one of the member suggested

Regarding replace and translate

check this link

http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb3398358411d1829f0000e829fbfe/content.htm

http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb33a5358411d1829f0000e829fbfe/content.htm

Re: Problem with ACCP data type field

Former Member — Mon, 08 Sep 2008 20:36:51 GMT

Hi,

Try this..

FIELD-SYMBOLS:<fs> TYPE buper.
DATA: s_zpol LIKE LINE OF int_zpol.

LOOP AT INT_ZPOL INTO s_zpol.

  ASSIGN s_zpol-buper TO <fs>.

  CHECK sy-subrc  = 0.

  s_zpol-buper = <fs>.

  MODIFY INT_ZPOL FROM s_zpol.

ENDLOOP.

Thanks

Naren

Re: Problem with ACCP data type field

Former Member — Tue, 09 Sep 2008 00:00:12 GMT

Hi Naren & K.P.N

I solved my problem.

Thanks for help

Thanks

Jigar

Re: Problem with ACCP data type field

Former Member — Tue, 21 Dec 2010 04:59:44 GMT

Thanks