Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

No data selected?

Former Member
0 Kudos

Hi,

I've created table join for EKPO, EKKN,EKKO, and SKAT. When i check the source table, there are data appeared for the field that i filtered. However, through this quick viewer, i always get "no data selected" . Please advise.

1 ACCEPTED SOLUTION

Former Member
0 Kudos

Hi,

You need to use only transparent tables here, and check whether you are passing the correct values to it, you need to pass the values with the leading ZEROS

Regards

Sudheer

19 REPLIES 19

Former Member
0 Kudos

Hi,

You need to use only transparent tables here, and check whether you are passing the correct values to it, you need to pass the values with the leading ZEROS

Regards

Sudheer

0 Kudos

Sudheer is right. (beware of leading zeros)

try selecting from 1 table, if you get what expected add one inner join. see what you've got, then another, and so on.

hope it helps

0 Kudos

Hi,

how would i find a transparent table?

I check through the source table, with the same value that i key in, there are data apprear.

Former Member
0 Kudos

Hi,

You can check if the table is transapalent or not using SE11_> go to table Delivery and Maintainace.

Regards,

Atish

0 Kudos

hi,

EKPO,EKKO, and EKKN are transaction, transparent tables.

SKAT is master data, transparent table.

I wonder why i always get "no data selected"? in the layout view, on the right hand side, i got some data displayed. i even use the same value to filtered after i execute, but i still get "no data selected".

0 Kudos

It is not advisable but can you paste your SELECT statement here? Also can you make sure that your JOIN statement is correct.

0 Kudos

There must be something wrong with your query. Or there may be chance that there is no data as you can find there is very less data maintained in DEV if you are checking in DEV.

Regards,

Atish

0 Kudos

Hi,

it is in live server now.

i check each table respectively, there are some data..but when i execute the query, there is "no data selected". All the table joins are proposed by the system.

0 Kudos

Hi aerti,

if don't mind plz send your code lest check for joining conditions .

r u check data is existing in u r DB tables . first check it.

i think u r problem is in joining condition.

reward is useful.

thanks.

Patil

former_member223537
Active Contributor
0 Kudos

Hi,

The tables are related to each other & linked based on Primary Keys or the keys which the query has specified.

Though each table has individual records but they might not be related to each other.

Follow steps:

1. Goto EKKO & check table contents. Select one of the record & Enter the selected value in another table EKPO which has the same field & check whether record exists.

There wont be records which are releated to each other.

Best regards,

Prashant

0 Kudos

Hi,

It is link based on the key query proposed.

I go to SE16 - EKKO by keying in a EBELN value, then i pick the AEDAT value and key in EKPO. Immediately, there are lots of data appeared in EKPO table.

So?

former_member223537
Active Contributor
0 Kudos

Hi,

COuld you please check whether the same tables are linked based on AEDAT in the query ?

Best regards,

Prashant

0 Kudos

Hi,

It is Inner join link between EKPO and EKKO as below:

1. EKPO-EBELP inner join with EKKO-LPONR

I go to SE16, EKPO table, by keying in EBELN value, pick up EBELP value and key in EKKO-LPONR. Immediately, there are records appear.

so?

former_member223537
Active Contributor
0 Kudos

Hi,

Please check with SE16 the entire chain of tables based on the JOIN CONDITION of queries.

EKPO, EKKN,EKKO, and SKAT

All the conditions should be satisfied.

Best regards,

Prashant

0 Kudos

Hi,

yes, i check all the join conditions and check in SE16 with the same steps....there are data published. so?

Below is the code that i retrieve from SE38:

REPORT AQA0SYSTQV000401PUCH_FI=======

LINE-SIZE 253 NO STANDARD PAGE HEADING LINE-COUNT 000(001).

INCLUDE <SYMBOL>.

INCLUDE <ICON>.

SELECTION-SCREEN: BEGIN OF BLOCK PROG

WITH FRAME TITLE TEXT-F58.

TABLES SKAT.

TABLES EKKO.

TABLES EKKN.

TABLES EKPO.

DATA %COUNT-EKPO(4) TYPE X.

DATA %LINR-EKPO(2).

DATA: BEGIN OF %JOINWA,

EKPO LIKE EKPO,

EKKO LIKE EKKO,

EKKN LIKE EKKN,

SKAT LIKE SKAT,

END OF %JOINWA.

TABLES AQLDB.

INCLUDE RSAQEXCD.

DATA: BEGIN OF %ST_LISTE OCCURS 100,

HEAD(1),

TAB(3),

LINE(6) TYPE N,

CONT(1) TYPE N,

FINT(1),

FINV(1),

FCOL(1) TYPE N,

TEXT(0253),

END OF %ST_LISTE.

DATA %DATA_SELECTED(1).

DATA %GLFRAME(1) VALUE 'X' .

DATA %UFLAG(1).

DATA %USTFLAG(1).

DATA %GRST_TEXT(255).

DATA %GLLINE TYPE I.

DATA %TABIX LIKE SY-TABIX.

DATA %PRFLAG(1) TYPE X VALUE '02'.

DATA %PERC(4) TYPE P DECIMALS 3.

DATA %P100(4) TYPE P DECIMALS 3 VALUE '100.000'.

DATA %RANGCT TYPE I.

DATA %RANGCC(8).

DATA %SUBRC LIKE SY-SUBRC.

DATA: BEGIN OF %WA010 OCCURS 10,

EKKN-MENGE(16) TYPE P DECIMALS 03,

BEGIN OF EKKN,

EKPO-MEINS LIKE EKPO-MEINS,

END OF EKKN,

END OF %WA010.

DATA: BEGIN OF %W0100 OCCURS 20,

EKPO-MEINS LIKE EKPO-MEINS,

EKKN-MENGE(16) TYPE P DECIMALS 03,

END OF %W0100.

SELECT-OPTIONS SP$00002 FOR EKKO-EBELN MEMORY ID BES.

SELECT-OPTIONS SP$00006 FOR EKPO-BUKRS MEMORY ID BUK.

SELECT-OPTIONS SP$00008 FOR EKKO-AEDAT.

SELECT-OPTIONS SP$00009 FOR EKKO-BEDAT.

SELECT-OPTIONS SP$00011 FOR SKAT-SAKNR MEMORY ID SAK.

SELECT-OPTIONS SP$00012 FOR EKPO-MATNR MEMORY ID MAT.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN: BEGIN OF BLOCK DIRECT

WITH FRAME TITLE TEXT-F59.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %ALV RADIOBUTTON GROUP FUNC USER-COMMAND OUTBUT

DEFAULT 'X' .

SELECTION-SCREEN: COMMENT 4(26) TEXT-F72 FOR FIELD %ALV.

PARAMETERS: %ALVL TYPE SLIS_VARI.

SELECTION-SCREEN: PUSHBUTTON 72(4) PB%EXCO USER-COMMAND EXPCOL.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %NOFUNC RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F66 FOR FIELD %NOFUNC

MODIF ID OLD.

PARAMETERS: %TVIEW RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 34(26) TEXT-F68 FOR FIELD %TVIEW

MODIF ID OLD,

END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %GRAPH RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F61 FOR FIELD %GRAPH

MODIF ID OLD.

PARAMETERS: %TEXT RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 34(26) TEXT-F69 FOR FIELD %TEXT

MODIF ID OLD,

END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %ABC RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F70 FOR FIELD %ABC

MODIF ID OLD.

PARAMETERS: %EXCEL RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 34(26) TEXT-F60 FOR FIELD %EXCEL

MODIF ID OLD,

END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %EIS RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F63 FOR FIELD %EIS

MODIF ID OLD.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %XINT RADIOBUTTON GROUP FUNC MODIF ID XIN.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F73 FOR FIELD %XINT

MODIF ID XIN.

PARAMETERS: %XINTK(30) LOWER CASE MODIF ID XIN.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %DOWN RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F64 FOR FIELD %DOWN

MODIF ID OLD.

PARAMETERS: %PATH(132) LOWER CASE MODIF ID OLD.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: BEGIN OF LINE.

PARAMETERS: %SAVE RADIOBUTTON GROUP FUNC MODIF ID OLD.

SELECTION-SCREEN: COMMENT 4(26) TEXT-F62 FOR FIELD %SAVE

MODIF ID OLD.

PARAMETERS: %LISTID(40) LOWER CASE MODIF ID OLD.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN: END OF BLOCK DIRECT.

SELECTION-SCREEN: END OF BLOCK PROG.

DATA: BEGIN OF %G00 OCCURS 100,

EKPO-MATKL LIKE EKPO-MATKL,

SKAT-SAKNR LIKE SKAT-SAKNR,

SKAT-TXT20 LIKE SKAT-TXT20,

SKAT-TXT50 LIKE SKAT-TXT50,

EKKO-EBELN LIKE EKKO-EBELN,

EKKO-BUKRS LIKE EKKO-BUKRS,

EKKO-AEDAT LIKE EKKO-AEDAT,

EKKO-BEDAT LIKE EKKO-BEDAT,

EKPO-BUKRS LIKE EKPO-BUKRS,

EKKO-LIFNR LIKE EKKO-LIFNR,

EKPO-KUNNR LIKE EKPO-KUNNR,

EKPO-MATNR LIKE EKPO-MATNR,

EKPO-EBELN LIKE EKPO-EBELN,

EKKN-EBELN LIKE EKKN-EBELN,

EKKN-MENGE LIKE EKKN-MENGE,

EKPO-MEINS-0115 LIKE EKPO-MEINS,

SKAT-SPRAS LIKE SKAT-SPRAS,

SKAT-KTOPL LIKE SKAT-KTOPL,

EKKO-AUSNR LIKE EKKO-AUSNR,

EKKO-LPONR LIKE EKKO-LPONR,

EKPO-ANFNR LIKE EKPO-ANFNR,

EKKN-SAKTO LIKE EKKN-SAKTO,

END OF %G00.

DATA: BEGIN OF %%G00,

EKPO-MATKL(009),

SKAT-SAKNR(010),

SKAT-TXT20(020),

SKAT-TXT50(050),

EKKO-EBELN(010),

EKKO-BUKRS(004),

EKKO-AEDAT(010),

EKKO-BEDAT(010),

EKPO-BUKRS(004),

EKKO-LIFNR(010),

EKPO-KUNNR(010),

EKPO-MATNR(018),

EKPO-EBELN(010),

EKKN-EBELN(010),

EKKN-MENGE(017),

EKPO-MEINS-0115 LIKE EKPO-MEINS,

SKAT-SPRAS(002),

SKAT-KTOPL(004),

EKKO-AUSNR(010),

EKKO-LPONR(005),

EKPO-ANFNR(010),

EKKN-SAKTO(010),

END OF %%G00.

DATA %ZNR TYPE I.

DATA %LZNR TYPE I VALUE 99999.

FIELD-GROUPS HEADER.

FIELD-GROUPS %FG01.

DATA %ANY-01.

DATA %EXT-EKKN01.

FIELD-GROUPS %FG02.

DATA %ANY-02.

FIELD-GROUPS %FGWREKKN01.

CONTROLS TVIEW100 TYPE TABLEVIEW USING SCREEN 100.

AT SELECTION-SCREEN .

PERFORM ALVL_CHECK(RSAQEXCE) USING %ALVL 'G00'.

PERFORM TESTMODE(RSAQEXCE).

PERFORM CHECK_EXPCOL(RSAQEXCE) USING %ALV.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR %ALVL .

PERFORM ALVL_VALUE_REQUEST(RSAQEXCE) USING %ALVL 'G00'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR %XINTK .

PERFORM XINT_VALUE_REQUEST(RSAQEXCE).

AT SELECTION-SCREEN OUTPUT .

PERFORM RINIT(RSAQBRST).

PERFORM SET_EXPCOL(RSAQEXCE) USING %ALV PB%EXCO.

PERFORM ALVL_SET_INVISIBLE(RSAQEXCE).

PERFORM SET_XINT_PARAMS(RSAQEXCE).

INITIALIZATION.

PERFORM INIT_XINT(RSAQEXCE).

PERFORM SET_WWW_FLAGS(RSAQEXCE).

PERFORM INIT_PRINT_PARAMS(RSAQEXCE).

START-OF-SELECTION.

INSERT EKPO-MEINS INTO %FGWREKKN01.

INSERT EKKN-MENGE INTO %FGWREKKN01.

INSERT %COUNT-EKPO INTO HEADER.

INSERT %LINR-EKPO INTO HEADER.

INSERT EKPO-MATKL INTO %FG01.

INSERT SKAT-SAKNR INTO %FG01.

INSERT SKAT-TXT20 INTO %FG01.

INSERT SKAT-TXT50 INTO %FG01.

INSERT EKKO-EBELN INTO %FG01.

INSERT EKKO-BUKRS INTO %FG01.

INSERT EKKO-AEDAT INTO %FG01.

INSERT EKKO-BEDAT INTO %FG01.

INSERT EKPO-BUKRS INTO %FG01.

INSERT EKKO-LIFNR INTO %FG01.

INSERT EKPO-KUNNR INTO %FG01.

INSERT EKPO-MATNR INTO %FG01.

INSERT EKPO-EBELN INTO %FG01.

INSERT EKKN-EBELN INTO %FG01.

INSERT EKKN-MENGE INTO %FG01.

INSERT EKPO-MEINS INTO %FG01.

INSERT SKAT-SPRAS INTO %FG01.

INSERT SKAT-KTOPL INTO %FG01.

INSERT EKKO-AUSNR INTO %FG01.

INSERT EKKO-LPONR INTO %FG01.

INSERT EKPO-ANFNR INTO %FG02.

INSERT EKKN-SAKTO INTO %FG02.

PERFORM INIT_TEXTHANDLING(RSAQEXCE) USING 'CL_TEXT_IDENTIFIER' ' '

'SYSTQV000000000000008410'.

PERFORM AUTHORITY_BEGIN(RSAQEXCE).

PERFORM AUTHORITY(RSAQEXCE) USING 'EKPO'.

PERFORM AUTHORITY(RSAQEXCE) USING 'EKKO'.

PERFORM AUTHORITY(RSAQEXCE) USING 'EKKN'.

PERFORM AUTHORITY(RSAQEXCE) USING 'SKAT'.

PERFORM AUTHORITY_END(RSAQEXCE).

PERFORM %COMP_LDESC.

SELECT * INTO %JOINWA

FROM ( EKPO

INNER JOIN EKKO

ON EKKOEBELN = EKPOANFNR

AND EKKOAUSNR = EKPOEBELN

AND EKKOLPONR = EKPOEBELP

INNER JOIN EKKN

ON EKKNEBELN = EKKOEBELN

INNER JOIN SKAT

ON SKATSAKNR = EKKNSAKTO )

WHERE EKPO~BUKRS IN SP$00006

AND EKPO~MATNR IN SP$00012

AND EKKO~AEDAT IN SP$00008

AND EKKO~BEDAT IN SP$00009

AND EKKO~EBELN IN SP$00002

AND SKAT~SAKNR IN SP$00011.

MOVE-CORRESPONDING %JOINWA-EKPO TO EKPO.

MOVE-CORRESPONDING %JOINWA-EKKO TO EKKO.

MOVE-CORRESPONDING %JOINWA-EKKN TO EKKN.

MOVE-CORRESPONDING %JOINWA-SKAT TO SKAT.

%DBACC = %DBACC - 1.

IF %DBACC = 0.

STOP.

ENDIF.

CHECK SP$00008.

CHECK SP$00009.

CHECK SP$00002.

CHECK SP$00006.

CHECK SP$00012.

CHECK SP$00011.

ADD 1 TO %COUNT-EKPO.

%LINR-EKPO = '01'.

EXTRACT %FG01.

%EXT-EKKN01 = 'X'.

EXTRACT %FGWREKKN01.

%LINR-EKPO = '02'.

EXTRACT %FG02.

ENDSELECT.

END-OF-SELECTION.

SORT AS TEXT.

%DIACT = SPACE.

%BATCH = SY-BATCH.

IF %BATCH <> SPACE.

IF %EIS <> SPACE.

%DIACT = 'E'.

IF %EISPROTOCOL = SPACE.

NEW-PAGE PRINT ON DESTINATION 'NULL' NO DIALOG

LINE-SIZE 0253 LINE-COUNT 0065.

ELSE.

NEW-PAGE PRINT ON NO DIALOG

PARAMETERS %INIT_PRI_PARAMS.

ENDIF.

ENDIF.

IF %ALV <> SPACE.

%DIACT = 'V'.

%ALV_LAYOUT = %ALVL.

NEW-PAGE PRINT ON DESTINATION 'NULL' NO DIALOG

LINE-SIZE 0253 LINE-COUNT 0065.

ENDIF.

IF %SAVE <> SPACE.

%DIACT = 'S'.

NEW-PAGE PRINT ON DESTINATION 'NULL' NO DIALOG

LINE-SIZE 0253 LINE-COUNT 0065.

ENDIF.

ELSEIF %CALLED_BY_WWW <> SPACE.

%DIACT = SPACE.

ELSEIF %CALLED_BY_WWW_ALV <> SPACE.

%DIACT = 'V'.

ELSE.

PERFORM INIT_PRINT_PARAMS(RSAQEXCE).

IF %SAVE <> SPACE. %DIACT = 'S'. ENDIF.

IF %XINT <> SPACE. %DIACT = 'I'. ENDIF.

IF %TVIEW <> SPACE. %DIACT = 'T'. ENDIF.

IF %ALV <> SPACE. %DIACT = 'V'. ENDIF.

IF %DOWN <> SPACE. %DIACT = 'D'. ENDIF.

IF %EIS <> SPACE. %DIACT = 'E'. ENDIF.

IF %GRAPH <> SPACE. %DIACT = 'G'. ENDIF.

IF %EXCEL <> SPACE. %DIACT = 'X'. ENDIF.

IF %TEXT <> SPACE. %DIACT = 'W'. ENDIF.

IF %ABC <> SPACE. %DIACT = 'A'. ENDIF.

IF %DIACT <> SPACE AND %DIACT <> 'S' AND %DIACT <> 'W'.

NEW-PAGE PRINT ON DESTINATION 'NULL' NO DIALOG

LINE-SIZE 0253 LINE-COUNT 0065.

ENDIF.

%PATHNAME = %PATH.

IF %DIACT = 'I'.

%FUNCTIONKEY = %XINTK.

ENDIF.

IF %DIACT = 'V'.

%ALV_LAYOUT = %ALVL.

ENDIF.

ENDIF.

FREE MEMORY ID 'AQLISTDATA'.

IF %MEMMODE <> SPACE.

IF %BATCH <> SPACE.

NEW-PAGE PRINT ON DESTINATION 'NULL' NO DIALOG

LINE-SIZE 0253 LINE-COUNT 0065.

ENDIF.

%DIACT = '1'.

ENDIF.

%TITEL = ' '.

IF SY-SUBTY O %PRFLAG AND %TITEL = SPACE.

NEW-PAGE WITH-TITLE.

ENDIF.

%TVSIZE = 0200.

%PLINE = 1.

%PZGR = 1.

%FIRST = 'X'.

PERFORM %OUTPUT.

%FIRST = SPACE.

IF %DIACT <> SPACE AND %DIACT <> 'S'.

IF %BATCH = SPACE.

NEW-PAGE PRINT OFF.

IF NOT ( %DIACT = 'V' AND %UCOMM = 'PRIN' ).

NEW-PAGE NO-HEADING NO-TITLE.

WRITE SPACE.

ENDIF.

ENDIF.

ELSE.

PERFORM PF-STATUS(RSAQEXCE) USING 'XXX X '.

ENDIF.

CLEAR: %TAB, %LINE, %CONT.

IF %DATA_SELECTED = SPACE.

IF %DIACT = '1'.

EXPORT EMPTY FROM %EMPTY TO MEMORY ID 'AQLISTDATA'.

LEAVE.

ELSE.

IF %BATCH = SPACE AND

%CALLED_BY_WWW = SPACE AND

%CALLED_BY_WWW_ALV = SPACE.

MESSAGE S260(AQ).

LEAVE LIST-PROCESSING.

ELSE.

IF %CALLED_BY_WWW_ALV = SPACE.

%DIACT = SPACE.

ENDIF.

ENDIF.

ENDIF.

ENDIF.

IF %DIACT = 'S'.

PERFORM %SAVE_LIST.

LEAVE LIST-PROCESSING.

ENDIF.

IF %DIACT = 'V' AND %BATCH <> SPACE.

NEW-PAGE PRINT OFF.

PERFORM SET_PRINT_PARAMS(RSAQEXCE).

PERFORM %DOWNLOAD USING 'ALV'.

LEAVE.

ENDIF.

IF %DIACT = 'V' AND %CALLED_BY_WWW_ALV <> SPACE.

PERFORM %DOWNLOAD USING 'ALV'.

LEAVE.

ENDIF.

IF %DIACT = 'V' AND %UCOMM = 'PRIN'.

NEW-PAGE PRINT OFF.

PERFORM SET_PRINT_PARAMS(RSAQEXCE).

PERFORM %DOWNLOAD USING 'ALV'.

LEAVE LIST-PROCESSING.

ENDIF.

IF %DIACT = 'P' AND %BATCH <> SPACE.

PERFORM %DOWNLOAD USING '+DAT'.

LEAVE LIST-PROCESSING.

ENDIF.

IF %DIACT = 'E' AND %BATCH <> SPACE.

PERFORM %DOWNLOAD USING 'EIS'.

LEAVE LIST-PROCESSING.

ENDIF.

IF %DIACT = '1'.

PERFORM %DOWNLOAD USING '+MEM'.

LEAVE.

ENDIF.

IF %DIACT = 'X'.

SET USER-COMMAND 'XXL'.

ELSEIF %DIACT = 'W'.

SET USER-COMMAND 'TEXT'.

ELSEIF %DIACT = 'V'.

SET USER-COMMAND 'ALV'.

ELSEIF %DIACT = 'T'.

SET USER-COMMAND 'VIEW'.

ELSEIF %DIACT = 'G'.

SET USER-COMMAND 'GRAF'.

ELSEIF %DIACT = 'A'.

SET USER-COMMAND 'ABCA'.

ELSEIF %DIACT = 'E'.

SET USER-COMMAND 'EIS'.

ELSEIF %DIACT = 'D'.

SET USER-COMMAND 'DOWN'.

ELSEIF %DIACT = 'I'.

SET USER-COMMAND 'XINT'.

ELSEIF %DIACT = 'P'.

SET USER-COMMAND '+DAT'.

ENDIF.

TOP-OF-PAGE.

PERFORM %TOP-OF-PAGE.

END-OF-PAGE.

PERFORM PAGE_FOOT(RSAQEXCE).

PERFORM %SAVE_PAGE.

TOP-OF-PAGE DURING LINE-SELECTION.

PERFORM %TOP-OF-PAGE.

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'EXIT'.

LEAVE PROGRAM.

WHEN 'RETN'.

PERFORM RETURN(RSAQEXCE).

WHEN 'CANC'.

PERFORM RETURN(RSAQEXCE).

WHEN 'WEIT'.

PERFORM RETURN(RSAQEXCE).

WHEN 'INHA'.

PERFORM CATALOGUE(RSAQEXCE).

WHEN 'AUSL'.

PERFORM PICKUP(RSAQEXCE).

WHEN 'AUSW'.

PERFORM PICKUP(RSAQEXCE).

WHEN 'RCAA'.

PERFORM RCHAIN(RSAQBRST).

WHEN 'RCAL'.

PERFORM RCALL(RSAQBRST).

WHEN 'VGLI'.

PERFORM CHANGE(RSAQEXCE).

WHEN 'VGLE'.

PERFORM CHANGE(RSAQEXCE).

WHEN 'TOTO'.

PERFORM CHANGE(RSAQEXCE).

WHEN 'VSTA'.

PERFORM CHANGE(RSAQEXCE).

WHEN 'VSTE'.

PERFORM RETURN(RSAQEXCE).

WHEN 'SAVL'.

PERFORM %SAVE_LIST.

WHEN 'ODRU'.

PERFORM PRINT_LIST(RSAQEXCE).

WHEN 'COPA'.

PERFORM PRINT_COVER_PAGE(RSAQEXCE).

WHEN 'TEXT'.

PERFORM %DOWNLOAD USING 'TEXT'.

WHEN 'ALV'.

PERFORM %DOWNLOAD USING 'ALV'.

WHEN 'VIEW'.

PERFORM %VIEW.

WHEN 'XXL'.

PERFORM %DOWNLOAD USING 'XXL'.

WHEN 'GRAF'.

PERFORM %DOWNLOAD USING 'GRAF'.

WHEN 'ABCA'.

PERFORM %DOWNLOAD USING 'ABCA'.

WHEN 'EIS'.

PERFORM %DOWNLOAD USING 'EIS'.

WHEN 'DOWN'.

PERFORM %DOWNLOAD USING 'DOWN'.

WHEN 'XINT'.

PERFORM %DOWNLOAD USING 'XINT'.

ENDCASE.

CLEAR: %CLINE, %ZGR.

CLEAR: %TAB, %LINE, %CONT.

IF %DIACT <> SPACE.

LEAVE LIST-PROCESSING.

ENDIF.

FORM %COMP_LDESC.

REFRESH %LDESC.

REFRESH %GDESC.

PERFORM LDESC(RSAQEXCE) USING 'G00010000X009 00 98'

TEXT-A00 TEXT-B00 TEXT-H00 'EKPO-MATKL' EKPO-MATKL 'EKPO-MATKL'.

PERFORM LDESC(RSAQEXCE) USING 'G00020000X010 00 98'

TEXT-A01 TEXT-B01 TEXT-H00 'SKAT-SAKNR' SKAT-SAKNR 'SKAT-SAKNR'.

PERFORM LDESC(RSAQEXCE) USING 'G00030000X020 00 98'

TEXT-A02 TEXT-B02 TEXT-H00 'SKAT-TXT20' SKAT-TXT20 'SKAT-TXT20'.

PERFORM LDESC(RSAQEXCE) USING 'G00040000X050 00 98'

TEXT-A03 TEXT-B03 TEXT-H00 'SKAT-TXT50' SKAT-TXT50 'SKAT-TXT50'.

PERFORM LDESC(RSAQEXCE) USING 'G00050000X010 00 98'

TEXT-A04 TEXT-B04 TEXT-H00 'EKKO-EBELN' EKKO-EBELN 'EKKO-EBELN'.

PERFORM LDESC(RSAQEXCE) USING 'G00060000X004 00 98'

TEXT-A05 TEXT-B05 TEXT-H00 'EKKO-BUKRS' EKKO-BUKRS 'EKKO-BUKRS'.

PERFORM LDESC(RSAQEXCE) USING 'G00070000X010 00 98'

TEXT-A06 TEXT-B06 TEXT-H00 'EKKO-AEDAT' EKKO-AEDAT 'EKKO-AEDAT'.

PERFORM LDESC(RSAQEXCE) USING 'G00080000X010 00 98'

TEXT-A07 TEXT-B07 TEXT-H00 'EKKO-BEDAT' EKKO-BEDAT 'EKKO-BEDAT'.

PERFORM LDESC(RSAQEXCE) USING 'G00090000X004 00 98'

TEXT-A08 TEXT-B08 TEXT-H00 'EKPO-BUKRS' EKPO-BUKRS 'EKPO-BUKRS'.

PERFORM LDESC(RSAQEXCE) USING 'G00100000X010 00 98'

TEXT-A09 TEXT-B09 TEXT-H00 'EKKO-LIFNR' EKKO-LIFNR 'EKKO-LIFNR'.

PERFORM LDESC(RSAQEXCE) USING 'G00110000X010 00 98'

TEXT-A10 TEXT-B10 TEXT-H00 'EKPO-KUNNR' EKPO-KUNNR 'EKPO-KUNNR'.

PERFORM LDESC(RSAQEXCE) USING 'G00120000X018 00 98'

TEXT-A11 TEXT-B11 TEXT-H00 'EKPO-MATNR' EKPO-MATNR 'EKPO-MATNR'.

PERFORM LDESC(RSAQEXCE) USING 'G00130000X010 00 98'

TEXT-A12 TEXT-B12 TEXT-H00 'EKPO-EBELN' EKPO-EBELN 'EKPO-EBELN'.

PERFORM LDESC(RSAQEXCE) USING 'G00140000X010 00 98'

TEXT-A13 TEXT-B13 TEXT-H00 'EKKN-EBELN' EKKN-EBELN 'EKKN-EBELN'.

PERFORM LDESC(RSAQEXCE) USING 'G00150201 017M X 00 98'

TEXT-A14 TEXT-B14 TEXT-H00 'EKKN-MENGE' EKKN-MENGE 'EKKN-MENGE'.

PERFORM LDESC(RSAQEXCE) USING 'G00160000 003E 00 98'

TEXT-A15 TEXT-B15 TEXT-H00 'EKPO-MEINS' EKPO-MEINS

'EKPO-MEINS-0115'.

PERFORM LDESC(RSAQEXCE) USING 'G00170000X002 00 98'

TEXT-A16 TEXT-B16 TEXT-H00 'SKAT-SPRAS' SKAT-SPRAS 'SKAT-SPRAS'.

PERFORM LDESC(RSAQEXCE) USING 'G00180000X004 00 98'

TEXT-A17 TEXT-B17 TEXT-H00 'SKAT-KTOPL' SKAT-KTOPL 'SKAT-KTOPL'.

PERFORM LDESC(RSAQEXCE) USING 'G00190000X010 00 98'

TEXT-A18 TEXT-B18 TEXT-H00 'EKKO-AUSNR' EKKO-AUSNR 'EKKO-AUSNR'.

PERFORM LDESC(RSAQEXCE) USING 'G00200000X005 00 98'

TEXT-A19 TEXT-B19 TEXT-H00 'EKKO-LPONR' EKKO-LPONR 'EKKO-LPONR'.

PERFORM LDESC(RSAQEXCE) USING 'G00211000X010 00 98'

TEXT-A20 TEXT-B20 TEXT-H00 'EKPO-ANFNR' EKPO-ANFNR 'EKPO-ANFNR'.

PERFORM LDESC(RSAQEXCE) USING 'G00221000X010 00 98'

TEXT-A21 TEXT-B21 TEXT-H00 'EKKN-SAKTO' EKKN-SAKTO 'EKKN-SAKTO'.

PERFORM GDESC(RSAQEXCE) USING 'G00' 5 20 ' ' ' ' 'X'.

PERFORM COMPLETE_LDESC(RSAQEXCE) TABLES %LDESC.

ENDFORM.

FORM %OUTPUT.

DESCRIBE TABLE %PRLIST LINES %MAX_PRLIST.

%HEAD = 'AAA'.

%KEYEMPTY = SPACE.

NEW-PAGE.

PERFORM %OUTPUT_GL.

PERFORM COMPLETE_PAGE(RSAQEXCE).

%HEAD = 'ZZZ'.

PERFORM LAST_PTAB_ENTRY(RSAQEXCE).

NEW-PAGE.

IF %KEYEMPTY <> SPACE.

MESSAGE S894(AQ).

ENDIF.

ENDFORM.

FORM %TOP-OF-PAGE.

IF SY-UCOMM = 'INHA'. EXIT. ENDIF.

IF SY-UCOMM = 'COPA'. EXIT. ENDIF.

IF %HEAD = SPACE. EXIT. ENDIF.

IF %HEAD = 'DDD'.

PERFORM TVIEWPAGE(RSAQEXCE).

EXIT.

ENDIF.

IF %HEAD = 'GGG'.

PERFORM PAGE(RSAQEXCE) USING 'G00' TEXT-GRL 252 %GLFRAME 001.

SET LEFT SCROLL-BOUNDARY COLUMN 002.

PERFORM SET_SCROLL_BOUNDARY(RSAQEXCE) USING 002.

IF %TOTO <> SPACE. EXIT. ENDIF.

ELSE.

CASE %HEAD.

ENDCASE.

ENDIF.

ENDFORM.

FORM %NEWLINE.

%UFLAG = SPACE.

NEW-LINE.

WRITE: '|', 252 '|'.

POSITION 2.

ENDFORM.

FORM %SKIP USING COUNT.

IF SY-LINNO > 1.

%UFLAG = SPACE.

DO COUNT TIMES.

NEW-LINE.

FORMAT RESET.

WRITE: '|', 252 '|'.

ENDDO.

ENDIF.

ENDFORM.

FORM %ULINE.

IF %UFLAG = SPACE.

IF SY-LINNO > 1.

ULINE /1(252).

ENDIF.

%UFLAG = 'X'.

ENDIF.

ENDFORM.

FORM %HIDE.

IF %BATCH <> SPACE AND %DIACT = 'S'.

PERFORM HIDE(RSAQEXCE).

ELSE.

HIDE: %TAB, %LINE, %CONT.

ENDIF.

ENDFORM.

FORM %HIDE_COLOR.

IF %BATCH <> SPACE AND %DIACT = 'S'.

PERFORM HIDE_COLOR(RSAQEXCE).

ELSE.

HIDE: %FINT, %FCOL.

ENDIF.

ENDFORM.

FORM %RCALL USING NAME VALUE.

FIELD-SYMBOLS <FIELD>.

ASSIGN (NAME) TO <FIELD>.

READ CURRENT LINE FIELD VALUE <FIELD> INTO VALUE.

IF SY-SUBRC <> 0.

VALUE = SPACE.

EXIT.

ENDIF.

IF VALUE = SPACE AND %TAB = 'G00' AND %LDESC-FCUR NA 'FM'.

READ TABLE %G00 INDEX %LINE.

IF SY-SUBRC = 0.

ASSIGN COMPONENT %LDESC-FNAMEINT OF STRUCTURE %G00

TO <FIELD>.

IF SY-SUBRC = 0.

WRITE <FIELD> TO VALUE(%LDESC-FOLEN).

ENDIF.

ENDIF.

ENDIF.

ENDFORM.

FORM %SAVE_PAGE.

IF %BATCH <> SPACE AND %DIACT = 'S'.

PERFORM SAVE_PAGE(RSAQEXCE) TABLES %ST_LISTE.

ENDIF.

ENDFORM.

FORM %REPLACE_VAR USING TEXT.

FIELD-SYMBOLS <VAR>.

ASSIGN TEXT+1(*) TO <VAR>.

ENDFORM.

FORM %SAVE_LIST.

DATA: %SFLAG,

QREPORT LIKE SY-REPID.

IF %DIACT = 'S'. %SFLAG = 'X'. ENDIF.

QREPORT = SY-REPID.

PERFORM SAVE_LIST(RSAQEXCE) TABLES %ST_LISTE

USING QREPORT %SFLAG %LISTID.

IF %QL_ID <> SPACE.

%DLFLAG = 'X'.

%LISTSIZE = 0253.

PERFORM COMP_SELECTION_SCREEN(RSAQEXCE).

EXPORT %ST_LISTE %PTAB %LDESC %GDESC %DLFLAG %LISTSIZE

%SELECTIONS

%G00

TO DATABASE AQLDB(AQ) ID %QL_ID.

ENDIF.

ENDFORM.

FORM %REFRESH.

CASE %TAB.

WHEN 'G00'.

IMPORT %G00 FROM DATABASE AQLDB(AQ) ID %QL_ID.

ENDCASE.

ENDFORM.

FORM %DOWNLOAD USING CODE.

DATA: QREPORT LIKE SY-REPID.

PERFORM INIT_DOWNLOAD(RSAQEXCE).

QREPORT = SY-REPID.

CASE %TAB.

WHEN 'G00'.

PERFORM DOWNLOAD(RSAQEXCE)

TABLES %G00 USING CODE QREPORT TEXT-GRL.

WHEN OTHERS.

MESSAGE S860(AQ).

ENDCASE.

ENDFORM.

FORM %SET_DATA CHANGING L_LINES TYPE I.

IMPORT LDATA TO %G00 FROM MEMORY ID 'AQLISTDATA'.

DESCRIBE TABLE %G00 LINES L_LINES.

FREE MEMORY ID 'AQLISTDATA'.

ENDFORM.

FORM %GET_DATA TABLES DATATAB STRUCTURE %G00

USING FIRST TYPE I

LAST TYPE I.

APPEND LINES OF %G00 FROM FIRST TO LAST TO DATATAB.

ENDFORM.

FORM %GET_REF_TO_TABLE USING LID LIKE RSAQLDESC-LID

REF_TO_ITAB TYPE REF TO DATA

SUBRC LIKE SY-SUBRC.

SUBRC = 0.

CASE LID.

WHEN 'G00'.

CREATE DATA REF_TO_ITAB LIKE %G00[].

WHEN OTHERS.

SUBRC = 4.

MESSAGE S860(AQ).

ENDCASE.

ENDFORM.

FORM %VIEW.

DATA: RET TYPE I.

PERFORM CHECK_WINGUI(RSAQSYST) USING RET.

IF RET <> 0.

MESSAGE S841(AQ).

PERFORM %DOWNLOAD USING 'ALV'.

EXIT.

ENDIF.

DATA: ANZ TYPE I,

PROG LIKE SY-REPID.

PROG = SY-REPID.

PERFORM INIT_DOWNLOAD(RSAQEXCE).

CASE %TAB.

WHEN 'G00'.

PERFORM GENERATE_VIEW_DYNPRO(RSAQEXCE)

USING PROG TEXT-GRL.

DESCRIBE TABLE %G00 LINES ANZ.

TVIEW100-LINES = ANZ.

PERFORM INIT_VIEW(RSAQEXCE) TABLES %G00 USING TVIEW100.

CALL SCREEN 100.

PERFORM RESET_VIEW_DYNPRO(RSAQEXCE).

WHEN OTHERS.

MESSAGE S860(AQ).

ENDCASE.

ENDFORM.

FORM %CLEAR02.

CLEAR %G00-EKPO-ANFNR.

CLEAR %G00-EKKN-SAKTO.

ENDFORM.

FORM %OUTPUT_GL.

IF %MAX_PRLIST <> 0.

READ TABLE %PRLIST WITH KEY TAB = 'GGG'.

IF SY-SUBRC <> 0.

EXIT.

ENDIF.

ENDIF.

SET MARGIN 00.

PERFORM COMPLETE_PAGE(RSAQEXCE).

%NOCHANGE = SPACE.

NEW-PAGE.

REFRESH %WA010.

REFRESH %W0100.

%GLLINE = 0.

%TAB = 'G00'.

%LINE = 0.

%CONT = '0'.

%FINT = SPACE.

%FCOL = '0'.

%HEAD = 'GGG'.

%CLINE = 0.

%OUTFLAG = SPACE.

%OUTCOMP = SPACE.

%OUTTOTAL = SPACE.

%RFLAG = 'AA'.

IF %DIACT <> SPACE AND %DIACT NA 'SWE'. WRITE SPACE. ENDIF.

FORMAT RESET.

LOOP.

%DATA_SELECTED = 'X'.

AT %FG01.

%ZNR = '01'.

%ZGR = '01'.

%CLINE = %CLINE + 1.

PERFORM %CLEAR02.

%G00-EKPO-MATKL = EKPO-MATKL.

%G00-SKAT-SAKNR = SKAT-SAKNR.

%G00-SKAT-TXT20 = SKAT-TXT20.

%G00-SKAT-TXT50 = SKAT-TXT50.

%G00-EKKO-EBELN = EKKO-EBELN.

%G00-EKKO-BUKRS = EKKO-BUKRS.

%G00-EKKO-AEDAT = EKKO-AEDAT.

%G00-EKKO-BEDAT = EKKO-BEDAT.

%G00-EKPO-BUKRS = EKPO-BUKRS.

%G00-EKKO-LIFNR = EKKO-LIFNR.

%G00-EKPO-KUNNR = EKPO-KUNNR.

%G00-EKPO-MATNR = EKPO-MATNR.

%G00-EKPO-EBELN = EKPO-EBELN.

%G00-EKKN-EBELN = EKKN-EBELN.

%G00-EKKN-MENGE = EKKN-MENGE.

%G00-EKPO-MEINS-0115 = EKPO-MEINS.

%G00-SKAT-SPRAS = SKAT-SPRAS.

%G00-SKAT-KTOPL = SKAT-KTOPL.

%G00-EKKO-AUSNR = EKKO-AUSNR.

%G00-EKKO-LPONR = EKKO-LPONR.

IF %FIRST <> SPACE. APPEND %G00. ENDIF.

%GLLINE = %GLLINE + 1.

%LZNR = %ZNR.

IF %DIACT <> SPACE AND %DIACT NA 'SWE'. CONTINUE. ENDIF.

PERFORM CHECK(RSAQEXCE) USING ' '.

IF %RFLAG = 'E'. EXIT. ENDIF.

IF %RFLAG = 'AA'.

PERFORM RESERVE(RSAQEXCE) USING 002.

ENDIF.

IF %RFLAG(1) = 'A'.

FORMAT RESET.

%FINT = 'F'. %FCOL = '0'.

FORMAT COLOR 2. %FCOL = '2'.

PERFORM %NEWLINE.

WRITE 002(009) EKPO-MATKL.

%LINE = %GLLINE.

PERFORM %HIDE.

%LINE = 0.

IF %RFLAG = 'AA'. HIDE %CLINE. ENDIF. HIDE %ZGR.

PERFORM %HIDE_COLOR.

WRITE 012(010) SKAT-SAKNR.

WRITE 023(020) SKAT-TXT20.

WRITE 044(050) SKAT-TXT50.

WRITE 095(010) EKKO-EBELN.

WRITE 106(004) EKKO-BUKRS.

WRITE 111(010) EKKO-AEDAT.

WRITE 122(010) EKKO-BEDAT.

WRITE 133(004) EKPO-BUKRS.

WRITE 138(010) EKKO-LIFNR.

WRITE 149(010) EKPO-KUNNR.

WRITE 160(018) EKPO-MATNR.

WRITE 179(010) EKPO-EBELN.

WRITE 190(010) EKKN-EBELN.

WRITE 201(017) EKKN-MENGE

UNIT EKPO-MEINS.

WRITE 219(003) EKPO-MEINS.

WRITE 223(002) SKAT-SPRAS.

WRITE 226(004) SKAT-KTOPL.

WRITE 231(010) EKKO-AUSNR.

WRITE 242(005) EKKO-LPONR.

ENDIF.

ENDAT.

AT %FG02.

%ZNR = '02'.

%ZGR = '01'.

IF %ZNR > %LZNR.

READ TABLE %G00 INDEX %GLLINE.

ENDIF.

%G00-EKPO-ANFNR = EKPO-ANFNR.

%G00-EKKN-SAKTO = EKKN-SAKTO.

IF %ZNR > %LZNR.

IF %FIRST <> SPACE. MODIFY %G00 INDEX %GLLINE. ENDIF.

ELSE.

IF %FIRST <> SPACE. APPEND %G00. ENDIF.

%GLLINE = %GLLINE + 1.

ENDIF.

%LZNR = %ZNR.

IF %DIACT <> SPACE AND %DIACT NA 'SWE'. CONTINUE. ENDIF.

PERFORM CHECK(RSAQEXCE) USING ' '.

IF %RFLAG = 'E'. EXIT. ENDIF.

IF %RFLAG(1) = 'A'.

FORMAT RESET.

%FINT = 'F'. %FCOL = '0'.

FORMAT COLOR 2. %FCOL = '2'.

PERFORM %NEWLINE.

WRITE 002(010) EKPO-ANFNR.

%LINE = %GLLINE. %CONT = '1'.

PERFORM %HIDE.

%LINE = 0. %CONT = '0'.

IF %RFLAG = 'AA'. HIDE %CLINE. ENDIF. HIDE %ZGR.

PERFORM %HIDE_COLOR.

WRITE 013(010) EKKN-SAKTO.

ENDIF.

ENDAT.

AT %FGWREKKN01.

CLEAR %W0100.

%W0100-EKPO-MEINS = EKPO-MEINS.

%W0100-EKKN-MENGE = EKKN-MENGE.

COLLECT %W0100.

ENDAT.

AT LAST.

%ZNR = 0.

%RFLAG = 'AA'.

%OUTTOTAL = 'X'.

PERFORM RESERVE(RSAQEXCE) USING 2.

PERFORM %ULINE.

FORMAT RESET.

FORMAT INTENSIFIED ON COLOR 3.

%FINT = 'N'. %FCOL = '3'.

%NOCHANGE = 'X'.

PERFORM %NEWLINE.

%NOCHANGE = SPACE.

WRITE (13) TEXT-F02.

PERFORM %HIDE.

PERFORM %HIDE_COLOR.

SORT %W0100 BY EKPO-MEINS.

WRITE 223 '*'.

REFRESH %WA010.

DO.

%SUBRC = 4.

CLEAR %WA010.

READ TABLE %W0100 INDEX SY-INDEX.

IF SY-SUBRC = 0.

%SUBRC = 0.

%WA010-EKKN-EKPO-MEINS = %W0100-EKPO-MEINS.

%WA010-EKKN-MENGE = %W0100-EKKN-MENGE.

ENDIF.

IF %SUBRC = 4.

EXIT.

ENDIF.

APPEND %WA010.

ENDDO.

LOOP AT %WA010.

IF SY-TABIX <> 1.

PERFORM %NEWLINE.

ENDIF.

IF %WA010-EKKN-EKPO-MEINS = SPACE.

WRITE 201(017) %WA010-EKKN-MENGE

UNIT %WA010-EKKN-EKPO-MEINS NO-ZERO.

IF NOT %WA010-EKKN-MENGE IS INITIAL.

%KEYEMPTY = 'X'.

ENDIF.

ELSE.

WRITE 201(017) %WA010-EKKN-MENGE

UNIT %WA010-EKKN-EKPO-MEINS.

ENDIF.

WRITE 219(003) %WA010-EKKN-EKPO-MEINS.

PERFORM %HIDE.

PERFORM %HIDE_COLOR.

ENDLOOP.

ENDAT.

ENDLOOP.

%RFLAG = 'AA'.

PERFORM %ULINE.

CLEAR: %CLINE, %ZGR.

ENDFORM.

MODULE %INIT_VIEW OUTPUT.

CASE %TAB.

WHEN 'G00'.

PERFORM INIT_PBO(RSAQEXCE) TABLES %G00 USING TVIEW100 'X'.

WHEN OTHERS.

MESSAGE S860(AQ).

ENDCASE.

ENDMODULE.

MODULE %PBO_VIEW OUTPUT.

CASE %TAB.

WHEN 'G00'.

PERFORM LOOP_PBO(RSAQEXCE) TABLES %G00 USING %%G00 TVIEW100.

ENDCASE.

ENDMODULE.

MODULE %PAI_VIEW INPUT.

CASE %TAB.

WHEN 'G00'.

PERFORM LOOP_PAI(RSAQEXCE) TABLES %G00 USING %%G00 TVIEW100.

ENDCASE.

ENDMODULE.

MODULE %OKCODE_VIEW INPUT.

CASE %TAB.

WHEN 'G00'.

PERFORM OKCODE(RSAQEXCE) TABLES %G00 USING TVIEW100.

ENDCASE.

ENDMODULE.

0 Kudos

Hi,

my problem resolved already after i inner join EKPO-EBELN with EKKO-EBELN.

thanks to all of you.

0 Kudos

hi

i hit some problem in this statement.

perform ldesc(rsaqexce) using 'G00371000X008 00 98'

text-A50 text-B50 text-H00 'MARC-AUSDT' MARC-AUSDT 'MARC-AUSDT' .

I am enhancing the program convert from SQ01. any idea where to get the parameter for this perform ldesc(rsaqexce) ? What is this "'G00371000X008 00 98' " get from ??

Regards

sim

Former Member
0 Kudos

Problem resolved.

0 Kudos

How to solve your issue pl explain because i also face same issue