Hoe een Excel-bestand te schrijven vanuit het COBOL-programma

De belangrijkste kracht van de COBOL-programmeertaal is de mogelijkheid om een ​​breed scala aan gegevensbestanden te schrijven die handig zijn voor kleine bedrijven, waaronder Microsoft Excel. Het organiseren van het bestand als een door komma's gescheiden waarde, of CSV, vereenvoudigt de programmeertaak. Met CSV stelt u een basisbestandsstructuur in in het bestandgedeelte van de Data-afdeling van uw COBOL-programma en verplaatst u vervolgens waarden naar de structuur in de proceduredivisie. Excel opent dit bestand als een basiswerkmap met eenvoudige rijen en kolommen.

1.

Maak een Select-item in het gedeelte Input-Output van de Environment Division van uw COBOL-programma. Dit is de naam van het bestand en waar u het wilt bevinden zich in de bestandsmap van uw harde schijf. De volgende COBOL illustreert de Select-instructie:

AFDELING MILIEU. INPUT-OUTPUT SECTIE. FILE-CONTROL. SELECTEER EXCEL-OUTPUT-FILE ASSIGN NAAR "C: \ WORKSHEET.CSV" ORGANISATIE IS LIJN-SEQUENTIE.

2.

Definieer een record in de bestandssectie van de gegevensafdeling als een tijdelijke aanduiding met de grootte van de rij die u voor de spreadsheet wilt hebben. Stel de kolomwaarden van de spreadsheet in de sectie Working-Storage van de gegevensindeling in als weergavedatatypes gescheiden door komma's. Beëindig elke record met carriage-return en regelinvoertekens zoals in het volgende voorbeeld:

DATA DIVISIE. FILE SECTION. FD EXCEL-OUTPUT-BESTAND DATA-RECORD IS SPREADSHEET-RECORD. 01 SPREADSHEET-RECORD PIC X (14).

SECTIE WERK OPSLAG. 01 WS-SPREADSHEET-RIJ. 05 WS-SALES-AMOUNT PIC 999.99. 05 FILLER PIC X VALUE ', '. 05 WS-SALES-QTY PIC 99999. 05 FILLER PIC XX WAARDE X'0D25 '.

Merk op dat X'0D25 'staat voor een carriage-return, regelinvoer in hexadecimaal. Deze twee tekens markeren het einde van elke record in een CSV-bestand.

3.

Verplaats gegevens naar de werkniveau-gegevenselementen op 05 niveau en verplaats vervolgens het werkopslaglabel met 01 niveaus naar uw uitvoerbestand in de divisie Procedure van uw programma. Schrijf het record dat u hebt gemaakt in de bestandsdefinitie of FD. De volgende COBOL-code maakt en schrijft een enkele rij naar uw CSV-uitvoerbestand:

PROCEDURE DIVISIE. OPEN UITVOER EXCEL-UITVOER-BESTAND. BEWEG DE VERKOOPWAARDE NAAR WS-SALES-BEDRAG. VERPLAATS SALES-QTY TO WS-SALES-QTY. MOVE WS-SPREADSHEET-RIJ NAAR SPREADSHEET-RECORD. WRITE SPREADSHEET-RECORD. SLUIT EXCEL-OUTPUT-BESTAND.

Tip

• Stel in de divisie Procedure de MOVE- en WRITE-instructies in hun eigen paragraaf in. Roep de alinea op vanuit een lus die net zo vaak wordt uitgevoerd als het aantal rijen in uw spreadsheet en sluit vervolgens het bestand.