Skip to Content
0
Former Member
Mar 14, 2009 at 07:49 AM

How to make display of Table along with Header and data

24 Views

Hi,

I have a read program for one of the archiving objects pertaining to a custom table which displays data for some field .Lets say 10 fields and after archiving project client is planning to add one more field to

the custom table and as per requirement as the when they want to read the archiving file post archiving

that shouldnt ask for additional effort.

Pre Release -


1 file with 10 fields Archiving -


Post release 11 fields

At this moment if some body reads pre release archived file will it throw dump and after addition of new field will it throw dump though blank field will signify pre release in data rows .

-


| No1 | No2 | No3 |

-


| Data | Data | Data |

-


Checked with few read archiving programs as if some change done to a standard table how the standard program will show output but found of little assistance S3VBAKAU.

I am passing field catalog PREPARING FIELDCATALOG--


FIELDCATALOG-FIELDNAME = 'REPID'.

FIELDCATALOG-SELTEXT_M = 'Program name'.

FIELDCATALOG-COL_POS = 1.

FIELDCATALOG-OUTPUTLEN = 30.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

  • fieldcatalog-do_sum = 'X'.

FIELDCATALOG-NO_ZERO = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'TRNSRC'.

FIELDCATALOG-SELTEXT_M = 'Transaction Source'.

FIELDCATALOG-COL_POS = 2.

FIELDCATALOG-OUTPUTLEN = 30.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

  • fieldcatalog-do_sum = 'X'.

FIELDCATALOG-NO_ZERO = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'ORACLE_REF_NBR'.

FIELDCATALOG-SELTEXT_M = 'Oracle Reference Number'.

FIELDCATALOG-COL_POS = 3.

FIELDCATALOG-OUTPUTLEN = 30.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

  • fieldcatalog-do_sum = 'X'.

FIELDCATALOG-NO_ZERO = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'CLPRJ'.

FIELDCATALOG-SELTEXT_M = 'Client Project'.

FIELDCATALOG-COL_POS = 15.

FIELDCATALOG-OUTPUTLEN = 30.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

  • fieldcatalog-do_sum = 'X'.

FIELDCATALOG-NO_ZERO = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

----


FIELDCATALOG-FIELDNAME = 'XC'.

FIELDCATALOG-SELTEXT_M = 'Expenditure Code'.

FIELDCATALOG-COL_POS = 16.

FIELDCATALOG-OUTPUTLEN = 30.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

  • fieldcatalog-do_sum = 'X'.

FIELDCATALOG-NO_ZERO = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

CLEAR FIELDCATALOG.

FIELDCATALOG-FIELDNAME = 'ACCOUNT'.

FIELDCATALOG-SELTEXT_M = 'Account'.

FIELDCATALOG-COL_POS = 17.

FIELDCATALOG-OUTPUTLEN = 30.

FIELDCATALOG-EMPHASIZE = 'X'.

FIELDCATALOG-KEY = 'X'.

  • fieldcatalog-do_sum = 'X'.

FIELDCATALOG-NO_ZERO = 'X'.

APPEND FIELDCATALOG TO FIELDCATALOG.

GD_LAYOUT-NO_INPUT = 'X'.

GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

GD_LAYOUT-F2CODE = 'DISP'.

GD_LAYOUT-ZEBRA = 'X'.

GD_REPID = SY-REPID.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = GD_REPID

IS_LAYOUT = GD_LAYOUT

IT_FIELDCAT = FIELDCATALOG[]

I_SAVE = 'X'

TABLES

T_OUTTAB = LT_ZFI

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.

Edited by: Mohinder Singh Chauhan on Mar 14, 2009 8:49 AM