Come leggere un file di lunghezza variabile in COBOL

IBM Common Business Oriented ( COBOL ) linguaggio di programmazione linguaggio permette agli utenti di elaborare diversi tipi di dati in applicazioni software finanziario e commerciale . COBOL supporta il record di tipo di dati a lunghezza variabile per l'uso in file di database memorizzati su dischi rigidi , l'utente specifica la lunghezza massima e minima record per descrivere i file su disco con record di lunghezza variabile . La 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 . Istruzioni
1

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

Aggiungi l' seguendo codice all'inizio del vostro programma : .

IDENTIFICAZIONE DIVISIONE

PROGRAM - ID . COBVAR .

ENVIRONMENT DIVISION .

INPUT- OUTPUT SECTION .

FILE -CONTROL .

Seleziona IFILE Assign su " IFILE " .

DATA DIVISION .

file di sezione .

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 .

PROCEDURE DIVISION .

P1 .
DISPLAY

" ESEMPIO 1 si verifica a seconda REC "

APERTA INGRESSO IFILE

PERFORM UNTIL LEN = -1

LEGGERE IFILE

ALLA FINE SPOSTA -1 a LEN

NON ALLA FINE

DISPLAY IREC

DISPLAY LEN

END - READ

END - PERFORM

CLOSE IFILE

DISPLAY SPACE
DISPLAY

" ESEMPIO FISSO REC"

APERTA INGRESSO IFILE

spostare tutti "X" per IREC

LEGGERE IFILE ALLA FINE SPOSTA -1 a LEN

DISPLAY IREC

DISPLAY auto in vendita a 3

tipo "Salva" sulla console e premere il tasto "Enter" per consentire al programma di elaborare variabile record di lunghezza .

• VB6 : Come leggere un nome computer dal Registro 
• Come convertire BigInteger a Int.