@jhjacomo, cual es el error que te da al compilar :
Código COBOL:
***** ESTADO IMPRESOR 0 NO HAY PROBLEMA
move "getPrinterStatus" TO FUNC-EPSON-LIB.
CALL FUNC-EPSON-LIB WITH STDCALL RETURNING CODIGO-CmImpresor.
*> si no es cero hay problemas 40961 tapa abierta 1 poco papel 2 sin papel
*> display "codigo-impresor" , CODIGO-CmImpresor.