Lettura di un file flat più volte nella terza generazione di computer di programmazione in linguaggio comune Oriented Business Language ( COBOL ) è un processo semplice . Si richiede una certa abilità di programmazione , tuttavia, oltre a qualche conoscenza di COBOL . Sviluppato su 1960 dal Dr. Grace Murray Hooper , COBOL è ancora ampiamente utilizzato , soprattutto dalla comunità imprenditoriale . E 'stato progettato , in parte , per elaborare grandi quantità di dati con calcoli aziendali minime o semplice. Cose che ti serviranno manuale
dell'utente corrente per COBOL ambiente
attuale COBOL manuale
Show More Istruzioni
1

Accedere l'ambiente del computer dove si codice, compilare ed eseguire il programma COBOL . Richiamare l'editor dove potrete digitare e modificare il programma . Realizzazione del predetto compito varia in base al tipo di ambiente. Controllare il manuale dell'utente corrente per l'ambiente COBOL
2

Tipo questo modello di programma , per i quali le informazioni saranno tracciate durante passaggi successivi : .

IDENTIFICAZIONE DIVISION.Program - ID . Programma ID here.Author . Il tuo nome Here.Installation . La mia azienda computer.Date scritta. . MM /DD /YYYY.REMARKS.Program descrizione qui

AMBIENTE SECTION.INPUT - USCITA SECTION.FILE - CONTROL.SELECT Input- FileASSIGN in "C: \\ TMP \\ SAMPIN.TXT " organizzazione è di linea progressivo .

selezionare Stampa - fileASSIGN in "C: \\ TMP \\ SAMPOUT.TXT " organizzazione è di linea progressivo

DATI DIVISION.FILE SECTION.FD record di input - file contiene 10 caratteri .01 . INPUT - REC.05 ULTIMO NOME PIC X ( 10) . FD RECORD Stampa - file contiene 10 caratteri .01 OUTPUT- REC PIC X ( 10) STOCCAGGIO .WORKING SECTION.01 lettura cnt pic 9 (9 ) valore è uguale a zero . 01 lettura mtl pic 9 (9 ) valore è uguale a zero .

PROCEDURA DIVISION.OPEN iNGRESSO - fileOUTPUT Stampa - file.Set Read- cnt per 0.Set lettura mtl a 5.read - file.READ Input -file aLLA FINE Vai a fine di PGM . Aggiungere 1 a Read - cnt . SPOSTARE INPUT- RECORD DI USCITA - RECORD . WRITE OUTPUT- RECORD.Add 1 a lettura lmt.If lettura LMT = 5 Vai alla fine del ciclo di PGMElseGo di lettura file.End - di - PGM.If Read- cnt = 0 Display " input - file è vuoto " . CLOSE Input -file , stampa - file.STOP RUN .
3

raccogliere informazioni da diverse fonti per la Divisione Identificazione del modello di programma che avete digitato. Eliminare il testo nei campi Divisione di identificazione , e sostituirlo con le informazioni raccolte . Cambiare il nome del programma , il nome del programma corretto dovrebbe essere nelle specifiche del programma. Aggiungi il tuo nome come autore . Per la data scritta , utilizzare la data corrente utilizzando due caratteri per il mese e il giorno e quattro cifre per l'anno . Per il campo di installazione , inserire l'ambiente in cui si esegue il programma, che dovrebbe essere nel manuale utente . Digitare una descrizione del programma sotto la sezione "Osservazioni" . Controllare il manuale corrente COBOL e il manuale d'uso , e la chiave in tutte le altre informazioni necessarie per identificare il programma per l'ambiente operativo specifico . Per questo passaggio e passaggi successivi ,
4

Immettere le informazioni nel campo della sezione Ambiente del programma del modello . Prima sezione della sezione Ambiente è la sezione di configurazione. Ai fini di questo esempio , tuttavia , presuppongono che la sorgente computer e oggetto - computer sono uguali . Per questo motivo , la sezione di configurazione viene eliminato .

Sostituire i dati per la sezione Input -Output , che è la seconda sezione della sezione Ambiente . Utilizzando dichiarazioni "Seleziona" , digitare le informazioni di identificazione per i file di input e di output utilizzati . Trovare le informazioni e le specifiche nel manuale dell'utente . I dati per il " assegnare alla " clausola dipende dal contesto specifico .
5

guardare le specifiche , e determinare quante volte verrà letto il file flat . Se le specifiche indicano un determinato numero di volte che il file deve essere letto , quindi modificare la variabile di lettura mtl nella Divisione dati da " zero" al numero indicato nelle specifiche . Cambia anche la lettura LMT = 5 bancone da " 5 " per il valore indicato nelle specifiche della Divisione procedura.

Se il file deve essere letto fino a quando " End-of - File ", quindi eliminare il Read - mtl variabile dalla Divisione dati . Eliminare le due righe di codice della Divisione Procedura " Se Read- LMT = 5 Vai alla Fine- PGM Else ".