[Kuk]

fastpho, explícame bien qué son todos estos valores porque la verdad es que no me estoy enterando de dónde vienen tantos si sólo enviamos un par de Bytes... ¿Estos churros de datos de dónde los sacas?

Mira, te voy a traducir exactamente una parte del código, debería ser así que yo sepa:

     WORKING-STORAGE SECTION.
     01  sCmd            PIC X(2) VALUE X'0001'.
     01  sCmdExt         PIC X(2) VALUE X'0C00'.
     01  bAnswer         PIC S9(9) COMP-5.
     PROCEDURE DIVISION
         
         *> código de antes...............
         
         *> Estado         
         MOVE X'00' & X'01' TO sCmd
         
         IF  bAnswer NOT = ZEROS
             INVOKE EpsonFP "AddDataField" USING sCmd RETURNING bAnswer
             
             MOVE X'00' & X'00' TO sCmdExt
             
             IF  bAnswer NOT = ZEROS            
                 INVOKE EpsonFP "AddDataField" USING sCmdExt RETURNING bAnswer
                 
                 IF  bAnswer NOT = ZEROS
                     INVOKE EpsonFP "SendCommand"
                     
                     CALL "FPDelay"
            
                     PERFORM ShowMsg
                 END-IF
             END-IF
         END-IF

Rapinto, Dasije, corregidme si me estoy equivocando en algo.