Dans un programme Adelia Visual, récupérer l'utilisateur (user) verrouillant un enregistrement de table en accès SQL iSeries.
Récupérer le Relative Record Number (RRN) de l’enregistrement verrouillé par la requête type suivante :
select rrn(NomTable) into :ValeurRrn from NomTable where Condition |
Où :
Appeler l'API IBM QDBRRCDL (avec le format RRCD0100)
Avec :
* Requête SQL, récupération du RRN de l'enregistrement verrouillé EXEC_SQL(select rrn(MATABLE) into :wrrn from MATABLE where IdCode = :WIdCode) TRAITER_PROC RTVUSER 'MATABLE' wrrn wprofil wnomtrav wnumtrav |
***************************************************************************** * Récupération informations sur le job verrouillant un enregistrement * d'une table avec l'API QDBRRCDL * Paramètres : * - Nom table (E) * - N° relatif d'enregistrement verrouillé (E) * - Profil utilisateur (S) * - Nom job (S) * - N° job (S) ***************************************************************************** alpha(10) w_nom_pgm alpha(500) w_rec_var num_bin_4 w_lg_rec_var alpha(8) w_fmt_name alpha(20) w_rcd_id_inf alpha(10) w_mbr_name alpha(30) w_err_code num_bin_4 w_nb_rec_lck_av num_bin_4 w_nb_rec__lck_ret num_bin_4 w_depl_lst_rec_lck num_bin_4 w_size_info alpha(44) t_info_job(11) alpha(44) w_info_job alpha(10) p_job_name alpha(10) p_usr_name alpha(6) p_job_nbr alpha(1) w_lock_status alpha(1) w_lock_state num_bin_4 w_rrn_out num_bin_4 p_rrn_in alpha(44) p_info_job alpha(10) p_nom_table dsi dsrecvar w_nb_rec_lck_av w_nb_rec__lck_ret w_depl_lst_rec_lck w_size_info t_info_job dsi dsinfojob w_info_job p_job_name,1 p_usr_name,11 p_job_nbr,21 w_lock_status,27 w_lock_state,28 w_rrn_out,29 PARAM p_nom_table p_rrn_in p_usr_name p_job_name p_job_nbr |
* Format API de récupération w_fmt_name = 'RRCD0100' * Appel de l'API w_nom_pgm = 'QDBRRCDL' w_lg_rec_var = 500 w_rcd_id_inf = p_nom_table // '*LIBL ' w_mbr_name = '*FIRST' APPELER &w_nom_pgm w_rec_var w_lg_rec_var w_fmt_name w_rcd_id_inf w_mbr_name p_rrn_in w_err_code dsrecvar = w_rec_var w_info_job = t_info_job(1) |