------------------ 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*field qty-entered