ALV output

[Former Member]

hi all,

in alv output, when i m exporting it in XL then i m not getting full coloum name. can anyone please tell me that what shoud i do?

its urgent.

regards saurabh.

[Former Member]

Hi Saurabh,

Please check the ALV display. Is it showing the full name as expected by you?

While building the fieldcatalog have you used "w_fieldcat-scrtext_l = seltext_l." or have you used the small text?

I think it should come. If it still does not please try to download the report output from ALV itself in the "unconverted" form.

- Jayant Sahu

[Former Member]

HI

Manually increase the size of columns of excel sheet.

Aditya

[Former Member]

hi aditya,

thanx for reply, but problem is that suppose i have a coloum name 'empname' and when exporting its showing only 'empna'

while i m streching XL also.

please give exact suggession.

regards saurabh.

[Former Member]

Hi,

If it is showing in you ALV display output then it should come while downloading to excel file as well.

It may be some thing related to 'excel'. Please select all using (cntrl + A) in excel file and double click at the left hand top cell of the excel file, this will expand all the columns of the excel. it should come then.

- Jayant Sahu.

[Former Member]

Hi Saurabh,

Please check the ALV display. Is it showing the full name as expected by you?

While building the fieldcatalog have you used "w_fieldcat-scrtext_l = seltext_l." or have you used the small text?

I think it should come. If it still does not please try to download the report output from ALV itself in the "unconverted" form.

- Jayant Sahu

[Former Member]

hi jayant ,

thanx for reply, i m sending the codes please check and tell where shud i change....

its urgent.

*****************************************************

TABLES : PA0001 , "HR Master Record: Infotype 0001 (Org. Assignment)

PA0002 , "HR Master Record: Infotype 0002 (Personal Data)

T001P , "Personnel Area/Subarea

PA0021 , "HR Master Record: Infotype 0021 (Family)

CSKT , "Cost Center Texts

T501T , "Employee Group Names

• T001P , "Personnel Area/Subarea

PA2006, "HR Time Record: Infotype 2006 (Absence Quotas)

PA0008.

TYPE-POOLS : SLIS .

DATA : BEGIN OF ITAB OCCURS 0 ,

PERNR TYPE PA0001-PERNR,

ENAME TYPE PA0001-ENAME,

FAVOR TYPE PA0021-FAVOR,

FANAM TYPE PA0021-FANAM,

PERSG TYPE PA0001-PERSG,

BEGDA TYPE PA0001-BEGDA,

PLANS TYPE PA0001-PLANS,

BTRTL TYPE PA0001-BTRTL,

KOSTL TYPE PA0001-KOSTL,

GBDAT TYPE PA0002-GBDAT,

GESCH TYPE PA0002-GESCH,

ANZHL TYPE PA2006-ANZHL,

KTART TYPE PA2006-KTART,

EEPFN LIKE PA0587-EEPFN , "PF number

FATHER(25) TYPE C,

STATUS(6) TYPE C,

P_CARD TYPE PA0001-PERNR,

COMP_CODE(11) TYPE C,

CAT(3) TYPE C,

DIV_CODE(11) TYPE C,

GRADE_CODE(9) TYPE C,

SEX(3) TYPE C,

MARRIED(10) TYPE C,

BUS(3) TYPE C,

QUALIFICATION(13) TYPE C,

EXP(10) TYPE C,

PINCODE1(8) TYPE C,

TELE1(10) TYPE C,

EMAIL(25) TYPE C,

ADD2(8) TYPE C,

PIN2(10) TYPE C,

TELE2(10) TYPE C,

BLOOD(11) TYPE C,

VEHI(8) TYPE C,

• PFNO TYPE I,

ESI(4) TYPE C,

BANKACC(12) TYPE C,

DISP(11) TYPE C,

POLICY(14) TYPE C,

P(10) TYPE c,

T(13) TYPE C,

END OF ITAB .

DATA : M(4) TYPE C,

N(2) TYPE C,

O(2) TYPE C,

Q(4) TYPE C,

R(2) TYPE C,

S(2) TYPE C.

**----

---

ALV DECLERATION

DATA : W_CONTAINER TYPE SCRFNAME VALUE 'CL_GRID',

W_CPROG TYPE LVC_S_LAYO,

G_REPID LIKE SY-REPID,

W_SAVE TYPE C,

W_EXIT TYPE C,

CL_GRID TYPE REF TO CL_GUI_ALV_GRID,

CL_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,

IT_FLD_CATALOG TYPE SLIS_T_FIELDCAT_ALV,

WA_FLD_CATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE ,

LAYOUT TYPE SLIS_LAYOUT_ALV,

COL_POS LIKE SY-CUCOL ,

ALVFC TYPE SLIS_T_FIELDCAT_ALV.

***----

---

SELECTION SCREEN

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

SELECT-OPTIONS : PERNR FOR PA0001-PERNR ,

BEGDA FOR PA0001-BEGDA.

SELECTION-SCREEN : END OF BLOCK B1 .

************************************************************************

****

PERFORM FILL_CATALOG1 USING:

'STATUS' 'ITAB' 'Active' ,

'PERNR' 'ITAB' 'Paycode',

'P' 'ITAB' 'Date of join',

'P_CARD' 'ITAB' 'Present CardNo',

'ENAME' 'ITAB' 'Emp Name',

'FATHER' 'ITAB' 'GuardianName',

'T' 'ITAB' 'Date of Birth' ,

'COMP_CODE' 'ITAB' 'CompanyCode',

'KOSTL' 'ITAB' 'DepartmentID' ,

'CAT' 'ITAB' 'CAT',

'DIV_CODE' 'ITAB' 'DivisionCode',

'GRADE_CODE' 'ITAB' 'GradeCode',

'SEX' 'ITAB' 'SEX',

'MARRIED' 'ITAB' 'IS MARRIED',

'BUS' 'ITAB' 'BUS',

'QUALIFICATION' 'ITAB' 'QUALIFICATION',

'EXP' 'ITAB' 'EXPERIENCE',

'PLANS' 'ITAB' 'Designation',

'ADD1' 'ITAB' 'ADDRESS1',

'PINCODE1' 'ITAB' 'PINCODE1',

'TELE1' 'ITAB' 'TELEPHONE1',

'EMAIL' 'ITAB' 'E-MAIL1',

'ADD2' 'ITAB' 'ADDRESS2',

'PIN2' 'ITAB' 'PINCODE2',

'TELE2' 'ITAB' 'TELEPHONE2',

'BLOOD' 'ITAB' 'BLOODGROUP',

'VEHI' 'ITAB' 'VEHICLE',

'EEPFN' 'ITAB' 'PF NUMBER',

'PFNO' 'ITAB' 'PF_NO',

'ESI' 'ITAB' 'ESINO',

'BANKACC' 'ITAB' 'BANK ACCOUNT',

'DISP' 'ITAB' 'DISPENSARY',

'POLICY' 'ITAB' 'POLICY PAYCODE'.

********1**************************************************************

SELECT PERNR ENAME PERSG BTRTL BEGDA INTO CORRESPONDING FIELDS OF TABLE ITAB FROM PA0001

WHERE PERNR IN PERNR

AND BEGDA IN BEGDA.

IF SY-SUBRC <> 0 .

MESSAGE 'DATA NOT FOUND.' TYPE 'I' .

ENDIF .

SORT ITAB BY PERNR .

DELETE ADJACENT DUPLICATES FROM ITAB COMPARING PERNR .

LOOP AT ITAB.

M = ITAB-BEGDA+0(4).

N = ITAB-BEGDA+4(2).

O = ITAB-BEGDA+6(2).

CONCATENATE O N M INTO ITAB-P SEPARATED BY '/'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING P.

ITAB-COMP_CODE = '1'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING COMP_CODE.

ITAB-KOSTL = '1'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING KOSTL.

ITAB-CAT = '1'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING CAT.

ITAB-DIV_CODE = '1'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING DIV_CODE.

ITAB-GRADE_CODE = '1'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING GRADE_CODE.

ITAB-PLANS = '1'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING PLANS.

IF ITAB-PERSG = '1'.

ITAB-STATUS = 'Y'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING STATUS.

ELSE.

ITAB-STATUS = 'N'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING STATUS.

ENDIF.

SELECT FAVOR FANAM INTO (ITAB-FAVOR , ITAB-FANAM) FROM PA0021

WHERE PERNR = ITAB-PERNR .

CONCATENATE ITAB-FAVOR ITAB-FANAM INTO ITAB-FATHER SEPARATED BY SPACE.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING FATHER.

ENDSELECT .

SELECT GBDAT GESCH INTO (ITAB-GBDAT , ITAB-GESCH) FROM PA0002 WHERE PERNR = ITAB-PERNR .

Q = ITAB-GBDAT+0(4).

R = ITAB-GBDAT+4(2).

S = ITAB-GBDAT+6(2).

CONCATENATE S R Q INTO ITAB-T SEPARATED BY '/'.

MODIFY ITAB INDEX SY-TABIX TRANSPORTING T.

IF ITAB-GESCH = '1' .

ITAB-SEX = 'M' .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING SEX.

ELSEIF ITAB-GESCH = '2' .

ITAB-SEX = 'F' .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING SEX.

ENDIF .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING GBDAT.

ENDSELECT .

SELECT EEPFN INTO (ITAB-EEPFN) FROM PA0587

WHERE PERNR = ITAB-PERNR .

MODIFY ITAB INDEX SY-TABIX TRANSPORTING EEPFN.

ENDSELECT .

ENDLOOP.

LAYOUT-ZEBRA = 'X' .

*LAYOUT-COLWIDTH_OPTIMIZE(1) = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZTIME_WATCH'

IS_LAYOUT = LAYOUT

IT_FIELDCAT = IT_FLD_CATALOG

I_DEFAULT = 'X'

I_SAVE = 'A'

TABLES

T_OUTTAB = ITAB

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

*ENDFORM.

FORM FILL_CATALOG1 USING P_FIELDNAME TYPE ANY

P_REF_TABLE TYPE ANY

P_SCRTEXT TYPE ANY.

• P_SELTEXT_L TYPE ANY.

.

CLEAR : WA_FLD_CATALOG.

WA_FLD_CATALOG-FIELDNAME = P_FIELDNAME.

WA_FLD_CATALOG-TABNAME = P_REF_TABLE.

WA_FLD_CATALOG-SELTEXT_S = P_SCRTEXT.

WA_FLD_CATALOG-SELTEXT_M = P_SCRTEXT.

WA_FLD_CATALOG-SELTEXT_L = P_SCRTEXT.

• WA_FLD_CATALOG-SCRTEXT_L = P_SELTEXT_L.

APPEND WA_FLD_CATALOG TO IT_FLD_CATALOG.

ENDFORM. " fill_catalog1