Recuperar atributos area de datos (RTVDTAARAA)

Hace poco me preguntaron si tenia, o conocía, alguna utilidad para recuperar los atributos de una área de datos. Una búsqueda en el iSeries Information Center, de IBM, me llevo a la API QWCRDTAA, esta normalmente se utiliza para recuperar el valor de una área de datos, pero también se puede utilizar para recuperar sus atributos.

Para ver su funcionamiento he creado la utilidad RTVDTAARAA (muchas A ¿no?)

Pasando el nombre del *DTAARA nos devolverá el tipo (*CHAR, *DEC, *LGL, *DDM), la longitud y el numero de posiciones decimales. Por ejemplo, si recuperamos los atributos del área de datos QUSRSYS/QRCLSTG, nos devolverá en las variables que le hemos pasado sus atributos, ademas graba el mensaje  CPF9897, en el log del trabajo, con el siguiente contenido: 

Data area QUSRSYS/QRCLSTG attributes. Type: *CHAR, Length: 1000, decimal pos.: 0000 

Podéis bajar el código desde este enlace.