Te agradeceria si pudieras orientarme en lo siguiente
Como tengo la necesidad de crear una rutina de comprobacion de bloqueo de registro sobre un mismo usuario
Estoy utilizando la sentecia ALCOBJ pero veo por ejemplo Si un usuario A1 la usa sobre un file x1 no deja que otro usuario B1 que necesite actualizar el mismo file x1 la use y la intencion en realidad es que solo supervirse cuando es el mismo usuario A1 que por ejemplo un corte de señal electrica o por error cerro su sesion y quiera ingresar de nuevo al sistema resulte que la sentencia ALCObj sea valida cuando se trata de encontrar bloqueos pero del mismo usuario A1 sin importar que lo este usando en actualizacion otros usuarion B1, C1 etc etc. sobre un mismo archivo X1
Favor podrias indicarme como puedo hacer esto si se puede claro esta ??. Te envio como esoty usando este parametro.
Muchas gracias
Lidia Sanchez
Proyecto TIM-P5
Analista-Programador
ETIQ1: ALCOBJ OBJ((TSH000F *FILE *EXCL)) SCOPE(*JOB)
MONMSG MSGID(CPF1002) EXEC(DO)
CHGVAR VAR(&FILE1) VALUE('TSH000F')
GOTO DESBLO
/*---- Vamos a desbloquear si hubiera bloqueos */
DESBLO: DlCOBJ OBJ((TSH000F *FILE *Excl))
DlCOBJ OBJ((DISPR00F *FILE *Excl))
FIN: ENDPGM
