Gracias, preguntaba por la librería current no por el usuario, Lo solucioné con el link de Victor y la rutina quedó as:
[image: image.png] *ROBERTO PALOMINO MADUEÑO.* *Cel.** (+51) 992882433* *www.linkedin.com/in/ <http://www.linkedin.com/in/>roberto-palomino-madueno* El jue, 18 mar 2021 a las 10:26, Sergio Martinez Roig (< [email protected]>) escribió: > Hola Roberto, > > > > En la PSDS si que está el usuario: > > > > https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzasd/psdsdt9.htm > > > > En la posición 358. > > > > Para recuperarlo en free: > > > > dcl-ds pgm_stat PSDS; > > user char(10) pos(358); > > end-ds; > > > > Un saludo > > Sergio Martinez > > > > *De:* Forum.help400 <[email protected]> *En > nombre de *Roberto Palomino > *Enviado el:* jueves, 18 de marzo de 2021 16:22 > *Para:* forum.help400 <[email protected]> > *Asunto:* Re: Rtvjoba en rpg o sql > > > > Gracias Víctor, si me sirve. > > > > Saludos > > ROBERTO PALOMINO MADUEÑO. > > Cel. (+51) 992882433 > > www.linkedin.com/in/roberto-palomino-madueno > > > > > > El jue., 18 de marzo de 2021 10:15 a. m., <[email protected]> > escribió: > > Hola, puede que te sirva esto > > https://www.rpgpgm.com/2016/02/retrieving-jobs-library-list-using-sql.html > > > > > > El jue, 18 mar 2021 a las 11:26, Roberto Palomino (<[email protected]>) > escribió: > > Buenos días a todos, alguien sabe cómo recuperar la librería current > dentro de un programa RPG?, Básicamente es hacer > > > RTVJOBA CURUSER(&CURUSER) > > > > Pero en RPG o SQL > > > > La estructura PSDS no lo tiene o si? > > > > GRACIAS > > > > ROBERTO PALOMINO. > > > > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L. > > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L. > > Este mensaje contiene información confidencial dirigida al destinatario > del mismo. Las opiniones expresadas pertenecen al autor y no necesariamente > a ESTIBARNA. Si Ud. recibe este mensaje por error, se ruega informe > inmediatamente al remitente del mismo. Queda prohibido el uso, divulgación, > copia o distribución a terceros de la información incluida en este mensaje. > ____________________________________________________ > Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) > Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
