topic Re: hide code in Application Development and Automation Discussions

hide code

Former Member — Thu, 20 Jul 2006 10:16:51 GMT

hi,

can i hide source code? in se80.

Re: hide code

Former Member — Thu, 20 Jul 2006 10:18:56 GMT

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

Re: hide code

Former Member — Thu, 20 Jul 2006 10:20:16 GMT

hi Nick,

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

Re: hide code

Laxmana_Appana_ — Thu, 20 Jul 2006 10:20:50 GMT

Hi,

Check these links :

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

Regards

Appana

Re: hide code

Former Member — Thu, 20 Jul 2006 10:21:05 GMT

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

Re: hide code

Former Member — Thu, 20 Jul 2006 10:21:49 GMT

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

Re: hide code

Simha_ — Thu, 20 Jul 2006 10:23:01 GMT

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>

Re: hide code

Former Member — Thu, 20 Jul 2006 10:28:50 GMT

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.