[ABAP, CO-PA] CO-PA Value Field text table : DD04T

DD04T : R/3 DD: Data element Text

TKEF : CO-PA Field catalog


SELECT T~FIENM D~DDTEXT D~REPTEXT
             D~SCRTEXT_S D~SCRTEXT_M D~SCRTEXT_L
   FROM TKEF AS T JOIN DD04T AS D
       ON T~ROLNM = D~ROLLNAME
 WHERE T~FIENM LIKE 'VV%'


* Value field created by you must begin with "VV"

[ABAP] SM12 - 사용자 OO가 OO를 편집중입니다.

또다른 세션창이 없고
해당파일을 수정하는 다른 유저도 없는데
활성화시에

" 사용자 OO가 OO를 편집중입니다." 라는 메시지가 나타날 경우.

SM12에서 조회 후 삭제 가능.



메시지번호 EU510

Diagnosis
You attempted to change a Workbench object.

System Response
This object is currently being edited by another user and is therefore locked (by an ENQUEUE lock).

Procedure
Wait until the other user has finished.

If the ENQUEUE lock remains as a result of a mode termination or due to other serious problems in the lock administration and no other user is editing the object, you can delete the lock using Transaction SM12. This operation is logged by the system.

[ABAP] Comparing Strings

http://help.sap.com/saphelp_bw/helpdata/en/fc/eb3516358411d1829f0000e829fbfe/content.htm

<operator>	Meaning
CO	Contains Only
CN	Contains Not only
CA	Contains Any
NA	contains Not Any
CS	Contains String
NS	contains No String
CP	Contains Pattern
NP	contains No Pattern

<f1>	<operator>	<f2>	Result	SY-FDPOS
'BD '	CO	'ABCD '	true	5
'BD '	CO	'ABCDE'	false	2
'ABC12'	CN	'ABCD '	true	3
'ABABC'	CN	'ABCD '	false	5
'ABcde'	CA	'Bd '	true	1
'ABcde'	CA	'bD '	false	5
'ABAB '	NA	'AB '	false	0
'ababa'	NA	'AB '	true	5
'ABcde'	CS	'bC '	true	1
'ABcde'	CS	'ce '	false	5
'ABcde'	NS	'bC '	false	1
'ABcde'	NS	'ce '	true	5
'ABcde'	CP	'*b*'	true	1
'ABcde'	CP	'*#b*'	false	5
'ABcde'	NP	'*b*'	false	1
'ABcde'	NP	'*#b*'	true	5

[ABAP] Lotto 6/45

REPORT Z_LOTTO.

TYPES: BEGIN OF LOTTO,
        NUM TYPE INT2,
      END OF LOTTO.

* Sorted table with unique key : Auto sorting & no duplication.
" 1 Game.
DATA: LT_GAME TYPE SORTED TABLE OF LOTTO
      WITH UNIQUE KEY NUM WITH HEADER LINE.

" 5 Game.
DATA: BEGIN OF LT_5GAME OCCURS 0,
       GAME LIKE TABLE OF LT_GAME,
      END OF LT_5GAME.
DATA: LS_GAME LIKE LINE OF LT_GAME.

DATA: LV_CNT(1) TYPE N.

DO 5 TIMES. " make 5 game.
  CLEAR: LT_GAME, LT_GAME[], LT_5GAME, LV_CNT.

  WHILE LV_CNT < 6. " get number until 6.

     CALL FUNCTION 'RANDOM_I2'    " random function.
     EXPORTING
       RND_MIN         = 1
       RND_MAX         = 45
     IMPORTING
       RND_VALUE       = LT_GAME-NUM.

     INSERT TABLE LT_GAME.

     LV_CNT = LINES( LT_GAME ). "number count

  ENDWHILE.

  LT_5GAME-GAME = LT_GAME[].
  APPEND LT_5GAME.

ENDDO.

" display.
LOOP AT LT_5GAME.
  LOOP AT LT_5GAME-GAME INTO LS_GAME.

   WRITE: LS_GAME-NUM  .
  ENDLOOP.
  WRITE /.
ENDLOOP.