Obrigado, pela informação, mas não funcionou, no COBOL, estou usando os comandos assim
call PASCAL "EPSON_Fiscal_Abris_cupom" using by reference "("parâmetro", "parâmetro", "parâmetro", "parâmetro", 1)
returning sta-inteiro.
ou posso usar com cada parâmetro,
CALL PASCAL "EPSON_Fiscal_Abrir_Cupom" using by reference pszCPFCNPJ, by reference pszRazaoSocialNomeDoCliente,
by reference pszEnderecoLinha1, by reference pszEndereçoLinha2, by reference dwPosicaoDadosImpressão
returning sta-inteiro.
o retorno do comando EPSON_Obter_Estado_Impressora é 010200000000c0800000, pelo que vi na tabela de erro, é comando inválido, ou parâmetros inválidos.