Locking user

Hi,
i need to lock users. One method is to directly access USR02, but i'm not so pleased with that.
Looking for function modules i found BAPI_USER_LOCK. This is not sufficient, i need to set the validity date (GLTGB) in addition. BAPI_USER_CHANGE does not offer to change the validity date.
Is there any other FM to lock the user and set the field GLTGB to a specified date?

Hi Rainer,
please have a look at report IAM_API_TESTFRAME.
Inline documentation says
*& Report serves as frame for calling the
*& Identity & Access Management API in ABAP.
*& For documentation purposes, but covers main functionality
I did not use or analyze further but I think it could be helpful especially as it may maintain remote systems
Regards,
Clemens

Similar Messages

Lock User when enter password in wrong 3 times

Hi,
I user oracle E-Business Suite 11i .
I want to Lock User(Disable Account) when enter password in wrong 3 times.
Thanx
Rafeek
Edited by: reemax on Apr 20, 2010 4:19 AM

Hi,
you can set the profile value FAILED_LOGIN_ATTEMPETS to 3 to restrict that wrong password entry as folows
sql>ALTER PROFILE default LIMIT failed_login_attempts 3;
--Rathina

Background job for auto lock user

Dear Friends,
Which background job i have to be schedule for auto locking user after every 30 days if then are not logged for last 30 days.
Thanks,
Regards,
Sachin

Hi, Sachin.
Please check this thread.
Locking users if they did not login for 15 days
Best Regards.
Sejoon

How to find list of locked users & unlock them?

Hello,
Is there any method in portal to find the list of locked users? and unlock them.
we can unlock single user at a time.
but if we want to unlock a group of users (for Ex:- 20 locked users), how can we unlock al the 20 locked users?
Thanks in advance,
Vila.

Hi Vila,
Go to user administration -> Identity management
Click on advanced search. Go to account information tab. Check the use account locked field and then click on search. This will give you a list of all the users whose accounts are locked.
Select all the users whose accounts you want to unlock, and then click unlock.
Regards,
Ankit

Report/FM/RFC that gives a list of Locked users

Is there a Report/FM/RFC/BAPI that gives a list of Locked users please?

Hi Hruser,
There are two options two get the locked users.
1. Execute TCode SA38 and run the ABAP Report RSUSR200.
2. Execute Tcode EWZ5.
Thanks
Lokendra Kumar

While Filling-up setup tables how to lock users & Suspend user

Hi Friends & Experts,
I am going to Run Set-up tables in my BI Production servers as Application wise for example..SD, MM, PP, QM, & Invetary.
So I want to tell to client kindly lock users & suspend users to stop document postings.
How to tell this to clients this situation. pls do suggest on this.
Siri

Hi Friends thank you for your quick response...
Is there any Particular T.Codes as Application wise..E.g: PP, MM, SD, QM. Inventary.. to Lock instead of Lock SM01.
Because if we lock SM01 All T.codes are going to Lock. I think It's not advisable.
Pls Suggest me as soon as possible.
Siri

How to find the Locked User Account in OBIEE Admin Console

We have recently implemented OBIEE and we are in Learning mode. An user complained that his user account is locked, since he tried to login several times with wrong password. Apparently we unlocked his account successfully. Is there any way to find which user accounts are locked? This may be really helpful for
Thanks in advance.

Looks like using wlst code can get the list
Check this
http://weblogic-wonders.com/weblogic/2010/11/12/userlockout-feature-of-weblogic-server/
If you customize above code with the below, can get the list of locked users on console
ul= connection.invoke(ulr, "isLockedOut", new Object[] { username },new String[] { "java.lang.String" }).toString();
System.out.println("Rezultat isUserLocked " + ul);
pls mark correct/helpful if helps
Edited by: veeravalli on Oct 18, 2012 11:51 AM

How do I view a list of locked users?

Is there a way to view a list of currently locked users? I only see pages to show the count of locked users or to unlock a specific user.

I've found a way through Terminal for AFP and Mail:
https://discussions.apple.com/message/16155552#16155552

No Access Error with Locked User iView

Hi
We are running EP6SP2 Patch 35
Im trying to give access to the Locked User iView to a group of users (I dont want them to have full User Management functionality)
Ive created a role and added Locked User iView to it. The role has the same property values as the standard User Admin role (eg UME Action ID: UME.Manage_All = Yes), but when I try to access the Locked User iView I get:
No Access
You have no permission to perform this action.
Can anybody advise what else I need to do to get this to work?
Thanks.

Hi Mike,
just to make sure: did you restart the server after assigning the UME Action to the role???
Unfortunately, this has to be done in order for your changes to take effect.
Best regards,
Robert

Hide locked users in UWL people search

Hi,
I would like to hide the locked users from displaying in the UWL people search results for example while selecting an assignee during Forward task or selecting a nominee during Substitution.
Based on the SDN search does not looks like we can modify the standard WD components for UWL such as UWLUserAction or UWLSubstitution. Is there any other way of achieving this? Appreciate all help.
Thanks!!

If you want to customize the UWL substitution people picker search results, please refer to the following blog:
How To Customize UWL Substitution People Picker Search Results
If you want to restrict the users available when setting up substitution, please see the following link:
http://wiki.sdn.sap.com/wiki/pages/viewpage.action?pageId=202081897
Also, have a look at the following thread:
Re: Substitution Rules in UWL
In the forum link above, Jigar mentioned a way to control the substitution from the HRUS_D2 table in the backend system. This seems to be a viable option to me.
Hope that helps !!
Thanks,
Shanti

Is it possible to lock User?

Hi,
In 11g OID, is it possible to lock user?
I found note for unlocking user but locking user there no documentation.
Regards,
nilesh
Oracle Support

Just a simple question to you:
How did you unlock any user into OID. You just update value for one attribute in OID. Can't you change that value to lock value programatically ?
Attribute: orclpwdaccountunlock

Help me: I have locked user cn=orcladmin in oid

Hello.
Pleas help me, I have locked user cn=orcladmin in oid production environment
I have tried to unlock with this procedure, but It doesn´t work:
[oracle@appamucm01pro admin]$ /opt/oracle/mw/mw_idm/Oracle_IDM/ldap/bin/oidpasswd connect=OIDDB unlock_su_acct=true
OID DB user password:
ERROR * gsldpuUnlockSuAccount * ORA-28000:ORA-28000: the account is locked
encountered
Error in unlocking OID super user account.
[oracle@appamucm01pro admin]$
This is my oid version:
[oracle@appamucm01pro admin]$ $ORACLE_HOME/bin/oidldapd -version
oidldapd: Release 11.1.1.5.0 - Production on fri mar 1 14:38:56 2013
Copyright (c) 1982, 2011 Oracle. All rights reserved.
[oracle@appamucm01pro admin]$
[oracle@appamucm01pro admin]$

Hi ,
First get your OID schema name for example suppose it's ODS the follow the following steps
1- sqlplus / as sysdba
2- alter user ODS account unlock;
it should unlock you OID user .
thanks
Amar

Server unlocks locked users automatically - why ?

Hello,
I am using WLS 6.1 SP1
I have set Lockout Enable option to TRUE in Password tab of security.
I also have set
Lockout Threshold = 3
Lockout Duration=999999
Lockout ResetDureation= 5
and rest are default.
After invalid login in a span of 5 minutes, server locks the user.
I can see the status on the console server->Monitoring->Security tab
Total User Unlocked = 0
Locked Users = 1
But if try to login again with same (locked) user with or without correct
password,
the server unlocks user. Next attempt with correct password, user will be
successfully authenticated.
If you see in the console for server->Monitoring->Security tab,
Total User Unlocked = 1
Locked Users = 0
I have not used any unlock command.
Is there is anything wrong in the configuration or web.xml ?
Thanks
Deepak

Hello,
I found out one problem - Looks like a BUG
If Lockout Duration = 999999 then Server unlocks locked user automatically
during next login attempt
with correct or incorrect password.
This looks like a bug becuase
--- Value 999999 is the maximum value allowed and it accepts this value.
In the documentation, this value represented in terms of Seconds as the unit
of measurement
whereas actaully the <Lock Notice> is displayed in terms as 999'999 Minutes.
I tried with value 99999 (5 digits), it works !!!
Regards
Deepak
"Deepak Rampoore" <[email protected]> wrote in message
news:3C43A75F@mail...
Hello,
I am using WLS 6.1 SP1
I have set Lockout Enable option to TRUE in Password tab of security.
I also have set
Lockout Threshold = 3
Lockout Duration=999999
Lockout ResetDureation= 5
and rest are default.
After invalid login in a span of 5 minutes, server locks the user.
I can see the status on the console server->Monitoring->Security tab
Total User Unlocked = 0
Locked Users = 1
But if try to login again with same (locked) user with or without correct
password,
the server unlocks user. Next attempt with correct password, user will be
successfully authenticated.
If you see in the console for server->Monitoring->Security tab,
Total User Unlocked = 1
Locked Users = 0
I have not used any unlock command.
Is there is anything wrong in the configuration or web.xml ?
Thanks
Deepak

Log in function locking users that introduce a wrong password many times

I need to create a log in function that validates the username and the password and blocking or locking users that introduce a wrong password many times in a specific period of time. The idea is when it happens, the user has to call the administrator of the system to be unlock.
Thanks for your help.
Edited by: user13486053 on Jan 6, 2011 6:47 AM

If your are using custom authentication,
<li>There is an bultin table which contains the login acess attempts of users: APEX_USER_ACCESS_LOG , You might be interested in the columns APPLICATION,LOGINNAME,ACCESS_DATE,AUTHENTICATION_RESULT_ .
However, inorder to set the authentication_result column(therby identify failed attempts), you would have to call the APEX_UTIL.SET_AUTHENTICATION_RESULT function in your authentication function. Otherwise it would be null both for success and failure cases.
Try this, for finding failure count in last <failure check period>
select count(1)
from APEX_USER_ACCESS_LOG
where application = [APP_ID]
and   login_name = [username] --case sensitive
AND   authentication_result = [failure status]
and   SYSDATE - access_date <= [failure check period]For locking out you would have to flag some column in your custom table and show the user some message in the login page
If you want to use your own table, here's an approach
   Have a table for logging user's login status and time.
   In ur authentication function, you can write to this table everytime a login fails if its succesful u can remove previous 'failure' entries and create a 'success' entry.
   Use count the number of failures within that time period u want say 24 hrs (SELECT count(1) from <table name> where SYSDATE - <DATE column> LESS THAN 1 Day).
    If the count is more than ur required no: flag the users record as locked(have some column updated)
    In your login page, have some conditional region with some text which says the user's account is locked out(the condition can be locked column status of the user who tried to login, use the username page item for identifying the user)Hope it helps

Program to lock users

Dear Pros,
As a security admin. I would appreciate if someone could help me program to lock users vis following requiremnt:
1)       Has logged onto the system in the past, but has not logged on in the last 90 days.
2)       Has never logged onto the system in the past 30 days.
3)       Does NOT belong to User Group SUPER.
4)       Dialog Users ONLY.
Thanks for any help or suggestion

Hi,
   Try with this program or you can modify:
Selection Text
001     Program Parameter
002     User Lockeds
003     User Erased
004     Report of User Lokeds and Erased
005     User
006     Last Access Date
007     Creation Date
008     Result
009     Full Name
010     Exception (Not to erase these users)
CHECK_T Test ejecution
CLASS     Users Group
MESBL     Months to Lock
MESBO     Months to Delete
S_EXCEP     Users
REPORT ZBAR0009 NO STANDARD PAGE HEADING LINE-SIZE 155 LINE-COUNT 60.
TABLES: USR02,              "Datos logon
        USR21,              "Asignación nombre usuario - clave dirección
        ADRP.               "Personas (gestión de direcciones central)
DATA: BEGIN OF IT_USBOR OCCURS 0,
          BNAME LIKE USR02-BNAME, "Nombre de usuario según maestro de us
          ERDAT LIKE USR02-ERDAT, "Fecha de creación del maestro de usua
          TRDAT LIKE USR02-TRDAT. "Fecha del último acceso al sistema
DATA END OF IT_USBOR.
DATA: BEGIN OF IT_USBLO OCCURS 0,
          BNAME LIKE USR02-BNAME, "Nombre de usuario según maestro de us
          ERDAT LIKE USR02-ERDAT, "Fecha de creación del maestro de usua
          TRDAT LIKE USR02-TRDAT. "Fecha del último acceso al sistema
DATA END OF IT_USBLO.
DATA: BEGIN OF BDCDATAC OCCURS 5.
        INCLUDE STRUCTURE BDCDATA.
DATA: END OF BDCDATAC.                 "Estructura Batch Input
Tablas de mensajes generados por el batch input de modificación.
DATA: BEGIN OF BDCMSGCOLLM OCCURS 5.
        INCLUDE STRUCTURE BDCMSGCOLL.
DATA: END OF BDCMSGCOLLM.
DATA: FECHA1 LIKE USR02-TRDAT,
      FECHA2 LIKE USR02-TRDAT,
      FECHA3 LIKE USR02-TRDAT,
      TR_MS(30),
      I      TYPE I,
      P      TYPE I,
      CONT   TYPE I.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
    PARAMETERS: MESBL(2) DEFAULT '03',
                MESBO(2) DEFAULT '06',
                CLASS LIKE USR02-CLASS DEFAULT 'UPSTREAM',
                CHECK_T AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN: BEGIN OF BLOCK C1 WITH FRAME TITLE TEXT-010.
    SELECT-OPTIONS: S_EXCEP FOR USR02-BNAME.
SELECTION-SCREEN END OF BLOCK C1.
START-OF-SELECTION.
Armado de Fechas
MOVE SY-DATUM TO FECHA1.
FECHA2 = FECHA1 - ( 30 * MESBL ).
FECHA3 = FECHA1 - ( 30 * MESBO ).
PERFORM EXTRACCIÓN_US_BLOQUEAR.
PERFORM EXTRACCIÓN_US_BORRAR.
PERFORM VALIDAR_EXCEPCIONES.
PERFORM EJECUTAR_TRANS.
TOP-OF-PAGE.
      FORMAT COLOR 4 ON.
      SKIP.
      WRITE: /57 TEXT-004, 134 'Fecha: ', SY-DATUM.
      WRITE: /134 'Página: ', SY-PAGNO, 151 ' '.
      SKIP.
END-OF-PAGE.
*&      Form EXTRACCIÓN_US_BORRAR
      text
--> p1        text
<-- p2        text
FORM EXTRACCIÓN_US_BORRAR.
Selección de los Usuarios a Borrar que han entrado alguna vez
    SELECT BNAME ERDAT TRDAT APPENDING CORRESPONDING FIELDS OF TABLE
                       IT_USBOR FROM USR02 WHERE TRDAT LT FECHA3 AND
                                            TRDAT NE '00000000' AND
                                            CLASS EQ CLASS.
Selección de los Usuarios a Borrar que aún no han entrado
    SELECT BNAME ERDAT TRDAT APPENDING CORRESPONDING FIELDS OF TABLE
                       IT_USBOR FROM USR02 WHERE ERDAT LT FECHA3 AND
                                            TRDAT EQ '00000000' AND
                                            CLASS EQ CLASS.
ENDFORM.                    " EXTRACCIÓN_US_BORRAR
*&      Form EXTRACCIÓN_US_BLOQUEAR
      text
--> p1        text
<-- p2        text
FORM EXTRACCIÓN_US_BLOQUEAR.
Selección de los Usuarios a Bloquear que han entrado alguna vez
    SELECT BNAME ERDAT TRDAT APPENDING CORRESPONDING FIELDS OF TABLE
                     IT_USBLO FROM USR02 WHERE TRDAT LT FECHA2 AND
                                            TRDAT GE FECHA3 AND
                                            CLASS EQ CLASS.
Selección de los Usuarios a Bloquear que aún no han entrado
    SELECT BNAME ERDAT TRDAT APPENDING CORRESPONDING FIELDS OF TABLE
                   IT_USBLO FROM USR02 WHERE ERDAT LT FECHA2 AND
                                            ERDAT GE FECHA3 AND
                                            TRDAT EQ '00000000' AND
                                            CLASS EQ CLASS.
ENDFORM.                    " EXTRACCIÓN_US_BLOQUEAR
*&      Form VALIDAR_EXCEPCIONES
      text
--> p1        text
<-- p2        text
FORM VALIDAR_EXCEPCIONES.
    IF S_EXCEP NE SPACE.
        DELETE IT_USBLO WHERE BNAME EQ 'SAP*' OR
                              BNAME EQ 'DDIC' OR
                              BNAME EQ 'MAILADM' OR
                              BNAME EQ 'SAPGUEST' OR
                              BNAME EQ 'WF-BATCH' OR
                              BNAME IN S_EXCEP.
        DELETE IT_USBOR WHERE BNAME EQ 'SAP*' OR
                              BNAME EQ 'DDIC' OR
                              BNAME EQ 'MAILADM' OR
                              BNAME EQ 'SAPGUEST' OR
                              BNAME EQ 'WF-BATCH' OR
                              BNAME IN S_EXCEP.
    ELSE.
        DELETE IT_USBLO WHERE BNAME EQ 'SAP*' OR
                              BNAME EQ 'DDIC' OR
                              BNAME EQ 'MAILADM' OR
                              BNAME EQ 'SAPGUEST' OR
                              BNAME EQ 'WF-BATCH'.
        DELETE IT_USBOR WHERE BNAME EQ 'SAP*' OR
                              BNAME EQ 'DDIC' OR
                              BNAME EQ 'MAILADM' OR
                              BNAME EQ 'SAPGUEST' OR
                              BNAME EQ 'WF-BATCH'.
    ENDIF.
ENDFORM.                    " VALIDAR_EXCEPCIONES
*&      Form EJECUTAR_TRANS
      text
--> p1        text
<-- p2        text
FORM EJECUTAR_TRANS.
DATA: L TYPE I.
    DESCRIBE TABLE IT_USBLO LINES L.
    IF L GT 0.
        LOOP AT IT_USBLO.
            ADD 1 TO CONT.
            IF CHECK_T EQ SPACE.
                PERFORM EJECUTAR_US01 USING 'LOCK' IT_USBLO-BNAME.
            ENDIF.
            PERFORM LISTAR USING IT_USBLO-BNAME IT_USBLO-ERDAT
                                 IT_USBLO-TRDAT TR_MS 'LOCK'.
            AT LAST.
                ULINE /1(152).
            ENDAT.
        ENDLOOP.
    ENDIF.
    DESCRIBE TABLE IT_USBOR LINES L.
    IF L GT 0.
        CLEAR CONT.
        LOOP AT IT_USBOR.
            ADD 1 TO CONT.
            IF CHECK_T EQ SPACE.
                PERFORM EJECUTAR_US01 USING 'DELE' IT_USBOR-BNAME.
            ENDIF.
            PERFORM LISTAR USING IT_USBOR-BNAME IT_USBOR-ERDAT
                                 IT_USBOR-TRDAT TR_MS 'DELE'.
            AT LAST.
                ULINE /1(152).
            ENDAT.
        ENDLOOP.
    ENDIF.
ENDFORM.                    " EJECUTAR_TRANS
*&      Form EJECUTAR_US01
      text
     -->P_0154   text                                                *
FORM EJECUTAR_US01 USING VALCODE USUARIO.
REFRESH BDCDATAC.
MOVE: 'SAPLSUU5' TO BDCDATAC-PROGRAM,
      '0050'     TO BDCDATAC-DYNPRO,
      'X'        TO BDCDATAC-DYNBEGIN.
APPEND BDCDATAC.
CLEAR BDCDATAC.
MOVE: 'USR02-BNAME' TO BDCDATAC-FNAM, "Usuario SAP
       USUARIO TO BDCDATAC-FVAL.
APPEND BDCDATAC.
CLEAR BDCDATAC.
IF VALCODE EQ 'LOCK'.
MOVE: 'BDC_OKCODE' TO BDCDATAC-FNAM, "OK_CODE
      '=LOCK' TO BDCDATAC-FVAL.
APPEND BDCDATAC.
CLEAR BDCDATAC.
MOVE: 'SAPLSUU5' TO BDCDATAC-PROGRAM,
      '0500'     TO BDCDATAC-DYNPRO,
      'X'        TO BDCDATAC-DYNBEGIN.
APPEND BDCDATAC.
CLEAR BDCDATAC.
MOVE: 'BDC_OKCODE' TO BDCDATAC-FNAM, "OK_CODE
      '=LOCK' TO BDCDATAC-FVAL.
APPEND BDCDATAC.
CLEAR BDCDATAC.
ELSEIF VALCODE EQ 'DELE'.
MOVE: 'BDC_OKCODE' TO BDCDATAC-FNAM, "OK_CODE
      '=DELE' TO BDCDATAC-FVAL.
APPEND BDCDATAC.
CLEAR BDCDATAC.
MOVE: 'SAPLSPO1' TO BDCDATAC-PROGRAM,
      '0300'     TO BDCDATAC-DYNPRO,
      'X'        TO BDCDATAC-DYNBEGIN.
APPEND BDCDATAC.
CLEAR BDCDATAC.
MOVE: 'BDC_OKCODE' TO BDCDATAC-FNAM, "OK_CODE
      '=YES' TO BDCDATAC-FVAL.
APPEND BDCDATAC.
CLEAR BDCDATAC.
ENDIF.
CALL TRANSACTION 'SU01' USING BDCDATAC
       MODE 'N'
       UPDATE 'S'
       MESSAGES INTO BDCMSGCOLLM.
REFRESH BDCDATAC.
      MOVE BDCMSGCOLLM-MSGV1(30) TO TR_MS.
      CLEAR BDCMSGCOLLM.
      REFRESH BDCMSGCOLLM.
ENDFORM.                    " EJECUTAR_US01
*&      Form LISTAR
      text
     -->P_IT_USBLO_USUARIO text                                     *
FORM LISTAR USING CODUS FECHA1 FECHA2 MENSAGE ACC.
DATA: NOMBRE(50), LOCKSTATE LIKE USLOCK . "RM 06-04-05
Búsqueda del Nombre Completo del Usuario
    CLEAR NOMBRE.
    SELECT PERSNUMBER INTO USR21-PERSNUMBER FROM USR21
                      WHERE BNAME EQ CODUS.
    ENDSELECT.
    SELECT NAME_FIRST NAME_LAST INTO (ADRP-NAME_FIRST, ADRP-NAME_LAST)
                      FROM ADRP
                      WHERE PERSNUMBER EQ USR21-PERSNUMBER.
    ENDSELECT.
    CONCATENATE ADRP-NAME_FIRST ADRP-NAME_LAST INTO NOMBRE
                                SEPARATED BY SPACE.
    IF ACC EQ 'LOCK'.
        ADD 1 TO I.
        IF I EQ 1.
            ULINE /1(30).
            WRITE: / SY-VLINE, 2 TEXT-002, 30 SY-VLINE.
            ULINE /1(152).
            WRITE: / SY-VLINE, 2 TEXT-005, 15 SY-VLINE, 17 TEXT-009,
                   68 SY-VLINE, 70 TEXT-007, 93 SY-VLINE, 95 TEXT-006,
                   118 SY-VLINE, 120 TEXT-008, 152 SY-VLINE.
            ULINE /1(152).
        ENDIF.
        IF CONT EQ 1.
            FORMAT COLOR 2 INTENSIFIED ON.
        ELSEIF CONT EQ 2.
            CLEAR CONT.
            FORMAT COLOR 2 INTENSIFIED OFF.
        ENDIF.
      Búsqueda del Status de Bloqueo del Usuario
        CALL FUNCTION 'SUSR_USER_LOCKSTATE_GET'
             EXPORTING
                  USER_NAME           = CODUS
             IMPORTING
                  LOCKSTATE           = LOCKSTATE
             EXCEPTIONS
                  USER_NAME_NOT_EXIST = 1
                  OTHERS              = 2.
       IF LOCKSTATE-LOCAL_LOCK EQ 'X'.   "RM 06-04-05
           MOVE 'BLOQUEADO' TO MENSAGE.
       ELSE.
           CLEAR MENSAGE.
       ENDIF.
        WRITE: / SY-VLINE, 2 CODUS, 15 SY-VLINE, 17 NOMBRE,
                 68 SY-VLINE, 70 FECHA1, 93 SY-VLINE, 95 FECHA2,
                 118 SY-VLINE, 120 MENSAGE, 152 SY-VLINE.
    ELSEIF ACC EQ 'DELE'.
        ADD 1 TO P.
        IF P EQ 1.
            ULINE /1(30).
            WRITE: / SY-VLINE, 2 TEXT-003, 30 SY-VLINE.
            ULINE /1(152).
            WRITE: / SY-VLINE, 2 TEXT-005, 15 SY-VLINE, 17 TEXT-009,
                    68 SY-VLINE, 70 TEXT-007, 93 SY-VLINE, 95 TEXT-006,
                    118 SY-VLINE, 120 TEXT-008, 152 SY-VLINE.
            ULINE /1(152).
        ENDIF.
        IF CONT EQ 1.
            FORMAT COLOR 2 INTENSIFIED ON.
        ELSEIF CONT EQ 2.
            CLEAR CONT.
            FORMAT COLOR 2 INTENSIFIED OFF.
        ENDIF.
        WRITE: / SY-VLINE, 2 CODUS, 15 SY-VLINE, 17 NOMBRE,
                 68 SY-VLINE, 70 FECHA1, 93 SY-VLINE, 95 FECHA2,
                 118 SY-VLINE, 120 MENSAGE, 152 SY-VLINE.
    ENDIF.
ENDFORM.                    " LISTAR

Locking user

Similar Messages

Maybe you are looking for