Section courante

A propos

Section administrative du site

KEY

Touche
Cobol

Syntaxe

ALTERNATE RECORD KEY IS identifier [WITH DUPLICATES]
DELETE filename RECORD [;INVALID KEY imperativestatement]
FILE-CONTROL.
((SELECT [OPTIONAL] filename ASSIGN TO [label][S] AS JCLvariable)
[RESERVE integer AREAS]
| ORGANIZATION IS [SEQUENTIAL]/RELATIVE/INDEXED |
| ACCESS MODE IS [SEQUENTIAL]/RANDOM/DYNAMIC |
|RELATIVE/RECORD KEY alphanumericdatafiled|
[ALTERNATIVE RECORD KEY alphanumericrecordfield [WITH DUPLICATES]
[PASSWORD IS literaldataname]
[FILE STATUS IS alphanumericdataitem, groupdataitem]
READ filename RECORD [WITH NO LOCK] [INTO identifier]
[; KEY IS dataname]
[; INVALID KEY imperativestatement]
REWRITE recordname [FROM identifier]
[; INVALID KEY imperativestatement]
START filename [KEY IS EQUAL TO dataname]
[;INVALID KEY imperativestatement]
START filename [KEY IS = dataname]
[;INVALID KEY imperativestatement]
START filename [KEY IS GREATER THAN dataname]
[;INVALID KEY imperativestatement]
START filename [KEY IS > dataname]
[;INVALID KEY imperativestatement]
START filename [KEY IS NOT LESS THAN dataname]
[;INVALID KEY imperativestatement]
START filename [KEY IS NOT < dataname]
[;INVALID KEY imperativestatement]
WRITE recordname [FROM identifier]
([(BEFORE|AFTER) [ADVANCING] ((identifier|integer)[(LINE|LINES)]|mnemonicname | PAGE)] writestatementphrase|[INVALID [KEY] statementlist][NOT INVALID [KEY] statementlist])
[END-WRITE]

Description

Cette instruction permet d'indiquer la position dans l'enregistrement logique d'un fichier correspondant à une clef.



Dernière mise à jour : Jeudi, le 28 juillet 2011