Boa tarde, Claudio.

Anexo FD programa cobol e registros do arquivo. A informação que estou interessada é a QTY-ENTERED posição 95 a 100. O sinal fica na direita, meio byte.

------------------
004300 01 REG-FITA COPY FMT00012 IN COPYLIB.
004400
004500 FD SUMACTVD. 00
004600 01 SUMACTVD-REG. 00
004700 03 SUMACTVD-CHAVE.
004800 05 SUMACTVD-SEQ-REG PIC 9(011) USAGE IS COMP-3.
004900
005000 03 SUMACTVD-CH2.
005100 05 PART-NUMBER PIC X(018).
005200 05 SUMACTVD-AAMM PIC X(004).
005300 05 PARENT-PART PIC X(018).
005400 05 ORD-TRANS-CODE PIC X(004).
005500 03 SUMACTVD-REG-AUX.
005600 05 CTLR PIC X(2).
005700 05 ORDER-NUMBER PIC X(8).
005800 05 DATE-INV-ACT.
005900 10 YEAR PIC X(2).
006000 10 MONTH PIC X(2).
006100 10 DAY-OF-MONTH PIC X(2).
006200 05 SCR-NAME PIC X(18).
006300 05 WAREHOUSE PIC X(2).
006400 05 LOCATION PIC X(8).
006500 05 QTY-ENTERED PIC S9(8)V9(3) USAGE IS COMP-3.
006600 05 TIME-INV-ACT.
006700 10 HOURS PIC X(2).
006800 10 MINS PIC X(2).
006900 05 SEQ-INV-ACT PIC S9(9) USAGE IS COMP.
007000 05 LOT-ID PIC X(8).
007100 05 ORD-COST-CENTER PIC X(6).
007200 05 ED-CAUSA-DEFEITO PIC X(4).
007300 05 ED-DOC-1 PIC X(8).
007400 05 ED-DOC-2 PIC X(8).
007500 05 ED-DATA-INV-EFET.
007600 10 YEAR PIC X(2).
007700 10 MONTH PIC X(2).
007800 10 DAY-OF-MONTH PIC X(2).
007900 05 LOW-LEVEL-CODE PIC S9(4) USAGE IS COMP.
008000 05 ED-DOC-3 PIC X(4).
008100 05 ED-COMPL PIC X(10).
008200 05 ED-IG PIC X(4).
008300 05 FILLER PIC X(12).
008400* 00
--------------------------
Registros
--------------------------
 2412X 9909 AA 3523650390990924ADIREC 0101
€ 0958q [ 002759 58554901990924 0
 2412X 9909 AA 3523650390990927ADIREC 0101  1047Ϩ 002762 58602001990927 0
 /2412X 9909 AA 3523650390990927ADIREC 0101  1059|s 002760 58602905990927 0
--------------------------