Anche se alcune lingue di applicazione del computer sono complessi e gli altri sono semplici nella loro forma, Cobol è in un mondo di entrambi. Ci sono infinite possibilità che si possono ottenere con Cobol, e uno di loro è il metodo semplice e tuttavia eloquente manipolare e contare i singoli caratteri all'interno di un file o solo una riga di testo. Utilizzando il giusto set di comandi, è possibile determinare esattamente quali caratteri si desidera essere conteggiati nei i totali, sia esso numeri, lettere o addirittura comporre speciali tra cui il set di caratteri EBCIDIC o ASCII. Si può avere la necessità di fare questo per contare alcuni caratteri in un file di cambiare euro in dollari, o estrarre, sostituire o inserire caratteri specifici prima di caricare il file a un database.

istruzione

1 Identificare il file di input si sceglie su cui eseguire il numero di linee / carattere. Questo file deve essere identificato al programma Cobol come un ingresso con un organizzazione sequenziale nella Divisione Cobol ambiente. dichiarare anche quale file verrà utilizzato per riportare i conti di carattere sommario di ogni linea. È inoltre necessario assegnare questo file come uscita con l'organizzazione sequenziale.

2 Creare le descrizioni di file e record di input e output nella sezione File della Divisione dati del programma Cobol. Per fare un esempio, se il file di input ha una lunghezza di 200 byte, quindi il record contiene la clausola deve indicare questo come "record contiene 200 caratteri". Il file di output può essere di qualsiasi lunghezza a determinare, ma deve essere dichiarato come bene.

3 Creare valori temporanei nella sezione lavoro-Storage. Questo è dove il record in ingresso verrà spostato e il programma interrogherà ogni riga si legge e valutare i singoli caratteri su queste linee. Questo è l'aspetto del campo: 05 WS-ESTRATTO PIC X (200). Direttamente sotto questa linea saranno: 05 WS-IND-ESTRATTO RIDEFINISCE WS-ESTRATTO SI VERIFICA 200 volte indicizzato da WS-INDEX. Direttamente sotto questa linea dovrebbe essere: 88 VALIDO char valori '0' a '9', 'a' attraverso 'z', 'A' con 'Z'.

4 Aprire i file di input e output nella divisione Procedura del programma Cobol e leggere nel primo record di input. Il programma è ora pronto per ciclo con la logica del interrogando le linee di ingresso carattere per carattere, prendendo un conteggio per riga e scrivendo la linea conta al record di uscita. Si dovrebbe mettere questa logica in una routine paragrafo distinto all'interno del programma ed eseguirlo fino a quando non ha letto l'ultima riga. La logica sarà simile a questa: Eseguire B100-CHECK-OGNI-character varying WS-INDEX da 1 da 1 fino a WS-INDEX è superiore a 200.

5 Creare la routine paragrafo separato in questo modo: B100-CHECK-OGNI-carattere. Se VALIDO-CHAR (WS-INDEX) poi aggiungere 1 al WS-REPORT-COUNT.

WS-REPORT-COUNT è un campo temporaneo si crea nella sezione lavoro-bagagli con una descrizione dei PIC 9 (3) valore zero.

6 Compilare il programma ed eseguire il debug di eventuali errori di sintassi di compilazione prima di eseguire il programma attraverso la sua esecuzione.