Come ottenere la lunghezza di un record in COBOL

Ci sono molti modi per affrontare con record di lunghezza incerti nel file di dati e di elaborazione . COBOL è uno dei modi più eloquenti e distintivo per ottenere questo risultato . Si può leggere un file con molti record , ognuno di dimensione indeterminata , utilizzando uno dei comandi nativi del COBOL . Supponendo di avere un file in cui le dimensioni di ogni record all'interno può variare da un personaggio a 400 caratteri , l'applicazione COBOL può gestire per voi . Utilizzare questa tecnica per ottenere la lunghezza di registrazione , restituire un numero di caratteri e spostare i record variabile a un altro file, se lo si desidera . Istruzioni
1

Inizia valutando la lunghezza massima del record del file . In questo esempio , può essere fino a 400 byte e partire da un byte , qualifica il file come di lunghezza variabile .
2

Vai alla "Sezione File" del programma e impostare la struttura del file per le registrazioni del programma è la lettura dal file in ingresso . La vostra struttura " descrittore di file" dovrebbe essere simile a questo : "FD In - File " "Record contiene 1 a 400 caratteri a seconda WS -Character - Counter"
3

Digitare il seguente sotto . la FD : " . Nel 01 - Rec " "05 Input -Field - 01 Pic X ( 98 ) . " "05 Input -Field - 02 Pic S9 ( 9) V99 Comp- 3 . " Questo è semplicemente il record di input nell'esempio citato . I campi devono essere almeno uno e non più di 400 byte in questo esempio
4

tipo la variabile di lavoro -Storage per i contatori di caratteri di file come : . "05 WS -Character - Contatore Pic 9 ( 5 ) . " Questa variabile sarà tenere la lunghezza del record di input dopo ogni istruzione "Read" e dovrebbe essere un campo numerico senza segno . In seguito alla " seconda " dichiarazione , questo campo verrà restituito il valore numerico della lunghezza del record . Dopo ogni "Leggi ", COBOL compila automaticamente questo numero .
5

Vai alla Divisione Procedura e digitare l'istruzione " Read ", dopo il file appropriato dichiarazioni di apertura "OPEN". È possibile utilizzare la variabile " WS - Character - Counter" per recuperare la lunghezza del record .
6

compilare il programma e verificare che l'elenco sia privo di errori di sintassi .
7

eseguire il programma come una prova ed esaminare l'output .

• Come utilizzare un costruttore Sottotipo Bound 
• Come inizializzare una variabile float