FILLER è una parola riservata , ovvero non è possibile utilizzare la parola per la denominazione dei campi o record diversi per definire i singoli elementi di memoria . Si utilizza FILLER immediatamente a seguito di un numero di livello e che precede una clausola quadro che definisce le dimensioni di un campo e il tipo di dati . COBOL limita l'uso di filler per la divisione dei dati , ma non si applica alla identificazione , l'ambiente o le divisioni Procedura
tracciati record
Uno degli usi più comuni . per il riempimento è per le definizioni dei set di dati . Se si utilizza un file di dati con una lunghezza record di 150 caratteri e non è necessario etichettare ogni campo in esso , è possibile definire i caratteri non necessari come riempitivo , come nel codice seguente :
01 clienti record.05 FILLER PIC X ( 10) .05 cliente - nome PIC X ( 30 ) .05 cliente indirizzo PIC X ( 30 ) .05 cliente città PIC X ( 30 ) .05 FILLER PIC X ( 50) .
Questo consente di leggere un record di 150 caratteri e identificare i campi che si desidera - il nome del cliente, indirizzo e città - . ignorando il resto del record
estrazione di sottostringa
È possibile utilizzare la parola chiave FILLER per assistere l'estrazione di sottostringhe da una stringa più grande. Ad esempio, per estrarre le prime cinque cifre del codice di avviamento postale , è possibile impostare le seguenti dichiarazioni nella sezione di lavoro -Storage :
01 intero -zip - code.05 primario -zip PIC X ( 5) .05 FILLER PIC X ( 5) .
Nella Divisione procedura, si muove un CAP -plus -4 per intero -zip -code, quindi spostare primaria -zip per un campo di destinazione . In tal modo, si lascia cadere tutto dopo le prime cinque cifre .
FILLER e VALUE
un record , un campo di riserva spazio in memoria FILLER e accetta qualsiasi tipo di dati si sposta in esso. È inoltre possibile definire un campo FILLER per avere un valore . I programmatori usano questa tecnica spesso per impostare intestazioni di report , come nel seguente esempio :
01 print- line.05 FILLER PIC X ( 10 ) VALORE SPACES.05 FILLER PIC X ( 15 ) VALORE "FINE ANNO Report " .05 FILLER PIC X ( 20 ) VALORE SPACES.05 FILLER PIC X (5 ) VALORE " pAGINA " .05 numero di pagina PIC ZZZ9 .
noti che la pagina del report titoli di intestazione e la spaziatura è tutto fatto con FILLER , tranne uno di nome campo che visualizza il numero di pagina .
Programmazione © www.354353.com