Hvordan skrive en Excel-fil fra COBOL-programmet

COBOLs programmeringsspråk er hovedstyrken, og det er evnen til å skrive et stort utvalg av datafiler som er nyttige for små bedrifter, inkludert Microsoft Excel. Organiseringen av filen som en kommaseparert verdi, eller CSV, forenkler programmeringsoppgaven. Med CSV konfigurerer du en grunnleggende filstruktur i filseksjonen til COBOL-programmets datadivisjon, og flytt deretter verdier inn i strukturen i Prosedyre-avdelingen. Excel åpner denne filen som en grunnleggende arbeidsbok som inneholder enkle rader og kolonner.

1.

Opprett en Velg oppføring i Input-Output-delen av COBOL-programmets miljøavdeling. Dette er filens navn og hvor du vil ha det plassert i harddiskens filkatalog. Følgende COBOL illustrerer Select-setningen:

MILJØAFDELING. INGANGS-UTGANGSAVSNITT. FIL-CONTROL. VELG EXCEL-OUTPUT-FILE ASSIGN TIL "C: \ WORKSHEET.CSV" ORGANISASJONEN ER LINE SEQUENTIAL.

2.

Definer en post i datafildelingenes filseksjon som plassholder som har størrelsen på raden du vil ha for regnearket. Sett opp regnearkets kolonneverdier i Data-divisjonens arbeids-oppbevaringsseksjon som visningsdatatyper skilt av kommaer. Avslutt hver post med vognretur og linjeskifttekst som i følgende eksempel:

DATAAVDELING. FILSNITT. FD EXCEL-OUTPUT-FIL DATA-RECORD ER SPREADSHEET-RECORD. 01 SPREADSHEET-RECORD PIC X (14).

ARBEIDSBEHOLDSAVSNITT. 01 WS-SPREADSHEET-ROW. 05 WS-SALES-AMOUNT PIC 999.99. 05 FILLER PIC X VALUE ', '. 05 WS-SALES-QTY PIC 99999. 05 FILLER PIC XX VALUE X'0D25 '.

Legg merke til at X'0D25 'representerer en vognretur, linjemating i heksadesimal. Disse to tegnene markerer slutten av hver post i en CSV-fil.

3.

Flytt dataene til dataelementene på arbeidsplassen på 05-nivå, og flytt deretter etiketten for arbeidslager på 01-nivå til utdatafilen i programmets Prosedyre-divisjon. Skriv opp posten du opprettet i fildefinisjonen, eller FD. COBOL-koden som følger oppretter og skriver en enkelt rad til CSV-utdatafilen din:

PROSEDYREDELING. OPEN UTGANG EXCEL-UTGANGSFIL. Flytt salgsverdien til WS-SALES-BELØP. Flytt salg-QTY til WS-SALES-QTY. Flytt WS-SPREADSHEET-ROW TO SPREADSHEET-RECORD. SKRIV SPREADSHEET-RECORD. Lukk EXCEL-OUTPUT-FIL.

Tips

• I Prosedyre-avdelingen skal du sette opp MOVE og WRITE-setningene i eget avsnitt. Kall avsnittet fra en loop som kjører så mange ganger som antall rader i regnearket, og lukk filen.