SAVEPOINT DOES NOT EXIST
Explication :
Une instruction ROLLBACK TO SAVEPOINT a été spécifiée sans nom de point de sauvegarde pour revenir au dernier point de sauvegarde actif, mais aucun point de sauvegarde n’existe.
Action du système :
La déclaration ne peut pas être traitée.
Réponse du programmeur :
Corrigez la logique de l’application pour définir un point de sauvegarde ou pour ne pas tenter de revenir à un point de sauvegarde.
SQLSTATE :
3B502
THE SQL STATEMENT CANNOT BE EXECUTED BECAUSE THE APPLICATION PROCESS IS NOT CONNECTED TO A SERVER
Explication :
Un échec précédent a placé le processus d’application dans l’état non connecté. Une demande infructueuse de changement d’utilisateur dans une connexion approuvée peut entraîner le passage de la connexion à un état non connecté. Les seules instructions SQL qui peuvent être exécutées avec succès à partir de l’état non connecté sont les instructions CONNECT, COMMIT, ROLLBACK et SET locales.
Action du système :
La déclaration ne peut pas être traitée.
Réponse du programmeur :
Il est possible qu’aucune réponse ne soit requise car la vérification de -900 est un moyen de détecter l’état non connecté. Si cette erreur résulte d’une autre situation, la logique du programme d’application doit être modifiée.
SQLSTATE :
08003
UNSUCCESSFUL EXECUTION CAUSED BY A SYSTEM ERROR THAT DOES NOT PRECLUDE THE SUCCESSFUL EXECUTION OF SUBSEQUENT SQL STATEMENTS
Explication :
Une erreur système s’est produite et a empêché l’exécution réussie de l’instruction SQL en cours.
accelerator-info
Message d’erreur renvoyé par le serveur accélérateur.
Si l’instruction SQL n’est pas une requête envoyée à un serveur accélérateur, les causes possibles de cette erreur incluent :
Si l’instruction SQL est une requête qui a été envoyée à un serveur accélérateur, l’erreur est renvoyée car le serveur accélérateur n’a pas pu exécuter la requête.
Action du système :
La déclaration ne peut pas être traitée. Une fin anormale X’04E’ peut être demandée pour l’application. Le programme d’application peut avoir une routine de récupération pour récupérer d’une telle fin anormale et peut réessayer des instructions SQL.
L’erreur n’empêche pas l’exécution réussie d’autres instructions SQL.
Réponse du programmeur :
Si une fin anormale s’est produite, informez le programmeur système pour qu’il analyse la fin anormale qui a provoqué ce code retour. Même si une fin anormale s’est produite, un programme d’application recevant ce code retour peut réessayer et il n’est pas interdit d’exécuter d’autres instructions SQL.
Si l’erreur s’est produite lors d’une validation, examinez toutes les informations détaillées sur l’indisponibilité des ressources publiées sur la console de l’opérateur système ou dans le journal des travaux de l’espace d’adressage des services système (ssnmMSTR) pour déterminer si un problème d’indisponibilité des ressources a empêché la fin du post-traitement de la validation.
Si l’erreur s’est produite pour une requête envoyée à un serveur accélérateur, vérifiez si l’instruction SQL contient une erreur logique. Un exemple d’erreur logique dans une instruction SQL est une opération de division qui se traduit par une division par 0. Si vous déterminez que votre application n’est pas la source de l’erreur, contactez le support IBM® et indiquez la valeur accelerator-info dans le jeton.
SQLSTATE :
58004
POINTER TO THE ESSENTIAL CONTROL BLOCK (CT/RDA) HAS VALUE 0, REBIND REQUIRED
Explication :
Le pointeur vers le bloc de contrôle essentiel, soit le CT ou le RDA, est des zéros. Cela empêche l’exécution réussie de l’instruction SQL en cours, ainsi que de toutes les instructions SQL ultérieures.
Action du système :
La déclaration ne peut pas être traitée. Le programme d’application n’est pas autorisé à émettre des instructions SQL supplémentaires. Par exemple, une routine de récupération associée au programme d’application peut ne pas émettre d’instructions SQL supplémentaires.
Réponse du programmeur :
Reconnectez le programme d’application défaillant et réessayez. Si le problème persiste, examinez votre DBRM et assurez-vous qu’il correspond à votre programme.
SQLSTATE :
58005
bind-type ERROR USING auth-id AUTHORITY. BIND, REBIND OR AUTO-REBIND OPERATION IS NOT ALLOWED
Explication :
Pour BIND et REBIND, l’ID d’autorisation indiqué n’est pas autorisé à effectuer le type de liaison bind-type indiqué sur un plan ou un package. Une entrée dans la table de spécification de limite de ressources (RLST) interdit la liaison et la reliaison par cet ID d’autorisation ou par tous les ID d’autorisation. Pour AUTO-REBIND, le paramètre système contrôlant les opérations AUTO-REBIND est défini pour interdire AUTO-REBIND.
bind-type
Type d’opération de liaison (BIND, REBIND ou AUTO-REBIND).
auth-id
ID d’autorisation de l’appelant de la sous-commande BIND ou ID d’autorisation principal de l’appelant du plan pour les opérations AUTO-REBIND.
Action du système :
Le plan ou le forfait n’est pas lié.
Réponse du programmeur système :
Si l’ID d’autorisation indiqué doit être autorisé à se lier, modifiez l’entrée dans la table RLST active. Si les opérations AUTO-REBIND sont désactivées, reliez à nouveau le package avant de réexécuter le package.
SQLSTATE :
23510
Cette annexe contient un tableau qui montre les différences entre les mots réservés OS/VS COBOL, VS COBOL II, IBM COBOL et Enterprise COBOL.
Note:
Les nouveaux mots réservés (à l’exclusion des nouveaux mots réservés pour un développement futur) qui ont été ajoutés depuis IBM COBOL sont mis en évidence en gras.
| X | Le mot est réservé dans le produit |
| X* | Dans la colonne IBM COBOL, le mot est réservé uniquement dans COBOL pour OS/390 & VM, Version 2 Release 2. Il n’est pas réservé en version 1 version 1 ou versions antérieures. |
| X** | Dans la colonne Enterprise COBOL, le mot est réservé uniquement dans Enterprise COBOL, version 4 Release 1. Il n’est pas réservé dans Enterprise COBOL Version 3. |
| – (minus) | Le mot n’est pas réservé dans le produit. (Cela inclut les mots réservés obsolètes qui ne sont plus signalés). |
| CDW | Le mot est une instruction de directive de compilateur COBOL Enterprise. S’il est utilisé comme mot défini par l’utilisateur, il est marqué d’un message sérieux. |
| RFD | Le mot est réservé au développement futur. S’il est utilisé, il est marqué d’un message d’information. |
| SYS | Le mot est un mot ayant une signification spécifique pour le système d’exploitation. Il ne peut être utilisé que dans des contextes spécifiques au sein du programme. |
| UNS | Le mot est un mot réservé standard COBOL 1985 pour une fonctionnalité non prise en charge par ce compilateur. Pour certains de ces mots, la fonctionnalité est prise en charge par le précompilateur Report Writer. S’il est utilisé dans un programme, il est reconnu comme un mot réservé et marqué d’un message sérieux. |
| Mot Réservé | Enterprise COBOL | IBM COBOL | VS COBOL II | OS/VS COBOL |
|---|---|---|---|---|
| ACCEPT | X | X | X | X |
| ACCESS | X | X | X | X |
| ACTIVE-CLASS | RFD | – | – | – |
| ACTUAL | – | – | – | X |
| ADD | X | X | X | X |
| ADDRESS | X | X | X | X |
| ADVANCING | X | X | X | X |
| AFTER | X | X | X | X |
| ALIGNED | RFD | – | – | – |
| ALL | X | X | X | X |
| ALLOCATE | RFD | – | – | – |
| ALPHABET | X | X | X | – |
| ALPHABETIC | X | X | X | X |
| ALPHABETIC-LOWER | X | X | X | – |
| ALPHABETIC-UPPER | X | X | X | – |
| ALPHANUMERIC | X | X | X | – |
| ALPHANUMERIC-EDITED | X | X | X | – |
| ALSO | X | X | X | X |
| ALTER | X | X | X | X |
| ALTERNATE | X | X | X | X |
| AND | X | X | X | X |
| ANY | X | X | X | – |
| ANYCASE | RFD | – | – | – |
| APPLY | X | X | X | X |
| ARE | X | X | X | X |
| AREA | X | X | X | X |
| AREAS | X | X | X | X |
| ARITHMETIC | – | RFD | RFD | – |
| AS | X** | – | – | – |
| ASCENDING | X | X | X | X |
| ASSIGN | X | X | X | X |
| AT | X | X | X | X |
| ATTRIBUTES | X** | – | – | – |
| AUTHOR | X | X | X | X |
| AUTOMATIC | RFD | – | – | – |
| B-AND | RFD | RFD | RFD | – |
| B-EXOR | – | RFD | RFD | – |
| B-LESS | – | RFD | RFD | – |
| B-NOT | RFD | RFD | RFD | – |
| B-OR | RFD | RFD | RFD | – |
| B-XOR | RFD | – | – | – |
| BASED | RFD | – | – | – |
| BASIS | CDW | CDW | CDW | X |
| BEFORE | X | X | X | X |
| BEGINNING | X | X | X | X |
| BINARY | X | X | X | – |
| BINARY-CHAR | RFD | – | – | – |
| BINARY-DOUBLE | RFD | – | – | – |
| BINARY-LONG | RFD | – | – | – |
| BINARY-SHORT | RFD | – | – | – |
| BIT | RFD | RFD | RFD | – |
| BITS | – | RFD | RFD | – |
| BLANK | X | X | X | X |
| BLOCK | X | X | X | X |
| BOOLEAN | RFD | RFD | RFD | – |
| BOTTOM | X | X | X | X |
| BY | X | X | X | X |
| CALL | X | X | X | X |
| CANCEL | X | X | X | X |
| CBL | CDW | CDW | CDW | X |
| CD | UNS | UNS | UNS | X |
| CF | UNS | UNS | UNS | X |
| CH | UNS | UNS | UNS | X |
| CHANGED | – | – | – | X |
| CHARACTER | X | X | X | X |
| CHARACTERS | X | X | X | X |
| CLASS | X | X | X | – |
| CLASS-ID | X | X | – | – |
| CLOCK-UNITS | UNS | UNS | UNS | – |
| CLOSE | X | X | X | X |
| COBOL | X | X | X | – |
| CODE | X | X | X | X |
| CODE-SET | X | X | X | X |
| COL | RFD | – | – | – |
| COLLATING | X | X | X | X |
| COLS | RFD | – | – | – |
| COLUMN | UNS | UNS | UNS | X |
| COLUMNS | RFD | – | – | – |
| COM-REG | X | X | X | – |
| COMMA | X | X | X | X |
| COMMIT | – | RFD | RFD | – |
| COMMON | X | X | X | – |
| COMMUNICATION | UNS | UNS | UNS | X |
| COMP | X | X | X | X |
| COMP-1 | X | X | X | X |
| COMP-2 | X | X | X | X |
| COMP-3 | X | X | X | X |
| COMP-4 | X | X | X | X |
| COMP-5 | X | X* | RFD | – |
| COMP-6 | – | RFD | RFD | – |
| COMP-7 | – | RFD | RFD | – |
| COMP-8 | – | RFD | RFD | – |
| COMP-9 | – | RFD | RFD | – |
| COMPUTATIONAL | X | X | X | X |
| COMPUTATIONAL-1 | X | X | X | X |
| COMPUTATIONAL-2 | X | X | X | X |
| COMPUTATIONAL-3 | X | X | X | X |
| COMPUTATIONAL-4 | X | X | X | X |
| COMPUTATIONAL-5 | X | X* | RFD | |
| COMPUTATIONAL-6 | – | RFD | RFD | – |
| COMPUTATIONAL-7 | – | RFD | RFD | – |
| COMPUTATIONAL-8 | – | RFD | RFD | – |
| COMPUTATIONAL-9 | – | RFD | RFD | – |
| COMPUTE | X | X | X | X |
| CONDITION | RFD | – | – | – |
| CONFIGURATION | X | X | X | X |
| CONNECT | – | RFD | RFD | – |
| CONSOLE | SYS | SYS | SYS | X |
| CONSTANT | RFD | – | – | – |
| CONTAINED | – | RFD | RFD | – |
| CONTAINS | X | X | X | X |
| CONTENT | X | X | X | – |
| CONTINUE | X | X | X | – |
| CONTROL | UNS | UNS | UNS | X |
| CONTROLS | UNS | UNS | UNS | X |
| CONVERTING | X | X | X | – |
| COPY | CDW | CDW | CDW | X |
| CORR | X | X | X | X |
| CORR-INDEX | – | – | – | X |
| CORRESPONDING | X | X | X | X |
| COUNT | X | X | X | X |
| CRT | RFD | – | – | – |
| CSP | SYS | SYS | SYS | X |
| CURRENCY | X | X | X | X |
| CURRENT | – | RFD | RFD | – |
| CURRENT-DATE | – | – | – | X |
| CURSOR | RFD | – | – | – |
| C01 | SYS | SYS | SYS | X |
| C02 | SYS | SYS | SYS | X |
| C03 | SYS | SYS | SYS | X |
| C04 | SYS | SYS | SYS | X |
| C05 | SYS | SYS | SYS | X |
| C06 | SYS | SYS | SYS | X |
| C07 | SYS | SYS | SYS | X |
| C08 | SYS | SYS | SYS | X |
| C09 | SYS | SYS | SYS | X |
| C10 | SYS | SYS | SYS | X |
| C11 | SYS | SYS | SYS | X |
| C12 | SYS | SYS | SYS | X |
| DATA | X | X | X | X |
| DATA-POINTER | RFD | – | – | – |
| DATE | X | X | X | X |
| DATE-COMPILED | X | X | X | X |
| DATE-WRITTEN | X | X | X | X |
| DAY | X | X | X | X |
| DAY-OF-WEEK | X | X | X | – |
| DB | – | RFD | RFD | – |
| DB-ACCESS-CONTROL-KEY | – | RFD | RFD | – |
| DB-DATA-NAME | – | RFD | RFD | – |
| DB-EXCEPTION | – | RFD | RFD | – |
| DB-RECORD-NAME | – | RFD | RFD | – |
| DB-SET-NAME | – | RFD | RFD | – |
| DB-STATUS | – | RFD | RFD | – |
| DBCS | X | X | X | – |
| DE | UNS | UNS | UNS | X |
| DEBUG | – | – | – | X |
| DEBUG-CONTENTS | X | X | X | X |
| DEBUG-ITEM | X | X | X | X |
| DEBUG-LINE | X | X | X | X |
| DEBUG-NAME | X | X | X | X |
| DEBUG-SUB-1 | X | X | X | X |
| DEBUG-SUB-2 | X | X | X | X |
| DEBUG-SUB-3 | X | X | X | X |
| DEBUGGING | X | X | X | X |
| DECIMAL-POINT | X | X | X | X |
| DECLARATIVES | X | X | X | X |
| DEFAULT | RFD | RFD | RFD | – |
| DELETE | X | X | X | X |
| DELIMITED | X | X | X | X |
| DELIMITER | X | X | X | X |
| DEPENDING | X | X | X | X |
| DESCENDING | X | X | X | X |
| DESTINATION | UNS | UNS | UNS | X |
| DETAIL | UNS | UNS | UNS | X |
| DISABLE | UNS | UNS | UNS | X |
| DISCONNECT | – | RFD | RFD | – |
| DISP | – | – | – | X |
| DISPLAY | X | X | X | X |
| DISPLAY-ST | – | – | – | X |
| DISPLAY-1 | X | X | X | – |
| DISPLAY-2 | – | RFD | RFD | – |
| DISPLAY-3 | – | RFD | RFD | – |
| DISPLAY-4 | – | RFD | RFD | – |
| DISPLAY-5 | – | RFD | RFD | – |
| DISPLAY-6 | – | RFD | RFD | – |
| DISPLAY-7 | – | RFD | RFD | – |
| DISPLAY-8 | – | RFD | RFD | – |
| DISPLAY-9 | – | RFD | RFD | – |
| DIVIDE | X | X | X | X |
| DIVISION | X | X | X | X |
| DOWN | X | X | X | X |
| DUPLICATE | – | RFD | RFD | – |
| DUPLICATES | X | X | X | X |
| DYNAMIC | X | X | X | X |
| EC | RFD | – | – | – |
| EGCS | X | X | X | – |
| EGI | UNS | UNS | UNS | X |
| EJECT | CDW | CDW | CDW | X |
| ELEMENTS | X** | – | – | – |
| ELSE | X | X | X | X |
| EMI | UNS | UNS | UNS | X |
| EMPTY | – | RFD | RFD | – |
| ENABLE | UNS | UNS | UNS | X |
| ENCODING | X** | – | – | – |
| END | X | X | X | X |
| END-ACCEPT | RFD | – | – | – |
| END-ADD | X | X | X | – |
| END-CALL | X | X | X | – |
| END-COMPUTE | X | X | X | – |
| END-DELETE | X | X | X | – |
| END-DISABLE | – | RFD | RFD | – |
| END-DISPLAY | RFD | – | – | – |
| END-DIVIDE | X | X | X | – |
| END-ENABLE | – | RFD | RFD | – |
| END-EVALUATE | X | X | X | – |
| END-EXEC | X | X* | – | – |
| END-IF | X | X | X | – |
| END-INVOKE | X | X | – | – |
| END-MULTIPLY | X | X | X | – |
| END-OF-PAGE | X | X | X | X |
| END-PERFORM | X | X | X | – |
| END-READ | X | X | X | – |
| END-RECEIVE | UNS | UNS | UNS | – |
| END-RETURN | X | X | X | – |
| END-REWRITE | X | X | X | – |
| END-SEARCH | X | X | X | – |
| END-SEND | – | RFD | RFD | – |
| END-START | X | X | X | – |
| END-STRING | X | X | X | – |
| END-SUBTRACT | X | X | X | – |
| END-TRANSCEIVE | – | RFD | RFD | – |
| END-UNSTRING | X | X | X | – |
| END-WRITE | X | X | X | – |
| END-XML | X | – | – | – |
| ENDING | X | X | X | X |
| ENTER | X | X | X | X |
| ENTRY | X | X | X | X |
| ENVIRONMENT | X | X | X | X |
| EO | RFD | – | – | – |
| EOP | X | X | X | X |
| EQUAL | X | X | X | X |
| EQUALS | – | RFD | RFD | – |
| ERASE | – | RFD | RFD | – |
| ERROR | X | X | X | X |
| ESI | UNS | UNS | UNS | X |
| EVALUATE | X | X | X | – |
| EVERY | X | X | X | X |
| EXACT | – | RFD | RFD | – |
| EXAMINE | – | – | – | X |
| EXCEEDS | – | RFD | RFD | – |
| EXCEPTION | X | X | X | X |
| EXCEPTION-OBJECT | RFD | – | – | – |
| EXCLUSIVE | – | RFD | RFD | – |
| EXEC | X | X* | – | – |
| EXECUTE | X | X* | – | – |
| EXHIBIT | – | – | – | X |
| EXIT | X | X | X | X |
| EXTEND | X | X | X | X |
| EXTERNAL | X | X | X | – |
| FACTORY | X | X* | – | – |
| FALSE | X | X | X | – |
| FD | X | X | X | X |
| FETCH | – | RFD | RFD | – |
| FILE | X | X | X | X |
| FILE-CONTROL | X | X | X | X |
| FILE-LIMIT | – | – | – | X |
| FILE-LIMITS | – | – | – | X |
| FILLER | X | X | X | X |
| FINAL | UNS | UNS | UNS | X |
| FIND | – | RFD | RFD | – |
| FINISH | – | RFD | RFD | – |
| FIRST | X | X | X | X |
| FLOAT-EXTENDED | RFD | – | – | – |
| FLOAT-LONG | RFD | – | – | – |
| FLOAT-SHORT | RFD | – | – | – |
| FOOTING | X | X | X | X |
| FOR | X | X | X | X |
| FORMAT | RFD | RFD | RFD | – |
| FREE | RFD | RFD | RFD | – |
| FROM | X | X | X | X |
| FUNCTION | X | X | – | – |
| FUNCTION-ID | RFD | – | – | – |
| FUNCTION-POINTER | X | – | – | – |
| GENERATE | UNS | UNS | UNS | X |
| GET | RFD | RFD | RFD | – |
| GIVING | X | X | X | X |
| GLOBAL | X | X | X | – |
| GO | X | X | X | X |
| GOBACK | X | X | X | X |
| GREATER | X | X | X | X |
| GROUP | UNS | UNS | UNS | X |
| GROUP-USAGE | X | – | – | – |
| HEADING | UNS | UNS | UNS | X |
| HIGH-VALUE | X | X | X | X |
| HIGH-VALUES | X | X | X | X |
| I-O | X | X | X | X |
| I-O-CONTROL | X | X | X | X |
| ID | X | X | X | X |
| IDENTIFICATION | X | X | X | X |
| IF | X | X | X | X |
| IN | X | X | X | X |
| INDEX | X | X | X | X |
| INDEX-1 | – | RFD | RFD | – |
| INDEX-2 | – | RFD | RFD | – |
| INDEX-3 | – | RFD | RFD | – |
| INDEX-4 | – | RFD | RFD | – |
| INDEX-5 | – | RFD | RFD | – |
| INDEX-6 | – | RFD | RFD | – |
| INDEX-7 | – | RFD | RFD | – |
| INDEX-8 | – | RFD | RFD | – |
| INDEX-9 | – | RFD | RFD | – |
| INDEXED | X | X | X | X |
| INDICATE | UNS | UNS | UNS | X |
| INHERITS | X | X | – | – |
| INITIAL | X | X | X | X |
| INITIALIZE | X | X | X | X |
| INITIATE | UNS | UNS | UNS | X |
| INPUT | X | X | X | X |
| INPUT-OUTPUT | X | X | X | X |
| INSERT | CDW | CDW | CDW | X |
| INSPECT | X | X | X | X |
| INSTALLATION | X | X | X | X |
| INTERFACE | RFD | – | – | – |
| INTERFACE-ID | RFD | – | – | – |
| INTO | X | X | X | X |
| INVALID | X | X | X | X |
| INVOKE | X | X | – | – |
| IS | X | X | X | X |
| JNIENVPTR | X | – | – | – |
| JUST | X | X | X | X |
| JUSTIFIED | X | X | X | X |
| KANJI | X | X | X | – |
| KEEP | – | RFD | RFD | – |
| KEY | X | X | X | X |
| LABEL | X | X | X | X |
| LAST | UNS | UNS | UNS | X |
| LD | – | RFD | RFD | – |
| LEADING | X | X | X | X |
| LEAVE | – | – | – | X |
| LEFT | X | X | X | X |
| LENGTH | X | X | X | X |
| LESS | X | X | X | X |
| LIMIT | UNS | UNS | UNS | X |
| LIMITS | UNS | UNS | UNS | X |
| LINAGE | X | X | X | X |
| LINAGE-COUNTER | X | X | X | X |
| LINE | X | X | X | X |
| LINE-COUNTER | UNS | UNS | UNS | X |
| LINES | X | X | X | X |
| LINKAGE | X | X | X | X |
| LOCALLY | – | RFD | RFD | – |
| LOCAL-STORAGE | X | X | – | – |
| LOCALE | RFD | – | – | – |
| LOCK | X | X | X | X |
| LOW-VALUE | X | X | X | X |
| LOW-VALUES | X | X | X | X |
| MEMBER | – | RFD | RFD | – |
| MEMORY | X | X | X | X |
| MERGE | X | X | X | X |
| MESSAGE | UNS | UNS | UNS | X |
| METACLASS | – | X | – | – |
| METHOD | X | X | – | – |
| METHOD-ID | X | X | – | – |
| MINUS | RFD | – | – | – |
| MODE | X | X | X | X |
| MODIFY | – | RFD | RFD | – |
| MODULES | X | X | X | X |
| MORE-LABELS | X | X | X | X |
| MOVE | X | X | X | X |
| MULTIPLE | X | X | X | X |
| MULTIPLY | X | X | X | X |
| NAMED | – | – | – | X |
| NAMESPACE | X** | – | – | – |
| NAMESPACE-PREFIX | X** | – | – | – |
| NATIONAL | X | – | – | – |
| NATIONAL-EDITED | X | – | – | – |
| NATIVE | X | X | X | X |
| NEGATIVE | X | X | X | X |
| NESTED | RFD | – | – | – |
| NEXT | X | X | X | X |
| NO | X | X | X | X |
| NOMINAL | – | – | – | X |
| NONE | – | RFD | RFD | – |
| NOT | X | X | X | X |
| NOTE | – | – | – | X |
| NULL | X | X | X | – |
| NULLS | X | X | X | – |
| NUMBER | UNS | UNS | UNS | X |
| NUMERIC | X | X | X | X |
| NUMERIC-EDITED | X | X | X | – |
| OBJECT | X | X | – | – |
| OBJECT-COMPUTER | X | X | X | X |
| OBJECT-REFERENCE | RFD | – | – | – |
| OCCURS | X | X | X | X |
| OF | X | X | X | X |
| OFF | X | X | X | X |
| OMITTED | X | X | X | X |
| ON | X | X | X | X |
| ONLY | – | RFD | RFD | – |
| OPEN | X | X | X | X |
| OPTIONAL | X | X | X | X |
| OPTIONS | RFD | – | – | – |
| OR | X | X | X | X |
| ORDER | X | X | X | – |
| ORGANIZATION | X | X | X | X |
| OTHER | X | X | X | – |
| OTHERWISE | – | – | – | X |
| OUTPUT | X | X | X | X |
| OVERFLOW | X | X | X | X |
| OVERRIDE | X | X | – | – |
| OWNER | – | RFD | RFD | – |
| PACKED-DECIMAL | X | X | X | – |
| PADDING | X | X | X | – |
| PAGE | X | X | X | X |
| PAGE-COUNTER | UNS | UNS | UNS | X |
| PARAGRAPH | – | RFD | RFD | – |
| PASSWORD | X | X | X | X |
| PERFORM | X | X | X | X |
| PF | UNS | UNS | UNS | X |
| PH | UNS | UNS | UNS | X |
| PIC | X | X | X | X |
| PICTURE | X | X | X | X |
| PLUS | UNS | UNS | UNS | X |
| POINTER | X | X | X | X |
| POSITION | X | X | X | X |
| POSITIONING | – | – | – | X |
| POSITIVE | X | X | X | X |
| PRESENT | RFD | RFD | RFD | – |
| PREVIOUS | RFD | RFD | – | – |
| PRINT-SWITCH | – | – | – | X |
| PRINTING | UNS | UNS | UNS | – |
| PRIOR | – | RFD | RFD | – |
| PROCEDURE | X | X | X | X |
| PROCEDURE-POINTER | X | X | – | – |
| PROCEDURES | X | X | X | X |
| PROCEED | X | X | X | X |
| PROCESSING | X | X | X | X |
| PROGRAM | X | X | X | X |
| PROGRAM-ID | X | X | X | X |
| PROGRAM-POINTER | RFD | – | – | – |
| PROPERTY | RFD | – | – | – |
| PROTECTED | – | RFD | RFD | – |
| PROTOTYPE | RFD | – | – | – |
| PURGE | UNS | UNS | UNS | – |
| QUEUE | UNS | UNS | UNS | X |
| QUOTE | X | X | X | X |
| QUOTES | X | X | X | X |
| RAISE | RFD | – | – | – |
| RAISING | RFD | – | – | – |
| RANDOM | X | X | X | X |
| RD | UNS | UNS | UNS | X |
| READ | X | X | X | X |
| READY | X | X | X | X |
| REALM | – | RFD | RFD | – |
| RECEIVE | UNS | UNS | UNS | X |
| RECONNECT | – | RFD | RFD | – |
| RECORD | X | X | X | X |
| RECORD-NAME | – | RFD | RFD | – |
| RECORD-OVERFLOW | – | – | – | X |
| RECORDING | X | X | X | X |
| RECORDS | X | X | X | X |
| RECURSIVE | X | X | – | – |
| REDEFINES | X | X | X | X |
| REEL | X | X | X | X |
| REFERENCE | X | X | X | – |
| REFERENCES | X | X | X | X |
| RELATION | – | RFD | RFD | – |
| RELATIVE | X | X | X | X |
| RELEASE | X | X | X | X |
| RELOAD | X | X | X | X |
| REMAINDER | X | X | X | X |
| REMARKS | – | – | – | X |
| REMOVAL | X | X | X | X |
| RENAMES | X | X | X | X |
| REORG-CRITERIA | – | – | – | X |
| REPEATED | – | RFD | RFD | – |
| REPLACE | X | X | X | – |
| REPLACING | X | X | X | X |
| REPORT | UNS | UNS | UNS | X |
| REPORTING | UNS | UNS | UNS | X |
| REPORTS | UNS | UNS | UNS | X |
| REPOSITORY | X | X | – | – |
| REREAD | – | – | – | X |
| RERUN | X | X | X | X |
| RESERVE | X | X | X | X |
| RESET | X | X | X | X |
| RESUME | RFD | – | – | – |
| RETAINING | – | RFD | RFD | – |
| RETRIEVAL | – | RFD | RFD | – |
| RETRY | RFD | – | – | – |
| RETURN | X | X | X | X |
| RETURN-CODE | X | X | X | X |
| RETURNING | X | X | – | – |
| REVERSED | X | X | X | X |
| REWIND | X | X | X | X |
| REWRITE | X | X | X | X |
| RF | UNS | UNS | UNS | X |
| RH | UNS | UNS | UNS | X |
| RIGHT | X | X | X | X |
| ROLLBACK | – | RFD | RFD | – |
| ROUNDED | X | X | X | X |
| RUN | X | X | X | X |
| SAME | X | X | X | X |
| SCREEN | RFD | – | – | – |
| SD | X | X | X | X |
| SEARCH | X | X | X | X |
| SECTION | X | X | X | X |
| SECURITY | X | X | X | X |
| SEEK | – | – | – | X |
| SEGMENT | UNS | UNS | UNS | X |
| SEGMENT-LIMIT | X | X | X | X |
| SELECT | X | X | X | X |
| SELECTIVE | – | – | – | X |
| SELF | X | X | – | – |
| SEND | UNS | UNS | UNS | X |
| SENTENCE | X | X | X | X |
| SEPARATE | X | X | X | X |
| SEQUENCE | X | X | X | X |
| SEQUENTIAL | X | X | X | X |
| SERVICE | X | X | X | X |
| SESSION-ID | – | RFD | RFD | – |
| SET | X | X | X | X |
| SHARED | – | RFD | RFD | – |
| SHARING | RFD | – | – | – |
| SHIFT-IN | X | X | X | – |
| SHIFT-OUT | X | X | X | – |
| SIGN | X | X | X | X |
| SIZE | X | X | X | X |
| SKIP-1 | – | – | – | X |
| SKIP-2 | – | – | – | X |
| SKIP-3 | – | – | – | X |
| SKIP1 | CDW | CDW | CDW | – |
| SKIP2 | CDW | CDW | CDW | – |
| SKIP3 | CDW | CDW | CDW | – |
| SORT | X | X | X | X |
| SORT-CONTROL | X | X | X | – |
| SORT-CORE-SIZE | X | X | X | X |
| SORT-FILE-SIZE | X | X | X | X |
| SORT-MERGE | X | X | X | X |
| SORT-MESSAGE | X | X | X | X |
| SORT-MODE-SIZE | X | X | X | X |
| SORT-RETURN | X | X | X | X |
| SOURCE | UNS | UNS | UNS | X |
| SOURCE-COMPUTER | X | X | X | X |
| SOURCES | RFD | – | – | – |
| SPACE | X | X | X | X |
| SPACES | X | X | X | X |
| SPECIAL-NAMES | X | X | X | X |
| SQL | X | X* | – | – |
| STANDARD | X | X | X | X |
| STANDARD-1 | X | X | X | X |
| STANDARD-2 | X | X | X | – |
| STANDARD-3 | – | RFD | RFD | – |
| STANDARD-4 | – | RFD | RFD | – |
| START | X | X | X | X |
| STATUS | X | X | X | X |
| STOP | X | X | X | X |
| STORE | – | RFD | RFD | – |
| STRING | X | X | X | X |
| SUB-QUEUE-1 | UNS | UNS | UNS | X |
| SUB-QUEUE-2 | UNS | UNS | UNS | X |
| SUB-QUEUE-3 | UNS | UNS | UNS | X |
| SUB-SCHEMA | RFD | RFD | RFD | – |
| SUBTRACT | X | X | X | X |
| SUM | UNS | UNS | UNS | X |
| SUPER | X | X | – | – |
| SUPPRESS | X | X | X | X |
| SYMBOLIC | X | X | X | X |
| SYNC | X | X | X | X |
| SYNCHRONIZED | X | X | X | X |
| SYSIN | SYS | SYS | SYS | X |
| SYSIPT | SYS | SYS | SYS | – |
| SYSLIST | SYS | SYS | SYS | X |
| SYSLST | SYS | SYS | SYS | – |
| SYSOUT | SYS | SYS | SYS | X |
| SYSPCH | SYS | SYS | SYS | – |
| SYSPUNCH | SYS | SYS | SYS | X |
| SYSTEM-DEFAULT | RFD | – | – | – |
| S01 | SYS | SYS | SYS | X |
| S02 | SYS | SYS | SYS | X |
| S03 | SYS | SYS | SYS | – |
| S04 | SYS | SYS | SYS | – |
| S05 | SYS | SYS | SYS | – |
| TABLE | UNS | UNS | UNS | X |
| TALLY | X | X | X | X |
| TALLYING | X | X | X | X |
| TAPE | X | X | X | X |
| TENANT | – | RFD | RFD | – |
| TERMINAL | UNS | UNS | UNS | X |
| TERMINATE | UNS | UNS | UNS | X |
| TEST | X | X | X | – |
| TEXT | UNS | UNS | UNS | X |
| THAN | X | X | X | X |
| THEN | X | X | X | X |
| THROUGH | X | X | X | X |
| THRU | X | X | X | X |
| TIME | X | X | X | X |
| TIME-OF-DAY | – | – | – | X |
| TIMES | X | X | X | X |
| TITLE | CDW | CDW | CDW | – |
| TO | X | X | X | X |
| TOP | X | X | X | X |
| TOTALED | – | – | – | X |
| TOTALING | – | – | – | X |
| TRACE | X | X | X | X |
| TRACK-AREA | – | – | – | X |
| TRACK-LIMIT | – | – | – | X |
| TRACKS | – | – | – | X |
| TRAILING | X | X | X | X |
| TRANSCEIVE | – | RFD | RFD | – |
| TRANSFORM | – | – | – | X |
| TRUE | X | X | X | – |
| TYPE | X | X* | – | – |
| TYPEDEF | RFD | – | – | – |
| UNEQUAL | – | RFD | RFD | – |
| UNIT | X | X | X | X |
| UNIVERSAL | RFD | – | – | – |
| UNLOCK | RFD | – | – | – |
| UNSTRING | X | X | X | X |
| UNTIL | X | X | X | X |
| UP | X | X | X | X |
| UPDATE | RFD | RFD | RFD | – |
| UPON | X | X | X | X |
| UPSI-0 | SYS | SYS | SYS | X |
| UPSI-1 | SYS | SYS | SYS | X |
| UPSI-2 | SYS | SYS | SYS | X |
| UPSI-3 | SYS | SYS | SYS | X |
| UPSI-4 | SYS | SYS | SYS | X |
| UPSI-5 | SYS | SYS | SYS | X |
| UPSI-6 | SYS | SYS | SYS | X |
| UPSI-7 | SYS | SYS | SYS | X |
| USAGE | X | X | X | X |
| USAGE-MODE | – | RFD | RFD | – |
| USE | X | X | X | X |
| USER-DEFAULT | RFD | – | – | – |
| USING | X | X | X | X |
| VAL-STATUS | RFD | – | – | – |
| VALID | RFD | RFD | RFD | – |
| VALIDATE | RFD | RFD | RFD | – |
| VALIDATE-STATUS | RFD | – | – | – |
| VALUE | X | X | X | X |
| VALUES | X | X | X | X |
| VARYING | X | X | X | X |
| WAIT | – | RFD | RFD | – |
| WHEN | X | X | X | X |
| WHEN-COMPILED | X | X | X | X |
| WITH | X | X | X | X |
| WITHIN | – | RFD | RFD | – |
| WORDS | X | X | X | X |
| WORKING-STORAGE | X | X | X | X |
| WRITE | X | X | X | X |
| WRITE-ONLY | X | X | X | X |
| XML | X | – | – | – |
| XML-CODE | X | – | – | – |
| XML-DECLARATION | X** | – | – | – |
| XML-EVENT | X | – | – | – |
| XML-NAMESPACE | X** | – | – | – |
| XML-NAMESPACE-PREFIX | X** | – | – | – |
| XML-NNAMESPACE | X** | – | – | – |
| XML-NNAMESPACE-PREFIX | X** | – | – | – |
| XML-NTEXT | X | – | – | – |
| XML-TEXT | X | – | – | – |
| ZERO | X | X | X | X |
| ZEROES | X | X | X | X |
| ZEROS | X | X | X | X |
| < | X | X | X | X |
| <= | X | X | X | – |
| + | X | X | X | X |
| * | X | X | X | X |
| ** | X | X | X | X |
| – | X | X | X | X |
| / | X | X | X | X |
| > | X | X | X | X |
| >= | X | X | X | – |
| = | X | X | X | X |
Dans les messages, les deux caractères suivant IGYC sont des identificateurs de phase du compilateur, qui identifient la phase du compilateur qui a émis le message.
AS
Phase du module de contrôle de phase du générateur de code (IGYCASMB).
Cette phase charge et contrôle la phase de générateur de code IGYCCBE.
CB
Phase de génération et d’optimisation de code (IGYCCBE).
Cette phase (facultativement) optimise le programme, puis génère des instructions machine et alloue et gère l’utilisation des registres.
Cette phase place également la sortie LIST dans la liste et (éventuellement) génère des informations de débogage si la sous-option DWARF de TEST|NOTEST était en vigueur.
DI
Phase diagnostique (IGYCDIAG).
Cette phase traite le texte électronique et génère des diagnostics du compilateur pour les erreurs du programme source.
DM
Phase DMAP (IGYCDMAP).
Cette phase traite l’option MAP pour générer la mappe de stockage DATA DIVISION.
Il utilise les données contenues dans le dictionnaire pour produire la carte de stockage.
DS
Sous-phase de numérisation des données (IGYCDSCN).
Cette phase traduit les instructions de source d’entrée dans la IDENTIFICATION DIVISION, ENVIRONMENT DIVISION et DATA DIVISION en texte interne du compilateur.
Il identifie et classe également les déclarations et effectue une analyse syntaxique des déclarations et des éléments de déclaration.
Une entrée est créée dans la table des symboles pour chaque nom d’utilisateur unique identifié dans cette analyse.
Cette phase crée des entrées de table d’attributs pour les éléments de définition de données (par exemple, des noms de données ou des noms de fichiers), traite les clauses d’entrée de description de données et vérifie la compatibilité des clauses dans une entrée.
Des entrées de table d’informations générales sont également créées pour les masques d’IMAGE édités et les séquences d’assemblage définies par l’utilisateur associées à un nom alphabétique.
FG
Phase de génération de fichiers (IGYCFGEN).
Cette phase est une phase conditionnelle exécutée uniquement si le programme COBOL contient un FD (fichier d’E/S) et/ou un SD (fichier de tri).
GR
Sous-phase de processus de groupe (IGYCGROU).
La sous-phase de traitement de groupe de la phase d’analyse traite les références aux noms de données dans la ENVIRONMENT DIVISION et DATA DIVISION.
Cette phase résout toutes les références de données directes rencontrées par DSCN (et pour lesquelles le texte I a été produit), en complétant les entrées de table d’attributs et de GIT pour ces références.
Cette phase est également responsable du traitement des littéraux de la clause VALUE et de la création du formulaire de procédure requis I-text (pour format-1 VALUE) ou des entrées GIT (pour format-2 VALUE) pour ces littéraux.
IN
Phase d’initialisation (IGYCINIT).
Cette phase exécute les fonctions de gestion interne requises pour préparer l’environnement d’exploitation pour le traitement des programmes sources.
Il est également invoqué à la fin de la compilation pour effectuer le ménage impliqué dans l’arrêt normal du programme.
Comme ces fonctions ne sont exécutées qu’une seule fois pour chaque compilation, le code est contenu dans la phase d’initialisation plutôt que dans la phase de contrôle résident.
Cette phase n’est pas résidente lors de la compilation.
LI
Phase de copie (IGYCLIBR).
Cette phase analyse la source COBOL de l’utilisateur à la recherche d’instructions COPY, BASIS et REPLACE.
Elle n’est invoquée que si l’option LIB a été spécifiée.
Les textes sources originaux et de la bibliothèque sont traités et une analyse lexicale et syntaxique des instructions COPY, BASIS et REPLACE est effectuée.
La phase met à jour le texte de la bibliothèque et crée un texte de forme C (COPY).
LS
Phase de listage (IGYCLSTR).
Cette phase gère la construction de la liste des sources du programme.
Cette phase traite le L-text (texte de liste) et, si les options appropriées du compilateur sont sélectionnées, intègre les messages de diagnostic, les informations cartographiques et les informations de référence croisée dans la liste source.
Il indique également les niveaux d’imbrication des instructions ou des programmes pour chaque ligne source.
OS
Phase d’analyse des options (IGYCOSCN).
Cette phase détermine quelles options de compilation doivent être actives en fusionnant les options et en résolvant les conflits parmi les éléments suivants :
PA
Sous-phase d’analyse de la procédure (IGYCPANA).
Cette phase effectue une analyse sémantique des instructions source de PROCEDURE DIVISION, transforme le texte I en texte M et résout les références de nom de procédure.
PG
Phase de génération de procédure (IGYCPGEN).
Cette phase traite les verbes codés dans la PROCEDURE DIVISION du programme COBOL ou générés par la phase d’analyse de la procédure.
De plus, certaines informations sur le programme source nécessaires aux phases d’assemblage sont collectées dans cette phase.
Si l’option NOCOMPILE est active, cette phase n’est pas exécutée.
PS
Sous-phase de balayage de procédure (IGYCPSCN).
La sous-phase Procedure Scan de la phase Scan effectue une analyse syntaxique et une partie de l’analyse sémantique sur les instructions source PROCEDURE DIVISION.
Il traduit chaque nom de données apparaissant comme opérande dans une instruction en décalage de table d’attributs et collecte les informations d’attribut pour l’opérande.
Il valide également chaque opérande. Sur la base de la définition du langage, il diagnostique les opérandes invalides.
RC
Phase de contrôle résident (IGYCRCTL).
Cette phase établit l’environnement de compilation et contrôle le chargement et la suppression de toutes les phases du compilateur.
IGYCRCTL est chargé par le système d’exploitation hôte ou par la phase d’interface CMS, COBOL2, sous CMS.
Cette phase reste en mémoire tout au long du processus de compilation.
SC
Phase de balayage (IGYCSCAN).
Cette phase gère les sous-phases Data Scan (DS) , Group Process (GR), Procedure Scan (PS) et Procedure Analysis (PA) .
SI
Phase d’interface système (IGYCSIMD).
Cette phase obtient et initialise le stockage dynamique pour le traitement du compilateur.
Il est appelé par toutes les phases via les macros de service communes pour exécuter des fonctions dépendantes du système.
Cette phase est toujours chargée dans les 16 premiers mégaoctets de stockage et réside dans le stockage tout au long de la compilation.
IGYCSIMD est chargé par IGYCRCTL, la phase de contrôle résidente.
XR
Phase de référence croisée (IGYCXREF).
Cette phase produit les renvois demandés par l’option XREF.
COBOL a les limites du compilateur suivantes pour les programmes et les définitions de classe.
Bien que le compilateur COBOL prenne en charge l’adressage de plusieurs zones de mémoire au sein d’une unité de compilation jusqu’aux limites décrites dans cette annexe, une application complète, généralement composée de plusieurs unités de compilation, est toujours limitée par la quantité de stockage privé disponible dans l’espace d’adressage à laquelle il court.
En d’autres termes, une application peut manquer d’espace de stockage avant d’atteindre les limites décrites.
| Élément de langue | Limite du compilateur |
|---|---|
| Longueur maximale des mots définis par l’utilisateur (par exemple, nom-données , nom-fichier , nom-classe ) | 30 octets |
| Taille du programme | 999 999 lignes |
| Nombre de littéraux | 4 194 303 (Remarque 1) |
| Longueur totale des littéraux | 4 194 303 octets (Remarque 1) |
| Entrées de table de mots réservés | 1536 |
| COPY REPLACING . . . BY . . . (éléments par déclaration COPY) | Sans limites |
| Nombre de bibliothèques COPY | Sans limites |
| Taille de bloc de la bibliothèque COPY | 32 760 octets |
| IDENTIFICATION DIVISION | |
| ENVIRONMENT DIVISION | |
| Configuration section | |
| Paragraphe des noms spéciaux | |
| nom-mnémonique IS | 18 |
| UPSI- n … (commutateurs) | 0-7 |
| nom-alphabet IS . . . | Sans limites |
| Littéral THRU . . . ou ALSO. . . | 256 |
| Input-Output section | |
| File-control paragraphe | |
| SELECT nom-fichier … | Un maximum de 65 535 noms de fichiers peuvent être attribués à des noms externes |
| ASSIGN nom-système … | Sans limites |
| ALTERNATE RECORD KEY nom-données … | 253 |
| RECORD KEY Longueur | Aucune limite (Remarque 3) |
| RESERVE entier (buffers) | 255 (Remarque 4) |
| I-O-control paragraphe | |
| RERUN ON nom-système … | 32 767 |
| RERUN entier RECORDS | 16 777 215 |
| SAME RECORD AREA | 255 |
| SAME RECORD AREA FOR nom-fichier … | 255 |
| SAME SORT/MERGE AREA | Aucune limite (Remarque 2) |
| MULTIPLE FILE nom-fichier … | Aucune limite (Remarque 2) |
| DATA DIVISION | |
| 77 taille de l’élément de données | 999 999 999 octets |
| 01-49 taille de l’élément de données | 999 999 999 octets |
| Total 01 + 77 (éléments de données) | Sans limites |
| 88 noms-condition . . . | Sans limites |
| Clause VALUE de niveau 88 . . . | Sans limites |
| 66 RENAMES . . . | Sans limites |
| Clause PICTURE, nombre de caractères dans chaîne-caractères | 50 |
| Clause PICTURE, positions des chiffres des éléments numériques | Avec ARITH(COMPAT): 18 Avec ARITH(EXTEND): 31 |
| Clause PICTURE, positions de caractères éditées numériquement | 249 |
| Réplication du symbole d’image ( ) | 999 999 999 octets |
| Réplication de symboles d’image (édition) | 32 767 |
| Réplication de symbole d’image ( ), éléments DBCS de classe | 499 999 999 octets |
| Reproduction d’un symbole d’image ( ), classer les éléments nationaux | 499 999 999 octets |
| Taille de l’élément élémentaire | 134 217 727 octets |
| OCCURS entier | 999 999 999 |
| Nombre total d’ODO | 4 194 303 (Remarque 1) |
| Taille du tableau | 999 999 999 octets |
| Taille des éléments du tableau | 999 999 999 octets |
| ASCENDING or DESCENDING KEY . . . (par clause OCCURS) | 12 CLÉS |
| Longueur totale des clés (par clause OCCURS) | 256 octets |
| INDEXED BY . . . (noms d’index par clause OCCURS) | 12 |
| Nombre total d’index (noms d’index) par classe ou programme | 65 535 |
| Taille de l’index relatif | 32 765 |
| FILE SECTION | |
| Saisie de la description de l’enregistrement FD | 1 048 575 octets |
| nom-fichier FD . . . | 65 535 |
| LABEL nom-donnée . . . (si pas de clauses facultatives) | 255 |
| Longueur d’enregistrement de l’étiquette | 80 octets |
| BLOCK CONTAINS entier | 2 147 483 647 (remarque 8) |
| RECORD CONTAINS entier | 1 048 575 (remarque 5) |
| Valeurs de la clause LINAGE | 99 999 999 |
| nom-fichier SD . . . | 65 535 |
| DATA RECORD nom-donnée . . . | Aucune limite (Remarque 2) |
| LINKAGE SECTION | |
| Taille totale | Sans limites |
| LOCAL-STORAGE SECTION | |
| Taille totale | 2 147 483 646 octets |
| WORKING-STORAGE SECTION | |
| Taille totale des éléments sans l’attribut externe | 2 147 483 646 octets |
| Taille totale des éléments avec l’attribut externe | 2 147 483 646 octets |
| PROCEDURE DIVISION | |
| Procédure et aire constante | 4 194 303 octets (Remarque 1) |
| PROCEDURE DIVISION USING identifiant . . . | 32 767 |
| Procedure-names | 1 048 575 (Remarque 1) |
| Noms de données en indice par instruction | 32 767 |
| Relevés par ligne (TEST) | 7 |
| Instruction ACCEPT, longueur d’enregistrement sur le périphérique d’entrée | 32 760 |
| ADD identifiant . . . | Sans limites |
| ALTER nom-procédure-1 TO nom-procédure-2 . . . | 4 194 303 (Remarque 1) |
| CALL . . . BY CONTENT Identifiant | 2 147 483 647 octets |
| CALL identifiant ou littéral USING identifiant ou littéral . . . | 16 380 |
| CALL littéral . . . | 4 194 303 (Remarque 1) |
| Programmes actifs dans une unité d’exécution | 32 767 |
| Nombre de noms appelés (option DYN) | Sans limites |
| CANCEL identifiant ou littéral . . . | Sans limites |
| CLOSE nom-fichier . . . | Sans limites |
| COMPUTE Identifiant . . . | Sans limites |
| DISPLAY identifiant ou littéral . . . | Sans limites |
| DIVIDE Identifiant . . . | Sans limites |
| ENTRY USING identifiant ou littéral . . . | Sans limites |
| EVALUATE . . . sujets | 64 |
| EVALUATE . . . WHEN clause | 256 |
| GO nom_procédure . . . DEPENDING | 255 |
| INSPECT TALLYING et REPLACING Clauses | Sans limites |
| MERGE nom-fichier ASC ou DES KEY . . . | Sans limites |
| Longueur totale de la clé de fusion | 4 092 octets (Remarque 6) |
| MERGE USING nom-fichier . . . | 16 (Note 7) |
| MOVE Identifiant ou littéral TO identificateur . . . | Sans limites |
| MULTIPLY Identifiant . . . | Sans limites |
| OPEN nom-fichier . . . | Sans limites |
| PERFORM | 4 194 303 |
| PERFORM . . . TIMES identifiant ou littéral | 999 999 999 |
| SEARCH ALL . . . longueur de clé maximale | Sans limites |
| SEARCH ALL . . . longueur totale des clés | Sans limites |
| SEARCH . . . WHEN . . . | Sans limites |
| SET index ou identifiant . . . TO | Sans limites |
| SET indice . . . UP/DOWN | Sans limites |
| SORT nom-fichier ASC ou DES KEY | Sans limites |
| Longueur totale de la clé de tri | 4 092 octets (Remarque 6) |
| SORT USING nom-fichier . . . | 16 (Remarque 7) |
| STRING Identifiant . . . | Sans limites |
| STRING DELIMITED Identifiant ou littéral . . . | Sans limites |
| UNSTRING DELIMITED identifiant ou littéral . . . | Sans limites |
| UNSTRING INTO identifiant ou littéral . . . | Sans limites |
| USE . . . ON nom-fichier . . . | Sans limites |
| Instruction XML PARSE, taille maximale de identifiant | 999 999 999 octets |
Remarques:
Programme utilisant MOVE COORESPONDING :
IDENTIFICATION DIVISION.
PROGRAM-ID. MOVECORR.
AUTHOR. LA COMMUNAUTE DU COBOL.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-DATE-HEURE.
05 WS-DATE.
10 WS-ANNEE PIC X(004).
10 WS-MOIS PIC X(002).
10 WS-JOUR PIC X(002).
05 WS-HEURE.
10 WS-HEURES PIC X(002).
10 WS-MINUTES PIC X(002).
10 WS-SECONDES PIC X(002).
01 WS-DATE-HEURE-FORMAT.
05 WS-DATE-FORMAT.
10 WS-JOUR PIC X(002).
10 PIC X(001) VALUE "/".
10 WS-MOIS PIC X(002).
10 PIC X(001) VALUE "/".
10 WS-ANNEE PIC X(004).
05 WS-HEURE-FORMAT.
10 WS-HEURES PIC X(002).
10 FILLER PIC X(001) VALUE ":".
10 WS-MINUTES PIC X(002).
10 FILLER PIC X(001) VALUE ":".
10 WS-SECONDES PIC X(002).
PROCEDURE DIVISION.
MOVE FUNCTION CURRENT-DATE TO WS-DATE-HEURE
DISPLAY "WS-DATE-HEURE - " WS-DATE-HEURE
MOVE CORRESPONDING WS-DATE TO WS-DATE-FORMAT
MOVE CORRESPONDING WS-HEURE TO WS-HEURE-FORMAT
DISPLAY "WS-DATE-FORMAT : " WS-DATE-FORMAT
DISPLAY "WS-HEURE-FORMAT : " WS-HEURE-FORMAT
STOP RUN.
Resultat:
WS-DATE-HEURE - 20230301020008
WS-DATE-FORMAT : 01/03/2023
WS-HEURE-FORMAT : 02:00:08Il existe différents types de conditions en COBOL. Une condition peut-être :
– de relation
– de classe
– de signe
Une condition de relation a la structure suivante :
IF MONTANT IS EQUAL TO 25.00 ….
IF TOTAL > MONTANT ….
IF SALAIRE-BRUT NOT < LIMITE ….
Une condition de classe a la structure suivante :
IF CODE-PROV IS NOT ALPHABETIC ….
IF MONTANT IS NUMERIC ….
Une condition de signe a la structure suivante :
L ’item doit être numérique (PIC 9)
IF TOTAL-CREDITS IS NEGATIVE ….
IF MONTANT IS POSITIVE ….
IF MONTANT-EN-CAISSE - DEBOURSES IS NOT ZERO ….
Les conditions peuvent être combinées pour former des conditions complexes avec AND et OR .
IF MOYENNE = 0 AND NBR-ETUDIANT NOT EQUAL TO ZERO ….
IF A = B OR C > D ….
La structure de sélection est traduite en COBOL par l ’énoncé IF :
IF condition
THEN Instruction impérative ….
[ELSE Instruction impérative ….]
END-IF
Exemple :
IF HRES-TRAV > 40 THEN
COMPUTE HRES-SUPP = HRES-TRAV - 40
COMPUTE PAYE-SUPP = HRES-SUPP * TAUX-HOR
MOVE 40 TO HRES-REG
ELSE
MOVE ZERO TO PAYE-SUPP
MOVE HRES-TRAV TO HRES-REG.
COMPUTE PAYE-REG = HRES-REG * TAUX-HOR.
COMPUTE PAYE-TOTALE = PAYE-REG + PAYE-SUPP
END-IF.
Il est possible de donner un nom à une condition et d ’utiliser celui-ci à sa place.
Un nom de condition est défini à l ’aide du niveau 88.
88 nom-condition VALUE const-1 [{THRU} const-2 ….]
La description de niveau 88 doit suivre immédiatement celle de l ’item élémentaire auquel on fait référence. La constante doit être du même type.
05 note PIC X.
88 echec VALUE ‘E’.
Quand le nom de condition est utilisé, la valeur de l ’item et la valeur indiquée dans la description de niveau 88 sont comparées.
IF echec THEN
PERFORM traiter-echecELSE PERFORM traiter-reussite
END-IF.
EVALUATE
Il est utilisé pour représenter une structure de sélection de type ‘CASE’ :
EVALUATE CHOIX
WHEN ‘A’ PERFORM TRAITER-AJOUT
WHEN ‘M’ PERFORM TRA