A veces es necesario recuperar dinámicamente el valor de una variable de entorno durante la ejecución. Este tema describe una forma de modificar el código en uno de los proyectos de ejemplo COBOL para permitir el acceso a las variables de entorno.
Este tema hace referencia a COBOL Sample 1, al que puede accederse mediante la interfaz de ejemplos del entorno de trabajo. El ejemplo incluye dos archivos COBOL, StartApp.cbl y PrintApp.cbl. Siga estas instrucciones para modificar un proyecto que contenga este ejemplo a fin de que StartApp.cbl lea una variable de entorno y visualice su valor.
01 P pointer. 01 ENVVAR pic x(5) value Z"PATH". 01 var-ptr pointer. 01 var-len pic 9(4) binary.
01 var pic x(1000).
Set P to address of ENVVAR. >>CALLINT OPTLINK call "getenv" using by value P returning var-ptr. >>CALLINT if var-ptr = null then Display "PATH is null" else Set address of var to var-ptr Move 0 to var-len Inspect var tallying var-len for characters before initial x"00" Display "PATH = " var (1:var-len) end-if.
,NODYNAM,PGMNAME(LONGMIXED)Asegúrese de mantener la coma inicial para separar estas opciones del conjunto actual de opciones.
cpprmi36.dllEste archivo está situado en el directorio bin de la vía de acceso de instalación de Rational Developer for System z, por ejemplo, c:\Program Files\IBM\SDP\bin.
Error LNK2029: "?GETENV": externo no resueltoEsto ocurre normalmente si no puede encontrarse el archivo .dll especificado anteriormente. El archivo .dll necesario cpprmi36.dll se encuentra normalmente en la carpeta bin de la vía de acceso de instalación de Rational Developer for System z. Por ejemplo, C:\Program Files\IBM\SDP\bin. Puede especificar la vía de acceso completa al archivo en el campo Opciones de enlace. En este caso, será C:\Program Files\IBM\SDP\bin\cpprmi36.dll.
Si se producen otros errores, asegúrese de que la propiedad Opciones de compilación se ha actualizado correctamente, según se ha descrito anteriormente.