Environment versions
Network:
Windows 2003 Server
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 € 0958q [ 002759 58554901990924 0
2412X 9909 AA 3523650390990927ADIREC 0101 1047Ϩ 002762 58602001990927 0
/2412X 9909 AA 3523650390990927ADIREC 0101 1059|s 002760 58602905990927 0
--------------------------
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only