Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Cobol - Référence de procédures et fonctions - «WITH» Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur


WITH Avec
Cobol


Syntaxe

ALTERNATE RECORD KEY IS identifier WITH DUPLICATES
CLOSE filename1 [(REAL|UNIT) [WITH NO REWIND]] [WITH (NO REWIND|LOCK)]
[,filename2 [(REAL|UNIT) [WITH NO REWIND]]] ... [WITH (NO REWIND|LOCK)]
CLOSE filename1 [WITH LOCK]
[,filename2 [WITH LOCK]] ...
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]
FILE SECTION.
| (FD filename [EXTERNAL] [GLOBAL]
[BLOCK CONTAINS 0 RECORDS]
| RECODING MODE F/V/S/U |
[LINAGE IS integerdataname LINES WITH FOOTING integerdataname
TOP integerdataname BOTTOM integerdataname]
[CODE-SET IS alphabetname1] ) | ]
OPEN INPUT filename1 WITH NO REWIND ...
OPEN OUTPUT filename2 WITH NO REWIND ...
READ filename [NEXT] RECORD WITH NO LOCK [INTO identifier]
[; AT END imperativestatement]
READ filename RECORD WITH NO LOCK [INTO identifier]
[; KEY IS dataname]
[; INVALID KEY imperativestatement]
UNSTRING identifier
[DELIMITED [BY][ALL] identifier OR [ALL] identifier] INTO
identifier [DELIMITER [IN] identifier][COUNT [IN] identifier]
[[WITH] POINTER identifier][TALLYING [IN] identifier]
[[ON] OVERFLOW statementlist][NOT [ON] OVERFLOW statementlist]
[END-UNSTRING]


Description

Cette instruction permet d'indiquer avec quel contexte est associé une instruction.



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