Vuelve el Consultorio Cobol

Hola amigas y amigos del Consultorio Cobol.

Son días extraños. El estado de alarma en España nos tiene a todos en casa.
Me considero afortunada porque puedo trabajar desde casa, como muchos otros compañeros coboleros.

El teletrabajo, todos soñábamos con él. Yo ya teletrabajaba un día a la semana desde hacía más de 6 meses, pero para otros es algo completamente nuevo. Y éste es un teletrabajo permanente hasta no se sabe cuándo.
Teletrabajar tiene muchas ventajas pero también hace que cosas tan sencillas como preguntar a tu compi de al lado se vuelvan más complicadas.
Es cierto que tenemos mil herramientas para comunicarnos, compartir el escritorio, compartir archivos, trabajar sobre un mismo documento de forma colaborativa... pero no siempre es lo mismo.

Es por eso que en estos días en que todo es más difícil, ponemos a vuestra disposición todo el contenido del Consultorio Cobol una vez más.

En este tiempo hemos estado trabajando para lograr una versión mejorada del blog, y no dejaremos de hacerlo. Pero mientras dure la cuarentena creemos que, ya que no tenemos al compañero experto a un giro de silla de nosotros, al menos vamos a intentar echar una mano compartiendo los artículos del blog.

Muchos junior han empezado en pleno confinamiento y para ellos seguro que se hace aún más difícil.
Esperamos ayudar un poquito reabriendo el blog.
No puedo aseguraros que vayamos a contestar dudas, porque ya ninguno estamos en el día a día de un programador.


Esto sólo es un granito de arena en medio de la que está cayendo, pero menos es nada :-)

Espero de verdad que estéis todos bien y que salgamos de ésta fortalecidos.


Un abrazo muy fuerte a todos,

Talli.

Cerrado por jubilación

Hola amigas y amigos de ConsultorioCobol.

Hasta aquí ha llegado nuestra aventura. Hoy recogemos nuestros bártulos y nos vamos con nuestros artículos a otra parte.
Hace ya tiempo que abandonamos el día a día de un picador y de ahí la falta de actualización de contenido. Cada año que pasa cuesta un poco más y ha llegado el día de decir adiós.

Ha sido un placer compartir conocimientos con todos vosotros y de verdad os deseo que os vaya genial en este mundillo.

Supongo que siempre seremos "los del consultorio cobol" aunque la vida nos lleve por otros caminos.

Dejo abiertos los comentarios para lo que queráis añadir :-)

Un abrazo,
Tania.

Comentarios perdidos

Hola a todas y todos.

Parece ser que hace ya un tiempo, por esto de la protección de datos, blogger dejó de avisarme cada vez que alguien escribía un comentario.
Esto ha hecho que se me hayan pasado unos cuantos comentarios de largo, y no haya hecho ni caso :-(

Es cierto que no miro el blog todos los días, pero me ha dado mucha rabia!

Ya lo siento. Voy a echarles un ojo por si puedo responder a alguno (más vale tarde que nunca!).

P.D.- Ya lo vuelvo a tener activado ;-)

Utilidades Rexx IV: listar miembros

ACTUALIZADO: hagamos un .csv para tener la lista en un fichero excel.

Aquí os dejo un programilla rexx que lista los componentes/miembros de una librería que le indiquemos:

/* REXX*/                                               
ADDRESS "ISPEXEC"                                       
"LMINIT DATAID(LMID) DATASET('"libreria.componentes.alistar"')"
"LMOPEN DATAID("LMID")"                                 
DO FOREVER = 1                                          
    "LMMLIST DATAID("LMID") MEMBER(LMMEM) STATS(YES)"   
    IF RC > 0 THEN LEAVE                                
    SAY 'MEMBER NAME:' LMMEM                            
    SAY 'TSO UID    :' ZLUSER                           
    SAY 'CREATE DATE:' ZLCDATE                          
END                                                     
"LMFREE DATAID("LMID")"                            

Donde:
LMMEM es el nombre del componente/miembro de la librería.
ZLUSER es el usuario que lo creó.
ZLCDATE es la fecha de creación del componente.

ó para nuestro fichero excel:
/* REXX*/                                                
ADDRESS "ISPEXEC"                                        
"LMINIT DATAID(LMID) DATASET('"libreria.componentes.alistar"')"
"LMOPEN DATAID("LMID")"                                  
DO FOREVER = 1                                           
    "LMMLIST DATAID("LMID") MEMBER(LMMEM) STATS(YES)"    
    IF RC > 0 THEN LEAVE                                 
    SAY LMMEM ';' ZLUSER ';' ZLCDATE                             
END                                                      
"LMFREE DATAID("LMID")" 

Para ejecutar nuestro código rexx hemos hecho este job:



//REXXJCL  JOB (OPC0,001),'CONSU',REGION=0M,NOTIFY=&SYSUID,
//            CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),COND=(4,LT)
//REXXPGM  EXEC PGM=IKJEFT01                              
//SYSEXEC   DD DSN=librería donde tengo el programa rexx,DISP=SHR               
//ISPPROF   DD DSN=&&PROF,UNIT=SYSDA,SPACE=(TRK,(5,5,5)), 
//             RECFM=FB,LRECL=80                          
//ISPSLIB   DD DISP=SHR,DSN=ISP.SISPSLIB                  
//ISPPLIB   DD DISP=SHR,DSN=ISP.SISPPENU                  
//ISPMLIB   DD DISP=SHR,DSN=ISP.SISPMENU                  
//ISPTLIB   DD DISP=SHR,DSN=ISP.SISPTENU                  
//ISPLOG    DD SYSOUT=*,DCB=(LRECL=125,RECFM=VBA)         
//SYSTSPRT DD  SYSOUT=*,DCB=LRECL=125                     
//SYSPRINT DD  SYSOUT=*                                   
//SYSTSIN  DD  *                                          
  ISPSTART CMD(REXXLIS)                                   
/*                               

Donde REXLIST sería el nombre de nuestro programa rexx.
La información la veremos en el SYSTSPRT:

APP is coming...

Feliz año coboleros!

2018 empieza bien, la app del consultorio avanza a buen ritmo y tenemos el panel casi ventilado!

Espero que este año haya empezado genial para todos vosotros (si es de vacaciones mejor, pero a nosotros no nos ha tocado xd).

Os dejo un regalito de año nuevo para que veáis que estamos a tope, y que ya queda menos para ver la nueva versión de la app en la Play Store.