hide code

[Former Member]

hi,

can i hide source code? in se80.

[Former Member]

hai,

You cant hide the sourc code. You can lock the code for ediding. Only display is possible.

To set that go to attributes and set editor lock.

Reward if helpful.

Regards,

Umasankar

[Former Member]

hi Nick,

you canot hide the code instead you can lock the code by GOTO->ATTRIBUTES-> enable check box ' Editor Lock '.

[Laxmana_Appana_]

Hi,

Check these links :

http://www.sap-basis-abap.com/sapab028.htm

Regards

Appana

[Former Member]

Hi Nick,

U can't hide it but u can lock it for editing as follow:-

Goto se38

Foe ur Prog. Choose Attributes radio Buttton and click Change.

In this screen Check the check box Editor Lock and save it.

Now this locked.

Rewards Points if helpful by clicking radio buttons on left.

Regards

-

---

Sachin Dhingra

[Former Member]

Hello,

Put this code in the first line of the editor.

*@#@@[SAP]

If you remove it, you can edit the source again.

I don't know if this works with the new editor.

Mario

[Simha_]

Hi ,

check this program...

Program to Hide ABAP's Source Code and Protects it

report zsam_hide no standard page heading.

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

• This program hides any ABAP's source code and protects it with a

• password in this source code.

*

• After hiding, you can still run the abap (the load version is intact)

• but it cannot be displayed, edited, traced, transported or generated.

*

• If the ABAP is not hidden, the program hides it, if it is hidden, it

• unhide it.

• Remember to hide this program first!

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

selection-screen begin of block block.

parameters: program(30) obligatory.

selection-screen begin of line.

selection-screen comment 1(8) pwd.

selection-screen position 35.

parameters: password(8) modif id aaa.

selection-screen end of line.

selection-screen end of block block.

*

data: message(60) type c.

*

at selection-screen output.

loop at screen.

if screen-group1 = 'AAA'.

screen-invisible = '1'.

modify screen.

endif.

endloop.

*

initialization.

pwd = 'Password'.

*

start-of-selection.

tables: trdir.

• User name and password check

if password <> 'ABCDEFG'.

write: / 'Wrong password'.

exit.

endif.

• SAP owned?

if not program cp 'Z' and not program cp 'Y'.

write: / 'Do not hide original SAP programs!'.

exit.

endif.

• Exists?

select single * from trdir where name = program.

if sy-subrc <> 0.

write: / 'Program does not exists!'.

exit.

endif.

• Does it have a current generated version?

data: f1 type d, f3 type d.

data: f2 type t, f4 type t.

EXEC SQL.

SELECT UDAT, UTIME, SDAT, STIME INTO :F1, :F2, :F3, :F4 FROM D010LINF

WHERE PROG = :PROGRAM

ENDEXEC.

if f1 < f3 or ( f1 = f3 and f2 < f4 ).

write: / 'The program has no recent generated version!'.

exit.

endif.

• Compose a new program name

data: new_name(30), i type i, j type i.

new_name = program.

do 30 times.

i = sy-index - 1.

new_name+i(1) = '_'.

• Search for acceptable program name variations

j = 0.

select * from trdir where name like new_name.

j = j + 1.

endselect.

if j = 1.

exit.

endif.

new_name = program.

enddo.

• Cannot generate appropriate program name

if j > 1.

write: / 'Cannot generate appropriate program name'.

exit.

endif.

• Check if it is already hidden

data: f5(30).

EXEC SQL.

SELECT PROG INTO :F5 FROM D010S WHERE PROG = :NEW_NAME

ENDEXEC.

if f5 is initial.

• There is no such hidden program, hide it

EXEC SQL.

UPDATE D010S SET PROG = :NEW_NAME WHERE PROG = :PROGRAM

ENDEXEC.

concatenate 'Program' :program 'was hidden.'

into message separated by space.

else.

• There is already a hidden program there, unhide it

EXEC SQL.

UPDATE D010S SET PROG = :PROGRAM WHERE PROG = :NEW_NAME

ENDEXEC.

concatenate 'Program' :program 'was restored.'

into message separated by space.

endif.

write message.

• end of program

cheers,

Simha.

<b>Reward points if it is needful..</b>

[Former Member]

Hi nick

1. Write all this code in

a macro.

2. goto sm30

type table name 'TRMAC'

Maintain.

3. then call this in your program.

(no body can debug your code now)

4. Eg.

in your macro,

just write this code.

eg.

Name of macro : ZMAC

Line : 1

Macro Text : message 'abc' type 'S'.

5. Now create a new z program,

and just code this :

6. report abc.

parameters : a type c.

start-of-selection.

zmac.

7. ZMAC will call the macro ZMAC

and it will display the message.

regards,

Sudhir.