2006 May 22 1:13 PM
Hi,
If any1 has a good document on Field Symbols please do forward it.
Regards,
Siva.
2006 May 22 1:16 PM
Hi Siva,
Check this link:
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3860358411d1829f0000e829fbfe/content.htm
Regards,
Ravi
Hi,
If any1 has a good document on Field Symbols please do forward it.
Regards,
Siva.
2006 May 22 1:15 PM
PL check this<a href="http://help.sap.com/saphelp_47x200/helpdata/en/fc/eb3860358411d1829f0000e829fbfe/frameset.htm">SAP help</a>
Regards,
Suresh Datti
2006 May 22 1:16 PM
Hi Siva,
Check this link:
http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3860358411d1829f0000e829fbfe/content.htm
Regards,
Ravi
2006 May 22 1:17 PM
chk this help
<a href="http://help.sap.com/saphelp_nw04/helpdata/en/fc/eb3860358411d1829f0000e829fbfe/content.htm">field Symbols</a>
Message was edited by: Chandrasekhar Jagarlamudi
2006 May 22 1:21 PM
REPORT ztestit .
DATA: BEGIN OF i0008 OCCURS 10.
INCLUDE STRUCTURE p0008.
DATA: END OF i0008.
data:var_n_cnt type i,
var_lga_name(12),
var_bet_name(12),
wagetype like pa0008-lga01,
amount like pa0008-bet01,
sum like pa0008-bet01,
var_c_cnt(2).
FIELD-SYMBOLS <lga_var_name> TYPE ANY.
FIELD-SYMBOLS <bet_var_name> TYPE ANY.
FIELD-SYMBOLS <lga_val> TYPE ANY.
FIELD-SYMBOLS <bet_val> TYPE ANY.
CALL FUNCTION 'HR_READ_INFOTYPE'
EXPORTING
TCLAS = 'A'
pernr = '1687'
infty = '0008'
begda = '20041014'
endda = '99991231'
BYPASS_BUFFER = ' '
LEGACY_MODE = ' '
IMPORTING
SUBRC =
TABLES
infty_tab = i0008
EXCEPTIONS
INFTY_NOT_FOUND = 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.
***********************check to be performed*******
LOOP AT i0008.
var_n_cnt = 1.
WHILE var_n_cnt <= 20.
IF var_n_cnt < 10.
var_c_cnt = var_n_cnt.
CONCATENATE '0' var_c_cnt INTO var_c_cnt.
ELSE.
var_c_cnt = var_n_cnt.
ENDIF.
CONCATENATE 'I0008-LGA' var_c_cnt INTO var_lga_name.
ASSIGN var_lga_name TO <lga_var_name>.
ASSIGN (<lga_var_name>) TO <lga_val>.
ASSIGN (<lga_var_name>) TO wagetype.
CONCATENATE 'I0008-BET' var_c_cnt INTO var_bet_name.
ASSIGN var_bet_name TO <bet_var_name>.
ASSIGN (<bet_var_name>) TO <bet_val>.
ASSIGN (<bet_var_name>) TO amount.
*
IF <lga_val> = '1000'.
sum = sum + <bet_val>.
write : sum.
<BET_VAR_NAME> = IT_ZWAGE-MIN_PAY.
IF <bet_val> = ''.
<bet_val> = it_zwage-min_pay.
*sum = sum + amount.
endif.
var_n_cnt = var_n_cnt + 1.
*unassign
endwhile.
ENDLOOP.
write:/ sum.
check this program and try ABAPDOCU for documentation ...
reward points if it helps
gunjan
2006 May 22 1:21 PM
Hai Siva Prakash
Field-Symbols are place holders for existing fields.
A Field-Symbol does not physically reserve space for a field but points to a field, which is not known until run time of the program.
Field-Symbols are like Pointers in Programming language C .
Syntax check is not effective.
Syntax :
Data : v1(4) value abcd.
Field-symbols <fs>.
Assign v1 to <fs>.
Write:/ <fs>.
DATA: BEGIN OF LINE,
COL1 TYPE I,
COL2 TYPE I,
END OF LINE.
DATA ITAB LIKE SORTED TABLE OF LINE WITH UNIQUE KEY COL1.
FIELD-SYMBOLS <FS> LIKE LINE OF ITAB.
DO 4 TIMES.
LINE-COL1 = SY-INDEX.
LINE-COL2 = SY-INDEX ** 2.
APPEND LINE TO ITAB.
ENDDO.
READ TABLE ITAB WITH TABLE KEY COL1 = 2 ASSIGNING <FS>.
<FS>-COL2 = 100.
READ TABLE ITAB WITH TABLE KEY COL1 = 3 ASSIGNING <FS>.
DELETE ITAB INDEX 3.
IF <FS> IS ASSIGNED.
WRITE '<FS> is assigned!'.
ENDIF.
LOOP AT ITAB ASSIGNING <FS>.
WRITE: / <FS>-COL1, <FS>-COL2.
ENDLOOP.
The output is:
1 1
2 100
4 16
Thanks & regards
Sreeni
| User | Count |
|---|---|
| 3 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |