Lettura di un file flat più volte nella programmazione lingua comune orientato al Business Language (COBOL) del computer di terza generazione è un processo semplice. Richiede una certa abilità di programmazione, tuttavia, così come qualche conoscenza di COBOL. Sviluppato intorno al 1960 da Dr. Grace Murray Hooper, COBOL è ancora largamente utilizzato, soprattutto dalla comunità di affari. È stato progettato, in parte, per elaborare grandi quantità di dati con calcoli aziendali minimal o semplice.

Istruzioni

1

Accedere l'ambiente del computer dove sarà codice, compilare ed eseguire il programma in COBOL. Visualizzare l'editor dove si chiave e modificare il programma. Il completamento di tale attività varia in base al tipo di ambiente. Verifica che per l'ambiente COBOL manuale dell'utente corrente.

2

Digitare questo modello di programma, per cui informazioni verranno compilate durante i passaggi successivi:

DIVISIONE DI IDENTIFICAZIONE.
Programma-ID. ID del programma qui.
Autore. Il tuo nome qui.
Installazione. Il mio computer aziendale.
Data scritta. MM/GG/AAAA.
OSSERVAZIONI.
Descrizione del programma qui.

SEZIONE AMBIENTE.
SEZIONE DI INGRESSO E USCITA.
CONTROLLO DI FILE.
Selezionare il File di Input
ASSEGNARE A "C:\TMP\SAMPIN. TXT"
ORGANIZZAZIONE È LINEA SEQUENZA.

Selezionare Stampa file
ASSEGNARE A "C:\TMP\SAMPOUT. TXT"
ORGANIZZAZIONE È LINEA SEQUENZA.

DIVISIONE DI DATI.
SEZIONE DEL FILE.
RECORD di Input-File FD contiene 10 caratteri.
INGRESSO 01-REC.

05 LAST-NAME PIC X(10).

Stampa-File FD RECORD contiene 10 caratteri.
01 USCITA REC PIC X(10).
SEZIONE DI ARCHIVIAZIONE.
01 valore di lettura-cnt pic 9(9) è uguale a zero.
01 valore di lettura-lmt pic 9(9) è uguale a zero.

DIVISIONE DI PROCEDURA.
APRIRE file di Input INPUT

OUTPUT Print-file.

Lettura-cnt impostato su 0.
Impostare lettura-lmt su 5.
Leggi-file.

READ Input-file AT END Go to End-of PGM.

Aggiungere 1 lettura-cnt.
SPOSTARE RECORD DI INPUT OUTPUT-RECORD.
SCRIVERE RECORD DI OUTPUT.
Aggiungere 1 lettura-lmt.
Se leggi-lmt = 5 Vai al fine-di-PGM
Altro
Andare al file della lettura.
Fine-di-PGM.
Se leggi-cnt = 0 visualizzazione "file di Input è vuoto".

CLOSE Input-file, Print-file.
STOP RUN.3

Raccogliere informazioni da diverse fonti per la divisione di identificazione del modello programma digitato. Eliminare il testo nei campi Identification Division e sostituirlo con le informazioni che raccolte. Modificare 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 mese e giorno e quattro personaggi per anno. Per il campo di installazione, entrare nell'ambiente in cui potrai eseguire il programma, che dovrebbe essere nel manuale dell'utente. Digitare una descrizione del programma sotto la sezione "Osservazioni". Consultare il manuale di COBOL corrente e l'utente manuale e chiave in tutte le altre informazioni necessarie per identificare il programma per l'ambiente operativo specifico. Per questo passaggio e i passaggi successivi,

4

Digitare le informazioni nei campi sezione ambiente di modello di programma. Prima sezione della sezione ambiente è la sezione di configurazione. Ai fini di questo esempio, però, si supponga che il computer di origine e oggetto sono gli stessi. Per questo motivo, la sezione di configurazione viene eliminata.

Sostituire i dati per la sezione di Input-Output, che è la seconda sezione della sezione ambiente. Utilizzando le istruzioni "Select", 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 la clausola "assegna a" dipendono dall'ambiente specifico.

5

Guarda le specifiche e determinare quante volte si leggerà il file flat. Se le specifiche indicano un determinato numero di volte che il file è da leggere, quindi modificare la variabile di lettura-lmt nella divisione di dati da "zero" al numero indicato nel capitolato d'oneri. Anche modificare il lettura-lmt = 5 contatore da "5" per il valore indicato nel capitolato d'oneri nella divisione di procedura.

Se il file è da leggere fino a "End-of-File", quindi eliminare la variabile di lettura-lmt da divisione di dati. Eliminare le due righe di codice nella divisione di procedura "Se leggi-lmt = 5 Vai al fine-di-PGM Else".

Consigli & Avvertenze

• Diverse versioni di COBOL e diverse piattaforme possono richiedere aggiustamenti.
• Prestare attenzione quando si eseguono programmi COBOL scritti per una piattaforma, ad esempio un mainframe, su un'altra piattaforma, ad esempio un personal computer. Problemi di compatibilità sono possibili.