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