di IBM Business Common Oriented Language (COBOL) linguaggio di programmazione permette agli utenti di elaborare diversi tipi di dati in applicazioni software finanziari e commerciali. COBOL supporta il tipo di dati record di lunghezza variabile per l'utilizzo in file di database memorizzati su hard disk; l'utente specifica le lunghezze massime e minime record per descrivere i file su disco con i record a lunghezza variabile. Lettura dei dati di lunghezza variabile da un file consente di elaborare le informazioni del database senza definire l'esatta dimensione di un record nel programma COBOL.

istruzione

1 Tipo "Modifica" sulla console di gestione del sistema z / OS360 mainframe e premere il tasto "Enter" per modificare il vostro programma COBOL.

2 Aggiungere il seguente codice per l'inizio del programma:

IDENTIFICAZIONE DIVISIONE.

PROGRAM-ID. COBVAR.

AMBIENTE DIVISIONE.

SEZIONE input-output.

FILE-CONTROL.

SELEZIONA IFILE assegnare a "IFILE".

DIVISIONE DEI DATI.

FILE SECTION.

FD IFILE

Record è variabile da 10 a 50 SECONDA LEN.

01 IREC.

05 FILLER PIC X SI VERIFICA 10 a 50 volte a seconda LEN.

PROCEDURA DI DIVISIONE.

P1.

DISPLAY "ESEMPIO 1 interviene in base alla REC"

APERTO INGRESSO IFILE

ESEGUIRE FINO LEN = -1

LEGGI IFILE

ALLA FINE SPOSTA -1 a LEN

NON A FINE

DISPLAY IREC

DISPLAY LEN

FINALE LEGGI

END-PERFORM

CHIUDI IFILE

DISPLAY SPAZIO

DISPLAY "ESEMPIO FISSO REC"

APERTO INGRESSO IFILE

Spostare tutti "X" per IREC

LEGGERE IFILE ALLA FINE SPOSTA -1 a LEN

DISPLAY IREC

DISPLAY SPAZIO

3 Tipo "Salva" sulla console e premere il tasto "Enter" per attivare il programma per elaborare i record a lunghezza variabile.