@Ale
Mandalo como te pongo en el ejemplo tal cual solo cambie el orden y la el numero de cola
por CONTENT
El envio de la cola lo podes probar sin la necesidad de hacer un ticket
pone un boton y envialo , si despues le metes un ticket al impresor
en la cola 11 deberia poner
*CAJERO:02 Osvaldo Linea 11 CAJA:3*
Código COBOL:
WORKING-STORAGE SECTION.
01 TITULO-ECabCola PIC X(24) VALUE "EstablecerEncabezadoCola".
01 TITULO-ECNumero PIC X(6) VALUE "Numero".
01 TITULO-ECTexto PIC X(5) VALUE "Texto".
01 Valor-ECNumero PIC S9(9) COMP-5.
01 Valor-ECTexto PIC X(50).
01 HEADER-11.
03 H-CAJERO PIC X(7) VALUE "CAJERO:".
03 H-CODIGO PIC 9(2).
03 FILLER PIC X VALUE SPACES.
03 H-NOMBRE PIC X(19).
03 H-CAJA PIC X(7) VALUE " CAJA:".
03 H-NUMERO PIC 9(4).
01 Respuesta-Impresor PIC S9(9) COMP-5.
PROCEDURE DIVISION.
MOVE spaces TO FUNC-SAM4-LIB.
MOVE "IFOpBegin" TO FUNC-SAM4-LIB.
CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT TITULO-ECabCola returning Respuesta-Impresor.
DISPLAY "TITULO-ECabCola " , Respuesta-Impresor.
****************
*Numero Cola
MOVE spaces TO FUNC-SAM4-LIB.
MOVE "IFOpParamIntSet" TO FUNC-SAM4-LIB.
MOVE 11 TO Valor-ECNumero. *> Numero de Cola 11
CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT TITULO-ECNumero *> Esto cambie POR CONTENT
BY VALUE Valor-ECNumero
returning Respuesta-Impresor.
DISPLAY "titulo-ECNumero " , Respuesta-Impresor.
************
*Texto Cola
MOVE spaces TO FUNC-SAM4-LIB.
MOVE "IFOpParamSet" TO FUNC-SAM4-LIB.
MOVE 2 TO H-CODIGO.
MOVE "Osvaldo Linea 11 " TO H-NOMBRE.
MOVE 3 TO H-NUMERO.
MOVE HEADER-11 TO Valor-ECTexto.
CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE TITULO-ECTexto
BY REFERENCE Valor-ECTexto
returning Respuesta-Impresor.
DISPLAY "TITULO-ECTexto " , Respuesta-Impresor.
*--------------
* Send
MOVE spaces TO FUNC-SAM4-LIB.
MOVE "IFOpSend" TO FUNC-SAM4-LIB.
MOVE 1 TO sWait.
CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
DISPLAY "SEND TITULO-ECabCola " , Respuesta-Impresor.
Saludos...