|
Common Business Oriented Language d'IBM ( COBOL ) du langage de programmation permet aux utilisateurs de traiter différents types de données dans les applications logicielles financières et commerciales . COBOL prend en charge les enregistrements de longueur variable type de données pour une utilisation dans les fichiers de bases de données stockées sur des disques durs , l'utilisateur spécifie les longueurs minimale et maximale record pour décrire les fichiers du disque avec des enregistrements de longueur variable. La lecture des données de longueur variable à partir d'un fichier vous permet de traiter les informations de base de données sans définir la taille exacte d'un enregistrement dans votre programme COBOL . Instructions
1 type «Modifier» sur la console du système de gestion z/OS360 mainframe et appuyez sur la touche "Entrée" pour modifier votre programme COBOL .
2 Ajoutez la le code suivant sur le début de votre programme : .
IDENTIFICATION DIVISION
PROGRAM -ID. COBVAR .
Division de l'environnement .
SECTION entrées-sorties.
FILE- CONTROL.
SELECT IFILE ASSIGN TO " IFILE " .
< p> DIVISION DATA.
FILE SECTION .
FD IFILE
enregistrement est variant de 10 à 50 SELON LEN .
01 IREC . < br > 05 FILLER PIC X SE PRODUIT 10 à 50 fois selon LEN .
PROCEDURE DIVISION.
P1 .
DISPLAY " Exemple 1 apparaît en fonction REC"
entrée ouverte IFILE
PERFORM UNTIL LEN = -1
LIRE IFILE
CHEZ Fin Déplacement -1 à Len
PAS À LA FIN Photos DISPLAY IREC
DISPLAY LEN
FIN LIRE
END- PERFORM
PROCHE IFILE
espace d'affichage Photos DISPLAY " exemple fixé REC"
entrée ouverte IFILE
TOUT DEPLACER "X" pour IREC
LIRE IFILE À LA FIN MOUVEMENT -1 à LEN
DISPLAY IREC
espace d'affichage
3 type de "Enregistrer" sur la console et appuyez sur la touche "Entrée" pour permettre à votre programme pour traiter variable enregistrements de longueur .
|
