Gracias Kuk voy a probar , de todas maneras estoy buscando alguna libreria de kernel32 o de user32 para ver si puedo eliminar el null terminated del string
Código COBOL:
WORKING-STORAGE SECTION.
01 ReturnDEValue PIC S9(9) COMP-5 VALUE 0.
01 sCmd PIC X(250).
01 sCmdExt PIC X(250).
PROCEDURE DIVISION.
MOVE X'0802' TO sCmd (1:2).
MOVE X'0C21' TO sCmdExt(1:2).
MOVE SPACES TO sCmd (3:)
sCmdExt(3:).
MOVE X'00' TO sCmd (250:1)
sCmdExt(250:1)
INVOKE EpsonFPHostControl1 "OpenPort" RETURNING ReturnDEValue.
INVOKE EpsonFPHostControl1 "AddDataField" USING sCmd RETURNING ReturnDEValue.
INVOKE EpsonFPHostControl1 "AddDataField" USING sCmdExt RETURNING ReturnDEValue.
INVOKE EpsonFPHostControl1 "SendCommand" RETURNING ReturnDEValue.
call "BUSY".
INVOKE EpsonFPHostControl1 "ClosePort" RETURNING ReturnDEValue.
Con este codigo me manda esto al puerto lo muestro un print screen