Information Technology Reference
In-Depth Information
Manipulation de fichiers avec le langage Cobol
Le programme suivant illustre la déclaration de deux fichiers FIC1 et FIC2, en
langage Cobol, sous un système MVS 370. Les deux fichiers utilisent la méthode
d'accès VSAM. Le premier fichier FIC1 est un fichier séquentiel. Le second fichier
FIC2 est un fichier avec une organisation de type séquentielle indexée. Dans ce
fichier FIC2, un enregistrement est composé de deux champs dont le premier sur
5 caractères correspond à la clé. L'exécution de ce programme Cobol est lancée par
l'intermédiaire d'un job écrit en JCL qui effectue la liaison des fichiers logiques
FIC1 et FIC2 avec le fichier physique correspondant.
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID VSAM.
000300 ENVIRONMENT DIVISION.
000400 INPUT-OUTPUT SECTION.
000500 FILE-CONTROL.
000600 SELECT FIC1 ASSIGN UNIT1.
000700 SELECT FIC2 ASSIGN UNIT2
000800 ORGANIZATION INDEXED
000900 ACCESS DYNAMIC
001000 RECORD KEY IS FIC2-ENR1-CLE.
001100 FILE STATUS IS F-S.
001200 DATA DIVISION.
001300 FILE SECTION.
001400 FD FIC1
001500
RECORDING MODE f
001600
LABEL RECORD STANDARD
001700
DATA RECORD IS FIC1-ENR.
001800 01
FIC1-ENR.
001900
02
FIC1-ENR0
PIC X(80).
002000
02
FIC1-ENR1 REDEFINES
FIC1-ENR0.
002100
03
FIC1-ENR1-CHP1
PIC 9(5).
002200
03
FILLER
PIC X(75).
002300
FD
FIC2
002400
RECORDING MODE f
002500
LABEL RECORD STANDARD
002600
DATA RECORD IS FIC2-ENR.
002700
01
FIC2-ENR.
002800
02
FIC2-ENR0
PIC X(80).
002900
02
FIC2-ENR1 REDEFINES
FIC2-ENR0.
003000
03
FIC2-ENR1-CLE
PIC X(5).
003100
03
FIC2-ENR1-LIB
PIC X(75).
Search WWH ::
Custom Search