voy a probar de mandar esto a ver que hace :
Código COBOL:
move X'00' & X'01' & X'00' to sCmd.
Código COBOL:
move X'00' & X'00' & X'00' to sCmdExt
---------- Post añadido : 15:54 ---------- Post anterior : 15:11 ----------
No es al reves el power le manda al final de cada string el caracter X"00" el tema es como sacarlo
cuando es necesario porque para el informe "X" no es necesario enviarlo por que para
Código COBOL:
move X"08" & X"02" to sCmd.
INVOKE EpsonFPHostControl1 "AddDataField" USING sCmd RETURNING ReturnDEValue.
move X"0C" & X"21" to sCmdExt.
INVOKE EpsonFPHostControl1 "AddDataField" USING sCmdExt RETURNING ReturnDEValue.
y escribe en el puerto
06 02 9C 08 1B 02 00 1C 0C 21 00 03 30 31 30 46
no deberia ir el X"00"
para el caso del informe estado
Código COBOL:
move X'00' & X'01' to sCmd.
if bAnswer not = zeros
INVOKE EpsonFPHostControl1 "AddDataField" USING sCmd RETURNING bAnswer
move X'00' & X'00' to sCmdExt
if bAnswer not = zeros
INVOKE EpsonFPHostControl1 "AddDataField" USING sCmdExt RETURNING bAnswer
if bAnswer not = zeros
INVOKE EpsonFPHostControl1 "SendCommand" RETURNING bAnswer
CALL "BUSY"
end-if
end-if
end-if.
y escribe en el puerto
06 02 FF 00 1C 00 03 30 31 32 30