Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Cobol's comp3
Message
From
29/03/2007 16:16:14
 
 
To
29/03/2007 16:11:00
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
MS SQL Server
Miscellaneous
Thread ID:
01209986
Message ID:
01210052
Views:
17
>That's what I meant too.
>
>Can you look in the cobol code to see the description of the table? If you can find the description, you can create a VFP table that matches the COBOL table's field description/layout and then use the vfp copyfile command to load it into the new VFP table.
>
>Otherwise, have you tried the VFP foxpro import wizard? It's under the VFP file menu option.
------------------
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
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform