COBOL For Z-OS Language Reference-1
COBOL For Z-OS Language Reference-1
COBOL For Z-OS Language Reference-1
Language Reference
V ersion 3 Release 4
SC27-1408-04
Language Reference
V ersion 3 Release 4
SC27-1408-04
Note! Before using this information and the product it supports, be sure to read the general information under Notices on page 599.
Fifth Edition (March 2006) This edition applies to Version 3 Release 4 of IBM Enterprise COBOL for z/OS (program number 5655-G53) and to all subsequent releases and modifications until otherwise indicated in new editions. Make sure that you are using the correct edition for the level of the product. You can order publications online at www.ibm.com/shop/publications/order/, or order by phone or fax. IBM Software Manufacturing Solutions takes publication orders between 8:30 a.m. and 7:00 p.m. Eastern Standard Time (EST). The phone number is (800)879-2755. The fax number is (800)445-9269. You can also order publications through your IBM representative or the IBM branch office that serves your locality. Copyright International Business Machines Corporation 1991, 2006. All rights reserved. US Government Users Restricted Rights Use, duplication or disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
Contents
Tables . . . . . . . . . . . . . . . xi Preface . . . . . . . . . . . . . . xiii
About this document . . . . . . . . . . . xiii Accessing softcopy documentation and support information . . . . . . . . . . . . . xiii Accessibility . . . . . . . . . . . . . xiii IBM extensions . . . . . . . . . . . . xiv Obsolete language elements . . . . . . . xiv How to read the syntax diagrams . . . . . . xv DBCS notation . . . . . . . . . . . . xvii Acknowledgment . . . . . . . . . . . xvii Summary of changes . . . . . . . . . xviii How to send your comments . . . . . . . xx XML-NTEXT . . . . XML-TEXT . . . . Literals . . . . . . . Alphanumeric literals . Numeric literals . . . DBCS literals . . . . National literals . . . PICTURE character-strings Comments . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 26 27 28 28 31 32 33 36 36
Chapter 4. Separators . . . . . . . . 37
Rules for separators . . . . . . . . . . . 37
Chapter 3. Character-strings . . . . . . 9
COBOL words with single-byte characters User-defined words with DBCS characters User-defined words. . . . . . . . System-names . . . . . . . . . Function-names . . . . . . . . . Reserved words . . . . . . . . . Figurative constants . . . . . . . Special registers . . . . . . . . . ADDRESS OF . . . . . . . . DEBUG-ITEM . . . . . . . . JNIENVPTR . . . . . . . . . LENGTH OF . . . . . . . . . LINAGE-COUNTER . . . . . . RETURN-CODE . . . . . . . . SHIFT-OUT and SHIFT-IN . . . . SORT-CONTROL . . . . . . . SORT-CORE-SIZE . . . . . . . SORT-FILE-SIZE . . . . . . . . SORT-MESSAGE . . . . . . . SORT-MODE-SIZE . . . . . . . SORT-RETURN . . . . . . . . TALLY . . . . . . . . . . . WHEN-COMPILED . . . . . . XML-CODE . . . . . . . . . XML-EVENT . . . . . . . . .
Copyright IBM Corp. 1991, 2006
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . .
. 9 . 10 . 10 . 11 . 12 . 12 . 13 . 15 . 16 . 17 . 18 . 18 . 19 . 20 . 21 . 21 . 22 . 22 . 22 . 23 . 23 . 23 . 24 . 24 . 25
. 45 . 45 . . . . . . . . . . . 45 45 46 46 48 48 48 48 49 49 49
Chapter 8. Referencing data names, copy libraries, and procedure division names . . . . . . . . . . . . . . . 57 iii
Uniqueness of reference . . . . . . Qualification . . . . . . . . . Identical names . . . . . . . . References to COPY libraries . . . References to procedure division names References to data division names . . Condition-name . . . . . . . . Index-name . . . . . . . . . Index data item . . . . . . . . Subscripting . . . . . . . . . Reference modification . . . . . Function-identifier . . . . . . . Data attribute specification . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
57 57 58 58 58 59 61 62 63 63 66 68 69
ALPHABET clause. . . . . . . . SYMBOLIC CHARACTERS clause . . CLASS clause . . . . . . . . . CURRENCY SIGN clause . . . . . DECIMAL-POINT IS COMMA clause . REPOSITORY paragraph . . . . . General rules . . . . . . . . Identifying and referencing the class .
. . . . . . . .
. . . . . . . .
. . . . . . . .
. . . . . . . .
Chapter 9. Transfer of control . . . . . 71 Chapter 10. Millennium Language Extensions and date fields . . . . . . 73
Millennium Language Extensions Terms and concepts. . . . . Date field . . . . . . . Nondate . . . . . . . Century window . . . . syntax . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 73 74 74 75 75
. 127 127 . 128 . 129 . 129 . 131 . 131 . 132 . 133 . 133 . . . . . . . . . . . . . . 133 134 135 136 137 137 138 140 141 142 143 143 143 143
79
. 81 . 82
Chapter 12. COBOL class definition structure . . . . . . . . . . . . . . 85 Chapter 13. COBOL method definition structure . . . . . . . . . . . . . . 89
147
. . . . . . . . . . . . . . . 148 149 150 151 151 151 152 152 152 152 152 153 153 155 155
. . . . . . hiding . .
iv
Classes and categories of group Classes and categories of data . Category descriptions . . . Alignment rules . . . . . Character-string and item size . Signed data . . . . . . . Operational signs . . . . . Editing signs . . . . . .
items . . . . . . . . . . . . . .
. . . . . . . .
. . . . . . . .
. . . . . . . .
. . . . . . . .
REDEFINES clause examples . Undefined results . . . . . RENAMES clause . . . . . . SIGN clause . . . . . . . . SYNCHRONIZED clause . . . Slack bytes . . . . . . . Slack bytes within records . . Slack bytes between records . USAGE clause . . . . . . . Computational items . . . . DISPLAY phrase . . . . . DISPLAY-1 phrase . . . . . FUNCTION-POINTER phrase . INDEX phrase . . . . . . NATIONAL phrase . . . . OBJECT REFERENCE phrase . POINTER phrase . . . . . PROCEDURE-POINTER phrase NATIVE phrase . . . . . VALUE clause . . . . . . . Format 1 . . . . . . . . Format 2 . . . . . . . . Format 3 . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
214 216 216 218 220 222 222 224 225 227 229 229 229 230 231 231 232 233 234 234 234 236 239
Contents
Compiler-directing statements . Statement operations . . . . . CORRESPONDING phrase . . GIVING phrase. . . . . . ROUNDED phrase . . . . SIZE ERROR phrases . . . . Arithmetic statements . . . Arithmetic statement operands Data manipulation statements . Input-output statements . . . Common processing facilities .
. . . . . . . . . . .
. . . . . . . . . . .
. . . . . . . . . . .
. . . . . . . . . . .
. . . . . . . . . . .
. . . . . . . . . . .
286 286 286 287 287 288 290 290 291 291 292
EXIT statement . . . . . . . . . . . . . EXIT METHOD statement . . . . . . . . . EXIT PROGRAM statement . . . . . . . . GOBACK statement . . . . . . . . . . . GO TO statement . . . . . . . . . . . . Unconditional GO TO . . . . . . . . . Conditional GO TO . . . . . . . . . . Altered GO TO . . . . . . . . . . . . MORE-LABELS GO TO . . . . . . . . . IF statement . . . . . . . . . . . . . . END-IF phrase . . . . . . . . . . . . Transferring control . . . . . . . . . . Nested IF statements . . . . . . . . . . INITIALIZE statement . . . . . . . . . . REPLACING phrase . . . . . . . . . . INITIALIZE statement rules . . . . . . . INSPECT statement . . . . . . . . . . . TALLYING phrase (formats 1 and 3) . . . . REPLACING phrase (formats 2 and 3) . . . . Replacement rules . . . . . . . . . . . BEFORE and AFTER phrases (all formats) . . . CONVERTING phrase (format 4) . . . . . . Data types for identifiers and literals . . . . Data flow . . . . . . . . . . . . . Comparison cycle . . . . . . . . . . . Example of the INSPECT statement . . . . . INVOKE statement . . . . . . . . . . . USING phrase . . . . . . . . . . . . BY VALUE phrase . . . . . . . . . . . Conformance requirements for arguments . . . RETURNING phrase . . . . . . . . . . Conformance requirements for the RETURNING item . . . . . . . . . . . . . . . ON EXCEPTION phrase . . . . . . . . . NOT ON EXCEPTION phrase . . . . . . . END-INVOKE phrase . . . . . . . . . Interoperable data types for COBOL and Java Miscellaneous argument types for COBOL and Java . . . . . . . . . . . . . . . MERGE statement . . . . . . . . . . . . ASCENDING/DESCENDING KEY phrase . . COLLATING SEQUENCE phrase. . . . . . USING phrase . . . . . . . . . . . . GIVING phrase. . . . . . . . . . . . OUTPUT PROCEDURE phrase . . . . . . MERGE special registers . . . . . . . . . Segmentation considerations . . . . . . . MOVE statement . . . . . . . . . . . . Elementary moves . . . . . . . . . . . Elementary move rules . . . . . . . . . Valid and invalid elementary moves . . . . . Moves involving date fields . . . . . . . Moves involving file record areas. . . . . . Group moves . . . . . . . . . . . . MULTIPLY statement . . . . . . . . . . . ROUNDED phrase . . . . . . . . . . SIZE ERROR phrases . . . . . . . . . . END-MULTIPLY phrase . . . . . . . . . OPEN statement . . . . . . . . . . . . General rules . . . . . . . . . . . . Label records . . . . . . . . . . . .
341 342 343 344 345 345 345 346 346 347 347 348 348 349 350 350 352 355 356 357 357 358 358 359 359 361 362 364 364 364 365 365 366 366 366 366 368 370 371 372 373 374 374 375 375 376 377 378 380 381 382 382 383 384 384 384 385 387 387
vi
OPEN statement notes . . . . . . . PERFORM statement . . . . . . . . . Basic PERFORM statement . . . . . . END-PERFORM . . . . . . . . . PERFORM with TIMES phrase . . . . PERFORM with UNTIL phrase . . . . PERFORM with VARYING phrase . . . Varying identifiers . . . . . . . . . Varying two identifiers . . . . . . . Varying three identifiers . . . . . . . Varying more than three identifiers . . . Varying phrase rules . . . . . . . . READ statement . . . . . . . . . . KEY IS phrase . . . . . . . . . . AT END phrases . . . . . . . . . INVALID KEY phrases . . . . . . . END-READ phrase . . . . . . . . Multiple record processing . . . . . . Sequential access mode . . . . . . . Sequential files . . . . . . . . . . AT END condition. . . . . . . . . Multivolume QSAM files . . . . . . Indexed or relative files . . . . . . . AT END condition. . . . . . . . . Sequentially accessed indexed files . . . Sequentially accessed relative files . . . Random access mode . . . . . . . . Indexed files . . . . . . . . . . Relative files. . . . . . . . . . . Dynamic access mode . . . . . . . READ statement notes: . . . . . . . RELEASE statement . . . . . . . . . RETURN statement . . . . . . . . . AT END phrases . . . . . . . . . END-RETURN phrase . . . . . . . REWRITE statement . . . . . . . . . INVALID KEY phrases . . . . . . . END-REWRITE phrase . . . . . . . Reusing a logical record . . . . . . . Sequential files . . . . . . . . . . Indexed files . . . . . . . . . . Relative files. . . . . . . . . . . SEARCH statement . . . . . . . . . Serial search . . . . . . . . . . . Example: multidimensional serial search . VARYING phrase . . . . . . . . . WHEN phrase (serial search) . . . . . Binary search . . . . . . . . . . WHEN phrase (binary search) . . . . . Search statement considerations . . . . AT END and WHEN phrases . . . . . NEXT SENTENCE. . . . . . . . . END-SEARCH phrase . . . . . . . SET statement . . . . . . . . . . . Format 1: SET for basic table handling . . Format 2: SET for adjusting indexes . . . Format 3: SET for external switches . . . Format 4: SET for condition-names . . . Format 5: SET for USAGE IS POINTER data items . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
388 391 391 393 393 394 395 396 397 399 399 400 401 402 402 403 403 403 403 404 404 405 405 405 405 406 406 406 406 406 406 408 410 411 411 412 412 413 413 413 413 414 415 416 417 417 418 419 419 421 421 421 421 422 422 423 424 425
. 425
Format 6: SET for procedure-pointer and function-pointer data items . . . . . . . . Example of COBOL/C interoperability . . . . Format 7: SET for USAGE OBJECT REFERENCE data items . . . . . . . . . . . . . SORT statement . . . . . . . . . . . . ASCENDING KEY and DESCENDING KEY phrases . . . . . . . . . . . . . . DUPLICATES phrase . . . . . . . . . . COLLATING SEQUENCE phrase. . . . . . USING phrase . . . . . . . . . . . . INPUT PROCEDURE phrase . . . . . . . GIVING phrase. . . . . . . . . . . . OUTPUT PROCEDURE phrase . . . . . . SORT special registers . . . . . . . . . Segmentation considerations . . . . . . . START statement . . . . . . . . . . . . KEY phrase . . . . . . . . . . . . . INVALID KEY phrases . . . . . . . . . END-START phrase . . . . . . . . . . Indexed files . . . . . . . . . . . . Relative files. . . . . . . . . . . . . STOP statement . . . . . . . . . . . . STRING statement. . . . . . . . . . . . ON OVERFLOW phrases . . . . . . . . END-STRING phrase . . . . . . . . . . Data flow . . . . . . . . . . . . . SUBTRACT statement . . . . . . . . . . ROUNDED phrase . . . . . . . . . . SIZE ERROR phrases . . . . . . . . . . CORRESPONDING phrase (format 3) . . . . END-SUBTRACT phrase . . . . . . . . UNSTRING statement . . . . . . . . . . DELIMITED BY phrase . . . . . . . . . Delimiter with two or more characters . . . . Two or more delimiters . . . . . . . . . INTO phrase . . . . . . . . . . . . POINTER phrase . . . . . . . . . . . TALLYING IN phrase . . . . . . . . . ON OVERFLOW phrases . . . . . . . . When an overflow condition occurs . . . . . When an overflow condition does not occur . . END-UNSTRING phrase . . . . . . . . Data flow . . . . . . . . . . . . . Values at the end of execution of the UNSTRING statement . . . . . . . . . Example of the UNSTRING statement . . . . WRITE statement . . . . . . . . . . . . ADVANCING phrase. . . . . . . . . . ADVANCING phrase rules . . . . . . . . LINAGE-COUNTER rules . . . . . . . . END-OF-PAGE phrases . . . . . . . . . INVALID KEY phrases . . . . . . . . . END-WRITE phrase . . . . . . . . . . WRITE for sequential files . . . . . . . . Multivolume files . . . . . . . . . . . Punch function files with the IBM 3525 . . . . Print function files . . . . . . . . . . . Advanced Function Printing . . . . . . . WRITE for indexed files . . . . . . . . . WRITE for relative files . . . . . . . . .
Contents
426 428 428 429 430 431 432 432 433 433 434 435 435 436 436 437 437 437 438 439 440 442 443 443 445 447 447 447 447 448 450 450 450 450 451 451 451 451 452 452 452 454 454 455 457 457 458 458 459 460 460 461 461 461 462 462 462
vii
XML GENERATE statement . . . . . Nested XML GENERATE or XML PARSE statements . . . . . . . . . . Operation of XML GENERATE . . . Format conversion of elementary data . Trimming of generated XML data . . XML element name formation . . . . XML PARSE statement . . . . . . . Nested XML GENERATE or XML PARSE statements . . . . . . . . . . Control flow . . . . . . . . . .
. . . . . . . . .
. . . . . . . . .
. 474 . 474
REM . . . . . . . REVERSE. . . . . . SIN . . . . . . . . SQRT . . . . . . . STANDARD-DEVIATION SUM . . . . . . . TAN . . . . . . . UNDATE . . . . . . UPPER-CASE . . . . VARIANCE . . . . . WHEN-COMPILED . . YEAR-TO-YYYY . . . YEARWINDOW . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
. . . . . . . . . . . . .
514 515 515 515 516 516 517 517 518 518 519 520 521
viii
. .
. .
. .
. .
. .
. .
. .
. 595 . 595
597
Notices . . . . . . . . . . . . . . 599
Programming interface information . Trademarks . . . . . . . . . . . . . . . . . . 600 . 600
Index . . . . . . . . . . . . . . . 623
Contents
ix
Tables
1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 21. 22. 23. 24. 25. 26. 27. 28. 29. 30. 31. 32. 33. Basic COBOL character set . . . . . . . 3 DEBUG-ITEM subfield contents . . . . . 17 Contents of XML-EVENT and XML-TEXT or XML-NTEXT special registers . . . . . . 25 Separators . . . . . . . . . . . . . 37 Meanings of environment names . . . . . 110 Types of files . . . . . . . . . . . 120 Classes and categories of group items 156 Class, category, and usage of elementary data items . . . . . . . . . . . . 157 Classes and categories of functions . . . . 157 Classes and categories of literals . . . . . 157 Where national group items are processed as groups . . . . . . . . . . . . . . 188 PICTURE clause symbol meanings . . . . 196 Numeric types . . . . . . . . . . . 202 Data categories . . . . . . . . . . . 207 SYNCHRONIZE clause effect on other language elements . . . . . . . . . . 220 Relation test references for condition-names 238 Binary and unary operators . . . . . . 254 Valid arithmetic symbol pairs . . . . . . 255 Results of using date fields in addition 256 Results of using date fields in subtraction 257 Storing arithmetic results that involve date fields when ON SIZE ERROR is specified . 258 Valid forms of the class condition for different types of data items . . . . . . 261 Relational operators and their meanings 264 Comparisons involving data items and literals . . . . . . . . . . . . . . 266 Comparisons involving figurative constants 267 Comparisons for index-names and index data items . . . . . . . . . . . . 271 Comparisons with date fields . . . . . . 272 Permissible comparisons for USAGE POINTER, NULL, and ADDRESS OF . . . 273 Logical operators and their meanings 276 Combined conditionspermissible element sequences . . . . . . . . . . . . 277 Logical operators and evaluation results of combined conditions . . . . . . . . . 278 Abbreviated combined conditions: permissible element sequences . . . . . 281 Abbreviated combined conditions: unabbreviated equivalents . . . . . . . 281 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. 55. 56. 57. 58. 59. 60. 61. 62. Exponentiation size error conditions How the composite of operands is determined . . . . . . . . . . . File status key values and meanings Sequential files and CLOSE statement phrases . . . . . . . . . . . . Indexed and relative file types and CLOSE statement phrases . . . . . . . . . Line-sequential file types and CLOSE statement phrases . . . . . . . . . Meanings of key letters for sequential file types . . . . . . . . . . . . . Treatment of the content of data items Interoperable Java and COBOL data types Interoperable COBOL and Java array and String data types . . . . . . . . . COBOL miscellaneous argument types and corresponding Java types . . . . . . COBOL literal argument types and corresponding Java types . . . . . . Valid and invalid elementary moves Moves involving date fields . . . . . Availability of a file . . . . . . . . Permissible statements for sequential files Permissible statements for indexed and relative files . . . . . . . . . . . Permissible statements for line-sequential files . . . . . . . . . . . . . Sending and receiving fields for format-1 SET statement . . . . . . . . . . Sending and receiving fields for format-5 SET statement . . . . . . . . . . Character positions examined when DELIMITED BY is not specified . . . . Meanings of environment-names in SPECIAL NAMES paragraph . . . . . Table of functions . . . . . . . . . Execution of debugging declaratives IBM extension language elements . . . Compiler limits . . . . . . . . . EBCDIC collating sequence . . . . . ASCII collating sequence . . . . . . Reserved words . . . . . . . . . 289 . 290 293 . 322 . 322 . 322 . 322 358 367 . 368 . 368 . 369 380 . 382 . 388 389 . 389 . 389 . 423 . 426 . 453 . 462 . 487 549 . 553 . 565 . 569 . 572 . 579
| |
| |
xi
xii
Preface
About this document
This document describes the COBOL language supported by IBM(R) Enterprise COBOL for z/OS(R), referred to in this document as Enterprise COBOL. Use this document in conjunction with the IBM Enterprise COBOL for z/OS Programming Guide.
Accessibility
Accessibility features help a user who has a physical disability, such as restricted mobility or limited vision, to use software products successfully. The accessibility features in z/OS provide accessibility for Enterprise COBOL. The major accessibility features in z/OS enable users to do the following tasks: v Use assistive technology products such as screen readers and screen magnifier software. v Operate specific or equivalent features by using only the keyboard. v Customize display attributes such as color, contrast, and font size.
xiii
IBM extensions
IBM extensions generally add features, syntax, or rules that are not specified in the ANSI and ISO COBOL standards that are listed in Appendix G, Industry specifications, on page 597. In this document, the term Standard COBOL 85 refers to those standards. Extensions range from minor relaxation of rules to major capabilities, such as XML support, Unicode support, object-oriented COBOL for Java(TM) interoperability, and DBCS character handling. The rest of this document describes the complete language without identifying extensions. You will need to review Appendix A, IBM extensions, on page 553 and the compiler options that are described in the Enterprise COBOL Programming Guide if you want to use only standard language elements.
xiv
v v v v v v v
MULTIPLE FILE TAPE clause RERUN clause REVERSED phrase SECURITY paragraph Segmentation module STOP literal format of the STOP statement USE FOR DEBUGGING declarative
v VALUE OF clause v The figurative constant ALL literal with a length greater than one, when the figurative constant is associated with a numeric or numeric-edited item
v When you can choose from two or more items, they appear vertically, in a stack. If you must choose one of the items, one item of the stack appears on the main path. Format
STATEMENT required choice 1 required choice 2
If choosing one of the items is optional, the entire stack appears below the main path.
Preface
xv
Format
STATEMENT optional choice 1 optional choice 2
An arrow returning to the left above the main line indicates an item that can be repeated. Format
STATEMENT
repeatable item
A repeat arrow above a stack indicates that you can make more than one choice from the stacked items, or repeat a single choice. v Variables appear in all lowercase letters (for example, parmx). They represent user-supplied names or values. v If punctuation marks, parentheses, arithmetic operators, or other such symbols are shown, they must be entered as part of the syntax.
item 1:
identifier-2 literal-2 arithmetic-expression-1
Notes: 1 2 The STATEMENT keyword must be specified and coded as shown. This operand is required. Either identifier-1 or literal-1 must be coded.
xvi
The item 1 fragment is optional; it can be coded or not, as required by the application. If item 1 is coded, it can be repeated with each entry separated by one or more COBOL separators. Entry selections allowed for this fragment are described at the bottom of the diagram. The operand identifier-3 and associated TO keyword are required and can be repeated with one or more COBOL separators separating each entry. Each entry can be assigned the keyword ROUNDED. The ON SIZE ERROR phrase with associated imperative-statement-1 is optional. If the ON SIZE ERROR phrase is coded, the keyword ON is optional. The END-STATEMENT keyword can be coded to end the statement. It is not a required delimiter.
DBCS notation
Double-Byte Character Set (DBCS) strings in literals, comments, and user-defined words are delimited by shift-out and shift-in characters. In this document, the shift-out delimiter is represented pictorially by the < character, and the shift-in character is represented pictorially by the > character. The single-byte EBCDIC codes for the shift-out and shift-in delimiters are X0E and X0F, respectively. The <> symbol denotes contiguous shift-out and shift-in characters. The >< symbol denotes contiguous shift-in and shift-out characters. DBCS characters are shown in this form: D1D2D3. Latin alphabet characters in DBCS representation are shown in this form: .A.B.C. The dots that precede the letters represent the hexadecimal value X42. Notes v In EBCDIC DBCS data containing mixed single-byte and double-byte characters, double-byte character strings are delimited by shift-out and shift-in characters. v In ASCII DBCS data containing mixed single-byte and double-byte characters, double-byte character strings are not delimited by shift-out and shift-in characters.
Acknowledgment
The following extract from Government Printing Office Form Number 1965-0795689 is presented for the information and guidance of the user: Any organization interested in reproducing the COBOL report and specifications in whole or in part, using ideas taken from this report as the basis for an instruction manual or for any other purpose is free to do so. However, all such organizations are requested to reproduce this section as part of the introduction to the document. Those using a short passage, as in a book review, are requested to mention COBOL in acknowledgment of the source, but need not quote this entire section. COBOL is an industry language and is not the property of any company or group of companies, or of any organization or group of organizations. No warranty, expressed or implied, is made by any contributor or by the COBOL Committee as to the accuracy and functioning of the programming system and language. Moreover, no responsibility is assumed by any contributor, or by the committee, in connection there with.
Preface
xvii
Procedures have been established for the maintenance of COBOL. Inquiries concerning the procedures for proposing changes should be directed to the Executive Committee of the Conference on Data Systems Languages. The authors and copyright holders of copyrighted material: v FLOW-MATIC (Trademark of Sperry Rand Corporation), Programming for the UNIVAC (R) I and II, Data Automation Systems copyrighted 1958, 1959, by Sperry Rand Corporation v IBM Commercial Translator, Form No. F28-8013, copyrighted 1959 by IBM v FACT, DSI 27A5260-2760, copyrighted 1960 by Minneapolis-Honeywell have specifically authorized the use of this material in whole or in part, in the COBOL specifications. Such authorization extends to the reproduction and use of COBOL specifications in programming manuals or similar publications. Note: The Conference on Data Systems Languages (CODASYL), mentioned above, is no longer in existence.
Summary of changes
| | + + + + This section lists the key changes that have been made to Enterprise COBOL for z/OS. Technical changes that are introduced by current service are marked by a plus sign (+) in the left margin in the PDF and BookManager versions. Original technical changes for Version 3 Release 4 and editorial changes to terminology are marked by a vertical bar (|) in the left margin in the PDF and BookManager versions. Other changes for Version 3 Release 4 of Enterprise COBOL for z/OS are described in the Enterprise COBOL Programming Guide. For a history of changes in OS/390(R) COBOL compilers, see Enterprise COBOL Compiler and Runtime Migration Guide.
xviii
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
v Many COBOL language elements support the new kinds of USAGE NATIONAL data items, or newly support the processing of existing national data items: Numeric data with USAGE NATIONAL (national decimal and national floating point) can be used in arithmetic operations and in any language constructs that support numeric operands. Edited data with USAGE NATIONAL is supported in the same language constructs as any existing edited type, including editing and de-editing operations associated with moves. Group items that contain all national data can be defined with the GROUP-USAGE NATIONAL clause, which results in the group behaving as an elementary item in most language constructs. This support facilitates use of national groups in statements such as STRING, UNSTRING, and INSPECT. The XML GENERATE statement supports national groups as receiving data items, and national-edited, numeric-edited of USAGE NATIONAL, national decimal, national floating-point, and national group items as sending data items. The NUMVAL and NUMVAL-C intrinsic functions can take a national literal or national data item as an argument. Using these new national data capabilities, it is now practical to develop COBOL programs that exclusively use Unicode for all application data. v The REDEFINES clause has been enhanced such that for data items that are not level 01, the subject of the entry can be larger than the data item being redefined. v The literal in a VALUE clause for a data item of class national can be alphanumeric. v The IBM SDK for z/OS(R), Java(TM) 2 Technology Edition, V1.4 is now supported. The following terminology changes are made in this release: v The term alphanumeric group is introduced to refer specifically to groups other than national groups. v The term group means both alphanumeric groups and national groups except when used in a context that obviously refers to only an alphanumeric group or only a national group. v The term external decimal refers to both zoned decimal items and national decimal items. v The term display floating-point is introduced to refer to an external floating-point item that has usage DISPLAY. v The term external floating-point refers to both display floating-point items and national floating-point items.
xix
v Object references of type jobjectArray are supported for interoperation between COBOL and Java. v OO applications that begin with a COBOL main factory method can be invoked with the java command.
xx
v Use the Online Readers Comment Form at www.ibm.com/software/awdtools/ rcf/. Be sure to include the name of the document, the publication number of the document, the version of the product, and, if applicable, the specific location (for example, page number or section heading) of the text that you are commenting on. When you send information to IBM, you grant IBM a nonexclusive right to use or distribute the information in any way it believes appropriate without incurring any obligation to you.
Preface
xxi
xxii
Chapter 3. Character-strings . . . . . . . COBOL words with single-byte characters . . . User-defined words with DBCS characters . . . User-defined words. . . . . . . . . . . System-names . . . . . . . . . . . . Function-names . . . . . . . . . . . . Reserved words . . . . . . . . . . . . Figurative constants . . . . . . . . . . Special registers . . . . . . . . . . . . ADDRESS OF . . . . . . . . . . . DEBUG-ITEM . . . . . . . . . . . JNIENVPTR . . . . . . . . . . . . LENGTH OF . . . . . . . . . . . . LINAGE-COUNTER . . . . . . . . . RETURN-CODE . . . . . . . . . . . SHIFT-OUT and SHIFT-IN . . . . . . . SORT-CONTROL . . . . . . . . . . SORT-CORE-SIZE . . . . . . . . . . SORT-FILE-SIZE . . . . . . . . . . . SORT-MESSAGE . . . . . . . . . . SORT-MODE-SIZE . . . . . . . . . . SORT-RETURN . . . . . . . . . . . TALLY . . . . . . . . . . . . . . WHEN-COMPILED . . . . . . . . . XML-CODE . . . . . . . . . . . . XML-EVENT . . . . . . . . . . . . XML-NTEXT . . . . . . . . . . . . XML-TEXT . . . . . . . . . . . . Literals . . . . . . . . . . . . . . . Alphanumeric literals . . . . . . . . . Basic alphanumeric literals . . . . . . Alphanumeric literals with DBCS characters Hexadecimal notation for alphanumeric literals . . . . . . . . . . . . . Null-terminated alphanumeric literals . . Numeric literals . . . . . . . . . . . Rules for floating-point literal values . . . DBCS literals . . . . . . . . . . . . Where DBCS literals can be used . . . . National literals . . . . . . . . . . . Basic national literals . . . . . . . . Hexadecimal notation for national literals . Where national literals can be used . . . PICTURE character-strings . . . . . . . . Comments . . . . . . . . . . . . . .
Copyright IBM Corp. 1991, 2006
Chapter 6. Reference format . . . . . . . . 43 Sequence number area . . . . . . . . . . . 43 Indicator area . . . . . . . . . . . . . . 43 Area A . . . . . . . . . . . . . . . . 44 Division headers. . . . . . . . . . . . 44 Section headers . . . . . . . . . . . . 44 Paragraph headers or paragraph names . . . . 44 Level indicators (FD and SD) or level-numbers (01 and 77) . . . . . . . . . . . . . 45 DECLARATIVES and END DECLARATIVES . . 45 End program, end class, and end method markers . . . . . . . . . . . . . . 45 Area B . . . . . . . . . . . . . . . . 45 Entries, sentences, statements, clauses . . . . 46 Continuation lines . . . . . . . . . . . 46 Continuation of alphanumeric and national literals . . . . . . . . . . . . . . 46 Area A or Area B . . . . . . . . . . . . 48 Level-numbers . . . . . . . . . . . . 48 Comment lines . . . . . . . . . . . . 48 Compiler-directing statements . . . . . . . 48 Debugging lines . . . . . . . . . . . . 49 Pseudo-text . . . . . . . . . . . . . 49 Blank lines . . . . . . . . . . . . . 49 Chapter 7. Scope of names . . . . . . . . 51 Types of names . . . . . . . . . . . . . 51 External and internal resources . . . . . . . . 53 Resolution of names . . . . . . . . . . . 54 Names within programs . . . . . . . . . 54 Names within a class definition . . . . . . 55 Chapter 8. Referencing data names, copy libraries, and procedure division names . . . . 57 Uniqueness of reference . . . . . . . . . . 57 Qualification . . . . . . . . . . . . . 57 Qualification rules . . . . . . . . . . 58 Identical names . . . . . . . . . . . . 58 References to COPY libraries . . . . . . . 58 References to procedure division names . . . . 58 References to data division names . . . . . . 59 Simple data reference . . . . . . . . . 59 Identifiers . . . . . . . . . . . . . 59 Condition-name . . . . . . . . . . . . 61
Index-name . . . . . . . . . . . . Index data item . . . . . . . . . . . Subscripting . . . . . . . . . . . . Subscripting using data-names . . . . . Subscripting using index-names (indexing) . Relative subscripting . . . . . . . . Reference modification . . . . . . . . Evaluation of operands . . . . . . . Reference modification examples . . . . Function-identifier . . . . . . . . . . Data attribute specification . . . . . . . . Chapter 9. Transfer of control . . . . . .
. . . . . . . . . . .
62 63 63 64 65 65 66 67 68 68 69
. 71
Chapter 10. Millennium Language Extensions and date fields . . . . . . . . . . . Millennium Language Extensions syntax . . Terms and concepts. . . . . . . . . . Date field . . . . . . . . . . . . Windowed date field . . . . . . . Expanded date field . . . . . . . Year-last date field . . . . . . . . Date format . . . . . . . . . . Compatible date field . . . . . . . Nondate . . . . . . . . . . . . Century window . . . . . . . . .
. . 73 . . 73 . . 74 . . 74 . . 74 . . 74 . . 74 . . 74 . . 75 . . 75 . . 75
Chapter 1. Characters
The most basic and indivisible unit of the COBOL language is the character. The basic character set includes the letters of the Latin alphabet, digits, and special characters. In the COBOL language, individual characters are joined to form character-strings and separators. Character-strings and separators, then, are used to form the words, literals, phrases, clauses, statements, and sentences that form the language. The basic characters used in forming character-strings and separators in source code are shown in Basic COBOL character set (Table 1). For certain language elements, the basic character set is extended with the EBCDIC Double-Byte Character Set (DBCS). DBCS characters can be used in forming user-defined words. The content of alphanumeric literals, comment lines, and comment entries can include any of the characters in the computers compile-time character set, and can include both single-byte and DBCS characters. Runtime data can include any characters from the runtime character set of the computer. The runtime character set of the computer can include alphanumeric characters, DBCS characters, and national characters. National characters are represented in UTF-16, a 16-bit encoding form of Unicode. When the NSYMBOL (NATIONAL) compiler option is in effect, literals identified by the opening delimiter N or N are national literals and can contain any single-byte or double-byte characters, or both, that are valid for the compile-time code page in effect (either the default code page or the code page specified for the CODEPAGE compiler option). Characters contained in national literals are represented as national characters at run time. For details, see User-defined words with DBCS characters on page 10, DBCS literals on page 32, and National literals on page 33.
Table 1. Basic COBOL character set Character Meaning Space + * / = $ , ; .
Copyright IBM Corp. 1991, 2006
Plus sign Minus sign or hyphen Asterisk Forward slash or solidus Equal sign Currency sign1 Comma Semicolon Decimal point or period Quotation mark2
Table 1. Basic COBOL character set (continued) Character ( ) > < : A-Z a-z 0-9 Meaning Left parenthesis Right parenthesis Greater than Less than Colon Apostrophe Alphabet (uppercase) Alphabet (lowercase) Numeric characters
1. The currency sign is the character with the value X5B, regardless of the code page in effect. The assigned graphic character can be the dollar sign or a local currency sign. 2. The quotation mark is the character with the value X7F.
v Unicode UTF-16 See the following sections for the details of each type of code page.
USAGE DISPLAY-1
You can use double-byte characters of an EBCDIC DBCS code page in data items described with USAGE DISPLAY-1 and in literals of category DBCS. An encoding unit is 2 bytes and each graphic character is represented in a single 2-byte encoding unit. For these data items and literals, you need not be concerned with encoding units.
Unicode UTF-16
| | | You can use UTF-16 in data items described with USAGE NATIONAL. National literals are stored as UTF-16 characters regardless of the code page used for the source program. An encoding unit for data items of usage NATIONAL and national literals is 2 bytes. For most of the characters in UTF-16, a graphic character is one encoding unit. Characters converted to UTF-16 from an EBCDIC, ASCII, or EUC code page are represented in one UTF-16 encoding unit. Some of the other graphic characters in UTF-16 are represented by a surrogate pair or a combining character sequence. A surrogate pair consists of two encoding units (4 bytes). A combining character sequence consists of a base character and one or more combining marks or a sequence of one or more combining marks (4 bytes or more, in 2-byte increments). In data items of usage NATIONAL, each 2-byte encoding unit is treated as a character.
When national data contains surrogate pairs or combining character sequences, programmers are responsible for ensuring that operations on national characters do not unintentionally separate the multiple encoding units that form a graphic character. Care should be taken with reference modification, and truncation during moves should be avoided. The COBOL runtime system does not check for a split between the encoding units that form a graphic character.
Chapter 3. Character-strings
A character-string is a character or a sequence of contiguous characters that forms a COBOL word, a literal, a PICTURE character-string, or a comment-entry. A character-string is delimited by separators. A separator is a string of contiguous characters used to delimit character strings. Separators are described in detail under Chapter 4, Separators, on page 37. Character strings and certain separators form text words. A text word is a character or a sequence of contiguous characters (possibly continued across lines) between character positions 8 and 72 inclusive in source text, library text, or pseudo-text. For more information about pseudo-text, see Pseudo-text on page 49. Source text, library text, and pseudo-text can be written in single-byte EBCDIC and, for some character-strings, DBCS. (The compiler cannot process source code written in ASCII or Unicode.) You can use single-byte and double-byte character-strings to form the following: v COBOL words v Literals v Comment text You can use only single-byte characters to form PICTURE character-strings.
v The same COBOL word, however, can be used as both a user-defined word and as a system-name. The classification of a specific occurrence of a COBOL word is determined by the context of the clause or phrase in which it occurs.
User-defined words
The following sets of user-defined words are supported. The second column indicates whether DBCS characters are allowed in words of a given set.
User-defined word Alphabet-name Class-name (of data) Condition-name Data-name File-name Index-name Level-numbers: 01-49, 66, 77, 88 Library-name Mnemonic-name Object-oriented class-name Paragraph-name Priority-numbers: 00-99 Program-name DBCS characters allowed? Yes Yes Yes Yes Yes Yes No No Yes No Yes No No
10
The maximum length of a user-defined word is 30 bytes, except for level-numbers and priority-numbers. Level-numbers and priority numbers must each be a one-digit or two-digit integer. A given user-defined word can belong to only one of these sets, except that a given number can be both a priority-number and a level-number. Each user-defined word within a set must be unique, except for priority-numbers and level-numbers and except as specified in Chapter 8, Referencing data names, copy libraries, and procedure division names, on page 57. The following types of user-defined words can be referenced by statements and entries in the program in which the user-defined word is declared: v Paragraph-name v Section-name The following types of user-defined words can be referenced by any COBOL program, provided that the compiling system supports the associated library or other system and that the entities referenced are known to that system: v Library-name v Text-name The following types of names, when they are declared within a configuration section, can be referenced by statements and entries in the program that contains the configuration section or in any program contained within that program: v Alphabet-name v Class-name v Condition-name v Mnemonic-name v Symbolic-character The function of each user-defined word is described in the clause or statement in which it appears.
System-names
A system-name is a character string that has a specific meaning to the system. There are three types of system-names: v Computer-name v Language-name v Implementor-name There are three types of implementor-names: v v v Environment-name External-class-name Assignment-name
Chapter 3. Character-strings
11
The meaning of each system-name is described with the format in which it appears. Computer-name can be written in DBCS characters, but the other system-names cannot.
Function-names
A function-name specifies the mechanism provided to determine the value of an intrinsic function. The same word, in a different context, can appear in a program as a user-defined word or a system-name. For a list of function-names and their definitions, see Table of functions (Table 56 on page 487).
Reserved words
A reserved word is a character-string with a predefined meaning in a COBOL source unit. Reserved words are listed in Appendix E, Reserved words, on page 579. There are six types of reserved words: v Keywords v Optional words v v v v Figurative constants Special character words Special object identifiers Special registers
Keywords Keywords are reserved words that are required within a given clause, entry, or statement. Within each format, such words appear in uppercase on the main path. Optional words Optional words are reserved words that can be included in the format of a clause, entry, or statement in order to improve readability. They have no effect on the execution of the program. Figurative constants See Figurative constants on page 13. Special character words There are two types of special character words, which are recognized as special characters only when represented in single-byte characters: v Arithmetic operators: + - / * ** See Arithmetic expressions on page 253. v Relational operators: < > = <= >= See Conditional expressions on page 259. Special object identifiers COBOL provides two special object identifiers, SELF and SUPER, used in a method procedure division: SELF A special object identifier that you can use in the procedure division of a method. SELF refers to the object instance used to invoke the currently executing method. You can specify SELF only in places that are explicitly listed in the syntax diagrams.
12
SUPER A special object identifier that you can use in the procedure division of a method only as the object identifier in an INVOKE statement. When used in this way, SUPER refers to the object instance used to invoke the currently executing method. The resolution of the method to be invoked ignores any methods declared in the class definition of the currently executing method and methods defined in any class derived from that class. Thus, the method invoked is inherited from an ancestor class.
Figurative constants
Figurative constants are reserved words that name and refer to specific constant values. The reserved words for figurative constants and their meanings are: ZERO, ZEROS, ZEROES Represents the numeric value zero (0) or one or more occurrences of the character zero, depending on context. When the figurative constant ZERO, ZEROS, or ZEROES is used in a context that requires an alphanumeric character, an alphanumeric character zero is used. When the context requires a national character zero, a national character zero is used (value NX0030). When the context cannot be determined, an alphanumeric character zero is used. SPACE, SPACES Represents one or more blanks or spaces. SPACE is treated as an alphanumeric literal when used in a context that requires an alphanumeric character, as a DBCS literal when used in a context that requires a DBCS character, and as a national literal when used in a context that requires a national character. The EBCDIC DBCS space character has the value X4040, and the national space character has the value NX0020. HIGH-VALUE, HIGH-VALUES Represents one or more occurrences of the character that has the highest ordinal position in the collating sequence used. | | | | | | | | | | | | | HIGH-VALUE is treated as an alphanumeric literal in a context that requires an alphanumeric character. For alphanumeric data with the EBCDIC collating sequence, the value is XFF. For other alphanumeric data, the value depends on the collating sequence in effect. HIGH-VALUE is treated as a national literal when used in a context that requires a national literal. The value is national character NXFFFF. When the context cannot be determined, an alphanumeric context is assumed and the value XFF is used. Usage note:You should not use HIGH-VALUE (or a value assigned from HIGH-VALUE) in a way that results in conversion between one data representation and another. XFF does not represent a valid EBCDIC character, and NXFFFF does not represent a valid national character. Conversion of either the alphanumeric or the national HIGH-VALUE
Chapter 3. Character-strings
13
| | |
representation to another representation results in a substitution character. For example, conversion of XFF to UTF-16 would give a substitution character, not NXFFFF. LOW-VALUE, LOW-VALUES Represents one or more occurrences of the character that has the lowest ordinal position in the collating sequence used.
| | | | | | | |
LOW-VALUE is treated as an alphanumeric literal in a context that requires an alphanumeric character. For alphanumeric data with the EBCDIC collating sequence, the value is X00. For other alphanumeric data, the value depends on the collating sequence in effect. LOW-VALUE is treated as a national literal when used in a context that requires a national literal. The value is national character NX0000. When the context cannot be determined, an alphanumeric context is assumed and the value X00 is used. QUOTE, QUOTES Represents one or more occurrences of: v The quotation mark character (), if the QUOTE compiler option is in effect v The apostrophe character (), if the APOST compiler option is in effect QUOTE or QUOTES represents an alphanumeric character when used in a context that requires an alphanumeric character, and represents a national character when used in a context that requires a national character. The national character value of quotation mark is NX0022. The national character value of apostrophe is NX0027. QUOTE and QUOTES cannot be used in place of a quotation mark or an apostrophe to enclose an alphanumeric literal. ALL literal literal can be an alphanumeric literal, a DBCS literal, a national literal, or a figurative constant other than the ALL literal. When literal is not a figurative constant, ALL literal represents one or more occurrences of the string of characters that compose the literal. When literal is a figurative constant, the word ALL has no meaning and is used only for readability. The figurative constant ALL literal must not be used with the CALL, INSPECT, INVOKE, STOP, or STRING statements. symbolic-character Represents one or more of the characters specified as a value of the symbolic-character in the SYMBOLIC CHARACTERS clause of the SPECIAL-NAMES paragraph. symbolic-character always represents an alphanumeric character; it can be used in a context that requires a national character only when implicit conversion of alphanumeric to national characters is defined. (It can be used, for example, in a MOVE statement where the receiving item is of class national because implicit conversion is defined when the sending item is alphanumeric and the receiving item is national.) NULL, NULLS Represents a value used to indicate that data items defined with USAGE POINTER, USAGE PROCEDURE-POINTER, USAGE FUNCTION-
| | | |
14
POINTER, USAGE OBJECT REFERENCE, or the ADDRESS OF special register do not contain a valid address. NULL can be used only where explicitly allowed in the syntax formats. NULL has the value zero. The singular and plural forms of NULL, ZERO, SPACE, HIGH-VALUE, LOW-VALUE, and QUOTE can be used interchangeably. For example, if DATA-NAME-1 is a five-character data item, each of the following statements moves five spaces to DATA-NAME-1:
MOVE SPACE MOVE SPACES MOVE ALL SPACES TO DATA-NAME-1 TO DATA-NAME-1 TO DATA-NAME-1
When the rules of COBOL permit any one spelling of a figurative constant name, any alternative spelling of that figurative constant name can be specified. You can use a figurative constant wherever literal appears in a syntax diagram, except where explicitly prohibited. When a numeric literal appears in a syntax diagram, only the figurative constant ZERO (or ZEROS or ZEROES) can be used. Figurative constants are not allowed as function arguments except in an arithmetic expression, where the expression is an argument to a function. The length of a figurative constant depends on the context of its use. The following rules apply: v When a figurative constant is specified in a VALUE clause or associated with a data item (for example, when it is moved to or compared with another item), the length of the figurative constant character-string is equal to 1 or the number of character positions in the associated data item, whichever is greater. v When a figurative constant, other than the ALL literal, is not associated with another data item (for example, in a CALL, INVOKE, STOP, STRING, or UNSTRING statement), the length of the character-string is one character.
Special registers
Special registers are reserved words that name storage areas generated by the compiler. Their primary use is to store information produced through specific COBOL features. Each such storage area has a fixed name, and must not be defined within the program. For programs with the recursive attribute, for programs compiled with the THREAD option, and for methods, storage for the following special registers is allocated on a per-invocation basis: v ADDRESS-OF v RETURN-CODE v SORT-CONTROL v SORT-CORE-SIZE v SORT-FILE-SIZE v SORT-MESSAGE v SORT-MODE-SIZE v SORT-RETURN v TALLY v XML-CODE v XML-EVENT
Chapter 3. Character-strings
15
For the first call to a program, for the first call to a program following a cancel of that program, or for a method invocation, the compiler initializes the special register fields to their initial values. For the following four cases: v Programs that have the INITIAL clause specified v Programs that have the RECURSIVE clause specified v Programs compiled with the THREAD option v Methods the following special registers are reset to their initial value on each program or method entry: v RETURN-CODE v SORT-CONTROL v SORT-CORE-SIZE v SORT-FILE-SIZE v SORT-MESSAGE v SORT-MODE-SIZE v SORT-RETURN v TALLY v XML-CODE v XML-EVENT Further, in the above four cases, values set in ADDRESS OF special registers persist only for the span of the particular program or method invocation. In all other cases, the special registers will not be reset; they will be unchanged from the value contained on the previous CALL or INVOKE. Unless otherwise explicitly restricted, a special register can be used wherever a data-name or identifier that has the same definition as the implicit definition of the special register (which is specified later in this section) can be used. You can specify an alphanumeric special register in a function wherever an alphanumeric argument to a function is allowed, unless specifically prohibited. If qualification is allowed, special registers can be qualified as necessary to provide uniqueness. (For more information, see Qualification on page 57.)
ADDRESS OF
The ADDRESS OF special register references the address of a data item in the linkage section, the local-storage section, or the working-storage section. For 01 and 77 level items in the linkage section, the ADDRESS OF special register can be either a sending item or a receiving item. For all other operands, the ADDRESS OF special register can be only a sending item. The ADDRESS OF special register is implicitly defined as USAGE POINTER. A function-identifier is not allowed as the operand of the ADDRESS OF special register.
16
DEBUG-ITEM
The DEBUG-ITEM special register provides information for a debugging declarative procedure about the conditions that cause debugging section execution. DEBUG-ITEM has the following implicit description:
01 DEBUG-ITEM. 02 DEBUG-LINE 02 FILLER 02 DEBUG-NAME 02 FILLER 02 DEBUG-SUB-1 02 FILLER 02 DEBUG-SUB-2 02 FILLER 02 DEBUG-SUB-3 02 FILLER 02 DEBUG-CONTENTS PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE IS IS IS IS IS IS IS IS IS IS IS X(6). X VALUE SPACE. X(30). X VALUE SPACE. S9999 SIGN IS LEADING SEPARATE CHARACTER. X VALUE SPACE. S9999 SIGN IS LEADING SEPARATE CHARACTER. X VALUE SPACE. S9999 SIGN IS LEADING SEPARATE CHARACTER. X VALUE SPACE. X(n).
Before each debugging section is executed, DEBUG-ITEM is filled with spaces. The contents of the DEBUG-ITEM subfields are updated according to the rules for the MOVE statement, with one exception: DEBUG-CONTENTS is updated as if the move were an alphanumeric-to-alphanumeric elementary move without conversion of data from one form of internal representation to another. After updating, the contents of the DEBUG-ITEM subfields are: DEBUG-LINE The source-statement sequence number (or the compiler-generated sequence number, depending on the compiler option chosen) that caused execution of the debugging section. DEBUG-NAME The first 30 characters of the name that caused execution of the debugging section. Any qualifiers are separated by the word OF. DEBUG-SUB-1, DEBUG-SUB-2, DEBUG-SUB-3 If the DEBUG-NAME is subscripted or indexed, the occurrence number of each level is entered in the respective DEBUG-SUB-n. If the item is not subscripted or indexed, these fields remain as spaces. You must not reference the DEBUG-ITEM special register if your program uses more than three levels of subscripting or indexing. DEBUG-CONTENTS Data is moved into DEBUG-CONTENTS, as shown in the following table.
Table 2. DEBUG-ITEM subfield contents Cause of debugging section execution procedure-name-1 ALTER reference GO TO procedure-name-n Statement referred to in DEBUG-LINE ALTER statement GO TO statement Contents of DEBUG-NAME procedure-name-1 procedure-name-n Contents of DEBUG-CONTENTS procedure-name-n in TO PROCEED TO phrase Spaces SORT INPUT SORT OUTPUT MERGE OUTPUT (as applicable) PERFORM LOOP
procedure-name-n in SORT or SORT or MERGE statement procedure-name-n MERGE input/output procedure PERFORM statement transfer of control This PERFORM statement procedure-name-n
Chapter 3. Character-strings
17
Table 2. DEBUG-ITEM subfield contents (continued) Cause of debugging section execution procedure-name-n in a USE procedure Implicit transfer from previous sequential procedure First execution of first nondeclarative procedure Statement referred to in DEBUG-LINE Statement causing USE procedure execution Previous statement executed in previous sequential procedure1 Line number of first nondeclarative procedure-name Contents of DEBUG-NAME procedure-name-n procedure-name-n Contents of DEBUG-CONTENTS USE PROCEDURE FALL THROUGH
START PROGRAM
1. If this procedure is preceded by a section header, and control is passed through the section header, the statement number refers to the section header.
JNIENVPTR
The JNIENVPTR special register references the Java Native Interface (JNI) environment pointer. The JNI environment pointer is used in calling Java callable services. JNIENVPTR is implicitly defined as USAGE POINTER. It cannot be specified as a receiving data item. For information about using JNIENVPTR and JNI callable services, see the Enterprise COBOL Programming Guide.
LENGTH OF
The LENGTH OF special register contains the number of bytes used by a data item. LENGTH OF creates an implicit special register whose content is equal to the current byte length of the data item referenced by the identifier. | | For data items described with usage DISPLAY-1 (DBCS data items) and data items described with usage NATIONAL, each character occupies 2 bytes of storage. LENGTH OF can be used in the procedure division anywhere a numeric data item that has the same definition as the implied definition of the LENGTH OF special register can be used. The LENGTH OF special register has the implicit definition:
USAGE IS BINARY PICTURE 9(9).
If the data item referenced by the identifier contains the GLOBAL clause, the LENGTH OF special register is a global data item. The LENGTH OF special register can appear within either the starting character position or the length expressions of a reference-modification specification. However, the LENGTH OF special register cannot be applied to any operand that is reference-modified. The LENGTH OF operand cannot be a function, but the LENGTH OF special register is allowed in a function where an integer argument is allowed.
18
If the LENGTH OF special register is used as the argument to the LENGTH function, the result is always 4, independent of the argument specified for LENGTH OF. If the ADDRESS OF special register is used as the argument to the LENGTH special register, the result is always 4, independent of the argument specified for ADDRESS OF. LENGTH OF cannot be either of the following: v A receiving data item v A subscript When the LENGTH OF special register is used as a parameter on a CALL statement, it must be passed BY CONTENT or BY VALUE. When a table element is specified, the LENGTH OF special register contains the length in bytes of one occurrence. When referring to a table element, the element name need not be subscripted. A value is returned for any identifier whose length can be determined, even if the area referenced by the identifier is currently not available to the program. A separate LENGTH OF special register exists for each identifier referenced with the LENGTH OF phrase. For example:
MOVE LENGTH OF A TO B DISPLAY LENGTH OF A, A ADD LENGTH OF A TO B CALL PROGX USING BY REFERENCE A BY CONTENT LENGTH OF A
The intrinsic function LENGTH can also be used to obtain the length of a data item. For data items of usage NATIONAL, the length returned by the LENGTH function is the number of national character positions, rather than bytes; thus the LENGTH OF special register and the LENGTH intrinsic function have different results for data items of usage NATIONAL. For all other data items, the result is the same.
LINAGE-COUNTER
A separate LINAGE-COUNTER special register is generated for each FD entry that contains a LINAGE clause. When more than one is generated, you must qualify each reference to a LINAGE-COUNTER with its related file-name. The implicit description of the LINAGE-COUNTER special register is one of the following: v If the LINAGE clause specifies a data-name, LINAGE-COUNTER has the same PICTURE and USAGE as that data-name. v If the LINAGE clause specifies an integer, LINAGE-COUNTER is a binary item with the same number of digits as that integer. For more information, see LINAGE clause on page 173. The value in LINAGE-COUNTER at any given time is the line number at which the device is positioned within the current page. LINAGE-COUNTER can be referred to in procedure division statements; it must not be modified by them.
Chapter 3. Character-strings
19
LINAGE-COUNTER is initialized to 1 when an OPEN statement for its associated file is executed. LINAGE-COUNTER is automatically modified by any WRITE statement for this file. (See WRITE statement on page 455.) If the file description entry for a sequential file contains the LINAGE clause and the EXTERNAL clause, the LINAGE-COUNTER data item is an external data item. If the file description entry for a sequential file contains the LINAGE clause and the GLOBAL clause, the LINAGE-COUNTER data item is a global data item. You can specify the LINAGE-COUNTER special register wherever an integer argument to a function is allowed.
RETURN-CODE
The RETURN-CODE special register can be used to pass a return code to the calling program or operating system when the current COBOL program ends. When a COBOL program ends: v If control returns to the operating system, the value of the RETURN-CODE special register is passed to the operating system as a user return code. The supported user return code values are determined by the operating system, and might not include the full range of RETURN-CODE special register values. v If control returns to a calling program, the value of the RETURN-CODE special register is passed to the calling program. If the calling program is a COBOL program, the RETURN-CODE special register in the calling program is set to the value of the RETURN-CODE special register in the called program. The RETURN-CODE special register has the implicit definition:
01 RETURN-CODE GLOBAL PICTURE S9(4) USAGE BINARY VALUE ZERO.
When used in nested programs, this special register is implicitly defined with the GLOBAL clause in the outermost program. The following are examples of how to set the RETURN-CODE special register: v COMPUTE RETURN-CODE = 8. v MOVE 8 to RETURN-CODE. The RETURN-CODE special register does not return a value from an invoked method or from a program that uses CALL ... RETURNING. For more information, see INVOKE statement on page 362 or CALL statement on page 310. You can specify the RETURN-CODE special register in a function wherever an integer argument is allowed. The RETURN-CODE special register will not contain return code information from a service call for a Language Environment(R) callable service. For more information, see the Enterprise COBOL Programming Guide and the Language Environment Programming Guide.
20
When used in nested programs, these special registers are implicitly defined with the global attribute in the outermost program. These special registers represent EBCDIC shift-out and shift-in control characters, which are unprintable characters. You can specify the SHIFT-OUT and SHIFT-IN special registers in a function wherever an alphanumeric argument is allowed. These special registers cannot be receiving items. SHIFT-OUT and SHIFT-IN cannot be used in place of the keyboard control characters when you are defining DBCS user-defined words or specifying EBCDIC DBCS literals. Following is an example of how SHIFT-OUT and SHIFT-IN might be used:
DATA DIVISION. WORKING-STORAGE. 01 DBCSGRP. 05 SO PIC X. 05 DBCSITEM PIC G(3) USAGE DISPLAY-1. 05 SI PIC X. ... PROCEDURE DIVISION. MOVE SHIFT-OUT TO SO MOVE G<D1D2D3> TO DBCSITEM MOVE SHIFT-IN TO SI DISPLAY DBCSGRP
SORT-CONTROL
The SORT-CONTROL special register is the name of an alphanumeric data item that is implicitly defined as:
01 SORT-CONTROL GLOBAL PICTURE X(8) USAGE DISPLAY VALUE IGZSRTCD.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. This register contains the ddname of the data set that holds the control statements used to improve the performance of a sorting or merging operation. You can provide a DD statement for the data set identified by the SORT-CONTROL special register. Enterprise COBOL will attempt to open the data set at execution time. Any error will be diagnosed with an informational message. You can specify the SORT-CONTROL special register in a function wherever an alphanumeric argument is allowed. The SORT-CONTROL special register is not necessary for a successful sorting or merging operation. The sort control file takes precedence over the SORT special registers.
Chapter 3. Character-strings
21
SORT-CORE-SIZE
The SORT-CORE-SIZE special register is the name of a binary data item that you can use to specify the number of bytes of storage available to the sort utility. It has the implicit definition:
01 SORT-CORE-SIZE GLOBAL PICTURE S9(8) USAGE BINARY VALUE ZERO.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. SORT-CORE-SIZE can be used in place of the MAINSIZE or RESINV control statements in the sort control file: v The MAINSIZE= option control statement keyword is equivalent to SORT-CORE-SIZE with a positive value. v The RESINV= option control statement keyword is equivalent to SORT-CORE-SIZE with a negative value. v The MAINSIZE=MAX option control statement keyword is equivalent to SORT-CORE-SIZE with a value of +999999 or +99999999. You can specify the SORT-CORE-SIZE special register in a function wherever an integer argument is allowed.
SORT-FILE-SIZE
The SORT-FILE-SIZE special register is the name of a binary data item that you can use to specify the estimated number of records in the sort input file, file-name-1. It has the implicit definition:
01 SORT-FILE-SIZE GLOBAL PICTURE S9(8) USAGE BINARY VALUE ZERO.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. SORT-FILE-SIZE is equivalent to the FILSZ=Ennn control statement in the sort control file. You can specify the SORT-FILE-SIZE special register in a function wherever an integer argument is allowed.
SORT-MESSAGE
The SORT-MESSAGE special register is the name of an alphanumeric data item that is available to both sort and merge programs. The SORT-MESSAGE special register has the implicit definition:
01 SORT-MESSAGE GLOBAL PICTURE X(8) USAGE DISPLAY VALUE SYSOUT.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. You can use the SORT-MESSAGE special register to specify the ddname of a data set that the sort utility should use in place of the SYSOUT data set. The ddname specified in SORT-MESSAGE is equivalent to the name specified on the MSGDDN= control statement in the sort control file.
22
You can specify the SORT-MESSAGE special register in a function wherever an alphanumeric argument is allowed.
SORT-MODE-SIZE
The SORT-MODE-SIZE special register is the name of a binary data item that you can use to specify the length of variable-length records that occur most frequently. It has the implicit definition:
01 SORT-MODE-SIZE GLOBAL PICTURE S9(5) USAGE BINARY VALUE ZERO.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. SORT-MODE-SIZE is equivalent to the SMS= control statement in the sort control file. You can specify the SORT-MODE-SIZE special register in a function wherever an integer argument is allowed.
SORT-RETURN
The SORT-RETURN special register is the name of a binary data item and is available to both sort and merge programs. The SORT-RETURN special register has the implicit definition:
01 SORT-RETURN GLOBAL PICTURE S9(4) USAGE BINARY VALUE ZERO.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. It contains a return code of 0 (successful) or 16 (unsuccessful) at the completion of a sort or merge operation. If the sort or merge is unsuccessful and there is no reference to this special register anywhere in the program, a message is displayed on the terminal. You can set the SORT-RETURN special register to 16 in an error declarative or input/output procedure to terminate a sort or merge operation before all records are processed. The operation is terminated on the next input or output function for the sort or merge operation. You can specify the SORT-RETURN special register in a function wherever an integer argument is allowed.
TALLY
The TALLY special register is the name of a binary data item that has the following definition:
01 TALLY GLOBAL PICTURE 9(5) USAGE BINARY VALUE ZERO.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. You can refer to or modify the contents of TALLY.
Chapter 3. Character-strings
23
You can specify the TALLY special register in a function wherever an integer argument is allowed.
WHEN-COMPILED
The WHEN-COMPILED special register contains the date at the start of the compilation. WHEN-COMPILED is an alphanumeric data item that has the implicit definition:
01 WHEN-COMPILED GLOBAL PICTURE X(16) USAGE DISPLAY.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. The WHEN-COMPILED special register has the format:
MM/DD/YYhh.mm.ss (MONTH/DAY/YEARhour.minute.second)
For example, if compilation began at 2:04 PM on 27 April 2003, WHEN-COMPILED would contain the value 04/27/0314.04.00. WHEN-COMPILED can be used only as the sending field in a MOVE statement. WHEN-COMPILED special register data cannot be reference-modified. The compilation date and time can also be accessed with the intrinsic function WHEN-COMPILED (see WHEN-COMPILED on page 519). That function supports four-digit year values and provides additional information.
XML-CODE
The XML-CODE special register is used for the following purposes: v To communicate status between the XML parser and the processing procedure that was identified in an XML PARSE statement v To indicate either that an XML GENERATE statement executed successfully or that an exception occurred during XML generation The XML parser sets XML-CODE prior to transferring control to the processing procedure for each event and at parser termination. You can reset XML-CODE prior to returning control from the processing procedure to the XML parser. The XML-CODE special register has the implicit definition:
01 XML-CODE PICTURE S9(9) USAGE BINARY VALUE 0.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. When the XML parser encounters an XML event, it sets XML-CODE and then passes control to the processing procedure. For all events except an EXCEPTION event, XML-CODE contains zero when the processing procedure receives control. For an EXCEPTION event, the parser sets XML-CODE to an exception code that indicates the nature of the exception. XML PARSE exception codes are detailed in the Enterprise COBOL Programming Guide. You can set XML-CODE before returning to the parser, as follows:
24
v To -1, after a normal event, to indicate that the parser is to terminate without causing an EXCEPTION event. v To 0, after an EXCEPTION event for which continuation is allowed, to indicate that the parser is to continue processing. The parser will attempt to continue processing the XML document, but results are undefined. If you set XML-CODE to any other value before returning to the parser, results are undefined. When the parser returns control to the XML PARSE statement, XML-CODE contains the most recent value set either by the parser or by the processing procedure. At termination of an XML GENERATE statement, XML-CODE contains either zero, indicating successful completion of XML generation, or a nonzero error code, indicating that an exception occurred during XML generation. XML GENERATE exception codes are detailed in the Enterprise COBOL Programming Guide.
XML-EVENT
The XML-EVENT special register is used to communicate event information from the XML parser to the processing procedure that was identified in the XML PARSE statement. Prior to passing control to the processing procedure, the XML parser sets the XML-EVENT special register to the name of the XML event, as described in Contents of XML-EVENT and XML-TEXT or XML-NTEXT special registers (Table 3). XML-EVENT has the implicit definition:
01 XML-EVENT USAGE DISPLAY PICTURE X(30) VALUE SPACE.
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. XML-EVENT cannot be used as a receiving data item.
Table 3. Contents of XML-EVENT and XML-TEXT or XML-NTEXT special registers XML event (content of XML-EVENT) ATTRIBUTE-CHARACTER ATTRIBUTE-CHARACTERS ATTRIBUTE-NAME ATTRIBUTE-NATIONAL-CHARACTER Content of XML-TEXT or XML-NTEXT The single character corresponding with the predefined entity reference in the attribute value The value within quotes or apostrophes. This can be a substring of the attribute value if the value includes an entity reference. The attribute name; the string to the left of = Regardless of the type of the XML document specified by identifier-1 in the XML PARSE statement, XML-TEXT is empty and XML-NTEXT contains the single national character corresponding with the (numeric) character reference. The text of the comment between the opening character sequence <!-- and the closing character sequence --> The single character corresponding with the predefined entity reference in the element content The element content between start and end tags. This can be a substring of the element content if the content contains an entity reference or another element.
Chapter 3. Character-strings
25
Table 3. Contents of XML-EVENT and XML-TEXT or XML-NTEXT special registers (continued) XML event (content of XML-EVENT) CONTENT-NATIONAL-CHARACTER Content of XML-TEXT or XML-NTEXT Regardless of the type of the XML document specified by identifier-1 in the XML PARSE statement, XML-TEXT is empty and XML-NTEXT contains the single national character corresponding with the (numeric) character reference.1 The entire document type declaration including the opening and closing character sequences, <!DOCTYPE and > The value, between quotes or apostrophes, of the encoding declaration in the XML declaration Always contains the string ]]> Null, zero-length The name of the end element tag or empty element tag The part of the document successfully scanned, up to and including the point at which the exception was detected.2 Special register XML-CODE contains the unique error code identifying the exception. The rest of the processing instruction, not including the closing sequence, ?>, but including trailing, and not leading, white space characters The processing instruction target name, which occurs immediately after the processing instruction opening sequence, <? The value, between quotes or apostrophes, of the stand-alone declaration in the XML declaration Always contains the string <![CDATA[ The entire document The name of the start element tag or empty element tag, also known as the element type The entity reference name, not including the & and ; delimiters The entity reference name, not including the & and ; delimiters The value, between quotes or apostrophes, of the version declaration in the XML declaration. This is currently always 1.0.
PROCESSING-INSTRUCTION-DATA
1. National characters with scalar values greater than 65,535 (NXFFFF) are represented using two encoding units (a surrogate pair). Programmers are responsible for ensuring that operations on the content of XML-NTEXT do not split the pair of encoding units that together form a graphic character, thereby forming invalid data. 2. Exceptions for encoding conflicts are signaled before parsing begins. For these exceptions, XML-TEXT is either zero length or contains just the encoding declaration value from the document. See the Enterprise COBOL Programming Guide for information about XML exception codes.
XML-NTEXT
The XML-NTEXT special register is defined during XML parsing to contain document fragments that are represented in usage NATIONAL. | | | XML-NTEXT is an elementary data item of category national of the length of the contained XML document fragment. The length of XML-NTEXT can vary from 0 through 67,108,863 national character positions. The maximum byte length is 134,217,726. There is no equivalent COBOL data description entry.
26
When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. The parser sets XML-NTEXT to the document fragment associated with an event before transferring control to the processing procedure, in these cases: v When the operand of the XML PARSE statement is a data item of category national v For the ATTRIBUTE-NATIONAL-CHARACTER event v For the CONTENT-NATIONAL-CHARACTER event When XML-NTEXT is set, the XML-TEXT special register has a length of zero. At any given time, only one of the two special registers XML-NTEXT and XML-TEXT has a nonzero length. Use the LENGTH function to determine the number of national characters that XML-NTEXT contains. Use the LENGTH OF special register to determine the number of bytes, rather than the number of national characters, that XML-NTEXT contains. XML-NTEXT cannot be used as a receiving item.
XML-TEXT
| | | | The XML-TEXT special register is defined during XML parsing to contain document fragments that are represented in usage DISPLAY. XML-TEXT is an elementary data item of category alphanumeric of the length of the contained XML document fragment. The length of XML-TEXT can vary from 0 through 134,217,727 bytes. There is no equivalent COBOL data description entry. When used in nested programs, this special register is implicitly defined with the global attribute in the outermost program. The parser sets XML-TEXT to the document fragment associated with an event before transferring control to the processing procedure when the operand of the XML PARSE statement is an alphanumeric data item, except for the ATTRIBUTE-NATIONAL-CHARACTER event and the CONTENT-NATIONALCHARACTER event. When XML-TEXT is set, the XML-NTEXT special register has a length of zero. At any given time, only one of the two special registers XML-NTEXT and XML-TEXT has a nonzero length. Use the LENGTH function or the LENGTH OF special register for XML-TEXT to determine the number of bytes that XML-TEXT contains. XML-TEXT cannot be used as a receiving item.
Chapter 3. Character-strings
27
Literals
A literal is a character-string whose value is specified either by the characters of which it is composed or by the use of a figurative constant. (See Figurative constants on page 13.) For descriptions of the different types of literals, see: v Alphanumeric literals v DBCS literals on page 32 v National literals on page 33 v Numeric literals on page 31
Alphanumeric literals
Enterprise COBOL provides several formats of alphanumeric literals: v Format 1: Basic alphanumeric literals v Format 2: Alphanumeric literals with DBCS characters on page 29 v Format 3: Hexadecimal notation for alphanumeric literals on page 30 v Format 4: Null-terminated alphanumeric literals on page 30
The enclosing quotation marks or apostrophes are excluded from the literal when the program is compiled. An embedded quotation mark or apostrophe must be represented by a pair of quotation marks () or a pair of apostrophes (), respectively, when it is the character used as the opening delimiter. For example:
THIS ISNT WRONG THIS ISNT WRONG
The delimiter character used as the opening delimiter for a literal must be used as the closing delimiter for that literal. For example:
THIS IS RIGHT THIS IS RIGHT THIS IS WRONG
You can use apostrophes or quotation marks as the literal delimiters independent of the APOST/QUOTE compiler option. Any punctuation characters included within an alphanumeric literal are part of the value of the literal. The maximum length of an alphanumeric literal is 160 bytes. The minimum length is 1 byte.
28
Alphanumeric literals are in the alphanumeric data class and category. (Data classes and categories are described in Classes and categories of data on page 156.)
or
The opening and closing delimiter. The closing delimiter must match the opening delimiter.
mixed-SBCS-and-DBCS-characters Any mix of single-byte and DBCS characters. Shift-out and shift-in control characters are part of the literal and must be paired. They must contain zero or an even number of intervening bytes. Nested shift codes are not allowed in the DBCS portion of the literal. The syntax rules for single-byte characters in the literal follow the rules for basic alphanumeric literals. The syntax rules for DBCS characters in the literal follow the rules for DBCS literals. The move and comparison rules for alphanumeric literals with DBCS characters are the same as those for any alphanumeric literal. The length of an alphanumeric literal with DBCS characters is its byte length, including the shift control characters. The maximum length is limited by the available space on one line in Area B. An alphanumeric literal with DBCS characters cannot be continued. An alphanumeric literal with DBCS characters is of the alphanumeric category. Alphanumeric literals with DBCS characters cannot be used: v As a literal in the following: ALPHABET clause ASSIGN clause CALL statement program-ID CANCEL statement CLASS clause CURRENCY SIGN clause END PROGRAM marker ENTRY statement PADDING CHARACTER clause PROGRAM-ID paragraph RERUN clause
Chapter 3. Character-strings
29
v v v v
STOP statement As the external class-name for an object-oriented class As the basis-name in a BASIS statement As the text-name in a COPY statement As the library-name in a COPY statement
Enterprise COBOL statements process alphanumeric literals with DBCS characters without sensitivity to the shift codes and character codes. The use of statements that operate on a byte-to-byte basis (for example, STRING and UNSTRING) can result in strings that are not valid mixtures of single-byte EBCDIC and DBCS characters. See the Enterprise COBOL Programming Guide for more information about using alphanumeric literals and data items with DBCS characters in statements that operate on a byte-by-byte basis.
X or X The opening delimiter for the hexadecimal notation of an alphanumeric literal. or The closing delimiter for the hexadecimal notation of an alphanumeric literal. If a quotation mark is used in the opening delimiter, it must be used as the closing delimiter. Similarly, if an apostrophe is used in the opening delimiter, it must be used as the closing delimiter.
Hexadecimal digits are characters in the range 0 to 9, a to f, and A to F, inclusive. Two hexadecimal digits represent one character in a single-byte character set (EBCDIC or ASCII). Four hexadecimal digits represent one character in a DBCS character set. A string of EBCDIC DBCS characters represented in hexadecimal notation must be preceded by the hexadecimal representation of a shift-out control character (X0E) and followed by the hexadecimal representation of a shift-in control character (X0F). An even number of hexadecimal digits must be specified. The maximum length of a hexadecimal literal is 320 hexadecimal digits. The continuation rules are the same as those for any alphanumeric literal. The opening delimiter (X or X) cannot be split across lines. The DBCS compiler option has no effect on the processing of hexadecimal notation of alphanumeric literals. An alphanumeric literal in hexadecimal notation has data class and category alphanumeric. Hexadecimal notation for alphanumeric literals can be used anywhere alphanumeric literals can be used. See also Hexadecimal notation for national literals on page 35.
30
Z or Z The opening delimiter for a null-terminated alphanumeric literal. Both characters of the opening delimiter (Z or Z) must be on the same source line. or The closing delimiter for a null-terminated alphanumeric literal. If a quotation mark is used in the opening delimiter, it must be used as the closing delimiter. Similarly, if an apostrophe is used in the opening delimiter, it must be used as the closing delimiter. mixed-characters Can be any of the following: v Solely single-byte characters v Mixed single-byte and DBCS characters v Solely DBCS characters However, you cannot specify the single-byte character with the value X00. X00 is the null character automatically appended to the end of the literal. The content of the literal is otherwise subject to the same rules and restrictions as an alphanumeric literal with DBCS characters (format 2). The length of the string of characters in the literal content can be 0 to 159 bytes. The actual length of the literal includes the terminating null character, and is a maximum of 160 bytes. A null-terminated alphanumeric literal has data class and category alphanumeric. It can be used anywhere an alphanumeric literal can be used except that null-terminated literals are not supported in ALL literal figurative constants. The LENGTH intrinsic function, when applied to a null-terminated literal, returns the number of bytes in the literal prior to but not including the terminating null. (The LENGTH special register does not support literal operands.)
Numeric literals
A numeric literal is a character-string whose characters are selected from the digits 0 through 9, a sign character (+ or -), and the decimal point. If the literal contains no decimal point, it is an integer. (In this documentation, the word integer appearing in a format represents a numeric literal of nonzero value that contains no sign and no decimal point, except when other rules are included with the description of the format.) The following rules apply: v If the ARITH(COMPAT) compiler option is in effect, one through 18 digits are allowed. If the ARITH(EXTEND) compiler option is in effect, one through 31 digits are allowed. v Only one sign character is allowed. If included, it must be the leftmost character of the literal. If the literal is unsigned, it is a positive value. v Only one decimal point is allowed. If a decimal point is included, it is treated as an assumed decimal point (that is, as not taking up a character position in the literal). The decimal point can appear anywhere within the literal except as the rightmost character.
Chapter 3. Character-strings
31
The value of a numeric literal is the algebraic quantity expressed by the characters in the literal. The size of a numeric literal is equal to the number of digits specified by the user. Numeric literals can be fixed-point or floating-point numbers.
Format
mantissa E + + exponent
v The sign is optional before the mantissa and the exponent; if you omit the sign, the compiler assumes a positive number. v The mantissa can contain between one and 16 digits. A decimal point must be included in the mantissa. v The exponent is represented by an E followed by an optional sign and one or two digits. v The magnitude of a floating-point literal value must fall between 0.54E-78 and 0.72E+76. For values outside of this range, an E-level diagnostic is produced and the value is replaced by either 0 or 0.72E+76, respectively. Numeric literals are in the numeric data class and category. (Data classes and categories are described under Classes and categories of data on page 156.)
DBCS literals
The formats and rules for DBCS literals are listed below.
Format for DBCS literals G<DBCS-characters> G<DBCS-characters> N<DBCS-characters> N<DBCS-characters>
G, G, N, or N Opening delimiters. N and N identify a DBCS literal when the NSYMBOL(DBCS) compiler option is in effect. They identify a national literal when the NSYMBOL(NATIONAL) compiler option is in effect, and the rules specified in National literals on page 33 apply. The opening delimiter must be followed immediately by a shift-out control character. For literals with opening delimiter N or N, when embedded quotes or apostrophes are specified as part of DBCS characters in a DBCS literal, a single embedded DBCS quote or apostrophe is represented by two DBCS quotes or apostrophes. If a single embedded DBCS quote or apostrophe is found, an E-level compiler message will be issued and a second embedded DBCS quote or apostrophe will be assumed.
32
< > or
Represents the shift-out control character (X0E) Represents the shift-in control character (X0F) The closing delimiter. If a quotation mark is used in the opening delimiter, it must be used as the closing delimiter. Similarly, if an apostrophe is used in the opening delimiter, it must be used as the closing delimiter. The closing delimiter must appear immediately after the shift-in control character.
DBCS-characters DBCS-characters can be one or more characters in the range of X00 through XFF for either byte. Any value will be accepted in the content of the literal, although whether it is a valid value at run time depends on the CCSID in effect for the CODEPAGE compiler option. Maximum length 28 characters Continuation rules Cannot be continued across lines
| |
| |
| | | | | |
National literals
Enterprise COBOL provides the following national literal formats: v Basic national literals v Hexadecimal notation for national literals on page 35
Chapter 3. Character-strings
33
When the NSYMBOL(NATIONAL) compiler option is in effect, the opening delimiter N or N identifies a national literal. A national literal is of the class and category national. When the NSYMBOL(DBCS) compiler option is in effect, the opening delimiter N or N identifies a DBCS literal, and the rules specified in DBCS literals on page 32 apply. N or N Opening delimiters. The opening delimiter must be coded as single-byte characters. It cannot be split across lines. or The closing delimiter. The closing delimiter must be coded as a single-byte character. If a quotation mark is used in the opening delimiter, it must be used as the closing delimiter. Similarly, if an apostrophe is used in the opening delimiter, it must be used as the closing delimiter. To include the quotation mark or apostrophe used in the opening delimiter in the content of the literal, specify a pair of quotation marks or apostrophes, respectively. Examples:
NThis literals content includes an apostrophe NThis literal includes , which is not used in the opening delimiter NThis literal includes , which is used in the opening delimiter
character-data The source text representation of the content of the national literal. character-data can include any combination of EBCDIC single-byte characters and double-byte characters encoded in the Coded Character Set ID (CCSID) specified by the CODEPAGE compiler option. DBCS characters in the content of the literal must be delimited by shift-out and shift-in control characters. Maximum length The maximum length of a national literal is 80 character positions, excluding the opening and closing delimiters. If the source content of the literal contains one or more DBCS characters, the maximum length is limited by the available space in Area B of a single source line. The literal must contain at least one character. Each single-byte character in the literal counts as one character position and each DBCS character in the literal counts as one character position. Shift-in and shift-out delimiters for DBCS characters are not counted. Continuation rules When the content of the literal includes DBCS characters, the literal cannot be continued. When the content of the literal does not include DBCS characters, normal continuation rules apply. | | | The source text representation of character-data is automatically converted to UTF-16 for use at run time (for example, when the literal is moved to or compared with a data item of category national).
34
The hexadecimal notation format of national literals is not affected by the NSYMBOL compiler option. NX or NX Opening delimiters. The opening delimiter must be represented in single-byte characters. It must not be split across lines. or The closing delimiter. The closing delimiter must be represented as a single-byte character. If a quotation mark is used in the opening delimiter, it must be used as the closing delimiter. Similarly, if an apostrophe is used in the opening delimiter, it must be used as the closing delimiter. hexadecimal-digits Hexadecimal digits in the range 0 to 9, a - f, and A to F, inclusive. Each group of four hexadecimal digits represents a single national character and must represent a valid code point in UTF-16. The number of hexadecimal digits must be a multiple of four. Maximum length The length of a national literal in hexadecimal notation must be from four to 320 hexadecimal digits, excluding the opening and closing delimiters. The length must be a multiple of four. Continuation rules Normal continuation rules apply. The content of a national literal in hexadecimal notation is stored as national characters. The resulting content has the same meaning as a basic national literal that specifies the same national characters. A national literal in hexadecimal notation has data class and category national and can be used anywhere that a basic national literal can be used.
Chapter 3. Character-strings
35
v As the method-name in a METHOD-ID paragraph, an END METHOD marker, and an INVOKE statement v As an argument passed BY CONTENT in the CALL statement v As an argument passed BY VALUE in an INVOKE or CALL statement v In the DISPLAY and EVALUATE statements v As a sending item in the following procedural statements: INITIALIZE INSPECT MOVE STRING UNSTRING v In the argument list to the following intrinsic functions: DISPLAY-OF, LENGTH, LOWER-CASE, MAX, MIN, ORD-MAX, ORD-MIN, REVERSE, and UPPER-CASE v In the compiler-directing statements COPY, REPLACE, and TITLE A national literal can be used only as specified in the detailed rules in this document.
PICTURE character-strings
A PICTURE character-string is composed of the currency symbol and certain combinations of characters in the COBOL character set. PICTURE character-strings are delimited only by the separator space, separator comma, separator semicolon, or separator period. A chart of PICTURE clause symbols appears in PICTURE clause symbol meanings (Table 12 on page 196).
Comments
A comment is a character-string that can contain any combination of characters from the character set of the computer. It has no effect on the execution of the program. There are two forms of comments: Comment entry (identification division) This form is described under Optional paragraphs on page 101. Comment line (any division) This form is described under Comment lines on page 48. Character-strings that form comments can contain DBCS characters or a combination of DBCS and single-byte EBCDIC characters. Multiple comment lines that contain DBCS strings are allowed. The embedding of DBCS characters in a comment line must be done on a line-by-line basis. Words containing those characters cannot be continued to a following line. No syntax checking for valid strings is provided in comment lines.
36
Chapter 4. Separators
A separator is a character or a string of two or more contiguous characters that delimits character-strings. The separators are shown in the following table.
Table 4. Separators Separator b
1 1 1 1
Meaning Space Comma Period Semicolon Left parenthesis Right parenthesis Colon
,b .b ;b ( ) :
b b
Quotation mark Apostrophe Opening delimiter for a hexadecimal format alphanumeric literal Opening delimiter for a hexadecimal format alphanumeric literal Opening delimiter for a null-terminated alphanumeric literal Opening delimiter for a null-terminated alphanumeric literal Opening delimiter for a national literal2 Opening delimiter for a national literal2 Opening delimiter for a hexadecimal format national literal Opening delimiter for a hexadecimal format national literal Opening delimiter for a DBCS literal Opening delimiter for a DBCS literal Pseudo-text delimiter
X X Z Z N N NX NX G G ==
1. b represents a blank. 2. N and N are the opening delimiter for a DBCS literal when the NSYMBOL(DBCS) compiler option is in effect.
37
Period {.b}, Comma {,b}, Semicolon {;b} A separator comma is composed of a comma followed by a space. A separator period is composed of a period followed by a space. A separator semicolon is composed of a semicolon followed by a space. The separator period must be used only to indicate the end of a sentence, or as shown in formats. The separator comma and separator semicolon can be used anywhere the separator space is used. v In the identification division, each paragraph must end with a separator period. v In the environment division, the SOURCE-COMPUTER, OBJECT-COMPUTER, SPECIAL-NAMES, and I-O-CONTROL paragraphs must each end with a separator period. In the FILE-CONTROL paragraph, each file-control entry must end with a separator period. v In the data division, file (FD), sort/merge file (SD), and data description entries must each end with a separator period. v In the procedure division, separator commas or separator semicolons can separate statements within a sentence and operands within a statement. Each sentence and each procedure must end with a separator period. Parentheses { ( } ... { ) } Except in pseudo-text, parentheses can appear only in balanced pairs of left and right parentheses. They delimit subscripts, a list of function arguments, reference-modifiers, arithmetic expressions, or conditions. Colon { : } The colon is a separator and is required when shown in general formats. Quotation marks {} ... {} An opening quotation mark must be immediately preceded by a space or a left parenthesis. A closing quotation mark must be immediately followed by a separator space, comma, semicolon, period, right parenthesis, or pseudo-text delimiter. Quotation marks must appear as balanced pairs. They delimit alphanumeric literals, except when the literal is continued (see Continuation lines on page 46). Apostrophes {} ... {} An opening apostrophe must be immediately preceded by a space or a left parenthesis. A closing apostrophe must be immediately followed by a separator space, comma, semicolon, period, right parenthesis, or pseudo-text delimiter. Apostrophes must appear as balanced pairs. They delimit alphanumeric literals, except when the literal is continued (see Continuation lines on page 46). Null-terminated literal delimiters {Z} ... {}, {Z} ... {} The opening delimiter must be immediately preceded by a space or a left parenthesis. The closing delimiter must be immediately followed by a separator space, comma, semicolon, period, right parenthesis, or pseudo-text delimiter. DBCS literal delimiters {G} ... {}, {G} ... {}, {N} ... {}, {N} ... {} The opening delimiter must be immediately preceded by a space or a left parenthesis. The closing delimiter must be immediately followed by a separator space, comma, semicolon, period, right parenthesis, or pseudo-text delimiter. N and N are DBCS literal delimiters when the NSYMBOL(DBCS) compiler option is in effect.
38
National literal delimiters {N} ... {}, {N} ... {}, {NX} ... {}, {NX} ... {} The opening delimiter must be immediately preceded by a space or a left parenthesis. The closing delimiter must be immediately followed by a separator space, comma, semicolon, period, right parenthesis, or pseudo-text delimiter. N and N are DBCS literal delimiters when the NSYMBOL(DBCS) compiler option is in effect. Pseudo-text delimiters {b==} ... {==b} An opening pseudo-text delimiter must be immediately preceded by a space. A closing pseudo-text delimiter must be immediately followed by a separator space, comma, semicolon, or period. Pseudo-text delimiters must appear as balanced pairs. They delimit pseudo-text. (See COPY statement on page 529.) Any punctuation character included in a PICTURE character-string, a comment character-string, or an alphanumeric literal is not considered a punctuation character, but is part of the character-string or literal.
Chapter 4. Separators
39
40
Entries
An entry is a series of clauses that ends with a separator period. Entries are constructed in the identification, environment, and data divisions.
41
Clauses
A clause is an ordered set of consecutive COBOL character-strings that specifies an attribute of an entry. Clauses are constructed in the identification, environment, and data divisions.
Sentences
A sentence is a sequence of one or more statements that ends with a separator period. Sentences are constructed in the procedure division.
Statements
A statement specifies an action to be taken by the program. Statements are constructed in the procedure division. For descriptions of the different types of statements, see: v Imperative statements on page 282 v Conditional statements on page 283 v Chapter 7, Scope of names, on page 51 v Chapter 23, Compiler-directing statements, on page 525
Phrases
Each clause or statement in a program can be subdivided into smaller units called phrases.
42
The sections below provide details about these areas: v Sequence number area v Indicator area v Area A on page 44 v Area B on page 45 v Area A or Area B on page 48
Indicator area
Use the indicator area to specify: v The continuation of words or alphanumeric literals from the previous line onto the current line v The treatment of text as documentation v Debugging lines See Continuation lines on page 46, Comment lines on page 48, and Debugging lines on page 49. The indicator area can be used for source listing formatting. A slash (/) placed in the indicator column will cause the compiler to start a new page for the source listing, and the corresponding source record to be treated as a comment. The effect
Copyright IBM Corp. 1991, 2006
43
can be dependent on the LINECOUNT compiler option. For information about the LINECOUNT compiler option, see the Enterprise COBOL Programming Guide.
Area A
The following items must begin in Area A: v Division headers v Section headers v Paragraph headers or paragraph names v Level indicators or level-numbers (01 and 77) v DECLARATIVES and END DECLARATIVES v End program, end class, and end method markers
Division headers
A division header is a combination of words, followed by a separator period, that indicates the beginning of a division: v IDENTIFICATION DIVISION. v ENVIRONMENT DIVISION. v DATA DIVISION. v PROCEDURE DIVISION. A division header (except when a USING phrase is specified with a procedure division header) must be immediately followed by a separator period. Except for the USING phrase, no text can appear on the same line.
Section headers
In the environment and procedure divisions, a section header indicates the beginning of a series of paragraphs. For example:
INPUT-OUTPUT SECTION.
In the data division, a section header indicates the beginning of an entry; for example:
FILE SECTION. LINKAGE SECTION. LOCAL-STORAGE SECTION. WORKING-STORAGE SECTION.
In the procedure division, a paragraph consists of a paragraph-name followed by one or more sentences.
44
For programs program-name must be identical to the program-name of the corresponding PROGRAM-ID paragraph. Every COBOL program, except an outermost program that contains no nested programs and is not followed by another batch program, must end with an END PROGRAM marker. For classes class-name must be identical to the class-name in the corresponding CLASS-ID paragraph. For methods method-name must be identical to the method-name in the corresponding METHOD-ID paragraph. For object paragraphs There is no name in an object paragraph header or in its end marker. The syntax is simply END OBJECT. For factory paragraphs There is no name in a factory paragraph header or in its end marker. The syntax is simply END FACTORY.
Area B
The following items must begin in Area B: v Entries, sentences, statements, and clauses v Continuation lines
45
Continuation lines
Any sentence, entry, clause, or phrase that requires more than one line can be continued in Area B of the next line that is neither a comment line nor a blank line. The line being continued is a continued line; the succeeding lines are continuation lines. Area A of a continuation line must be blank. If there is no hyphen (-) in the indicator area (column 7) of a line, the last character of the preceding line is assumed to be followed by a space. The following cannot be continued: v DBCS user-defined words v DBCS literals v Alphanumeric literals containing DBCS characters v National literals containing DBCS characters However, alphanumeric literals and national literals in hexadecimal notation can be continued regardless of the kind of characters expressed in hexadecimal notation. All characters that make up an opening literal delimiter must be on the same line. For example, Z, G, N, NX, or X. Both characters that make up the pseudo-text delimiter separator == must be on the same line. If there is a hyphen in the indicator area of a line, the first nonblank character of the continuation line immediately follows the last nonblank character of the continued line without an intervening space.
46
a quotation mark. The continuation of the literal begins with the character immediately following the quotation mark. v If an alphanumeric or national literal that is to be continued on the next line has as its last character a quotation mark in column 72, the continuation line must start with two consecutive quotation marks. This will result in a single quotation mark as part of the value of the literal. If the last character on the continued line of an alphanumeric or national literal is a single quotation mark in Area B, the continuation line can start with a single quotation mark. This will result in two consecutive literals instead of one continued literal. The rules are the same when an apostrophe is used instead of a quotation mark in delimiters. If you want to continue a literal such that the continued lines and the continuation lines are part of one literal: v Code a hyphen in the indicator area of each continuation line. v Code the literal value using all columns of each continued line, up to and including column 72. (Do not terminate the continued lines with a single quotation mark followed by a space.) v Code a quotation mark before the first character of the literal on each continuation line. v Terminate the last continuation line with a single quotation mark followed by a space. In the following examples, the number and size of literals created are indicated below the example:
|...+.*..1....+....2....+....3....+....4....+....5....+....6....+....7.. 000001 AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEE GGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJJJJKKKKKKKKKK LLLLLLLLLLMMMMMMMMMM
v Literal 000001 is interpreted as one alphanumeric literal that is 120 bytes long. Each character between the starting quotation mark and up to and including column 72 of continued lines is counted as part of the literal.
|...+.*..1....+....2....+....3....+....4....+....5....+....6....+....7.. 000003 NAAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEE GGGGGGGGGG
v Literal 000003 is interpreted as one national literal that is 60 national character positions in length (120 bytes). Each character between the starting quotation mark and the ending quotation mark on the continued line is counted as part of the literal. Although single-byte characters are entered, the value of the literals is stored as national characters.
|...+.*..1....+....2....+....3....+....4....+....5....+....6....+....7.. 000005 AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEE GGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJJJJKKKKKKKKKK LLLLLLLLLLMMMMMMMMMM
v Literal 000005 is interpreted as one literal that is 140 bytes long. The blanks at the end of each continued line are counted as part of the literal because the continued lines do not end with a quotation mark.
|...+.*..1....+....2....+....3....+....4....+....5....+....6....+....7.. 000010 AAAAAAAAAABBBBBBBBBBCCCCCCCCCCDDDDDDDDDDEEEEEEEEEE GGGGGGGGGGHHHHHHHHHHIIIIIIIIIIJJJJJJJJJJKKKKKKKKKK LLLLLLLLLLMMMMMMMMMM
v Literal 000010 is interpreted as three separate literals that have lengths of 50, 50, and 20, respectively. The quotation mark with the following space terminates the
Chapter 6. Reference format
47
continued line. Only the characters within the quotation marks are counted as part of the literals. Literal 000010 is not valid as a VALUE clause literal for non-level-88 data items. To code a continued literal where the length of each continued part of the literal is less than the length of Area B, adjust the starting column such that the last character of the continued part is in column 72.
Area A or Area B
The following items can begin in either Area A or Area B: v Level-numbers v Comment lines v Compiler-directing statements v Debugging lines v Pseudo-text
Level-numbers
A level-number that can begin in Area A or B is a one- or two-digit integer with a value of 02 through 49, 66, or 88. A level-number that must begin in Area A is a one- or two-digit integer with a value of 01 or 77. A level-number must be followed by a space or a separator period. For more information, see Level-numbers on page 178.
Comment lines
A comment line is any line with an asterisk (*) or slash (/) in the indicator area (column 7) of the line. The comment can be written anywhere in Area A and Area B of that line, and can consist of any combination of characters from the character set of the computer. Comment lines can be placed anywhere in a program, method, or class definition. Comment lines placed before the identification division header must follow any control cards (for example, PROCESS or CBL). Important: Comments intermixed with control cards could nullify some of the control cards and cause them to be diagnosed as errors. Multiple comment lines are allowed. Each must begin with either an asterisk (*) or a slash (/) in the indicator area. An asterisk (*) comment line is printed on the next available line in the output listing. The effect can be dependent on the LINECOUNT compiler option. For information about the LINECOUNT compiler option, see the Enterprise COBOL Programming Guide. A slash (/) comment line is printed on the first line of the next page, and the current page of the output listing is ejected. The compiler treats a comment line as documentation, and does not check it syntactically.
Compiler-directing statements
Most compiler-directing statements, including COPY and REPLACE, can start in either Area A or Area B.
48
BASIS, CBL (PROCESS), *CBL (*CONTROL), DELETE, EJECT, INSERT, SKIP1, SKIP2, SKIP3, and TITLE statements can also start in Area A or Area B.
Debugging lines
A debugging line is any line with a D (or d) in the indicator area of the line. Debugging lines can be written in the environment division (after the OBJECT-COMPUTER paragraph), the data division, and the procedure division. If a debugging line contains only spaces in Area A and Area B, it is considered a blank line. See WITH DEBUGGING MODE in SOURCE-COMPUTER paragraph on page 106.
Pseudo-text
The character-strings and separators that comprise pseudo-text can start in either Area A or Area B. If, however, there is a hyphen in the indicator area (column 7) of a line that follows the opening pseudo-text delimiter, Area A of the line must be blank, and the rules for continuation lines apply to the formation of text words. See Continuation lines on page 46 for details.
Blank lines
A blank line contains nothing but spaces in column 7 through column 72. A blank line can appear anywhere in a program.
49
50
Types of names
In addition to identifying a resource, a name can have global or local attributes. Some names are always global, some names are always local, and some names are either local or global depending on specifications in the program in which the names are declared. For programs A global name can be used to refer to the resource with which it is associated both: v From within the program in which the global name is declared v From within any other program that is contained in the program that declares the global name Use the GLOBAL clause in the data description entry to indicate that a name is global. For more information about using the GLOBAL clause, see GLOBAL clause on page 167. A local name can be used only to refer to the resource with which it is associated from within the program in which the local name is declared. By default, if a data-name, a file-name, a record-name, or a condition-name declaration in a data description entry does not include the GLOBAL clause, the name is local. For methods All names declared in methods are implicitly local. For classes Names declared in a class definition are global to all the methods contained in that class definition. For object paragraphs Names declared in the data division of an object paragraph are global to the methods contained in that object paragraph. For factory paragraphs Names declared in the data division of a factory paragraph are global to the methods contained in that factory paragraph. Restriction: Specific rules sometimes prohibit specifying the GLOBAL clause for certain data description, file description, or record description entries.
51
The following list indicates the names that you can use and whether the name can be local or global: data-name data-name assigns a name to a data item. A data-name is global if the GLOBAL clause is specified either in the data description entry that declares the data-name or in another entry to which that data description entry is subordinate. file-name file-name assigns a name to a file connector. A file-name is global if the GLOBAL clause is specified in the file description entry for that file-name. record-name record-name assigns a name to a record. A record-name is global if the GLOBAL clause is specified in the record description that declares the record-name, or in the case of record description entries in the file section, if the GLOBAL clause is specified in the file description entry for the file name associated with the record description entry. condition-name condition-name associates a value with a conditional variable. A condition-name that is declared in a data description entry is global if that entry is subordinate to another entry that specifies the GLOBAL clause. A condition-name that is declared within the configuration section is always global. program-name program-name assigns a name to an external or internal (nested) program. For more information, see Conventions for program-names on page 82. A program-name is neither local nor global. For more information, see Conventions for program-names on page 82. method-name method-name assigns a name to a method. method-name must be specified as the content of an alphanumeric or national literal. section-name section-name assigns a name to a section in the procedure division. A section-name is always local. paragraph-name paragraph-name assigns a name to a paragraph in the procedure division. A paragraph-name is always local. basis-name basis-name specifies the name of source text that is be included by the compiler into the source unit. For details, see BASIS statement on page 525. library-name library-name specifies the COBOL library that the compiler uses for including COPY text. For details, see COPY statement on page 529.
52
text-name text-name specifies the name of COPY text to be included by the compiler into the source unit. For details, see COPY statement on page 529. alphabet-name alphabet-name assigns a name to a specific character set or collating sequence, or both, in the SPECIAL-NAMES paragraph of the environment division. An alphabet-name is always global. class-name (of data) class-name assigns a name to the proposition in the SPECIAL-NAMES paragraph of the environment division for which a truth value can be defined. A class-name is always global. class-name (object-oriented) class-name assigns a name to an object-oriented class or subclass. mnemonic-name mnemonic-name assigns a user-defined word to an implementer-name. A mnemonic-name is always global. symbolic-character symbolic-character specifies a user-defined figurative constant. A symbolic-character is always global. index-name index-name assigns a name to an index associated with a specific table. If a data item that possesses the global attribute includes a table accessed with an index, that index also possesses the global attribute. In addition, the scope of that index-name is identical to the scope of the data-name that includes the table.
53
item does not have the external attribute, it is part of the internal data of the program or method in which it is described. Two programs or methods in a run unit can reference the same file connector in the following circumstances: v An external file connector can be referenced from any program or method that describes that file connector. v If a program is contained within another program, both programs can refer to a global file connector by referring to an associated global file-name either in the containing program or in any program that directly or indirectly contains the containing program. Two programs or methods in a run unit can reference common data in the following circumstances: v The data content of an external data record can be referenced from any program or method provided that program or method has described that data record. v If a program is contained within another program, both programs can refer to data that possesses the global attribute either in the program or in any program that directly or indirectly contains the containing program. The data records described as subordinate to a file description entry that does not contain the EXTERNAL clause or to a sort-merge file description entry, as well as any data items described subordinate to the data description entries for such records, are always internal to the program or method that describes the file-name. If the EXTERNAL clause is included in the file description entry, the data records and the data items attain the external attribute.
Resolution of names
The rules for resolution of names depend on whether the names are specified in a program or in a class definition.
54
The resource in the containing program if the name is declared in the program that contains program A This rule is applied to further containing programs until a valid resource is found.
55
56
Chapter 8. Referencing data names, copy libraries, and procedure division names
References can be made to external and internal resources. References to data and procedures can be either explicit or implicit. The following sections: v Uniqueness of reference v Data attribute specification on page 69 contain the rules for qualification and for explicit and implicit data references.
Uniqueness of reference
Every user-defined name in a COBOL program is assigned by the user to name a resource for solving a data processing problem. To use a resource, a statement in a COBOL program must contain a reference that uniquely identifies that resource. To ensure uniqueness of reference, a user-defined name can be qualified. A subscript is required for unique reference to a table element, except as specified in Subscripting on page 63. A data-name or function-name, any subscripts, and the specified reference-modifier uniquely reference a data item defined by reference modification. When the same name has been assigned in separate programs to two or more occurrences of a resource of a given type, and when qualification by itself does not allow the references in one of those programs to differentiate between the identically named resources, then certain conventions that limit the scope of names apply. The conventions ensure that the resource identified is that described in the program containing the reference. For more information about resolving program-names, see Resolution of names on page 54. Unless otherwise specified by the rules for a statement, any subscripts and reference modification are evaluated only once as the first step in executing that statement.
Qualification
A name that exists within a hierarchy of names can be made unique by specifying one or more higher-level names in the hierarchy. The higher-level names are called qualifiers, and the process by which such names are made unique is called qualification. Qualification is specified by placing one or more phrases after a user-specified name, with each phrase made up of the word IN or OF followed by a qualifier. (IN and OF are logically equivalent.) In any hierarchy, the data-name associated with the highest level must be unique if it is referenced, and cannot be qualified. You must specify enough qualification to make the name unique; however, it is not always necessary to specify all the levels of the hierarchy. For example, if there is more than one file whose records contain the field EMPLOYEE-NO, but only one of the files has a record named MASTER-RECORD:
Copyright IBM Corp. 1991, 2006
57
v EMPLOYEE-NO OF MASTER-RECORD sufficiently qualifies EMPLOYEE-NO. v EMPLOYEE-NO OF MASTER-RECORD OF MASTER-FILE is valid but unnecessary.
Qualification rules
The rules for qualifying a name are: v A name can be qualified even though it does not need qualification except in a REDEFINES clause, in which case it must not be qualified. v Each qualifier must be of a higher level than the name it qualifies and must be within the same hierarchy. v If there is more than one combination of qualifiers that ensures uniqueness, any of those combinations can be used.
Identical names
When programs are directly or indirectly contained within other programs, each program can use identical user-defined words to name resources. A program references the resources that that program describes rather than the same-named resources described in another program, even if the names are different types of user-defined words. These same rules apply to classes and their contained methods.
If library-name-1 is not specified, SYSLIB is assumed as the library name. For rules on referencing COPY libraries, see COPY statement on page 529.
Format 2
section-name-1
58
Procedure division names that are explicitly referenced in a program must be unique within a section. A section-name is the highest and only qualifier available for a paragraph-name and must be unique if referenced. (Section-names are described under Procedures on page 251.) If explicitly referenced, a paragraph-name must not be duplicated within a section. When a paragraph-name is qualified by a section-name, the word SECTION must not appear. A paragraph-name need not be qualified when referred to within the section in which it appears. A paragraph-name or section-name that appears in a program cannot be referenced from any other program.
Format
data-name-1
data-name-1 Can be any data description entry. data-name-1 must be unique in a program.
Identifiers
When used in a syntax diagram in this information, the term identifier refers to a valid combination of a data-name or function-identifier with its qualifiers, subscripts, and reference-modifiers as required for uniqueness of reference. Rules for identifiers associated with a format can however specifically prohibit qualification, subscripting, or reference modification. The term data-name refers to a name that must not be qualified, subscripted, or reference modified unless specifically permitted by the rules for the format. v For a description of qualification, see Qualification on page 57. v For a description of subscripting, see Subscripting on page 63. v For a description of reference modification, see Reference modification on page 66.
Chapter 8. Referencing data names, copy libraries, and procedure division names
59
Format 1
subscript
( leftmost-character-position : length
data-name-1, data-name-2 Can be a record-name. file-name-1 Must be identified by an FD or SD entry in the data division. file-name-1 must be unique within this program.
Format 2
condition-name-1 data-name-1
IN OF
data-name-2
IN OF
file-name-1
Format 3
LINAGE-COUNTER IN OF file-name-2
60
condition-name-1 Can be referenced by statements and entries either in the program that contains the configuration section or in a program contained within that program. file-name-1 Must be identified by an FD or SD entry in the data division. Must be unique within this program. LINAGE-COUNTER Must be qualified each time it is referenced if more than one file description entry that contains a LINAGE clause has been specified in the source unit. file-name-2 Must be identified by the FD or SD entry in the data division. file-name-2 must be unique within this program. Duplication of data-names must not occur in those places where the data-names cannot be made unique by qualification. In the same program, the data-name specified as the subject of the entry whose level-number is 01 that includes the EXTERNAL clause must not be the same data-name specified for any other data description entry that includes the EXTERNAL clause. In the same data division, the data description entries for any two data items for which the same data-name is specified must not include the GLOBAL clause. Data division names that are explicitly referenced must either be uniquely defined or made unique through qualification. Unreferenced data items need not be uniquely defined. The highest level in a data hierarchy (a data item associated with a level indicator (FD or SD in the file section) or with level-number 01) must be uniquely named if referenced. Data items associated with level-numbers 02 through 49 are successively lower levels of the hierarchy.
Condition-name
Format 1 (data division item)
condition-name-1 IN OF data-name-1
IN OF
file-name-1 ( subscript )
Chapter 8. Referencing data names, copy libraries, and procedure division names
61
condition-name-1 IN OF mnemonic-name-1
condition-name-1 Can be referenced by statements and entries either in the program that contains the definition of condition-name-1, or in a program contained within that program. If explicitly referenced, a condition-name must be unique or be made unique through qualification or subscripting (or both) except when the scope of names by itself ensures uniqueness of reference. If qualification is used to make a condition-name unique, the associated conditional variable can be used as the first qualifier. If qualification is used, the hierarchy of names associated with the conditional variable itself must be used to make the condition-name unique. If references to a conditional variable require subscripting, reference to any of its condition-names also requires the same combination of subscripting. In this information, condition-name refers to a condition-name qualified or subscripted, as necessary. data-name-1 Can be a record-name. file-name-1 Must be identified by an FD or SD entry in the data division. file-name-1 must be unique within this program. mnemonic-name-1 For information about acceptable values for mnemonic-name-1, see SPECIAL-NAMES paragraph on page 108.
Index-name
An index-name identifies an index. An index can be regarded as a private special register that the compiler generates for working with a table. You name an index by specifying the INDEXED BY phrase in the OCCURS clause that defines a table. You can use an index-name in only the following language elements: v SET statements v PERFORM statements v SEARCH statements v Subscripts v Relation conditions An index-name is not the same as the name of an index data item, and an index-name cannot be used like a data-name.
62
Subscripting
Subscripting is a method of providing table references through the use of subscripts. A subscript is a positive integer whose value specifies the occurrence number of a table element.
Format
condition-name-1 data-name-1
IN OF
data-name-2
IN OF
file-name-1
condition-name-1 The conditional variable for condition-name-1 must contain an OCCURS clause or must be subordinate to a data description entry that contains an OCCURS clause. data-name-1 Must contain an OCCURS clause or must be subordinate to a data description entry that contains an OCCURS clause. data-name-2, file-name-1 Must name data items or records that contain data-name-1. integer-1 Can be signed. If signed, it must be positive. data-name-3 Must be a numeric elementary item representing an integer. data-name-3 can be qualified. data-name-3 cannot be a windowed date field.
Chapter 8. Referencing data names, copy libraries, and procedure division names
63
index-name-1 Corresponds to a data description entry in the hierarchy of the table being referenced that contains an INDEXED BY phrase that specifies that name. integer-2, integer-3 Cannot be signed. The subscripts, enclosed in parentheses, are written immediately following any qualification for the name of the table element. The number of subscripts in such a reference must equal the number of dimensions in the table whose element is being referenced. That is, there must be a subscript for each OCCURS clause in the hierarchy that contains the data-name including the data-name itself. When more than one subscript is required, they are written in the order of successively less inclusive dimensions of the data organization. If a multidimensional table is thought of as a series of nested tables and the most inclusive or outermost table in the nest is considered to be the major table with the innermost or least inclusive table being the minor table, the subscripts are written from left to right in the order major, intermediate, and minor. For example, if TABLE-THREE is defined as:
01 TABLE-THREE. 05 ELEMENT-ONE OCCURS 3 TIMES. 10 ELEMENT-TWO OCCURS 3 TIMES. 15 ELEMENT-THREE OCCURS 2 TIMES
PIC X(8).
Subscripted references can also be reference modified. See the third example under Reference modification examples on page 68. A reference to an item must not be subscripted unless the item is a table element or an item or condition-name associated with a table element. Each table element reference must be subscripted except when such reference appears: v In a USE FOR DEBUGGING statement v As the subject of a SEARCH statement v In a REDEFINES clause v In the KEY is phrase of an OCCURS clause The lowest permissible occurrence number represented by a subscript is 1. The highest permissible occurrence number in any particular case is the maximum number of occurrences of the item as specified in the OCCURS clause.
64
ELEMENT-THREE (SUB1 SUB2 SUB3) ELEMENT-THREE IN TABLE-THREE (SUB1 OF SUBSCRIPT-ITEM, SUB2 OF SUBSCRIPT-ITEM, SUB3 OF SUBSCRIPT-ITEM)
Relative subscripting
In relative subscripting, the name of a table element is followed by a subscript of the form data-name or index-name followed by the operator + or -, and a positive or unsigned integer literal. The operators + and - must be preceded and followed by a space. The value of the subscript used is the same as if the index-name or data-name had been set up or down by the value of the integer. The use of relative indexing does not cause the program to alter the value of the index.
Chapter 8. Referencing data names, copy libraries, and procedure division names
65
Reference modification
Reference modification defines a data item by specifying a leftmost character and optional length for the data item.
Format
data-name-1 FUNCTION function-name-1
( ( leftmost-character-position :
argument-1 ) length
| | |
data-name-1 Must reference a data item described explicitly or implicitly with usage DISPLAY, DISPLAY-1, or NATIONAL. A national group item is processed as an elementary data item of category national. data-name-1 can be qualified or subscripted. data-name-1 cannot be a windowed date field. function-name-1 Must reference an alphanumeric or national function. leftmost-character-position Must be an arithmetic expression. The evaluation of leftmost-characterposition must result in a positive nonzero integer that is less than or equal to the number of characters in the data item referenced by data-name-1. The evaluation of leftmost-character-position must not result in a windowed date field. length Must be an arithmetic expression. The evaluation of length must result in a positive nonzero integer. The evaluation of length must not result in a windowed date field. The sum of leftmost-character-position and length minus the value 1 must be less than or equal to the number of character positions in data-name-1. If length is omitted, the length used will be equal to the number of character positions in data-name-1 plus 1, minus leftmost-character-position. For usages DISPLAY-1 and NATIONAL, each character position occupies 2 bytes. Reference modification operates on whole character positions and not on the individual bytes of the characters in usages DISPLAY-1 and NATIONAL. For usage DISPLAY, reference modification operates as though each character were a single-byte character. Unless otherwise specified, reference modification is allowed anywhere an identifier or function-identifier that references a data item or function with the same usage as the reference-modified data item is permitted. Each character position referenced by data-name-1 or function-name-1 is assigned an ordinal number incrementing by one from the leftmost position to the rightmost position. The leftmost position is assigned the ordinal number one. If the data
66
description entry for data-name-1 contains a SIGN IS SEPARATE clause, the sign position is assigned an ordinal number within that data item. | | | | | | | | | | | If data-name-1 is described with usage DISPLAY and category numeric, numeric-edited, alphabetic, alphanumeric-edited, or external floating-point, data-name-1 is operated upon for purposes of reference modification as if it were redefined as a data item of category alphanumeric with the same size as the data item referenced by data-name-1. If data-name-1 is described with usage NATIONAL and category numeric, numeric-edited, national-edited, or external floating-point, data-name-1 is operated upon for purposes of reference modification as if it were redefined as a data item of category national with the same size as the data item referenced by data-name-1. If data-name-1 is a national group item, data-name-1 is processed as an elementary data item of category national. If data-name-1 is an expanded date field, then the result of reference modification is a nondate. Reference modification creates a unique data item that is a subset of data-name-1 or a subset of the value referenced by function-name-1 and its arguments, if any. This unique data item is considered an elementary data item without the JUSTIFIED clause. When a function is reference-modified, the unique data item has class, category, and usage national if the type of the function is national; otherwise, it has class and category alphanumeric and usage display. | | | | | | | | | | | | | | When data-name-1 is reference-modified, the unique data item has the same class, category, and usage as that defined for the data item referenced by data-name-1 except that: v If data-name-1 has category national-edited, the unique data item has category national. v If data-name-1 has usage NATIONAL and category numeric-edited, numeric, or external floating-point, the unique data item has category national. v If data-name-1 has usage DISPLAY, and category numeric-edited, alphanumeric-edited, numeric, or external floating-point, the unique data item has category alphanumeric. v If data-name-1 references an alphanumeric group item, the unique data item is considered to have usage DISPLAY and category alphanumeric. v If data-name-1 references a national group item, the unique data item has usage NATIONAL and category national. If length is not specified, the unique data item created extends from and includes the character position identified by leftmost-character-position up to and including the rightmost character position of the data item referenced by data-name-1.
Evaluation of operands
Reference modification for an operand is evaluated as follows: v If subscripting is specified for the operand, the reference modification is evaluated immediately after evaluation of the subscript.
Chapter 8. Referencing data names, copy libraries, and procedure division names
67
v If subscripting is not specified for the operand, the reference modification is evaluated at the time subscripting would be evaluated if subscripts had been specified.
The following statement transfers the last 15 characters of the data-item referenced by WHOLE-NAME to the data-item referenced by LAST-NAME.
77 WHOLE-NAME PIC X(25). 77 LAST-NAME PIC X(15). ... MOVE WHOLE-NAME(11:) TO LAST-NAME.
The following statement transfers the fourth and fifth characters of the third occurrence of TAB to the variable SUFFIX.
01 TABLE-1. 02 TAB OCCURS 10 TIMES PICTURE X(5). 77 SUFFIX PICTURE X(2). ... MOVE TAB OF TABLE-1 (3) (4:2) TO SUFFIX.
Function-identifier
A function-identifier is a sequence of character strings and separators that uniquely references the data item that results from the evaluation of a function.
Format
FUNCTION function-name-1
argument-1
reference-modifier
argument-1 Must be an identifier, literal (other than a figurative constant), or arithmetic expression. For more information, see Chapter 22, Intrinsic functions, on page 479. function-name-1 function-name-1 must be one of the intrinsic function names. reference-modifier Can be specified only for functions of the type alphanumeric or national.
68
| | | |
A function-identifier that makes reference to an alphanumeric or national function can be specified anywhere that a data item of category alphanumeric or category national, respectively, can be referenced and where references to functions are not specifically prohibited, except as follows: v As a receiving operand of any statement v Where a data item is required to have particular characteristics (such as class and category, size, sign, and permissible values) and the evaluation of the function according to its definition and the particular arguments specified would not have these characteristics A function-identifier that makes reference to an integer or numeric function can be used wherever an arithmetic expression can be used.
Chapter 8. Referencing data names, copy libraries, and procedure division names
69
70
71
v Following a STOP RUN statement or EXIT PROGRAM statement that transfers control outside the COBOL program v Following a GOBACK statement that transfers control outside the COBOL program v Following an EXIT METHOD statement that transfers control outside the COBOL method v The end program or end method marker When there is no next executable statement and control is not transferred outside the COBOL program, the program flow of control is undefined unless the program execution is in the nondeclarative procedures portion of a program under control of a CALL statement, in which case an implicit EXIT PROGRAM statement is executed. Similarly, if control reaches the end of the procedure division of a method and there is no next executable statement, an implicit EXIT METHOD statement is executed.
72
73
Date field
A date field can be any of the following: v A data item whose data description entry includes a DATE FORMAT clause v A value returned by one of the following intrinsic functions: DATE-OF-INTEGER DATE-TO-YYYYMMDD DATEVAL DAY-OF-INTEGER DAY-TO-YYYYDDD YEAR-TO-YYYY YEARWINDOW v The conceptual data items DATE, DATE YYYYMMDD, DAY, or DAY YYYYDDD of the ACCEPT statement v The result of certain arithmetic operations (for details, see Arithmetic with date fields on page 255) The term date field refers to both expanded date fields and windowed date fields.
Date format
Date format refers to the date pattern of a date field, specified either: v Explicitly, by the DATE FORMAT clause or DATEVAL intrinsic function argument-2 v Implicitly, by statements and intrinsic functions that return date fields (for details, see Date field above)
74
Nondate
A nondate can be any of the following: v A data item whose date description entry does not include the DATE FORMAT clause v A date field that has been converted using the UNDATE function v A literal v A reference-modified date field v The result of certain arithmetic operations that can include date field operands; for example, the difference between two compatible date fields
Century window
A century window is a 100-year interval within which any two-digit year is unique. There are several ways to specify a century window in a COBOL program: v For windowed date fields, it is specified by the YEARWINDOW compiler option. v For windowing intrinsic functions DATE-TO-YYYYMMDD, DAY-TO-YYYYDDD, and YEAR-TO-YYYY, it is specified by argument-2.
75
76
77
78
79
IS
RECURSIVE INITIAL
. PROGRAM
identification-division-content
identification-division-content
A sequence of separate COBOL programs can also be input to the compiler. The following is the format for the entries and statements that constitute a sequence of source programs (batch compile).
80
COBOL-source-program
END PROGRAM program-name An end program marker separates each program in the sequence of programs. program-name must be identical to a program-name declared in a preceding program-ID paragraph. program-name can be specified either as a user-defined word or in an alphanumeric literal. Either way, program-name must follow the rules for forming program-names. program-name cannot be a figurative constant. Any lowercase letters in the literal are folded to uppercase. An end program marker is optional for the last program in the sequence only if that program does not contain any nested source programs.
Nested programs
A COBOL program can contain other COBOL programs, which in turn can contain still other COBOL programs. These contained programs are called nested programs. Nested programs can be directly or indirectly contained in the containing program. Nested programs are not supported for programs compiled with the THREAD option. In the following code fragment, program Outer-program directly contains program Inner-1. Program Inner-1 directly contains program Inner-1a, and Outer-program indirectly contains Inner-1a:
Id division. Program-id. Outer-program. Procedure division. Call Inner-1. Stop run. Id division. Program-id. Inner-1 ... Call Inner-1a. Stop run. Id division. Program-id. Inner-1a. ... End Inner-1a. End Inner-1. End Outer-program.
The following figure describes a more complex nested program structure with directly and indirectly contained programs.
81
82
program and any programs directly or indirectly contained within that containing program, except that program possessing the COMMON attribute and any programs contained within it. v If the program-name is that of a program that is separately compiled, that program-name can be referenced by statements included in any other program in the run unit, except programs it directly or indirectly contains. The mechanism used to determine which program to call is as follows: v If one of two programs that have the same name as that specified in the CALL statement is directly contained within the program that includes the CALL statement, that program is called. v If one of two programs that have the same name as that specified in the CALL statement possesses the COMMON attribute and is directly contained within another program that directly or indirectly contains the program that includes the CALL statement, that common program is called unless the calling program is contained within that common program. v Otherwise, the separately compiled program is called. The following rules apply to referencing a program-name of a program that is contained within another program. For this discussion, Program-A contains Program-B and Program-C; Program-C contains Program-D and Program-F; and Program-D contains Program-E.
If Program-D does not possess the COMMON attribute, then Program-D can be referenced only by the program that directly contains Program-D, that is, Program-C.
83
If Program-D does possess the COMMON attribute, then Program-D can be referenced by Program-C (because Program-C contains Program-D) and by any programs contained in Program-C except for programs contained in Program-D. In other words, if Program-D possesses the COMMON attribute, Program-D can be referenced in Program-C and Program-F but not by statements in Program-E, Program-A, or Program-B.
84
85
COBOL instance data is equivalent to private nonstatic member data in a Java class. The state of an object also includes the state of the instance data introduced by inherited classes. Each instance object has its own copy of the instance data defined within its class definition and its own copy of the instance data defined in inherited classes. You can access COBOL object instance data only from within COBOL instance methods defined in the class definition that defines the data. You can initialize object instance data with VALUE clauses or you can write an instance method to perform custom initialization. Factory method, static method Procedural code that defines one of the operations supported for the common factory object of the class. COBOL factory methods are defined within the factory paragraph of a class definition. Factory methods are associated with a class, not with any individual instance object of the class. COBOL factory methods are equivalent to public static methods in Java. You execute COBOL factory methods from COBOL using an INVOKE statement that specifies the class-name as the first operand. You execute them from a Java program using a static method invocation expression. A factory method cannot operate directly on instance data of its class, even though the data is described in the same class definition; a factory method must invoke instance methods to act on instance data. COBOL factory methods are typically used to define customized methods that create object instances. For example, you can code a customized factory method that accepts initial values as parameters, creates an instance object using the NEW operand of the INVOKE statement, and then invokes a customized instance method passing those initial values as arguments for use in initializing the instance object. Factory data, static data Data associated with a class, rather than with an individual object instance. COBOL factory data is defined in the working-storage section of the data division within the factory paragraph of a class definition. COBOL factory data is equivalent to private static data in Java. There is a single copy of factory data for a class. Factory data is associated only with the class and is shared by all object instances of the class. It is not associated with any particular instance object. A factory data item might be used, for example, to keep a count of the number of instance objects that have been created. You can access COBOL factory data only within COBOL factory methods defined in the same class definition. Inheritance Inheritance is a mechanism whereby a class definition (the inheriting class) acquires the methods, data descriptions, and file descriptions written in another class definition (the inherited class). When two classes in an inheritance relationship are considered together, the inheriting class is the subclass (or derived class or child class); the inherited class is the superclass (or parent class). The inheriting class also indirectly acquires the methods, data descriptions, and file descriptions that the parent class inherited from its parent class.
86
A COBOL class must inherit from exactly one parent class, which can be implemented in COBOL or Java. Every COBOL class must inherit directly or indirectly from the java.lang.Object class. Instance variable An individual data item defined in the data division of an object paragraph. Java Native Interface (JNI) A facility of Java designed for interoperation with non-Java programs. Java Native Interface (JNI) environment pointer A pointer used to obtain the address of the JNI environment structure used for calling JNI services. The COBOL special register JNIENVPTR is provided for referencing the JNI environment pointer. Object reference A data item that contains information used to identify and reference an individual object. An object reference can refer to an object that is an instance of a Java or COBOL class. Subclass A class that inherits from another class; also called a derived class or child class of the inherited class. Superclass A class that is inherited by another class; also called a parent class of the inheriting class. With the exception of the COPY and REPLACE statements and the END CLASS marker, the statements, entries, paragraphs, and sections of a COBOL class definition are grouped into the following structure: v Identification division v Environment division (configuration section only) v Factory definition Identification division Data division Procedure division - One or more method definitions v Object definition Identification division Data division Procedure division - One or more method definitions The end of a COBOL class definition is indicated by the END CLASS marker.
87
Object-definition
Factory-definition:
IDENTIFICATION ID DIVISION. FACTORY. DATA DIVISION. factory-data-division-content END FACTORY. PROCEDURE DIVISION.
method-definition
Object-definition:
IDENTIFICATION ID DIVISION. OBJECT. DATA DIVISION. object-data-division-content END OBJECT. PROCEDURE DIVISION.
method-definition
END CLASS Specifies the end of a class definition. END FACTORY Specifies the end of a factory definition. END OBJECT Specifies the end of an object definition.
88
other-identification-division-content
METHOD-ID Identifies a method definition. See METHOD-ID paragraph on page 100 for details. method-procedure-division-header Indicates the start of the procedure division and identifies method parameters and the returning item, if any. See The procedure division header on page 247 for details. END METHOD Specifies the end of a method definition.
89
Methods defined in an object definition are instance methods. An instance method in a given class can access: v Data defined in the data division of the object paragraph of that class (instance data) v Data defined in the data division of that instance method (method data) An instance method cannot directly access instance data defined in a parent class, factory data defined in its own class, or method data defined in another method of its class. It must invoke a method to access such data. Methods defined in a factory definition are factory methods. A factory method in a given class can access: v Data defined in the data division of the factory paragraph of that class (factory data) v Data defined in the data division of that factory method (method data) A factory method cannot directly access factory data defined in a parent class, instance data defined in its own class, or method data defined in another method of its class. It must invoke a method to access such data. Methods can be invoked from COBOL programs and methods, and they can be invoked from Java programs. A method can execute an INVOKE statement that directly or indirectly invokes itself. Therefore, COBOL methods are implicitly recursive (unlike COBOL programs, which support recursion only if the RECURSIVE attribute is specified in the program-ID paragraph.)
90
91
92
93
IS
. PROGRAM
AUTHOR . comment-entry
INSTALLATION . comment-entry
DATE-WRITTEN . comment-entry
DATE-COMPILED.
comment-entry
SECURITY . comment-entry
94
INSTALLATION . comment-entry
DATE-WRITTEN . comment-entry
DATE-COMPILED.
comment-entry
SECURITY . comment-entry
95
method-name-1 .
AUTHOR . comment-entry
INSTALLATION . comment-entry
DATE-WRITTEN . comment-entry
DATE-COMPILED.
comment-entry
SECURITY . comment-entry
PROGRAM-ID paragraph
The PROGRAM-ID paragraph specifies the name by which the program is known and assigns selected program attributes to that program. It is required and must be the first paragraph in the identification division. program-name A user-defined word or alphanumeric literal, but not a figurative constant, that identifies your program. It must follow the following rules of formation, depending on the setting of the PGMNAME compiler option: PGMNAME(COMPAT) The name can be up to 30 characters in length. Only the hyphen, digits 0-9, and alphabetic characters are allowed in the name when it is specified as a user-defined word.
96
At least one character must be alphabetic. The hyphen cannot be used as the first or last character. If program-name is an alphanumeric literal, the rules for the name are the same except that the extension characters $, #, and @ can be included in the name of the outermost program. PGMNAME (LONGUPPER) If program-name is a user-defined word, it can be up to 30 characters in length. If program-name is an alphanumeric literal, the literal can be up to 160 characters in length. The literal cannot be a figurative constant. Only the hyphen, digit, and alphabetic characters are allowed in the name. At least one character must be alphabetic. The hyphen cannot be used as the first or last character. PGMNAME (LONGMIXED) program-name must be specified as a literal. It cannot be a figurative constant. The name can be up to 160 characters in length. The literal cannot be a figurative constant. program-name can consist of any character in the range X41 to XFE.
For information about the PGMNAME compiler option and how the compiler processes the names, see the Enterprise COBOL Programming Guide. RECURSIVE An optional clause that allows COBOL programs to be recursively reentered. You can specify the RECURSIVE clause only on the outermost program of a compilation unit. Recursive programs cannot contain nested subprograms. If the RECURSIVE clause is specified, program-name can be recursively reentered while a previous invocation is still active. If the RECURSIVE clause is not specified, an active program cannot be recursively reentered. The working-storage section of a recursive program defines storage that is statically allocated and initialized on the first entry to a program and is available in a last-used state to any of the recursive invocations. The local-storage section of a recursive program (as well as a nonrecursive program) defines storage that is automatically allocated, initialized, and deallocated on a per-invocation basis. Internal file connectors that correspond to an FD in the file section of a recursive program are statically allocated. The status of internal file connectors is part of the last-used state of a program that persists across invocations. The following language elements are not supported in a recursive program: v ALTER
Chapter 14. Identification division
97
v v v v
The RECURSIVE clause is required for programs compiled with the THREAD option. | | COMMON Specifies that the program named by program-name is contained (that is, nested) within another program and can be called from siblings of the common program and programs contained within them. The COMMON clause can be used only in nested programs. For more information about conventions for program names, see Conventions for program-names on page 82. INITIAL Specifies that when program-name is called, program-name and any programs contained (nested) within it are placed in their initial state. The initial attribute is not supported for programs compiled with the THREAD option. A program is in the initial state: v The first time the program is called in a run unit v Every time the program is called, if it possesses the initial attribute v The first time the program is called after the execution of a CANCEL statement that references the program or a CANCEL statement that references a program that directly or indirectly contains the program v The first time the program is called after the execution of a CALL statement that references a program that possesses the initial attribute and that directly or indirectly contains the program When a program is in the initial state, the following occur: v The programs internal data contained in the working-storage section is initialized. If a VALUE clause is used in the description of the data item, the data item is initialized to the defined value. If a VALUE clause is not associated with a data item, the initial value of the data item is undefined. v Files with internal file connectors associated with the program are not in the open mode. v The control mechanisms for all PERFORM statements contained in the program are set to their initial states. v An altered GO TO statement contained in the program is set to its initial state. For the rules governing nonunique program names, see Rules for program-names on page 82.
| |
CLASS-ID paragraph
The CLASS-ID paragraph specifies the name by which the class is known and assigns selected attributes to that class. It is required and must be the first paragraph in a class identification division.
98
class-name-1 A user-defined word that identifies the class. class-name-1 can optionally have an entry in the REPOSITORY paragraph of the configuration section of the class definition. INHERITS A clause that defines class-name-1 to be a subclass (or derived class) of class-name-2 (the parent class). class-name-1 cannot directly or indirectly inherit from class-name-1. class-name-2 The name of a class inherited by class-name-1. You must specify class-name-2 in the REPOSITORY paragraph of the configuration section of the class definition.
General rules
class-name-1 and class-name-2 must conform to the normal rules of formation for a COBOL user-defined word, using single-byte characters. See REPOSITORY paragraph on page 116 for details on specifying a class-name that is part of a Java package or for using non-COBOL naming conventions for class-names. You cannot include a class definition in a sequence of programs or other class definitions in a single compilation group. Each class must be specified as a separate source file; that is, a class definition cannot be included in a batch compile.
Inheritance
Every method available on instances of a class is also available on instances of any subclass directly or indirectly derived from that class. A subclass can introduce new methods that do not exist in the parent or ancestor class and can override a method from the parent or ancestor class. When a subclass overrides an existing method, it defines a new implementation for that method, which replaces the inherited implementation. The instance data of class-name-1 is the instance data declared in class-name-2 together with the data declared in the working-storage section of class-name-1. Note, however, that instance data is always private to the class that introduces it. The semantics of inheritance are as defined by Java. All classes must be derived directly or directly from the java.lang.Object class. Java supports single inheritance; that is, no class can inherit directly from more than one parent. Only one class-name can be specified in the INHERITS phrase of a class definition.
FACTORY paragraph
The factory IDENTIFICATION DIVISION introduces the factory definition, which is the portion of a class definition that defines the factory object of the class. A factory object is the single common object that is shared by all object instances of the class. The factory definition contains factory data and factory methods.
99
OBJECT paragraph
The object IDENTIFICATION DIVISION introduces the object definition, which is the portion of a class definition that defines the instance objects of the class. The object definition contains object data and object methods.
METHOD-ID paragraph
The METHOD-ID paragraph specifies the name by which a method is known and assigns selected attributes to that method. The METHOD-ID paragraph is required and must be the first paragraph in a method identification division. method-name-1 An alphanumeric literal or national literal that contains the name of the method. The name must conform to the rules of formation for a Java method name. Method names are used directly, without translation. The method name is processed in a case-sensitive manner.
Method signature
The signature of a method consists of the name of the method and the number and types of the formal parameters to the method as specified in the procedure division USING phrase.
100
An instance method must not override a factory method in a COBOL parent class, or a static method in a Java parent class. Method hiding (for factory methods): A factory method is said to hide any and all methods with the same signature in the superclasses of the method definition that would otherwise be accessible. A factory method must not hide an instance method.
Optional paragraphs
These optional paragraphs in the identification division can be omitted: AUTHOR Name of the author of the program. INSTALLATION Name of the company or location. DATE-WRITTEN Date the program was written. DATE-COMPILED Date the program was compiled. SECURITY Level of confidentiality of the program. The comment-entry in any of the optional paragraphs can be any combination of characters from the character set of the computer. The comment-entry is written in Area B on one or more lines. The paragraph name DATE-COMPILED and any comment-entry associated with it appear in the source code listing with the current date inserted. For example:
DATE-COMPILED. 04/27/03.
Comment-entries serve only as documentation; they do not affect the meaning of the program. A hyphen in the indicator area (column 7) is not permitted in comment-entries. You can include DBCS character strings as comment-entries in the identification division of your program. Multiple lines are allowed in a comment-entry that contains DBCS character strings. A DBCS character string must be preceded by a shift-out control character and followed by a shift-in control character. For example:
AUTHOR. <.A.U.T.H.O.R.-.N.A.M.E>, XYZ CORPORATION DATE-WRITTEN. <.D.A.T.E>
When a comment-entry that is contained on multiple lines uses DBCS characters, shift-out and shift-in characters must be paired on a line.
101
102
Chapter 16. Input-Output section . . . . . . FILE-CONTROL paragraph . . . . . . . . . SELECT clause . . . . . . . . . . . . . ASSIGN clause . . . . . . . . . . . . . Assignment name for environment variable . . Environment variable contents for a QSAM file Environment variable contents for a line-sequential file . . . . . . . . . . . Environment variable contents for a VSAM file RESERVE clause . . . . . . . . . . . . ORGANIZATION clause . . . . . . . . . File organization . . . . . . . . . . . Sequential organization . . . . . . . . Indexed organization . . . . . . . . . Relative organization . . . . . . . . . Line-sequential organization . . . . . . PADDING CHARACTER clause . . . . . . . RECORD DELIMITER clause . . . . . . . . ACCESS MODE clause . . . . . . . . . . File organization and access modes . . . . . Access modes . . . . . . . . . . . . Relationship between data organizations and access modes . . . . . . . . . . . . RECORD KEY clause . . . . . . . . . . . ALTERNATE RECORD KEY clause . . . . . . RELATIVE KEY clause . . . . . . . . . . PASSWORD clause . . . . . . . . . . . FILE STATUS clause . . . . . . . . . . . I-O-CONTROL paragraph . . . . . . . . . RERUN clause . . . . . . . . . . . . . SAME AREA clause . . . . . . . . . . . SAME RECORD AREA clause . . . . . . . . SAME SORT AREA clause . . . . . . . . . SAME SORT-MERGE AREA clause . . . . . . MULTIPLE FILE TAPE clause . . . . . . . . APPLY WRITE-ONLY clause . . . . . . . .
103
104
object-computer-paragraph
special-names-paragraph
repository-paragraph
The configuration section can: v Relate IBM-defined environment-names to user-defined mnemonic names v Specify the collating sequence v Specify a currency sign value, and the currency symbol used in the PICTURE clause to represent the currency sign value v Exchange the functions of the comma and the period in PICTURE clauses and numeric literals v Relate alphabet-names to character sets or collating sequences v Specify symbolic characters v Relate class-names to sets of characters v Relate object-oriented class names to external class-names and identify class-names that can be used in a class definition or program
Copyright IBM Corp. 1991, 2006
105
SOURCE-COMPUTER paragraph
The SOURCE-COMPUTER paragraph describes the computer on which the source text is to be compiled.
Format
SOURCE-COMPUTER. computer-name DEBUGGING MODE WITH .
WITH DEBUGGING MODE Activates a compile-time switch for debugging lines written in the source text. A debugging line is a statement that is compiled only when the compile-time switch is activated. Debugging lines allow you, for example, to check the value of a data-name at certain points in a procedure. To specify a debugging line in your program, code a D in column 7 (indicator area). You can include successive debugging lines, but each must have a D in column 7, and you cannot break character strings across lines. All your debugging lines must be written so that the program is syntactically correct, whether the debugging lines are compiled or treated as comments. The presence or absence of the DEBUGGING MODE clause is logically determined after all COPY and REPLACE statements have been processed. You can code debugging lines in the environment division (after the OBJECT-COMPUTER paragraph), and in the data and procedure divisions. If a debugging line contains only spaces in Area A and in Area B, the debugging line is treated the same as a blank line. All of the SOURCE-COMPUTER paragraph is syntax checked, but only the WITH DEBUGGING MODE clause has an effect on the execution of the program.
OBJECT-COMPUTER paragraph
The OBJECT-COMPUTER paragraph specifies the system for which the object program is designated.
106
Format
OBJECT-COMPUTER.
entry 1
entry 1:
alphabet-name
SEGMENT-LIMIT IS
priority-number
MEMORY SIZE The amount of main storage needed to run the object program. The MEMORY SIZE clause is syntax checked but has no effect on the execution of the program. integer Expressed in words, characters, or modules.
PROGRAM COLLATING SEQUENCE IS The collating sequence used in this program is the collating sequence associated with the specified alphabet-name. The collating sequence pertains to this program and any programs it might contain. alphabet-name The collating sequence. PROGRAM COLLATING SEQUENCE determines the truth value of the following alphanumeric comparisons: v Those explicitly specified in relation conditions v Those explicitly specified in condition-name conditions | | | | | The PROGRAM COLLATING SEQUENCE clause also applies to any merge or sort keys described with usage DISPLAY, unless the COLLATING SEQUENCE phrase is specified in the MERGE or SORT statement. The PROGRAM COLLATING SEQUENCE clause is not applied to DBCS data items or data items of usage NATIONAL.
Chapter 15. Configuration section
107
If the PROGRAM COLLATING SEQUENCE clause is omitted, the EBCDIC collating sequence is used. (See Appendix C, EBCDIC and ASCII collating sequences, on page 569.)
SEGMENT-LIMIT IS The SEGMENT-LIMIT clause is syntax checked but has no effect on the execution of the program. priority-number An integer ranging from 1 through 49. All sections with priority-numbers 0 through 49 are fixed permanent segments. See Procedures on page 251 for a description of priority-numbers and segmentation support. Segmentation is not supported for programs compiled with the THREAD option.
All of the OBJECT-COMPUTER paragraph is syntax checked, but only the PROGRAM COLLATING SEQUENCE clause has an effect on the execution of the program.
SPECIAL-NAMES paragraph
The SPECIAL-NAMES paragraph: v Relates IBM-specified environment-names to user-defined mnemonic-names v Relates alphabet-names to character sets or collating sequences v Specifies symbolic characters v Relates class names to sets of characters v Specifies one or more currency sign values and defines a picture symbol to represent each currency sign value in PICTURE clauses v Specifies that the functions of the comma and decimal point are to be interchanged in PICTURE clauses and numeric literals The clauses in the SPECIAL-NAMES paragraph can appear in any order.
108
Format
ALPHABET
alphabet-name-1 IS
literal-1
phrase 1
SYMBOLIC CHARACTERS
symbolic IN alphabet-name-2
CLASS
class-name-1 IS
CURRENCY SIGN IS
DECIMAL-POINT IS
COMMA .
(1)
Notes: 1 This separator period is optional when no clauses are selected. If you use any clauses, you must code the period after the last clause.
109
Fragments entry 1:
ON STATUS OFF STATUS IS IS condition-2 ON STATUS IS condition-1 condition-1 OFF STATUS IS condition-2
phrase 1:
THROUGH THRU
literal-2
ALSO literal-3
symbolic:
symbolic-character-1 ARE IS
integer-1
environment-name-1 System devices or standard system actions taken by the compiler. Valid specifications for environment-name-1 are shown in the following table.
Table 5. Meanings of environment names environment name-1 SYSIN SYSIPT SYSOUT SYSLIST SYSLST SYSPUNCH SYSPCH CONSOLE C01 through C12 CSP S01 through S05 AFP-5A Meaning System logical input unit System logical output unit Allowed in ACCEPT DISPLAY
Skip to channel 1 through channel WRITE ADVANCING 12, respectively Suppress spacing Pocket select 1 through 5 on punch devices Advanced Function Printing(TM) WRITE ADVANCING WRITE ADVANCING WRITE ADVANCING
110
environment-name-2 A 1-byte user programmable status indicator (UPSI) switch. Valid specifications for environment-name-2 are UPSI-0 through UPSI-7. mnemonic-name-1, mnemonic-name-2 mnemonic-name-1 and mnemonic-name-2 follow the rules of formation for user-defined names. mnemonic-name-1 can be used in ACCEPT, DISPLAY, and WRITE statements. mnemonic-name-2 can be referenced only in the SET statement. mnemonic-name-2 can qualify condition-1 or condition-2 names. Mnemonic-names and environment-names need not be unique. If you choose a mnemonic-name that is also an environment-name, its definition as a mnemonic-name will take precedence over its definition as an environment-name. ON STATUS IS, OFF STATUS IS UPSI switches process special conditions within a program, such as year-beginning or year-ending processing. For example, at the beginning of the procedure division, an UPSI switch can be tested; if it is ON, the special branch is taken. (See Switch-status condition on page 276.) condition-1, condition-2 Condition-names follow the rules for user-defined names. At least one character must be alphabetic. The value associated with the condition-name is considered to be alphanumeric. A condition-name can be associated with the on status or off status of each UPSI switch specified. In the procedure division, the UPSI switch status is tested through the associated condition-name. Each condition-name is the equivalent of a level-88 item; the associated mnemonic-name, if specified, is considered the conditional variable and can be used for qualification. Condition-names specified in the SPECIAL-NAMES paragraph of a containing program can be referenced in any contained program.
ALPHABET clause
The ALPHABET clause provides a means of relating an alphabet-name to a specified character code set or collating sequence. The related character code set or collating sequence can be used for alphanumeric data, but not for DBCS or national data. ALPHABET alphabet-name-1 IS alphabet-name-1 specifies a collating sequence when used in: v The PROGRAM COLLATING SEQUENCE clause of the object-computer paragraph v The COLLATING SEQUENCE phrase of the SORT or MERGE statement alphabet-name-1 specifies a character code set when used in: v The FD entry CODE-SET clause v The SYMBOLIC CHARACTERS clause STANDARD-1 Specifies the ASCII character set. STANDARD-2 Specifies the International Reference Version of ISO/IEC 646, 7-bit coded character set for information interchange.
Chapter 15. Configuration section
111
NATIVE Specifies the native character code set. If the ALPHABET clause is omitted, EBCDIC is assumed. EBCDIC Specifies the EBCDIC character set. literal-1, literal-2, literal-3 Specifies that the collating sequence for alphanumeric data is determined by the program, according to the following rules: v The order in which literals appear specifies the ordinal number, in ascending sequence, of the characters in this collating sequence. v Each numeric literal specified must be an unsigned integer. v Each numeric literal must have a value that corresponds to a valid ordinal position within the collating sequence in effect. Appendix C, EBCDIC and ASCII collating sequences, on page 569 lists the ordinal number for characters in the single-byte EBCDIC and ASCII collating sequences. v Each character in an alphanumeric literal represents that actual character in the character set. (If the alphanumeric literal contains more than one character, each character, starting with the leftmost, is assigned a successively ascending position within this collating sequence.) v Any characters that are not explicitly specified assume positions in this collating sequence higher than any of the explicitly specified characters. The relative order within the set of these unspecified characters within the character set remains unchanged. v Within one alphabet-name clause, a given character must not be specified more than once. v Each alphanumeric literal associated with a THROUGH or ALSO phrase must be one character in length. v When the THROUGH phrase is specified, the contiguous characters in the native character set beginning with the character specified by literal-1 and ending with the character specified by literal-2 are assigned successively ascending positions in this collating sequence. This sequence can be either ascending or descending within the original native character set. That is, if Z THROUGH A is specified, the ascending values, left-to-right, for the uppercase letters are:
ZYXWVUTSRQPONMLKJIHGFEDCBA
When the ALSO phrase is specified, the characters specified as literal-1, literal-3, ... are assigned to the same position in this collating sequence. For example, if you specify:
D ALSO N ALSO %
the characters D, N, and % are all considered to be in the same position in the collating sequence. v When the ALSO phrase is specified and alphabet-name-1 is referenced in a SYMBOLIC CHARACTERS clause, only literal-1 is used to represent the character in the character set.
112
v The character that has the highest ordinal position in this collating sequence is associated with the figurative constant HIGH-VALUE. If more than one character has the highest position because of specification of the ALSO phrase, the last character specified (or defaulted to when any characters are not explicitly specified) is considered to be the HIGH-VALUE character for procedural statements such as DISPLAY and as the sending field in a MOVE statement. (If the ALSO phrase example given above were specified as the high-order characters of this collating sequence, the HIGH-VALUE character would be %.) v The character that has the lowest ordinal position in this collating sequence is associated with the figurative constant LOW-VALUE. If more than one character has the lowest position because of specification of the ALSO phrase, the first character specified is the LOW-VALUE character. (If the ALSO phrase example given above were specified as the low-order characters of the collating sequence, the LOW-VALUE character would be D.) When literal-1, literal-2, or literal-3 is specified, the alphabet-name must not be referred to in a CODE-SET clause (see CODE-SET clause on page 176). | | | literal-1, literal-2, and literal-3 must be alphanumeric or numeric literals. All must have the same category. A floating-point literal, a national literal, a DBCS literal, or a symbolic-character figurative constant must not be specified.
113
v If the IN phrase is not specified, symbolic-character-1 represents the character whose ordinal position in the native character set is specified by integer-1. Ordinal positions are numbered starting from 1.
CLASS clause
CLASS class-name-1 IS Provides a means for relating a name to the specified set of characters listed in that clause. class-name-1 can be referenced only in a class condition. The characters specified by the values of the literals in this clause define the exclusive set of characters of which this class consists. The class-name in the CLASS clause can be a DBCS user-defined word. literal-4, literal-5 Must be category numeric or alphanumeric, and both must be of the same category. If numeric, literal-4 and literal-5 must be unsigned integers and must have a value that is greater than or equal to 1 and less than or equal to the number of characters in the alphabet specified. Each number corresponds to the ordinal position of each character in the single-byte EBCDIC or ASCII collating sequence. | | If alphanumeric, literal-4 and literal-5 are an actual single-byte EBCDIC character. literal-4 and literal-5 must not specify a symbolic-character figurative constant. If the value of the alphanumeric literal contains multiple characters, each character in the literal is included in the set of characters identified by class-name. Floating-point literals cannot be used in the CLASS clause. If the alphanumeric literal is associated with a THROUGH phrase, the literal must be one character in length. THROUGH, THRU THROUGH and THRU are equivalent. If THROUGH is specified, class-name includes those characters that begin with the value of literal-4 and that end with the value of literal-5. In addition, the characters specified by a THROUGH phrase can be in either ascending or descending order.
114
point in some EBCDIC code pages for , the Euro currency sign). For more details on programming techniques for handling the Euro, see the Enterprise COBOL Programming Guide. The CURRENCY SIGN clause specifies a currency sign value and the currency symbol used to represent that currency sign value in a PICTURE clause. The SPECIAL-NAMES paragraph can contain multiple CURRENCY SIGN clauses. Each CURRENCY SIGN clause must specify a different currency symbol. Unlike all other PICTURE clause symbols, currency symbols are case sensitive. For example, D and d specify different currency symbols. CURRENCY SIGN IS literal-6 literal-6 must be an alphanumeric literal. literal-6 must not be a figurative constant or a null-terminated literal. literal-6 must not contain a DBCS character. If the PICTURE SYMBOL phrase is not specified, literal-6: v Specifies both a currency sign value and the currency symbol for this currency sign value v Must be a single character v Must not be any of the following: Digits 0 through 9 Alphabetic characters A, B, C, D, E, G, N, P, R, S, V, X, Z, their lowercase equivalents, or the space Special characters + - , . * / ; ( ) = v Can be one of the following lowercase alphabetic characters: f, h, i, j, k, l, m, o, q, t, u, w, y If the PICTURE SYMBOL phrase is specified, literal-6: v Specifies a currency sign value. literal-7 in the PICTURE SYMBOL phrase specifies the currency symbol for this currency sign value. v Can consist of one or more characters. v Must not contain any of the following: Digits 0 through 9 Special characters + - . , PICTURE SYMBOL literal-7 Specifies a currency symbol that can be used in a PICTURE clause to represent the currency sign value specified by literal-6. literal-7 must be an alphanumeric literal consisting of one single-byte character. literal-7 must not be any of the following: v A figurative constant v Digits 0 through 9 v Alphabetic characters A, B, C, D, E, G, N, P, R, S, V, X, Z, their lowercase equivalents, or the space v Special characters + - , . * / ; ( ) = If the CURRENCY SIGN clause is specified, the CURRENCY and NOCURRENCY compiler options are ignored. If the CURRENCY SIGN clause is not specified and the NOCURRENCY compiler option is in effect, the dollar sign ($) is used as the
115
default currency sign value and currency symbol. For more information about the CURRENCY and NOCURRENCY compiler options, see the Enterprise COBOL Programming Guide.
REPOSITORY paragraph
The REPOSITORY paragraph is used in a program or class definition to identify all the object-oriented classes that are intended to be referenced in that program or class definition. Optionally, the REPOSITORY paragraph defines associations between class-names and external class-names.
Format
REPOSITORY.
class-name-1 A user-defined word that identifies the class. external-class-name-1 An alphanumeric literal containing a name that enables a COBOL program to define or access classes with class-names that are defined using Java rules of formation.
The name must conform to the rules of formation for a fully qualified Java class-name. If the class is part of a Java package, external-class-name-1 must specify the fully qualified name of the package, followed by ., followed by the simple name of the Java class. See Java Language Specification, Second Edition, by Gosling et al., for Java class-name formation rules. java-array-class-reference A reference that enables a COBOL program to access a class that represents an array object, where the elements of the array are themselves objects. java-array-class-reference must be an alphanumeric literal with content in the following format:
116
Format
jobjectArray : external-class-name-2
jobjectArray Specifies a Java object array class. : A required separator when external-class-name-2 is specified. The colon must not be preceded or followed by space characters.
external-class-name-2 The external class-name of the type of the elements of the array. external-class-name-2 must follow the same rules of formation as external-class-name-1. When the repository entry specifies jobjectArray without the colon separator and external-class-name-2, the elements of the object array are of type java.lang.Object.
General rules
1. All referenced class-names must have an entry in the repository paragraph of the COBOL program or class definition that contains the reference. You can specify a given class-name only once in a given repository paragraph. 2. In program definitions, the repository paragraph can be specified only in the outermost program. 3. The repository paragraph of a COBOL class definition can optionally contain an entry for the name of the class itself, but this entry is not required. Such an entry can be used to specify an external class-name that uses non-COBOL characters or that specifies a fully package-qualified class-name when a COBOL class is to be part of a Java package. 4. Entries in a class repository paragraph apply to the entire class definition, including all methods introduced by that class. Entries in a program repository paragraph apply to the entire program, including its contained programs.
117
0 is changed to J. The class can be implemented in Java or COBOL. When referencing a class that is part of a Java package, external-class-name-1 must be specified and must give the fully qualified Java class-name. For example, the repository entry
Repository. Class JavaException is java.lang.Exception
defines local class-name JavaException for referring to the fully qualified external-class-name java.lang.Exception. When defining a COBOL class that is to be part of a Java package, specify an entry in the repository paragraph of that class itself, giving the full Java package-qualified name as the external class-name.
118
file-control-paragraph
I-O-CONTROL.
i-o-control-paragraph
FILE-CONTROL The keyword FILE-CONTROL identifies the file-control paragraph. This keyword can appear only once, at the beginning of the FILE-CONTROL paragraph. It must begin in Area A and be followed by a separator period. The keyword FILE-CONTROL and the period can be omitted if no file-control-paragraph is specified and there are no files defined in the program. file-control-paragraph Names the files and associates them with the external data sets. Must begin in Area B with a SELECT clause. It must end with a separator period. See FILE-CONTROL paragraph on page 120. file-control-paragraph can be omitted if there are no files defined in the program, even if the FILE-CONTROL keyword is specified. I-O-CONTROL The keyword I-O-CONTROL identifies the I-O-CONTROL paragraph. i-o-control-paragraph Specifies information needed for efficient transmission of data between the
Copyright IBM Corp. 1991, 2006
119
external data set and the COBOL program. The series of entries must end with a separator period. See I-O-CONTROL paragraph on page 138.
FILE-CONTROL paragraph
The FILE-CONTROL paragraph associates each file in the COBOL program with an external data set, and specifies file organization, access mode, and other information. The following are the formats for the FILE-CONTROL paragraph: v Sequential file entries v Indexed file entries v Relative file entries v Line-sequential file entries Types of files (Table 6) lists the different type of files available to programs and methods.
Table 6. Types of files File organization Sequential Relative Indexed Line sequential2 Access method QSAM, VSAM1 VSAM1 VSAM1 Text stream I-O
1. VSAM does not support HFS files. 2. Line-sequential support is limited to HFS files.
The FILE-CONTROL paragraph begins with the word FILE-CONTROL followed by a separator period. It must contain one and only one entry for each file described in an FD or SD entry in the data division. Within each entry, the SELECT clause must appear first. The other clauses can appear in any order, except that the PASSWORD clause for indexed files, if specified, must immediately follow the RECORD KEY or ALTERNATE RECORD KEY data-name with which it is associated.
120
Format 1: sequential-file-control-entries
SELECT OPTIONAL
file-name-1 ASSIGN TO
assignment-name-1
RESERVE
SEQUENTIAL
PADDING CHARACTER IS
data-name-5 literal-2
RECORD DELIMITER IS
STANDARD-1 assignment-name-2
ACCESS MODE IS
SEQUENTIAL
PASSWORD IS
data-name-6 FILE
STATUS IS
data-name-1 data-name-8
121
Format 2: indexed-file-control-entries
SELECT OPTIONAL
file-name-1 ASSIGN TO
assignment-name-1
data-name-2
PASSWORD IS
data-name-6
entry 1
entry 1:
ALTERNATE RECORD KEY IS WITH data-name-3 DUPLICATES
PASSWORD IS
data-name-7
122
Format 3: relative-file-control-entries
file-name-1
ASSIGN TO
assignment-name-1 RELATIVE
ACCESS MODE IS
PASSWORD IS
data-name-6 FILE
STATUS IS
data-name-1 data-name-8
Format 4: line-sequential-file-control-entries
SELECT OPTIONAL
assignment-name-1
ORGANIZATION IS
ACCESS MODE IS
SEQUENTIAL
123
SELECT clause
The SELECT clause identifies a file in the COBOL program to be associated with an external data set. SELECT OPTIONAL Can be specified only for files opened in the input, I-O, or extend mode. You must specify SELECT OPTIONAL for those input files that are not necessarily present each time the object program is executed. For more information, see the Enterprise COBOL Programming Guide. file-name-1 Must be identified by an FD or SD entry in the data division. A file-name must conform to the rules for a COBOL user-defined name, must contain at least one alphabetic character, and must be unique within this program. When file-name-1 specifies a sort or a merge file, only the ASSIGN clause can follow the SELECT clause. If the file connector referenced by file-name-1 is an external file connector, all file-control entries in the run unit that reference this file connector must have the same specification for the OPTIONAL phrase.
ASSIGN clause
The ASSIGN clause associates the name of a file in a program with the actual external name of the data file. assignment-name-1 Identifies the external data file. It can be specified as a name or as an alphanumeric literal. assignment-name-1 is not the name of a data item, and assignment-name-1 cannot be contained in a data item. It is just a character string. Any assignment-name after the first is syntax checked, but has no effect on the execution of the program. assignment-name-1 has the following formats:
124
label-
Documents (for the programmer) the device and device class to which a file is assigned. It must end in a hyphen; the specified value is not otherwise checked. It has no effect on the execution of the program. If specified, it must end with a hyphen. For QSAM files, the S- (organization) field can be omitted. For VSAM sequential files, the AS- (organization) field must be specified. For VSAM indexed and relative files, the organization field must be omitted.
SAS-
name
A required field that specifies the external name for this file. It must be either the name specified in the DD statement for this file or the name of an environment variable that contains file allocation information. For details on specifying an environment variable, see Assignment name for environment variable. name must conform to the following rules of formation: v If assignment-name-1 is a user-defined word: The name can contain from one to eight characters. The name can contain the characters A-Z, a-z, and 0-9. The leading character must be alphabetic. v If assignment-name-1 is a literal: The name can contain from one to eight characters. The name can contain the characters A-Z, a-z, 0-9, @, #, and $. The leading character must be alphabetic. For both user-defined words and literals, the compiler folds name to uppercase to form the ddname for the file. In a sort or merge file, name is treated as a comment.
If the file connector referenced by file-name-1 in the SELECT clause is an external file connector, all file-control entries in the run unit that reference this file connector must have a consistent specification for assignment-name-1 in the ASSIGN clause. For QSAM files and VSAM indexed and relative files, the name specified on the first assignment-name-1 must be identical. For VSAM sequential files, it must be specified as AS-name.
125
If this environment variable exists and contains a valid PATH or DSN option (described below), then the file is dynamically allocated using the information supplied by that option. If the environment variable does not contain a valid PATH or DSN option or if the dynamic allocation fails, then attempting to open the file results in file status 98. The contents of the environment variable are checked at each OPEN statement. If a file was dynamically allocated by a previous OPEN statement and the contents of the environment variable have changed since the previous OPEN, then the previous allocation is dynamically deallocated prior to dynamically reallocating the file using the options currently set in the environment variable. When the run unit terminates, the COBOL runtime system automatically deallocates all automatically generated dynamic allocations.
SPACE(nnn,mmmm)
VOL(volume-serial)
UNIT(type)
STORCLAS(storage-class)
MGMTCLAS(management-class)
DATACLAS(data-class)
data-set-name must be fully qualified. The data set must not be a temporary data set; that is, it must not start with an ampersand. After data-set-name or member-name, the data set attributes can follow in any order. The options that follow DSN (such as NEW or TRACKS) must be separated by a comma or by one or more blanks. Blanks at the beginning and end of the environment variable contents are ignored. You must not code blanks within the parentheses or between a keyword and the left parenthesis that immediately follows the keyword. COBOL does not provide a default for data set disposition (NEW, OLD, SHR, or MOD); however, your operating system might provide one. To avoid unexpected
126
results when opening the file, you should always specify NEW, OLD, SHR, or MOD with the DSN option when you use environment variables for dynamic allocation of QSAM files. For information about specifying the values of the data set attributes, see the description of the DD statement in the z/OS MVS(TM) JCL Reference.
path-name must be an absolute path name; that is, it must begin with a slash. For more information about specifying path-name, see the description of the PATH parameter in z/OS MVS JCL Reference. Blanks at the beginning and end of the environment variable contents are ignored. You must not code blanks within the parentheses or between a keyword and the left parenthesis that immediately follows the keyword.
path-name must be an absolute path name; that is, it must begin with a slash. For more information about specifying path-name, see the description of the PATH parameter in z/OS MVS JCL Reference. Blanks at the beginning and end of the environment variable contents are ignored. You must not code blanks within the parentheses or between a keyword and the left parenthesis that immediately follows the keyword.
127
data-set-name specifies the data set name for the base cluster. data-set-name must be fully qualified and must reference an existing predefined and cataloged VSAM data set. If an indexed file has alternate indexes, then additional environment variables must be defined that contain DSN options (as above) for each of the alternate index paths. The names of these environment variables must follow the same naming convention as used for alternate index ddnames. That is: v The environment variable name for each alternate index path is formed by concatenating the base cluster environment variable name with an integer, beginning with 1 for the path associated with the first alternate index and incrementing by 1 for the path associated with each successive alternate index. (For example, if the environment variable name for the base cluster is CUST, then the environment variable names for the alternate indexes would be CUST1, CUST2, ..., .) v If the length of the base cluster environment variable name is already eight characters, then the environment variable names for the alternate indexes are formed by truncating the base cluster portion of the environment variable name on the right to reduce the concatenated result to eight characters. (For example, if the environment variable name for the base cluster is DATAFILE, then the environment variable names for the alternate clusters would be DATAFIL1, DATAFIL2, ..., .) The options that follow DSN (such as SHR) must be separated by a comma or by one or more blanks. Blanks at the beginning and end of the environment variable contents are ignored. You must not code blanks within the parentheses or between a keyword and the left parenthesis that immediately follows the keyword. COBOL does not provide a default for data set disposition (OLD or SHR); however, your operating system might provide one. To avoid unexpected results when opening the file, you should always specify OLD or SHR with the DSN option when you use environment variables for dynamic allocation of VSAM files.
RESERVE clause
The RESERVE clause allows the user to specify the number of input/output buffers to be allocated at run time for the files. The RESERVE clause is not supported for line-sequential files. If the RESERVE clause is omitted, the number of buffers at run time is taken from the DD statement. If none is specified, the system default is taken. If the file connector referenced by file-name-1 in the SELECT clause is an external file connector, all file-control entries in the run unit that reference this file connector must have the same value for the integer specified in the RESERVE clause.
128
ORGANIZATION clause
The ORGANIZATION clause identifies the logical structure of the file. The logical structure is established at the time the file is created and cannot subsequently be changed. You can find a discussion of the different ways in which data can be organized and of the different access methods that you can use to retrieve the data under File organization and access modes on page 133. ORGANIZATION IS SEQUENTIAL (format 1) A predecessor-successor relationship among the records in the file is established by the order in which records are placed in the file when it is created or extended. ORGANIZATION IS INDEXED (format 2) The position of each logical record in the file is determined by indexes created with the file and maintained by the system. The indexes are based on embedded keys within the files records. ORGANIZATION IS RELATIVE (format 3) The position of each logical record in the file is determined by its relative record number. ORGANIZATION IS LINE SEQUENTIAL (format 4) A predecessor-successor relationship among the records in the file is established by the order in which records are placed in the file when it is created or extended. A record in a LINE SEQUENTIAL file can consist only of printable characters. If you omit the ORGANIZATION clause, the compiler assumes ORGANIZATION IS SEQUENTIAL. If the file connector referenced by file-name-1 in the SELECT clause is an external file connector, the same organization must be specified for all file-control entries in the run unit that reference this file connector.
File organization
You establish the organization of the data when you create a file. Once the file has been created, you can expand the file, but you cannot change the organization.
Sequential organization
The physical order in which the records are placed in the file determines the sequence of records. The relationships among records in the file do not change, except that the file can be extended. Records can be fixed length or variable length; there are no keys. Each record in the file except the first has a unique predecessor record; and each record except the last has a unique successor record.
Indexed organization
Each record in the file has one or more embedded keys (referred to as key data items); each key is associated with an index. An index provides a logical path to the data records according to the contents of the associated embedded record key data items. Indexed files must be direct-access storage files. Records can be fixed length or variable length.
129
Each record in an indexed file must have an embedded prime key data item. When records are inserted, updated, or deleted, they are identified solely by the values of their prime keys. Thus, the value in each prime key data item must be unique and must not be changed when the record is updated. You tell COBOL the name of the prime key data item in the RECORD KEY clause of the file-control paragraph. In addition, each record in an indexed file can contain one or more embedded alternate key data items. Each alternate key provides another means of identifying which record to retrieve. You tell COBOL the name of any alternate key data items on the ALTERNATE RECORD KEY clause of the file-control paragraph. The key used for any specific input-output request is known as the key of reference.
Relative organization
Think of the file as a string of record areas, each of which contains a single record. Each record area is identified by a relative record number; the access method stores and retrieves a record based on its relative record number. For example, the first record area is addressed by relative record number 1 and the 10th is addressed by relative record number 10. The physical sequence in which the records were placed in the file has no bearing on the record area in which they are stored, and thus no effect on each records relative record number. Relative files must be direct-access files. Records can be fixed length or variable length.
Line-sequential organization
In a line-sequential file, each record contains a sequence of characters that ends with a record delimiter. The delimiter is not counted in the length of the record. When a record is written, any trailing blanks are removed prior to adding the record delimiter. The characters in the record area from the first character up to and including the added record delimiter constitute one record and are written to the file. When a record is read, characters are read one at a time into the record area until: v The first record delimiter is encountered. The record delimiter is discarded and the remainder of the record is filled with spaces. v The entire record area is filled with characters. If the first unread character is the record delimiter, it is discarded. Otherwise, the first unread character becomes the first character read by the next READ statement. Records written to line-sequential files must consist of data items described as USAGE DISPLAY or DISPLAY-1 or a combination of DISPLAY and DISPLAY-1 items. A zoned decimal data item either must be unsigned or, if signed, must be declared with the SEPARATE CHARACTER phrase. A line-sequential file must contain only printable characters and the following control characters: v Alarm (X2F) v Backspace (X16) v Form feed (X0C) v New-line (X15) v Carriage-return (X0D) v Horizontal tab (X05) v Vertical tab (X0B) v DBCS shift-out (X0E)
130
v DBCS shift-in (X0F) New-line characters are processed as record delimiters. Other control characters are treated by COBOL as part of the data for the records in the file. The following are not supported for line-sequential files: v APPLY WRITE-ONLY clause v CODE-SET clause v v v v v v v v v v v v v v v v v DATA RECORDS clause LABEL RECORDS clause LINAGE clause I-O phrase of the OPEN statement PADDING CHARACTER clause RECORD CONTAINS 0 clause RECORD CONTAINS clause format 2 (for example: RECORD CONTAINS 100 to 200 CHARACTERS) RECORD DELIMITER clause RECORDING MODE clause RERUN clause RESERVE clause REVERSED phrase of the OPEN statement REWRITE statement VALUE OF clause of file description entry WRITE ... AFTER ADVANCING mnemonic-name WRITE ... AT END-OF-PAGE WRITE ... BEFORE ADVANCING
131
STANDARD-1 If STANDARD-1 is specified, the external medium must be a magnetic tape file. assignment-name-2 Can be any COBOL word. The RECORD DELIMITER clause is syntax checked, but has no effect on the execution of the program.
ACCESS MODE IS RANDOM Can be specified in formats 2 and 3 only. Format 2: indexed The value placed in a record key data item specifies the record to be accessed. Format 3: relative The value placed in a relative key data item specifies the record to be accessed.
ACCESS MODE IS DYNAMIC Can be specified in formats 2 and 3 only. Format 2: indexed Records in the file can be accessed sequentially or randomly, depending on the form of the specific input-output statement used.
132
Format 3: relative Records in the file can be accessed sequentially or randomly, depending on the form of the specific input-output request.
Access modes
Sequential-access mode Allows reading and writing records of a file in a serial manner; the order of reference is implicitly determined by the position of a record in the file. Random-access mode Allows reading and writing records in a programmer-specified manner; the control of successive references to the file is expressed by specifically defined keys supplied by the user. Dynamic-access mode Allows the specific input-output statement to determine the access mode. Therefore, records can be processed sequentially or randomly or both. For external files, every file-control entry in the run unit that is associated with that external file must specify the same access mode. In addition, for relative file entries, data-name-4 must reference an external data item, and the RELATIVE KEY phrase in each associated file-control entry must reference that same external data item.
133
keys in the RECORD KEY data item (and the ALTERNATE RECORD KEY data item). If a set of records has duplicate alternate record key values, only the first record written is available. In the dynamic access mode, you can change as needed from sequential access to random access by using appropriate forms of input-output statements. Relative files All three access modes are allowed. In the sequential access mode, the sequence in which records are accessed is the ascending order of the relative record numbers of all records that exist within the file. In the random access mode, you control the sequence in which records are accessed. A specific record is accessed by placing its relative record number in the RELATIVE KEY data item; the RELATIVE KEY must not be defined within the record description entry for the file. In the dynamic access mode, you can change as needed from sequential access to random access by using appropriate forms of input-output statements.
134
If the indexed file contains variable-length records, data-name-2 need not be contained within the minimum record size specified for the file. That is, data-name-2 can exceed the minimum record size, but this is not recommended. The data description of data-name-2 and its relative location within the record must be the same as those used when the file was defined. If the file has more than one record description entry, data-name-2 need be described in only one of those record description entries. The identical character positions referenced by data-name-2 in any one record description entry are implicitly referenced as keys for all other record description entries for that file. For files defined with the EXTERNAL clause, all file description entries in the run unit that are associated with the file must have data description entries for data-name-2 that specify the same relative location in the record and the same length.
Regardless of the category of the key data item, the key is treated as an alphanumeric item. The collation order of the key is determined by the items binary value order when the key is used for locating a record or for setting the file position indicator associated with the file. data-name-3 cannot be a windowed date field. data-name-3 must not reference a group item that contains a variable-occurrence data item. data-name-3 can be qualified. If the indexed file contains variable-length records, data-name-3 need not be contained within the minimum record size specified for the file. That is, data-name-3 can exceed the minimum record size, but this is not recommended. If the file has more than one record description entry, data-name-3 need be described in only one of these record description entries. The identical
135
character positions referenced by data-name-3 in any one record description entry are implicitly referenced as keys for all other record description entries of that file. The data description of data-name-3 and its relative location within the record must be the same as those used when the file was defined. The number of alternate record keys for the file must also be the same as that used when the file was created. The leftmost character position of data-name-3 must not be the same as the leftmost character position of the prime RECORD KEY or of any other ALTERNATE RECORD KEY.
If the DUPLICATES phrase is not specified, the values contained in the ALTERNATE RECORD KEY data item must be unique among records in the file. If the DUPLICATES phrase is specified, the values contained in the ALTERNATE RECORD KEY data item can be duplicated within any records in the file. In sequential access, the records with duplicate keys are retrieved in the order in which they were placed in the file. In random access, only the first record written in a series of records with duplicate keys can be retrieved. For files defined with the EXTERNAL clause, all file description entries in the run unit that are associated with the file must have data description entries for data-name-3 that specify the same relative location in the record and the same length. The file description entries must specify the same number of alternate record keys and the same DUPLICATES phrase.
136
The ACCESS MODE IS RANDOM clause must not be specified for file-names specified in the USING or GIVING phrase of a SORT or MERGE statement.
PASSWORD clause
The PASSWORD clause controls access to files. | | | data-name-6, data-name-7 Password data items. Each must be defined in the working-storage section of the data division as a data item of category alphabetic, alphanumeric, or alphanumeric-edited. The first eight characters are used as the password; a shorter field is padded with blanks to eight characters. Each password data item must be equivalent to one that is externally defined. When the PASSWORD clause is specified, at object time the PASSWORD data item must contain a valid password for this file before the file can be successfully opened. Format 1 considerations: The PASSWORD clause is not valid for QSAM sequential files. Format 2 and 3 considerations: The PASSWORD clause, if specified, must immediately follow the RECORD KEY or ALTERNATE RECORD KEY data-name with which it is associated. For indexed files that have been completely predefined to VSAM, only the PASSWORD data item for the RECORD KEY need contain the valid password before the file can be successfully opened at file creation time. For any other type of file processing (including the processing of dynamic calls at file creation time through a COBOL runtime subroutine), every PASSWORD data item for the file must contain a valid password before the file can be successfully opened, regardless of whether all paths to the data are used in this object program. For external files, data-name-6 and data-name-7 must reference external data items. The PASSWORD clauses in each associated file-control entry must reference the same external data items.
| |
137
| |
v A two-digit data item of category numeric with usage DISPLAY or NATIONAL (an external decimal data item) data-name-1 must not contain the PICTURE symbol P. data-name-1 can be qualified. The file status key data item must not be variably located; that is, the data item cannot follow a data item that contains an OCCURS DEPENDING ON clause.
| |
data-name-8 Must be defined as an alphanumeric group item of 6 bytes in the working-storage section or linkage section of the data division. Specify data-name-8 only if the file is a VSAM file (that is, ESDS, KSDS, RRDS). data-name-8 holds the 6-byte VSAM return code, which is composed as follows: v The first 2 bytes of data-name-8 contain the VSAM return code in binary format. The value for this code is defined (by VSAM) as 0, 8, or 12. v The next 2 bytes of data-name-8 contain the VSAM function code in binary format. The value for this code is defined (by VSAM) as 0, 1, 2, 3, 4, or 5. v The last 2 bytes of data-name-8 contain the VSAM feedback code in binary format. The code value is 0 through 255. If VSAM returns a nonzero return code, data-name-8 is set. If FILE STATUS is returned without having called VSAM, data-name-8 is zero. If data-name-1 is set to zero, the content of data-name-8 is undefined. VSAM status return code information is available without transformation in the currently defined COBOL FILE STATUS code. User identification and handling of exception conditions are allowed at the same level as that defined by VSAM. Function code and feedback code are set if and only if the return code is set to a nonzero value. If they are referenced when the return code is set to zero, the contents of the fields are not dependable. Values in the return code, function code, and feedback code fields are defined by VSAM. There are no COBOL additions, deletions, or modifications to the VSAM definitions. For more information, see DFSMS Macro Instructions for Data Sets.
I-O-CONTROL paragraph
The I-O-CONTROL paragraph of the input-output section specifies when checkpoints are to be taken and the storage areas to be shared by different files. This paragraph is optional in a COBOL program. The keyword I-O-CONTROL can appear only once, at the beginning of the paragraph. The word I-O-CONTROL must begin in Area A and must be followed by a separator period. The order in which I-O-CONTROL paragraph clauses are written is not significant. The I-O-CONTROL paragraph ends with a separator period.
138
phrase 1:
integer-1 RECORDS END REEL OF UNIT file-name-1 OF
Notes: 1 The MULTIPLE FILE clause and APPLY WRITE-ONLY clause are not supported for VSAM files.
phrase 1:
integer-1 RECORDS OF file-name-1
file-name-3
file-name-4
139
RERUN ON
assignment-name-1
SAME
phrase 1:
file-name-3
file-name-4
RERUN clause
The RERUN clause specifies that checkpoint records are to be taken. Subject to the restrictions given with each phrase, more than one RERUN clause can be specified. For information regarding the checkpoint data set definition and the checkpoint method required for complete compliance to Standard COBOL 85, see the Enterprise COBOL Programming Guide. Do not use the RERUN clause: v For files described with the EXTERNAL clause v In programs with the RECURSIVE clause specified v In programs compiled with the THREAD option v In methods file-name-1 Must be a sequentially organized file. VSAM and QSAM considerations: The file named in the RERUN clause must be a file defined in the same program as the I-O-CONTROL paragraph, even if the file is defined as GLOBAL. assignment-name-1 The external data set for the checkpoint file. It must not be the same assignment-name as that specified in any ASSIGN clause throughout the entire program, including contained and containing programs. For QSAM files, it has the format:
140
That is, it must be a QSAM file. It must reside on a tape or direct access device. See also Appendix F, ASCII considerations, on page 593. SORT/MERGE considerations: When the RERUN clause is specified in the I-O-CONTROL paragraph, checkpoint records are written at logical intervals determined by the sort/merge program during execution of each SORT or MERGE statement in the program. When the RERUN clause is omitted, checkpoint records are not written. There can be only one SORT/MERGE I-O-CONTROL paragraph in a program, and it cannot be specified in contained programs. It will have a global effect on all SORT and MERGE statements in the program unit. EVERY integer-1 RECORDS A checkpoint record is to be written for every integer-1 records in file-name-1 that are processed. When multiple integer-1 RECORDS phrases are specified, no two of them can specify the same value for file-name-1. If you specify the integer-1 RECORDS phrase, you must specify assignment-name-1.
EVERY END OF REEL/UNIT A checkpoint record is to be written whenever end-of-volume for file-name-1 occurs. The terms REEL and UNIT are interchangeable. When multiple END OF REEL/UNIT phrases are specified, no two of them can specify the same value for file-name-1. The END OF REEL/UNIT phrase can be specified only if file-name-1 is a sequentially organized file.
141
v For VSAM files, the SAME clause is treated as if equivalent to the SAME RECORD AREA. More than one SAME AREA clause can be included in a program. However: v A specific file-name must not appear in more than one SAME AREA clause. v If one or more file-names of a SAME AREA clause appear in a SAME RECORD AREA clause, all the file-names in that SAME AREA clause must appear in that SAME RECORD AREA clause. However, the SAME RECORD AREA clause can contain additional file-names that do not appear in the SAME AREA clause. v The rule that in the SAME AREA clause only one file can be open at one time takes precedence over the SAME RECORD AREA rule that all the files can be open at the same time.
142
143
APPLY WRITE-ONLY clauses must agree among corresponding external file description entries. For an alternate method of achieving the APPLY WRITE-ONLY results, see the description of the AWO compiler option in the Enterprise COBOL Programming Guide.
144
. 182 . 183 . 184 . 184 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 185 185 186 186 187 188 189 189 191 192 192 194 195 199 200 200 201 201 201 202 203 203 204 204 204 205 206 207 208 209 209 210 210 211 211 212 214 214 216
Chapter 18. Data divisionfile description entries . . . . . . . . . . . . . . . 163 File section . . . . . . . . . . . . . . 166 EXTERNAL clause . . . . . . . . . . . 167 GLOBAL clause . . . . . . . . . . . . 167 BLOCK CONTAINS clause . . . . . . . . . 168 RECORD clause . . . . . . . . . . . . 169 Format 1 . . . . . . . . . . . . . . 170 Format 2 . . . . . . . . . . . . . . 170 Format 3 . . . . . . . . . . . . . . 171 LABEL RECORDS clause . . . . . . . . . 172 VALUE OF clause . . . . . . . . . . . . 172 DATA RECORDS clause . . . . . . . . . . 173 LINAGE clause . . . . . . . . . . . . . 173 LINAGE-COUNTER special register . . . . . 175 RECORDING MODE clause . . . . . . . . 175 CODE-SET clause . . . . . . . . . . . . 176 Chapter 19. Data divisiondata description entry . . . . . . . . . . . . . . . . 177 Format 1 . . . . . . . . . . . . . . . 177
Copyright IBM Corp. 1991, 2006
145
RENAMES clause . . . . . . . SIGN clause . . . . . . . . . SYNCHRONIZED clause . . . . Slack bytes . . . . . . . . Slack bytes within records . . . Slack bytes between records . . USAGE clause . . . . . . . . Computational items . . . . . DISPLAY phrase . . . . . . DISPLAY-1 phrase . . . . . . FUNCTION-POINTER phrase . . INDEX phrase . . . . . . . NATIONAL phrase . . . . . OBJECT REFERENCE phrase . . POINTER phrase . . . . . . PROCEDURE-POINTER phrase . NATIVE phrase . . . . . . VALUE clause . . . . . . . . Format 1 . . . . . . . . . Rules for literal values . . . Format 2 . . . . . . . . . Rules for condition-name entries Format 3 . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . .
216 218 220 222 222 224 225 227 229 229 229 230 231 231 232 233 234 234 234 235 236 237 239
146
147
FILE SECTION.
file-description-entry
record-description-entry
File section
The file section defines the structure of data files. The file section must begin with the header FILE SECTION, followed by a separator period. file-description-entry Represents the highest level of organization in the file section. It provides information about the physical structure and identification of a file, and gives the record-names associated with that file. For the format and the
148
clauses required in a file description entry, see Data divisionfile description entries (Chapter 18, Data divisionfile description entries, on page 163). record-description-entry A set of data description entries (described in Data divisiondata description entry (Chapter 19, Data divisiondata description entry, on page 177)) that describe the particular records contained within a particular file. | | | A record in the file section must be described as an alphanumeric group item, a national group item, or an elementary data item of class alphabetic, alphanumeric, DBCS, national, or numeric. More than one record description entry can be specified; each is an alternative description of the same record storage area. Data areas described in the file section are not available for processing unless the file that contains the data area is open. A method file section can define external files only. A single run-unit-level file connector is shared by all programs and methods that contain a declaration of a given external file.
Working-storage section
The working-storage section describes data records that are not part of data files but are developed and processed by a program or method. It also describes data items whose values are assigned in the source program or method and do not change during execution of the object program. The working-storage section must begin with the section header WORKING-STORAGE SECTION, followed by a separator period. Program working-storage The working-storage section for programs (and methods) can also describe external data records, which are shared by programs and methods throughout the run unit. All clauses that are used in record descriptions in the file section and also the VALUE and EXTERNAL clauses (which might not be specified in record description entries in the file section) can be used in record descriptions in the working-storage section. Method working-storage A single copy of the working-storage for a method is statically allocated on the first invocation of the method and persists in a last-used state for the duration of the run unit. The same copy is used whenever the method is invoked regardless of which object instance the method is invoked upon. If a VALUE clause is specified on a method working-storage data item, the data item is initialized to the VALUE clause value on the first invocation. If the EXTERNAL clause is specified on a data description entry in a method working-storage section, a single copy of the storage for that data item is allocated once for the duration of the run unit. That storage is shared by all programs and methods in the run unit that contain a definition for the external data item. Object working-storage The data described in the working-storage section of an object paragraph is
Chapter 17. Data division overview
149
object instance data, usually called instance data. A separate copy of instance data is statically allocated for each object instance when the object is instantiated. Instance data persists in a last-used state until the object instance is freed by the Java runtime system. Instance data can be initialized by VALUE clauses specified in data declarations or by logic specified in an instance method. Factory working-storage The data described in the working-storage section of a factory paragraph is factory data. A single copy of factory data is statically allocated when the factory object for the class is created. Factory data persists in a last-used state for the duration of the run unit. Factory data can be initialized by VALUE clauses specified in data declarations or by logic specified in a factory method. The working-storage section contains record description entries and data description entries for independent data items, called data item description entries. record-description-entry Data entries in the working-storage section that bear a definite hierarchic relationship to one another must be grouped into records structured by level number. See Data divisiondata description entry (Chapter 19, Data divisiondata description entry, on page 177) for more information. data-item-description-entry Independent items in the working-storage section that bear no hierarchic relationship to one another need not be grouped into records provided that they do not need to be further subdivided. Instead, they are classified and defined as independent elementary items. Each is defined in a separate data-item description entry that begins with either the level number 77 or 01. See Data divisiondata description entry (Chapter 19, Data divisiondata description entry, on page 177) for more information.
Local-storage section
The local-storage section defines storage that is allocated and freed on a per-invocation basis. On each invocation, data items defined in the local-storage section are reallocated. Each data item that has a VALUE clause is initialized to the value specified in that clause. For nested programs, data items defined in the local-storage section are allocated upon each invocation of the containing outermost program. However, each data item is reinitialized to the value specified in its VALUE clause each time the nested program is invoked. For methods, a separate copy of the data defined in local-storage is allocated and initialized on each invocation of the method. The storage allocated for the data is freed when the method returns. Data items defined in the local-storage section cannot specify the EXTERNAL clause. The local-storage section must begin with the header LOCAL-STORAGE SECTION, followed by a separator period.
150
You can specify the local-storage section in recursive programs, in nonrecursive programs, and in methods. Method local-storage content is the same as program local-storage content except that the GLOBAL clause has no effect (because methods cannot be nested).
Linkage section
The linkage section describes data made available from another program or method. record-description-entry See Working-storage section on page 149 for a description. data-item-description-entry See Working-storage section on page 149 for a description. Record description entries and data item description entries in the linkage section provide names and descriptions, but storage within the program or method is not reserved because the data area exists elsewhere. Any data description clause can be used to describe items in the linkage section with the following exceptions: v You cannot specify the VALUE clause for items other than level-88 items. v You cannot specify the EXTERNAL clause. You can specify the GLOBAL clause in the linkage section. The GLOBAL clause has no effect for methods, however.
Data units
Data is grouped into the following conceptual units: v File data v Program data v Method data v Factory data v Instance data
File data
File data is contained in files. (See File section on page 166.) A file is a collection of data records that exist on some input-output device. A file can be considered as a group of physical records; it can also be considered as a group of logical records. The data division describes the relationship between physical and logical records. A physical record is a unit of data that is treated as an entity when moved into or out of storage. The size of a physical record is determined by the particular input-output device on which it is stored. The size does not necessarily have a direct relationship to the size or content of the logical information contained in the file. A logical record is a unit of data whose subdivisions have a logical relationship. A logical record can itself be a physical record (that is, be contained completely
151
within one physical unit of data); several logical records can be contained within one physical record, or one logical record can extend across several physical records. File description entries specify the physical aspects of the data (such as the size relationship between physical and logical records, the size and names of the logical records, labeling information, and so forth). Record description entries describe the logical records in the file (including the category and format of data within each field of the logical record), different values the data might be assigned, and so forth. After the relationship between physical and logical records has been established, only logical records are made available to you. For this reason, a reference in this information to records means logical records, unless the term physical records is used.
Program data
Program data is created by a program instead of being read from a file. The concept of logical records applies to program data as well as to file data. Program data can thus be grouped into logical records, and be defined by a series of record description entries. Items that need not be so grouped can be defined in independent data description entries (called data item description entries).
Method data
Method data is defined in the data division of a method and is processed by the procedural code in that method. Method data is organized into logical records and independent data description entries in the same manner as program data.
Factory data
Factory data is defined in the data division in the factory paragraph of a class definition and is processed by procedural code in the factory methods of that class. Factory data is organized into logical records and independent data description entries in the same manner as program data. There is one factory object for a given class in a run unit, and therefore only one instance of factory data in a run unit for that class.
Instance data
Instance data is defined in the data division in the object paragraph of a class definition and is processed by procedural code in the instance methods of that class. Instance data is organized into logical records and independent data description entries in the same manner as program data. There is one copy of instance data in each object instance of a given class. There can be many object instances for a given class. Each has its own separate copy of instance data.
Data relationships
The relationships among all data to be used in a program are defined in the data division through a system of level indicators and level-numbers.
152
A level indicator, with its descriptive entry, identifies each file in a program. Level indicators represent the highest level of any data hierarchy with which they are associated. FD is the file description level indicator and SD is the sort-merge file description level indicator. A level-number, with its descriptive entry, indicates the properties of specific data. Level-numbers can be used to describe a data hierarchy; they can indicate that this data has a special purpose. Although they can be associated with (and subordinate to) level indicators, they can also be used independently to describe internal data or data common to two or more programs. (See Level-numbers on page 178 for level-number rules.)
Levels of data
After a record has been defined, it can be subdivided to provide more detailed data references. For example, in a customer file for a department store, one complete record could contain all data that pertains to one customer. Subdivisions within that record could be, for example, customer name, customer address, account number, department number of sale, unit amount of sale, dollar amount of sale, previous balance, and other pertinent information. The basic subdivisions of a record (that is, those fields not further subdivided) are called elementary items. Thus a record can be made up of a series of elementary items or can itself be an elementary item. It might be necessary to refer to a set of elementary items; thus, elementary items can be combined into group items. Groups can also be combined into a more inclusive group that contains one or more subgroups. Thus within one hierarchy of data items, an elementary item can belong to more than one group item. A system of level-numbers specifies the organization of elementary and group items into records. Special level-numbers are also used to identify data items used for special purposes.
02 through 49 These level-numbers specify group and elementary items within a record. They can begin in Area A or Area B. Less inclusive data items are assigned higher (not necessarily consecutive) level-numbers in this series. The relationship between level-numbers within a group item defines the hierarchy of data within that group.
153
A group item includes all group and elementary items that follow it until a level-number less than or equal to the level-number of that group is encountered. The following figure illustrates a group wherein all groups immediately subordinate to the level-01 entry have the same level-number.
You can also define groups with subordinate items that have different level-numbers for the same level in the hierarchy. For example, 05 EMPLOYEE-NAME and 04 EMPLOYEE-ADDRESS in the following record description entry define the same level in the hierarchy:
01 EMPLOYEE-RECORD. 05 EMPLOYEE-NAME. 10 FIRST-NAME PICTURE X(10). 10 LAST-NAME PICTURE X(10). 04 EMPLOYEE-ADDRESS. 08 STREET PICTURE X(10). 08 CITY PICTURE X(10).
The following record description entry defines the same data hierarchy as the preceding record description entry:
01 EMPLOYEE-RECORD. 05 EMPLOYEE-NAME. 10 FIRST-NAME PICTURE
X(10).
154
05
Special level-numbers
Special level-numbers identify items that do not structure a record. The special level-numbers are: 66 Identifies items that must contain a RENAMES clause; such items regroup previously defined data items. (For details, see RENAMES clause on page 216.) Identifies data item description entries that are independent working-storage, local-storage, or linkage section items; they are not subdivisions of other items and are not subdivided themselves. Level-77 items must begin in Area A. Identifies any condition-name entry that is associated with a particular value of a conditional variable. (For details, see VALUE clause on page 234.)
77
88
Level-77 and level-01 entries in the working-storage, local-storage, and linkage sections that are referenced in a program or method must be given unique data-names because level-77 and level-01 entries cannot be qualified. Subordinate data-names that are referenced in the program or method must be either uniquely defined, or made unique through qualification. Unreferenced data-names need not be uniquely defined.
Indentation
Successive data description entries can begin in the same column as preceding entries, or can be indented. Indentation is useful for documentation but does not affect the action of the compiler.
155
| | | | | | | | |
Unless stated otherwise, a national group item is processed exactly as though it were an elementary data item of usage national, class and category national, described with PICTURE N(m), where m is the length of the group in national character positions. Because national groups contain only national characters, data is converted as necessary for moves and compares. The compiler ensures proper truncation and padding. In other operations, such as MOVE CORRESPONDING and ADD CORRESPONDING, the subordinate data items are processed as separate elementary items. See GROUP-USAGE clause on page 187 for details. The table below summarizes the classes and categories of group items.
Table 7. Classes and categories of group items USAGE of elementary items within the group Any
| | | | | | | | | | |
Category of group Alphanumeric (even though the elementary items in the group can have any category) National
National
NATIONAL
| | | | | |
156
| | | | | | | | | | | | | | | | | | | | | | | | | |
Table 8. Class, category, and usage of elementary data items Class Alphabetic Alphanumeric Category Alphabetic Alphanumeric Alphanumeric-edited Numeric-edited DBCS National DBCS National National-edited Numeric-edited Numeric Numeric Usage DISPLAY DISPLAY DISPLAY DISPLAY DISPLAY-1 NATIONAL NATIONAL NATIONAL DISPLAY (type zoned decimal) NATIONAL (type national decimal) PACKED-DECIMAL (type internal decimal) COMP-3 (type internal decimal) BINARY COMP COMP-4 COMP-5 Internal floating-point COMP-1 COMP-2 External floating-point DISPLAY NATIONAL Table 9. Classes and categories of functions Function type Alphanumeric National Integer Numeric Table 10. Classes and categories of literals Literal Alphanumeric (including hexadecimal formats) DBCS National (including hexadecimal formats) Numeric (fixed-point and floating-point) Class and category Alphanumeric DBCS National Numeric Class and category Alphanumeric National Numeric Numeric
157
Category descriptions
| | | The category of a data item is established by the attributes of its data description entry (such as its PICTURE character-string or USAGE clause) or by its function definition. The meaning of each category is given below.
Alphabetic
| | | A data item is described as category alphabetic by its PICTURE character-string. For PICTURE character-string details, see Alphabetic items on page 201. A data item of category alphabetic is referred to as an alphabetic data item.
Alphanumeric
| | | | | | | | | | | | | | | Each of the following is a data item of category alphanumeric: v An elementary data item described as alphanumeric by its PICTURE character-string. For PICTURE character-string details, see Alphanumeric items on page 203. v An alphanumeric group item. v An alphanumeric function. v The following special registers: DEBUG-ITEM SHIFT-OUT SHIFT-IN SORT-CONTROL SORT-MESSAGE WHEN-COMPILED XML-EVENT XML-TEXT
Alphanumeric-edited
| | | | | A data item is described as category alphanumeric-edited by its PICTURE character-string. For PICTURE character-string details, see Alphanumeric-edited items on page 204. A data item of category alphanumeric-edited is referred to as an alphanumeric-edited data item.
DBCS
| | | | A data item is described as category DBCS by its PICTURE character-string and the NSYMBOL(DBCS) compiler option or by an explicit USAGE DISPLAY-1 clause. For PICTURE character-string details, see DBCS items on page 204. A data item of category DBCS is referred to as a DBCS data item.
External floating-point
| | | | | | A data item is described as category external floating-point by its PICTURE character-string. For PICTURE character-string details, see External floating-point items on page 206. An external floating-point data item can be described with USAGE DISPLAY or USAGE NATIONAL. When the usage is DISPLAY, the item is referred to as a display floating-point data item.
158
| | | |
When the usage is NATIONAL, the item is referred to as a national floating-point data item. An external floating-point data item is of class numeric and, unless specifically excluded, is included in a reference to a numeric data item.
Internal floating-point
| | | | | A data item is described as category internal floating-point by a USAGE clause with the COMP-1 or COMP-2 phrase. A data item of category internal floating-point is referred to as an internal floating-point data item. An internal floating-point data item is of class numeric and, unless specifically excluded, is included in a reference to a numeric data item.
National
| | | | | | | | | Each of the following is a data item of category national: v A data item that is described as category national by its PICTURE character-string and the NSYMBOL(NATIONAL) compiler option or by an explicit USAGE NATIONAL clause. For PICTURE character-string details, see National items on page 204. v A group item explicitly or implicitly described with a GROUP-USAGE NATIONAL clause. v A national function. v The special register XML-NTEXT.
National-edited
| | | | | A data item is described as category national-edited by its PICTURE character-string. For PICTURE character-string details, see National-edited items on page 205. A data item of category national-edited is referred to as a national-edited data item.
Numeric
| | | | | | | | | | | | | | | | | | Each of the following is a data item of category numeric: v An elementary data item described as numeric by its PICTURE character-string and not described with a BLANK WHEN ZERO clause. For PICTURE character-string details, see Numeric items on page 201. v An elementary data item described with one of the following usages: BINARY, COMPUTATIONAL, COMPUTATIONAL-4, COMPUTATIONAL-5, COMP, COMP-4, or COMP-5 PACKED-DECIMAL, COMPUTATIONAL-3, or COMP-3 v A special register of numeric type: LENGTH OF LINAGE-COUNTER RETURN-CODE SORTCORE-SIZE SORT-FILE-SIZE SORT-MODE-SIZE SORT-RETURN TALLY XML-CODE
Chapter 17. Data division overview
159
| | |
v A numeric function. v An integer function. A data item of category numeric is referred to as a numeric data item.
Numeric-edited
| | | | | Each of the following is a data item of category numeric-edited: v A data item described as numeric-edited by its PICTURE character-string. For PICTURE character-string details, see Numeric-edited items on page 203. v A data item described as numeric by its PICTURE character-string and described with a BLANK WHEN ZERO clause.
Alignment rules
The standard alignment rules for positioning data in an elementary item depend on the category of a receiving item (that is, an item into which the data is moved; see Elementary moves on page 377). Numeric For numeric receiving items, the following rules apply: 1. The data is aligned on the assumed decimal point and, if necessary, truncated or padded with zeros. (An assumed decimal point is one that has logical meaning but that does not exist as an actual character in the data.) 2. If an assumed decimal point is not explicitly specified, the receiving item is treated as though an assumed decimal point is specified immediately to the right of the field. The data is then treated according to the preceding rule. Numeric-edited The data is aligned on the decimal point, and (if necessary) truncated or padded with zeros at either end except when editing causes replacement of leading zeros. Internal floating-point A decimal point is assumed immediately to the left of the field. The data is then aligned on the leftmost digit position that follows the decimal point, with the exponent adjusted accordingly. External floating-point The data is aligned on the leftmost digit position; the exponent is adjusted accordingly. Alphanumeric, alphanumeric-edited, alphabetic, DBCS For these receiving items, the following rules apply: 1. The data is aligned at the leftmost character position, and (if necessary) truncated or padded with spaces at the right. 2. If the JUSTIFIED clause is specified for this receiving item, the above rule is modified as described in JUSTIFIED clause on page 186. | National, national-edited For these receiving items, the following rules apply: 1. The data is aligned at the leftmost character position, and (if necessary) truncated or padded with default Unicode spaces (NX0020) at the right. Truncation occurs at the boundary of a national character position.
160
2. If the JUSTIFIED clause is specified for this receiving item, the above rule is modified as described in JUSTIFIED clause on page 186.
Signed data
There are two categories of algebraic signs used in COBOL: operational signs and editing signs.
Operational signs
Operational signs are associated with signed numeric items, and indicate their algebraic properties. The internal representation of an algebraic sign depends on the items USAGE clause, its SIGN clause (if present), and the operating environment. (For further details about the internal representation, see the Enterprise COBOL Programming Guide.) Zero is considered a unique value regardless of the operational sign. An unsigned field is always assumed to be either positive or zero.
161
Editing signs
Editing signs are associated with numeric-edited items. Editing signs are PICTURE symbols that identify the sign of the item in edited output.
162
LABEL
STANDARD OMITTED
data-name-2
VALUE OF
system-name-1 IS
data-name-3 literal-1
DATA
data-name-4
LINAGE IS
data-name-5 integer-8
clause 2 LINES .
RECORDING MODE IS
mode
CODE-SET IS
alphabet-name
clause 1:
VARYING IS IN SIZE FROM integer-6 TO integer-7 CHARACTERS
clause 2:
FOOTING WITH AT
data-name-6 integer-9
TOP LINES AT
data-name-7 integer-10
BOTTOM LINES AT
data-name-8 integer-11
163
integer-2
CHARACTERS RECORDS
LABEL
STANDARD OMITTED
VALUE OF
system-name-1 IS
data-name-3 literal-1 .
DATA
data-name-4
clause 1:
VARYING IS IN SIZE FROM integer-6 TO integer-7
CHARACTERS
164
clause 1:
VARYING IS IN SIZE FROM integer-6 TO integer-7
CHARACTERS
165
integer-2
CHARACTERS RECORDS
LABEL
LINAGE IS
data-name-5 integer-8
clause 2 LINES
CODE-SET IS
alphabet-name
clause 1:
VARYING IS IN SIZE FROM integer-6 TO integer-7 CHARACTERS
clause 2:
FOOTING WITH AT
data-name-6 integer-9
TOP LINES AT
data-name-7 integer-10
BOTTOM LINES AT
data-name-8 integer-11
File section
The file section must contain a level-indicator for each input and output file: v For all files except sort/merge files, the file section must contain an FD entry. v For each sort or merge file, the file section must contain an SD entry. file-name Must follow the level indicator (FD or SD), and must be the same as that specified in the associated SELECT clause. file-name must adhere to the rules of formation for a user-defined word; at least one character must be alphabetic. file-name must be unique within this program.
166
One or more record description entries must follow file-name. When more than one record description entry is specified, each entry implies a redefinition of the same storage area. The clauses that follow file-name are optional, and they can appear in any order. FD (formats 1, 2, and 3) The last clause in the FD entry must be immediately followed by a separator period. SD (format 4) An SD entry must be written for each sort or merge file in the program. The last clause in the SD entry must be immediately followed by a separator period. The following example illustrates the file section entries needed for a sort or merge file:
SD 01 SORT-FILE. SORT-RECORD PICTURE X(80).
| | |
A record in the file section must be described as an alphanumeric group item, a national group item, or an elementary item of class alphabetic, alphanumeric, DBCS, national, or numeric.
EXTERNAL clause
The EXTERNAL clause specifies that a file connector is external, and permits communication between two programs by the sharing of files. A file connector is external if the storage associated with that file is associated with the run unit rather than with any particular program within the run unit. An external file can be referenced by any program in the run unit that describes the file. References to an external file from different programs that use separate descriptions of the file are always to the same file. In a run unit, there is only one representative of an external file. In the file section, the EXTERNAL clause can be specified only in file description entries. The records appearing in the file description entry need not have the same name in corresponding external file description entries. In addition, the number of such records need not be the same in corresponding file description entries. Use of the EXTERNAL clause does not imply that the associated file-name is a global name. See the Enterprise COBOL Programming Guide for specific information about the use of the EXTERNAL clause.
GLOBAL clause
The GLOBAL clause specifies that the file connector named by a file-name is a global name. A global file-name is available to the program that declares it and to every program that is contained directly or indirectly in that program. A file-name is global if the GLOBAL clause is specified in the file description entry for that file-name. A record-name is global if the GLOBAL clause is specified in the record description entry by which the record-name is declared or, in the case of record description entries in the file section, if the GLOBAL clause is specified in
167
the file description entry for the file-name associated with the record description entry. For details on using the GLOBAL clause, see the Enterprise COBOL Programming Guide. Two programs in a run unit can reference global file connectors in the following circumstances: v An external file connector can be referenced from any program that describes that file connector. v If a program is contained within another program, both programs can refer to a global file connector by referring to an associated global file-name either in the containing program or in any program that directly or indirectly contains the containing program.
168
v Logical records are grouped so that an inaccurate physical record size could be implied. For example, suppose you describe a variable-length record of 100 bytes, yet each time you write a block of 4, one 50-byte record is written followed by three 100-byte records. If the RECORDS phrase were specified, the compiler would calculate the block size as 420 bytes instead of the actual size, 370 bytes. (This calculation includes block and record descriptors.) RECORDS Specifies the number of logical records contained in each physical record. The compiler assumes that the block size must provide for integer-2 records of maximum size, and provides any additional space needed for control bytes.
BLOCK CONTAINS 0 can be specified for QSAM files. If BLOCK CONTAINS 0 is specified for a QSAM file, then: v The block size is determined at run time from the DD parameters or the data set label. If the RECORD CONTAINS 0 CHARACTERS clause is specified and the BLOCK CONTAINS 0 CHARACTERS clause is specified (or omitted), the block size is determined at run time from the DD parameters or the data set label of the file. For output data sets, with either of the above conditions, the DCB used by Language Environment will have a zero block size value. If you do not specify a block size value, the operating system might select a system-determined block size (SDB). See the operating system specifications for further information about SDB. BLOCK CONTAINS can be omitted for SYSIN files and for SYSOUT files. The blocking is determined by the operating system. The BLOCK CONTAINS clause is syntax checked but has no effect on the execution of the program when specified under an SD. The BLOCK CONTAINS clause cannot be used with the RECORDING MODE U clause.
RECORD clause
When the RECORD clause is used, the record size must be specified as the number of bytes needed to store the record internally, regardless of the USAGE of the data items contained within the record. For example, if you have a record with 10 DBCS characters, the RECORD clause should say RECORD CONTAINS 20 CHARACTERS. For a record with 10 national characters, the RECORD clause should say the same, RECORD CONTAINS 20 CHARACTERS. The size of a record is determined according to the rules for obtaining the size of a group item. (See USAGE clause on page 225 and SYNCHRONIZED clause on page 220.) When the RECORD clause is omitted, the compiler determines the record lengths from the record descriptions. When one of the entries within a record description
169
contains an OCCURS DEPENDING ON clause, the compiler uses the maximum value of the variable-length item to calculate the number of bytes needed to store the record internally. If the associated file connector is an external file connector, all file description entries in the run unit that are associated with that file connector must specify the same maximum number of bytes. The following sections describe the formats of the RECORD clause: v Format 1, fixed-length records v Format 2, fixed-length or variable-length records v Format 3 on page 171, variable-length records
Format 1
Format 1 specifies the number of bytes for fixed-length records.
Format 1
RECORD CONTAINS integer-3 CHARACTERS
integer-3 Must be an unsigned integer that specifies the number of bytes contained in each record in the file. The RECORD CONTAINS 0 CHARACTERS clause can be specified for input QSAM files containing fixed-length records; the record size is determined at run time from the DD statement parameters or the data set label. If, at run time, the actual record is larger than the 01 record description, then only the 01 record length is available. If the actual record is shorter, then only the actual record length can be referred to. Otherwise, uninitialized data or an addressing exception can be produced. Usage note: If the RECORD CONTAINS 0 clause is specified, then the SAME AREA, SAME RECORD AREA, or APPLY WRITE-ONLY clauses cannot be specified. Do not specify the RECORD CONTAINS 0 clause for an SD entry.
Format 2
Format 2 specifies the number of bytes for either fixed-length or variable-length records. Fixed-length records are obtained when all 01 record description entry lengths are the same. The format-2 RECORD CONTAINS clause is never required, because the minimum and maximum record lengths are determined from the record description entries.
Format 2
RECORD CONTAINS integer-4 TO integer-5 CHARACTERS
170
integer-4, integer-5 Must be unsigned integers. integer-4 specifies the size of the smallest data record, and integer-5 specifies the size of the largest data record.
Format 3
Format 3 is used to specify variable-length records.
Format 3
RECORD IS VARYING IN SIZE FROM integer-6
TO integer-7
CHARACTERS
DEPENDING ON
data-name-1
integer-6 Specifies the minimum number of bytes to be contained in any record of the file. If integer-6 is not specified, the minimum number of bytes to be contained in any record of the file is equal to the least number of bytes described for a record in that file. integer-7 Specifies the maximum number of bytes in any record of the file. If integer-7 is not specified, the maximum number of bytes to be contained in any record of the file is equal to the greatest number of bytes described for a record in that file. The number of bytes associated with a record description is determined by the sum of the number of bytes in all elementary data items (excluding redefinitions and renamings), plus any implicit FILLER due to synchronization. If a table is specified: v The minimum number of table elements described in the record is used in the summation above to determine the minimum number of bytes associated with the record description. v The maximum number of table elements described in the record is used in the summation above to determine the maximum number of bytes associated with the record description. If v v v data-name-1 is specified: data-name-1 must be an elementary unsigned integer. data-name-1 cannot be a windowed date field. The number of bytes in the record must be placed into the data item referenced by data-name-1 before any RELEASE, REWRITE, or WRITE statement is executed for the file. v The execution of a DELETE, RELEASE, REWRITE, START, or WRITE statement or the unsuccessful execution of a READ or RETURN statement does not alter the content of the data item referenced by data-name-1. v After the successful execution of a READ or RETURN statement for the file, the contents of the data item referenced by data-name-1 indicate the number of bytes in the record just read.
Chapter 18. Data divisionfile description entries
171
During the execution of a RELEASE, REWRITE, or WRITE statement, the number of bytes in the record is determined by the following conditions: v If data-name-1 is specified, by the content of the data item referenced by data-name-1 v If data-name-1 is not specified and the record does not contain a variable occurrence data item, by the number of bytes positions in the record v If data-name-1 is not specified and the record contains a variable occurrence data item, by the sum of the fixed position and that portion of the table described by the number of occurrences at the time of execution of the output statement During the execution of a READ ... INTO or RETURN ... INTO statement, the number of bytes in the current record that participate as the sending data items in the implicit MOVE statement is determined by the following conditions: v If data-name-1 is specified, by the content of the data item referenced by data-name-1 v If data-name-1 is not specified, by the value that would have been moved into the data item referenced by data-name-1 had data-name-1 been specified
VALUE OF clause
The VALUE OF clause describes an item in the label records associated with the file. data-name-3 Should be qualified when necessary, but cannot be subscripted. It must be described in the working-storage section. It cannot be described with the USAGE IS INDEX clause.
172
literal-1 Can be numeric or alphanumeric, or a figurative constant of category numeric or alphanumeric. Cannot be a floating-point literal. The VALUE OF clause is syntax checked, but has no effect on the execution of the program.
LINAGE clause
The LINAGE clause specifies the depth of a logical page in number of lines. Optionally, it also specifies the line number at which the footing area begins and the top and bottom margins of the logical page. (The logical page and the physical page cannot be the same size.) The LINAGE clause is effective for sequential files opened as OUTPUT or EXTEND. All integers must be unsigned. All data-names must be described as unsigned integer data items. data-name-5, integer-8 The number of lines that can be written or spaced on this logical page. The area of the page that these lines represent is called the page body. The value must be greater than zero. WITH FOOTING AT integer-9 or the value of the data item in data-name-6 specifies the first line number of the footing area within the page body. The footing line number must be greater than zero, and not greater than the last line of the page body. The footing area extends between those two lines. LINES AT TOP integer-10 or the value of the data item in data-name-7 specifies the number of lines in the top margin of the logical page. The value can be zero. LINES AT BOTTOM integer-11 or the value of the data item in data-name-8 specifies the number of lines in the bottom margin of the logical page. The value can be zero. The following figure illustrates the use of each phrase of the LINAGE clause.
173
The logical page size specified in the LINAGE clause is the sum of all values specified in each phrase except the FOOTING phrase. If the LINES AT TOP phrase is omitted, the assumed value for the top margin is zero. Similarly, if the LINES AT BOTTOM phrase is omitted, the assumed value for the bottom margin is zero. Each logical page immediately follows the preceding logical page, with no additional spacing provided. If the FOOTING phrase is omitted, its assumed value is equal to that of the page body (integer-8 or data-name-5). At the time an OPEN OUTPUT statement is executed, the values of integer-8, integer-9, integer-10, and integer-11, if specified, are used to determine the page body, first footing line, top margin, and bottom margin of the logical page for this file. (See the figure above.) These values are then used for all logical pages printed for this file during a given execution of the program. At the time an OPEN statement with the OUTPUT phrase is executed for the file, data-name-5, data-name-6, data-name-7, and data-name-8 determine the page body, first footing line, top margin, and bottom margin for the first logical page only. At the time a WRITE statement with the ADVANCING PAGE phrase is executed or a page overflow condition occurs, the values of data-name-5, data-name-6, data-name-7, and data-name-8 if specified, are used to determine the page body, first footing line, top margin, and bottom margin for the next logical page. If an external file connector is associated with this file description entry, all file description entries in the run unit that are associated with this file connector must have: v A LINAGE clause, if any file description entry has a LINAGE clause v The same corresponding values for integer-8, integer-9, integer-10, and integer-11, if specified v The same corresponding external data items referenced by data-name-5, data-name-6, data-name-7, and data-name-8 See ADVANCING phrase on page 457 for the behavior of carriage control characters in external files.
174
A LINAGE clause under an SD is syntax checked, but has no effect on the execution of the program.
175
v Omit the RECORD clause and make sure that all level-01 records associated with the file are the same size and none contains an OCCURS DEPENDING ON clause. V The compiler determines the recording mode to be V if the largest level-01 record associated with the file is not greater than the block size specified in the BLOCK CONTAINS clause, and you do one of the following: v Use the RECORD IS VARYING clause. v Omit the RECORD clause and make sure that all level-01 records associated with the file are not the same size or some contain an OCCURS DEPENDING ON clause. v Use the RECORD CONTAINS integer-1 TO integer-2 clause, with integer-1 the minimum length and integer-2 the maximum length of the level-01 records associated with the file. The two integers must be different, with values matching minimum and maximum length of either different length records or records with an OCCURS DEPENDING ON clause. The compiler determines the recording mode to be S if the maximum block size is smaller than the largest record size. Recording mode U is never obtained by default. The RECORDING MODE U clause must be explicitly specified to get recording mode U.
S U
CODE-SET clause
The CODE-SET clause specifies the character code used to represent data on a magnetic tape file. When the CODE-SET clause is specified, an alphabet-name identifies the character code convention used to represent data on the input-output device. alphabet-name must be defined in the SPECIAL-NAMES paragraph as STANDARD-1 (for ASCII-encoded files), STANDARD-2 (for ISO 7-bit encoded files), EBCDIC (for EBCDIC-encoded files), or NATIVE. When NATIVE is specified, the CODE-SET clause is syntax checked but has no effect on the execution of the program. The CODE-SET clause also specifies the algorithm for converting the character codes on the input-output medium from and to the internal EBCDIC character set. When the CODE-SET clause is specified for a file, all data in the file must have USAGE DISPLAY; and if signed numeric data is present, it must be described with the SIGN IS SEPARATE clause. When the CODE-SET clause is omitted, the EBCDIC character set is assumed for the file. If the associated file connector is an external file connector, all CODE-SET clauses in the run unit that are associated with the file connector must have the same character set. The CODE-SET clause is valid only for magnetic tape files. The CODE-SET clause is syntax checked but has no effect on the execution of the program when specified under an SD.
176
Format 1
Format 1 is used for data description entries in all data division sections.
Format 1
level-number data-name-1 FILLER redefines-clause
blank-when-zero-clause
external-clause
global-clause
group-usage-clause
justified-clause
occurs-clause
picture-clause
sign-clause
synchronized-clause
usage-clause
value-clause
date-format-clause
The clauses can be written in any order, with two exceptions: v data-name-1 or FILLER, if specified, must immediately follow the level-number. v When the REDEFINES clause is specified, it must immediately follow data-name-1 or FILLER, if either is specified. If data-name-1 or FILLER is not specified, the REDEFINES clause must immediately follow the level-number. The level-number in format 1 can be any number in the range 01-49, or 77. A space, a comma, or a semicolon must separate clauses.
177
Format 2
Format 2 regroups previously defined items.
Format 2
66 data-name-1 renames-clause.
A level-66 entry cannot rename another level-66 entry, nor can it rename a level-01, level-77, or level-88 entry. All level-66 entries associated with one record must immediately follow the last data description entry in that record. See RENAMES clause on page 216 for further details.
Format 3
Format 3 describes condition-names.
Format 3
88 condition-name-1 value-clause.
condition-name-1 A user-specified name that associates a value, a set of values, or a range of values with a conditional variable. Level-88 entries must immediately follow the data description entry for the conditional variable with which the condition-names are associated. | | Format 3 can be used to describe elementary items, national group items, or alphanumeric group items. Additional information about condition-name entries can be found under VALUE clause on page 234 and Condition-name condition on page 261.
Level-numbers
The level-number specifies the hierarchy of data within a record, and identifies special-purpose data entries. A level-number begins a data description entry, a renamed or redefined item, or a condition-name entry. A level-number has an integer value between 1 and 49, inclusive, or one of the special level-number values 66, 77, or 88.
178
Format
level-number data-name-1 FILLER
level-number 01 and 77 must begin in Area A and be followed either by a separator period or by a space followed by its associated data-name, FILLER, or appropriate data description clause. Level numbers 02 through 49 can begin in Areas A or B and must be followed by a space or a separator period. Level numbers 66 and 88 can begin in Areas A or B and must be followed by a space. Single-digit level-numbers 1 through 9 can be substituted for level-numbers 01 through 09. Successive data description entries can start in the same column as the first entry or can be indented according to the level-number. Indentation does not affect the magnitude of a level-number. When level-numbers are indented, each new level-number can begin any number of spaces to the right of Area A. The extent of indentation to the right is limited only by the width of Area B. For more information, see Levels of data on page 153. data-name-1 Explicitly identifies the data being described. data-name-1, if specified, identifies a data item used in the program. data-name-1 must be the first word following the level-number. The data item can be changed during program execution. data-name-1 must be specified for level-66 and level-88 items. It must also be specified for any entry containing the GLOBAL or EXTERNAL clause, and for record description entries associated with file description entries that have the GLOBAL or EXTERNAL clauses. FILLER A data item that is not explicitly referred to in a program. The keyword FILLER is optional. If specified, FILLER must be the first word following the level-number. The keyword FILLER can be used with a conditional variable if explicit reference is never made to the conditional variable but only to values that it can assume. FILLER cannot be used with a condition-name. In a MOVE CORRESPONDING statement or in an ADD CORRESPONDING or SUBTRACT CORRESPONDING statement, FILLER items are ignored. In an INITIALIZE statement, elementary FILLER items are ignored. If data-name-1 or the FILLER clause is omitted, the data item being described is treated as though FILLER had been specified.
Chapter 19. Data divisiondata description entry
179
Format
BLANK WHEN ZERO ZEROS ZEROES
| | | | | |
The BLANK WHEN ZERO clause may be specified only for an elementary item described by its picture character string as category numeric-edited or numeric, without the picture symbol S or *. These items must be described, either implicitly or explicitly, as USAGE DISPLAY or USAGE NATIONAL. A BLANK WHEN ZERO clause that is specified for an item defined as numeric by it picture character string defines the item as category numeric-edited. The BLANK WHEN ZERO clause must not be specified for date fields.
Format
DATE FORMAT IS date-pattern
date-pattern is a character string, such as YYXXXX, that represents a windowed or expanded year optionally followed or preceded by one to four characters
180
For an introduction to date fields and related terms, see Chapter 10, Millennium Language Extensions and date fields, on page 73. For details on using date fields in applications, see Enterprise COBOL Programming Guide.
is treated as if it were an expanded date field with a value of: v 19450101, if the century window starting year is 1945 or earlier
Chapter 19. Data divisiondata description entry
181
USAGE COMPUTATIONAL cannot be combined with the DATE FORMAT clause if the TRUNC(BIN) compiler option is in effect.
182
The PICTURE character-string must specify the same number of characters or digits as the DATE FORMAT clause. For alphanumeric date fields, the only PICTURE character-string symbols allowed are A, 9, and X, with at least one X. For numeric date fields, the only PICTURE character-string symbols allowed are 9 and S. The following clauses are not allowed for a data item defined with DATE FORMAT: v BLANK WHEN ZERO v JUSTIFIED v SEPARATE CHARACTER phrase of the SIGN clause The EXTERNAL clause is not allowed for a windowed date field or a group item that contains a windowed date field subordinate item. Some restrictions apply when combining the following clauses with DATE FORMAT: v REDEFINES clause on page 212 v VALUE clause on page 234
183
01
YYMMDD DATE FORMAT YYXXXX. 02 YYMM DATE FORMAT YYXX. 03 YY DATE FORMAT YY PICTURE 99. 03 PICTURE 99. 02 DD PICTURE 99.
184
v An identifier in the VARYING phrase of a serial (format-1) SEARCH statement, or any identifier in a binary (format-2) SEARCH statement (windowed date fields are allowed in the SEARCH conditions) v An identifier in the ADVANCING phrase of the WRITE statement v Arguments to intrinsic functions, except the UNDATE intrinsic function Windowed date fields can be used as ascending or descending keys in MERGE and SORT statements, with some restrictions. For details, see MERGE statement on page 370 and SORT statement on page 429.
EXTERNAL clause
The EXTERNAL clause specifies that the storage associated with a data item is associated with the run unit rather than with any particular program or method within the run unit. An external data item can be referenced by any program or method in the run unit that describes the data item. References to an external data item from different programs or methods using separate descriptions of the data item are always to the same data item. In a run unit, there is only one representative of an external data item. The EXTERNAL clause can be specified only on data description entries whose level-number is 01. It can be specified only on data description entries that are in the working-storage section of a program or method. It cannot be specified in linkage section or file section data description entries. Any data item described by a data description entry subordinate to an entry that describes an external record also attains the external attribute. Indexes in an external data record do not possess the external attribute. The data contained in the record named by the data-name clause is external and can be accessed and processed by any program or method in the run unit that describes and, optionally, redefines it. This data is subject to the following rules: v If two or more programs or methods within a run unit describe the same external data record, each record-name of the associated record description entries must be the same, and the records must define the same number of bytes. However, a program or method that describes an external record can contain a data description entry including the REDEFINES clause that redefines the complete external record, and this complete redefinition need not occur identically in other programs or methods in the run unit. v Use of the EXTERNAL clause does not imply that the associated data-name is a global name.
185
GLOBAL clause
The GLOBAL clause specifies that a data-name is available to every program contained within the program that declares it, as long as the contained program does not itself have a declaration for that name. All data-names subordinate to or condition-names or indexes associated with a global name are global names. A data-name is global if the GLOBAL clause is specified either in the data description entry by which the data-name is declared or in another entry to which that data description entry is subordinate. The GLOBAL clause can be specified in the working-storage section, the file section, the linkage section, and the local-storage section, but only in data description entries whose level-number is 01. In the same data division, the data description entries for any two data items for which the same data-name is specified must not include the GLOBAL clause. A statement in a program contained directly or indirectly within a program that describes a global name can reference that name without describing it again. Two programs in a run unit can reference common data in the following circumstances: v The data content of an external data record can be referenced from any program provided that that program has described that data record. v If a program is contained within another program, both programs can refer to data that possesses the global attribute either in the containing program or in any program that directly or indirectly contains the containing program.
JUSTIFIED clause
The JUSTIFIED clause overrides standard positioning rules for receiving items of category alphabetic, alphanumeric, DBCS, or national.
Format
JUSTIFIED JUST
RIGHT
You can specify the JUSTIFIED clause only at the elementary level. JUST is an abbreviation for JUSTIFIED, and has the same meaning. You cannot specify the JUSTIFIED clause: v For data items of category numeric, numeric-edited, alphanumeric-edited, or national-edited v For edited DBCS items v For index data items v For items described as USAGE FUNCTION-POINTER, USAGE POINTER, USAGE PROCEDURE-POINTER, or USAGE OBJECT REFERENCE v For external floating-point or internal floating-point items v For date fields v With level-66 (RENAMES) and level-88 (condition-name) entries
| |
186
| | | |
When the JUSTIFIED clause is specified for a receiving item, the data is aligned at the rightmost character position in the receiving item. Also: v If the sending item is larger than the receiving item, the leftmost character positions are truncated. v If the sending item is smaller than the receiving item, the unused character positions at the left are filled with spaces. For a DBCS item, each unused position is filled with a DBCS space (X4040); for an item described with usage NATIONAL, each unused position is filled with the default Unicode space (X0020); otherwise, each unused position is filled with an alphanumeric space. If you omit the JUSTIFIED clause, the rules for standard alignment are followed (see Alignment rules on page 160). The JUSTIFIED clause does not affect initial settings as determined by the VALUE clause.
GROUP-USAGE clause
| | | A GROUP-USAGE clause with the NATIONAL phrase specifies that the group item defined by the entry is a national group item. A national group item contains national characters in all subordinate data items and subordinate group items.
Format
GROUP-USAGE IS NATIONAL
| | | | | | | | | | | | | | | | | | | | |
When GROUP-USAGE NATIONAL is specified: v The subject of the entry is a national group item. The class and category of a national group are national. v A USAGE clause must not be specified for the subject of the entry. A USAGE NATIONAL clause is implied. v A USAGE NATIONAL clause is implied for any subordinate elementary data items that are not described with a USAGE NATIONAL clause. v All subordinate elementary data items must be explicitly or implicitly described with USAGE NATIONAL. v Any signed numeric data items must be described with the SIGN IS SEPARATE clause. v A GROUP-USAGE NATIONAL clause is implied for any subordinate group items that are not described with a GROUP-USAGE NATIONAL clause. v All subordinate group items must be explicitly or implicitly described with a GROUP-USAGE NATIONAL clause. v The JUSTIFIED clause must not be specified. Unless stated otherwise, a national group item is processed as though it were an elementary data item of usage national, class and category national, described with PICTURE N(m), where m is the length of the group in national character positions. Usage note: When you use national groups, the compiler can ensure proper truncation and padding of group items for statements such as MOVE and
Chapter 19. Data divisiondata description entry
187
| | | | | |
INSPECT. Groups defined without a GROUP-USAGE NATIONAL clause are alphanumeric groups. The content of alphanumeric groups, including any national characters, is treated as alphanumeric data, possibly leading to invalid truncation or mishandling of national character data. The table below summarizes the cases where a national group item is processed as a group item.
Table 11. Where national group items are processed as groups Language feature Name qualification Processing of national group items The name of a national group item can be used to qualify the names of elementary data items and subordinate group items in the national group. The rules of qualification for a national group are the same as the rules of qualification for an alphanumeric group. The rules for a national group item specified in the THROUGH phrase are the same as the rules for an alphanumeric group item specified in the THROUGH phrase. The result is an alphanumeric group item. A national group item is processed as a group in accordance with the rules of the CORRESPONDING phrase. Elementary data items within a national group are processed the same as they would be if defined within an alphanumeric group. A national group item is processed as a group in accordance with the rules of the INITIALIZE statement. Elementary items within the national group are initialized the same as they would be if defined within an alphanumeric group.
| | | | | | | | | | | | | | | | | | | | | | |
RENAMES clause
CORRESPONDING phrase
INITIALIZE statement
XML GENERATE statement A national group item specified in the FROM phrase is processed as a group in accordance with the rules of the XML GENERATE statement. Elementary items within the national group are processed the same as they would be if defined within an alphanumeric group.
OCCURS clause
The data division clauses used for table handling are the OCCURS clause and the USAGE IS INDEX clause. For the USAGE IS INDEX description, see USAGE clause on page 225. The OCCURS clause specifies tables whose elements can be referred to by indexing or subscripting. It also eliminates the need for separate entries for repeated data items. Formats for the OCCURS clause include fixed-length tables and variable-length tables. The subject of an OCCURS clause is the data-name of the data item that contains the OCCURS clause. Except for the OCCURS clause itself, data description clauses used with the subject apply to each occurrence of the item described. Whenever the subject of an OCCURS clause or any data-item subordinate to it is referenced, it must be subscripted or indexed, with the following exceptions: v When the subject of the OCCURS clause is used as the subject of a SEARCH statement
188
v When the subject or a subordinate data item is the object of the ASCENDING/DESCENDING KEY phrase v When the subordinate data item is the object of the REDEFINES clause When subscripted or indexed, the subject refers to one occurrence within the table. When not subscripted or indexed, the subject references the entire table. The OCCURS clause cannot be specified in a data description entry that: v Has a level number of 01, 66, 77, or 88. v Describes a redefined data item. (However, a redefined item can be subordinate to an item that contains an OCCURS clause.) See REDEFINES clause on page 212.
Fixed-length tables
Fixed-length tables are specified using the OCCURS clause. Because seven subscripts or indexes are allowed, six nested levels and one outermost level of the format-1 OCCURS clause are allowed. The format-1 OCCURS clause can be specified as subordinate to the OCCURS DEPENDING ON clause. In this way, a table of up to seven dimensions can be specified.
ASCENDING DESCENDING
data-name-2 KEY IS
INDEXED BY
index-name-1
integer-2 The exact number of occurrences. integer-2 must be greater than zero.
189
The order is determined by the rules for comparison of operands (see Relation conditions on page 263). The ASCENDING KEY and DESCENDING KEY data items are used in OCCURS clauses and the SEARCH ALL statement for a binary search of the table element. data-name-2 Must be the name of the subject entry or the name of an entry subordinate to the subject entry. data-name-2 cannot be a windowed date field. data-name-2 can be qualified. If data-name-2 names the subject entry, that entire entry becomes the ASCENDING KEY or DESCENDING KEY and is the only key that can be specified for this table element. If data-name-2 does not name the subject entry, then data-name-2: v Must be subordinate to the subject of the table entry itself v Must not be subordinate to, or follow, any other entry that contains an OCCURS clause v Must not contain an OCCURS clause data-name-2 must not have subordinate items that contain OCCURS DEPENDING ON clauses. When the ASCENDING KEY or DESCENDING KEY phrase is specified, the following rules apply: v Keys must be listed in decreasing order of significance. v The total number of keys for a given table element must not exceed 12. v The data in the table must be arranged in ascending or descending sequence according to the collating sequence in use. v The key must be described with one of the following usages: BINARY DISPLAY DISPLAY-1 NATIONAL PACKED-DECIMAL COMPUTATIONAL COMPUTATIONAL-1 COMPUTATIONAL-2 COMPUTATIONAL-3 COMPUTATIONAL-4 COMPUTATIONAL-5 v A key described with usage NATIONAL can have one of the following categories: national, national-edited, numeric-edited, numeric, or external floating-point. v The sum of the lengths of all the keys associated with one table element must not exceed 256. v If a key is specified without qualifiers and it is not a unique name, the key will be implicitly qualified with the subject of the OCCURS clause and all qualifiers of the OCCURS clause subject. The following example illustrates the specification of ASCENDING KEY data items:
| | |
190
WORKING-STORAGE SECTION. 01 TABLE-RECORD. 05 EMPLOYEE-TABLE OCCURS 100 TIMES ASCENDING KEY IS WAGE-RATE EMPLOYEE-NO INDEXED BY A, B. 10 EMPLOYEE-NAME PIC X(20). 10 EMPLOYEE-NO PIC 9(6). 10 WAGE-RATE PIC 9999V99. 10 WEEK-RECORD OCCURS 52 TIMES ASCENDING KEY IS WEEK-NO INDEXED BY C. 15 WEEK-NO PIC 99. 15 AUTHORIZED-ABSENCES PIC 9. 15 UNAUTHORIZED-ABSENCES PIC 9. 15 LATE-ARRIVALS PIC 9.
The keys for EMPLOYEE-TABLE are subordinate to that entry, and the key for WEEK-RECORD is subordinate to that subordinate entry. In the preceding example, records in EMPLOYEE-TABLE must be arranged in ascending order of WAGE-RATE, and in ascending order of EMPLOYEE-NO within WAGE-RATE. Records in WEEK-RECORD must be arranged in ascending order of WEEK-NO. If they are not, results of any SEARCH ALL statement are unpredictable.
INDEXED BY phrase
The INDEXED BY phrase specifies the indexes that can be used with a table. A table without an INDEXED BY phrase can be referred to through indexing by using an index-name associated with another table. See Subscripting using index-names (indexing) on page 65. Indexes normally are allocated in static memory associated with the program that contains the table. Thus indexes are in the last-used state when a program is reentered. However, in the following cases, indexes are allocated on a per-invocation basis. Thus you must set the value of the index on every entry for indexes on tables in the following sections: v The local-storage section v The working-storage section of a class definition (object instance variables) v The linkage section of: Methods Programs compiled with the RECURSIVE clause Programs compiled with the THREAD option Indexes specified in an external data record do not possess the external attribute. index-name-1 Each index-name specifies an index to be created by the compiler for use by the program. These index-names are not data-names and are not identified elsewhere in the COBOL program; instead, they can be regarded as private special registers for the use of this object program only. They are not data and are not part of any data hierarchy. Unreferenced index names need not be uniquely defined. In one table entry, up to 12 index-names can be specified. If a data item that possesses the global attribute includes a table accessed with an index, that index also possesses the global attribute. Therefore, the
191
scope of an index-name is the same as that of the data-name that names the table in which the index is defined.
Variable-length tables
Variable-length tables are specified using the OCCURS DEPENDING ON clause.
data-name-1
ASCENDING DESCENDING
data-name-2 KEY IS
INDEXED BY
index-name-1
integer-1 The minimum number of occurrences. The value of integer-1 must be greater than or equal to zero; it must also be less than the value of integer-2. If integer-1 is omitted, a value of 1 is assumed and the keyword TO must also be omitted. integer-2 The maximum number of occurrences. integer-2 must be greater than integer-1. The length of the subject item is fixed. Only the number of repetitions of the subject item is variable.
192
The object of the OCCURS DEPENDING ON clause (data-name-1) must describe an integer data item. The object cannot be a windowed date field. The object of the OCCURS DEPENDING ON clause must not occupy any storage position within the range of the table (that is, any storage position from the first character position in the table through the last character position in the table). The object of the OCCURS DEPENDING ON clause cannot be variably located; the object cannot follow an item that contains an OCCURS DEPENDING ON clause. If the OCCURS clause is specified in a data description entry included in a record description entry that contains the EXTERNAL clause, data-name-1, if specified, must reference a data item that possesses the external attribute. data-name-1 must be described in the same data division as the subject of the entry. If the OCCURS clause is specified in a data description entry subordinate to one that contains the GLOBAL clause, data-name-1, if specified, must be a global name. data-name-1 must be described in the same data division as the subject of the entry. All data-names used in the OCCURS clause can be qualified; they cannot be subscripted or indexed. At the time that the group item, or any data item that contains a subordinate OCCURS DEPENDING ON item or that follows but is not subordinate to the OCCURS DEPENDING ON item, is referenced, the value of the object of the OCCURS DEPENDING ON clause must fall within the range integer-1 through integer-2. When a group item that contains a subordinate OCCURS DEPENDING ON item is referred to, the part of the table area used in the operation is determined as follows: v If the object is outside the group, only that part of the table area that is specified by the object at the start of the operation is used. v If the object is included in the same group and the group data item is referenced as a sending item, only that part of the table area that is specified by the value of the object at the start of the operation is used in the operation. v If the object is included in the same group and the group data item is referenced as a receiving item, the maximum length of the group item is used in the operation. The following statements are affected by the maximum length rule: v ACCEPT identifier (format 1 and 2) v CALL ... USING BY REFERENCE identifier v v v v v v v v INVOKE ... USING BY REFERENCE identifier MOVE ... TO identifier READ ... INTO identifier RELEASE identifier FROM ... RETURN ... INTO identifier REWRITE identifier FROM ... STRING ... INTO identifier UNSTRING ... INTO identifier DELIMITER IN identifier
Chapter 19. Data divisiondata description entry
193
v WRITE identifier FROM ... If a variable-length group item is not followed by a nonsubordinate item, the maximum length of the group is used when it appears as the identifier in CALL ... USING BY REFERENCE identifier. Therefore, the object of the OCCURS DEPENDING ON clause does not need to be set unless the group is variably located. If the group item is followed by a nonsubordinate item, the actual length, rather than the maximum length, is used. At the time the subject of entry is referenced, or any data item subordinate or superordinate to the subject of entry is referenced, the object of the OCCURS DEPENDING ON clause must fall within the range integer-1 through integer-2. Certain uses of the OCCURS DEPENDING ON clause result in complex OCCURS DEPENDING ON (ODO) items. The following constitute complex ODO items: v A data item described with an OCCURS DEPENDING ON clause that is followed by a nonsubordinate elementary data item, described with or without an OCCURS clause v A data item described with an OCCURS DEPENDING ON clause that is followed by a nonsubordinate group item v A group item that contains one or more subordinate items described with an OCCURS DEPENDING ON clause v A data item described with an OCCURS clause or an OCCURS DEPENDING ON clause that contains a subordinate data item described with an OCCURS DEPENDING ON clause (a table that contains variable-length elements) v An index-name associated with a table that contains variable-length elements The object of an OCCURS DEPENDING ON clause cannot be a nonsubordinate item that follows a complex ODO item. Any nonsubordinate item that follows an item described with an OCCURS DEPENDING ON clause is a variably located item. That is, its location is affected by the value of the OCCURS DEPENDING ON object. When implicit redefinition is used in a File Description (FD) entry, subordinate level items can contain OCCURS DEPENDING ON clauses. The INDEXED BY phrase can be specified for a table that has a subordinate item that contains an OCCURS DEPENDING ON clause. For more information about complex OCCURS DEPENDING ON, see the Enterprise COBOL Programming Guide. The ASCENDING KEY phrase, the DESCENDING KEY phrase, and the INDEXED BY clause are described under Fixed-length tables on page 189.
PICTURE clause
The PICTURE clause specifies the general characteristics and editing requirements of an elementary item.
194
Format
PICTURE PIC character-string IS
PICTURE or PIC The PICTURE clause must be specified for every elementary item except the following: v Index data items v The subject of the RENAMES clause v Items described with USAGE POINTER, USAGE FUNCTION-POINTER, USAGE PROCEDURE-POINTER, or USAGE OBJECT REFERENCE v Internal floating-point data items In these cases, use of the PICTURE clause is prohibited. The PICTURE clause can be specified only at the elementary level. PIC is an abbreviation for PICTURE and has the same meaning. character-string character-string is made up of certain COBOL characters used as picture symbols. The allowable combinations determine the category of the elementary data item. character-string can contain a maximum of 50 characters.
All other lowercase letters are not equivalent to their corresponding uppercase representations. PICTURE clause symbol meanings (Table 12 on page 196) defines the meaning of each PICTURE clause symbol. The heading Size indicates how the item is counted in determining the number of character positions represented by the item. The type of the character positions depends on the USAGE clause specified for the item, as follows:
Usage DISPLAY DISPLAY-1 Type of character positions Alphanumeric DBCS Number of bytes per character 1 2
| | | | | | |
195
| | |
Table 12. PICTURE clause symbol meanings Symbol Meaning A character position that can contain only a letter of the Latin alphabet or a space. For usage DISPLAY, a character position into which an alphanumeric space is inserted. For usage DISPLAY-1, a character position into which a DBCS space is inserted. For usage NATIONAL, a character position into which a national space is inserted. E Marks the start of the exponent in an Each E is counted as one character external floating-point item. For position in the size of the data item. additional details of external floating-point items, see Data categories and PICTURE rules (External floating-point items on page 206). A DBCS character position. Each G is counted as one character position in the size of the data item. Size Each A is counted as one character position in the size of the data item. Each B is counted as one character position in the size of the data item.
| | | | | | | | | | | | |
| | | |
G N
A DBCS character position when Each N is counted as one character specified with usage DISPLAY-1 or position in the size of the data item. when usage is unspecified and the NSYMBOL(DBCS) compiler option is in effect. For category national, a national character position when specified with usage NATIONAL or when usage is unspecified and the NSYMBOL(NATIONAL) compiler option is in effect. For category national-edited, a national character position.
| | |
| |
P
An assumed decimal scaling position. Used to specify the location of an assumed decimal point when the point is not within the number that appears in the data item. See also P symbol on page 199.
Not counted in the size of the data item. Scaling position characters are counted in determining the maximum number of digit positions in numeric-edited items or in items that are used as arithmetic operands. The size of the value is the number of digit positions represented by the PICTURE character-string.
196
Table 12. PICTURE clause symbol meanings (continued) Symbol S Meaning An indicator of the presence (but not the representation, and not necessarily the position) of an operational sign. An operational sign indicates whether the value of an item involved in an operation is positive or negative. An indicator of the location of the assumed decimal point. Does not represent a character position. When the assumed decimal point is to the right of the rightmost symbol in the string, the V is redundant. Size Not counted in the size of the elementary item, unless an associated SIGN clause specifies the SEPARATE CHARACTER phrase (which would be counted as one character position). Not counted in the size of the elementary item.
| | | | | |
A character position that can contain any allowable character from the alphanumeric character set of the computer. A leading numeric character position. When that position contains a zero, a space character replaces the zero. A character position that contains a numeral. A character position into which the numeral zero is inserted. A character position into which the slash character is inserted. A character position into which a comma is inserted.
Each X is counted as one character position in the size of the data item.
Each Z is counted as one character position in the size of the data item. Each nine is counted as one character position in the size of the data item. Each zero is counted as one character position in the size of the data item. Each slash character is counted as one character position in the size of the data item. Each comma is counted as one character position in the size of the data item.
9 0 /
An editing symbol that represents the Each period is counted as one character decimal point for alignment purposes. position in the size of the data item. In addition, it represents a character position into which a period is inserted. Editing sign control symbols. Each represents the character position into which the editing sign control symbol is placed. Each character used in the editing sign symbol is counted as one character position in the size of the data item.
+ CR DB *
A check protect symbol: a leading Each asterisk is counted as one numeric character position into which character position in the size of the an asterisk is placed when that position item. contains a zero.
197
Table 12. PICTURE clause symbol meanings (continued) Symbol cs Meaning cs can be any valid currency symbol. A currency symbol represents a character position into which a currency sign value is placed. The default currency symbol is the character assigned the value X5B in the code page in effect at compile time. In this document, the default currency symbol is represented by the dollar sign ($) and cs stands for any valid currency symbol. For details, see Currency symbol on page 200. Size The first occurrence of a currency symbol adds the number of characters in the currency sign value to the size of the data item. Each subsequent occurrence adds one character position to the size of the data item.
The following figure shows the sequences in which picture symbols can be specified to form picture character-strings. More detailed explanations of PICTURE clause symbols follow the figure.
198
P symbol
The symbol P specifies a scaling position and implies an assumed decimal point (to the left of the Ps if the Ps are leftmost PICTURE characters; to the right of the Ps if the Ps are rightmost PICTURE characters). The assumed decimal point symbol V is redundant as either the leftmost or rightmost character within such a PICTURE description. The symbol P can be specified only as a continuous string of Ps in the leftmost or rightmost digit positions within a PICTURE character-string. In certain operations that reference a data item whose PICTURE character-string contains the symbol P, the algebraic value of the data item is used rather than the
Chapter 19. Data divisiondata description entry
199
actual character representation of the data item. This algebraic value assumes the decimal point in the prescribed location and zero in place of the digit position specified by the symbol P. The size of the value is the number of digit positions represented by the PICTURE character-string. These operations are any of the following: v Any operation that requires a numeric sending operand v A MOVE statement where the sending operand is numeric and its PICTURE character-string contains the symbol P v A MOVE statement where the sending operand is numeric-edited and its PICTURE character-string contains the symbol P, and the receiving operand is numeric or numeric-edited v A comparison operation where both operands are numeric In all other operations, the digit positions specified with the symbol P are ignored and are not counted in the size of the operand.
Currency symbol
The currency symbol in a picture character-string is represented by the default currency symbol $ or by a single character specified either in the CURRENCY compiler option or in the CURRENCY SIGN clause in the SPECIAL-NAMES paragraph of the environment division. Although the default currency symbol is represented by $ in this document, the actual default currency symbol is the character with the value X5B in the EBCDIC code page in effect at compile time. If the CURRENCY SIGN clause is specified, the CURRENCY and NOCURRENCY compiler options are ignored. If the CURRENCY SIGN clause is not specified and the NOCURRENCY compiler option is in effect, the dollar sign ($) is used as the default currency sign value and currency symbol. For more information about the CURRENCY SIGN clause, see CURRENCY SIGN clause on page 114. For more information about the CURRENCY and NOCURRENCY compiler options, see the Enterprise COBOL Programming Guide. A currency symbol can be repeated within the PICTURE character-string to specify floating insertion. Different currency symbols must not be used in the same PICTURE character-string. Unlike all other picture symbols, currency symbols are case sensitive. For example, D and d specify different currency symbols. A currency symbol can be used only to define a numeric-edited item with USAGE DISPLAY.
Character-string representation
Symbols that can appear more than once The following symbols can appear more than once in one PICTURE character-string:
A B G N P X Z 9 0 / , + - * cs
At least one of the symbols A, G, N, X, Z, 9, or *, or at least two of the symbols +, -, or cs must be present in a PICTURE string.
200
An unsigned nonzero integer enclosed in parentheses immediately following any of these symbols specifies the number of consecutive occurrences of that symbol. Example: The following two PICTURE clause specifications are equivalent:
PICTURE IS $99999.99CR PICTURE IS $9(5).9(2)CR
Symbols that can appear only once The following symbols can appear only once in one PICTURE character-string:
E S V . CR DB
Except for the PICTURE symbol V, each occurrence of any of the above symbols in a given PICTURE character-string represents an occurrence of that character or set of allowable characters in the data item.
Alphabetic items
The PICTURE character-string can contain only the symbol A. The content of the item must consist only of letters of the Latin alphabet and the space character. Other clauses: USAGE DISPLAY must be specified or implied. Any associated VALUE clause must specify an alphanumeric literal containing only alphabetic characters, SPACE, or a symbolic-character as the value of a figurative constant.
Numeric items
Types of numeric items are: v Binary v Packed decimal (internal decimal) v Zoned decimal (external decimal) v National decimal (external decimal)
201
The type of a numeric item is defined by the usage clause as shown in the table below.
Table 13. Numeric types
| | | | |
Type Binary Internal decimal Zoned decimal (external decimal) National decimal (external decimal)
USAGE clause BINARY, COMP, COMP-4, or COMP-5 PACKED-DECIMAL, COMP-3 DISPLAY NATIONAL
For numeric date fields, the PICTURE character-string can contain only the symbols 9 and S. For all other numeric fields, the PICTURE character-string can contain only the symbols 9, P, S, and V. The symbol S can be written only as the leftmost character in the PICTURE character-string. The symbol V can be written only once in a given PICTURE character-string. For binary items, the number of digit positions must range from 1 through 18 inclusive. For packed decimal and zoned decimal items the number of digit positions must range from 1 through 18, inclusive, when the ARITH(COMPAT) compiler option is in effect, or from 1 through 31, inclusive, when the ARITH(EXTEND) compiler option is in effect. For numeric date fields, the number of digit positions must match the number of characters specified by the DATE FORMAT clause. If unsigned, the contents of the item in standard data format must contain a combination of the Arabic numerals 0-9. If signed, it can also contain a +, -, or other representation of the operational sign.
| | | | |
Other clauses: The USAGE of the item can be DISPLAY, NATIONAL, BINARY, COMPUTATIONAL, PACKED-DECIMAL, COMPUTATIONAL-3, COMPUTATIONAL-4, or COMPUTATIONAL-5. For signed numeric items described with usage NATIONAL, the SIGN IS SEPARATE clause must be specified or implied. A VALUE clause associated with an elementary numeric item must specify a numeric literal or the figurative constant ZERO. The value is assigned without editing. A VALUE clause associated with an alphanumeric group item consisting of elementary numeric items must specify an alphanumeric literal or figurative constant ZERO.
| | | | |
202
| | |
A VALUE clause associated with a national group item consisting of elementary numeric items must specify an alphanumeric or national literal or figurative constant ZERO. The NUMPROC and TRUNC compiler options can affect the use of numeric data items. For details, see the Enterprise COBOL Programming Guide.
Numeric-edited items
The PICTURE character-string can contain the following symbols:
B P V Z 9 0 / , . + - CR DB * cs
The combinations of symbols allowed are determined from the PICTURE clause symbol order allowed (see the figure in Symbols used in the PICTURE clause on page 195), and the editing rules (see PICTURE clause editing on page 207). The following rules apply: v Either the BLANK WHEN ZERO clause must be specified for the item, or the string must contain at least one of the following symbols:
B / Z 0 , . * + CR DB cs
v Only one of the following symbols can be written in a given PICTURE character-string:
+ CR DB
v If the ARITH(COMPAT) compiler option is in effect, then the number of digit positions represented in the character-string must be in the range 1 through 18, inclusive. If the ARITH(EXTEND) compiler option is in effect, then the number of digit positions represented in the character-string must be in the range 1 through 31, inclusive. v The total number of character positions in the string (including editing-character positions) must not exceed 249. v The contents of those character positions representing digits in standard data format must be one of the 10 Arabic numerals. | | | | | | Other clauses: USAGE DISPLAY or NATIONAL must be specified or implied. If the usage of the item is DISPLAY, any associated VALUE clause must specify an alphanumeric literal or a figurative constant. The value is assigned without editing. If the usage of the item is NATIONAL, any associated VALUE clause must specify an alphanumeric literal, a national literal, or a figurative constant. The value is assigned without editing.
Alphanumeric items
The PICTURE character-string must consist of either of the following: v One or more occurrences of the symbol X. v Combinations of the symbols A, X, and 9. (A character-string containing all As or all 9s does not define an alphanumeric item.) The item is treated as if the character-string contained only the symbol X. The contents of the item in standard data format can be any allowable characters from the character set of the computer. Other clauses: USAGE DISPLAY must be specified or implied.
203
| | | | | | | | |
Any associated VALUE clause must specify an alphanumeric literal or one of the following figurative constants: v ZERO v SPACE v v v v v QUOTE HIGH-VALUE LOW-VALUE symbolic-character ALL alphanumeric-literal
Alphanumeric-edited items
The PICTURE character-string can contain the following symbols:
A X 9 B 0 /
The string must contain at least one A or X, and at least one B or 0 (zero) or /. The contents of the item in standard data format must be two or more characters from the character set of the computer. Other clauses: USAGE DISPLAY must be specified or implied. | | | | | | | | | Any associated VALUE clause must specify an alphanumeric literal or or one of the following figurative constants: v ZERO v SPACE v QUOTE v v v v HIGH-VALUE LOW-VALUE symbolic-character ALL alphanumeric-literal
DBCS items
The PICTURE character-string can contain the symbols G, G and B, or N. Each G, B, or N represents a single DBCS character position. | | Any associated VALUE clause must contain a DBCS literal, the figurative constant SPACE, or the figurative constant ALL DBCS-literal. Other clauses: When PICTURE symbol G is used, USAGE DISPLAY-1 must be specified. When PICTURE symbol N is used and the NSYMBOL(DBCS) compiler option is in effect, USAGE DISPLAY-1 is implied if the USAGE clause is omitted.
National items
The PICTURE character-string can contain one or more occurrences of the picture symbol N. These rules apply when the NSYMBOL(NATIONAL) compiler option is in effect or the USAGE NATIONAL clause is specified. In the absence of a USAGE NATIONAL clause, if the NSYMBOL(DBCS) compiler option is in effect, picture symbol N represents a DBCS character and the rules of the PICTURE clause for a DBCS item apply.
204
Each N represents a single national character position. | | Any associated VALUE clause must specify an alphanumeric literal, a national literal, or one of the following figurative constants: v ZERO v SPACE v QUOTE v HIGH-VALUE v LOW-VALUE v symbolic-character v ALL alphanumeric-literal v ALL national-literal Other clauses: Only the NATIONAL phrase can be specified in the USAGE clause. When PICTURE symbol N is used and the NSYMBOL(NATIONAL) compiler option is in effect, USAGE NATIONAL is implied if the usage clause is omitted. The following clauses can be used: v JUSTIFIED v EXTERNAL v GLOBAL v OCCURS v REDEFINES v RENAMES v SYNCHRONIZED The following clauses cannot be used: v BLANK WHEN ZERO v SIGN v DATE FORMAT
| | | |
National-edited items
| | | The PICTURE character-string must contain the following: v At least one symbol N, and v At least one of the symbols B 0 (zero) or / (slash) Each symbol represents a single national character position. | | | | | | | | | | Any associated VALUE clause must specify an alphanumeric literal, a national literal, or one of the following figurative constants: v ZERO v SPACE v QUOTE v HIGH-VALUE v LOW-VALUE v symbolic-character v ALL alphanumeric-literal v ALL national-literal
205
| | | | | | | | | | | | | | | |
The literal is treated exactly as specified; no editing is done. The NSYMBOL(NATIONAL) compiler option has no effect on the definition of a data item of category national-edited. Other clauses: USAGE NATIONAL must be specified or implied. The following clauses can be used: v JUSTIFIED v v v v v v EXTERNAL GLOBAL OCCURS REDEFINES RENAMES SYNCHRONIZED
The following clauses cannot be used: v BLANK WHEN ZERO v SIGN v DATE FORMAT
+ or -
A sign character must immediately precede both the mantissa and the exponent. A + sign indicates that a positive sign will be used in the output to represent positive values and that a negative sign will represent negative values. A - sign indicates that a blank will be used in the output to represent positive values and that a negative sign will represent negative values. Each sign position occupies one byte of storage.
An actual decimal point can be represented with a period (.) while an assumed decimal point is represented by a V. Either an actual or an assumed decimal point must be present in the mantissa; the decimal point can be leading, embedded, or trailing. The mantissa can contain from 1 to 16 numeric characters. E Indicates the exponent.
206
exponent The exponent must consist of the symbol 99. | | | | | | | | | | The DISPLAY phrase of the USAGE clause and a floating-point picture character-string define the item as a display floating-point data item. The NATIONAL phrase of the USAGE clause and a floating-point picture character-string define the item as a national floating-point data item. For items defined with usage DISPLAY, each picture symbol except V defines one alphanumeric character position in the item. For items defined with usage NATIONAL, each picture symbol except V defines one national character position in the item. Other clauses: The DISPLAY phrase or the NATIONAL phrase of the USAGE clause must be specified or implied. The OCCURS, REDEFINES, and RENAMES clauses can be associated with external floating-point items. The SIGN clause is accepted as documentation and has no effect on the representation of the sign. The SYNCHRONIZED clause is treated as documentation. The following clauses are invalid with external floating-point items: v BLANK WHEN ZERO v JUSTIFIED v VALUE
207
Table 14. Data categories (continued) Data category Numeric-edited Type of editing Simple insertion Special insertion Fixed insertion Floating insertion Zero suppression Replacement Alphanumeric Alphanumeric-edited DBCS External floating-point National None Simple insertion Simple insertion Special insertion None Simple insertion Insertion symbol B0/, . cs + - CR DB cs + Z* Z * + - cs None B0/ B . None B0/
National-edited
Types of editing are described in the following sections: v Simple insertion editing v Special insertion editing on page 209 v Fixed insertion editing on page 209 v Floating insertion editing on page 210 v Zero suppression and replacement editing on page 211
208
209
For example:
PICTURE 999.99+ +9999.99 9999.99 $999.99 -$999.99 -$999.99 $9999.99CR $9999.99CR Value of data +6555.556 -6555.555 +1234.56 -123.45 -123.456 +123.456 +123.45 -123.45 Edited result 555.55+ -6555.55 1234.56 $123.45 -$123.45 $123.45 $0123.45 $0123.45DB
Within one PICTURE character-string, these symbols are mutually exclusive as floating insertion characters. Floating insertion editing is specified by using a string of at least two of the allowable floating insertion symbols to represent leftmost character positions into which the actual characters can be inserted. The leftmost floating insertion symbol in the character-string represents the leftmost limit at which the actual character can appear in the data item. The rightmost floating insertion symbol represents the rightmost limit at which the actual character can appear. The second leftmost floating insertion symbol in the character-string represents the leftmost limit at which numeric data can appear within the data item. Nonzero numeric data can replace all characters at or to the right of this limit. Any simple-insertion symbols (B 0 / ,) within or to the immediate right of the string of floating insertion symbols are considered part of the floating character-string. If the period (.) special-insertion symbol is included within the floating string, it is considered to be part of the character-string. To avoid truncation, the minimum size of the PICTURE character-string must be: v The number of character positions in the sending item, plus v The number of nonfloating insertion symbols in the receiving item, plus v One character position for the floating insertion symbol
210
nonzero digit in the data, or of the decimal point, whichever is farther to the left. The character positions to the left of the inserted character are filled with spaces. If all numeric character positions in the PICTURE character-string are represented by the insertion character, then at least one of the insertion characters must be to the left of the decimal point. 2. All the numeric character positions are represented by the floating insertion symbol. When editing is performed, then: v If the value of the data is zero, the entire data item will contain spaces. v If the value of the data is nonzero, the result is the same as in rule 1. For example:
PICTURE $$$$.99 $$$9.99 $,$$$,999.99 +,+++,999.99 $$,$$$,$$$.99CR ++,+++,+++.+++ Value of data .123 .12 -1234.56 -123456.789 -1234567 0000.00 Edited result $.12 $0.12 $1,234.56 -123,456.78 $1,234,567.00CR
211
v That is the decimal point 2. All the numeric character positions in the PICTURE character-string are represented by the suppression symbols. When editing is performed and the value of the data is nonzero, the result is the same as in the preceding rule. If the value of the data is zero, then: v If Z has been specified, the entire data item will contain spaces. v If * has been specified, the entire data item except the actual decimal point will contain asterisks. For example:
PICTURE ****.** ZZZZ.ZZ ZZZZ.99 ****.99 ZZ99.99 Z,ZZZ.ZZ+ *,***.**+ **,***,***.**+ $Z,ZZZ,ZZZ.ZZCR $B*,***,***.**BBDB Value of data 0000.00 0000.00 0000.00 0000.00 0000.00 +123.456 -123.45 +12345678.9 +12345.67 -12345.67 .00 ****.00 00.00 123.45+ **123.4512,345,678.90+ $ 12,345.67 DB Edited result ****.**
$ ***12,345.67
Do not specify both the asterisk (*) as a suppression symbol and the BLANK WHEN ZERO clause for the same entry.
REDEFINES clause
The REDEFINES clause allows you to use different data description entries to describe the same computer storage area.
Format
level-number data-name-1 FILLER REDEFINES data-name-2
(level-number, data-name-1, and FILLER are not part of the REDEFINES clause, and are included in the format only for clarity.) When specified, the REDEFINES clause must be the first entry following data-name-1 or FILLER. If data-name-1 or FILLER is not specified, the REDEFINES clause must be the first entry following the level-number. data-name-1, FILLER Identifies an alternate description for the data area identified by data-name-2; data-name-1 is the redefining item or the REDEFINES subject.
212
Neither data-name-1 nor any of its subordinate entries can contain a VALUE clause. data-name-2 Identifies the redefined item or the REDEFINES object. The data description entry for data-name-2 can contain a REDEFINES clause. | | | | The data description entry for data-name-2 cannot contain an OCCURS clause. However, data-name-2 can be subordinate to an item whose data description entry contains an OCCURS clause; in this case, the reference to data-name-2 in the REDEFINES clause must not be subscripted. Neither data-name-1 nor data-name-2 can contain an OCCURS DEPENDING ON clause. data-name-1 and data-name-2 must have the same level in the hierarchy; however, the level numbers need not be the same. Neither data-name-1 nor data-name-2 can be defined with level number 66 or 88. data-name-1 and data-name-2 can each be described with any usage. Redefinition begins at data-name-1 and ends when a level-number less than or equal to that of data-name-1 is encountered. No entry that has a level-number numerically lower than those of data-name-1 and data-name-2 can occur between these entries. In In the following example:
05 05 A PICTURE X(6). B REDEFINES A. 10 B-1 PICTURE X(2). 10 B-2 PICTURE 9(4). 05 C PICTURE 99V99.
A is the redefined item, and B is the redefining item. Redefinition begins with B and includes the two subordinate items B-1 and B-2. Redefinition ends when the level-05 item C is encountered. If the GLOBAL clause is used in the data description entry that contains the REDEFINES clause, only data-name-1 (the redefining item) possesses the global attribute. For example, in the following description, only item B possesses the GLOBAL attribute:
05 05 A PICTURE X(6). B REDEFINES A GLOBAL PICTURE X(4).
| | | |
The EXTERNAL clause must not be specified in the same data description entry as a REDEFINES clause. | | | | | | | | | | If the redefined data item (data-name-2) is declared to be an external data record, the size of the redefining data item (data-name-1) must not be greater than the size of the redefined data item. If the redefined data item is not declared to be an external data record, there is no such constraint. The following example shows that the redefining item, B, can occupy more storage than the redefined item, A. The size of storage for the REDEFINED clause is determined in number of bytes. Item A occupies 6 bytes of storage and item B, a data item of category national, occupies 8 bytes of storage.
05 05 A PICTURE X(6). B REDEFINES A GLOBAL PICTURE N(4).
Chapter 19. Data divisiondata description entry
213
| |
One or more redefinitions of the same storage area are permitted. The entries that give the new descriptions of the storage area must immediately follow the description of the redefined area without intervening entries that define new character positions. Multiple redefinitions can, but need not, all use the data-name of the original entry that defined this storage area. For example:
05 05 05 A B REDEFINES A C REDEFINES A PICTURE 9999. PICTURE 9V999. PICTURE 99V99.
| | | | |
Also, multiple redefinitions can use the name of the preceding definition as shown in the following example:
05 05 05 A B REDEFINES A C REDEFINES B PICTURE 9999. PICTURE 9V999. PICTURE 99V99.
When more than one level-01 entry is written subordinate to an FD entry, a condition known as implicit redefinition occurs. That is, the second level-01 entry implicitly redefines the storage allotted for the first entry. In such level-01 entries, the REDEFINES clause must not be specified. When the data item implicitly redefines multiple 01-level records in a file description (FD) entry, items subordinate to the redefining or redefined item can contain an OCCURS DEPENDING ON clause.
Redefining B does not change the bit configuration of the data in the storage area. Therefore, the following two statements produce different results:
ADD B TO A ADD C TO A
In the first case, the value 8 is added to A (because B has USAGE DISPLAY). In the second statement, the value -3848 is added to A (because C has USAGE COMPUTATIONAL-4), and the bit configuration of the storage area has the binary value -3848. This example demonstrates how the improper use of redefinition can give unexpected or incorrect results.
214
redefines SEMI-MONTHLY-PAY (which is within the scope of REGULAR-EMPLOYEE, while REGULAR-EMPLOYEE is redefined by TEMPORARY-EMPLOYEE).
05 REGULAR-EMPLOYEE. 10 LOCATION PICTURE A(8). 10 GRADE PICTURE X(4). 10 SEMI-MONTHLY-PAY PICTURE 9999V99. 10 WEEKLY-PAY REDEFINES SEMI-MONTHLY-PAY PICTURE 999V999. 05 TEMPORARY-EMPLOYEE REDEFINES REGULAR-EMPLOYEE. 10 LOCATION PICTURE A(8). 10 FILLER PICTURE X(6). 10 HOURLY-PAY PICTURE 99V99.
The REDEFINES clause can also be specified for an item subordinate to a redefining item, as shown for CODE-H REDEFINES HOURLY-PAY in the following example:
05 REGULAR-EMPLOYEE. 10 LOCATION PICTURE A(8). 10 GRADE PICTURE X(4). 10 SEMI-MONTHLY-PAY PICTURE 999V999. 05 TEMPORARY-EMPLOYEE REDEFINES REGULAR-EMPLOYEE. 10 LOCATION PICTURE A(8). 10 FILLER PICTURE X(6). 10 HOURLY-PAY PICTURE 99V99. 10 CODE-H REDEFINES HOURLY-PAY PICTURE 9999.
Data items within an area can be redefined without changing their lengths. For example:
05 NAME-2. 10 SALARY PICTURE 10 SO-SEC-NO PICTURE 10 MONTH PICTURE 05 NAME-1 REDEFINES NAME-2. 10 WAGE PICTURE 10 EMP-NO PICTURE 10 YEAR PICTURE XXX. X(9). XX. XXX. X(9). XX.
Data item lengths and types can also be respecified within an area. For example:
05 NAME-2. 10 SALARY PICTURE 10 SO-SEC-NO PICTURE 10 MONTH PICTURE 05 NAME-1 REDEFINES NAME-2. 10 WAGE PICTURE 10 EMP-NO PICTURE 10 YEAR PICTURE XXX. X(9). XX. 999V999. X(6). XX.
| |
Data items can also be respecified with a length that is greater than the length of the redefined item. For example:
05 NAME-2. 10 SALARY PICTURE 10 SO-SEC-NO PICTURE 10 MONTH PICTURE 05 NAME-1 REDEFINES NAME-2. 10 WAGE PICTURE 10 EMP-NO PICTURE 10 YEAR PICTURE XXX. X(9). XX. 999V999. X(6). X(4).
This does not change the length of the redefined item NAME-2.
215
Undefined results
Undefined results can occur when: v A redefining item is moved to a redefined item (that is, if B REDEFINES C and the statement MOVE B TO C is executed). v A redefined item is moved to a redefining item (that is, if B REDEFINES C and the statement MOVE C TO B is executed).
RENAMES clause
The RENAMES clause specifies alternative and possibly overlapping groupings of elementary data items.
Format
66 data-name-1 RENAMES data-name-2 THROUGH THRU data-name-3
The special level-number 66 must be specified for data description entries that contain the RENAMES clause. (Level-number 66 and data-name-1 are not part of the RENAMES clause, and are included in the format only for clarity.) One or more RENAMES entries can be written for a logical record. All RENAMES entries associated with one logical record must immediately follow that records last data description entry. data-name-1 Identifies an alternative grouping of data items. A level-66 entry cannot rename a level-01, level-77, level-88, or another level-66 entry. data-name-1 cannot be used as a qualifier; it can be qualified only by the names of level indicator entries or level-01 entries. data-name-2, data-name-3 Identify the original grouping of elementary data items; that is, they must name elementary or group items within the associated level-01 entry and must not be the same data-name. Both data-names can be qualified. | | | | | | | data-name-2 and data-name-3 can each reference any of the following: v An elementary data item v An alphanumeric group item v A national group item When data-name-2 or data-name-3 references a national group item, the referenced item is processed as a group (not as an elementary data item of category national). The OCCURS clause must not be specified in the data entries for data-name-2 and data-name-3, or for any group entry to which they are subordinate. In addition, the OCCURS DEPENDING clause must not be specified for any item defined between data-name-2 and data-name-3.
216
The keywords THROUGH and THRU are equivalent. | | | When the THROUGH phrase is specified: v data-name-1 defines an alphanumeric group item that includes all the elementary items that: Start with data-name-2 if it is an elementary item, or the first elementary item within data-name-2 if it is a group item End with data-name-3 if it is an elementary item, or the last elementary item within data-name-3 if it is an alphanumeric group item or national group item v The storage area occupied by the starting item through the ending item becomes the storage area occupied by data-name-1. Usage note: The group defined with the THROUGH phrase can include data items of usage NATIONAL. The leftmost character position in data-name-3 must not precede the leftmost character position in data-name-2, and the rightmost character position in data-name-3 must not precede the rightmost character position in data-name-2. This means that data-name-3 cannot be totally subordinate to data-name-2. | | | | | | | | | When the THROUGH phrase is not specified: v The storage area occupied by data-name-2 becomes the storage area occupied by data-name-1. v All of the data attributes of data-name-2 become the data attributes for data-name-1. That is: When data-name-2 is an alphanumeric group item, data-name-1 is an alphanumeric group item. When data-name-2 is a national group item, data-name-1 is a national group item. When data-name-2 is an elementary item, data-name-1 is an elementary item. The following figure illustrates valid and invalid RENAMES clause specifications.
| | | |
217
SIGN clause
The SIGN clause specifies the position and mode of representation of the operational sign for the signed numeric item to which it applies. The SIGN clause is required only when an explicit description of the properties or position of the operational sign is necessary.
218
Format
LEADING TRAILING IS
SIGN
SEPARATE CHARACTER
The SIGN clause can be specified only for the following items: v An elementary numeric data item of usage DISPLAY or NATIONAL that is described with an S in its picture character string, or v A group item that contains at least one such elementary entry as a subordinate item | | | | | | When the SIGN clause is specified at the group level, that SIGN clause applies only to subordinate signed numeric elementary data items of usage DISPLAY or NATIONAL. Such a group can also contain items that are not affected by the SIGN clause. If the SIGN clause is specified for a group or elementary entry that is subordinate to a group item that has a SIGN clause, the SIGN clause for the subordinate entry takes precedence for that subordinate entry. The SIGN clause is treated as documentation for external floating-point items. | | | When the SIGN clause is specified without the SEPARATE phrase, USAGE DISPLAY must be specified explicitly or implicitly. When SIGN IS SEPARATE is specified, either USAGE DISPLAY or USAGE NATIONAL can be specified. If you specify the CODE-SET clause in an FD entry, any signed numeric data description entries associated with that file description entry must be described with the SIGN IS SEPARATE clause. If the SEPARATE CHARACTER phrase is not specified, then: v The operational sign is presumed to be associated with the LEADING or TRAILING digit position, whichever is specified, of the elementary numeric data item. (In this instance, specification of SIGN IS TRAILING is the equivalent of the standard action of the compiler.) v The character S in the PICTURE character string is not counted in determining the size of the item (in terms of standard data format characters). If the SEPARATE CHARACTER phrase is specified, then: v The operational sign is presumed to be the LEADING or TRAILING character position, whichever is specified, of the elementary numeric data item. This character position is not a digit position. v The character S in the PICTURE character string is counted in determining the size of the data item (in terms of standard data format characters). v + is the character used for the positive operational sign. v - is the character used for the negative operational sign. The SEPARATE CHARACTER phrase cannot be specified for a date field.
219
SYNCHRONIZED clause
The SYNCHRONIZED clause specifies the alignment of an elementary item on a natural boundary in storage.
Format
SYNCHRONIZED SYNC
LEFT RIGHT
SYNC is an abbreviation for SYNCHRONIZED and has the same meaning. The SYNCHRONIZED clause is never required, but can improve performance on some systems for binary items used in arithmetic. The SYNCHRONIZED clause can be specified for elementary items and for level-01 group items, in which case every elementary item within the group item is synchronized. LEFT Specifies that the elementary item is to be positioned so that it will begin at the left character position of the natural boundary in which the elementary item is placed. Specifies that the elementary item is to be positioned such that it will terminate on the right character position of the natural boundary in which it has been placed. When specified, the LEFT and the RIGHT phrases are syntax checked but have no effect on the execution of the program. The length of an elementary item is not affected by the SYNCHRONIZED clause. The following table lists the effect of the SYNCHRONIZE clause on other language elements.
Table 15. SYNCHRONIZE clause effect on other language elements Language element OCCURS clause USAGE DISPLAY or PACKED-DECIMAL USAGE NATIONAL Comments When specified for an item within the scope of an OCCURS clause, each occurrence of the item is synchronized. Each item is syntax checked, but the SYNCHRONIZED clause has no effect on execution. Each item is syntax checked, but the SYNCHRONIZED clause has no effect on execution.
RIGHT
220
Table 15. SYNCHRONIZE clause effect on other language elements (continued) Language element USAGE BINARY or COMPUTATIONAL Comments When the item is the first elementary item subordinate to an item that contains a REDEFINES clause, the item must not require the addition of unused character positions. When the synchronized clause is not specified for a subordinate data item (one with a level number of 02 through 49): v The item is aligned at a displacement that is a multiple of 2 relative to the beginning of the record if its USAGE is BINARY and its PICTURE is in the range of S9 through S9(4). v The item is aligned at a displacement that is a multiple of 4 relative to the beginning of the record if its USAGE is BINARY and its PICTURE is in the range of S9(5) through S9(18), or its USAGE is INDEX. When SYNCHRONIZED is not specified for binary items, no space is reserved for slack bytes. USAGE POINTER, PROCEDUREPOINTER, FUNCTIONPOINTER, OBJECT REFERENCE USAGE COMPUTATIONAL-1 USAGE COMPUTATIONAL-2 USAGE COMPUTATIONAL-3 USAGE COMPUTATIONAL-4 USAGE COMPUTATIONAL-5 DBCS and external floating-point items REDEFINES clause The data is aligned on a fullword boundary.
The data is aligned on a fullword boundary. The data is aligned on a doubleword boundary. The data is treated the same as the SYNCHRONIZED clause for a PACKED-DECIMAL item. The data is treated the same as the SYNCHRONIZED clause for a COMPUTATIONAL item. The data is treated the same as the SYNCHRONIZED clause for a COMPUTATIONAL item. Each item is syntax checked, but the SYNCHRONIZED clause has no effect on execution. For an item that contains a REDEFINES clause, the data item that is redefined must have the proper boundary alignment for the data item that redefines it. For example, if you write the following, be sure that data item A begins on a fullword boundary: 02 A PICTURE X(4). 02 B REDEFINES A PICTURE S9(9) BINARY SYNC.
In the file section, the compiler assumes that all level-01 records that contain SYNCHRONIZED items are aligned on doubleword boundaries in the buffer. You must provide the necessary slack bytes between records to ensure alignment when there are multiple records in a block. In the working-storage section, the compiler aligns all level-01 entries on a doubleword boundary.
221
For the purposes of aligning binary items in the linkage section, all level-01 items are assumed to begin on doubleword boundaries. Therefore, if you issue a CALL statement, such operands of any USING phrase within it must be aligned correspondingly.
Slack bytes
There are two types of slack bytes: v Slack bytes within records: unused character positions that precede each synchronized item in the record v Slack bytes between records: unused character positions added between blocked logical records
222
Slack bytes can also be added by the compiler when a group item is defined with an OCCURS clause and contains within it a SYNCHRONIZED binary data item. To determine whether slack bytes are to be added, the following action is taken: v The compiler calculates the size of the group, including all the necessary slack bytes within a record. v This sum is divided by the largest m required by any elementary item within the group. v If r is equal to zero, no slack bytes are required. If r is not equal to zero, m - r slack bytes must be added. The slack bytes are inserted at the end of each occurrence of the group item that contains the OCCURS clause. For example, a record defined as follows will appear in storage, as shown, in the figure after the record:
01 WORK-RECORD. 05 WORK-CODE PICTURE 05 COMP-TABLE OCCURS 10 TIMES. 10 COMP-TYPE PICTURE [10 SLACK-BYTES PIC XX. 10 COMP-PAY PICTURE 10 COMP-HOURS PICTURE 10 COMP-NAME PICTURE X. X. INSERTED BY COMPILER] S9(4)V99 COMP SYNC. S9(3) COMP SYNC. X(5).
In order to align COMP-PAY and COMP-HOURS on their proper boundaries, the compiler added 2 slack bytes within the record. In the previous example, without further adjustment, the second occurrence of COMP-TABLE would begin 1 byte before a doubleword boundary, and the alignment of COMP-PAY and COMP-HOURS would not be valid for any occurrence of the table after the first. Therefore, the compiler must add slack bytes at the end of the group, as though the record had been written as follows:
01 WORK-RECORD. 05 WORK-CODE PICTURE 05 COMP-TABLE OCCURS 10 TIMES. 10 COMP-TYPE PICTURE [10 SLACK-BYTES PIC XX. 10 COMP-PAY PICTURE 10 COMP-HOURS PICTURE 10 COMP-NAME PICTURE [10 SLACK-BYTES PIC XX. X. X. INSERTED BY COMPILER] S9(4)V99 COMP SYNC. S9(3) COMP SYNC. X(5). INSERTED BY COMPILER]
223
In this example, the second and each succeeding occurrence of COMP-TABLE begins 1 byte beyond a doubleword boundary. The storage layout for the first occurrence of COMP-TABLE will now appear as shown in the following figure:
Each succeeding occurrence within the table will now begin at the same relative position as the first.
The number of bytes in A-1, A-2, and A-3 totals 11. B-1 is a four-digit COMPUTATIONAL item and 1 slack byte must therefore be added before B-1. With this byte added, the number of bytes that precede B-2 totals 14. Because B-2 is a COMPUTATIONAL item of five digits in length, 2 slack bytes must be added before it. No slack bytes are needed before B-3. The revised record description entry now appears as:
224
01
COMP-RECORD. 05 A-1 05 A-2 05 A-3 [05 SLACK-BYTE-1 05 B-1 [05 SLACK-BYTE-2 05 B-2 05 B-3
X(5). X(3). X(3). X. INSERTED BY COMPILER] S9999 USAGE COMP SYNCHRONIZED. XX. INSERTED BY COMPILER] S99999 USAGE COMP SYNCHRONIZED. S9999 USAGE COMP SYNCHRONIZED.
There is a total of 22 bytes in COMP-RECORD, but from the rules above, it appears that m = 4 and r = 2. Therefore, to attain proper alignment for blocked records, you must add 2 slack bytes at the end of the record. The final record description entry appears as:
01 COMP-RECORD. 05 A-1 05 A-2 05 A-3 [05 SLACK-BYTE-1 05 B-1 [05 SLACK-BYTE-2 05 B-2 05 B-3 05 FILLER PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE PICTURE X(5). X(3). X(3). X. INSERTED BY COMPILER] S9999 USAGE COMP SYNCHRONIZED. XX. INSERTED BY COMPILER] S99999 USAGE COMP SYNCHRONIZED. S9999 USAGE COMP SYNCHRONIZED. XX. [SLACK BYTES YOU ADD]
USAGE clause
The USAGE clause specifies the format in which data is represented in storage.
225
Format 1
BINARY USAGE IS COMP NATIVE COMP-1 NATIVE COMP-2 NATIVE COMP-3 NATIVE COMP-4 NATIVE COMP-5 NATIVE COMPUTATIONAL NATIVE COMPUTATIONAL-1 NATIVE COMPUTATIONAL-2 NATIVE COMPUTATIONAL-3 NATIVE COMPUTATIONAL-4 NATIVE COMPUTATIONAL-5 NATIVE DISPLAY NATIVE DISPLAY-1 NATIVE INDEX NATIONAL NATIVE objref phrase PACKED-DECIMAL NATIVE POINTER PROCEDURE-POINTER FUNCTION-POINTER NATIVE (1)
objref phrase:
OBJECT REFERENCE class-name-1
Notes: 1 NATIVE is treated as a comment in all phrases for which NATIVE is shown in the USAGE clause.
The USAGE clause can be specified for a data description entry with any level-number other than 66 or 88. When specified at the group level, the USAGE clause applies to each elementary item in the group. The usage of elementary items must not contradict the usage of a group to which the elementary items belongs. | | A USAGE clause must not be specified in a group level entry for which a GROUP-USAGE NATIONAL clause is specified.
226
| | |
When a GROUP-USAGE NATIONAL clause is specified or implied for a group level entry, USAGE NATIONAL must be specified or implied for every elementary item within the group. For details, see GROUP-USAGE clause on page 187. When the USAGE clause is not specified at either the group or elementary level, a usage clause is implied with: v Usage DISPLAY when the PICTURE clause contains only symbols other than G or N v Usage NATIONAL when the PICTURE clause contains only one or more of the symbol N and the NSYMBOL(NATIONAL) compiler option is in effect v Usage DISPLAY-1 when the PICTURE clause contains one or more of the symbol N and the NSYMBOL(DBCS) compiler option is in effect For data items defined with the DATE FORMAT clause, only usage DISPLAY and COMP-3 (or its equivalents, COMPUTATIONAL-3 and PACKED-DECIMAL) are allowed. For details, see Combining the DATE FORMAT clause with other clauses on page 182.
Computational items
A computational item is a value used in arithmetic operations. It must be numeric. If a group item is described with a computational usage, the elementary items within the group have that usage. The maximum length of a computational item is 18 decimal digits, except for a PACKED-DECIMAL item. If the ARITH(COMPAT) compiler option is in effect, then the maximum length of a PACKED-DECIMAL item is 18 decimal digits. If the ARITH(EXTEND) compiler option is in effect, then the maximum length of a PACKED-DECIMAL item is 31 decimal digits. The PICTURE of a computational item can contain only: 9 S V P One or more numeric character positions One operational sign One implied decimal point One or more decimal scaling positions
COMPUTATIONAL-1 and COMPUTATIONAL-2 items (internal floating-point) cannot have PICTURE strings. BINARY Specified for binary data items. Such items have a decimal equivalent consisting of the decimal digits 0 through 9, plus a sign. Negative numbers are represented as the twos complement of the positive number with the same absolute value. The amount of storage occupied by a binary item depends on the number of decimal digits defined in its PICTURE clause:
Digits in PICTURE clause 1 through 4 5 through 9 10 through 18 Storage occupied 2 bytes (halfword) 4 bytes (fullword) 8 bytes (doubleword)
227
Binary data is big-endian: the operational sign is contained in the leftmost bit. BINARY, COMPUTATIONAL, and COMPUTATIONAL-4 data items can be affected by the TRUNC compiler option. For information about the effect of this compiler option, see the Enterprise COBOL Programming Guide. PACKED-DECIMAL Specified for internal decimal items. Such an item appears in storage in packed decimal format. There are two digits for each character position, except for the trailing character position, which is occupied by the low-order digit and the sign. Such an item can contain any of the digits 0 through 9, plus a sign, representing a value not exceeding 18 decimal digits. The sign representation uses the same bit configuration as the 4-bit sign representation in zoned decimal fields. For details, see the Enterprise COBOL Programming Guide. COMPUTATIONAL or COMP (binary) This is the equivalent of BINARY. The COMPUTATIONAL phrase is synonymous with BINARY. COMPUTATIONAL-1 or COMP-1 (floating-point) Specified for internal floating-point items (single precision). COMP-1 items are 4 bytes long. COMPUTATIONAL-2 or COMP-2 (long floating-point) Specified for internal floating-point items (double precision). COMP-2 items are 8 bytes long. COMPUTATIONAL-3 or COMP-3 (internal decimal) This is the equivalent of PACKED-DECIMAL. COMPUTATIONAL-4 or COMP-4 (binary) This is the equivalent of BINARY. COMPUTATIONAL-5 or COMP-5 (native binary) These data items are represented in storage as binary data. The data items can contain values up to the capacity of the native binary representation (2, 4 or 8 bytes), rather than being limited to the value implied by the number of nines in the picture for the item (as is the case for USAGE BINARY data). When numeric data is moved or stored into a COMP-5 item, truncation occurs at the binary field size rather than at the COBOL picture size limit. When a COMP-5 item is referenced, the full binary field size is used in the operation. The TRUNC(BIN) compiler option causes all binary data items (USAGE BINARY, COMP, COMP-4) to be handled as if they were declared USAGE COMP-5.
Picture S9(1) through S9(4) S9(5) through S9(9) S9(10) through S9(18) Storage representation Binary halfword (2 bytes) Binary fullword (4 bytes) Binary doubleword (8 bytes) Numeric values -32768 through +32767 -2,147,483,648 through +2,147,483,647 -9,223,372,036,854,775,808 through +9,223,372,036,854,775,807 0 through 65535
228
The picture for a COMP-5 data item can specify a scaling factor (that is, decimal positions or implied integer positions). In this case, the maximal capacities listed in the table above must be scaled appropriately. For example, a data item with description PICTURE S99V99 COMP-5 is represented in storage as a binary halfword, and supports a range of values from -327.68 to +327.67.
DISPLAY phrase
The data item is stored in character form, one character for each 8-bit byte. This corresponds to the format used for printed output. DISPLAY can be explicit or implicit. USAGE IS DISPLAY is valid for the following types of items: v Alphabetic v Alphanumeric v Alphanumeric-edited v Numeric-edited v External floating-point v External decimal Alphabetic, alphanumeric, alphanumeric-edited, and numeric-edited items are discussed in Data categories and PICTURE rules on page 201. External decimal items are sometimes referred to as zoned decimal items. Each digit of a number is represented by a single byte. The 4 high-order bits of each byte are zone bits; the 4 high-order bits of the low-order byte represent the sign of the item. The 4 low-order bits of each byte contain the value of the digit. If the ARITH(COMPAT) compiler option is in effect, then the maximum length of an external decimal item is 18 digits. If the ARITH(EXTEND) compiler option is in effect, then the maximum length of an external decimal item is 31 digits. The PICTURE character-string of an external decimal item can contain only: 9s; the operational-sign, S; the assumed decimal point, V; and one or more Ps.
DISPLAY-1 phrase
The DISPLAY-1 phrase defines an item as DBCS. The data item is stored in character form, with each character occupying 2 bytes of storage.
FUNCTION-POINTER phrase
The FUNCTION-POINTER phrase defines an item as a function-pointer data item. A function-pointer data item can contain the address of a procedure entry point.
229
A function-pointer is a 4-byte elementary item. Function-pointers have the same capabilities as procedure-pointers, but are 4 bytes in length instead of 8 bytes. Function-pointers are thus more easily interoperable with C function pointers. A function-pointer can contain one of the following addresses or can contain NULL: v The primary entry point of a COBOL program, defined by the PROGRAM-ID paragraph of the outermost program v An alternate entry point of a COBOL program, defined by a COBOL ENTRY statement v An entry point in a non-COBOL program A VALUE clause for a function-pointer data item can contain only NULL or NULLS. A function-pointer can be used in the same contexts as a procedure-pointer, as defined in PROCEDURE-POINTER phrase on page 233.
INDEX phrase
A data item defined with the INDEX phrase is an index data item. An index data item is a 4-byte elementary data item (not necessarily connected with any table) that can be used to save index-name values for future reference. Through a SET statement, an index data item can be assigned an index-name value. Such a value corresponds to the occurrence number in a table. Direct references to an index data item can be made only in a SEARCH statement, a SET statement, a relation condition, the USING phrase of the procedure division header, or the USING phrase of the CALL or ENTRY statement. | | An index data item can be part of an alphanumeric group item referred to in a MOVE statement or an input/output statement. An index data item saves values that represent table occurrences, yet is not necessarily defined as part of any table. Thus when it is referred to directly in a SEARCH or SET statement or indirectly in a MOVE or input/output statement, there is no conversion of values when the statement is executed. | | | The USAGE IS INDEX clause can be written at any level. If an alphanumeric group item is described with the USAGE IS INDEX clause, the elementary items within the group are index data items. The group itself is not an index data item, and the group name cannot be used in SEARCH or SET statements or in relation conditions. The USAGE clause of an elementary item cannot contradict the USAGE clause of a group to which the item belongs. An index data item cannot be a conditional variable. | | | The DATE FORMAT, JUSTIFIED, PICTURE, BLANK WHEN ZERO, or VALUE clauses cannot be used to describe a group item or elementary items described with the USAGE IS INDEX clause. SYNCHRONIZED can be used with USAGE IS INDEX to obtain efficient use of the index data item.
230
NATIONAL phrase
| | | The NATIONAL phrase defines an item whose content is represented in storage in UTF-16 (CCSID 1200). The class and category of the data item depend on the picture symbols that are specified in the associated PICTURE clause.
231
A VALUE clause for an object-reference data item can contain only NULL or NULLS. You can use the SYNCHRONIZED clause with the USAGE OBJECT REFERENCE clause to obtain efficient alignment of the object-reference data item. The DATE FORMAT, JUSTIFIED, PICTURE, and BLANK WHEN ZERO clauses cannot be used to describe group or elementary items defined with the USAGE OBJECT REFERENCE clause.
POINTER phrase
A data item defined with USAGE IS POINTER is a pointer data item. A pointer data item is a 4-byte elementary item. You can use pointer data items to accomplish limited base addressing. Pointer data items can be compared for equality or moved to other pointer items. A pointer data item can be used only: v In a SET statement (format 5 only) v In a relation condition v In the USING phrase of a CALL statement, an ENTRY statement, or the procedure division header | | | | | The USAGE IS POINTER clause can be written at any level except level 88. If a group item is described with the USAGE IS POINTER clause, the elementary items within the group are pointer data items; the group itself is an alphanumeric group (not a pointer data item) and cannot be used in the syntax where a pointer data item is allowed. The USAGE clause of an elementary item cannot contradict the USAGE clause of a group to which the item belongs. Pointer data items can be part of an alphanumeric group that is referred to in a MOVE statement or an input/output statement. However, if a pointer data item is part of a group, there is no conversion of values when the statement is executed. A pointer data item can be the subject or object of a REDEFINES clause. SYNCHRONIZED can be used with USAGE IS POINTER to obtain efficient use of the pointer data item. A VALUE clause for a pointer data item can contain only NULL or NULLS. A pointer data item cannot be a conditional variable. A pointer data item does not belong to any class or category. The DATE FORMAT, JUSTIFIED, PICTURE, and BLANK WHEN ZERO clauses cannot be used to describe group or elementary items defined with the USAGE IS POINTER clause. Pointer data items are ignored in the processing of a CORRESPONDING phrase. A pointer data item can be written to a data set, but upon subsequent reading of the record that contains the pointer, the address contained might no longer represent a valid pointer.
| |
232
USAGE IS POINTER is implicitly specified for the ADDRESS OF special register. For more information, see the Enterprise COBOL Programming Guide.
PROCEDURE-POINTER phrase
The PROCEDURE-POINTER phrase defines an item as a procedure-pointer data item. A procedure-pointer data item is an 8-byte elementary item. A procedure-pointer can contain one of the following addresses or can contain NULL: v The primary entry point of a COBOL program as defined by the program-ID paragraph of the outermost program of a compilation unit v An alternate entry point of a COBOL program as defined by a COBOL ENTRY statement v An entry point in a non-COBOL program A procedure-pointer data item can be used only: v In a SET statement (format 6 only) v In a CALL statement v In a relation condition v In the USING phrase of an ENTRY statement or the procedure division header Procedure-pointer data items can be compared for equality or moved to other procedure-pointer data items. The USAGE IS PROCEDURE-POINTER clause can be written at any level except level 88. If a group item is described with the USAGE IS PROCEDURE-POINTER clause, the elementary items within the group are procedure-pointer data items. The group itself is an alphanumeric group item (not a procedure-pointer) and cannot be used in the syntax where a procedure-pointer data item is allowed. The USAGE clause of an elementary item cannot contradict the USAGE clause of a group to which the item belongs. Procedure-pointer data items can be part of a group that is referred to in a MOVE statement or an input/output statement. However, there is no conversion of values when the statement is executed. If a procedure-pointer data item is written to a data set, subsequent reading of the record that contains the procedure-pointer can result in an invalid value in the procedure-pointer. A procedure-pointer data item can be the subject or object of a REDEFINES clause. SYNCHRONIZED can be used with USAGE IS PROCEDURE-POINTER to obtain efficient alignment of the procedure-pointer data item. The GLOBAL, EXTERNAL, and OCCURS clause can be used with USAGE IS PROCEDURE-POINTER. A VALUE clause for a procedure-pointer data item can contain only NULL or NULLS. The DATE FORMAT, JUSTIFIED, PICTURE, and BLANK WHEN ZERO clauses cannot be used to describe group or elementary items defined with the USAGE IS PROCEDURE-POINTER clause.
Chapter 19. Data divisiondata description entry
| |
233
A procedure-pointer data item cannot be a conditional variable. A procedure-pointer data item does not belong to any class or category. Procedure-pointer data items are ignored in CORRESPONDING operations.
NATIVE phrase
The NATIVE phrase is syntax checked, but has no effect on the execution of the program.
VALUE clause
The VALUE clause specifies the initial contents of a data item or the values associated with a condition-name. The use of the VALUE clause differs depending on the data division section in which it is specified. A VALUE clause that is used in the file section or the linkage section in an entry other than a condition-name entry is syntax checked, but has no effect on the execution of the program. In the working-storage section and the local-storage section, the VALUE clause can be used in condition-name entries or in specifying the initial value of any data item. The data item assumes the specified value at the beginning of program execution. If the initial value is not explicitly specified, the value is unpredictable.
Format 1
Format 1: literal value
VALUE IS literal
Format 1 specifies the initial value of a data item. Initialization is independent of any BLANK WHEN ZERO or JUSTIFIED clause that is specified. A format-1 VALUE clause specified in a data description entry that contains or is subordinate to an OCCURS clause causes every occurrence of the associated data item to be assigned the specified value. Each structure that contains the DEPENDING ON phrase of the OCCURS clause is assumed to contain the maximum number of occurrences for the purposes of VALUE initialization. The VALUE clause must not be specified for a data description entry that contains or is subordinate to an entry that contains either an EXTERNAL or a REDEFINES clause. This rule does not apply to condition-name entries. | | | | | A format-1 VALUE clause can be specified for an alphanumeric group item, a national group item, or an elementary data item. When the VALUE clause is specified at the group level, the group area is initialized without consideration for the subordinate entries within the group. In addition, a VALUE clause must not be specified for subordinate entries within the group.
234
| | | |
For group items, the VALUE clause must not be specified if any subordinate entries contain a JUSTIFIED or SYNCHRONIZED clause. If the VALUE clause is specified for an alphanumeric group, all subordinate items must be explicitly or implicitly described with USAGE DISPLAY. The VALUE clause must not conflict with other clauses in the data description entry or in the data description of that entrys hierarchy. The functions of the editing characters in a PICTURE clause are ignored in determining the initial value of the item described. However, editing characters are included in determining the size of the item. Therefore, any editing characters must be included in the literal. For example, if the item is defined as PICTURE +999.99 and the value is to be +12.34, then the VALUE clause should be specified as VALUE +012.34. A VALUE clause cannot be specified for external floating-point items. A data item cannot contain a VALUE clause if the prior data item contains an OCCURS clause with the DEPENDING ON phrase.
| | | |
| | |
| | | | |
235
| | | | | | | | | | | | | v
| | | |
v v v
literal is aligned according to the national alignment rules, with one additional restriction: the number of characters in the literal must not exceed the size, in character positions, of the item. If the VALUE clause is specified at the group level for an alphanumeric group, the literal must be an alphanumeric literal or a figurative constant as specified in Figurative constants on page 13, other than ALL national-literal. The size of the literal must not exceed the size of the group item. If the VALUE clause is specified at the group level for a national group, the literal can be an alphanumeric literal, a national literal, or one of the figurative constants ZERO, SPACE, QUOTES, HIGH-VALUE, LOW-VALUE, symbolic character, ALL national-literal, or ALL -literal. The value of an alphanumeric literal is converted from its source code representation to UTF-16 representation. Each figurative constant represents a national character value. The size of the literal must not exceed the size of the group item. A VALUE clause associated with a DBCS item must contain a DBCS literal, the figurative constant SPACE, or the figurative constant ALL DBCS-literal. The length of the literal must not exceed the size indicated by the data items PICTURE clause. A VALUE clause that specifies a national literal can be associated only with a data item of class national. A VALUE clause that specifies a DBCS literal can be associated only with a data item of class DBCS. A VALUE clause associated with a COMPUTATIONAL-1 or COMPUTATIONAL-2 (internal floating-point) item must specify a floating-point literal. In addition, the figurative constant ZERO and both integer and decimal forms of the zero literal can be specified in a floating-point VALUE clause. For information about floating-point literal values, see Rules for floating-point literal values on page 32.
Format 2
Format 2: condition-name value
88 condition-name-1 VALUE IS VALUES ARE
This format associates a value, values, or ranges of values with a condition-name. Each such condition-name requires a separate level-88 entry. Level-number 88 and the condition-name are not part of the format-2 VALUE clause itself. They are included in the format only for clarity.
236
condition-name-1 A user-specified name that associates a value with a conditional variable. If the associated conditional variable requires subscripts or indexes, each procedural reference to the condition-name must be subscripted or indexed as required for the conditional variable. Condition-names are tested procedurally in condition-name conditions (see Conditional expressions on page 259). literal-1 Associates the condition-name with a single value. The class of literal-1 must be a valid class for assignment to the associated conditional variable. literal-1 THROUGH literal-2 Associates the condition-name with at least one range of values. When the THROUGH phrase is used, literal-1 must be less than literal-2, unless the associated data item is a non-year-last windowed date field. For details, see Rules for condition-name entries. literal-1 and literal-2 must be of the same class. The class of literal-1 and literal-2 must be a valid class for assignment to the associated conditional variable. When literal-1 and literal-2 are DBCS literals, the range of DBCS values specified by the THROUGH phrase is based on the binary collating sequence of the hexadecimal values of the DBCS characters. When literal-1 and literal-2 are national literals, the range of national character values specified by the THROUGH phrase is based on the binary collating sequence of the hexadecimal values of the national characters represented by the literals. | | | | | | | | If the associated conditional variable is of class DBCS, literal-1 and literal-2 must be DBCS literals. The figurative constant SPACE or the figurative constant ALL DBCS-literal can be specified. If the associated conditional variable is of class national, literal-1 and literal-2 must be either both national literals or both alphanumeric literals for a given condition-name. The figurative constants ZERO, SPACE, QUOTE, HIGH-VALUE, LOW-VALUE, symbolic-character, ALL national-literal, or ALL literal can be specified.
237
A RENAMES clause (level-66 item) An item described with USAGE IS INDEX An item described with USAGE POINTER, USAGE PROCEDURE-POINTER, USAGE FUNCTION-POINTER, or USAGE OBJECT REFERENCE | | | | v Condition-names can be specified both at the group level and at subordinate levels within an alphanumeric group or national group. v When the condition-name is specified for an alphanumeric group data description entry: The value of literal-1 (or literal-1 and literal-2) must be specified as an alphanumeric literal or figurative constant. The group can contain items of any usage. v When the condition-name is specified for a national group data description entry: The value of literal-1 (or literal-1 and literal-2) must be specified as an alphanumeric literal, a national literal, or a figurative constant. The group can contain only items of usage national, as specified for the GROUP-USAGE clause on page 187. v When the condition-name is associated with an alphanumeric group data description entry or a national group data description entry: The size of each literal value must not exceed the sum of the sizes of all the elementary items within the group. No element within the group can contain a JUSTIFIED or SYNCHRONIZED clause. v Relation tests implied by the definition of a condition-name are performed in accordance with the rules referenced in the table below.
Table 16. Relation test references for condition-names Type of conditional variable Alphanumeric group item National group item (treated as elementary data item of class national) Elementary data item of class alphanumeric Elementary data item of class national Elementary data item of class numeric Elementary data item of class DBCS Relation condition rules Group comparisons on page 270 National comparisons on page 269 Alphanumeric comparisons on page 268 National comparisons on page 269 Numeric comparisons on page 270 DBCS comparisons on page 268
| | | | | | | |
| |
| | | | | | | | | | | | | | | | |
v A VALUE clause that specifies a national literal can be associated with a condition-name defined only for a data item of class national. v A VALUE clause that specifies a DBCS literal can be associated with a condition-name defined only for a data item of class DBCS. v The literals in a condition-name entry for an elementary data item of class national or a national group item must be either national literals or alphanumeric literals, and literal-1 and literal-2 must be of the same class. For alphanumeric groups or elementary data items of other classes, the type of literal must be consistent with the data type of the conditional variable. In the following example: CITY-COUNTY-INFO, COUNTY-NO, and CITY are conditional variables. The PICTURE associated with COUNTY-NO limits the condition-name value to a two-digit numeric literal.
238
The PICTURE associated with CITY limits the condition-name value to a three-character alphanumeric literal. The associated condition-names are level-88 entries. Any values for the condition-names associated with CITY-COUNTY-INFO cannot exceed five characters. Because this is an alphanumeric group item, the literal must be alphanumeric.
05 CITY-COUNTY-INFO. 88 BRONX 88 BROOKLYN 88 MANHATTAN 88 QUEENS 88 STATEN-ISLAND 10 COUNTY-NO 88 DUTCHESS 88 KINGS 88 NEW-YORK 88 RICHMOND 10 CITY 88 BUFFALO 88 NEW-YORK-CITY 88 POUGHKEEPSIE 05 POPULATION... VALUE 03NYC. VALUE 24NYC. VALUE 31NYC. VALUE 41NYC. VALUE 43NYC. PICTURE 99. VALUE 14. VALUE 24. VALUE 31. VALUE 43. PICTURE X(3). VALUE BUF. VALUE NYC. VALUE POK.
v If the item is a windowed date field, the following restrictions apply: For alphanumeric conditional variables: - Both literal-1 and literal-2 (if specified) must be alphanumeric literals of the same length as the conditional variable. - The literals must not be specified as figurative constants. - If literal-2 is specified, both literals must contain only decimal digits. If the YEARWINDOW compiler option is specified as a negative integer, literal-2 must not be specified. If literal-2 is specified, literal-1 must be less than literal-2 after applying the century window specified by the YEARWINDOW compiler option. That is, the expanded date value of literal-1 must be less than the expanded date value of literal-2. For more information about using condition-names with windowed date fields, see Condition-name conditions and windowed date field comparisons on page 262.
Format 3
Format 3: NULL value
VALUE IS NULL NULLS
This format assigns an invalid address as the initial value of an item defined as USAGE POINTER, USAGE PROCEDURE POINTER, or USAGE FUNCTION-POINTER. It also assigns an invalid object reference as the initial value of an item defined as USAGE OBJECT REFERENCE.
239
VALUE IS NULL can be specified only for elementary items described implicitly or explicitly as USAGE POINTER, USAGE PROCEDURE-POINTER, USAGE FUNCTION-POINTER, or USAGE OBJECT REFERENCE.
240
245 246 247 248 250 250 250 251 253 254 255 256 257 257 259 259 259 261 262 263 263 268 268 269 270 270 270 271 272 273 274 275 275 276 276 277 277 278 279 279 280 282 282 282 282 282 283 283 283 283 283 283
Arithmetic . . . . . . Data movement . . . . Decision . . . . . . . Input-output . . . . . Ordering . . . . . . . Program or method linkage Table-handling . . . . . Delimited scope statements . . Explicit scope terminators . . Implicit scope terminators . . Compiler-directing statements . Statement operations . . . . . CORRESPONDING phrase . . GIVING phrase. . . . . . ROUNDED phrase . . . . SIZE ERROR phrases . . . . Arithmetic statements . . . Arithmetic statement operands Size of operands . . . . Overlapping operands . . Multiple results. . . . . Data manipulation statements . Overlapping operands . . Input-output statements . . . Common processing facilities . File status key . . . . . Invalid key condition . . . INTO and FROM phrases . File position indicator . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
284 284 284 284 284 285 285 285 285 286 286 286 286 287 287 288 290 290 290 291 291 291 291 291 292 292 296 297 298
Chapter 21. Procedure division statements . . 299 ACCEPT statement . . . . . . . . . . . 300 Data transfer . . . . . . . . . . . . 300 System date-related information transfer . . . 301 DATE, DATE YYYYMMDD, DAY, DAY YYYYDDD, DAY-OF-WEEK, and TIME . . . . 302 ADD statement . . . . . . . . . . . . . 305 ROUNDED phrase . . . . . . . . . . 307 SIZE ERROR phrases . . . . . . . . . . 307 CORRESPONDING phrase (format 3) . . . . 307 END-ADD phrase . . . . . . . . . . . 307 ALTER statement . . . . . . . . . . . . 308 Segmentation considerations . . . . . . . 308 CALL statement . . . . . . . . . . . . 310 USING phrase . . . . . . . . . . . . 312 BY REFERENCE phrase . . . . . . . . . 313 BY CONTENT phrase . . . . . . . . . 313 BY VALUE phrase . . . . . . . . . . . 314 RETURNING phrase . . . . . . . . . . 315 ON EXCEPTION phrase . . . . . . . . . 316 NOT ON EXCEPTION phrase . . . . . . . 316 ON OVERFLOW phrase . . . . . . . . . 316 END-CALL phrase . . . . . . . . . . 316 CANCEL statement . . . . . . . . . . . 318 CLOSE statement . . . . . . . . . . . . 320 Effect of CLOSE statement on file types . . . 321
241
COMPUTE statement . . . . . . . . . . . ROUNDED phrase . . . . . . . . . . SIZE ERROR phrases . . . . . . . . . . END-COMPUTE phrase . . . . . . . . . CONTINUE statement . . . . . . . . . . DELETE statement . . . . . . . . . . . Sequential access mode . . . . . . . . . Random or dynamic access mode . . . . . END-DELETE phrase . . . . . . . . . . DISPLAY statement . . . . . . . . . . . DIVIDE statement . . . . . . . . . . . . ROUNDED phrase . . . . . . . . . . REMAINDER phrase . . . . . . . . . . SIZE ERROR phrases . . . . . . . . . . END-DIVIDE phrase . . . . . . . . . . ENTRY statement . . . . . . . . . . . . USING phrase . . . . . . . . . . . . EVALUATE statement . . . . . . . . . . END-EVALUATE phrase . . . . . . . . Determining values . . . . . . . . . . Comparing selection subjects and objects . . . Executing the EVALUATE statement . . . . EXIT statement . . . . . . . . . . . . . EXIT METHOD statement . . . . . . . . . EXIT PROGRAM statement . . . . . . . . GOBACK statement . . . . . . . . . . . GO TO statement . . . . . . . . . . . . Unconditional GO TO . . . . . . . . . Conditional GO TO . . . . . . . . . . Altered GO TO . . . . . . . . . . . . MORE-LABELS GO TO . . . . . . . . . IF statement . . . . . . . . . . . . . . END-IF phrase . . . . . . . . . . . . Transferring control . . . . . . . . . . Nested IF statements . . . . . . . . . . INITIALIZE statement . . . . . . . . . . REPLACING phrase . . . . . . . . . . INITIALIZE statement rules . . . . . . . INSPECT statement . . . . . . . . . . . TALLYING phrase (formats 1 and 3) . . . . REPLACING phrase (formats 2 and 3) . . . . Replacement rules . . . . . . . . . . . BEFORE and AFTER phrases (all formats) . . . CONVERTING phrase (format 4) . . . . . . Data types for identifiers and literals . . . . Data flow . . . . . . . . . . . . . Comparison cycle . . . . . . . . . . . Example of the INSPECT statement . . . . . INVOKE statement . . . . . . . . . . . USING phrase . . . . . . . . . . . . BY VALUE phrase . . . . . . . . . . . Conformance requirements for arguments . . . RETURNING phrase . . . . . . . . . . Conformance requirements for the RETURNING item . . . . . . . . . . . . . . . ON EXCEPTION phrase . . . . . . . . . NOT ON EXCEPTION phrase . . . . . . . END-INVOKE phrase . . . . . . . . . Interoperable data types for COBOL and Java Miscellaneous argument types for COBOL and Java . . . . . . . . . . . . . . .
324 325 325 325 326 327 327 327 328 329 332 334 335 335 335 336 336 337 338 338 339 340 341 342 343 344 345 345 345 346 346 347 347 348 348 349 350 350 352 355 356 357 357 358 358 359 359 361 362 364 364 364 365 365 366 366 366 366 368
MERGE statement . . . . . . . . . . ASCENDING/DESCENDING KEY phrase COLLATING SEQUENCE phrase. . . . USING phrase . . . . . . . . . . GIVING phrase. . . . . . . . . . OUTPUT PROCEDURE phrase . . . . MERGE special registers . . . . . . . Segmentation considerations . . . . . MOVE statement . . . . . . . . . . Elementary moves . . . . . . . . . Elementary move rules . . . . . . . Valid and invalid elementary moves . . . Moves involving date fields . . . . . Moves involving file record areas. . . . Group moves . . . . . . . . . . MULTIPLY statement . . . . . . . . . ROUNDED phrase . . . . . . . . SIZE ERROR phrases . . . . . . . . END-MULTIPLY phrase . . . . . . . OPEN statement . . . . . . . . . . General rules . . . . . . . . . . Label records . . . . . . . . . . OPEN statement notes . . . . . . . PERFORM statement . . . . . . . . . Basic PERFORM statement . . . . . . END-PERFORM . . . . . . . . . PERFORM with TIMES phrase . . . . PERFORM with UNTIL phrase . . . . PERFORM with VARYING phrase . . . Varying identifiers . . . . . . . . . Varying two identifiers . . . . . . . Varying three identifiers . . . . . . . Varying more than three identifiers . . . Varying phrase rules . . . . . . . . READ statement . . . . . . . . . . KEY IS phrase . . . . . . . . . . AT END phrases . . . . . . . . . INVALID KEY phrases . . . . . . . END-READ phrase . . . . . . . . Multiple record processing . . . . . . Sequential access mode . . . . . . . Sequential files . . . . . . . . . . AT END condition. . . . . . . . . Multivolume QSAM files . . . . . . Indexed or relative files . . . . . . . AT END condition. . . . . . . . . Sequentially accessed indexed files . . . Sequentially accessed relative files . . . Random access mode . . . . . . . . Indexed files . . . . . . . . . . Relative files. . . . . . . . . . . Dynamic access mode . . . . . . . READ statement notes: . . . . . . . RELEASE statement . . . . . . . . . RETURN statement . . . . . . . . . AT END phrases . . . . . . . . . END-RETURN phrase . . . . . . . REWRITE statement . . . . . . . . . INVALID KEY phrases . . . . . . . END-REWRITE phrase . . . . . . . Reusing a logical record . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
370 371 372 373 374 374 375 375 376 377 378 380 381 382 382 383 384 384 384 385 387 387 388 391 391 393 393 394 395 396 397 399 399 400 401 402 402 403 403 403 403 404 404 405 405 405 405 406 406 406 406 406 406 408 410 411 411 412 412 413 413
242
Sequential files . . . . . . . . . . . . Indexed files . . . . . . . . . . . . Relative files. . . . . . . . . . . . . SEARCH statement . . . . . . . . . . . Serial search . . . . . . . . . . . . . Example: multidimensional serial search . . . VARYING phrase . . . . . . . . . . . WHEN phrase (serial search) . . . . . . . Binary search . . . . . . . . . . . . WHEN phrase (binary search) . . . . . . . Search statement considerations . . . . . . AT END and WHEN phrases . . . . . . . NEXT SENTENCE. . . . . . . . . . . END-SEARCH phrase . . . . . . . . . SET statement . . . . . . . . . . . . . Format 1: SET for basic table handling . . . . Format 2: SET for adjusting indexes . . . . . Format 3: SET for external switches . . . . . Format 4: SET for condition-names . . . . . Format 5: SET for USAGE IS POINTER data items . . . . . . . . . . . . . . . Format 6: SET for procedure-pointer and function-pointer data items . . . . . . . . Example of COBOL/C interoperability . . . . Format 7: SET for USAGE OBJECT REFERENCE data items . . . . . . . . . . . . . SORT statement . . . . . . . . . . . . ASCENDING KEY and DESCENDING KEY phrases . . . . . . . . . . . . . . DUPLICATES phrase . . . . . . . . . . COLLATING SEQUENCE phrase. . . . . . USING phrase . . . . . . . . . . . . INPUT PROCEDURE phrase . . . . . . . GIVING phrase. . . . . . . . . . . . OUTPUT PROCEDURE phrase . . . . . . SORT special registers . . . . . . . . . Segmentation considerations . . . . . . . START statement . . . . . . . . . . . . KEY phrase . . . . . . . . . . . . . INVALID KEY phrases . . . . . . . . . END-START phrase . . . . . . . . . . Indexed files . . . . . . . . . . . . Relative files. . . . . . . . . . . . . STOP statement . . . . . . . . . . . . STRING statement. . . . . . . . . . . . ON OVERFLOW phrases . . . . . . . . END-STRING phrase . . . . . . . . . . Data flow . . . . . . . . . . . . . SUBTRACT statement . . . . . . . . . . ROUNDED phrase . . . . . . . . . . SIZE ERROR phrases . . . . . . . . . . CORRESPONDING phrase (format 3) . . . . END-SUBTRACT phrase . . . . . . . . UNSTRING statement . . . . . . . . . . DELIMITED BY phrase . . . . . . . . . Delimiter with two or more characters . . . . Two or more delimiters . . . . . . . . . INTO phrase . . . . . . . . . . . . POINTER phrase . . . . . . . . . . . TALLYING IN phrase . . . . . . . . . ON OVERFLOW phrases . . . . . . . .
413 413 414 415 416 417 417 418 419 419 421 421 421 421 422 422 423 424 425 425 426 428 428 429 430 431 432 432 433 433 434 435 435 436 436 437 437 437 438 439 440 442 443 443 445 447 447 447 447 448 450 450 450 450 451 451 451
When an overflow condition occurs . . . When an overflow condition does not occur END-UNSTRING phrase . . . . . . Data flow . . . . . . . . . . . Values at the end of execution of the UNSTRING statement . . . . . . . Example of the UNSTRING statement . . WRITE statement . . . . . . . . . . ADVANCING phrase. . . . . . . . ADVANCING phrase rules . . . . . . LINAGE-COUNTER rules . . . . . . END-OF-PAGE phrases . . . . . . . INVALID KEY phrases . . . . . . . END-WRITE phrase . . . . . . . . WRITE for sequential files . . . . . . Multivolume files . . . . . . . . . Punch function files with the IBM 3525 . . Print function files . . . . . . . . . Advanced Function Printing . . . . . WRITE for indexed files . . . . . . . WRITE for relative files . . . . . . . XML GENERATE statement . . . . . . Nested XML GENERATE or XML PARSE statements . . . . . . . . . . . Operation of XML GENERATE . . . . Format conversion of elementary data . . Trimming of generated XML data . . . XML element name formation . . . . . XML PARSE statement . . . . . . . . Nested XML GENERATE or XML PARSE statements . . . . . . . . . . . Control flow . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
. . . . . . . . . . . . . . . . . . . . . . . . . . .
451 452 452 452 454 454 455 457 457 458 458 459 460 460 461 461 461 462 462 462 464 467 467 468 469 470 471
. 474 . 474
243
244
245
sect:
section-name SECTION (3) priority-number
para:
paragraph-name.
sentence
Notes: 1 2 3 See the USE statement under Compiler-directing statements. Section-name can be omitted. If you omit section-name, paragraph-name can be omitted. Priority-numbers are not valid for methods, recursive programs, or programs compiled with the THREAD option.
246
v You can use the STOP RUN statement (which terminates the run unit) in a method. v You can use the RETURN-CODE special register within a method procedure division to access return codes from subprograms that are called with the CALL statement, but the RETURN-CODE value is not returned to the invoker of the current method. Use the procedure division RETURNING data name to return a value to the invoker of the current method. For details, see the discussion of RETURNING data-name-2 under The procedure division header. You cannot specify the following statements or clauses in a method procedure division: v ALTER v ENTRY v EXIT PROGRAM v GO TO without a specified procedure name v SEGMENT-LIMIT v USE FOR DEBUGGING
data-name-1
The following is the format for a procedure division header in a factory paragraph or object paragraph.
247
USING BY
VALUE
data-name-1
RETURNING data-name-2
248
The identifiers specified in a CALL USING or INVOKE USING statement name the data items available to the calling program or invoking method or program that can be referred to in the called program or invoked method. These items can be defined in any data division section. A given identifier can appear more than once in a procedure division USING phrase. The last value passed to it by a CALL or INVOKE statement is used. The BY REFERENCE or BY VALUE phrase applies to all parameters that follow until overridden by another BY REFERENCE or BY VALUE phrase. BY REFERENCE (for programs only) When an argument is passed BY CONTENT or BY REFERENCE, BY REFERENCE must be specified or implied for the corresponding formal parameter on the PROCEDURE or ENTRY USING phrase. BY REFERENCE is the default if neither BY REFERENCE nor BY VALUE is specified. If the reference to the corresponding data item in the CALL statement declares the parameter to be passed BY REFERENCE (explicit or implicit), the program executes as if each reference to a USING identifier in the called subprogram procedure division is replaced by a reference to the corresponding USING identifier in the calling program. If the reference to the corresponding data item in the CALL statement declares the parameter to be passed BY CONTENT, the value of the item is moved when the CALL statement is executed and placed into a system-defined storage item that possesses the attributes declared in the linkage section for data-name-1. The data description of each parameter in the BY CONTENT phrase of the CALL statement must be the same, meaning no conversion or extension or truncation, as the data description of the corresponding parameter in the USING phrase of the procedure division header. BY VALUE When an argument is passed BY VALUE, the value of the argument is passed, not a reference to the sending data item. The receiving subprogram or method has access only to a temporary copy of the sending data item. Any modifications made to the formal parameters that correspond to an argument passed BY VALUE do not affect the argument. Parameters specified in the USING phrase of a method procedure division header must be passed to the method BY VALUE. See the Enterprise COBOL Programming Guide for examples that illustrate these concepts. data-name-1 data-name-1 must be a level-01 or level-77 item in the linkage section. When data-name-1 is an object reference in a method procedure division header, an explicit class-name must be specified in the data description entry for that object reference; that is, data-name-1 must not be a universal object reference. For methods, the parameter data types are restricted to the data types that are interoperable between COBOL and Java, as listed in Interoperable data types for COBOL and Java on page 366.
249
RETURNING phrase
The RETURNING phrase specifies a data item that is to receive the program or method result. data-name-2 data-name-2 is the RETURNING data item. data-name-2 must be a level-01 or level-77 item in the linkage section. In a method procedure division header, the data type of data-name-2 must be one of the types supported for Java interoperation, as listed in Interoperable data types for COBOL and Java on page 366. The RETURNING data item is an output-only parameter. On entry to the method, the initial state of the RETURNING data item has an undefined and unpredictable value. You must initialize the PROCEDURE DIVISION RETURNING data item before you reference its value. The value that is returned to the invoking routine is the value that the data item has at the point of exit from the method. See RETURNING phrase on page 365 for further details on conformance requirements for the INVOKE RETURNING identifier and the method RETURNING data item. Do not use the procedure division RETURNING phrase in: v Programs that contain the ENTRY statement. v Nested programs. v Main programs: Results of specifying procedure division RETURNING on a main program are undefined. You should specify the procedure division RETURNING phrase only on called subprograms. For main programs, use the RETURN-CODE special register to return a value to the operating environment.
Declaratives
Declaratives provide one or more special-purpose sections that are executed when an exceptional condition occurs. When declarative sections are specified, they must be grouped at the beginning of the procedure division and the entire procedure division must be divided into sections.
250
Each declarative section starts with a USE statement that identifies the sections function. The series of procedures that follow specify the actions that are to be taken when the exceptional condition occurs. Each declarative section ends with another section-name followed by a USE statement, or with the keywords END DECLARATIVES. The entire group of declarative sections is preceded by the keyword DECLARATIVES written on the line after the procedure division header. The group is followed by the keywords END DECLARATIVES. The keywords DECLARATIVES and END DECLARATIVES must each begin in Area A and be followed by a separator period. No other text can appear on the same line. In the declaratives part of the procedure division, each section header must be followed by a separator period, and must be followed by a USE statement followed by a separator period. No other text can appear on the same line. The USE statement has three formats, discussed in these sections: v EXCEPTION/ERROR declarative on page 544 v DEBUGGING declarative on page 548 v LABEL declarative on page 546 The USE statement itself is never executed; instead, the USE statement defines the conditions that execute the succeeding procedural paragraphs, which specify the actions to be taken. After the procedure is executed, control is returned to the routine that activated it. A declarative procedure can be performed from a nondeclarative procedure. A nondeclarative procedure can be performed from a declarative procedure. A declarative procedure can be referenced in a GO TO statement in a declarative procedure. A nondeclarative procedure can be referenced in a GO TO statement in a declarative procedure. You can include a statement that executes a previously called USE procedure that is still in control. However, to avoid an infinite loop, you must be sure there is an eventual exit at the bottom. The declarative procedure is exited when the last statement in the procedure is executed.
Procedures
Within the procedure division, a procedure consists of: v A section or a group of sections v A paragraph or group of paragraphs A procedure-name is a user-defined name that identifies a section or a paragraph. Section A section-header optionally followed by one or more paragraphs.
251
Section-header A section-name followed by the keyword SECTION, optionally followed by a priority-number, followed by a separator period. Section-headers are optional after the keywords END DECLARATIVES or if there are no declaratives. Section-name A user-defined word that identifies a section. A referenced section-name, because it cannot be qualified, must be unique within the program in which it is defined. Priority-number An integer or a positive signed numeric literal ranging in value from 0 through 99. Priority-number identifies a fixed segment or an independent segment that is to contain the section. Sections in the declaratives portion must contain priority numbers in the range of 0 through 49. You cannot specify priority-numbers: v In a method definition v In a program that is declared with the RECURSIVE attribute v In a program compiled with the THREAD compiler option A section ends immediately before the next section header, or at the end of the procedure division, or, in the declaratives portion, at the keywords END DECLARATIVES.
Segments A segment consists of all sections in a program that have the same priority-number. Priority-number determines whether a section is stored in a fixed segment or an independent segment at run time. Segments with a priority-number of 0 through 49 are fixed segments. Segments with a priority-number of 50 through 99 are independent segments. The type of segment (fixed or independent) controls the segmentation feature. In fixed segments, procedures are always in last-used state. In independent segments, procedures are in initial state each time the segment receives control from a segment with a different priority-number, except when the transfer of control results from the execution of a GOBACK or EXIT PROGRAM statement. Restrictions on the use of ALTER, SORT, and MERGE statements in independent segments are described under those statements. Enterprise COBOL does not support the overlay feature of the Standard COBOL 85 segmentation module. Paragraph A paragraph-name followed by a separator period, optionally followed by one or more sentences. Paragraphs must be preceded by a period because paragraphs always follow either the identification division header, a section, or another paragraph, all of which must end with a period.
252
Paragraph-name A user-defined word that identifies a paragraph. A paragraph-name, because it can be qualified, need not be unique. If there are no declaratives (format 2), a paragraph-name is not required in the procedure division. A paragraph ends immediately before the next paragraph-name or section header, or at the end of the procedure division, or, in the declaratives portion, at the keywords END DECLARATIVES. Paragraphs need not all be contained within sections, even if one or more paragraphs are so contained. Sentence One or more statements terminated by a separator period. Statement A syntactically valid combination of identifiers and symbols (literals, relational-operators, and so forth) beginning with a COBOL verb. Identifier The word or words necessary to make unique reference to a data item, optionally including qualification, subscripting, indexing, and reference-modification. In any procedure division reference (except the class test), the contents of an identifier must be compatible with the class specified through its PICTURE clause, otherwise results are unpredictable.
Execution begins with the first statement in the procedure division, excluding declaratives. Statements are executed in the order in which they are presented for compilation, unless the statement rules dictate some other order of execution. The end of the procedure division is indicated by one of the following: v An identification division header that indicates the start of a nested source program v An END PROGRAM, END METHOD, END FACTORY, or END OBJECT marker v The physical end of a program; that is, the physical position in a source program after which no further source program lines occur
Arithmetic expressions
Arithmetic expressions are used as operands of certain conditional and arithmetic statements. An arithmetic expression can consist of any of the following: 1. An identifier described as a numeric elementary item (including numeric functions) 2. A numeric literal
Chapter 20. Procedure division structure
253
3. The figurative constant ZERO 4. Identifiers and literals, as defined in items 1, 2, and 3, separated by arithmetic operators 5. Two arithmetic expressions, as defined in items 1, 2, 3, or 4, separated by an arithmetic operator 6. An arithmetic expression, as defined in items 1, 2, 3, 4, or 5, enclosed in parentheses Any arithmetic expression can be preceded by a unary operator. Identifiers and literals that appear in arithmetic expressions must represent either numeric elementary items or numeric literals on which arithmetic can be performed. If an exponential expression is evaluated as both a positive and a negative number, the result is always the positive number. For example, the square root of 4:
4 ** 0.5
is evaluated as +2 and -2. Enterprise COBOL always returns +2. If the value of an expression to be raised to a power is zero, the exponent must have a value greater than zero. Otherwise, the size error condition exists. In any case where no real number exists as the result of an evaluation, the size error condition exists.
Arithmetic operators
Five binary arithmetic operators and two unary arithmetic operators (as shown in Binary and unary operators (Table 17)) can be used in arithmetic expressions. They are represented by specific characters that must be preceded and followed by a space.
Table 17. Binary and unary operators Binary operator + * / ** Meaning Addition Subtraction Multiplication Division Exponentiation Unary operator + Meaning Multiplication by +1 Multiplication by -1
Limitation: Exponents in fixed-point exponential expressions cannot contain more than nine digits. The compiler will truncate any exponent with more than nine digits. In the case of truncation, the compiler will issue a diagnostic message if the exponent is a literal or constant; if the exponent is a variable or data-name, a diagnostic is issued at run time. Parentheses can be used in arithmetic expressions to specify the order in which elements are to be evaluated. Expressions within parentheses are evaluated first. When expressions are contained within nested parentheses, evaluation proceeds from the least inclusive to the most inclusive set.
254
When parentheses are not used, or parenthesized expressions are at the same level of inclusiveness, the following hierarchic order is implied: 1. Unary operator 2. Exponentiation 3. Multiplication and division 4. Addition and subtraction Parentheses either eliminate ambiguities in logic where consecutive operations appear at the same hierarchic level, or modify the normal hierarchic sequence of execution when this is necessary. When the order of consecutive operations at the same hierarchic level is not completely specified by parentheses, the order is from left to right. An arithmetic expression can begin only with a left parenthesis, a unary operator, or an operand (that is, an identifier or a literal). It can end only with a right parenthesis or an operand. An arithmetic expression must contain at least one reference to an identifier or a literal. There must be a one-to-one correspondence between left and right parentheses in an arithmetic expression, with each left parenthesis placed to the left of its corresponding right parenthesis. If the first operator in an arithmetic expression is a unary operator, it must be immediately preceded by a left parenthesis if that arithmetic expression immediately follows an identifier or another arithmetic expression. The following table shows permissible arithmetic symbol pairs. An arithmetic symbol pair is the combination of two such symbols in sequence. In the table: Yes No Indicates a permissible pairing. Indicates that the pairing is not permitted.
Identifier or literal second symbol Identifier or literal first symbol * / ** + first symbol Unary + or unary - first symbol ( first symbol ) first symbol No Unary + or unary second symbol No
Table 18. Valid arithmetic symbol pairs * / ** + second symbol Yes ( second symbol No ) second symbol Yes
Yes Yes
No No
Yes No
Yes Yes
No No
Yes No
No Yes
Yes No
Yes No
No Yes
255
v Subtracting a nondate from a date field v Subtracting a date field from a compatible date field Date field operands are compatible if they have the same date format except for the year part, which can be windowed or expanded. The following operations are not allowed: v Any operation between incompatible dates v v v v v v Adding two date fields Subtracting a date field from a nondate Unary minus applied to a date field Division, exponentiation, or multiplication of or by a date field Arithmetic expressions that specify a year-last date field Arithmetic statements that specify a year-last date field, except as a receiving data item when the sending field is a nondate
The sections below describe the result of using date fields in the supported addition and subtraction operations. For more information about using date fields in arithmetic operations, see: v ADD statement on page 305 v COMPUTE statement on page 324 v SUBTRACT statement on page 445 Usage notes v Arithmetic operations treat date fields as numeric items; they do not recognize any date-specific internal structure. For example, adding 1 to a windowed date field that contains the value 991231 (which might be used in an application to represent December 31, 1999) results in the value 991232, not 000101. v When used as operands in arithmetic expressions or arithmetic statements, windowed date fields are automatically expanded according to the century window specified by the YEARWINDOW compiler option. When the DATEPROC(TRIG) compiler option is in effect, this expansion is sensitive to trigger values in the windowed date field. For details of both regular and trigger-sensitive windowed expansion, see Semantics of windowed date fields on page 181.
For details on how a result is stored in a receiving field, see Storing arithmetic results that involve date fields on page 257.
256
257
to a windowed date field with a base year of 1900, except that the year part is not limited to a positive number of at most two digits.) The store proceeds as if this assumed year part of the sending field were expanded by adding 1900 to it. Windowed with date sending field The store proceeds as if all windowed date field operands had been expanded as necessary, so that the sending field is a compatible expanded date field. Size error processing: For both kinds of sending field, if the assumed or actual year part of the sending field falls within the century window, the sending field is stored in the receiving field after removing the century component of the year part. That is, the low-order or rightmost two digits of the expanded year part are retained and the high-order or leftmost two digits are discarded. If the year part does not fall within the century window, then the receiving field is unmodified, and the size error imperative statement is executed when any remaining arithmetic operations are complete. For example:
77 77 DUE-DATE PICTURE 9(5) DATE FORMAT YYXXX. IN-DATE PICTURE 9(8) DATE FORMAT YYYYXXX VALUE 1995001. ... COMPUTE DUE-DATE = IN-DATE + 10000 ON SIZE ERROR imperative-statement END-COMPUTE
The sending field is an expanded date field representing January 1, 2005. Assuming that 2005 falls within the century window, the value stored in DUE-DATE is 05001; that is, the sending value of 2005001 without the century component 20. Size error processing and trigger values: If the DATEPROC(TRIG) compiler option is in effect and the sending field contains a trigger value (either zero or all nines), the size error imperative statement is executed and the result is not stored in the receiving field. A nondate is considered to have a trigger value of all nines if it has a nine in every digit position of its assumed date format. Thus for a receiving date format of YYXXX, the nondate value 99,999 is a trigger but the values 9,999 and 999,999 are not, although the larger value of 999,999 will cause a size error anyway.
Table 21. Storing arithmetic results that involve date fields when ON SIZE ERROR is specified Nondate sending field Nondate receiving field Windowed date field receiving field Expanded date field receiving field Nonwindowed Windowed Nonwindowed Date field sending field Not allowed Windowed Nonwindowed
258
Conditional expressions
A conditional expression causes the object program to select alternative paths of control, depending on the truth value of a test. Conditional expressions are specified in EVALUATE, IF, PERFORM, and SEARCH statements. A conditional expression can be specified in either simple conditions or complex conditions. Both simple and complex conditions can be enclosed within any number of paired parentheses; the parentheses do not change whether the condition is simple or complex.
Simple conditions
There are five simple conditions: v Class condition v v v v Condition-name condition Relation condition Sign condition Switch-status condition
Class condition
The class condition determines whether the content of a data item is alphabetic, alphabetic-lower, alphabetic-upper, numeric, DBCS, KANJI, or contains only the characters in the set of characters specified by the CLASS clause as defined in the SPECIAL-NAMES paragraph of the environment division.
Format
identifier-1 IS NOT NUMERIC ALPHABETIC ALPHABETIC-LOWER ALPHABETIC-UPPER class-name DBCS KANJI
identifier-1 Must reference a data item described with one of the following usages: v DISPLAY, NATIONAL, COMPUTATIONAL-3, or PACKED-DECIMAL when NUMERIC is specified v DISPLAY-1 when DBCS or KANJI is specified v DISPLAY or NATIONAL when ALPHABETIC, ALPHABETIC-UPPER, or ALPHABETIC-LOWER is specified v DISPLAY when class-name is specified Must not be of class alphabetic when NUMERIC is specified. Must not be of class numeric when ALPHABETIC, ALPHABETIC-UPPER, or ALPHABETIC-LOWER is specified.
259
Valid forms of the class condition for different types of identifiers (Table 22 on page 261) lists the forms of class condition that are valid for each type of identifier. If identifier-1 is a function-identifier, it must reference an alphanumeric or national function. | | | | | | | An alphanumeric group item can be used in a class condition where an elementary alphanumeric item can be used, except that the NUMERIC class condition cannot be used if the group contains one or more signed elementary items. When identifier-1 is described with usage NATIONAL, the class-condition tests for the national character representation of the characters associated with the specified character class. For example, specifying a class condition of the form IF national-item IS ALPHABETIC is a test for the lowercase and uppercase letters Latin capital letter A through Latin capital letter Z and the space, as represented in national characters. Specifying IF national-item is NUMERIC is a test for the characters 0 through 9.
NOT
When used, NOT and the next keyword define the class test to be executed for truth value. For example, NOT NUMERIC is a truth test for determining that the result of a NUMERIC class test is false (in other words, the item contains data that is nonnumeric).
NUMERIC identifier-1 consists entirely of the characters 0 through 9, with or without an operational sign. If its PICTURE does not contain an operational sign, the identifier being tested is determined to be numeric only if the contents are numeric and an operational sign is not present. If its PICTURE does contain an operational sign, the identifier being tested is determined to be numeric only if the item is an elementary item, the contents are numeric, and a valid operational sign is present. Note: Valid operational signs are determined from the setting of the NUMCLS installation option and the NUMPROC compiler option. For more information, see the Enterprise COBOL Programming Guide . ALPHABETIC identifier-1 consists entirely of any combination of the lowercase or uppercase Latin alphabetic characters A through Z and the space. ALPHABETIC-LOWER identifier-1 consists entirely of any combination of the lowercase Latin alphabetic characters a through z and the space. ALPHABETIC-UPPER identifier-1 consists entirely of any combination of the uppercase Latin alphabetic characters A through Z and the space. class-name identifier-1 consists entirely of the characters listed in the definition of class-name in the SPECIAL-NAMES paragraph. DBCS identifier-1 consists entirely of DBCS characters.
260
A range check is performed on the item for valid character representation. The valid range is X41 through XFE for both bytes of each DBCS character and X4040 for the DBCS blank. KANJI identifier-1 consists entirely of DBCS characters. A range check is performed on the item for valid character representation. The valid range is from X41 through X7E for the first byte, from X41 through XFE for the second byte, and X4040 for the DBCS blank.
Table 22. Valid forms of the class condition for different types of data items Type of data item referenced by identifier-1 Alphabetic Valid forms of the class condition ALPHABETIC ALPHABETIC-LOWER ALPHABETIC-UPPER class-name ALPHABETIC ALPHABETIC-LOWER ALPHABETIC-UPPER NUMERIC class-name NUMERIC DBCS KANJI NUMERIC ALPHABETIC ALPHABETIC-LOWER ALPHABETIC-UPPER NUMERIC class-name NOT ALPHABETIC NOT ALPHABETIC-LOWER NOT ALPHABETIC-UPPER NOT class-name NOT ALPHABETIC NOT ALPHABETIC-LOWER NOT ALPHABETIC-UPPER NOT NUMERIC NOT class-name NOT NUMERIC NOT DBCS NOT KANJI NOT NUMERIC NOT ALPHABETIC NOT ALPHABETIC-LOWER NOT ALPHABETIC-UPPER NOT NUMERIC NOT class-name
Numeric
Condition-name condition
A condition-name condition tests a conditional variable to determine whether its value is equal to any values that are associated with the condition-name.
Format
condition-name-1
A condition-name is used in conditions as an abbreviation for the relation condition. The rules for comparing a conditional variable with a condition-name value are the same as those specified for relation conditions. If condition-name-1 has been associated with a range of values (or with several ranges of values), the conditional variable is tested to determine whether its value falls within the ranges, including the end values. The result of the test is true if one of the values that corresponds to the condition-name equals the value of its associated conditional variable.
Chapter 20. Procedure division structure
261
| | |
Condition-names are allowed for alphanumeric, DBCS, national, and floating-point data items, as well as others, as defined for the condition-name format of the VALUE clause. The following example illustrates the use of conditional variables and condition-names:
01 AGE-GROUP 88 INFANT 88 BABY 88 CHILD 88 TEENAGER PIC 99. VALUE 0. VALUE 1, 2. VALUE 3 THRU 12. VALUE 13 THRU 19.
AGE-GROUP is the conditional variable; INFANT, BABY, CHILD, and TEENAGER are condition-names. For individual records in the file, only one of the values specified in the condition-name entries can be present. The following IF statements can be added to the above example to determine the age group of a specific record:
IF IF IF IF INFANT... BABY... CHILD... TEENAGER... (Tests (Tests (Tests (Tests for for for for value 0) values 1, 2) values 3 through 12) values 13 through 19)
Depending on the evaluation of the condition-name condition, alternative paths of execution are taken by the object program.
then a value of 051220 in DATE-FIELD would cause the following condition to be true:
IF DATE-TARGET...
because the value associated with DATE-TARGET and the value of DATE-FIELD would both be treated as if they were prefixed by 20 before comparison. However, the following condition would be false:
IF DATE-FIELD = 051220...
because in a comparison with a windowed date field, literals are treated as if they were prefixed by 19 regardless of the century window. So the above condition effectively becomes:
IF 20051220 = 19051220...
For more information about using windowed date fields in conditional expressions, see Comparison of date fields on page 271.
262
Relation conditions
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | A relation condition specifies the comparison of two operands. The relational operator that joins the two operands specifies the type of comparison. The relation condition is true if the specified relation exists between the two operands; the relation condition is false if the specified relation does not exist. Comparisons are defined for the following: v Two operands of class alphabetic v Two operands of class alphanumeric v Two operands of class DBCS v Two operands of class national v Two operands of class numeric v Two operands of different classes where each operand is one of the classes alphabetic, alphanumeric, or national v Two operands where one is a numeric integer and the other is class alphanumeric or national v Two operands where one is class DBCS and the other is class national v Comparisons involving indexes or index data items v Two data pointer operands v Two procedure pointer operands v Two function pointer operands v Two object reference operands v An alphanumeric group and any operand that has usage DISPLAY, DISPLAY-1, or NATIONAL The following relation condition formats are defined: v A general relation condition, for comparisons that involve only data items, literals, index-names, or index data items. For details, see General relation conditions. v A data pointer relation condition. For details, see Data pointer relation conditions on page 272. v A program pointer relation condition, for comparison of procedure pointers or function pointers. For details, see Procedure-pointer and function-pointer relation conditions on page 273. v An object-reference relation condition. For details, see Object-reference relation conditions on page 274.
263
operand-1 The subject of the relation condition. Can be an identifier, literal, function-identifier, arithmetic expression, or index-name. operand-2 The object of the relation condition. Can be an identifier, literal, function-identifier, arithmetic expression, or index-name. An alphanumeric literal can be enclosed in parentheses within a relation condition. The relation condition must contain at least one reference to an identifier. The relational operator specifies the type of comparison to be made, as shown in Relational operators and their meanings (Table 23). Each relational operator must be preceded and followed by a space. The relational operators >= and <= must not have a space between them.
Table 23. Relational operators and their meanings Relational operator IS GREATER THAN IS NOT GREATER THAN IS LESS THAN IS NOT LESS THAN IS EQUAL TO IS NOT EQUAL TO IS GREATER THAN OR EQUAL TO IS LESS THAN OR EQUAL TO Can be written IS > IS NOT > IS < IS NOT < IS = IS NOT = IS >= IS <= Meaning Greater than Not greater than Less than Not less than Equal to Not equal to Is greater than or equal to Is less than or equal to
264
| | | | | | | | | | | |
In a general relation condition, data items, literals, and figurative constants of class alphabetic, alphanumeric, DBCS, national, and numeric are compared using the following comparison types:
Comparison type Alphanumeric DBCS National Numeric Group Meaning Comparison of the alphanumeric character value of two operands Comparison of the DBCS character value of two operands Comparison of the national character value of two operands Comparison of the algebraic value of two operands Comparison of the alphanumeric character value of two operands, where one or both operands is an alphanumeric group item
| | | | | | | | | | | | | | | | | | | | | |
The tables below, Comparisons involving data items and literals (Table 24 on page 266) and Comparisons involving figurative constants (Table 25 on page 267), show the permissible pairs of comparisons with different types of operands. The comparison type is indicated at the row and column intersection for permitted comparisons, using the following key: Alph Comparison of alphanumeric characters (further described in Alphanumeric comparisons on page 268)
DBCS Comparison of DBCS characters (further described in DBCS comparisons on page 268) Nat Num Comparison of national characters (further described in National comparisons on page 269) Comparison of algebraic value (further described in Numeric comparisons on page 270)
Group Comparison of alphanumeric characters involving an alphanumeric group (further described in Group comparisons on page 270) (Int) Integer items only (combined with comparison type Alph, Nat, Num, or Group)
Blank Comparison is not allowed For rules and restrictions for comparisons involving year-last date fields, see Comparison of date fields on page 271. For rules and restrictions for comparisons involving index-names and index data items, see Comparison of index-names and index data items on page 270. Introduction to Comparisons involving data items and literals (Table 24 on page 266): This table is organized in the following manner: v In the first column, under Type of data item or literal, each row identifies a type of operand. In some cases, the type of operand references a grouping of operands that have common properties for comparison. For example, the row for Alphanumeric character items references all the types of operands that are listed in the cell, as follows: Data items of category: - Alphanumeric - Alphanumeric- edited
Chapter 20. Procedure division structure
| | |
265
| |
- Numeric-edited with usage DISPLAY Alphanumeric functions v Subsequent column headings refer to the a type of operand or a grouping of operands. For example, the column heading Alphabetic and alphanumeric character items refers to the types of operands identified as Alphabetic data items and all the types of operands that are grouped under the operand titled Alphanumeric character items. v Literals are listed as a type of operand only in the first column. They do not appear as column headings because literals cannot be used as both operands of a relation condition.
Table 24. Comparisons involving data items and literals Alphabetic and Alpha- alphanumeric numeric Zoned group character decimal items items items Group Group Group Alph Alph Group (Int) Alph (Int) Alph (Int)
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |
Type of data item or literal Alphanumeric group item Alphabetic data items
Alphanumeric Native floating- National National numeric point character decimal items items items items Group Alph Alph Group Nat Nat Group (Int) Alph (Int) Alph (Int)
Alphanumeric character Group items: v Data items of category: Alphanumeric Alphanumericedited Numeric-edited with usage DISPLAY v Alphanumeric functions Alphanumeric literals Numeric literals Zoned decimal data items Native numeric items: v Binary v Arithmetic expression v Internal decimal v Internal floating-point Numeric and integer intrinsic functions Display floating-point items Floating-point literals Group Group Group (Int) Group (Int)
Nat
Alph (Int)
Alph
Num Num
Num Num
Num Num
Nat
Num Num
Num Num
266
| | | | | | | |
Table 24. Comparisons involving data items and literals (continued) Alphabetic and Alpha- alphanumeric numeric Zoned group character decimal items items items Group Nat Nat (Int)
Type of data item or literal National character items: v Data items of category: National
Alphanumeric Native floating- National National numeric point character decimal items items items items Nat Nat
| | | | | | | | |
National-edited Numeric-edited with usage NATIONAL v National intrinsic functions v National groups (treated as elementary item) National literals National decimal items National floating-point items Group Group (Int) Group Group Group Nat Alph (Int) Nat Nat (Int) Num Num Num Num Nat Num Num Nat Nat (Int) Nat Num Num DBCS DBCS Nat
| |
| | | | | | | | | | | | | | | | | | |
Figurative constant ZERO SPACE HIGH-VALUE, LOW-VALUE QUOTE Symbolic character ALL alphanumeric literal ALL national literal ALL DBCS literal
Alphabetic and Alpha- alphanumeric numeric Zoned group character decimal items items items Group Group Group Alph Alph Alph Num Alph (Int) Alph (Int) Alph (Int) Alph (Int) Nat (Int)
Alphanumeric Native floating numeric point items items Num Num Alph Alph
National National National floating character decimal point DBCS items items items items Nat Nat Nat Num Alph (Int) Alph (Int) Alph (Int) Alph (Int) Num Nat Nat DBCS
267
Alphanumeric comparisons
| | | | | | | | | | | | | | | | An alphanumeric comparison is a comparison of the single-byte character values of two operands. When one of the operands is neither class alphanumeric nor class alphabetic, that operand is processed as follows: v A display floating-point data item is treated as though it were a data item of category alphanumeric, rather than as a numeric value. v A zoned decimal integer operand is treated as though it were moved to a temporary elementary data item of category alphanumeric with a length the same as the number of digits in the integer, according to the rules of the MOVE statement. When the ZWB compiler option is in effect, the unsigned value of the integer operand is moved to the temporary data item. When the NOZWB compiler option is specified, the signed value is moved to the temporary data item. See the Enterprise COBOL Programming Guide for more details about the ZWB (NOZWB) compiler option. Comparison then proceeds with the temporary data item. Comparison of two alphanumeric operands: Alphanumeric comparisons are made with respect to the collating sequence of the character set in use as follows: v For the EBCDIC character set, the EBCDIC collating sequence is used. v For the ASCII character set, the ASCII collating sequence is used. (See Appendix C, EBCDIC and ASCII collating sequences, on page 569.) v When the PROGRAM COLLATING SEQUENCE clause is specified in the object-computer paragraph, the collating sequence associated with the alphabet-name clause in the special-names paragraph is used. The size of each operand is the total number of character positions in that operand; the size affects the result of the comparison. There are two cases to consider: Operands of equal size Characters in corresponding positions of the two operands are compared, beginning with the leftmost character and continuing through the rightmost character. If all pairs of characters through the last pair test as equal, the operands are considered as equal. If a pair of unequal characters is encountered, the characters are tested to determine their relative positions in the collating sequence. The operand that contains the character higher in the sequence is considered the greater operand. Operands of unequal size If the operands are of unequal size, the comparison is made as though the shorter operand were extended to the right with enough spaces to make the operands equal in size.
DBCS comparisons
| | | | A DBCS comparison is a comparison two DBCS operands; the following rules apply: v If the DBCS operands are not the same length, the comparison is made as though the shorter operand were padded on the right with DBCS spaces to the length of the longer operand.
268
v The comparison is based on the binary collating sequence of the hexadecimal values of the DBCS characters.
National comparisons
| | | | | A national comparison is a comparison of the national character value of two operands of class national. When the relation condition specifies an operand that is not class national, that operand is converted to a data item of category national before the comparison. The following describes the conversion of operands to category national. DBCS A DBCS operand is treated as though it were moved to a temporary data item of category national of the same length as the DBCS operand. DBCS characters are converted to the corresponding national characters. The source code page used for the conversion is the one in effect for the CODEPAGE compiler option when the source code was compiled. Alphabetic, alphanumeric, alphanumeric-edited, and numeric-edited with usage DISPLAY The operand is treated as though it were moved to a temporary data item of category national of the length needed to represent the number of character positions in that operand. Alphanumeric characters are converted to the corresponding national characters. The source code page used for the conversion is the one in effect for the CODEPAGE compiler option when the source code was compiled. Numeric integer A numeric integer operand is treated as though it were moved to a temporary data item of category alphanumeric of a length the same as the number of digits in the integer. The unsigned value is used. The resulting temporary data item is then converted as an alphanumeric operand. External floating-point A display floating-point item is treated as though it were a data item of category alphanumeric, rather than as a numeric value, and then converted as an alphanumeric operand. A national floating-point item is treated as though it were a data item of category national, rather than as a numeric value. The implicit moves for the conversions are carried out in accordance with the rules of the MOVE statement. The resulting category national data item is used in the comparison of two national operands. Comparison of two national operands: If the operands are of unequal length, the comparison proceeds as though the shorter operand were padded on the right with the default national space character (NX0020) to make the operands of equal length. The comparison then proceeds according to the rules for the comparison of operands of equal length. If the operands are of equal length, the comparison proceeds by comparing corresponding national character positions in the two operands, starting from the leftmost position, until either unequal national characters are encountered or the rightmost national character position is reached, whichever comes first. The operands are determined to be equal if all corresponding national characters are equal.
Chapter 20. Procedure division structure
| | | | | | | | | | | | | |
269
The first-encountered unequal national character in the operands is compared to determine the relation of the operands. The operand that contains the national character with the higher collating value is the greater operand. The higher collating value is determined using the hexadecimal value of characters. The PROGRAM COLLATING SEQUENCE clause has no effect on comparisons of national operands.
Numeric comparisons
| | A numeric comparison is a comparison of the algebraic value of two operands of class numeric. When the algebraic values of numeric operands are compared: v v v v The length (number of digits) of the operands is not significant. The usage of the operands is not significant. Unsigned numeric operands are considered positive. All zero values compare equal; the presence or absence of a sign does not affect the result.
| | | |
The behavior of numeric comparisons depends on the setting of the NUMPROC compiler option. For details, see the Enterprise COBOL Programming Guide.
Group comparisons
| | A group comparison is a comparison of the alphanumeric character values of two operands. For the comparison operation, each operand is treated as though it were an elementary data item of category alphanumeric of the same size as the operand, in bytes. The comparison then proceeds as for two elementary operands of category alphanumeric, as described in Alphanumeric comparisons on page 268. | | | | | Usage note: There is no conversion of data for group comparisons. The comparison operates on bytes of data without regard to data representation. The result of comparing an elementary item or literal operand to an alphanumeric group item is predictable when that operand and the content of the group item have the same data representation.
270
v In the comparison of an index data item with an index-name or another index data item, the actual values are compared without conversion. Results of any other comparison involving an index data item are undefined. Valid comparisons for index-names and index data items are shown in the following table.
Table 26. Comparisons for index-names and index data items Operands compared Index-name Index data item Compare without conversion Data-name Literal (numeric (numeric integer only) integer only) Compare occurrence number with content of referenced data item Invalid Compare occurrence number with literal Arithmetic Expression Compare occurrence number with arithmetic expression Invalid
Invalid
271
If the DATEPROC(NOTRIG) compiler option is in effect, the comparison is performed as if the nondate operand were expanded by assuming 19 for the century part of the expanded year. If the DATEPROC(TRIG) compiler option is in effect, the comparison is sensitive to date trigger values in the nondate operand. For alphanumeric operands, these trigger values are LOW-VALUE, HIGH-VALUE, and SPACE. For alphanumeric and numeric operands compared with windowed date fields with at least one X in the DATE FORMAT clause (that is, windowed date fields other than just a windowed year), values of all zeros or all nines are also treated as triggers. If a nondate operand contains a trigger value, the comparison proceeds as if the nondate operand were expanded by copying the trigger value to the assumed century part of the expanded year. If the nondate operand does not contain a trigger value, the century part of the expanded year is assumed to be 19. The comparison is then performed according to normal COBOL rules. Alphanumeric comparisons are not changed to numeric comparisons by the prefixing of the century value.
Table 27. Comparisons with date fields Nondate second operand Nondate first operand Windowed date field first operand Expanded date field first operand Nonwindowed Windowed1 Nonwindowed Windowed date field second operand Windowed1 Windowed Windowed Expanded date field second operand Nonwindowed Windowed Nonwindowed
1. When compared with windowed date fields, nondates are assumed to contain a windowed year relative to 1900. For details, see item 3 under the definition of Windowed comparison.
Relation conditions can contain arithmetic expressions. For information about the treatment of date fields in arithmetic expressions, see Arithmetic with date fields on page 255.
272
identifier-1, identifier-3 Can specify any level item defined in the linkage section, except 66 and 88. identifier-2, identifier-4 Must be described as USAGE POINTER. NULL, NULLS Can be used only if the other operand is defined as USAGE POINTER. That is, NULL=NULL is not allowed. The following table summarizes the permissible comparisons for USAGE POINTER, NULL, and ADDRESS OF.
Table 28. Permissible comparisons for USAGE POINTER, NULL, and ADDRESS OF USAGE POINTER second operand USAGE POINTER first operand ADDRESS OF first operand NULL/NULLS first operand Yes No Yes Yes Yes ADDRESS OF second operand Yes Yes Yes NULL or NULLS second operand Yes Yes No
273
This relation condition is allowed in IF, PERFORM, EVALUATE, and SEARCH format-1 statements. It is not allowed in SEARCH format-2 (SEARCH ALL) statements, because there is no meaningful ordering that can be applied to procedure-pointer data items.
identifier-1, identifier-2 Must be described as USAGE PROCEDURE-POINTER or USAGE FUNCTION-POINTER. identifier-1 and identifier-2 need not be described the same. NULL, NULLS Can be used only if the other operand is defined as USAGE FUNCTION-POINTER or USAGE PROCEDURE-POINTER. That is, NULL=NULL is not allowed.
Format 4: object-reference
object-reference-identifier-1 SELF NULL NULLS EQUAL TO =
IS
NOT
A comparison with SELF is allowed only in a method. Two object-references compare equal only if the data items identify the same object.
274
Sign condition
The sign condition determines whether the algebraic value of a numeric operand is greater than, less than, or equal to zero.
Format
operand-1 IS NOT POSITIVE NEGATIVE ZERO
operand-1 Must be defined as a numeric identifier, or as an arithmetic expression that contains at least one reference to a variable. operand-1 can be defined as a floating-point identifier. The operand is: v POSITIVE if its value is greater than zero v NEGATIVE if its value is less than zero v ZERO if its value is equal to zero An unsigned operand is either POSITIVE or ZERO. NOT One algebraic test is executed for the truth value of the sign condition. For example, NOT ZERO is regarded as true when the operand tested is positive or negative in value.
The results of the sign condition test depend on the setting of the NUMPROC compiler option. For details, see the Enterprise COBOL Programming Guide.
275
Switch-status condition
The switch-status condition determines the on or off status of an UPSI switch.
Format
condition-name
condition-name Must be defined in the special-names paragraph as associated with the on or off value of an UPSI switch. (See SPECIAL-NAMES paragraph on page 108.) The switch-status condition tests the value associated with condition-name. (The value is considered to be alphanumeric.) The result of the test is true if the UPSI switch is set to the value (0 or 1) corresponding to condition-name.
Complex conditions
A complex condition is formed by combining simple conditions, combined conditions, or complex conditions with logical operators, or negating those conditions with logical negation. Each logical operator must be preceded and followed by a space. The following table shows the logical operators and their meanings.
Table 29. Logical operators and their meanings Logical operator AND OR NOT Name Logical conjunction Meaning The truth value is true when both conditions are true.
Logical The truth value is true when either or both conditions are inclusive OR true. Logical negation Reversal of truth value (the truth value is true if the condition is false).
Unless modified by parentheses, the following is the order of precedence (from highest to lowest): 1. Arithmetic operations 2. 3. 4. 5. Simple conditions NOT AND OR
The truth value of a complex condition (whether parenthesized or not) is the truth value that results from the interaction of all the stated logical operators on either of the following: v The individual truth values of simple conditions v The intermediate truth values of conditions logically combined or logically negated
276
A complex condition can be either of the following: v A negated simple condition v A combined condition (which can be negated)
Format
NOT condition-1
The negated simple condition gives the opposite truth value of the simple condition. That is, if the truth value of the simple condition is true, then the truth value of that same negated simple condition is false, and vice versa. Placing a negated simple condition within parentheses does not change its truth value. That is, the following two statements are equivalent:
NOT A IS EQUAL TO B. NOT (A IS EQUAL TO B).
Combined conditions
Two or more conditions can be logically connected to form a combined condition.
Format
condition-1
AND OR
condition-2
The condition to be combined can be any of the following: v A simple-condition v A negated simple-condition v A combined condition v A negated combined condition (that is, the NOT logical operator followed by a combined condition enclosed in parentheses) v A combination of the preceding conditions that is specified according to the rules in the following table
Table 30. Combined conditionspermissible element sequences Combined condition element simplecondition Left most Yes When not leftmost, can be immediately preceded by: OR NOT AND ( Right most Yes When not rightmost, can be immediately followed by: OR AND )
277
Table 30. Combined conditionspermissible element sequences (continued) Combined condition element OR AND NOT Left most No When not leftmost, can be immediately preceded by: simple-condition ) OR AND ( OR NOT AND ( simple-condition ) Right most No When not rightmost, can be immediately followed by: simple-condition NOT ( simple-condition ( simple-condition NOT ( OR AND )
Yes
No
Yes
No
No
Yes
Parentheses are never needed when either ANDs or ORs (but not both) are used exclusively in one combined condition. However, parentheses might be needed to modify the implicit precedence rules to maintain the correct logical relation of operators and operands. There must be a one-to-one correspondence between left and right parentheses, with each left parenthesis to the left of its corresponding right parenthesis. The following table illustrates the relationships between logical operators and conditions C1 and C2.
Table 31. Logical operators and evaluation results of combined conditions C1 AND C2 True False False False NOT (C1 AND C2) False True True True NOT C1 AND C2 False True False False NOT (C1 OR C2) False False False True
278
of that hierarchical level terminates as soon as a truth value for it is determined, regardless of whether all the constituent connected conditions within that hierarchical level have been evaluated. Values are established for arithmetic expressions and functions if and when the conditions that contain them are evaluated. Similarly, negated conditions are evaluated if and when it is necessary to evaluate the complex condition that they represent. For example:
NOT A IS GREATER THAN B OR A + B IS EQUAL TO C AND D IS POSITIVE
Order of evaluation:
1. (NOT (A IS GREATER THAN B)) is evaluated, giving some intermediate truth value, t1. If t1 is true, the combined condition is true, and no further evaluation takes place. If t1 is false, evaluation continues as follows. 2. (A + B) is evaluated, giving some intermediate result, x. 3. (x IS EQUAL TO C) is evaluated, giving some intermediate truth value, t2. If t2 is false, the combined condition is false, and no further evaluation takes place. If t2 is true, the evaluation continues as follows. 4. (D IS POSITIVE) is evaluated, giving some intermediate truth value, t3. If t3 is false, the combined condition is false. If t3 is true, the combined condition is true.
Format
relation-condition
AND OR
In any consecutive sequence of relation-conditions, both forms of abbreviation can be specified. The abbreviated condition is evaluated as if: 1. The last stated subject is the missing subject. 2. The last stated relational operator is the missing relational operator. The resulting combined condition must comply with the rules for element sequence in combined conditions, as shown in Combined conditions: permissible element sequences (Table 30 on page 277).
Chapter 20. Procedure division structure
279
If NOT is immediately followed by GREATER THAN, >, LESS THAN, <, EQUAL TO, or =, then the NOT participates as part of the relational operator. NOT in any other position is considered a logical operator (and thus results in a negated relation condition).
Using parentheses
You can use parentheses in combined relation conditions to specify an intended order of evaluation. Using parentheses can also help improve the readability of conditional expressions. The following rules govern the use of parentheses in abbreviated combined relation conditions: 1. Parentheses can be used to change the order of evaluation of the logical operators AND and OR. 2. The word NOT participates as part of the relational operator when it is immediately followed by GREATER THAN, >, LESS THAN, <, EQUAL TO, or =. 3. NOT in any other position is considered a logical operator and thus results in a negated relation condition. If you use NOT as a logical operator, only the relation condition immediately following the NOT is negated; the negation is not propagated through the abbreviated combined relation condition along with the subject and relational operator. 4. The logical NOT operator can appear within a parenthetical expression that immediately follows a relational operator. 5. When a left parenthesis appears immediately after the relational operator, the relational operator is distributed to all objects enclosed in the parentheses. In the case of a distributed relational operator, the subject and relational operator remain current after the right parenthesis which ends the distribution. The following three restrictions apply to cases where the relational operator is distributed throughout the expression: a. A simple condition cannot appear within the scope of the distribution. b. Another relational operator cannot appear within the scope of the distribution. c. The logical operator NOT cannot appear immediately after the left parenthesis, which defines the scope of the distribution. 6. Evaluation proceeds from the least to the most inclusive condition. 7. There must be a one-to-one correspondence between left and right parentheses, with each left parenthesis to the left of its corresponding right parenthesis. If the parentheses are unbalanced, the compiler inserts a parenthesis and issues an E-level message. However, if the compiler-inserted parenthesis results in the truncation of the expression, you will receive an S-level diagnostic message. 8. The last stated subject is inserted in place of the missing subject. 9. The last stated relational operator is inserted in place of the missing relational operator. 10. Insertion of the omitted subject or relational operator ends when: a. Another simple condition is encountered. b. A condition-name is encountered. c. A right parenthesis is encountered that matches a left parenthesis that appears to the left of the subject. 11. In any consecutive sequence of relation conditions, you can use both abbreviated relation conditions that contain parentheses and those that dont.
280
12. Consecutive logical NOT operators cancel each other and result in an S-level message. Note, however, that an abbreviated combined relation condition can contain two consecutive NOT operators when the second NOT is part of a relational operator. For example, you can abbreviate the first condition as the second condition listed below.
A = B and not A not = C A = B and not not = C
The following table summarizes the rules for forming an abbreviated combined relation condition.
Table 32. Abbreviated combined conditions: permissible element sequences Combined condition element Subject Object When not leftmost, can be immediately preceded by: NOT ( Relational operator AND OR NOT ( Subject AND OR NOT Object ) When not rightmost, can be immediately followed by: Relational operator AND OR )
Relational operator
No
No
Object (
AND OR
No
No
Object Relational operator NOT ( Subject Object Relational operator ( Subject Object NOT ( AND OR )
NOT
Yes
No
Yes
No
No
Yes
The following examples illustrate abbreviated combined relation conditions, with and without parentheses, and their unabbreviated equivalents.
Table 33. Abbreviated combined conditions: unabbreviated equivalents Abbreviated combined relation condition A = B AND NOT < C OR D A NOT > B OR C NOT A = B OR C NOT (A = B OR < C) Equivalent ((A = B) AND (A NOT < C)) OR (A NOT < D) (A NOT > B) OR (A NOT > C) (NOT (A = B)) OR (A = C) NOT ((A = B) OR (A < C))
281
Table 33. Abbreviated combined conditions: unabbreviated equivalents (continued) Abbreviated combined relation condition NOT (A NOT = B AND C AND NOT D) Equivalent NOT ((((A NOT = B) AND (A NOT = C)) AND (NOT (A NOT = D))))
Statement categories
There are four categories of COBOL statements: v Imperative statements v Conditional statements on page 283 v Delimited scope statements on page 285 v Compiler-directing statements on page 286
Imperative statements
An imperative statement either specifies an unconditional action to be taken by the program or is a conditional statement terminated by its explicit scope terminator (see Delimited scope statements on page 285). A series of imperative statements can be specified wherever an imperative statement is allowed. A conditional statement that is terminated by its explicit scope terminator is also classified as an imperative statement (see Delimited scope statements on page 285). The following lists contain the COBOL imperative statements.
Arithmetic
v v v v v ADD1 COMPUTE1 DIVIDE1 MULTIPLY1 SUBTRACT1
Data movement
v v v v v v v v v ACCEPT (DATE, DAY, DAY-OF-WEEK, TIME) INITIALIZE INSPECT MOVE SET STRING2 UNSTRING2 XML GENERATE8 XML PARSE8
2. Without the ON OVERFLOW or the NOT ON OVERFLOW phrase. 8. Without the ON EXCEPTION or NOT ON EXCEPTION phrase.
Ending
v STOP RUN v EXIT PROGRAM
282
Input-output
v v v v v v v v v v ACCEPT identifier CLOSE DELETE3 DISPLAY OPEN READ4 REWRITE3 START3 STOP literal WRITE5
3. Without the INVALID KEY or the NOT INVALID KEY phrase. 4. Without the AT END or NOT AT END, and INVALID KEY or NOT INVALID KEY phrases. 5. Without the INVALID KEY or NOT INVALID KEY, and END-OF-PAGE or NOT END-OF-PAGE phrases.
Ordering
v v v v MERGE RELEASE RETURN6 SORT
Procedure-branching
v v v v ALTER EXIT GO TO PERFORM
Table-handling
v SET
Conditional statements
A conditional statement specifies that the truth value of a condition is to be determined and that the subsequent action of the object program is dependent on this truth value. (See Conditional expressions on page 259.) The following lists contain COBOL statements that become conditional when a condition (for example,
Chapter 20. Procedure division structure
283
ON SIZE ERROR or ON OVERFLOW) is included and when the statement is not terminated by its explicit scope terminator.
Arithmetic
v v v v v v v ADD ... ON SIZE ERROR ADD ... NOT ON SIZE ERROR COMPUTE ... ON SIZE ERROR COMPUTE ... NOT ON SIZE ERROR DIVIDE ... ON SIZE ERROR DIVIDE ... NOT ON SIZE ERROR MULTIPLY ... ON SIZE ERROR
v MULTIPLY ... NOT ON SIZE ERROR v SUBTRACT ... ON SIZE ERROR v SUBTRACT ... NOT ON SIZE ERROR
Data movement
v STRING ... ON OVERFLOW v STRING ... NOT ON OVERFLOW v UNSTRING ... ON OVERFLOW v v v v v UNSTRING ... NOT ON OVERFLOW XML GENERATE ... ON EXCEPTION XML GENERATE ... NOT ON EXCEPTION XML PARSE ... ON EXCEPTION XML PARSE ... NOT ON EXCEPTION
Decision
v IF v EVALUATE
Input-output
v v v v v v v v v v v v v v DELETE ... INVALID KEY DELETE ... NOT INVALID KEY READ ... AT END READ ... NOT AT END READ ... INVALID KEY READ ... NOT INVALID KEY REWRITE ... INVALID KEY REWRITE ... NOT INVALID KEY START ... INVALID KEY START ... NOT INVALID KEY WRITE ... AT END-OF-PAGE WRITE ... NOT AT END-OF-PAGE WRITE ... INVALID KEY WRITE ... NOT INVALID KEY
Ordering
v RETURN ... AT END v RETURN ... NOT AT END
284
Table-handling
v SEARCH
285
Compiler-directing statements
Statements that direct the compiler to take a specified action are discussed in Chapter 23, Compiler-directing statements, on page 525.
Statement operations
COBOL statements perform the following types of operations: v Arithmetic v Data manipulation v Input/output v Procedure branching There are several phrases common to arithmetic and data manipulation statements, such as: v CORRESPONDING phrase v GIVING phrase v ROUNDED phrase v SIZE ERROR phrases
CORRESPONDING phrase
| | | | | The CORRESPONDING (CORR) phrase causes ADD, SUBTRACT, and MOVE operations to be performed on elementary data items of the same name if the alphanumeric group item or national group item to which they belong is specified. A national group is processed as a group item when the CORRESPONDING phrase is used. Both identifiers that follow the keyword CORRESPONDING must name group items. In this discussion, these identifiers are referred to as identifier-1 and identifier-2. identifier-1 references the sending group item. identifier-2 references the receiving group item. Two subordinate data items, one from identifier-1 and one from identifier-2, correspond if the following conditions are true: v In an ADD or SUBTRACT statement, both of the data items are elementary numeric data items. Other data items are ignored. v In a MOVE statement, at least one of the data items is an elementary item, and the move is permitted by the move rules. v The two subordinate items have the same name and the same qualifiers up to but not including identifier-1 and identifier-2. v The subordinate items are not identified by the keyword FILLER.
286
v Neither identifier-1 nor identifier-2 is described as a level 66, 77, or 88 item, and neither is described as an index data item. Neither identifier-1 nor identifier-2 can be reference-modified. v Neither identifier-1 nor identifier-2 is described with USAGE POINTER, USAGE FUNCTION-POINTER, USAGE PROCEDURE-POINTER, or USAGE OBJECT REFERENCE. v The subordinate items do not include a REDEFINES, RENAMES, OCCURS, USAGE INDEX, USAGE POINTER, USAGE PROCEDURE-POINTER, USAGE FUNCTION-POINTER, or USAGE OBJECT REFERENCE clause in their descriptions. However, identifier-1 and identifier-2 themselves can contain or be subordinate to items that contain a REDEFINES or OCCURS clause in their descriptions. v The name of each subordinate data item that satisfies these conditions is unique after application of implicit qualifiers. identifier-1, identifier-2, or both can be subordinate to a FILLER item. For example, consider two data hierarchies defined as follows:
05 ITEM-1 OCCURS 6. 10 ITEM-A PIC S9(3). 10 ITEM-B PIC +99.9. 10 ITEM-C PIC X(4). 10 ITEM-D REDEFINES ITEM-C PIC 9(4). 10 ITEM-E USAGE COMP-1. 10 ITEM-F USAGE INDEX. 05 ITEM-2. 10 ITEM-A PIC 99. 10 ITEM-B PIC +9V9. 10 ITEM-C PIC A(4). 10 ITEM-D PIC 9(4). 10 ITEM-E PIC 9(9) USAGE COMP. 10 ITEM-F USAGE INDEX.
If ADD CORR ITEM-2 TO ITEM-1(x) is specified, ITEM-A and ITEM-A(x), ITEM-B and ITEM-B(x), and ITEM-E and ITEM-E(x) are considered to be corresponding and are added together. ITEM-C and ITEM-C(x) are not included because they are not numeric. ITEM-D and ITEM-D(x) are not included because ITEM-D(x) includes a REDEFINES clause in its data description. ITEM-F and ITEM-F(x) are not included because they are index data items. Note that ITEM-1 is valid as either identifier-1 or identifier-2. If any of the individual operations in the ADD CORRESPONDING statement produces a size error condition, imperative-statement-1 in the ON SIZE ERROR phrase is not executed until all of the individual additions are completed.
GIVING phrase
The value of the identifier that follows the word GIVING is set equal to the calculated result of the arithmetic operation. Because this identifier is not involved in the computation, it can be a numeric-edited item.
ROUNDED phrase
After decimal point alignment, the number of places in the fraction of the result of an arithmetic operation is compared with the number of places provided for the fraction of the resultant identifier.
Chapter 20. Procedure division structure
287
When the size of the fractional result exceeds the number of places provided for its storage, truncation occurs unless ROUNDED is specified. When ROUNDED is specified, the least significant digit of the resultant identifier is increased by 1 whenever the most significant digit of the excess is greater than or equal to 5. When the resultant identifier is described by a PICTURE clause that contains rightmost Ps and when the number of places in the calculated result exceeds the number of integer positions specified, rounding or truncation occurs relative to the rightmost integer position for which storage is allocated. In a floating-point arithmetic operation, the ROUNDED phrase has no effect; the result of a floating-point operation is always rounded. For more information on floating-point arithmetic expressions, see the Enterprise COBOL Programming Guide. When the ARITH(EXTEND) compiler option is in effect, the ROUNDED phrase is not supported for arithmetic receivers with 31 digit positions to the right of the decimal point. For example, neither X nor Y below is valid as a receiver with the ROUNDED phrase:
01 01 X PIC V31. Y PIC P(30)9(1). . . . COMPUTE X ROUNDED = A + B COMPUTE Y ROUNDED = A - B
Otherwise, the ROUNDED phrase is fully supported for extended-precision arithmetic statements.
The size error occurs because the result of the subtraction, a windowed date field, has an effective year value of 1930, which falls outside the century window. For details on how windowed date fields are treated as if they were converted to expanded date format, see Subtraction that involves date fields on page 257. For more information about how size errors can occur when using date fields, see Storing arithmetic results that involve date fields on page 257. v In an exponential expression, as indicated in the following table:
288
Table 34. Exponentiation size error conditions Action taken when a SIZE ERROR clause is present Action taken when a SIZE ERROR clause is not present
Size error Zero raised to zero power Zero raised to a negative number A negative number raised to a fractional power
The SIZE ERROR imperative The value returned is 1, and is executed. a message is issued. The SIZE ERROR imperative The program is terminated is executed. abnormally. The SIZE ERROR imperative The absolute value of the is executed. base is used, and a message is issued.
The size error condition applies only to final results, not to any intermediate results. If the resultant identifier is defined with USAGE IS BINARY, COMPUTATIONAL, COMPUTATIONAL-4, or COMPUTATIONAL-5, the largest value that can be contained in it is the maximum value implied by its associated decimal PICTURE character-string, regardless of the TRUNC compiler option in effect. If the ROUNDED phrase is specified, rounding takes place before size error checking. When a size error occurs, the subsequent action of the program depends on whether the ON SIZE ERROR phrase is specified. If the ON SIZE ERROR phrase is not specified and a size error condition occurs, truncation rules apply and the value of the affected resultant identifier is computed. If the ON SIZE ERROR phrase is specified and a size error condition occurs, the value of the resultant identifier affected by the size error is not altered; that is, the error results are not placed in the receiving identifier. After completion of the execution of the arithmetic operation, the imperative statement in the ON SIZE ERROR phrase is executed, control is transferred to the end of the arithmetic statement, and the NOT ON SIZE ERROR phrase, if specified, is ignored. For ADD CORRESPONDING and SUBTRACT CORRESPONDING statements, if an individual arithmetic operation causes a size error condition, the ON SIZE ERROR imperative statement is not executed until all the individual additions or subtractions have been completed. If the NOT ON SIZE ERROR phrase has been specified and, after execution of an arithmetic operation, a size error condition does not exist, the NOT ON SIZE ERROR phrase is executed. When both the ON SIZE ERROR and NOT ON SIZE ERROR phrases are specified, and the statement in the phrase that is executed does not contain any explicit transfer of control, then if necessary an implicit transfer of control is made after execution of the phrase to the end of the arithmetic statement.
289
Arithmetic statements
The arithmetic statements are used for computations. Individual operations are specified by the ADD, SUBTRACT, MULTIPLY, and DIVIDE statements. These individual operations can be combined symbolically in a formula that uses the COMPUTE statement.
Size of operands
If the ARITH(COMPAT) compiler option is in effect, the maximum size of each operand is 18 decimal digits. If the ARITH(EXTEND) compiler option is in effect, the maximum size of each operand is 31 decimal digits. The composite of operands is a hypothetical data item resulting from aligning the operands at the decimal point and then superimposing them on one another. If the ARITH(COMPAT) compiler option is in effect, the composite of operands can be a maximum of 30 digits. If the ARITH(EXTEND) compiler option is in effect, the composite of operands can be a maximum of 31 digits. The following table shows how the composite of operands is determined for arithmetic statements:
Table 35. How the composite of operands is determined Statement SUBTRACT ADD MULTIPLY DIVIDE COMPUTE Determination of the composite of operands Superimposing all operands in a given statement except those following the word GIVING Superimposing all receiving data items Superimposing all receiving data items except the REMAINDER data item Restriction does not apply
For example, assume that each item is defined as follows in the data division:
A B C PICTURE 9(7)V9(5). PICTURE 9(11)V99. PICTURE 9(12)V9(3).
If the following statement is executed, the composite of operands consists of 17 decimal digits:
ADD A B TO C
In the ADD and SUBTRACT statements, if the composite of operands is 30 digits or less with the ARITH(COMPAT) compiler option, or 31 digits or less with the ARITH(EXTEND) compiler option, the compiler ensures that enough places are carried so that no significant digits are lost during execution.
290
In all arithmetic statements, it is important to define data with enough digits and decimal places to ensure the desired accuracy in the final result. For more information, see the section on intermediate results in the Enterprise COBOL Programming Guide.
Overlapping operands
When operands in an arithmetic statement share part of their storage (that is, when the operands overlap), the result of the execution of such a statement is unpredictable.
Multiple results
When an arithmetic statement has multiple results, execution conceptually proceeds as follows: 1. The statement performs all arithmetic operations to find the result to be placed in the receiving items, and stores that result in a temporary location. 2. A sequence of statements transfers or combines the value of this temporary result with each single receiving field. The statements are considered to be written in the same left-to-right order in which the multiple results are listed. For example, executing the following statement:
ADD A, B, C, TO C, D(C), E.
In the above example, TEMP is a compiler-supplied temporary result field. When the addition operation for D(C) is performed, the subscript C contains the new value of C.
Overlapping operands
When the sending and receiving fields of a data manipulation statement share a part of their storage (that is, when the operands overlap), the result of the execution of such a statement is unpredictable.
Input-output statements
COBOL input-output statements transfer data to and from files stored on external media, and also control low-volume data that is obtained from or sent to an input/output device. In COBOL, the unit of file data made available to the program is a record. You need only be concerned with such records. Provision is automatically made for such operations as the movement of data into buffers, internal storage, validity checking, error correction (where feasible), blocking and deblocking, and volume-switching procedures. The description of the file in the environment division and data division governs which input-output statements are allowed in the procedure division. Permissible
Chapter 20. Procedure division structure
291
statements for each type of file organization are shown in Permissible statements for sequential files (Table 49 on page 389) and Permissible statements for indexed and relative files (Table 50 on page 389).
292
Table 36. File status key values and meanings Highorder digit 0 Loworder digit 0 2
Meaning No further information This file status value applies only to indexed files with alternate keys that allow duplicates. The input-output statement was successfully executed, but a duplicate key was detected. For a READ statement, the key value for the current key of reference was equal to the value of the same key in the next record within the current key of reference. For a REWRITE or WRITE statement, the record just written created a duplicate key value for at least one alternate record key for which duplicates are allowed.
A READ statement was successfully executed, but the length of the record being processed did not conform to the fixed file attributes for that file. An OPEN statement is successfully executed but the referenced optional file is not present at the time the OPEN statement is executed. The file has been created if the open mode is I-O or EXTEND. This does not apply to VSAM sequential files. For a CLOSE statement with the NO REWIND, REEL/UNIT, or FOR REMOVAL phrase or for an OPEN statement with the NO REWIND phrase, the referenced file was on a non-reel/unit medium. A sequential READ statement was attempted and no next logical record existed in the file because the end of the file had been reached. Or the first READ was attempted on an optional input file that was not present. A sequential READ statement was attempted for a relative file, and the number of significant digits in the relative record number was larger than the size of the relative key data item described for the file.
At-end condition
293
Table 36. File status key values and meanings (continued) Highorder digit 2 Loworder digit 1
Meaning A sequence error exists for a sequentially accessed indexed file. The prime record key value was changed by the program between the successful execution of a READ statement and the execution of the next REWRITE statement for that file. Or the ascending requirements for successive record key values were violated. An attempt was made to write a record that would create a duplicate key in a relative file. Or an attempt was made to write or rewrite a record that would create a duplicate prime record key or a duplicate alternate record key without the DUPLICATES phrase in an indexed file. An attempt was made to randomly access a record that does not exist in the file. Or a START or random READ statement was attempted on an optional input file that was not present. An attempt was made to write beyond the externally defined boundaries of a relative or indexed file. Or a sequential WRITE statement was attempted for a relative file and the number of significant digits in the relative record number was larger than the size of the relative key data item described for the file. No further information A permanent error exists because of a boundary violation; an attempt was made to write beyond the externally defined boundaries of a sequential file. An OPEN statement with the INPUT, I-O, or EXTEND phrase was attempted on a nonoptional file that was not present. An OPEN statement was attempted on a file that would not support the open mode specified in the OPEN statement. Possible violations are: v The EXTEND or OUTPUT phrase was specified but the file would not support write operations. v The I-O phrase was specified but the file would not support the input and output operations permitted. v The INPUT phrase was specified but the file would not support read operations.
0 4
8 9
An OPEN statement was attempted on a file previously closed with lock. The OPEN statement was unsuccessful because a conflict was detected between the fixed file attributes and the attributes specified for that file in the program. These attributes include the organization of the file (sequential, relative, or indexed), the prime record key, the alternate record keys, the code set, the maximum record size, the record type (fixed or variable), and the blocking factor.
294
Table 36. File status key values and meanings (continued) Highorder digit 4 Loworder digit 1 2 3
Meaning An OPEN statement was attempted for a file in the open mode. A CLOSE statement was attempted for a file not in the open mode. For a mass storage file in the sequential access mode, the last input-output statement executed for the associated file prior to the execution of a REWRITE statement was not a successfully executed READ statement. For relative and indexed files in the sequential access mode, the last input-output statement executed for the file prior to the execution of a DELETE or REWRITE statement was not a successfully executed READ statement.
A boundary violation exists because an attempt was made to rewrite a record to a file and the record was not the same size as the record being replaced. Or an attempt was made to write or rewrite a record that was larger than the largest or smaller than the smallest record allowed by the RECORD IS VARYING clause of the associated file-name. A sequential READ statement was attempted on a file open in the input or I-O mode and no valid next record had been established because: v The preceding READ statement was unsuccessful but did not cause an at-end condition. v The preceding READ statement caused an at-end condition.
7 8 9
The execution of a READ statement was attempted on a file not open in the input or I-O mode. The execution of a WRITE statement was attempted on a file not open in the I-O, output, or extend mode. The execution of a DELETE or REWRITE statement was attempted on a file not open in the I-O mode.
295
Table 36. File status key values and meanings (continued) Highorder digit 9 Loworder digit
Meaning
Meaning v For multithreading only: A CLOSE of a VSAM or QSAM file was attempted on a thread that did not open the file. v Without multithreading: For VSAM only: See the information about VSAM return codes in the Enterprise COBOL Programming Guide.
1 2 3 5 6
For VSAM only: Password failure Logic error For all files, except QSAM: Resource not available For all files except QSAM: Invalid or incomplete file information For VSAM file: An OPEN statement with the OUTPUT phrase was attempted, or an OPEN statement with the I-O or EXTEND phrase was attempted for an optional file but no DD statement was specified for the file. For QSAM file: An OPEN statement with the OUTPUT phrase was attempted, or an OPEN statement with the I-O or EXTEND phrase was attempted for an optional file but no DD statement was specified for the file and the CBLQDA(OFF) runtime option was specified.
7 8
For VSAM only: OPEN statement execution successful: File integrity verified Open failed due to the invalid contents of an environment variable specified in a SELECT ... ASSIGN clause or due to dynamic allocation failure. For more information about the contents of environment variables, see ASSIGN clause on page 124.
296
Both the INVALID KEY phrase and the EXCEPTION/ERROR procedure can be omitted. If the invalid key condition does not exist after execution of the input-output operation, the INVALID KEY phrase is ignored, if specified, and the following actions are taken: v If an exception condition that is not an invalid key condition exists, control is transferred according to the rules of the USE statement following the execution of any USE AFTER EXCEPTION procedure. v If no exception condition exists, control is transferred to the end of the input-output statement or the imperative statement specified in the NOT INVALID KEY phrase, if it is specified.
Format
READ RETURN RELEASE REWRITE WRITE file-name-1 RECORD record-name-1 FROM identifier-1 INTO identifier-1
| |
| |
v record-name-1 and identifier-1 must not refer to the same storage area. v If record-name-1 or identifier-1 refers to a national group item, the item is processed as an elementary data item of category national. v The INTO phrase can be specified in a READ or RETURN statement. The result of the execution of a READ or RETURN statement with the INTO phrase is equivalent to the application of the following rules in the order specified: The execution of the same READ or RETURN statement without the INTO phrase. The current record is moved from the record area to the area specified by identifier-1 according to the rules for the MOVE statement without the CORRESPONDING phrase. The size of the current record is determined by rules specified in the RECORD clause. If the file description entry contains a RECORD IS VARYING clause, the implied move is a group move. The implied MOVE statement does not occur if the execution of the READ or RETURN statement was unsuccessful. Any subscripting or reference-modification associated with identifier-1 is evaluated after the record has been read or returned and immediately before it is moved to the data item. The record is available in both the record area and the data item referenced by identifier-1. v The FROM phrase can be specified in a RELEASE, REWRITE, or WRITE statement.
297
The result of the execution of a RELEASE, REWRITE, or WRITE statement with the FROM phrase is equivalent to the execution of the following statements in the order specified: 1. MOVE identifier-1 TO record-name-1 2. The same RELEASE, REWRITE, or WRITE statement without the FROM phrase After the execution of the RELEASE, REWRITE or WRITE statement is complete, the information in the area referenced by identifier-1 is available even though the information in the area referenced by record-name-1 is not available, except specified by the SAME RECORD AREA clause.
298
299
ACCEPT statement
The ACCEPT statement transfers data or system date-related information into the data area referenced by the specified identifier. There is no editing or error checking of the incoming data.
Data transfer
Format 1: data transfer
ACCEPT identifier-1 FROM mnemonic-name-1 environment-name
Format 1 transfers data from an input/output device into the data item referenced by identifier-1 (the receiving area). When the FROM phrase is omitted, the system input device is assumed. Format 1 is useful for exceptional situations in a program when operator intervention (to supply a given message, code, or exception indicator) is required. The operator must of course be supplied with the appropriate messages with which to reply. identifier-1 The receiving area. Can be: v An alphanumeric group item v A national group item v An elementary data item of usage DISPLAY, DISPLAY-1, or NATIONAL A national group item is processed an an elementary data item of category national. mnemonic-name-1 Specifies the input device. mnemonic-name-1 must be associated in the SPECIAL-NAMES paragraph with an environment-name. See SPECIAL-NAMES paragraph on page 108. v System input device The length of a data transfer is the same as the length of the record on the input device, with a maximum of 32,760 bytes. The system input device is read until the receiving area is filled or EOF is encountered. If the length of the receiving area is not an even multiple of the system input device record length, the final record will be truncated as required. If EOF is encountered after data has been moved and before the receiving area has been filled, the receiving area is padded with spaces of the appropriate representation for the receiving area. If EOF is encountered before any data has been moved to the receiving area, padding will not take place and the contents of the receiving area are unchanged. Each input record is concatenated with the previous input record. If the input record is of a fixed-length format, the entire input record is used. No editing is performed to remove trailing or leading blanks.
| | | | |
| | | |
300
| | | | |
If the input record is of the variable-length format, the actual record length is used to determine the amount of data received. With variable-format records, the Record Definition Word (RDW) is removed from the beginning of the input record. Only the actual input data is transferred to identifier-1. If the data item referenced by identifier-1 is of usage national, data is transferred without conversion and without checking for validity. The input data is assumed to be in UTF-16 format. v Console 1. A system-generated message code is automatically displayed, followed by the literal AWAITING REPLY. The maximum length of an input message is 114 characters. 2. Execution is suspended. 3. After the message code (the same code as in item 1) is entered from the console and recognized by the system, ACCEPT statement execution is resumed. The message is moved to the receiving area and left-justified regardless of its PICTURE clause. If identifier-1 references a data item of usage NATIONAL, the message is converted from the native code page representation to national character representation. The native code page is the one that was specified by the CODEPAGE compiler option when the source code was compiled. The ACCEPT statement is terminated if any of the following occurs: No data is received from the console; for example, if the operator hits the Enter key. The receiving data item is filled with data. Fewer than 114 characters of data are entered. If 114 bytes of data are entered and the receiving area is still not filled with data, more requests for data are issued to the console. If more than 114 characters of data are entered, only the first 114 characters will be recognized by the system. If the receiving area is longer than the incoming message, the rightmost characters are padded with spaces of the appropriate representation for the receiving area. If the incoming message is longer than the receiving area, the character positions beyond the length of the receiving area are truncated. For information about obtaining ACCEPT input from an HFS file or stdin, see the Enterprise COBOL Programming Guide. environment-name Identifies the source of input data. An environment-name from the names given in Meanings of environment names (Table 5 on page 110) can be specified. If the device is the same as that used for READ statements for a LINE SEQUENTIAL file, results are unpredictable.
301
into the data item referenced by identifier-2. The transfer must follow the rules for the MOVE statement without the CORRESPONDING phrase. See MOVE statement on page 376.
| | | | | | | | | | | | |
identifier-2 The receiving area. Can be: v An alphanumeric group item v A national group item v An elementary data item of one of the following categories: alphanumeric alphanumeric-edited numeric-edited (with usage DISPLAY or NATIONAL) national national-edited numeric internal floating-point external floating-point (with usage DISPLAY or NATIONAL) A national group item is processed an an elementary data item of category national. Format 2 accesses the current date in two formats: the day of the week or the time of day as carried by the system (which can be useful in identifying when a particular run of an object program was executed). You can also use format 2 to supply the date in headings and footings. The current date and time can also be accessed with the intrinsic function CURRENT-DATE, which also supports four-digit year values and provides additional information (see Chapter 22, Intrinsic functions, on page 479).
302
| | |
The content of the conceptual data items is moved to the receiving area using the rules of the MOVE statement. If the receiving area is of usage NATIONAL, the data is converted to national character representation. DATE Has the implicit PICTURE 9(6). If the DATEPROC compiler option is in effect, then the returned value has implicit DATE FORMAT YYXXXX, and identifier-2 must be defined with this date format. The sequence of data elements (from left to right) is:
Two digits for the year Two digits for the month Two digits for the day
Thus 27 April 2003 is expressed as 030427. DATE YYYYMMDD Has the implicit PICTURE 9(8). If the DATEPROC compiler option is in effect, then the returned value has implicit DATE FORMAT YYYYXXXX, and identifier-2 must be defined with this date format. The sequence of data elements (from left to right) is:
Four digits for the year Two digits for the month Two digits for the day
Thus 27 April 2003 is expressed as 20030427. DAY Has the implicit PICTURE 9(5). If the DATEPROC compiler option is in effect, then the returned value has implicit DATE FORMAT YYXXX, and identifier-2 must be defined with this date format. The sequence of data elements (from left to right) is:
Two digits for the year Three digits for the day
Thus 27 April 2003 is expressed as 03117. DAY YYYYDDD Has the implicit PICTURE 9(7). If the DATEPROC compiler option is in effect, then the returned value has implicit DATE FORMAT YYYYXXX, and identifier-2 must be defined with this date format. The sequence of data elements (from left to right) is:
Four digits for the year Three digits for the day
Thus 27 April 2003 is expressed as 2003117. DAY-OF-WEEK Has the implicit PICTURE 9(1). The single data element represents the day of the week according to the following values:
1 2 3 4 represents represents represents represents Monday Tuesday Wednesday Thursday 5 represents Friday 6 represents Saturday 7 represents Sunday
303
304
ADD statement
The ADD statement sums two or more numeric operands and stores the result.
Format 1
ADD
identifier-1 literal-1
TO
identifier-2 ROUNDED
NOT ON
END-ADD
All identifiers or literals that precede the keyword TO are added together, and this sum is added to and stored in identifier-2. This process is repeated for each successive occurrence of identifier-2 in the left-to-right order in which identifier-2 is specified.
Format 2
ADD
identifier-1 literal-1
TO
identifier-2 literal-2
GIVING
identifier-3 ROUNDED
NOT ON
END-ADD
305
The values of the operands that precede the word GIVING are added together, and the sum is stored as the new value of each data item referenced by identifier-3.
Format 3
ADD CORRESPONDING CORR identifier-1 TO identifier-2 ROUNDED
NOT ON
END-ADD
Elementary data items within identifier-1 are added to and stored in the corresponding elementary items within identifier-2. For all formats: identifier In format 1, must name an elementary numeric item. In format 2, must name an elementary numeric item except when following the word GIVING. Each identifier that follows the word GIVING must name an elementary numeric or numeric-edited item. | | In format 3, must name an alphanumeric group item or national group item. The following restrictions apply to date fields: v In format 1, identifier-2 can specify one or more date fields. identifier-1 must not specify a date field. v In format 2, either identifier-1 or identifier-2 (but not both) can specify at most one date field. If identifier-1 or identifier-2 specifies a date field, then every instance of identifier-3 must specify a date field that is compatible with the date field specified by identifier-1 or identifier-2. That is, they must have the same date format, except for the year part, which can be windowed or expanded. If neither identifier-1 nor identifier-2 specifies a date field, identifier-3 can specify one or more date fields without any restriction on the date formats. v In format 3, only corresponding elementary items within identifier-2 can be date fields. There is no restriction on the format of these date fields. v A year-last date field is allowed in an ADD statement only as identifier-1 and when the result of the addition is a nondate. There are two steps to determining the result of an ADD statement that involves one or more date fields: 1. Addition: determine the result of the addition operation, as described under Addition that involves date fields on page 256. 2. Storage: determine how the result is stored in the receiving field. (In formats 1 and 3, the receiving field is identifier-2; in Format 3, the
306
receiving field is the GIVING identifier-3.) For details, see Storing arithmetic results that involve date fields on page 257. literal Must be a numeric literal. Floating-point data items and literals can be used anywhere that a numeric data item or literal can be specified. When the ARITH(COMPAT) compiler option is in effect, the composite of operands can contain a maximum of 30 digits. When the ARITH(EXTEND) compiler option is in effect, the composite of operands can contain a maximum of 31 digits. For more information, see Arithmetic statement operands on page 290 and the details on arithmetic intermediate results in the Enterprise COBOL Programming Guide.
ROUNDED phrase
For formats 1, 2, and 3, see ROUNDED phrase on page 287.
END-ADD phrase
This explicit scope terminator serves to delimit the scope of the ADD statement. END-ADD permits a conditional ADD statement to be nested in another conditional statement. END-ADD can also be used with an imperative ADD statement. For more information, see Delimited scope statements on page 285.
307
ALTER statement
The ALTER statement changes the transfer point specified in a GO TO statement. The ALTER statement encourages the use of unstructured programming practices; the EVALUATE statement provides the same function as the ALTER statement but helps to ensure that a program is well-structured.
Format
ALTER
procedure-name-1 TO PROCEED TO
procedure-name-2
The ALTER statement modifies the GO TO statement in the paragraph named by procedure-name-1. Subsequent executions of the modified GO TO statement transfer control to procedure-name-2. procedure-name-1 Must name a procedure division paragraph that contains only one sentence: a GO TO statement without the DEPENDING ON phrase. procedure-name-2 Must name a procedure division section or paragraph. Before the ALTER statement is executed, when control reaches the paragraph specified in procedure-name-1, the GO TO statement transfers control to the paragraph specified in the GO TO statement. After execution of the ALTER statement however, the next time control reaches the paragraph specified in procedure-name-1, the GO TO statement transfers control to the paragraph specified in procedure-name-2. The ALTER statement acts as a program switch, allowing, for example, one sequence of execution during initialization and another sequence during the bulk of file processing. Altered GO TO statements in programs with the INITIAL attribute are returned to their initial states each time the program is entered. Do not use the ALTER statement in programs that have the RECURSIVE attribute, in methods, or in programs compiled with the THREAD option.
Segmentation considerations
A GO TO statement that is coded in an independent segment must not be referenced by an ALTER statement in a segment with a different priority-number. All other uses of the ALTER statement are valid and are performed even if the GO TO referenced by the ALTER statement is in a fixed segment. Altered GO TO statements in independent segments are returned to their initial state when control is transferred to the independent segment that contains the ALTERED GO TO from another independent segment with a different priority-number.
308
This transfer of control can take place because of: v The effect of previous statements v An explicit transfer of control with a PERFORM or GO TO statement v A sort or merge statement with the INPUT or OUTPUT phrase specified
309
CALL statement
The CALL statement transfers control from one object program to another within the run unit. The program containing the CALL statement is the calling program; the program identified in the CALL statement is the called subprogram. Called programs can contain CALL statements; however, only programs defined with the RECURSIVE clause can execute a CALL statement that directly or indirectly calls itself. Do not specify the name of a class or method in the CALL statement.
310
Format
CALL identifier-1 literal-1 procedure-pointer-1 function-pointer-1
identifier-2
identifier-3
identifier-4
RETURNING identifier-5
exception-phrases
END-CALL
exception-phrases:
not-exception-phrase
not-exception-phrase:
NOT ON
EXCEPTION imperative-statement-2
identifier-1, literal-1 literal-1 must be an alphanumeric literal. identifier-1 must be an alphanumeric, alphabetic, or numeric data item described with USAGE DISPLAY such that its value can be a program-name. The rules of formation for program-names are dependent on the PGMNAME compiler option. For details, see the discussion of
Chapter 21. Procedure division statements
311
program-names in PROGRAM-ID paragraph on page 96 and also the description of the PGMNAME compiler option in the Enterprise COBOL Programming Guide. identifier-1 cannot be a windowed date field. procedure-pointer-1 Must be defined with USAGE IS PROCEDURE-POINTER and must be set to a valid program entry point; otherwise, the results of the CALL statement are undefined. After a program has been canceled by COBOL, released by PL/I or C, or deleted by assembler, any procedure-pointers that had been set to that programs entry point are no longer valid. function-pointer-1 Must be defined with USAGE IS FUNCTION-POINTER and must be set to a valid function or program entry point; otherwise, the results of the CALL statement are undefined. After a program has been canceled by COBOL, released by PL/I or C, or deleted by the assembler, any function-pointers that had been set to that function or programs entry point are no longer valid. When the called subprogram is to be entered at the beginning of the procedure division, literal-1 or the contents of identifier-1 must specify the program-name of the called subprogram. When the called subprogram is entered through an ENTRY statement, literal-1 or the contents of identifier-1 must be the same as the name specified in the called subprograms ENTRY statement. For information about how the compiler resolves calls to program-names found in multiple programs, see Conventions for program-names on page 82.
USING phrase
The USING phrase specifies arguments that are passed to the target program. Include the USING phrase in the CALL statement only if there is a USING phrase in the procedure division header or the ENTRY statement through which the called program is run. The number of operands in each USING phrase must be identical. For more information about the USING phrase, see The procedure division header on page 247. The sequence of the operands in the USING phrase of the CALL statement and in the corresponding USING phrase in the called subprograms procedure division header or ENTRY statement determines the correspondence between the operands used by the calling and called programs. This correspondence is positional. The values of the parameters referenced in the USING phrase of the CALL statement are made available to the called subprogram at the time the CALL statement is executed. The description of the data items in the called program must describe the same number of character positions as the description of the corresponding data items in the calling program. The BY CONTENT, BY REFERENCE, and BY VALUE phrases apply to parameters that follow them until another BY CONTENT, BY REFERENCE, or BY VALUE
312
phrase is encountered. BY REFERENCE is assumed if you do not specify a BY CONTENT, BY REFERENCE, or BY VALUE phrase prior to the first parameter.
BY REFERENCE phrase
If the BY REFERENCE phrase is either specified or implied for a parameter, the corresponding data item in the calling program occupies the same storage area as the data item in the called program. identifier-2 Can be any data item of any level in the data division. identifier-2 cannot be a function-identifier. If it is defined in the linkage section or file section, you must have already provided addressability for identifier-2 prior to invocation of the CALL statement. You can do this by coding either one of the following: SET ADDRESS OF identifier-2 TO pointer or PROCEDURE/ENTRY USING. file-name-1 A file-name for a QSAM file. See the Enterprise COBOL Programming Guide for details on using file-name with the CALL statement. ADDRESS OF identifier-2 identifier-2 must be a level-01 or level-77 item defined in the linkage section. OMITTED Indicates that no argument is passed.
BY CONTENT phrase
If the BY CONTENT phrase is specified or implied for a parameter, the called program cannot change the value of this parameter as referenced in the CALL statements USING phrase, though the called program can change the value of the data item referenced by the corresponding data-name in the called programs procedure division header. Changes to the parameter in the called program do not affect the corresponding argument in the calling program. identifier-3 Can be any data item of any level in the data division. identifier-3 cannot be a function identifier. If defined in the linkage section or file section, you must have already provided addressability for identifier-3 prior to invocation of the CALL statement. You can do this by coding either one of the following: SET ADDRESS OF identifier-3 TO pointer or PROCEDURE/ENTRY USING. literal-2 Can be: v An alphanumeric literal v A figurative constant (except ALL literal or NULL/NULLS) v A DBCS literal v A national literal LENGTH OF special register For information about the LENGTH OF special register, see LENGTH OF on page 18. ADDRESS OF identifier-3 identifier-3 must be a data item of any level except 66 or 88 defined in the linkage section, the working-storage section, or the local-storage section.
Chapter 21. Procedure division statements
313
OMITTED Indicates that no argument is passed. For alphanumeric literals, the called subprogram should describe the parameter as PIC X(n) USAGE DISPLAY, where n is the number of characters in the literal. For DBCS literals, the called subprogram should describe the parameter as PIC G(n) USAGE DISPLAY-1, or PIC N(n) with implicit or explicit USAGE DISPLAY-1, where n is the length of the literal. For national literals, the called subprogram should describe the parameter as PIC N(n) with implicit or explicit USAGE NATIONAL, where n is the length of the literal.
BY VALUE phrase
The BY VALUE phrase applies to all arguments that follow until overridden by another BY REFERENCE or BY CONTENT phrase. If the BY VALUE phrase is specified or implied for an argument, the value of the argument is passed, not a reference to the sending data item. The called program can modify the formal parameter that corresponds to the BY VALUE argument, but any such changes do not affect the argument because the called program has access to a temporary copy of the sending data item. Although BY VALUE arguments are primarily intended for communication with non-COBOL programs (such as C), they can also be used for COBOL-to-COBOL invocations. In this case, BY VALUE must be specified or implied for both the argument in the CALL USING phrase and the corresponding formal parameter in the procedure division USING phrase. identifier-4 Must be an elementary data item in the data division. It must be one of the following: v Binary (USAGE BINARY, COMP, COMP-4, or COMP-5) v Floating point (USAGE COMP-1 or COMP-2) v Function-pointer (USAGE FUNCTION-POINTER) v Pointer (USAGE POINTER) v Procedure-pointer (USAGE PROCEDURE-POINTER) v Object reference (USAGE OBJECT REFERENCE) v One single-byte alphanumeric character (such as PIC X or PIC A) v One national character (PIC N), described as an elementary data item of category national. The following can also be passed BY VALUE: v Reference-modified item of usage display and length 1 v Reference-modified item of usage national and length 1 v SHIFT-IN and SHIFT-OUT special registers v LINAGE-COUNTER special register when it is usage binary ADDRESS OF identifier-4 identifier-4 must be a data item of any level except 66 or 88 defined in the linkage section, the working-storage section, or the local-storage section.
| |
314
LENGTH OF special register A LENGTH OF special register passed BY VALUE is treated as a PIC 9(9) binary. For information about the LENGTH OF special register, see LENGTH OF on page 18. literal-3 Must be one of the following: v A numeric literal v A figurative constant ZERO v A one-character alphanumeric literal v A one-character national literal v A symbolic character v A single-byte figurative constant SPACE QUOTE HIGH-VALUE LOW-VALUE ZERO is treated as a numeric value; a fullword binary zero is passed. If literal-3 is a fixed-point numeric literal, it must have a precision of nine or fewer digits. In this case, a fullword binary representation of the literal value is passed. If literal-3 is a floating-point numeric literal, an 8-byte internal floating-point (COMP-2) representation of the value is passed. literal-3 must not be a DBCS literal.
RETURNING phrase
identifier-5 The RETURNING data item, which can be any data item defined in the data division. The return value of the called program is implicitly stored into identifier-5. You can specify the RETURNING phrase for calls to functions written in COBOL, C, or in other programming languages that use C linkage conventions. If you specify the RETURNING phrase on a CALL to a COBOL subprogram: v The called subprogram must specify the RETURNING phrase on its procedure division header. v identifier-5 and the corresponding procedure division RETURNING identifier in the target program must have the same PICTURE, USAGE, SIGN, SYNCHRONIZE, JUSTIFIED, and BLANK WHEN ZERO clauses (except that PICTURE clause currency symbols can differ, and periods and commas can be interchanged due to the DECIMAL POINT IS COMMA clause). When the target returns, its return value is assigned to identifier-5 using the rules for the SET statement if identifier-6 is of usage INDEX, POINTER, FUNCTION-POINTER, PROCEDURE-POINTER, or OBJECT REFERENCE. When identifier-5 is of any other usage, the rules for the MOVE statement are used. The CALL ... RETURNING data item is an output-only parameter. On entry to the called program, the initial state of the PROCEDURE DIVISION RETURNING data item has an undefined and unpredictable value. You must initialize the
Chapter 21. Procedure division statements
315
PROCEDURE DIVISION RETURNING data item in the called program before you reference its value. The value that is passed back to the calling program is the final value of the PROCEDURE DIVISION RETURNING data item when the called program returns. If an EXCEPTION or OVERFLOW occurs, identifier-5 is not changed. identifier-5 must not be reference-modified. The RETURN-CODE special register is not set by execution of CALL statements that include the RETURNING phrase.
ON EXCEPTION phrase
An exception condition occurs when the called subprogram cannot be made available. At that time, one of the following two actions will occur: 1. If the ON EXCEPTION phrase is specified, control is transferred to imperative-statement-1. Execution then continues according to the rules for each statement specified in imperative-statement-1. If a procedure branching or conditional statement that causes explicit transfer of control is executed, control is transferred in accordance with the rules for that statement. Otherwise, upon completion of the execution of imperative-statement-1, control is transferred to the end of the CALL statement and the NOT ON EXCEPTION phrase, if specified, is ignored. 2. If the ON EXCEPTION phrase is not specified in the CALL statement, the NOT ON EXCEPTION phrase, if specified, is ignored.
ON OVERFLOW phrase
The ON OVERFLOW phrase has the same effect as the ON EXCEPTION phrase.
END-CALL phrase
This explicit scope terminator serves to delimit the scope of the CALL statement. END-CALL permits a conditional CALL statement to be nested in another conditional statement. END-CALL can also be used with an imperative CALL statement.
316
317
CANCEL statement
The CANCEL statement ensures that the referenced subprogram is entered in initial state the next time that it is called.
Format
CANCEL
identifier-1 literal-1
identifier-1, literal-1 literal-1 must be an alphanumeric literal. identifier-1 must be an alphanumeric, alphabetic, or zoned decimal data item such that its value can be a program-name. The rules of formation for program-names are dependent on the PGMNAME compiler option. For details, see the discussion of program-names in PROGRAM-ID paragraph on page 96 and the description of the PGMNAME compiler option in the Enterprise COBOL Programming Guide. identifier-1 cannot be a windowed date field. literal-1 or the contents of identifier-1 must be the same as a literal or the contents of an identifier specified in an associated CALL statement. Do not specify the name of a class or a method in the CANCEL statement. After a CANCEL statement for a called subprogram has been executed, that subprogram no longer has a logical connection to the program. The contents of data items in external data records described by the subprogram are not changed when that subprogram is canceled. If a CALL statement is executed later by any program in the run unit naming the same subprogram, that subprogram is entered in its initial state. When a CANCEL statement is executed, all programs contained within the program referenced in the CANCEL statement are also canceled. The result is the same as if a valid CANCEL were executed for each contained program in the reverse order in which the programs appear in the separately compiled program. A CANCEL statement closes all open files that are associated with an internal file connector in the program named in an explicit CANCEL statement. USE procedures associated with those files are not executed. You can cancel a called subprogram in any of the following ways: v By referencing it as the operand of a CANCEL statement v By terminating the run unit of which the subprogram is a member v By executing an EXIT PROGRAM statement or a GOBACK statement in the called subprogram if that subprogram possesses the initial attribute No action is taken when a CANCEL statement is executed if the specified program: v Has not been dynamically called in this run unit by another COBOL program v Has been called and subsequently canceled
318
In a multithreaded environment, a program cannot execute a CANCEL statement naming a program that is active on any thread. The named program must be completely inactive. Called subprograms can contain CANCEL statements. However, a called subprogram must not execute a CANCEL statement that directly or indirectly cancels the calling program itself or that cancels any program higher than itself in the calling hierarchy. In such a case, the run unit is terminated. A program named in a CANCEL statement must be a program that has been called and has not yet executed an EXIT PROGRAM or a GOBACK statement. A program can cancel a program that it did not call, provided that, in the calling hierarchy, the program that executes the CANCEL statement is higher than or equal to the program it is canceling. For example:
A calls B and B calls C A calls B and A calls C (When A receives control, it can cancel C.) (When C receives control, it can cancel B.)
319
CLOSE statement
The CLOSE statement terminates the processing of volumes and files.
Format 1: sequential
CLOSE
file-name-1 (1) REEL (1) UNIT REMOVAL FOR WITH NO REWIND (1) NO REWIND LOCK
WITH
Notes: 1 The REEL, UNIT, and NO REWIND phrases are not valid for VSAM files.
CLOSE
CLOSE
WITH
file-name-1 Designates the file upon which the CLOSE statement is to operate. If more than one file-name is specified, the files need not have the same organization or access. file-name-1 must not be a sort or merge file.
320
REEL and UNIT You can specify these phrases only for QSAM multivolume or single volume files. The terms REEL and UNIT are interchangeable. WITH NO REWIND and FOR REMOVAL These phrases apply only to QSAM tape files. If they are specified for storage devices to which they do not apply, the close operation is successful and a status key value is set to indicate the file was on a non-reel medium. A CLOSE statement can be executed only for a file in an open mode. After successful execution of a CLOSE statement (without the REEL/UNIT phrase if using format 1): v The record area associated with the file-name is no longer available. Unsuccessful execution of a CLOSE statement leaves availability of the record data undefined. v An OPEN statement for the file must be executed before any other input/output statement can be executed for the file and before data is moved to a record description entry associated with the file. If the FILE STATUS clause is specified in the file-control entry, the associated file status key is updated when the CLOSE statement is executed. If the file is in an open status and the execution of a CLOSE statement is unsuccessful, the EXCEPTION/ERROR procedure (if specified) for this file is executed.
321
The meaning of each key letter is shown in Meanings of key letters for sequential file types (Table 40).
Table 37. Sequential files and CLOSE statement phrases CLOSE statement phrases CLOSE CLOSE REEL/UNIT CLOSE REEL/UNIT WITH NO REWIND CLOSE REEL/UNIT FOR REMOVAL CLOSE WITH NO REWIND CLOSE WITH LOCK Non-reel/ unit C F F D C, H C, E Sequential single-volume C, G F, G B, F D B, C C, E, G Sequential multivolume A, C, G F, G B, F D A, B, C A, C, E, G
Table 38. Indexed and relative file types and CLOSE statement phrases CLOSE statement phrases CLOSE CLOSE WITH LOCK Action C C,E
Table 39. Line-sequential file types and CLOSE statement phrases CLOSE statement phrases CLOSE CLOSE WITH LOCK Action C C,E
Table 40. Meanings of key letters for sequential file types Key A Actions taken Previous volumes unaffected Input and input-output files: Standard volume-switch processing is performed for all previous volumes (except those controlled by a previous CLOSE REEL/UNIT statement). Any subsequent volumes are not processed. Output files: Standard volume-switch processing is performed for all previous volumes (except those controlled by a previous CLOSE REEL/UNIT statement). B No rewinding of current reel: The current volume is left in its current position.
322
Table 40. Meanings of key letters for sequential file types (continued) Key C Actions taken Close file Input and input-output files: If the file is at its end, and label records are specified, the standard ending label procedure is performed. Standard system closing procedures are then performed. If the file is at its end, and label records are not specified, label processing does not take place, but standard system closing procedures are performed. If the file is not at its end, standard system closing procedures are performed, but there is no ending label processing. Output files: If label records are specified, standard ending label procedures are performed. Standard system closing procedures are then performed. If label records are not specified, ending label procedures are not performed, but standard system closing procedures are performed. D E Volume removal: Treated as a comment. File lock: The compiler ensures that this file cannot be opened again during this execution of the object program. If the file is a tape unit, it will be rewound and unloaded. Close volume Input and input-output files: If the current reel/unit is the last or only reel/unit for the file or if the reel is on a non-reel/unit medium, no volume switching is performed. If another reel/unit exists for the file, the following operations are performed: a volume switch, beginning volume label procedure, and the first record on the new volume is made available for reading. If no data records exist for the current volume, another volume switch occurs. Output (reel/unit media) files: The following operations are performed: the ending volume label procedure, a volume switch, and the beginning volume label procedure. The next executed WRITE statement places the next logical record on the next direct access volume available. A close statement with the REEL phrase does not close the output file; only an end-of-volume condition occurs. Output (non-reel/unit media) files: Execution of the CLOSE statement is considered successful. The file remains in the open mode and no action takes place except that the value of the I-O status associated with the file is updated. G H Rewind: The current volume is positioned at its physical beginning. Optional phrases ignored: The CLOSE statement is executed as if none of the optional phrases were present.
323
COMPUTE statement
The COMPUTE statement assigns the value of an arithmetic expression to one or more data items. With the COMPUTE statement, arithmetic operations can be combined without the restrictions on receiving data items imposed by the rules for the ADD, SUBTRACT, MULTIPLY, and DIVIDE statements. When arithmetic operations are combined, the COMPUTE statement can be more efficient than the separate arithmetic statements written in a series.
Format
COMPUTE
identifier-1 ROUNDED
= EQUAL
NOT ON
END-COMPUTE
identifier-1 Must name an elementary numeric item or an elementary numeric-edited item. Can name an elementary floating-point data item. If identifier-1 or the result of arithmetic expression (or both) are date fields, see Storing arithmetic results that involve date fields on page 257 for details on how the result is stored in identifier-1. If a year-last date field is specified as identifier-1, the result of arithmetic expression must be a nondate. arithmetic-expression Can be any arithmetic expression, as defined in Arithmetic expressions on page 253. When the COMPUTE statement is executed, the value of arithmetic expression is calculated and stored as the new value of each data item referenced by identifier-1. An arithmetic expression consisting of a single identifier, numeric function, or literal allows the user to set the value of the data items that are referenced by identifier-1 equal to the value of that identifier, function, or literal. A year-last date field must not be specified in the arithmetic expression.
324
ROUNDED phrase
For a discussion of the ROUNDED phrase, see ROUNDED phrase on page 287.
END-COMPUTE phrase
This explicit scope terminator serves to delimit the scope of the COMPUTE statement. END-COMPUTE permits a conditional COMPUTE statement to be nested in another conditional statement. END-COMPUTE can also be used with an imperative COMPUTE statement. For more information, see Delimited scope statements on page 285.
325
CONTINUE statement
The CONTINUE statement is a no operation statement. CONTINUE indicates that no executable instruction is present.
Format
CONTINUE
326
DELETE statement
The DELETE statement removes a record from an indexed or relative file. For indexed files, the key can then be reused for record addition. For relative files, the space is then available for a new record with the same RELATIVE KEY value. When the DELETE statement is executed, the associated file must be open in I-O mode.
Format
DELETE file-name-1 RECORD
INVALID KEY
imperative-statement-1
imperative-statement-2
END-DELETE
file-name-1 Must be defined in an FD entry in the data division and must be the name of an indexed or relative file. After successful execution of a DELETE statement, the record is removed from the file and can no longer be accessed. Execution of the DELETE statement does not affect the contents of the record area associated with file-name-1 or the content of the data item referenced by the data-name specified in the DEPENDING ON phrase of the RECORD clause associated with file-name-1. If the FILE STATUS clause is specified in the file-control entry, the associated file status key is updated when the DELETE statement is executed. The file position indicator is not affected by execution of the DELETE statement.
327
When the DELETE statement is executed, the system removes the record identified by the contents of the prime RECORD KEY data item for indexed files, or the RELATIVE KEY data item for relative files. If the file does not contain such a record, an INVALID KEY condition exists. (See Invalid key condition under Common processing facilities on page 292.) Both the INVALID KEY phrase and an applicable EXCEPTION/ERROR procedure can be omitted. Transfer of control after the successful execution of a DELETE statement, with the NOT INVALID KEY phrase specified, is to the imperative statement associated with the phrase.
END-DELETE phrase
This explicit scope terminator serves to delimit the scope of the DELETE statement. END-DELETE permits a conditional DELETE statement to be nested in another conditional statement. END-DELETE can also be used with an imperative DELETE statement. For more information, see Delimited scope statements on page 285.
328
DISPLAY statement
The DISPLAY statement transfers the contents of each operand to the output device. The contents are displayed on the output device in the order, left to right, in which the operands are listed.
Format
DISPLAY
identifier-1 literal-1
UPON
mnemonic-name-1 environment-name-1
NO ADVANCING WITH
| | | | | |
identifier-1 Identifier-1 references the data that is to be displayed. Identifier-1 can reference any data item except an item of usage PROCEDURE-POINTER, FUNCTION-POINTER, OBJECT REFERENCE, or INDEX. Identifier-1 cannot be an index-name. If identifier-1 is a binary, internal decimal, or internal floating-point data item, identifier-1 is converted automatically to external format as follows: v Binary and internal decimal items are converted to zoned decimal. Negative signed values cause a low-order sign overpunch. v Internal floating-point numbers are converted to external floating-point numbers for display such that: A COMP-1 item will display as if it had an external floating-point PICTURE clause of -.9(8)E-99. A COMP-2 item will display as if it had an external floating-point PICTURE clause of -.9(17)E-99. Data items defined with USAGE POINTER are converted to a zoned decimal number that has an implicit PICTURE clause of PIC 9(10). If the output is directed to CONSOLE, data items described with usage NATIONAL are converted from national character representation to EBCDIC. The conversion uses the EBCDIC code page that was specified in the CODEPAGE compiler option when the source code was compiled. National characters without EBCDIC counterparts are converted to default substitution characters; no exception condition is indicated or raised. If the output is not directed to CONSOLE, data items described with usage NATIONAL are written without conversion and without data validation. No other categories of data require conversion. Date fields are treated as nondates when specified in a DISPLAY statement. That is, the DATE FORMAT is ignored and the content of the data item is transferred to the output device as is.
| | | |
| |
329
DBCS data items, explicitly or implicitly defined as USAGE DISPLAY-1, are transferred to the sending field of the output device. For proper results, the output device must have the capability to recognize DBCS shift-out and shift-in control characters. Both DBCS and non-DBCS operands can be specified in a single DISPLAY statement. literal-1 Can be any literal or any figurative constant as specified in Figurative constants on page 13. When a figurative constant is specified, only a single occurrence of that figurative constant is displayed. UPON environment-name-1 or the environment name associated with mnemonic-name-1 must be associated with an output device. See SPECIAL-NAMES paragraph on page 108. A default logical record size is assumed for each device, as follows: The system logical output device 120 characters The system punch device 80 characters The console 100 characters A maximum logical record size is allowed for each device, as follows: The system logical output device 255 characters The system punch device 255 characters The console 100 characters On the system punch device, the last eight characters are used for PROGRAM-ID name. When the UPON phrase is omitted, the systems logical output device is assumed. The list of valid environment-names in a DISPLAY statement is shown in Meanings of environment names (Table 5 on page 110). For details on routing DISPLAY output to stdout, see the Enterprise COBOL Programming Guide.
WITH NO ADVANCING When specified, the positioning of the output device will not be changed in any way following the display of the last operand. If the WITH NO ADVANCING phrase is not specified, after the last operand has been transferred to the output device, the positioning of the output device will be reset to the leftmost position of the next line of the device. Enterprise COBOL does not support output devices that are capable of positioning to a specific character position. See the Enterprise COBOL Programming Guide for more information about the DISPLAY statement.
330
The DISPLAY statement transfers the data in the sending field to the output device. The size of the sending field is the total byte count of all operands listed. If the output device is capable of receiving data of the same size as the data item being transferred, then the data item is transferred. If the output device is not capable of receiving data of the same size as the data item being transferred, then one of the following applies: v If the total count is less than the device maximum, the remaining rightmost positions are padded with spaces. v If the total count exceeds the maximum, as many records are written as are needed to display all operands. Any operand being printed or displayed when the end of a record is reached is continued in the next record. If a DBCS operand must be split across multiple records, it will be split only on a double-byte boundary. Shift code insertion is required for splitting DBCS items. That is, when a DBCS operand is split across multiple records, the shift-in character is inserted at the end of the current record, and the shift-out character is inserted at the beginning of the next record. A space is padded after the shift-in character, if necessary. These inserted shift codes and spaces are included in the total byte count of the sending data items. After the last operand has been transferred to the output device, the device is reset to the leftmost position of the next line of the device. If a DBCS data item or literal is specified in a DISPLAY statement, the size of the sending field is the total byte count of all operands listed, with each DBCS character counted as two bytes, plus the necessary shift codes and spaces for DBCS.
331
DIVIDE statement
The DIVIDE statement divides one numeric data item into or by others and sets the values of data items equal to the quotient and remainder.
Format 1
DIVIDE
identifier-1 literal-1
INTO
identifier-2 ROUNDED
NOT ON
END-DIVIDE
In format 1, the value of identifier-1 or literal-1 is divided into the value of identifier-2, and the quotient is then stored in identifier-2. For each successive occurrence of identifier-2, the division takes place in the left-to-right order in which identifier-2 is specified.
Format 2
DIVIDE identifier-1 literal-1 INTO identifier-2 literal-2
GIVING
identifier-3 ROUNDED
NOT ON
END-DIVIDE
332
In format 2, the value of identifier-1 or literal-1 is divided into the value of identifier-2 or literal-2. The value of the quotient is stored in each data item referenced by identifier-3.
Format 3
DIVIDE identifier-1 literal-1 BY identifier-2 literal-2
GIVING
identifier-3 ROUNDED
NOT ON
END-DIVIDE
In format 3, the value of identifier-1 or literal-1 is divided by the value of identifier-2 or literal-2. The value of the quotient is stored in each data item referenced by identifier-3.
Format 4
DIVIDE identifier-1 literal-1 INTO identifier-2 literal-2 REMAINDER identifier-4 ROUNDED
GIVING identifier-3
NOT ON
END-DIVIDE
In format 4, the value of identifier-1 or literal-1 is divided into identifier-2 or literal-2. The value of the quotient is stored in identifier-3, and the value of the remainder is stored in identifier-4.
333
Format 5
DIVIDE identifier-1 literal-1 BY identifier-2 literal-2 REMAINDER identifier-4 ROUNDED
GIVING identifier-3
NOT ON
END-DIVIDE
In format 5, the value of identifier-1 or literal-1 is divided by identifier-2 or literal-2. The value of the quotient is stored in identifier-3, and the value of the remainder is stored in identifier-4. For all formats: identifier-1, identifier-2 Must name an elementary numeric data item. identifier-1 and identifier-2 cannot be date fields. identifier-3, identifier-4 Must name an elementary numeric or numeric-edited item. If identifier-3 or identifier-4 is a date field, see Storing arithmetic results that involve date fields on page 257 for details on how the quotient or remainder is stored in identifier-3. literal-1, literal-2 Must be a numeric literal. In formats 1, 2, and 3, floating-point data items and literals can be used anywhere that a numeric data item or literal can be specified. In formats 4 and 5, floating-point data items or literals cannot be used.
ROUNDED phrase
For formats 1, 2, and 3, see ROUNDED phrase on page 287. For formats 4 and 5, the quotient used to calculate the remainder is in an intermediate field. The value of the intermediate field is truncated rather than rounded.
334
REMAINDER phrase
The result of subtracting the product of the quotient and the divisor from the dividend is stored in identifier-4. If identifier-3, the quotient, is a numeric-edited item, the quotient used to calculate the remainder is an intermediate field that contains the unedited quotient. The REMAINDER phrase is invalid if the receiver or any of the operands is a floating-point item. Any subscripts for identifier-4 in the REMAINDER phrase are evaluated after the result of the divide operation is stored in identifier-3 of the GIVING phrase.
END-DIVIDE phrase
This explicit scope terminator serves to delimit the scope of the DIVIDE statement. END-DIVIDE turns a conditional DIVIDE statement into an imperative statement that can be nested in another conditional statement. END-DIVIDE can also be used with an imperative DIVIDE statement. For more information, see Delimited scope statements on page 285.
335
ENTRY statement
The ENTRY statement establishes an alternate entry point into a COBOL called subprogram. The ENTRY statement cannot be used in: v Programs that specify a return value using the procedure division RETURNING phrase. For details, see the discussion of the RETURNING phrase under The procedure division header on page 247. v Nested program. See Nested programs on page 81 for a description of nested programs. When a CALL statement that specifies the alternate entry point is executed in a calling program, control is transferred to the next executable statement following the ENTRY statement.
Format
ENTRY literal-1 .
identifier-1
literal-1 Must be an alphanumeric literal that conform to the rules for the formation of a program-name in an outermost program (see PROGRAM-ID paragraph on page 96). Must not match the program-ID or any other ENTRY literal in this program. Must not be a figurative constant. Execution of the called program begins at the first executable statement following the ENTRY statement whose literal corresponds to the literal or identifier specified in the CALL statement. The entry point name on the ENTRY statement can be affected by the PGMNAME compiler option. For details, see the Enterprise COBOL Programming Guide.
USING phrase
For a discussion of the USING phrase, see The procedure division header on page 247.
336
EVALUATE statement
The EVALUATE statement provides a shorthand notation for a series of nested IF statements. It can evaluate multiple conditions. The subsequent action depends on the results of these evaluations.
Format
EVALUATE identifier-1 literal-1 expression-1 TRUE FALSE
ALSO
WHEN
phrase 1
imperative-statement-1
ALSO
phrase 2
END-EVALUATE
phrase 1:
ANY condition-1 TRUE FALSE NOT identifier-3 literal-3 arithmetic-expression-1 THROUGH THRU identifier-4 literal-4 arithmetic-expression-2
phrase 2:
ANY condition-2 TRUE FALSE NOT identifier-5 literal-5 arithmetic-expression-3 THROUGH THRU identifier-6 literal-6 arithmetic-expression-4
337
Operands before the WHEN phrase Are interpreted in one of two ways, depending on how they are specified: v Individually, they are called selection subjects. v Collectively, they are called a set of selection subjects. Operands in the WHEN phrase Are interpreted in one of two ways, depending on how they are specified: v Individually, they are called selection objects v Collectively, they are called a set of selection objects. ALSO Separates selection subjects within a set of selection subjects; separates selection objects within a set of selection objects. THROUGH and THRU Are equivalent. Two operands connected by a THRU phrase must be of the same class. The two operands thus connected constitute a single selection object. The number of selection objects within each set of selection objects must be equal to the number of selection subjects. Each selection object within a set of selection objects must correspond to the selection subject having the same ordinal position within the set of selection subjects, according to the following rules: v Identifiers, literals, or arithmetic expressions appearing within a selection object must be valid operands for comparison to the corresponding operand in the set of selection subjects. For comparisons involving date fields, see Comparison of date fields on page 271. v condition-1, condition-2, or the word TRUE or FALSE appearing as a selection object must correspond to a conditional expression or the word TRUE or FALSE in the set of selection subjects. v The word ANY can correspond to a selection subject of any type.
END-EVALUATE phrase
This explicit scope terminator serves to delimit the scope of the EVALUATE statement. END-EVALUATE permits a conditional EVALUATE statement to be nested in another conditional statement. For more information, see Delimited scope statements on page 285.
Determining values
| | | | The execution of the EVALUATE statement operates as if each selection subject and selection object were evaluated and assigned a numeric, alphanumeric, DBCS, or national character value; a range of numeric, alphanumeric, DBCS, or national character values; or a truth value. These values are determined as follows: v Any selection subject specified by identifier-1, identifier-2, ... and any selection object specified by identifier-3 or identifier-5 without the NOT or THRU phrase are assigned the value and class of the data item that they reference. v Any selection subject specified by literal-1, literal-2, ... and any selection object specified by literal-3 or literal-5 without the NOT or THRU phrase are assigned
338
the value and class of the specified literal. If literal-3 or literal-5 is the figurative constant ZERO, QUOTE, or SPACE, the figurative constant is assigned the class of the corresponding selection subject. v Any selection subject in which expression-1, expression-2, ... is specified as an arithmetic expression, and any selection object without the NOT or THRU phrase in which arithmetic-expression-1 or arithmetic-expression-3 is specified, are assigned numeric values according to the rules for evaluating an arithmetic expression. (See Arithmetic expressions on page 253.) v Any selection subject in which expression-1, expression-2, ... is specified as a conditional expression, and any selection object in which condition-1 or condition-2 is specified, are assigned a truth value according to the rules for evaluating conditional expressions. (See Conditional expressions on page 259.) v Any selection subject or any selection object specified by the words TRUE or FALSE is assigned a truth value. The truth value true is assigned to those items specified with the word TRUE, and the truth value false is assigned to those items specified with the word FALSE. v Any selection object specified by the word ANY is not further evaluated. v If the THRU phrase is specified for a selection object without the NOT phrase, the range of values includes all values that, when compared to the selection subject, are greater than or equal to the first operand and less than or equal to the second operand according to the rules for comparison. If the first operand is greater than the second operand, there are no values in the range. v If the NOT phrase is specified for a selection object, the values assigned to that item are all values not equal to the value, or range of values, that would have been assigned to the item had the NOT phrase been omitted.
| | |
339
3. If the above comparison is not satisfied for every selection object within the set of selection objects being compared, that set of selection objects does not satisfy the set of selection subjects. 4. This procedure is repeated for subsequent sets of selection objects in the order of their appearance in the source text, until either a WHEN phrase satisfying the set of selection subjects is selected or until all sets of selection objects are exhausted.
340
EXIT statement
The EXIT statement provides a common end point for a series of procedures.
Format
paragraph-name . EXIT.
The EXIT statement enables you to assign a procedure-name to a given point in a program. The EXIT statement is treated as a CONTINUE statement. Any statements following the EXIT statement are executed.
341
Format
EXIT METHOD.
You can specify EXIT METHOD only in the procedure division of a method. EXIT METHOD causes the executing method to terminate, and control returns to the invoking statement. If the containing method specifies the procedure division RETURNING phrase, the value in the data item referred to by the RETURNING phrase becomes the result of the method invocation. If you need method-specific data to be in the last-used state on each invocation, declare it in method working-storage. If you need method-specific data to be in the initial state on each invocation, declare it in method local-storage. If control reaches an EXIT METHOD statement in a method definition, control returns to the point that immediately follows the INVOKE statement in the invoking program or method. The state of the invoking program or method is identical to that which existed at the time it executed the INVOKE statement. The contents of data items and the contents of data files shared between the invoking program or method and the invoked method could have changed. The state of the invoked method is not altered except that the end of the ranges of all PERFORM statements executed by the method are considered to have been reached. The EXIT METHOD statement does not have to be the last statement in a sequence of imperative statements, but the statements following the EXIT METHOD will not be executed. When there is no next executable statement in an invoked method, an implicit EXIT METHOD statement is executed.
342
Format
EXIT PROGRAM.
If control reaches an EXIT PROGRAM statement in a program that does not possess the INITIAL attribute while operating under the control of a CALL statement (that is, the CALL statement is active), control returns to the point in the calling routine (program or method) immediately following the CALL statement. The state of the calling routine is identical to that which existed at the time it executed the CALL statement. The contents of data items and the contents of data files shared between the calling and called routine could have been changed. The state of the called program or method is not altered except that the ends of the ranges of all executed PERFORM statements are considered to have been reached. The execution of an EXIT PROGRAM statement in a called program that possesses the INITIAL attribute is equivalent also to executing a CANCEL statement referencing that program. If control reaches an EXIT PROGRAM statement, and no CALL statement is active, control passes through the exit point to the next executable statement. If a subprogram specifies the procedure division RETURNING phrase, the value in the data item referred to by the RETURNING phrase becomes the result of the subprogram invocation. The EXIT PROGRAM statement should be the last statement in a sequence of imperative statements. When it is not, statements following the EXIT PROGRAM will not be executed if a CALL statement is active. When there is no next executable statement in a called program, an implicit EXIT PROGRAM statement is executed.
343
GOBACK statement
The GOBACK statement functions like the EXIT PROGRAM statement when it is coded as part of a called program (or the EXIT METHOD statement when GOBACK is coded as part of an invoked method) and like the STOP RUN statement when coded in a main program. The GOBACK statement specifies the logical end of a called program or invoked method.
Format
GOBACK
A GOBACK statement should appear as the only statement or as the last of a series of imperative statements in a sentence because any statements following the GOBACK are not executed. GOBACK must not be used in a declarative procedure in which the GLOBAL phrase is specified. If control reaches a GOBACK statement while a CALL statement is active, control returns to the point in the calling program or method immediately following the CALL statement, as in the EXIT PROGRAM statement. If control reaches a GOBACK statement while an INVOKE statement is active, control returns to the point in the invoking program or method immediately following the INVOKE statement, as in the EXIT METHOD statement. In addition, the execution of a GOBACK statement in a called program that possesses the INITIAL attribute is equivalent to executing a CANCEL statement referencing that program. The table below shows the action taken for the GOBACK statement in both a main program and a subprogram.
Termination statement GOBACK Main program Returns to the calling program. (Can be the system, which causes the application to end.) Subprogram Returns to the calling program.
344
GO TO statement
The GO TO statement transfers control from one part of the procedure division to another. The types of GO TO statements are: v Unconditional v Conditional v Altered
Unconditional GO TO
The unconditional GO TO statement transfers control to the first statement in the paragraph or section identified by procedure-name, unless the GO TO statement has been modified by an ALTER statement. (See ALTER statement on page 308.)
Format 1: unconditional
GO TO procedure-name-1
procedure-name-1 Must name a procedure or a section in the same procedure division as the GO TO statement. When the unconditional GO TO statement is not the last statement in a sequence of imperative statements, the statements following the GO TO are not executed. When a paragraph is referred to by an ALTER statement, the paragraph must consist of a paragraph-name followed by an unconditional or altered GO TO statement.
Conditional GO TO
The conditional GO TO statement transfers control to one of a series of procedures, depending on the value of the data item referenced by identifier-1.
Format 2: conditional
GO TO
procedure-name-1
DEPENDING ON
identifier-1
procedure-name-1 Must be a procedure or a section in the same procedure division as the GO TO statement. The number of procedure-names must not exceed 255. identifier-1 Must be a numeric elementary data item that is an integer. identifier-1 cannot be a windowed date field. If 1, control is transferred to the first statement in the procedure named by the first occurrence of procedure-name-1.
Chapter 21. Procedure division statements
345
If 2, control is transferred to the first statement in the procedure named by the second occurrence of procedure-name-1, and so forth. If the value of identifier is anything other than a value within the range of 1 through n (where n is the number of procedure-names specified in this GO TO statement), no control transfer occurs. Instead, control passes to the next statement in the normal sequence of execution.
Altered GO TO
The altered GO TO statement transfers control to the first statement of the paragraph named in the ALTER statement. You cannot specify the altered GO TO statement in the following: v A program or method that has the RECURSIVE attribute v A program compiled with the THREAD compiler option An ALTER statement referring to the paragraph that contains the altered GO TO statement should be executed before the GO TO statement is executed. Otherwise, the GO TO statement acts like a CONTINUE statement.
Format 3: altered
paragraph-name . GO TO .
When an ALTER statement refers to a paragraph, the paragraph can consist only of the paragraph-name followed by an unconditional or altered GO TO statement.
MORE-LABELS GO TO
The GO TO MORE-LABELS statement can be specified only in a LABEL declarative.
Format 4: MORE-LABELS
GO TO MORE-LABELS
346
IF statement
The IF statement evaluates a condition and provides for alternative actions in the object program, depending on the evaluation.
Format
IF condition-1 THEN
condition-1 Can be any simple or complex condition, as described in Conditional expressions on page 259. statement-1, statement-2 Can be any one of the following: v An imperative statement v A conditional statement v An imperative statement followed by a conditional statement NEXT SENTENCE The NEXT SENTENCE phrase transfers control to an implicit CONTINUE statement immediately following the next separator period. When NEXT SENTENCE is specified with END-IF, control does not pass to the statement following the END-IF. Instead, control passes to the statement after the closest following period.
END-IF phrase
This explicit scope terminator serves to delimit the scope of the IF statement. END-IF permits a conditional IF statement to be nested in another conditional statement. For more information about explicit scope terminators, see Delimited scope statements on page 285. The scope of an IF statement can be terminated by any of the following: v An END-IF phrase at the same level of nesting v A separator period
347
Transferring control
If the condition tested is true, one of the following actions takes place: v If statement-1 is specified, statement-1 is executed. If statement-1 contains a procedure branching or conditional statement, control is transferred according to the rules for that statement. If statement-1 does not contain a procedure-branching statement, the ELSE phrase, if specified, is ignored, and control passes to the next executable statement after the corresponding END-IF or separator period. v If NEXT SENTENCE is specified, control passes to an implicit CONTINUE statement immediately preceding the next separator period. If the condition tested is false, one of the following actions takes place: v If ELSE statement-2 is specified, statement-2 is executed. If statement-2 contains a procedure-branching or conditional statement, control is transferred, according to the rules for that statement. If statement-2 does not contain a procedure-branching or conditional statement, control is passed to the next executable statement after the corresponding END-IF or separator period. v If ELSE NEXT SENTENCE is specified, control passes to an implicit CONTINUE STATEMENT immediately preceding the next separator period. v If neither ELSE statement-2 nor ELSE NEXT SENTENCE is specified, control passes to the next executable statement after the corresponding END-IF or separator period. When the ELSE phrase is omitted, all statements following the condition and preceding the corresponding END-IF or the separator period for the sentence are considered to be part of statement-1.
Nested IF statements
When an IF statement appears as statement-1 or statement-2, or as part of statement-1 or statement-2, that IF statement is nested. Nested IF statements are considered to be matched IF, ELSE, and END-IF combinations proceeding from left to right. Thus, any ELSE encountered is matched with the nearest preceding IF that either has not been already matched with an ELSE or has not been implicitly or explicitly terminated. Any END-IF encountered is matched with the nearest preceding IF that has not been implicitly or explicitly terminated.
348
INITIALIZE statement
The INITIALIZE statement sets selected categories of data fields to predetermined values. It is functionally equivalent to one or more MOVE statements.
Format
INITIALIZE
identifier-1
REPLACING
BY DATA
identifier-2 literal-1
identifier-1 Receiving areas. | | | | | | | | | | | | | | | | | | identifier-1 must reference one of the following: v An alphanumeric group item v A national group item v An elementary data item of one of the following categories: Alphabetic Alphanumeric Alphanumeric-edited DBCS External floating-point Internal floating-point National National-edited Numeric Numeric-edited v A special register that is valid as a receiving operand in a MOVE statement with identifer-2 or literal-1 as the sending operand. When identifier-1 references a national group item, identifier-1 is processed as a group item. identifier-2, literal-1 Sending areas. | | When identifier-2 references a national group item, identifier-2 is processed as an elementary data item of category national.
349
| | | | |
identifier-2 must reference an elementary data item (or a national group item treated as elementary) that is valid as a sending operand in a MOVE statement with identifier-1 as the receiving operand. literal-1 must be a literal that is valid as a sending operand in a MOVE statement with identifier-1 as the receiving operand. A subscripted item can be specified for identifier-1. A complete table can be initialized only by specifying identifier-1 as a group that contains the complete table. Usage note: The data description entry for identifier-1 can contain the DEPENDING phrase of the OCCURS clause. However, you cannot use the INITIALIZE statement to initialize a variably-located item or group that follows a DEPENDING phrase of the OCCURS clause within the same 01-level item. The data description entry for identifier-1 must not contain a RENAMES clause. Special registers can be specified for identifier-1 and identifier-2 only if they are valid receiving fields or sending fields, respectively, for the implied MOVE statements.
REPLACING phrase
| | | | | | | | | When the REPLACING phrase is specified: v identifier-2 must reference an item of a category that is valid as a sending operand in a MOVE statement to an item of the corresponding category specified in the REPLACING phrase. v literal-1 must be of a category that is valid as a sending operand in a MOVE statement to an item of the corresponding category specified in the REPLACING phrase. v A floating-point literal, a data item of category internal floating-point, or a data item of category external floating point is treated as if it were in the NUMERIC category. v The same category cannot be repeated in a REPLACING phrase. The keyword following the word REPLACING corresponds to a category of data shown in Classes and categories of data on page 156. When the REPLACING phrase is not specified: v SPACE is the implied sending item for receiving items of category alphabetic, alphanumeric, alphanumeric-edited, DBCS, national, or national-edited. v ZERO is the implied sending item for receiving items of category numeric or numeric-edited.
| | | |
350
| | | |
| |
v If identifier-1 references an alphanumeric group item or a national group item, any elementary item within the data item referenced by identifier-1 is initialized only if it belongs to a category specified in the REPLACING phrase. Initialization takes place as if the data item referenced by identifier-2 or literal-1 were the sending operand in an implicit MOVE statement to the receiving item. All elementary receiving fields, including all occurrences of table items within the group, are initialized, with the following exceptions: v Index data items v Object references v Data items defined with USAGE IS POINTER, USAGE IS FUNCTION-POINTER, or USAGE IS PROCEDURE-POINTER v Elementary FILLER data items v Items that are subordinate to identifier-1 and contain a REDEFINES clause, or any items subordinate to such an item. (However, identifier-1 can contain a REDEFINES clause or be subordinate to a redefining item.) 2. The areas referenced by identifier-1 are initialized in the order (left to right) of the appearance of identifier-1 in the statement. Within a group receiving field, affected elementary items are initialized in the order of their definition within the group. 3. If identifier-1 occupies the same storage area as identifier-2, the result of the execution of this statement is undefined, even if these operands are defined by the same data description entry.
351
INSPECT statement
The INSPECT statement examines characters or groups of characters in a data item and does the following: v Counts the occurrences of a specific character (alphanumeric, DBCS, or national) in a data item (formats 1 and 3). v Counts the occurrences of specific characters and fills all or portions of a data item with specified characters, such as spaces or zeros (formats 2 and 3). v Converts all occurrences of specific characters in a data item to user-supplied replacement characters (format 4).
Format 1
INSPECT identifier-1 TALLYING
identifier-2
FOR
CHARACTERS phrase 1
ALL LEADING
identifier-3 literal-1
phrase 1
phrase 1:
BEFORE AFTER identifier-4 literal-2
INITIAL
352
Format 2
INSPECT identifier-1 REPLACING
CHARACTERS BY
identifier-5 literal-3
phrase 1
identifier-3 literal-1
BY
identifier-5 literal-3
phrase 1
phrase 1:
BEFORE AFTER identifier-4 literal-2
INITIAL
353
Format 3
INSPECT identifier-1 TALLYING
identifier-2
FOR
CHARACTERS phrase 1
identifier-3 literal-1
phrase 1
CHARACTERS BY
identifier-5 literal-3
phrase 1
identifier-3 literal-1
BY
identifier-5 literal-3
phrase 1
phrase 1:
BEFORE AFTER identifier-4 literal-2
INITIAL
Format 4
INSPECT identifier-1 CONVERTING identifier-6 literal-4 TO identifier-7 literal-5
BEFORE AFTER
INITIAL
identifier-4 literal-2
354
| | | | | | | | | | | | | | | | | | | | | | | | |
identifier-1 Is the inspected item and can be any of the following: v An alphanumeric group item or national group item v An elementary data item described explicitly or implicitly with usage DISPLAY, DISPLAY-1, or NATIONAL. The item can have any category that is valid for the selected usage. identifier-3, identifier-4, identifier-5, identifier-6, identifier-7 Must reference an elementary data item described explicitly or implicitly with usage DISPLAY, DISPLAY-1, or NATIONAL. literal-1, literal-2, literal-3, literal-4 Must be of category alphanumeric, DBCS, or national. When identifier-1 is of usage NATIONAL, literals must be of category national. When identifier-1 is of usage DISPLAY-1, literals must be of category DBCS. When identifier-1 is of usage DISPLAY, literals must be of category alphanumeric. When identifier-1 is of usage DISPLAY-1 (DBCS) literals may be the figurative constant SPACE. When identifier-1 is of usage DISPLAY or NATIONAL, literals can be any figurative constant that does not begin with the word ALL, as specified in Figurative constants on page 13. The figurative constant is treated as a one-character alphanumeric literal when identifier-1 is of usage DISPLAY, and as a one-character national literal when identifier-1 is of usage NATIONAL. All identifiers (except identifier-2) must have the same usage as identifier-1. All literals must have category alphanumeric, DBCS, or national when identifier-1 has usage DISPLAY, DISPLAY-1, or NATIONAL, respectively. None of the identifiers in an INSPECT statement can be windowed date fields.
355
CHARACTERS When CHARACTERS is specified and neither the BEFORE nor AFTER phrase is specified, the count field (identifier-2) is increased by 1 for each character (including the space character) in the inspected item (identifier-1). Thus, execution of an INSPECT statement with the TALLYING phrase increases the value in the count field by the number of character positions in the inspected item. ALL When ALL is specified and neither the BEFORE nor AFTER phrase is specified, the count field (identifier-2) is increased by 1 for each nonoverlapping occurrence of the tallying comparand (identifier-3 or literal-1) in the inspected item (identifier-1), beginning at the leftmost character position and continuing to the rightmost.
LEADING When LEADING is specified and neither the BEFORE nor AFTER phrase is specified, the count field (identifier-2) is increased by 1 for each contiguous nonoverlapping occurrence of the tallying comparand in the inspected item (identifier-1), provided that the leftmost such occurrence is at the point where comparison began in the first comparison cycle for which the tallying comparand is eligible to participate. FIRST (format 3 only) When FIRST is specified and neither the BEFORE nor AFTER phrase is specified, the substitution field replaces the leftmost occurrence of the subject field in the inspected item (identifier-1).
LEADING When LEADING is specified and neither the BEFORE nor AFTER phrase is specified, the substitution field replaces each contiguous nonoverlapping occurrence of the subject field in the inspected item (identifier-1), provided that the leftmost such occurrence is at the point where comparison began in the first comparison cycle for which this substitution field is eligible to participate.
356
FIRST When FIRST is specified and neither the BEFORE nor AFTER phrase is specified, the substitution field replaces the leftmost occurrence of the subject field in the inspected item (identifier-1). When both the TALLYING and REPLACING phrases are specified (format 3), the INSPECT statement is executed as if an INSPECT TALLYING statement (format 1) were specified, immediately followed by an INSPECT REPLACING statement (format 2).
Replacement rules
The following replacement rules apply: v When the subject field is a figurative constant, the one-character substitution field replaces each character in the inspected item that is equivalent to the figurative constant. v When the substitution field is a figurative constant, the substitution field replaces each nonoverlapping occurrence of the subject field in the inspected item. v When the subject and substitution fields are character-strings, the character-string specified in the substitution field replaces each nonoverlapping occurrence of the subject field in the inspected item. v After replacement has occurred in a given character position in the inspected item, no further replacement for that character position is made in this execution of the INSPECT statement.
357
Is treated ... As an alphanumeric character string As a DBCS character string As a national character string As if redefined as category alphanumeric, with the INSPECT statement referring to an alphanumeric character string As if redefined as category national, with the INSPECT statement referring to a national character string As if moved to an unsigned external decimal item of usage DISPLAY with the same length as the identifier and then redefined as category alphanumeric, with the INSPECT statement referring to an alphanumeric character string If the sign is a separate character, the byte containing the sign is not examined and, therefore, not replaced.
| | | | | | |
National Alphanumeric-edited, numeric-edited with usage DISPLAY, or numeric with usage DISPLAY (unsigned, external decimal) National-edited, numeric-edited with usage NATIONAL or numeric with usage NATIONAL (unsigned, external decimal) Numeric with usage DISPLAY (signed, external decimal)
| | | |
If the referenced item is identifier-1, the string that results from any replacing or converting action is copied back to identifier-1.
358
Table 41. Treatment of the content of data items (continued) When referenced by any identifier except identifier-2, the content of each item of category ...
Is treated ... As if moved to an unsigned external decimal item of usage NATIONAL with the same length as the identifier and then redefined as category national, with the INSPECT statement referring to a national character string If the sign is a separate character, the byte containing the sign is not examined and, therefore, not replaced. If the referenced item is identifier-1, the string that results from any replacing or converting action is copied back to identifier-1.
| | | | | | | | | | | | |
As if redefined as category alphanumeric, with the INSPECT statement referring to an alphanumeric character-string As if redefined as category national, with the INSPECT statement referring to a national character-string
| | |
Data flow
Except when the BEFORE or AFTER phrase is specified, inspection begins at the leftmost character position of the inspected item (identifier-1) and proceeds character-by-character to the rightmost position. The comparands of the following phrases are compared in the left-to-right order in which they are specified in the INSPECT statement: v TALLYING (literal-1 or identifier-3, ... ) v REPLACING (literal-3 or identifier-5, ... ) If any identifier is subscripted or reference modified, or is a function-identifier, the subscript, reference-modifier, or function is evaluated only once as the first operation in the execution of the INSPECT statement. For examples of TALLYING and REPLACING, see the Enterprise COBOL Programming Guide.
Comparison cycle
The comparison cycle consists of the following actions: 1. The first comparand is compared with an equal number of leftmost contiguous character positions in the inspected item. The comparand matches the inspected characters only if both are equal, character-for-character. If the CHARACTERS phrase is specified, an implied one-character comparand is used. The implied character is always considered to match the inspected character in the inspected item.
359
2. If no match occurs for the first comparand and there are more comparands, the comparison is repeated for each successive comparand until either a match is found or all comparands have been acted upon. 3. Depending on whether a match is found, these actions are taken: v If a match is found, tallying or replacing takes place as described in the TALLYING and REPLACING phrase descriptions. If there are more character positions in the inspected item, the first character position following the rightmost matching character is now considered to be in the leftmost character position. The process described in actions 1 and 2 is then repeated. v If no match is found and there are more character positions in the inspected item, the first character position following the leftmost inspected character is now considered to be in the leftmost character position. The process described in actions 1 and 2 is then repeated. 4. Actions 1 through 3 are repeated until the rightmost character position in the inspected item either has been matched or has been considered as being in the leftmost character position. When the BEFORE or AFTER phrase is specified, the comparison cycle is modified, as described in BEFORE and AFTER phrases (all formats) on page 357.
360
361
INVOKE statement
The INVOKE statement can create object instances of a COBOL or Java class and can invoke a method defined in a COBOL or Java class.
Format
INVOKE identifier-1 class-name-1 SELF SUPER literal-1 identifier-2 NEW
USING BY
identifier-3
RETURNING identifier-4
EXCEPTION imperative-statement-1 ON
NOT ON
EXCEPTION imperative-statement-2
END-INVOKE
identifier-1 Must be defined as USAGE OBJECT REFERENCE. The contents of identifier-1 specify the object on which a method is invoked. When identifier-1 is specified, either literal-1 or identifier-2 must be specified, identifying the name of the method to be invoked. The results of the INVOKE statement are undefined if either: v identifier-1 does not contain a valid reference to an object. v identifier-1 contains NULL. class-name-1 When class-name-1 is specified together with literal-1 or identifier-2, the INVOKE statement invokes a static or factory method of the class referenced by class-name-1. literal-1 or identifier-2 specifies the name of the method that is to be invoked. The method must be a static method if class-name-1 is a Java class; the method must be a factory method if class-name-1 is a COBOL class. When class-name-1 is specified together with NEW, the INVOKE statement creates a new object that is an instance of class class-name-1. You must specify class-name-1 in the REPOSITORY paragraph of the configuration section of the class or program that contains the INVOKE statement.
362
SELF
An implicit reference to the object used to invoke the currently executing method. When SELF is specified, the INVOKE statement must appear within the procedure division of a method.
SUPER An implicit reference to the object that was used to invoke the currently executing method. The resolution of the method to be invoked will ignore any methods declared in the class definition of the currently executing method and methods defined in any class derived from that class; thus the method invoked will be one that is inherited from an ancestor class. literal-1 The value of literal-1 is the name of the method to be invoked. The referenced object must support the method identified by literal-1. literal-1 must be an alphanumeric literal or a national literal. literal-1 is interpreted in a case-sensitive manner. The method name, the number of arguments, and the data types of the arguments in the USING phrase of the INVOKE statement are used to select the method with matching signature that is supported by the object. The method can be overloaded. | | identifier-2 A data item of category alphabetic, alphanumeric, or national that at run time contains the name of the method to be invoked. The referenced object must support the method identified by identifier-2. If identifier-2 is specified, identifier-1 must be defined as USAGE OBJECT REFERENCE without any optional phrases; that is, identifier-1 must be a universal object reference. The content of identifier-2 is interpreted in a case-sensitive manner. The method name, the number of arguments, and the data types of the arguments in the USING phrase of the INVOKE statement are used to select the method with matching signature that is supported by the object. The method can be overloaded. identifier-2 cannot be a windowed date field. NEW The NEW operand specifies that the INVOKE statement is to create a new object instance of the class class-name-1. class-name-1 must be specified. When class-name-1 is implemented in Java, the USING phrase of the INVOKE statement can be specified. The number of arguments and the data types of the arguments in the USING phrase of the INVOKE statement are used to select the Java constructor with matching signature that is supported by the class. An object instance of class class-name-1 is allocated, the selected constructor (or the default constructor) is executed, and a reference to the created object is returned. When class-name-1 is implemented in COBOL, the USING phrase of the INVOKE statement must not be specified. An object instance of class class-name-1 is allocated, instance data items are initialized to the values specified in associated VALUE clauses, and a reference to the created object is returned. When NEW is specified, you must also specify a RETURNING phrase as described in RETURNING phrase on page 365.
Chapter 21. Procedure division statements
363
USING phrase
| The USING phrase specifies arguments that are passed to the target method. The argument data types and argument linkage conventions are restricted to those supported by Java. See BY VALUE phrase for details.
BY VALUE phrase
Arguments specified in an INVOKE statement must be passed BY VALUE. The BY VALUE phrase specifies that the value of the argument is passed, not a reference to the sending data item. The invoked method can modify the formal parameter that corresponds to an argument passed by value, but changes do not affect the argument because the invoked method has access only to a temporary copy of the sending data item. identifier-3 Must be an elementary data item in the data division. The data type of identifier-3 must be one of the types supported for Java interoperation, as listed in Interoperable data types for COBOL and Java on page 366. Miscellaneous cases that are also supported as identifier-3 are listed in Miscellaneous argument types for COBOL and Java on page 368, with their corresponding Java type. | | | | See Conformance requirements for arguments for additional requirements that apply to identifier-3. literal-2 Must be of a type suitable for Java interoperation and must exactly match the type of the corresponding parameter in the target method. Supported literal forms are listed in Miscellaneous argument types for COBOL and Java on page 368, with their corresponding Java type. literal-2 must not be a DBCS literal. LENGTH OF identifier-3 Specifies that the length of identifier-3 is passed as an argument in the LENGTH OF special register. A LENGTH OF special register passed BY VALUE is treated as a PIC 9(9) binary value. For information about the LENGTH OF special register, see LENGTH OF on page 18.
364
| |
Note: Adherence to conformance requirements for arguments is the responsibility of the programmer. Conformance requirements are not verified by the compiler.
RETURNING phrase
The RETURNING phrase specifies a data item that will contain the value returned from the invoked method. You can specify the RETURNING phrase on the INVOKE statement when invoking methods that are written in COBOL or Java. identifier-4 The RETURNING data item. identifier-4: v Must be defined in the data division v Must not be reference-modified v Is not changed if an EXCEPTION occurs The data type of identifier-4 must be one of the types supported for Java interoperation, as listed in Interoperable data types for COBOL and Java on page 366. | | See Conformance requirements for the RETURNING item for additional requirements that apply to identifier-4. If identifier-4 is specified and the target method is written in COBOL, the target method must have a RETURNING phrase in its procedure division header. When the target method returns, its return value is assigned to identifier-4 using the rules for the SET statement if identifier-4 is described with USAGE OBJECT REFERENCE; otherwise, the rules for the MOVE statement are used. The RETURNING data item is an output-only parameter. On entry to the called method, the initial state of the PROCEDURE DIVISION RETURNING data item has an undefined and unpredictable value. You must initialize the PROCEDURE DIVISION RETURNING data item in the invoked method before you reference its value. The value that is passed back to the invoker is the final value of the PROCEDURE DIVISION RETURNING data item when the invoked method returns. See the Enterprise COBOL Programming Guide for discussion of local and global object references as defined in Java. These attributes affect the life-time of object references. Note: The RETURN-CODE special register is not set by execution of INVOKE statements.
365
| | | | | | | | | | | |
v If the RETURNING item is not an object reference, the following rules apply: If the target method is implemented in COBOL, the returning item in the INVOKE statement and the RETURNING item in the target method must have an identical data description entry. If the target method is implemented in Java, the returning item in the INVOKE statement must correspond to the Java type of the method result, as described in Interoperable data types for COBOL and Java. v If the RETURNING item is an object reference, the RETURNING item specified in the INVOKE statement must be an object reference typed exactly to the class of the returning item specified in the target method. That is, the class of identifier-4 must not be a subclass or a superclass of the class of the returning item in the target method. Note: Adherence to conformance requirements for returning items is the responsibility of the programmer. Conformance requirements are not verified by the compiler.
ON EXCEPTION phrase
An exception condition occurs when the identified object or class does not support a method with a signature that matches the signature of the method specified in the INVOKE statement. When an exception condition occurs, one of the following actions occurs: v If the ON EXCEPTION phrase is specified, control is transferred to imperative-statement-1. v If the ON EXCEPTION phrase is not specified, a severity-3 Language Environment condition is raised at run time.
+ +
END-INVOKE phrase
This explicit scope terminator serves to delimit the scope of the INVOKE statement. An INVOKE statement that is terminated by END-INVOKE, along with its contained statements, becomes a unit that is treated as though it were an imperative statement. It can be specified as an imperative statement in a conditional statement; for example, in the exception phrase of another statement.
366
you can pass these types as arguments from a Java method invocation expression and receive them as parameters in the USING phrase or as the RETURNING item in the procedure division header of a COBOL method. The following table lists the primitive Java types and the COBOL data types that are supported for interoperation and the correspondence between them.
Table 42. Interoperable Java and COBOL data types Java data type boolean
1
COBOL data type Conditional variable and two condition-names of the form: level-number 88 88 data-name data-name-false data-name-true PIC X. VALUE X00. VALUE X01 THROUGH XFF.
byte short int long float2 double char class types (object references)
2
Single-byte alphanumeric, PIC X or PIC A USAGE BINARY, COMP, COMP-4, or COMP-5, with a PICTURE clause of the form S9(n), where 1 <= n <= 4 USAGE BINARY, COMP, COMP-4, or COMP-5, with a PICTURE clause of the form S9(n), where 5 <= n <= 9 USAGE BINARY, COMP, COMP-4, or COMP-5, with a PICTURE clause of the form S9(n), where 10 <= n <= 18 USAGE COMP-1 USAGE COMP-2 Single-character national: PIC N USAGE NATIONAL (an elementary data item of category national) USAGE OBJECT REFERENCE class-name
1. Enterprise COBOL interprets a PIC X argument or parameter as the Java boolean type only when the PIC X data item is followed by exactly two condition-names of the form shown. In all other cases, a PIC X argument or parameter is interpreted as the Java byte type. 2. Java floating-point data is represented in IEEE floating-point, while Enterprise COBOL uses the IBM hexadecimal floating-point representation. The representations are automatically converted as necessary when Java methods are invoked from COBOL and when COBOL methods are invoked from Java.
In addition to the primitive types, Java Strings and arrays of Java primitive types can interoperate with COBOL. This requires specialized mechanisms provided by the COBOL runtime system and the Java Native Interface (JNI). In a Java program, to pass array data to COBOL or to receive array data from COBOL, you declare the array types using the usual Java syntax. In the COBOL program, you declare the array as an object reference that contains an instance of one of the special classes provided for array support. Conversion between the Java and COBOL types is automatic at the time of method invocation. In a Java program, to pass String data to COBOL or to receive String data from COBOL, you declare the array types using the usual Java syntax. In the COBOL program, you declare the String as an object reference that contains an instance of the special jstring class. Conversion between the Java and COBOL types is automatic at the time of method invocation. The following table lists the Java array and String data types and the corresponding special COBOL data types.
367
Table 43. Interoperable COBOL and Java array and String data types Java data type boolean[ ] byte[ ] short[ ] int[ ] long[ ] char[ ] Object[ ] String COBOL data type object reference jboooleanArray object reference jbyteArray object reference jshortArray object reference jintArray object reference jlongArray object reference jcharArray object reference jobjectArray object reference jstring
You must code an entry in the repository paragraph for each special class that you want to use, just as you do for other classes. For example, to use jstring, code the following entry:
Configuration Section. Repository. Class jstring is jstring.
Alternatively, for the String type, the COBOL repository entry can specify an external class name of java.lang.String:
Repository. Class jstring is java.lang.String.
Callable services are provided by the Java Native Interface (JNI) for manipulating the COBOL objects of these types in COBOL. For example, callable services can be used to set COBOL alphanumeric or national data into a jstring object or to extract data from a jstring object. For details on use of JNI callable services for these and other purposes, see the Enterprise COBOL Programming Guide. For details on repository entries for class definitions, see REPOSITORY paragraph on page 116. For examples, see the Enterprise COBOL Programming Guide.
| |
Reference-modified item of usage national with length one (either an elementary data item of usage national or a national group item)
368
Table 44. COBOL miscellaneous argument types and corresponding Java types (continued) COBOL argument SHIFT-IN and SHIFT-OUT special registers LINAGE-COUNTER special register when its usage is binary LENGTH OF special register Corresponding Java data type byte int int
The following table lists COBOL literal types that can be used as arguments in an INVOKE statement, with the corresponding Java type.
Table 45. COBOL literal argument types and corresponding Java types COBOL literal argument Fixed-point numeric literal with no decimal positions and with nine digits or less Floating-point numeric literal Figurative constant ZERO One-character alphanumeric literal One-character national literal Symbolic character Figurative constants SPACE, QUOTE, HIGH-VALUE, or LOW-VALUE Corresponding Java data type int double int byte char byte byte
369
MERGE statement
The MERGE statement combines two or more identically sequenced files (that is, files that have already been sorted according to an identical set of ascending/descending keys) on one or more keys and makes records available in merged order to an output procedure or output file. A MERGE statement can appear anywhere in the procedure division except in a declarative section. The MERGE statement is not supported for programs compiled with the THREAD compiler option.
Format
MERGE file-name-1 ON
ASCENDING DESCENDING
data-name-1 KEY
file-name-3
OUTPUT PROCEDURE IS
GIVING
file-name-4
file-name-1 The name given in the SD entry that describes the records to be merged. No file-name can be repeated in the MERGE statement. No pair of file-names in a MERGE statement can be specified in the same SAME AREA, SAME SORT AREA, or SAME SORT-MERGE AREA clause. However, any file-names in the MERGE statement can be specified in the same SAME RECORD AREA clause. When the MERGE statement is executed, all records contained in file-name-2, file-name-3, ... , are accepted by the merge program and then merged according to the keys specified.
370
| | | |
| | | | |
371
merge. Attempting to write the windowed date merge output to such an indexed file will either fail or reimpose binary ordering, depending on how the file is accessed (as specified in the ACCESS MODE clause in the file-control entry). If an alphanumeric windowed date field is specified as a KEY for a MERGE statement, the collating sequence in effect for the merge operation must be EBCDIC. The COLLATING SEQUENCE phrase of the MERGE statement or, if this phrase is not specified, a PROGRAM COLLATING SEQUENCE clause in the OBJECT-COMPUTER paragraph, must not specify a collating sequence other than EBCDIC or NATIVE. If the MERGE statement meets these conditions, the merge operation takes advantage of SORT Year 2000 features, provided that the execution environment includes a sort product that supports century windowing. A year-last windowed date field can be specified as a KEY for a MERGE statement and can thereby exploit the corresponding century windowing capability of the sort product. For more information about using windowed date fields as KEY data items, see the Enterprise COBOL Programming Guide. The direction of the merge operation depends on the specification of the ASCENDING or DESCENDING keywords as follows: v When ASCENDING is specified, the sequence is from the lowest key value to the highest key value. v When DESCENDING is specified, the sequence is from the highest key value to the lowest key value. | | If the KEY data item is described with usage NATIONAL, the sequence of the KEY values is based on the binary values of the national characters. When the COLLATING SEQUENCE phrase is not specified, the key comparisons are performed according to the rules for comparison of operands in a relation condition. For details, see General relation conditions on page 263. When the COLLATING SEQUENCE phrase is specified, the indicated collating sequence is used for key data items of alphabetic, alphanumeric, alphanumeric-edited, external floating-point, and numeric-edited categories. For all other key data items, the comparisons are performed according to the rules for comparison of operands in a relation condition.
372
STANDARD-1 The ASCII collating sequence is used for all alphanumeric comparisons. (The ASCII collating sequence is shown in Appendix C, EBCDIC and ASCII collating sequences, on page 569.) STANDARD-2 The 7-bit code defined in the International Reference Version of ISO/IEC 646, 7-bit coded character set for information interchange is used for all alphanumeric comparisons. NATIVE The EBCDIC collating sequence is used for all alphanumeric comparisons. (The EBCDIC collating sequence is shown in Appendix C, EBCDIC and ASCII collating sequences, on page 569.) EBCDIC The EBCDIC collating sequence is used for all alphanumeric comparisons. (The EBCDIC collating sequence is shown in Appendix C, EBCDIC and ASCII collating sequences, on page 569.) literal The collating sequence established by the specification of literals in the ALPHABET-NAME clause is used for all alphanumeric comparisons.
When the COLLATING SEQUENCE phrase is omitted, the PROGRAM COLLATING SEQUENCE clause (if specified) in the OBJECT-COMPUTER paragraph identifies the collating sequence to be used. When both the COLLATING SEQUENCE phrase of the MERGE statement and the PROGRAM COLLATING SEQUENCE clause of the OBJECT-COMPUTER paragraph are omitted, the EBCDIC collating sequence is used. (See Appendix C, EBCDIC and ASCII collating sequences, on page 569.)
USING phrase
file-name-2, file-name-3, ... Specifies the input files. During the MERGE operation, all the records on file-name-2, file-name-3, ... (that is, the input files) are transferred to file-name-1. At the time the MERGE statement is executed, these files must not be open. The input files are automatically opened, read, and closed. If DECLARATIVE procedures are specified for these files for input operations, the declaratives will be driven for errors if errors occur. All input files must specify sequential or dynamic access mode and be described in FD entries in the data division. If file-name-1 contains variable-length records, the size of the records contained in the input files (file-name-2, file-name-3, ...) must be neither less than the smallest record nor greater than the largest record described for file-name-1. If file-name-1 contains fixed-length records, the size of the records contained in the input files must not be greater than the largest record described for file-name-1. For more information, see the Enterprise COBOL Programming Guide.
373
GIVING phrase
file-name-4, ... Specifies the output files. When the GIVING phrase is specified, all the merged records in file-name-1 are automatically transferred to the output files (file-name-4...). All output files must specify sequential or dynamic access mode and be described in FD entries in the data division. If the output files (file-name-4, ...) contain variable-length records, the size of the records contained in file-name-1 must be neither less than the smallest record nor greater than the largest record described for the output files. If the output files contain fixed-length records, the size of the records contained in file-name-1 must not be greater than the largest record described for the output files. For more information, see the Enterprise COBOL Programming Guide. At the time the MERGE statement is executed, the output files (file-name-4, ...) must not be open. The output files are automatically opened, read, and closed. If DECLARATIVE procedures are specified for these files for output operations, the declaratives will be driven for errors if errors occur.
374
statement. As with the PERFORM statement, execution of the procedure is terminated after the last statement completes execution. The last statement in an OUTPUT PROCEDURE can be the EXIT statement (see EXIT statement on page 341).
Segmentation considerations
If a MERGE statement is coded in a fixed segment, any output procedure referenced by that MERGE statement must be either totally within a fixed segment or wholly contained in a single independent segment. If a MERGE statement is coded in an independent segment, any output procedure referenced by that MERGE statement must be either totally within a fixed segment or wholly contained within the same independent segment as that MERGE statement.
375
MOVE statement
The MOVE statement transfers data from one area of storage to one or more other areas.
Format 1
MOVE
identifier-1 literal-1
TO
identifier-2
Format 2
MOVE CORRESPONDING CORR identifier-1 TO identifier-2
CORR is an abbreviation for, and is equivalent to, CORRESPONDING. identifier-1, literal-1 The sending area. identifier-2 The receiving areas. identifier-2 must not reference an intrinsic function. When format 1 is specified: v All identifiers can reference alphanumeric group items, national group items, or elementary items. v When one of identifier-1 or identifier-2 references a national group item and the other operand references an alphanumeric group item, the national group is processed as a group item; in all other cases, the national group item is processed an an elementary data item of category national. v The data in the sending area is moved into the data item referenced by each identifier-2 in the order in which the identifier-2 data items are specified in the MOVE statement. See Elementary moves on page 377 and Group moves on page 382 below. When format 2 is specified: v Both identifiers must be group items. v A national group item is processed as a group item (and not as an elementary data item of category national). v Selected items in identifier-1 are moved to identifier-2 according to the rules for the CORRESPONDING phrase on page 286. The results are the same as if each pair of CORRESPONDING identifiers were referenced in a separate MOVE statement. Data items described with the following types of usage cannot be specified in a MOVE statement: v INDEX
| | | | | |
| |
376
v v v v | | | |
A data item defined with a usage of INDEX, POINTER, FUNCTION-POINTER, PROCEDURE-POINTER, or OBJECT REFERENCE can be part of an alphanumeric group item that is referenced in a MOVE CORRESPONDING statement; however, no movement of data from those data items takes place. The evaluation of the length of the sending or receiving area can be affected by the DEPENDING ON phrase of the OCCURS clause (see OCCURS clause on page 188). If the sending field (identifier-1) is reference-modified or subscripted, or is an alphanumeric or national function-identifier, the reference-modifier, subscript, or function is evaluated only once, immediately before data is moved to the first of the receiving operands. Any length evaluation, subscripting, or reference-modification associated with a receiving field (identifier-2) is evaluated immediately before the data is moved into that receiving field. For example, the result of the statement:
MOVE A(B) TO B, C(B).
is equivalent to:
MOVE A(B) TO TEMP. MOVE TEMP TO B. MOVE TEMP TO C(B).
where TEMP is defined as an intermediate result item. The subscript B has changed in value between the time that the first move took place and the time that the final move to C(B) is executed. For further information about intermediate results, see the Enterprise COBOL Programming Guide. After execution of a MOVE statement, the sending fields contain the same data as before execution. Note: Overlapping operands in a MOVE statement can cause unpredictable results.
Elementary moves
An elementary move is one in which the receiving item is an elementary data item and the sending item is an elementary data item or a literal. | | | | | | Valid operands belong to one of the following categories: v Alphabetic: includes data items of category alphabetic and the figurative constant SPACE v Alphanumeric: includes the following: Data items of category alphanumeric Alphanumeric functions
Chapter 21. Procedure division statements
377
| | | | | | | | | | | | | | | | | | | | | | | | | |
v v v
v v
Alphanumeric literals The figurative constant ALL alphanumeric-literal and all other figurative constants (except NULL) when used in a context requiring an alphanumeric sending item Alphanumeric-edited: includes data items of category alphanumeric-edited DBCS: includes data items of category DBCS, DBCS literals, and the figurative constant ALL DBCS-literal. External floating-point: includes data items of category external floating point (described with USAGE DISPLAY or USAGE NATIONAL) and floating-point literals. Internal floating-point: includes data items of category internal floating-point (defined as USAGE COMP-1 or USAGE COMP-2) National: includes the following: National group items (treated as elementary item of category national) Data items of category national National literals National functions Figurative constants ZERO, SPACE, QUOTE, and ALL national-literalwhen used in a context requiring a national sending item
v National-edited: includes data items of category national-edited v Numeric: includes the following: Data items of category numeric Numeric literals The figurative constant ZERO (when ZERO is moved to a numeric or numeric-edited item). v Numeric-edited: includes data items of category numeric-edited.
| | | | |
378
v Alignment and any necessary space filling or truncation take place, as described under Alignment rules on page 160. v If the size of the sending item is greater than the size of the receiving item, excess characters on the right are truncated after the receiving item is filled. v If the initial sending item has an operational sign, the unsigned value is used. If the operational sign occupies a separate character, that character is not moved, and the size of the sending item is considered to be one less character than the actual size. DBCS: v No conversion takes place. v If the sending and receiving items are not the same size, the sending data is either truncated on the right or padded with DBCS spaces on the right. External floating-point: v For a floating-point sending item, the floating-point value is converted to the usage of the receiving external floating-point item (if different from the sending items representation). v For other sending items, the numeric value is treated as though that value were converted to internal floating-point and then converted to the usage of the receiving external floating-point item. Internal floating-point: v When the category of the sending operand is not internal floating-point, the numeric value of the sending item is converted to internal floating-point format. National or national-edited: | | | | | | | v If the representation of the sending item is not national characters, the sending data is converted to national characters and treated as though it were moved to a temporary data item of category national of a length not to cause truncation or padding. The resulting category national data item is treated as the sending data item. v If the representation of the sending item is national characters, the sending data is used without conversion. v Alignment and any necessary space filling or truncation take place as described under Alignment rules on page 160. The programmer is responsible for ensuring that multiple encoding units that together form a graphic character are not split by truncation. v If the sending item has an operational sign, the unsigned value is used. If the operational sign occupies a separate character, that character is not moved, and the size of the sending item is considered to be one less character than the actual size. Numeric or numeric-edited: v Except when zeros are replaced because of editing requirements, alignment by decimal point and any necessary zero filling take place, as described under Alignment rules on page 160. v If the receiving item is signed, the sign of the sending item is placed in the receiving item, with any necessary sign conversion. If the sending item is unsigned, a positive operational sign is generated for the receiving item. v If the receiving item is unsigned, no operational sign is generated for the receiving item and the absolute value of the sending item is used in the move.
Chapter 21. Procedure division statements
| | | | | |
| |
| |
379
| | |
| | | | | | |
v When the category of the sending item is alphanumeric, alphanumeric-edited, national, or national-edited, the data is moved as if the sending item were described as an unsigned integer. v When the sending item is floating-point, the data is first converted to either a binary or internal decimal representation and is then moved. v When the receiving item is numeric-edited, editing takes place as defined by the picture character string or BLANK WHEN ZERO clause associated with the receiving item. v When the sending item is numeric-edited, the compiler de-edits the sending data to establish the unedited value of the numeric-edited item (this value can be signed). The unedited numeric value is used in the move to the receiving numeric or numeric-edited data item. Notes: 1. If the receiving item is of category alphanumeric, alphanumeric-edited, numeric-edited, national, or national-edited and the sending field is numeric, any digit positions described with picture symbol P in the sending item are considered to have the value zero. Each P is counted in the size of the sending item. 2. If the receiving item is numeric and the sending field is an alphanumeric literal, a national literal, or an ALL literal, all characters of the literal must be numeric characters.
| | | | | | |
DBCS1 No
Yes Yes
Yes Yes
Yes3 No
Yes3 No
Yes8 No
Yes8 No
No No
Yes Yes
No
Yes
Yes
Yes
Yes
Yes
Yes
No
Yes
No
No
No
Yes
Yes
Yes
Yes
No
No
Yes
Yes
Yes
Yes
Yes
Yes
No
Yes
380
Table 46. Valid and invalid elementary moves (continued) Alpha- Alphabetic numeric Floating-point sending item6 DBCS sending item7 National sending item9 No No No No No No No Alphanumeric edited No No No No NumericNumeric edited Yes No Yes No Yes No Yes No External floatingpoint Yes No Yes No Internal floatingpoint Yes No Yes No National, nationaledited No Yes Yes Yes
DBCS1 No Yes No No
1. Includes DBCS data items. 2. Includes alphanumeric literals. 3. Figurative constants and alphanumeric literals must consist only of numeric characters and will be treated as numeric integer fields. 4. Includes integer numeric literals. 5. Includes noninteger numeric literals.
| |
6. Includes floating-point literals, external floating-point data items (USAGE DISPLAY or USAGE NATIONAL), and internal floating-point data items (USAGE COMP-1 or USAGE COMP-2). 7. Includes DBCS data-items, DBCS literals, and figurative constant SPACE. 8. Figurative constants and alphanumeric literals must consist only of numeric characters and will be treated as numeric integer fields. The ALL literal cannot be used as a sending item. 9. Includes national data items, national literals, national functions, and figurative constants ZERO, SPACE, QUOTE, and ALL national literal.
381
Table 47. Moves involving date fields Nondate receiving item Nondate sending item Windowed date field sending item Expanded date field sending item Normal Invalid Invalid Windowed date field receiving item Normal Normal Normal1 Expanded date field receiving item Normal Expanded Normal
1. A move from an expanded date field to a windowed date field is, in effect, a windowed move, because it truncates the century component of the expanded date field. If the move is alphanumeric, it treats the receiving windowed date field as if its data description specified JUSTIFIED RIGHT. This is true even if the receiving windowed date field is a group item, for which the JUSTIFIED clause cannot be specified.
Group moves
| | | | | | | | | | | | | A group move is any move in which an alphanumeric group item is a sending item or a receiving item, or both. The following are group moves: v A move to an alphanumeric group item from one of the following: any elementary data item that is valid as a sending item in the MOVE statement a national group item a literal a figurative constant v A move from an alphanumeric group item to the following: any elementary data item that is valid as a receiving item in the MOVE statement a national group item an alphanumeric group item A group move is treated as though it were an alphanumeric-to-alphanumeric elementary move, except that there is no conversion of data from one form of internal representation to another. In a group move, the receiving area is filled without consideration for the individual elementary items contained within either the sending area or the receiving area, except as noted in the OCCURS clause. (See OCCURS clause on page 188.)
382
MULTIPLY statement
The MULTIPLY statement multiplies numeric items and sets the values of data items equal to the results.
Format 1
MULTIPLY
identifier-1 literal-1
BY
identifier-2 ROUNDED
NOT ON
END-MULTIPLY
In format 1, the value of identifier-1 or literal-1 is multiplied by the value of identifier-2; the product is then placed in identifier-2. For each successive occurrence of identifier-2, the multiplication takes place in the left-to-right order in which identifier-2 is specified.
Format 2
MULTIPLY identifier-1 literal-1 BY identifier-2 literal-2
GIVING
identifier-3 ROUNDED
NOT ON
END-MULTIPLY
383
In format 2, the value of identifier-1 or literal-1 is multiplied by the value of identifier-2 or literal-2. The product is then stored in the data items referenced by identifier-3. For all formats: identifier-1, identifier-2 Must name an elementary numeric item. identifier-1 and identifier-2 cannot be date fields. literal-1, literal-2 Must be a numeric literal. For format-2: identifier-3 Must name an elementary numeric or numeric-edited item. identifier-3, the GIVING phrase identifier, is the only identifier in the MULTIPLY statement that can be a date field. If identifier-3 names a date field, see Storing arithmetic results that involve date fields on page 257 for details on how the product is stored in identifier-3. Floating-point data items and literals can be used anywhere a numeric data item or literal can be specified. When the ARITH(COMPAT) compiler option is in effect, the composite of operands can contain a maximum of 30 digits. When the ARITH(EXTEND) compiler option is in effect, the composite of operands can contain a maximum of 31 digits. For more information, see Arithmetic statement operands on page 290 and the details on arithmetic intermediate results in the Enterprise COBOL Programming Guide.
ROUNDED phrase
For formats 1 and 2, see ROUNDED phrase on page 287.
END-MULTIPLY phrase
This explicit scope terminator serves to delimit the scope of the MULTIPLY statement. END-MULTIPLY permits a conditional MULTIPLY statement to be nested in another conditional statement. END-MULTIPLY can also be used with an imperative MULTIPLY statement. For more information, see Delimited scope statements on page 285.
384
OPEN statement
The OPEN statement initiates the processing of files. It also checks or writes labels, or both.
OPEN
INPUT
OUTPUT
I-O
file-name-3
EXTEND
file-name-4
Notes: 1 The REVERSED and WITH NO REWIND phrases are not valid for VSAM files.
OPEN
INPUT
file-name-1
OUTPUT
file-name-2
I-O
file-name-3
EXTEND
file-name-4
385
OPEN
INPUT
file-name-1
OUTPUT
file-name-2
EXTEND
file-name-4
The phrases INPUT, OUTPUT, I-O, and EXTEND specify the mode to be used for opening the file. At least one of the phrases INPUT, OUTPUT, I-O, or EXTEND must be specified with the OPEN keyword. The INPUT, OUTPUT, I-O, and EXTEND phrases can appear in any order. INPUT Permits input operations. OUTPUT Permits output operations. This phrase can be specified when the file is being created. Do not specify OUTPUT for files that: v Contain records. The file will be replaced by new data. If the OUTPUT phrase is specified for a file that already contains records, the data set must be defined as reusable and cannot have an alternate index. The records in the file will be replaced by the new data and any ALTERNATE RECORD KEY clause in the SELECT statement will be ignored. v Are defined with a DD dummy card. Unpredictable results can occur. I-O Permits both input and output operations. The I-O phrase can be specified only for files assigned to direct access devices. The I-O phrase is not valid for line-sequential files. EXTEND Permits output operations that append to or create a file. The EXTEND phrase is allowed for sequential access files only if the new data is written in ascending sequence. The EXTEND phrase is allowed for files that specify the LINAGE clause. For QSAM files, do not specify the EXTEND phrase for a multiple file reel. If you want to append to a file, but are unsure if the file exists, use the SELECT OPTIONAL clause before opening the file in EXTEND mode. The file will be created or appended to, depending on whether the file exists. file-name-1, file-name-2, file-name-3, file-name-4 Designate a file upon which the OPEN statement is to operate. If more than one file is specified, the files need not have the same organization or access mode. Each file-name must be defined in an FD entry in the data
386
division and must not name a sort or merge file. The FD entry must be equivalent to the information supplied when the file was defined. REVERSED Valid only for sequential single-reel files. REVERSED is not valid for VSAM files. If the concept of reels has no meaning for the storage medium (for example, a direct access device), the REVERSED and NO REWIND phrases do not apply. NO REWIND Valid only for sequential single-reel files. It is not valid for VSAM files.
General rules
v If a file opened with the INPUT phrase is an optional file that is not present, the OPEN statement sets the file position indicator to indicate that an optional input file is not present. v Execution of an OPEN INPUT or OPEN I-O statement sets the file position indicator: For indexed files, to the characters with the lowest ordinal position in the collating sequence associated with the file. v For sequential and relative files, to 1. When the EXTEND phrase is specified, the OPEN statement positions the file immediately after the last record written in the file. (The record with the highest prime record key value for indexed files or relative key value for relative files is considered the last record.) Subsequent WRITE statements add records as if the file were opened OUTPUT. The EXTEND phrase can be specified when a file is being created; it can also be specified for a file that contains records, or that has contained records that have been deleted. For VSAM files, if no records exist in the file, the file position indicator is set so that the first format 1 READ statement executed results in an AT END condition. When NO REWIND is specified, the OPEN statement execution does not reposition the file; prior to OPEN statement execution, the file must be positioned at its beginning. When the NO REWIND phrase is specified (or when both the NO REWIND and REVERSE phrases are omitted), file positioning is specified with the LABEL parameter of the DD statement. When REVERSED is specified, OPEN statement execution positions the QSAM file at its end. Subsequent READ statements make the data records available in reversed order, starting with the last record. When OPEN REVERSED is specified, the record format must be fixed. When the REVERSED, NO REWIND, or EXTEND phrases are not specified, OPEN statement execution positions the file at its beginning.
v v
If the PASSWORD clause is specified in the file-control entry, the password data item must contain a valid password before the OPEN statement is executed. If a valid password is not present, OPEN statement execution is unsuccessful.
Label records
If label records are specified for the file when the OPEN statement is executed, the labels are processed according to the standard label conventions, as follows: INPUT files The beginning labels are checked.
Chapter 21. Procedure division statements
387
OUTPUT files The beginning labels are written. I-O files The labels are checked; new labels are then written. EXTEND files The following procedures are executed: v Beginning file labels are processed only if this is a single-volume file. v Beginning volume labels of the last existing volume are processed as though the file was being opened with the INPUT phrase. v Existing ending file labels are processed as though the file was being opened with the INPUT phrase; they are then deleted. v Processing continues as if the file were opened as an OUTPUT file. When label records are specified but not present, or are present but not specified, execution of the OPEN statement is unpredictable.
2. The successful execution of the OPEN statement places the file in open status and makes the associated record area available to the program. 3. The OPEN statement does not obtain or release the first data record. 4. You can move data to or from the record area only when the file is in open status. 5. An OPEN statement must be successfully executed prior to the execution of any of the permissible input-output statements, except a SORT or MERGE statement with the USING or GIVING phrase. In the following table, an X indicates that the specified statement can be used with the open mode given at the top of the column.
388
Table 49. Permissible statements for sequential files Statement READ WRITE REWRITE Input open mode X X X Output open mode I-O open mode X X Extend open mode
In the following table, an X indicates that the specified statement, used in the access mode given for that row, can be used with the open mode given at the top of the column.
Table 50. Permissible statements for indexed and relative files File access mode Sequential Statement READ WRITE REWRITE START DELETE Random READ WRITE REWRITE START DELETE Dynamic READ WRITE REWRITE START DELETE X X X X X X X X X X X X Input open mode X X X X X X X X Output open I-O open mode mode X X Extend open mode
In the following table, an X indicates that the specified statement can be used with the open mode given at the top of the column.
Table 51. Permissible statements for line-sequential files Statement READ WRITE REWRITE Input open mode X X X Output open mode I-O open mode Extend open mode
1. A file can be opened for INPUT, OUTPUT, I-O, or EXTEND (sequential and line-sequential files only) in the same program. After the first OPEN statement execution for a given file, each subsequent OPEN statement execution must be preceded by a successful CLOSE file statement execution without the REEL or UNIT phrase (for QSAM files only), or the LOCK phrase. 2. If the FILE STATUS clause is specified in the file-control entry, the associated file status key is updated when the OPEN statement is executed.
389
3. If an OPEN statement is issued for a file already in the open status, the EXCEPTION/ERROR procedure (if specified) for this file is executed.
390
PERFORM statement
The PERFORM statement transfers control explicitly to one or more procedures and implicitly returns control to the next executable statement after execution of the specified procedures is completed. The PERFORM statement is: An out-of-line PERFORM statement When procedure-name-1 is specified. An in-line PERFORM statement When procedure-name-1 is omitted. An in-line PERFORM must be delimited by the END-PERFORM phrase. The in-line and out-of-line formats cannot be combined. For example, if procedure-name-1 is specified, imperative statements and the END-PERFORM phrase must not be specified. The PERFORM statement formats are: v Basic PERFORM v TIMES phrase PERFORM v UNTIL phrase PERFORM v VARYING phrase PERFORM
Format 1
PERFORM procedure-name-1 THROUGH procedure-name-2 THRU END-PERFORM imperative-statement-1
procedure-name-1, procedure-name-2 Must name a section or paragraph in the procedure division. When both procedure-name-1 and procedure-name-2 are specified, if either is a procedure-name in a declarative procedure, both must be procedure-names in the same declarative procedure. If procedure-name-1 is specified, imperative-statement-1 and the END-PERFORM phrase must not be specified. If procedure-name-1 is omitted, imperative-statement-1 and the END-PERFORM phrase must be specified.
391
imperative-statement-1 The statements to be executed for an in-line PERFORM An in-line PERFORM statement functions according to the same general rules as an otherwise identical out-of-line PERFORM statement, except that statements contained within the in-line PERFORM are executed in place of the statements contained within the range of procedure-name-1 (through procedure-name-2, if specified). Unless specifically qualified by the word in-line or the word out-of-line, all the rules that apply to the out-of-line PERFORM statement also apply to the in-line PERFORM. Whenever an out-of-line PERFORM statement is executed, control is transferred to the first statement of the procedure named procedure-name-1. Control is always returned to the statement following the PERFORM statement. The point from which this control is returned is determined as follows: v If procedure-name-1 is a paragraph name and procedure-name-2 is not specified, the return is made after the execution of the last statement of the procedure-name-1 paragraph. v If procedure-name-1 is a section name and procedure-name-2 is not specified, the return is made after the execution of the last statement of the last paragraph in the procedure-name-1 section. v If procedure-name-2 is specified and it is a paragraph name, the return is made after the execution of the last statement of the procedure-name-2 paragraph. v If procedure-name-2 is specified and it is a section name, the return is made after the execution of the last statement of the last paragraph in the procedure-name-2 section. The only necessary relationship between procedure-name-1 and procedure-name-2 is that a consecutive sequence of operations is executed, beginning at the procedure named by procedure-name-1 and ending with the execution of the procedure named by procedure-name-2. PERFORM statements can be specified within the performed procedure. If there are two or more logical paths to the return point, then procedure-name-2 can name a paragraph that consists only of an EXIT statement; all the paths to the return point must then lead to this paragraph. When the performed procedures include another PERFORM statement, the sequence of procedures associated with the embedded PERFORM statement must be totally included in or totally excluded from the performed procedures of the first PERFORM statement. That is, an active PERFORM statement whose execution point begins within the range of performed procedures of another active PERFORM statement must not allow control to pass through the exit point of the other active PERFORM statement. However, two or more active PERFORM statements can have a common exit. The following figure illustrates valid sequences of execution for PERFORM statements.
392
When control passes to the sequence of procedures by means other than a PERFORM statement, control passes through the exit point to the next executable statement, as if no PERFORM statement referred to these procedures.
END-PERFORM
Delimits the scope of the in-line PERFORM statement. Execution of an in-line PERFORM is completed after the last statement contained within it has been executed.
Format 2
PERFORM procedure-name-1 THROUGH procedure-name-2 THRU TIMES imperative-statement-1 identifier-1 integer-1 END-PERFORM TIMES
identifier-1 integer-1
If procedure-name-1 is specified, imperative-statement-1 and the END-PERFORM phrase must not be specified. identifier-1 Must name an integer item. identifier-1 cannot be a windowed date field.
Chapter 21. Procedure division statements
393
If identifier-1 is zero or a negative number at the time the PERFORM statement is initiated, control passes to the statement following the PERFORM statement. After the PERFORM statement has been initiated, any change to identifier-1 has no effect in varying the number of times the procedures are initiated. integer-1 Can be a positive signed integer.
Format 3
PERFORM procedure-name-1 THROUGH THRU phrase 1 imperative-statement-1 procedure-name-2 END-PERFORM phrase 1
phrase 1:
UNTIL condition-1 TEST WITH BEFORE AFTER
If procedure-name-1 is specified, imperative-statement-1 and the END-PERFORM phrase must not be specified. condition-1 Can be any condition described under Conditional expressions on page 259. If the condition is true at the time the PERFORM statement is initiated, the specified procedures are not executed. Any subscripting associated with the operands specified in condition-1 is evaluated each time the condition is tested. If the TEST BEFORE phrase is specified or assumed, the condition is tested before any statements are executed (corresponds to DO WHILE). If the TEST AFTER phrase is specified, the statements to be performed are executed at least once before the condition is tested (corresponds to DO UNTIL). In either case, if the condition is true, control is transferred to the next executable statement following the end of the PERFORM statement. If neither the TEST BEFORE nor the TEST AFTER phrase is specified, the TEST BEFORE phrase is assumed.
394
Format 4
PERFORM procedure-name-1 THROUGH procedure-name-2 THRU imperative-statement-1 END-PERFORM phrase 1 phrase 2
phrase 1
phrase 1:
VARYING TEST WITH identifier-4 literal-2 BEFORE AFTER UNTIL condition-1 identifier-2 index-name-1 FROM identifier-3 index-name-2 literal-1 BY
phrase 2:
AFTER
identifier-5 index-name-3
FROM
phrase 3
phrase 3:
BY identifier-7 literal-4 UNTIL condition-2
If procedure-name-1 is specified, imperative-statement-1 and the END-PERFORM phrase must not be specified. If procedure-name-1 is omitted, the AFTER phrase must not be specified. identifier-2 through identifier-7 Must name a numeric elementary item. These identifiers cannot be windowed date fields. literal-1 through literal-4 Must represent a numeric literal. condition-1, condition-2 Can be any condition described under Conditional expressions on page 259. If the condition is true at the time the PERFORM statement is initiated, the specified procedures are not executed.
Chapter 21. Procedure division statements
395
After the conditions specified in the UNTIL phrase are satisfied, control is passed to the next executable statement following the PERFORM statement. If any of the operands specified in condition-1 or condition-2 is subscripted, reference modified, or is a function-identifier, the subscript, reference-modifier, or function is evaluated each time the condition is tested. Floating-point data items and literals can be used anywhere a numeric data item or literal can be specified. When TEST BEFORE is indicated, all specified conditions are tested before the first execution, and the statements to be performed are executed, if at all, only when all specified tests fail. When TEST AFTER is indicated, the statements to be performed are executed at least once, before any condition is tested. If neither the TEST BEFORE nor the TEST AFTER phrase is specified, the TEST BEFORE phrase is assumed.
Varying identifiers
The way in which operands are increased or decreased depends on the number of variables specified. In the following discussion, every reference to identifier-n refers equally to index-name-n (except when identifier-n is the object of the BY phrase). If identifier-2 or identifier-5 is subscripted, the subscripts are evaluated each time the content of the data item referenced by the identifier is set or augmented. If identifier-3, identifier-4, identifier-6, or identifier-7 is subscripted, the subscripts are evaluated each time the content of the data item referenced by the identifier is used in a setting or an augmenting operation. The following figure illustrates the logic of the PERFORM statement when an identifier is varied with TEST BEFORE.
The following figure illustrates the logic of the PERFORM statement when an identifier is varied with TEST AFTER.
396
1. identifier-2 and identifier-5 are set to their initial values, identifier-3 and identifier-6, respectively. 2. condition-1 is evaluated as follows: a. If it is false, steps 3 through 7 are executed. b. If it is true, control passes directly to the statement following the PERFORM statement. 3. condition-2 is evaluated as follows: a. If it is false, steps 4 through 6 are executed. b. If it is true, identifier-2 is augmented by identifier-4, identifier-5 is set to the current value of identifier-6, and step 2 is repeated. 4. procedure-name-1 and procedure-name-2 are executed once (if specified). 5. identifier-5 is augmented by identifier-7. 6. Steps 3 through 5 are repeated until condition-2 is true. 7. Steps 2 through 6 are repeated until condition-1 is true. At the end of PERFORM statement execution: v identifier-5 contains the current value of identifier-6. v identifier-2 has a value that exceeds the last-used setting by the increment or decrement value (unless condition-1 was true at the beginning of PERFORM statement execution, in which case, identifier-2 contains the current value of identifier-3). The following figure illustrates the logic of the PERFORM statement when two identifiers are varied with TEST BEFORE.
397
The following figure illustrates the logic of the PERFORM statement when two identifiers are varied with TEST AFTER.
398
The actions are the same as those for two identifiers, except that identifier-8 goes through the complete cycle each time that identifier-5 is augmented by identifier-7, which, in turn, goes through a complete cycle each time that identifier-2 is varied. At the end of PERFORM statement execution: v identifier-5 and identifier-8 contain the current values of identifier-6 and identifier-9, respectively. v identifier-2 has a value exceeding its last-used setting by one increment/decrement value (unless condition-1 was true at the beginning of PERFORM statement execution, in which case identifier-2 contains the current value of identifier-3).
399
400
READ statement
For sequential access, the READ statement makes the next logical record from a file available to the object program. For random access, the READ statement makes a specified record from a direct-access file available to the object program. When the READ statement is executed, the associated file must be open in INPUT or I-O mode.
END imperative-statement-1 AT
NOT AT
END imperative-statement-2
END-READ
KEY IS
data-name-1
INVALID KEY
imperative-statement-3
imperative-statement-4
END-READ
file-name-1 Must be defined in a data division FD entry. NEXT RECORD Reads the next record in the logical sequence of records. NEXT is optional when ACCESS MODE IS SEQUENTIAL and has no effect on READ statement execution. You must specify the NEXT RECORD phrase for files in dynamic access mode, which are retrieved sequentially. INTO identifier-1 identifier-1 is the receiving field.
401
identifier-1 must be a valid receiving field for the selected sending record description entry in accordance with the rules of the MOVE statement. The record areas associated with file-name-1 and identifier-1 must not be the same storage area. | | | | | When there is only one record description associated with file-name-1 or all the records and the data item referenced by identifier-1 describe an elementary alphanumeric item or an alphanumeric group item, the result of the execution of a READ statement with the INTO phrase is equivalent to the application of the following rules in the order specified: v The execution of the same READ statement without the INTO phrase. v The current record is moved from the record area to the area specified by identifier-1 according to the rules for the MOVE statement without the CORRESPONDING phrase. The size of the current record is determined by rules specified for the RECORD clause. If the file description entry contains a RECORD IS VARYING clause, the implied move is a group move. The implied MOVE statement does not occur if the execution of the READ statement was unsuccessful. Any subscripting or reference modification associated with identifier-1 is evaluated after the record has been read and immediately before it is moved to the data item. The record is available in both the record area and the data item referenced by identifier-1. If identifier-1 is a date field, then the implied MOVE statement is performed according to the behavior described under Moves involving date fields on page 381. When there are multiple record descriptions associated with file-name-1 and they do not all describe an alphanumeric group item or elementary alphanumeric item, the following rules apply: 1. If the file referenced by file-name-1 is described as containing variable-length records, or as a QSAM file with RECORDING MODE S or U, a group move will take place. 2. If the file referenced by file-name-1 is described as containing fixed-length records, a move will take place according to the rules for a MOVE statement using, as a sending field description, the record that specifies the largest number of character positions. If more than one such record exists, the sending field record selected will be the one among those records that appears first under the description of file-name-1.
| | |
KEY IS phrase
The KEY IS phrase can be specified only for indexed files. data-name-1 must identify a record key associated with file-name-1. data-name-1 can be qualified; it cannot be subscripted.
AT END phrases
For sequential access, both the AT END phrase and an applicable EXCEPTION/ERROR procedure can be omitted. For information about at-end condition processing, see AT END condition on page 404.
402
END-READ phrase
This explicit scope terminator serves to delimit the scope of the READ statement. END-READ permits a conditional READ statement to be nested in another conditional statement. END-READ can also be used with an imperative READ statement. For more information, see Delimited scope statements on page 285.
403
Sequential files
The NEXT RECORD is the next record in a logical sequence of records. The NEXT phrase need not be specified; it has no effect on READ statement execution. If SELECT OPTIONAL is specified in the file-control entry for this file, and the file is absent during this execution of the object program, execution of the first READ statement causes an at-end condition; however, since no file is present, the system-defined end-of-file processing is not performed.
AT END condition
If the file position indicator indicates that no next logical record exists, or that an optional input file is not present, the following occurs in the order specified: 1. A value derived from the setting of the file position indicator is placed into the I-O status associated with file-name-1 to indicate the at-end condition. 2. If the AT END phrase is specified in the statement causing the condition, control is transferred to imperative-statement-1 in the AT END phrase. Any USE AFTER STANDARD EXCEPTION procedure associated with file-name-1 is not executed. 3. If the AT END phrase is not specified and an applicable USE AFTER STANDARD EXCEPTION procedure exists, the procedure is executed. Return from that procedure is to the next executable statement following the end of the READ statement. Both the AT END phrase and an applicable EXCEPTION/ERROR procedure can be omitted. When the at-end condition occurs, execution of the READ statement is unsuccessful. The contents of the associated record area are undefined and the file position indicator is set to indicate that no valid next record has been established. For QSAM files, attempts to access or move data into the record area following an unsuccessful read can result in a protection exception. If an at-end condition does not occur during the execution of a READ statement, the AT END phrase is ignored, if specified, and the following actions occur: 1. The file position indicator is set and the I-O status associated with file-name-1 is updated. 2. If an exception condition that is not an at-end condition exists, control is transferred to the end of the READ statement following the execution of any USE AFTER STANDARD EXCEPTION procedure applicable to file-name-1. If no USE AFTER STANDARD EXCEPTION procedure is specified, control is transferred to the end of the READ statement or to imperative-statement-2, if specified. 3. If no exception condition exists, the record is made available in the record area and any implicit move resulting from the presence of an INTO phrase is executed. Control is transferred to the end of the READ statement or to imperative-statement-2, if specified. In the latter case, execution continues according to the rules for each statement specified in imperative-statement-2. If a procedure branching or conditional statement which causes explicit transfer of control is executed, control is transferred in accordance with the rules for that statement; otherwise, upon completion of the execution of imperative-statement-2, control is transferred to the end of the READ statement.
404
Following the unsuccessful execution of a READ statement, the contents of the associated record area are undefined and the file position indicator is set to indicate that no valid next record has been established. Attempts to access or move data into the record area following an unsuccessful read can result in a protection exception.
AT END condition
This condition exists when the file position indicator indicates that no next logical record exists or that an optional input file is not present. The same procedure occurs as for sequential files (see AT END condition on page 404). If neither an at-end nor an invalid key condition occurs during the execution of a READ statement, the AT END or the INVALID KEY phrase is ignored, if specified. The same actions occur as when the at-end condition does not occur with sequential files (see AT END condition on page 404).
405
Indexed files
Execution of a format-2 READ statement causes the value of the key of reference to be compared with the value of the corresponding key data item in the file records, until the first record having an equal value is found. The file position indicator is positioned to this record, which is then made available. If no record can be so identified, an INVALID KEY condition exists, and READ statement execution is unsuccessful. (See Invalid key condition under Common processing facilities on page 292.) If the KEY phrase is not specified, the prime RECORD KEY becomes the key of reference for this request. When dynamic access is specified, the prime RECORD KEY is also used as the key of reference for subsequent executions of sequential READ statements, until a different key of reference is established. When the KEY phrase is specified, data-name-1 becomes the key of reference for this request. When dynamic access is specified, this key of reference is used for subsequent executions of sequential READ statements, until a different key of reference is established.
Relative files
Execution of a format-2 READ statement sets the file position indicator pointer to the record whose relative record number is contained in the RELATIVE KEY data item, and makes that record available. If the file does not contain such a record, the INVALID KEY condition exists, and READ statement execution is unsuccessful. (See Invalid key condition under Common processing facilities on page 292.) The KEY phrase must not be specified for relative files.
406
v Following unsuccessful READ statement execution, the contents of the associated record area and the value of the file position indicator are undefined. Attempts to access or move data into the record area following an unsuccessful read can result in a protection exception.
407
RELEASE statement
The RELEASE statement transfers records from an input/output area to the initial phase of a sorting operation. The RELEASE statement can be used only within the range of an INPUT PROCEDURE associated with a SORT statement.
Format
RELEASE record-name-1 FROM identifier-1
Within an INPUT PROCEDURE, at least one RELEASE statement must be specified. When the RELEASE statement is executed, the current contents of record-name-1 are placed in the sort file. This makes the record available to the initial phase of the sorting operation. record-name-1 Must specify the name of a logical record in a sort-merge file description entry (SD). record-name-1 can be qualified. FROM phrase The result of the execution of the RELEASE statement with the FROM identifier-1 phrase is equivalent to the execution of the following statements in the order specified.
MOVE identifier-1 to record-name-1. RELEASE record-name-1.
The MOVE is performed according to the rules for the MOVE statement without the CORRESPONDING phrase. identifier-1 identifier-1 must reference one of the following: v An entry in the working-storage section, the local-storage section, or the linkage section v A record description for another previously opened file v An alphanumeric or national function. identifier-1 must be a valid sending item with record-name-1 as the receiving item in accordance with the rules of the MOVE statement. identifier-1 and record-name-1 must not refer to the same storage area. After the RELEASE statement is executed, the information is still available in identifier-1. (See INTO and FROM phrases on page 297 under Common processing facilities.) If the RELEASE statement is executed without specifying the SD entry for file-name-1 in a SAME RECORD AREA clause, the information in record-name-1 is no longer available.
408
If the SD entry is specified in a SAME RECORD AREA clause, record-name-1 is still available as a record of the other files named in that clause. When FROM identifier-1 is specified, the information is still available in identifier-1. When control passes from the INPUT PROCEDURE, the sort file consists of all those records placed in it by execution of RELEASE statements.
409
RETURN statement
The RETURN statement transfers records from the final phase of a sorting or merging operation to an OUTPUT PROCEDURE. The RETURN statement can be used only within the range of an OUTPUT PROCEDURE associated with a SORT or MERGE statement.
Format
RETURN file-name-1 RECORD INTO identifier-1
END imperative-statement-1 AT
NOT AT
END imperative-statement-2
END-RETURN
Within an OUTPUT PROCEDURE, at least one RETURN statement must be specified. When the RETURN statement is executed, the next record from file-name-1 is made available for processing by the OUTPUT PROCEDURE. file-name-1 Must be described in a data division SD entry. If more than one record description is associated with file-name-1, those records automatically share the same storage; that is, the area is implicitly redefined. After RETURN statement execution, only the contents of the current record are available. If any data items lie beyond the length of the current record, their contents are undefined. | | | | | INTO phrase When there is only one record description associated with file-name-1 or all the records and the data item referenced by identifier-1 describe an elementary alphanumeric item or an alphanumeric group item, the result of the execution of a RETURN statement with the INTO phrase is equivalent to the application of the following rules in the order specified: v The execution of the same RETURN statement without the INTO phrase. v The current record is moved from the record area to the area specified by identifier-1 according to the rules for the MOVE statement without the CORRESPONDING phrase. The size of the current record is determined by rules specified for the RECORD clause. If the file description entry contains a RECORD IS VARYING clause, the implied move is a group move. The implied MOVE statement does not occur if the execution of the RETURN statement was unsuccessful. Any subscripting or reference modification associated with identifier-1 is evaluated after the record has been read and immediately before it is moved to the data item. The record is available in both the record area and the data item referenced by identifier-1.
410
| | |
When there are multiple record descriptions associated with file-name-1 and they do not all describe an alphanumeric group item or elementary alphanumeric item, the following rules apply: 1. If the file referenced by file-name-1 contains variable-length records, a group move takes place. 2. If the file referenced by file-name-1 contains fixed-length records, a move takes place according to the rules for a MOVE statement using, as a sending field description, the record that specifies the largest number of character positions. If more than one such record exists, the sending field record selected will be the one among those records that appears first under the description of file-name-1. identifier-1 must be a valid receiving field for the selected sending record description entry in accordance with the rules of the MOVE statement. The record areas associated with file-name-1 and identifier-1 must not be the same storage area.
AT END phrases
The imperative-statement specified on the AT END phrase executes after all records have been returned from file-name-1. No more RETURN statements can be executed as part of the current output procedure. If an at-end condition does not occur during the execution of a RETURN statement, then after the record is made available and after executing any implicit move resulting from the presence of an INTO phrase, control is transferred to the imperative statement specified by the NOT AT END phrase. If an at-end condition does occur, control is transferred to the end of the RETURN statement.
END-RETURN phrase
This explicit scope terminator serves to delimit the scope of the RETURN statement. END-RETURN permits a conditional RETURN statement to be nested in another conditional statement. END-RETURN can also be used with an imperative RETURN statement. For more information, see Delimited scope statements on page 285.
411
REWRITE statement
The REWRITE statement logically replaces an existing record in a direct-access file. When the REWRITE statement is executed, the associated direct-access file must be open in I-O mode. The REWRITE statement is not supported for line-sequential files.
Format
REWRITE record-name-1 FROM identifier-1
INVALID KEY
imperative-statement-1
imperative-statement-2
END-REWRITE
record-name-1 Must be the name of a logical record in a data division FD entry. The record-name can be qualified. FROM phrase The result of the execution of the REWRITE statement with the FROM identifier-1 phrase is equivalent to the execution of the following statements in the order specified.
MOVE identifier-1 TO record-name-1. REWRITE record-name-1
The MOVE is performed according to the rules for the MOVE statement without the CORRESPONDING phrase. identifier-1 identifier-1 can reference one of the following: v A record description for another previously opened file v An alphanumeric or national function v A data item defined in the working-storage section, the local-storage section, or the linkage section identifier-1 must be a valid sending item with record-name-1 as the receiving item in accordance with the rules of the MOVE statement. identifier-1 and record-name-1 must not refer to the same storage area. After the REWRITE statement is executed, the information is still available in identifier-1 (INTO and FROM phrases on page 297 under Common processing facilities).
412
v The access mode is sequential, and the value contained in the prime RECORD KEY of the record to be replaced does not equal the value of the prime RECORD KEY data item of the last-retrieved record from the file v The value contained in the prime RECORD KEY does not equal that of any record in the file v The value of an ALTERNATE RECORD KEY data item for which DUPLICATES is not specified is equal to that of a record already in the file
END-REWRITE phrase
This explicit scope terminator serves to delimit the scope of the REWRITE statement. END-REWRITE permits a conditional REWRITE statement to be nested in another conditional statement. END-REWRITE can also be used with an imperative REWRITE statement. For more information, see Delimited scope statements on page 285.
Sequential files
For files in the sequential access mode, the last prior input/output statement executed for this file must be a successfully executed READ statement. When the REWRITE statement is executed, the record retrieved by that READ statement is logically replaced. The number of character positions in record-name-1 must equal the number of character positions in the record being replaced. The INVALID KEY phrase must not be specified for a file with sequential organization. An EXCEPTION/ERROR procedure can be specified.
Indexed files
The number of character positions in record-name-1 can be different from the number of character positions in the record being replaced. When the access mode is sequential, the record to be replaced is specified by the value contained in the prime RECORD KEY. When the REWRITE statement is executed, this value must equal the value of the prime record key data item in the last record read from this file. Both the INVALID KEY phrase and an applicable EXCEPTION/ERROR procedure can be omitted.
413
When the access mode is random or dynamic, the record to be replaced is specified by the value contained in the prime RECORD KEY. Values of ALTERNATE RECORD KEY data items in the rewritten record can differ from those in the record being replaced. The system ensures that later access to the record can be based upon any of the record keys. If an invalid key condition exists, the execution of the REWRITE statement is unsuccessful, the updating operation does not take place, and the data in record-name-1 is unaffected. (See Invalid key condition on page 296 under Common processing facilities.)
Relative files
The number of character positions in record-name-1 can be different from the number of character positions in the record being replaced. For relative files in sequential access mode, the INVALID KEY phrase must not be specified. An EXCEPTION/ERROR procedure can be specified. For relative files in random or dynamic access mode, the INVALID KEY phrase or an applicable EXCEPTION/ERROR procedure can be specified. Both can be omitted. When the access mode is random or dynamic, the record to be replaced is specified in the RELATIVE KEY data item. If the file does not contain the record specified, an invalid key condition exists, and, if specified, the INVALID KEY imperative-statement is executed. (See Invalid key condition on page 296 under Common processing facilities.) The updating operation does not take place, and the data in record-name is unaffected.
414
SEARCH statement
The SEARCH statement searches a table for an element that satisfies the specified condition and adjusts the associated index to indicate that element.
imperative-statement-2 NEXT-SENTENCE
END-SEARCH
WHEN
data-name-1 IS
EQUAL TO =
condition-name-1
AND
data-name-2 IS
EQUAL TO =
END-SEARCH
415
| | | | |
Use format 1 (serial search) when the table that you want to search has not been sorted. Use format 1 to search a sorted table when you want to search serially through the table or you want to control subscripts or indexes. Use format 2 (binary search) when you want to efficiently search across all occurrences in a table. The table must previously have been sorted.
Serial search
identifier-1 (serial search) identifier-1 identifies the table that is to be searched. identifier-1 references all occurrences within that table. The data description entry for identifier-1 must contain an OCCURS clause. The data description entry for identifier-1 should contain an OCCURS clause with the INDEXED BY phrase, but a table can be searched using an index defined for an appropriately described different table. identifier-1 can reference a data item that is subordinate to a data item that is described with an OCCURS clause (that is, identifier-1 can be a subordinate table within a multidimensional table). In this case, the data description entries must specify an INDEXED BY phrase for each dimension of the table. identifier-1 must not be subscripted or reference-modified.
AT END The condition that exists when the search operation terminates without satisfying the condition specified in any of the associated WHEN phrases. Before executing a serial search, you must set the value of the first (or only) index associated with identifier-1 (the search index) to indicate the starting occurrence for the search. Before using a serial search on a multidimensional table, you must also set the value of the index for each superordinate dimension. The SEARCH statement modifies only the value in the search index, and, if the VARYING phrase is specified, the value in index-name-1 or identifier-2. Therefore, to search an entire two-dimensional to seven-dimensional table, you must execute a SEARCH statement for each dimension. In the WHEN phrases, you must specify the indexes for all dimensions. Before the execution of each SEARCH statement, you must initialize the associated indexes with SET statements. The SEARCH statement executes a serial search beginning at the current setting of the search index. When the search begins, if the value of the index associated with identifier-1 is not greater than the highest possible occurrence number, the following actions take place: v The conditions in the WHEN phrase are evaluated in the order in which they are written. v If none of the conditions is satisfied, the index for identifier-1 is increased to correspond to the next table element, and step 1 is repeated.
416
If upon evaluation one of the WHEN conditions is satisfied, the search is terminated immediately, and the imperative-statement-2 associated with that condition is executed. The index points to the table element that satisfied the condition. If NEXT SENTENCE is specified, control passes to the statement following the closest period. v If the end of the table is reached (that is, the value of the incremented index is greater than the highest possible occurrence number) without the WHEN condition being satisfied, the search is terminated. v If, when the search begins, the value of the index-name associated with identifier-1 is greater than the highest possible occurrence number, the search terminates immediately. When the search terminates, if the AT END phrase is specified, imperative-statement-1 is executed. If the AT END phrase is omitted, control passes to the next statement after the SEARCH statement.
* * * *
VARYING phrase
index-name-1 One of the following actions applies: v If index-name-1 is an index for identifier-1, this index is used for the search. Otherwise, the first (or only) index-name is used. v If index-name-1 is an index for another table element, then the first (or only) index-name for identifier-1 is used for the search; the occurrence number represented by index-name-1 is increased by the same amount as the search index-name and at the same time. When the VARYING index-name-1 phrase is omitted, the first (or only) index-name for identifier-1 is used for the search. If indexing is used to search a table without an INDEXED BY phrase, correct results are ensured only if both the table defined with the index and the table defined without the index have table elements of the same length and with the same number of occurrences.
Chapter 21. Procedure division statements
417
When the object of the VARYING phrase is an index-name for another table element, one serial SEARCH statement steps through two table elements at once. identifier-2 Must be either an index data item or an elementary integer item. identifier-2 cannot be a windowed date field. identifier-2 cannot be subscripted by the first (or only) index-name specified for identifier-1. During the search, one of the following actions applies: v If identifier-2 is an index data item, then, whenever the search index is increased, the specified index data item is simultaneously increased by the same amount. v If identifier-2 is an integer data item, then, whenever the search index is increased, the specified data item is simultaneously increased by 1.
imperativestatement-1
Condition-1
True
imperativestatement-2
False
Condition-2
True
imperativestatement-3
These operations are included only when called for in the statement. Control transfers to the next sentence, unless the imperative statement ends with a GO TO statement.
418
Binary search
identifier-1 (binary search) identifier-1 identifies the table that is to be searched. identifier-1 references all occurrences within that table. The data description entry for identifier-1 must contain an OCCURS clause with the INDEXED BY and KEY IS phrases. identifier-1 can reference a data item that is subordinate to a data item that contains an OCCURS clause (that is, identifier-1 can be a subordinate table within a multidimensional table). In this case, the data description entry must specify an INDEXED BY phrase for each dimension of the table. identifier-1 must not be subscripted or reference-modified. AT END The condition that exists when the search operation terminates without satisfying the conditions specified in the WHEN phrase. The SEARCH ALL statement executes a binary search. The index associated with identifier-1 (the search index) need not be initialized by SET statements. The search index is varied during the search operation so that its value is at no time less than the value of the first table element, nor ever greater than the value of the last table element. The index used is always that associated with the first index-name specified in the OCCURS clause. Before using a binary search on a multidimensional table, you must execute SET statements to set the value of the index for each superordinate dimension. The SEARCH statement modifies only the value in the search index. Therefore, to search an entire two-dimensional to seven-dimensional table, you must execute a SEARCH statement for each dimension. In the WHEN phrases, you must specify the indexes for all dimensions. If the search ends without the WHEN condition being satisfied and the AT END phrase is specified, imperative-statement-1 is executed. If the AT END phrase is omitted, control passes to the next statement after the SEARCH statement. The results of a SEARCH ALL operation are predictable only when: v The data in the table is ordered in ASCENDING KEY or DESCENDING KEY order v The contents of the ASCENDING or DESCENDING keys specified in the WHEN clause provide a unique table reference.
419
If the WHEN phrase can be satisfied, control passes to imperative-statement-2, if specified, or to the next executable sentence if the NEXT SENTENCE phrase is specified. The index contains the value indicating the occurrence that allowed the WHEN conditions to be satisfied. After imperative-statement-2 is executed, control passes to the end of the SEARCH statement, unless imperative-statement-2 ends with a GO TO statement. condition-name-1, condition-name-2 Each condition-name specified must have only a single value, and each must be associated with an ASCENDING KEY or DESCENDING KEY data item for this table element. data-name-1, data-name-2 Must specify an ASCENDING KEY or DESCENDING KEY data item in the table element referenced by identifier-1 and must be subscripted by the first index-name associated with identifier-1. Each data-name can be qualified. data-name-1 must be a valid operand for comparison with identifier-3, literal-1, or arithmetic-expression-1 according to the rules of comparison. data-name-2 must be a valid operand for comparison with identifier-4, literal-2, or arithmetic-expression-2 according to the rules of comparison. data-name-1 and data-name-2 cannot reference: v Floating-point data items v Group items containing variable-occurrence data items v Windowed date fields identifier-3, identifier-4 Must not be an ASCENDING KEY or DESCENDING KEY data item for identifier-1 or an item that is subscripted by the first index-name for identifier-1. identifier-3 and identifier-4 cannot be data items defined with any of the usages POINTER, FUNCTION-POINTER, PROCEDURE-POINTER, or OBJECT REFERENCE. identifier-3 and identifier-4 cannot be windowed date fields. If identifier-3 or literal-1 is of class national, data-name-1 must be of class national. If identifier-4 or literal-2 is of class national, data-name-2 must be of class national. | | | literal-1, literal-2 literal-1 or literal-2 must be a valid operand for comparison with data-name-1 or data-name-2, respectively. arithmetic-expression Can be any of the expressions defined under Arithmetic expressions on page 253, with the following restriction: Any identifier in arithmetic-expression must not be an ASCENDING KEY or DESCENDING KEY data item for identifier-1 or an item that is subscripted by the first index-name for identifier-1. When an ASCENDING KEY or DESCENDING KEY data item is specified, explicitly or implicitly, in the WHEN phrase, all preceding ASCENDING KEY or DESCENDING KEY data-names for identifier-1 must also be specified.
420
NEXT SENTENCE
NEXT SENTENCE transfers control to the first statement following the closest separator period. When NEXT SENTENCE is specified with END-SEARCH, control does not pass to the statement following the END-SEARCH. Instead, control passes to the statement after the closest following period. For the format-2 SEARCH ALL statement, neither imperative-statement-2 nor NEXT SENTENCE is required. Without them, the SEARCH statement sets the index to the value in the table that matched the condition. The function of the NEXT SENTENCE phrase is the same for a serial search and a binary search
END-SEARCH phrase
This explicit scope terminator delimits the scope of the SEARCH statement. END-SEARCH permits a conditional SEARCH statement to be nested in another conditional statement. For more information, see Delimited scope statements on page 285. The function of END-SEARCH is the same for a serial search and a binary search
421
SET statement
The SET statement is used to perform one of the following operations: v Placing values associated with table elements into indexes associated with index-names v Incrementing or decrementing an occurrence number v Setting the status of an external switch to ON or OFF v Moving data to condition names to make conditions true v Setting USAGE POINTER data items to a data address v Setting USAGE PROCEDURE-POINTER data items to an entry address v Setting USAGE FUNCTION-POINTER data items to an entry address v Setting USAGE OBJECT REFERENCE data items to refer to an object instance Index-names are related to a given table through the INDEXED BY phrase of the OCCURS clause; they are not further defined in the program. When the sending and receiving fields in a SET statement share part of their storage (that is, the operands overlap), the result of the execution of that SET statement is undefined.
SET
index-name-1 identifier-1
TO
index-name-1 Receiving field. Must name an index that is specified in the INDEXED BY phrase of an OCCURS clause. identifier-1 Receiving field. Must name either an index data item or an elementary numeric integer item. A receiving field cannot be a windowed date field. index-name-2 Sending field. Must name an index that is specified in the INDEXED BY phrase of an OCCURS clause. The value of the index before the SET statement is executed must correspond to an occurrence number of its associated table. identifier-2 Sending field.
422
Must name either an index data item or an elementary numeric integer item. A sending field cannot be a windowed date field. integer-1 Sending field. Must be a positive integer. The following table shows valid combinations of sending and receiving fields in a format-1 SET statement.
Table 52. Sending and receiving fields for format-1 SET statement Index-name receiving field Valid Valid Valid Valid
**
Sending field Index-name* Index data item* Integer data item Integer literal
Invalid Invalid
*An index-name refers to an index named in the INDEXED BY phrase of an OCCURS clause. An index data item is defined with the USAGE IS INDEX clause.
**
Receiving fields are acted upon in the left-to-right order in which they are specified. Any subscripting or indexing associated with identifier-1 is evaluated immediately before that receiving field is acted upon. The value used for the sending field is the value at the beginning of SET statement execution. The value of an index after execution of a SEARCH or PERFORM statement can be undefined; therefore, use a format-1 SET statement to reinitialize such indexes before you attempt other table-handling operations. If index-name-2 is for a table that has a subordinate item that contains an OCCURS DEPENDING ON clause, then undefined values can be received into identifier-1. For more information about complex OCCURS DEPENDING ON, see the Enterprise COBOL Programming Guide.
423
SET
index-name-3
UP BY DOWN BY
identifier-3 integer-2
The receiving field is an index specified by index-name-3. The index value both before and after the SET statement execution must correspond to an occurrence number in an associated table. The sending field can be specified as identifier-3, which must be an elementary integer data item, or as integer-2, which must be a nonzero integer. identifier-3 cannot be a windowed date field. When the format-2 SET statement is executed, the contents of the receiving field are increased (UP BY) or decreased (DOWN BY) by a value that corresponds to the number of occurrences represented by the value of identifier-3 or integer-2. Receiving fields are acted upon in the left-to-right order in which they are specified. The value of the incrementing or decrementing field at the beginning of SET statement execution is used for all receiving fields. If index-name-3 is for a table that has a subordinate item that contains an OCCURS DEPENDING ON clause, and if the ODO object is changed before executing a format-2 SET Statement, then index-name-3 cannot contain a value that corresponds to an occurrence number of its associated table. For more information about complex OCCURS DEPENDING ON, see the Enterprise COBOL Programming Guide.
SET
mnemonic-name-1
TO
ON OFF
mnemonic-name-1 Must be associated with an external switch, the status of which can be altered.
424
SET
condition-name-1
TO TRUE
condition-name-1 Must be associated with a conditional variable. If more than one literal is specified in the VALUE clause of condition-name-1, its associated conditional variable is set equal to the first literal. If multiple condition-names are specified, the results are the same as if a separate SET statement had been written for each condition-name in the same order in which they are specified in the SET statement.
SET
TO
identifier-4 Receiving fields. Must be described as USAGE IS POINTER. ADDRESS OF identifier-5 Receiving fields. identifier-5 must be level-01 or level-77 items defined in the linkage section. The addresses of these items are set to the value of the operand specified in the TO phrase. identifier-5 must not be reference-modified.
425
identifier-6 Sending field. Must be described as USAGE IS POINTER. ADDRESS OF identifier-7 Sending field. identifier-7 must name an item of any level except 66 or 88 in the linkage section, the working-storage section, or the local-storage section. ADDRESS OF identifier-7 contains the address of the identifier, and not the content of the identifier. NULL, NULLS Sending field. Sets the receiving field to contain the value of an invalid address. The following table shows valid combinations of sending and receiving fields in a format-5 SET statement.
Table 53. Sending and receiving fields for format-5 SET statement USAGE IS POINTER receiving field Valid Valid Valid ADDRESS OF receiving field Valid Valid Valid NULL/NULLS receiving field Invalid Invalid Invalid
426
SET
procedure-pointer-data-item-1 function-pointer-data-item-1 procedure-pointer-data-item-2 function-pointer-data-item-2 ENTRY identifier-8 literal-1 NULL NULLS pointer-data-item-3
TO
procedure-pointer-data-item-1, procedure-pointer-data-item-2 Must be described as USAGE IS PROCEDURE-POINTER. procedure-pointer-data-item-1 is a receiving field; procedure-pointer-data-item-2 is a sending field. function-pointer-data-item-1, function-pointer-data-item-2 Must be described as USAGE IS FUNCTION-POINTER. function-pointer-data-item-1 is a receiving field; function-pointer-data-item-2 is a sending field. | identifier-8 Must be defined as an alphabetic or alphanumeric item such that the value can be a program name. For more information, see PROGRAM-ID paragraph on page 96. For entry points in non-COBOL programs, identifier-8 can contain the characters @, #, and, $. literal-1 Must be alphanumeric and must conform to the rules for formation of program-names. For details on formation rules, see the discussion of program-name under PROGRAM-ID paragraph on page 96. identifier-8 or literal-1 must refer to one of the following types of entry points: v The primary entry point of a COBOL program as defined by the PROGRAM-ID paragraph. The PROGRAM-ID must reference the outermost program of a compilation unit; it must not reference a nested program. v An alternate entry point of a COBOL program as defined by a COBOL ENTRY statement. v An entry point in a non-COBOL program. The program-name referenced by the SET ... TO ENTRY statement can be affected by the PGMNAME compiler option. For details, see the Enterprise COBOL Programming Guide. NULL, NULLS Sets the receiving field to contain the value of an invalid address.
427
pointer-data-item-3 Must be defined with USAGE POINTER. You must set pointer-data-item-3 in a non-COBOL program to point to a valid program entry point.
object-reference-id-1 and object-reference-id-2 must be defined as USAGE OBJECT REFERENCE. object-reference-id-1 is the receiving item and object-reference-id-2 is the sending item. If object-reference-id-1 is defined as an object reference of a certain class (defined as USAGE OBJECT REFERENCE class-name), object-reference-id-2 must be an object reference of the same class or a class derived from that class. If the figurative constant NULL is specified, the receiving object-reference-id-1 is set to the NULL value. If SELF is specified, the SET statement must appear in the procedure division of a method. object-reference-id-1 is set to reference the object upon which the currently executing method was invoked.
428
SORT statement
The SORT statement accepts records from one or more files, sorts them according to the specified keys, and makes the sorted records available either through an output procedure or in an output file. See also MERGE statement on page 370. The SORT statement can appear anywhere in the procedure division except in the declarative portion. The SORT statement is not supported for programs compiled with the THREAD option.
Format
SORT file-name-1 ON
ASCENDING DESCENDING
data-name-1 KEY
SEQUENCE COLLATING IS
alphabet-name-1
file-name-1 The name given in the SD entry that describes the records to be sorted. No pair of file-names in a SORT statement can be specified in the same SAME SORT AREA clause or the SAME SORT-MERGE AREA clause. File-names
429
associated with the GIVING clause (file-name-3, ...) cannot be specified in the SAME AREA clause; however, they can be associated with the SAME RECORD AREA clause.
| | | |
| | | | |
430
phrase of the SORT statement or, if this phrase is not specified, then any PROGRAM COLLATING SEQUENCE clause in the OBJECT-COMPUTER paragraph, must not specify a collating sequence other than EBCDIC or NATIVE. If the SORT statement meets these conditions, the sort operation takes advantage of SORT Year 2000 features, provided that the execution environment includes a sort product that supports century windowing. A year-last windowed date field can be specified as a KEY for a SORT statement and can thereby exploit the corresponding century windowing capability of the sort product. For more information about using windowed date fields as KEY data items, see the Enterprise COBOL Programming Guide. If file-name-3 references an indexed file, the first specification of data-name-1 must be associated with an ASCENDING phrase and the data item referenced by that data-name-1 must occupy the same character positions in this record as the data item associated with the major record key for that file. The direction of the sorting operation depends on the specification of the ASCENDING or DESCENDING keywords as follows: v When ASCENDING is specified, the sequence is from the lowest key value to the highest key value. v When DESCENDING is specified, the sequence is from the highest key value to the lowest. v If the KEY data item is described with usage NATIONAL, the sequence of the KEY values is based on the binary values of the national characters. v If the KEY data item is in internal floating point, the sequence of key values will be in numeric order. v When the COLLATING SEQUENCE phrase is not specified, the key comparisons are performed according to the rules for comparison of operands in a relation condition (see Relation Condition under Conditional expressions on page 259). v When the COLLATING SEQUENCE phrase is specified, the indicated collating sequence is used for key data items of alphabetic, alphanumeric, alphanumeric-edited, external floating-point, and numeric-edited categories. For all other key data items, the comparisons are performed according to the rules for comparison of operands in a relation condition.
| |
DUPLICATES phrase
If the DUPLICATES phrase is specified, and the contents of all the key elements associated with one record are equal to the corresponding key elements in one or more other records, the order of return of these records is as follows: v The order of the associated input files as specified in the SORT statement. Within a given file the order is that in which the records are accessed from that file. v The order in which these records are released by an input procedure, when an input procedure is specified. If the DUPLICATES phrase is not specified, the order of these records is undefined. For more information about use of the DUPLICATES phrase, see the related discussion of alternate indexes in the Enterprise COBOL Programming Guide.
431
When the COLLATING SEQUENCE phrase is omitted, the PROGRAM COLLATING SEQUENCE clause (if specified) in the OBJECT-COMPUTER paragraph specifies the collating sequence to be used. When both the COLLATING SEQUENCE phrase and the PROGRAM COLLATING SEQUENCE clause are omitted, the EBCDIC collating sequence is used.
USING phrase
file-name-2, ... The input files. When the USING phrase is specified, all the records in file-name-2, ..., (that is, the input files) are transferred automatically to file-name-1. At the time the SORT statement is executed, these files must not be open. The compiler opens, reads, makes records available, and closes these files automatically. If EXCEPTION/ERROR procedures are specified for these files, the compiler makes the necessary linkage to these procedures. All input files must be described in FD entries in the data division. If the USING phrase is specified and if file-name-1 contains variable-length records, the size of the records contained in the input files (file-name-2, ...) must be neither less than the smallest record nor greater than the largest
432
record described for file-name-1. If file-name-1 contains fixed-length records, the size of the records contained in the input files must not be greater than the largest record described for file-name-1. For more information, see the Enterprise COBOL Programming Guide.
GIVING phrase
file-name-3, ... The output files. When the GIVING phrase is specified, all the sorted records in file-name-1 are automatically transferred to the output files (file-name-3, ...). All output files must be described in FD entries in the data division. If the output files (file-name-3, ...) contain variable-length records, the size of the records contained in file-name-1 must be neither less than the smallest record nor greater than the largest record described for the output files. If the output files contain fixed-length records, the size of the records contained in file-name-1 must not be greater than the largest record described for the output files. For more information, see the Enterprise COBOL Programming Guide. At the time the SORT statement is executed, the output files (file-name-3, ...) must not be open. For each of the output files, the execution of the SORT statement causes the following actions to be taken: v The processing of the file is initiated. The initiation is performed as if an OPEN statement with the OUTPUT phrase had been executed. v The sorted logical records are returned and written onto the file. Each record is written as if a WRITE statement without any optional phrases had been executed.
433
For a relative file, the relative key data item for the first record returned contains the value 1; for the second record returned, the value 2. After execution of the SORT statement, the content of the relative key data item indicates the last record returned to the file. v The processing of the file is terminated. The termination is performed as if a CLOSE statement without optional phrases had been executed. These implicit functions are performed such that any associated USE AFTER EXCEPTION/ERROR procedures are executed; however, the execution of such a USE procedure must not cause the execution of any statement manipulating the file referenced by, or accessing the record area associated with, file-name-3. On the first attempt to write beyond the externally defined boundaries of the file, any USE AFTER STANDARD EXCEPTION/ERROR procedure specified for the file is executed. If control is returned from that USE procedure or if no such USE procedure is specified, the processing of the file is terminated.
434
Segmentation considerations
If a SORT statement is coded in a fixed segment, any input or output procedure referenced by that SORT statement must be either totally within a fixed segment or wholly contained in a single independent segment. If a SORT statement is coded in an independent segment, any input or output procedure referenced by that SORT statement must be either totally within a fixed segment or wholly contained within the same independent segment as that SORT statement.
435
START statement
The START statement provides a means of positioning within an indexed or relative file for subsequent sequential record retrieval. When the START statement is executed, the associated indexed or relative file must be open in either INPUT or I-O mode.
Format
START file-name-1
KEY IS
EQUAL TO = GREATER THAN > NOT LESS THAN NOT < GREATER THAN >= OR EQUAL TO
data-name-1
INVALID KEY
imperative-statement-1
imperative-statement-2
END-START
file-name-1 Must name a file with sequential or dynamic access. file-name-1 must be defined in an FD entry in the data division and must not name a sort file.
KEY phrase
When the KEY phrase is specified, the file position indicator is positioned at the logical record in the file whose key field satisfies the comparison. When the KEY phrase is not specified, KEY IS EQUAL (to the prime record key) is implied. data-name-1 Can be qualified; it cannot be subscripted. When the START statement is executed, a comparison is made between the current value in the key data-name and the corresponding key field in the files index. If the FILE STATUS clause is specified in the file-control entry, the associated file status key is updated when the START statement is executed (See File status key on page 292).
436
END-START phrase
This explicit scope terminator serves to delimit the scope of the START statement. END-START permits a conditional START statement to be nested in another conditional statement. END-START can also be used with an imperative START statement. For more information, see Delimited scope statements on page 285.
Indexed files
When the KEY phrase is specified, the key data item used for the comparison is data-name-1. When the KEY phrase is not specified, the key data item used for the EQUAL TO comparison is the prime RECORD KEY. When START statement execution is successful, the RECORD KEY or ALTERNATE RECORD KEY with which data-name-1 is associated becomes the key of reference for subsequent READ statements. data-name-1 Can be any of the following: v The prime RECORD KEY. v Any ALTERNATE RECORD KEY. v A data item within a record description for a file whose leftmost character position corresponds to the leftmost character position of that record key; it can be qualified. The size of the data item must be less than or equal to the length of the record key for the file. Regardless of its category, data-name-1 is treated as an alphanumeric item for purposes of the comparison operation. The file position indicator points to the first record in the file whose key field satisfies the comparison. If the operands in the comparison are of unequal lengths, the comparison proceeds as if the longer field were truncated on the right to the length of the shorter field. All other numeric and alphanumeric comparison rules apply, except that the PROGRAM COLLATING SEQUENCE clause, if specified, has no effect. When START statement execution is successful, the RECORD KEY with which data-name-1 is associated becomes the key of reference for subsequent READ statements. When START statement execution is unsuccessful, the key of reference is undefined.
Chapter 21. Procedure division statements
437
Relative files
When the KEY phrase is specified, data-name-1 must specify the RELATIVE KEY. Whether or not the KEY phrase is specified, the key data item used in the comparison is the RELATIVE KEY data item. Numeric comparison rules apply. The file position indicator points to the logical record in the file whose key satisfies the specified comparison.
438
STOP statement
The STOP statement halts execution of the object program either permanently or temporarily.
Format
STOP RUN literal
literal Can be a fixed-point numeric literal (signed or unsigned) or an alphanumeric literal. It can be any figurative constant except ALL literal. When STOP literal is specified, the literal is communicated to the operator, and object program execution is suspended. Program execution is resumed only after operator intervention, and continues at the next executable statement in sequence. The STOP literal statement is useful for special situations when operator intervention is needed during program execution; for example, when a special tape or disk must be mounted or a specific daily code must be entered. However, the ACCEPT and DISPLAY statements are preferred when operator intervention is needed. Do not use the STOP literal statement in programs compiled with the THREAD compiler option. When STOP RUN is specified, execution is terminated and control is returned to the system. When STOP RUN is not the last or only statement in a sequence of imperative statements within a sentence, the statements following STOP RUN are not executed. The STOP RUN statement closes all files defined in any of the programs in the run unit. For use of the STOP RUN statement in calling and called programs, see the following table.
Termination statement Main program STOP RUN Subprogram
Returns to the calling program. (Can be Returns directly to the program that the system, which causes the called the main program. (Can be application to end.) the system, which causes the application to end.)
439
STRING statement
The STRING statement strings together the partial or complete contents of two or more data items or literals into one single data item. One STRING statement can be written instead of a series of MOVE statements.
Format
STRING
identifier-1 literal-1
DELIMITED BY
INTO
OVERFLOW imperative-statement-1 ON
NOT ON
OVERFLOW imperative-statement-2
END-STRING
identifier-1, literal-1 Represents the sending fields. DELIMITED BY phrase Sets the limits of the string. identifier-2, literal-2 Are delimiters; that is, characters that delimit the data to be transferred. SIZE Transfers the complete sending area.
440
POINTER phrase Points to a character position in the receiving field. The pointer field indicates a relative alphanumeric character position, DBCS character position, or national character position when the receiving field is of usage DISPLAY, DISPLAY-1, or NATIONAL, respectively. identifier-4 Represents the pointer field. identifier-4 must be large enough to contain a value equal to the length of the receiving field plus 1.
| | |
The following rules apply: v All identifiers except identifier-4 must reference data items described explicitly or implicitly as usage DISPLAY, DISPLAY-1, or NATIONAL. v literal-1 or literal-2 must be of category alphanumeric, DBCS, or national and can be any figurative constant that does not begin with the word ALL (except NULL). v If identifier-1 or identifer-2 references a data item of category numeric, each numeric item must be described as an integer without the symbol P in its PICTURE character-string. v identifier-3 must not reference a data item of category numeric-edited, alphanumeric-edited, or national-edited; an external floating-point data item of usage DISPLAY, or an external floating-point data item of usage NATIONAL. v identifier-3 must not described with the JUSTIFIED clause. v If identifier-3 is of usage DISPLAY, identifier-1 and identifier-2 must be of usage DISPLAY and all literals must be alphanumeric literals. Any figurative constant can be specified except one that begins with the word ALL. Each figurative constant represents a 1-character alphanumeric literal. v If identifier-3 is of usage DISPLAY-1, identifier-1 and identifier-2 must be of usage DISPLAY-1 and all literals must be DBCS literals. The only figurative constant that can be specified is SPACE, which represents a 1-character DBCS literal. ALL DBCS-literal must not be specified. v If identifier-3 is of usage NATIONAL, identifier-1 and identifier-2 must be of usage NATIONAL and all literals must be national literals. Any figurative constant can be specified except symbolic-character and one that begins with the word ALL. Each figurative constant represents a 1-character national literal. v If identifier-1 or identifier-2 references an elementary data item of usage DISPLAY that is described as category numeric, numeric-edited, or alphanumeric-edited, the item is treated as if it were redefined as category alphanumeric. v If identifier-1 or identifier-2 references an elementary data item of usage NATIONAL that is described as category numeric, numeric-edited, or national-edited item, the item is treated as if it were redefined as category national. v identifier-4 must not be described with the symbol P in its PICTURE character-string. v None of the identifiers in a STRING statement can be a windowed date field. Evaluation of subscripts, reference modification, variable-lengths, variable locations, and function-identifiers is performed only once, at the beginning of the
Chapter 21. Procedure division statements
| | |
| | | |
| | | |
441
execution of the STRING statement. Therefore, if identifier-3 or identifier-4 is used as a subscript, reference-modifier, or function argument in the STRING statement, or affects the length or location of any of the identifiers in the STRING statement, the values calculated for those subscripts, reference-modifiers, variable lengths, variable locations, and functions are not affected by any results of the STRING statement. If identifier-3 and identifier-4 occupy the same storage area, undefined results will occur, even if the identifiers are defined by the same data description entry. If identifier-1 or identifier-2 occupies the same storage area as identifier-3 or identifier-4, undefined results will occur, even if the identifiers are defined by the same data description entry. | See Data flow on page 443 below for details of STRING statement processing.
ON OVERFLOW phrases
imperative-statement-1 Executed when the pointer value (explicit or implicit): v Is less than 1 v Exceeds a value equal to the length of the receiving field When either of the above conditions occurs, an overflow condition exists, and no more data is transferred. Then the STRING operation is terminated, the NOT ON OVERFLOW phrase, if specified, is ignored, and control is transferred to the end of the STRING statement or, if the ON OVERFLOW phrase is specified, to imperative-statement-1. If control is transferred to imperative-statement-1, execution continues according to the rules for each statement specified in imperative-statement-1. If a procedure branching or conditional statement that causes explicit transfer of control is executed, control is transferred according to the rules for that statement; otherwise, upon completion of the execution of imperative-statement-1, control is transferred to the end of the STRING statement. If at the time of execution of a STRING statement, conditions that would cause an overflow condition are not encountered, then after completion of the transfer of data, the ON OVERFLOW phrase, if specified, is ignored. Control is then transferred to the end of the STRING statement, or if the NOT ON OVERFLOW phrase is specified, to imperative-statement-2. If control is transferred to imperative-statement-2, execution continues according to the rules for each statement specified in imperative-statement-2. If a procedure branching or conditional statement that causes explicit transfer of control is executed, control is transferred according to the rules for that statement. Otherwise, upon completion of the execution of imperative-statement-2, control is transferred to the end of the STRING statement.
442
END-STRING phrase
This explicit scope terminator serves to delimit the scope of the STRING statement. END-STRING permits a conditional STRING statement to be nested in another conditional statement. END-STRING can also be used with an imperative STRING statement. For more information, see Delimited scope statements on page 285.
Data flow
When the STRING statement is executed, characters are transferred from the sending fields to the receiving field. The order in which sending fields are processed is the order in which they are specified. The following rules apply: v Characters from the sending fields are transferred to the receiving fields in the following manner: For national sending fields, data is transferred using the rules of the MOVE statement for elementary national-to-national moves, except that no space filling takes place. For DBCS sending fields, data is transferred using the rules of the MOVE statement for elementary DBCS-to-DBCS moves, except that no space filling takes place. Otherwise, data is transferred to the receiving fields using the rules of the MOVE statement for elementary alphanumeric-to-alphanumeric moves, except that no space filling takes place (see MOVE statement on page 376). v When DELIMITED BY identifier-2 or literal-2 is specified, the contents of each sending item are transferred, character-by-character, beginning with the leftmost character position and continuing until either: A delimiter for this sending field is reached (the delimiter itself is not transferred). The rightmost character of this sending field has been transferred. v When DELIMITED BY SIZE is specified, each entire sending field is transferred to the receiving field. v When the receiving field is filled, or when all the sending fields have been processed, the operation is ended. v When the POINTER phrase is specified, an explicit pointer field is available to the COBOL user to control placement of data in the receiving field. The user must set the explicit pointers initial value, which must not be less than 1 and not more than the character position count of the receiving field. Usage note: The pointer field must be defined as a field large enough to contain a value equal to the length of the receiving field plus 1; this precludes arithmetic overflow when the system updates the pointer at the end of the transfer. v When the POINTER phrase is not specified, no pointer is available to the user. However, a conceptual implicit pointer with an initial value of 1 is used by the system. v Conceptually, when the STRING statement is executed, the initial pointer value (explicit or implicit) is the first character position within the receiving field into which data is to be transferred. Beginning at that position, data is then positioned, character-by-character, from left to right. After each character is positioned, the explicit or implicit pointer is increased by 1. The value in the pointer field is changed only in this manner. At the end of processing, the pointer value always indicates a value equal to one character position beyond the last character transferred into the receiving field.
Chapter 21. Procedure division statements
443
After STRING statement execution is completed, only that part of the receiving field into which data was transferred is changed. The rest of the receiving field contains the data that was present before this execution of the STRING statement. When the following STRING statement is executed, the results obtained will be like those illustrated in the figure after the statement.
STRING ID-1 ID-2 DELIMITED BY ID-3 ID-4 ID-5 DELIMITED BY SIZE INTO ID-7 WITH POINTER ID-8 END-STRING
444
SUBTRACT statement
The SUBTRACT statement subtracts one numeric item, or the sum of two or more numeric items, from one or more numeric items, and stores the result.
Format 1
SUBTRACT
identifier-1 literal-1
FROM
identifier-2 ROUNDED
NOT ON
END-SUBTRACT
All identifiers or literals preceding the keyword FROM are added together and their sum is subtracted from and stored immediately in identifier-2. This process is repeated for each successive occurrence of identifier-2, in the left-to-right order in which identifier-2 is specified.
Format 2
SUBTRACT
identifier-1 literal-1
FROM
identifier-2 literal-2
GIVING
identifier-3 ROUNDED
NOT ON
END-SUBTRACT
445
All identifiers or literals preceding the keyword FROM are added together and their sum is subtracted from identifier-2 or literal-2. The result of the subtraction is stored as the new value of each data item referenced by identifier-3.
Format 3
SUBTRACT CORRESPONDING CORR identifier-1 FROM
identifier-2 ROUNDED
NOT ON
END-SUBTRACT
Elementary data items within identifier-1 are subtracted from, and the results are stored in, the corresponding elementary data items within identifier-2. When the ARITH(COMPAT) compiler option is in effect, the composite of operands can contain a maximum of 30 digits. When the ARITH(EXTEND) compiler option is in effect, the composite of operands can contain a maximum of 31 digits. For more information about arithmetic intermediate results, see the Enterprise COBOL Programming Guide. For all formats: identifier In format 1, must name an elementary numeric data item. In format 2, must name an elementary numeric data item, unless the identifier follows the word GIVING. Each identifier following the word GIVING must name a numeric or numeric-edited elementary data item. | | In format 3, must name an alphanumeric group item or a national group item. The following restrictions apply to date fields: v In format 1, identifier-1 can specify at most one date field. If identifier-1 specifies a date field, then every instance of identifier-2 must specify a date field that is compatible with the date field specified by identifier-1. If identifier-1 does not specify a date field, then identifier-2 can specify one or more date fields, with no restriction on their DATE FORMAT clauses. v In format 2, identifier-1 and identifier-2 can each specify at most one date field. If identifier-1 specifies a date field, then the FROM identifier-2 must be a date field that is compatible with the date field specified by identifier-1. identifier-3 can specify one or more date fields. If identifier-2 specifies a date field and identifier-1 does not, then every instance of identifier-3 must specify a date field that is compatible with the date field specified by identifier-2.
446
v In format 3, if an item within identifier-1 is a date field, then the corresponding item within identifier-2 must be a compatible date field. v A year-last date field is allowed in a SUBTRACT statement only as identifier-1 and when the result of the subtraction is a nondate. There are two steps to determining the result of a SUBTRACT statement that involves one or more date fields: 1. Subtraction: determine the result of the subtraction operation, as described under Subtraction that involves date fields on page 257. 2. Storage: determine how the result is stored in the receiving field. (In formats 1 and 3, the receiving field is identifier-2; in format 3, the receiving field is the GIVING identifier-3.) For details, see Storing arithmetic results that involve date fields on page 257. literal Must be a numeric literal. Floating-point data items and literals can be used anywhere numeric data items and literals can be specified.
ROUNDED phrase
For information about the ROUNDED phrase, and for operand considerations, see ROUNDED phrase on page 287.
END-SUBTRACT phrase
This explicit scope terminator serves to delimit the scope of the SUBTRACT statement. END-SUBTRACT permits a conditional SUBTRACT statement to be nested in another conditional statement. END-SUBTRACT can also be used with an imperative SUBTRACT statement. For more information, see Delimited scope statements on page 285.
447
UNSTRING statement
The UNSTRING statement causes contiguous data in a sending field to be separated and placed into multiple receiving fields.
Format
UNSTRING identifier-1
identifier-4 DELIMITER IN POINTER identifier-7 WITH TALLYING IN identifier-5 COUNT IN identifier-8 identifier-6
OVERFLOW imperative-statement-1 ON
NOT ON
OVERFLOW imperative-statement-2
END-UNSTRING
identifier-1 Represents the sending field. Data is transferred from this field to the data receiving fields (identifier-4). | | identifier-1 must reference a data item of category alphabetic, alphanumeric, alphanumeric-edited, DBCS, national, or national-edited. identifier-2, literal-1, identifier-3, literal-2 Specifies one or more delimiters. | | | | identifier-2 and identifier-3 must reference data items of category alphabetic, alphanumeric, alphanumeric-edited, DBCS, national, or national-edited. literal-1 or literal-2 must be of category alphanumeric, DBCS, or national and must not be a figurative constant that begins with the word ALL. identifier-4 Specifies one or more receiving fields.
448
identifier-4 must reference a data item of category alphabetic, alphanumeric, numeric, DBCS, or national. If the referenced data item is of category numeric, its picture character-string must not contain the picture symbol P, and its usage must be DISPLAY or NATIONAL. identifier-5 Specifies a field to receive the delimiter associated with identifier-4. Identifier-5 must reference a data item of category alphabetic, alphanumeric, DBCS, or national. identifier-6 Specifies a field to hold the count of characters that are transferred to identifier-4. identifier-6 must be an integer data item defined without the symbol P in its PICTURE character-string. identifier-7 Specifies a field to hold a relative character position during UNSTRING processing. identifier-7 must be an integer data item defined without the symbol P in the PICTURE string. identifier-7 must be described as a data item of sufficient size to contain a value equal to 1 plus the number of character positions in the data item referenced by identifier-1. identifier-8 Specifies a field that is incremented by the number of delimited fields processed. identifier-8 must be an integer data item defined without the symbol P in its PICTURE character-string. The following rules apply v If identifier-4 references a data item of usage DISPLAY, identifier-1, identifier-2, identifier-3, and identifier-5 must also reference data items of usage DISPLAY and all literals must be alphanumeric literals. Any figurative constant can be specified except NULL or one that begins with the word ALL. Each figurative constant represents a 1-character alphanumeric literal. v If identifier-4 references a data item of usage DISPLAY-1, identifier-1, identifier-2, identifier-3, and identifier-5 must also reference data items of usage DISPLAY-1 and all literals must be DBCS literals. Figurative constant SPACE is the only figurative constant that can be specified. Each figurative constant represents a 1-character DBCS literal. v If identifier-4 references a data item of usage NATIONAL, identifier-1, identifier-2, identifier-3, and identifier-5 must also reference data items of usage NATIONAL and all literals must be national literals. Any figurative constant can be specified except NULL or one that begins with the word ALL. Each figurative constant represents a 1-character national literal. v None of the identifiers in an UNSTRING statement can be windowed date fields. Count fields (identifier-6) and pointer fields (identifier-7) are incremented by number of character positions (alphanumeric, DBCS, or national), not by number of bytes. One UNSTRING statement can take the place of a series of MOVE statements, except that evaluation or calculation of certain elements is performed only once, at
| |
| |
| |
449
the beginning of the execution of the UNSTRING statement. For more information, see Values at the end of execution of the UNSTRING statement on page 454. The rules for moving are the same as those for a MOVE statement for an elementary sending item of the category of identifier-1, with the appropriate identifier-4 as the receiving item (see MOVE statement on page 376). For example, rules for moving a DBCS item are used when identifier-1 is a DBCS item.
DELIMITED BY phrase
This phrase specifies delimiters within the data that control the data transfer. Each identifier-2, identifier-3, literal-1, or literal-2 represents one delimiter. If the DELIMITED BY phrase is not specified, the DELIMITER IN and COUNT IN phrases must not be specified. ALL Multiple contiguous occurrences of any delimiters are treated as if there were only one occurrence; this one occurrence is moved to the delimiter receiving field (identifier-5), if specified. The delimiting characters in the sending field are treated as an elementary item of the same usage and category as identifier-1 and are moved into the current delimiter receiving field according to the rules of the MOVE statement. When DELIMITED BY ALL is not specified, and two or more contiguous occurrences of any delimiter are encountered, the current data receiving field (identifier-4) is filled with spaces or zeros, according to the description of the data receiving field.
An occurrence of either AB or BC in the sending field is considered a delimiter. An occurrence of ABC is considered an occurrence of AB.
INTO phrase
This phrase specifies the fields where the data is to be moved. identifier-4 represents the data receiving fields. DELIMITER IN This phrase specifies the fields where the delimiters are to be moved. identifier-5 represents the delimiter receiving fields.
450
The DELIMITER IN phrase must not be specified if the DELIMITED BY phrase is not specified. COUNT IN This phrase specifies the field where the count of examined character positions is held. identifier-6 is the data count field for each data transfer. Each field holds the count of examined character positions in the sending field, terminated by the delimiters or the end of the sending field, for the move to this receiving field. The delimiters are not included in this count. The COUNT IN phrase must not be specified if the DELIMITED BY phrase is not specified.
POINTER phrase
When the POINTER phrase is specified, the value of the pointer field, identifier-7, behaves as if it were increased by 1 for each examined character position in the sending field. When execution of the UNSTRING statement is completed, the pointer field contains a value equal to its initial value plus the number of character positions examined in the sending field. When this phrase is specified, the user must initialize the pointer field before execution of the UNSTRING statement begins.
TALLYING IN phrase
When the TALLYING phrase is specified, the area count field, identifier-8, contains (at the end of execution of the UNSTRING statement) a value equal to the initial value plus the number of data receiving areas acted upon. When this phrase is specified, the user must initialize the area count field before execution of the UNSTRING statement begins.
ON OVERFLOW phrases
An overflow condition exists when: v The pointer value (explicit or implicit) is less than 1. v The pointer value (explicit or implicit) exceeds a value equal to the length of the sending field. v All data receiving fields have been acted upon and the sending field still contains unexamined character positions.
451
explicit transfer of control is executed, control is transferred according to the rules for that statement. Otherwise, upon completion of the execution of imperative-statement-1, control is transferred to the end of the UNSTRING statement.
END-UNSTRING phrase
This explicit scope terminator serves to delimit the scope of the UNSTRING statement. END-UNSTRING permits a conditional UNSTRING statement to be nested in another conditional statement. END-UNSTRING can also be used with an imperative UNSTRING statement. For more information, see Delimited scope statements on page 285.
Data flow
When the UNSTRING statement is initiated, data is transferred from the sending field to the current data receiving field, according to the following rules: Stage 1: Examine 1. If the POINTER phrase is specified, the field is examined, beginning at the relative character position specified by the value in the pointer field. If the POINTER phrase is not specified, the sending field character-string is examined, beginning with the leftmost character position. 2. If the DELIMITED BY phrase is specified, the examination proceeds from left to right, examining character positions one-by-one until a delimiter is encountered. If the end of the sending field is reached before a delimiter is found, the examination ends with the last character position in the sending field. If there are more receiving fields, the next one is selected; otherwise, an overflow condition occurs. If the DELIMITED BY phrase is not specified, the number of character positions examined is equal to the size of the current data receiving field, which depends on its data category, as shown in Treatment of the content of data items (Table 41 on page 358).
452
Table 54. Character positions examined when DELIMITED BY is not specified If the receiving field is ... Alphanumeric or alphabetic The number of character positions examined is ... Equal to the number of alphanumeric character positions in the current receiving field Equal to the number of DBCS character positions in the current receiving field Equal to the number of national character positions in the current receiving field Equal to the number of character positions in the integer portion of the current receiving field 1 less than the size of the current receiving field Determined by the size of the current receiving field at the beginning of the UNSTRING operation
Described with the SIGN IS SEPARATE clause Described as a variable-length data item
| | |
Stage 2: Move 3. The examined character positions (excluding any delimiter characters) are treated as an elementary data item of the same data category as the sending field except for the cases shown in the table below.
Category of identifier-1 (sending-field) Category of elementary data item Alphanumeric National
| | | | |
Alphanumeric-edited National-edited
4.
5.
6.
7.
That elementary data item is moved to the current data receiving field according to the rules for the MOVE statement for the categories of the sending and receiving fields as described in MOVE statement on page 376. If the DELIMITER IN phrase is specified, the delimiting characters in the sending field are treated as an elementary alphanumeric item and are moved to the current delimiter receiving field, according to the rules for the MOVE statement. If the delimiting condition is the end of the sending field, the current delimiter receiving field is filled with spaces. If the COUNT IN phrase is specified, a value equal to the number of examined character positions (excluding any delimiters) is moved into the data count field, according to the rules for an elementary move. Stage 3: Successive iterations If the DELIMITED BY phrase is specified, the sending field is further examined, beginning with the first character position to the right of the delimiter. If the DELIMITED BY phrase is not specified, the sending field is further examined, beginning with the first character position to the right of the last character position examined. For each succeeding data receiving field, this process of examining and moving is repeated until either of the following occurs: v All the characters in the sending field have been transferred. v There are no more unfilled data receiving fields.
453
454
WRITE statement
The WRITE statement releases a logical record to an output or input/output file. When the WRITE statement is executed: v The associated sequential file must be open in OUTPUT or EXTEND mode. v The associated indexed or relative file must be open in OUTPUT, I-O, or EXTEND mode.
invalid_key
END-WRITE
phrase 1:
AT
END-OF-PAGE EOP
imperative-statement-3
NOT AT
END-OF-PAGE EOP
imperative-statement-4
invalid_key:
INVALID KEY
imperative-statement-1
not_invalid_key:
imperative-statement-2
Notes: 1 The BEFORE, AFTER, INVALID KEY, and AT END OF PAGE phrases are not valid for VSAM files.
455
INVALID KEY
imperative-statement-1
imperative-statement-2
END-WRITE
AFTER ADVANCING
LINE LINES
END-WRITE
record-name-1 Must be defined in a data division FD entry. record-name-1 can be qualified. It must not be associated with a sort or merge file. For relative files, the number of character positions in the record being written can be different from the number of character positions in the record being replaced. FROM phrase The result of the execution of the WRITE statement with the FROM identifier-1 phrase is equivalent to the execution of the following statements in the order specified:
MOVE identifier-1 TO record-name-1. WRITE record-name-1.
The MOVE is performed according to the rules for a MOVE statement without the CORRESPONDING phrase. identifier-1 identifier-1 can reference any of the following: v A data item defined in the working-storage section, the local-storage section, or the linkage section v A record description for another previously opened file v An alphanumeric function v A national function
456
identifier-1 must be a valid sending item for a MOVE statement with record-name-1 as the receiving item. identifier-1 and record-name-1 must not refer to the same storage area. After the WRITE statement is executed, the information is still available in identifier-1. (See INTO and FROM phrases on page 297 under Common processing facilities.) identifier-2 Must be an integer data item.
ADVANCING phrase
The ADVANCING phrase controls positioning of the output record on the page. The BEFORE and AFTER phrases are not supported for VSAM files. QSAM files are sequentially organized. The ADVANCING and END-OF-PAGE phrases control the vertical positioning of each line on a printed page. You can specify the ADVANCING PAGE and END-OF-PAGE phrases in a single WRITE statement. If the printed page is held on an intermediate device (a disk, for example), the format can appear different from the expected format when the output is edited or browsed.
457
The ADVANCING phrase of the WRITE statement, or the presence of a LINAGE clause on the file, causes a carriage control character to be generated in the record that is written. If the corresponding file is described with the EXTERNAL clause, all file connectors within the run unit must be defined such that carriage control characters will be generated for records that are written. That is, if all the files have a LINAGE clause, some of the programs can use the WRITE statement with the ADVANCING phrase and other programs can use the WRITE statement without the ADVANCING phrase. However, if none of the files has a LINAGE clause, then if any of the programs use the WRITE statement with the ADVANCING phrase, all of the programs in the run unit that have a WRITE statement must use the WRITE statement with the ADVANCING phrase. When the ADVANCING phrase is omitted, automatic line advancing is provided, as if AFTER ADVANCING 1 LINE had been specified.
LINAGE-COUNTER rules
If the LINAGE clause is specified for this file, the associated LINAGE-COUNTER special register is modified during the execution of the WRITE statement, according to the following rules: 1. If ADVANCING PAGE is specified, LINAGE-COUNTER is reset to 1. 2. If ADVANCING identifier-2 or integer is specified, LINAGE-COUNTER is increased by the value in identifier-2 or integer. 3. If the ADVANCING phrase is omitted, LINAGE-COUNTER is increased by 1. 4. When the device is repositioned to the first available line of a new page, LINAGE-COUNTER is reset to 1. Note: If you use the ADV compiler option, the compiler adds 1 byte to the record length in order to allow for the control character. If in your record definition you already reserve the first byte for the control character, you should use the NOADV option. For files defined with the LINAGE clause, the NOADV option has no effect. The compiler processes these files as if the ADV option were specified.
END-OF-PAGE phrases
The AT END-OF-PAGE phrase is not supported for VSAM files. When END-OF-PAGE is specified, and the logical end of the printed page is reached during execution of the WRITE statement, the END-OF-PAGE imperative-statement is executed. When the END-OF-PAGE phrase is specified, the FD entry for this file must contain a LINAGE clause. The logical end of the printed page is specified in the associated LINAGE clause. An END-OF-PAGE condition is reached when execution of a WRITE END-OF-PAGE statement causes printing or spacing within the footing area of a page body. This occurs when execution of such a WRITE statement causes the value in the LINAGE-COUNTER special register to equal or exceed the value specified in the WITH FOOTING phrase of the LINAGE clause. The WRITE statement is executed, and then the END-OF-PAGE imperative-statement is executed.
458
An automatic page overflow condition is reached whenever the execution of any given WRITE statement (with or without the END-OF-PAGE phrase) cannot be completely executed within the current page body. This occurs when a WRITE statement, if executed, would cause the value in the LINAGE-COUNTER to exceed the number of lines for the page body specified in the LINAGE clause. In this case, the line is printed BEFORE or AFTER (depending on the option specified) the device is repositioned to the first printable line on the next logical page, as specified in the LINAGE clause. If the END-OF-PAGE phrase is specified, the END-OF-PAGE imperative-statement is then executed. If the WITH FOOTING phrase of the LINAGE clause is not specified, the automatic page overflow condition exists because no end-of-page condition (as distinct from the page overflow condition) can be detected. If the WITH FOOTING phrase is specified, but the execution of a given WRITE statement would cause the LINAGE-COUNTER to exceed both the footing value and the page body value specified in the LINAGE clause, then both the end-of-page condition and the automatic page overflow condition occur simultaneously. The keywords END-OF-PAGE and EOP are equivalent. You can specify both the ADVANCING PAGE phrase and the END-OF-PAGE phrase in a single WRITE statement.
459
For sequential files, the file status key, if specified, is updated and an EXCEPTION/ERROR condition exists. If an explicit or implicit EXCEPTION/ERROR procedure is specified for the file, the procedure is executed. If no such procedure is specified, the results are unpredictable. For relative and indexed files, program execution proceeds according to the rules described by Invalid key condition on page 296 under Common processing facilities. The INVALID KEY conditions that apply to a relative file in OPEN OUTPUT mode also apply to one in OPEN EXTEND mode. v If the NOT INVALID KEY phrase is specified and a valid key condition exists at the end of the execution of the WRITE statement, control is passed to imperative-statement-4. Both the INVALID KEY phrase and an applicable EXCEPTION/ERROR procedure can be omitted.
END-WRITE phrase
This explicit scope terminator serves to delimit the scope of the WRITE statement. END-WRITE permits a conditional WRITE statement to be nested in another conditional statement. END-WRITE can also be used with an imperative WRITE statement. For more information, see Delimited scope statements on page 285.
460
Multivolume files
When end-of-volume is recognized for a multivolume OUTPUT file (tape or sequential direct-access file), the WRITE statement performs the following operations: v The standard ending volume label procedure v A volume switch v The standard beginning volume label procedure
461
Table 55. Meanings of environment-names in SPECIAL NAMES paragraph environment-name C02 C03 C04 C05 ... C22 C12 Meaning Line 3 Line 5 Line 7 Line 9 ... Line 21 Line 23
462
For I-O files, either ACCESS IS RANDOM or ACCESS IS DYNAMIC must be specified; the WRITE statement inserts new records into the file. The RELATIVE KEY must contain the desired relative record number for this record before the WRITE statement is issued. When the WRITE statement is executed, this record is placed at the specified relative record number position in the file.
463
Format
XML GENERATE identifier-1 FROM identifier-2
COUNT IN
identifier-3
EXCEPTION imperative-statement-1 ON
NOT ON
EXCEPTION imperative-statement-2
END-XML
| | | | | | | | | |
identifier-1 The receiving area for a generated XML document. identifier-1 must reference one of the following: v An elementary data item of category alphanumeric v An alphanumeric group item v An elementary data item of category national v A national group item When identifier-1 references a national group item, identifier-1 is processed as an elementary data item of category national. When identifier-1 references an alphanumeric group item, identifier-1 is treated as though it were an elementary data item of category alphanumeric. identifier-1 must not be described with the JUSTIFIED clause, and cannot be a function identifier. identifier-1 can be subscripted or reference modified. identifier-1 must not overlap identifier-2 or identifier-3.
| | | | | | | |
If identifier-1 references a data item of category alphanumeric, the generated XML document is encoded with the code page specified by the CODEPAGE compiler option in effect when the source code was compiled. If identifier-1 references a data item of category national, the generated XML document is encoded in UTF-16. A byte order mark is not generated. identifier-1 must reference a data item of category national if the CODEPAGE compiler option specifies an EBCDIC DBCS code page or if the generated XML includes data from identifier-2 for: v Any data item of class national or class DBCS v Any data item with a DBCS name (that is, a data item whose name contains DBCS characters) v Any data item of class alphanumeric that contains DBCS characters identifier-1 must be large enough to contain the generated XML document. Typically, it should be from five to eight times the size of identifier-2,
464
depending on the length of the data-name or data-names within identifier-2. If identifier-1 is not large enough, an error condition exists at the end of the XML GENERATE statement. identifier-2 The group or elementary data item to be converted to XML format. | | | If identifier-2 references a national group item, identifier-2 is processed as a group item. When identifier-2 includes a subordinate national group item, that subordinate item is processed as a group item. identifier-2 cannot be a function identifier or be reference modified, but it can be subscripted. identifier-2 must not overlap with identifier-1 or identifier-3. identifier-2 must not specify the RENAMES clause. The following data items specified by identifier-2 are ignored by the XML GENERATE statement: v Any unnamed elementary data items or elementary FILLER data items v Any slack bytes inserted for SYNCHRONIZED items v Any data item subordinate to identifier-2 that is described with the REDEFINES clause or that is subordinate to such a redefining item v Any data item subordinate to identifier-2 that is described with the RENAMES clause v Any group data item all of whose subordinate data items are ignored All data items specified by identifier-2 that are not ignored according to the rules above must satisfy the following conditions: v Each elementary data item must either have class alphabetic, alphanumeric, numeric, or national, or be an index data item. (That is, no elementary data item can be described with the USAGE POINTER, USAGE FUNCTION-POINTER, USAGE PROCEDURE-POINTER, or USAGE OBJECT REFERENCE phrase.) v There must be at least one such elementary data item. v Each non-FILLER data-name must be unique within any immediately superordinate group data item. v Any DBCS data-names, when converted to Unicode, must be legal as names in the XML specification, version 1.0. v The data items must not specify the DATE FORMAT clause, or the DATEPROC compiler option must not be in effect. For example, given the following data declaration:
01 STRUCT. 02 STAT PIC X(4). 02 IN-AREA PIC X(100). 02 OK-AREA REDEFINES IN-AREA. 03 FLAGS PIC X. 03 PIC X(3). 03 COUNTER USAGE COMP-5 PIC S9(9). 03 ASFNPTR REDEFINES COUNTER USAGE FUNCTION-POINTER. 03 UNREFERENCED PIC X(92). 02 NG-AREA1 REDEFINES IN-AREA. 03 FLAGS PIC X. 03 PIC X(3). 03 PTR USAGE POINTER. 03 ASNUM REDEFINES PTR USAGE COMP-5 PIC S9(9). 03 PIC X(92). 02 NG-AREA2 REDEFINES IN-AREA.
Chapter 21. Procedure division statements
465
03 03 03 03 03
FN-CODE PIC X. UNREFERENCED PIC X(3). QTYONHAND USAGE BINARY PIC 9(5). DESC USAGE NATIONAL PIC N(40). UNREFERENCED PIC X(12).
The following data items can be specified as identifier-2: v STRUCT, of which subordinate data items STAT and IN-AREA would be converted to XML format. (OK-AREA, NG-AREA1, and NG-AREA2 are ignored because they specify the REDEFINES clause.) v OK-AREA, of which subordinate data items FLAGS, COUNTER, and UNREFERENCED would be converted. (The item whose data description entry specifies 03 PIC X(3) is ignored because it is an elementary FILLER data item. ASFNPTR is ignored because it specifies the REDEFINES clause.) v Any of the elementary data items that are subordinate to STRUCT except: ASFNPTR or PTR (disallowed usage) UNREFERENCED OF NG-AREA2 (nonunique names for data items that are otherwise eligible) Any FILLER data items The following data items cannot be specified as identifier-2: v NG-AREA1, because subordinate data item PTR specifies USAGE POINTER but does not specify the REDEFINES clause. (PTR would be ignored if it specified the REDEFINES clause.) v NG-AREA2, because subordinate elementary data items have the nonunique name UNREFERENCED. COUNT IN If the COUNT IN phrase is specified, identifier-3 contains (after execution of the XML GENERATE statement) the count of generated XML character positions. If identifier-1 (the receiver) has category national, the count is in national character positions (UTF-16 character encoding units). Otherwise, the count is in bytes. identifier-3 The data count field. Must be an integer data item defined without the symbol P in its picture string. identifier-3 must not overlap identifier-1 or identifier-2.
ON EXCEPTION An exception condition exists when an error occurs during generation of the XML document, for example if identifier-1 is not large enough to contain the generated XML document. In this case, XML generation stops and the content of the receiver, identifier-1, is undefined. If the COUNT IN phrase is specified, identifier-3 contains the number of character positions that were generated, which can range from 0 to the length of identifier-1. If the ON EXCEPTION phrase is specified, control is transferred to imperative-statement-1. If the ON EXCEPTION phrase is not specified, the NOT ON EXCEPTION phrase, if any, is ignored, and control is transferred to the end of the XML GENERATE statement. Special register XML-CODE contains an exception code, as detailed in the Enterprise COBOL Programming Guide.
466
NOT ON EXCEPTION If an exception condition does not occur during generation of the XML document, control is passed to imperative-statement-2, if specified, otherwise to the end of the XML GENERATE statement. The ON EXCEPTION phrase, if specified, is ignored. Special register XML-CODE contains zero after execution of the XML GENERATE statement.
END-XML phrase This explicit scope terminator delimits the scope of XML GENERATE or XML PARSE statements. END-XML permits a conditional XML GENERATE or XML PARSE statement (that is, an XML GENERATE or XML PARSE statement that specifies the ON EXCEPTION or NOT ON EXCEPTION phrase) to be nested in another conditional statement. The scope of a conditional XML GENERATE or XML PARSE statement can be terminated by: v An END-XML phrase at the same level of nesting v A separator period END-XML can also be used with an XML GENERATE or XML PARSE statement that does not specify either the ON EXCEPTION or the NOT ON EXCEPTION phrase. For more information on explicit scope terminators, see Delimited scope statements on page 285.
467
parent elements. No extra white space (new lines, indentation, and so forth) is inserted to make the generated XML more readable. An XML declaration is not generated. If the receiving area specified by identifier-1 is not large enough to contain the resulting XML document, an error condition exists. See the description of the ON EXCEPTION phrase above for details. If identifier-1 is longer than the generated XML document, only that part of identifier-1 in which XML is generated is changed. The rest of identifier-1 contains the data that was present before this execution of the XML GENERATE statement. To avoid referring to that data, either initialize identifier-1 to spaces before the XML GENERATE statement or specify the COUNT IN phrase. If the COUNT IN phrase is specified, identifier-3 contains (after execution of the XML GENERATE statement) the total number of character positions (UTF-16 encoding units or bytes) that were generated. You can use identifier-3 as a reference modification length field to refer to the part of identifier-2 that contains the generated XML document. After execution of the XML GENERATE statement, special register XML-CODE contains either zero, which indicates successful completion, or a nonzero exception code. (See also the Enterprise COBOL Programming Guide for details.) The XML PARSE statement also uses special register XML-CODE. Therefore if you code an XML GENERATE statement in the processing procedure of an XML PARSE statement, save the value of XML-CODE before that XML GENERATE statement executes and restore the saved value after the XML GENERATE statement terminates.
468
10 minus the number of decimal places, if the data item has 5 to 9 9 picture symbols 20 minus the number of decimal places, if the data item has 10 to 18 9 picture symbols v Internal floating-point data items are converted as if they were moved to a data item as follows: For COMP-1: an external floating-point data item with PICTURE -9.9(8)E+99 For COMP-2: an external floating-point data item with PICTURE -9.9(17)E+99 (illegal because of the number of digit positions) v Index data items are converted as if they were declared USAGE COMP-5 PICTURE S9(9). After any conversion to character format, leading and trailing spaces and leading zeroes are eliminated, as described under Trimming of generated XML data. If a data item after any conversion contains any characters that are illegal in XML content, as specified in the relevant XML specification, the original data value (that is, the value in the data item before any conversion or trimming) is represented in hexadecimal, and an element tag name with the prefix hex. is substituted for the regular tag name. For example, if data item Customer-Name is found at run time to contain LOW-VALUES, the XML element tag name hex.Customer-Name is used instead of the normal Customer-Name, and the content is represented as a string of pairs of zero digits. Any remaining instances of the five characters & (ampersand), (apostrophe), > (greater-than sign), < (less-than sign), and (quotation mark) are converted into the equivalent XML references &, ', >, <, and ", respectively. | Then, if identifier-1 is a data item of category national, any nonnational values are converted to national format. Any remaining Unicode character represented by two UTF-16 encoding units (a surrogate pair) is replaced by an XML character reference. For example, the surrogate pair (NXD802, NXDC13) is replaced by the reference 𐠓.
469
| |
Character values from data items of class alphabetic, alphanumeric, DBCS, and national have either trailing or leading spaces removed, depending on whether the corresponding data items have left (default) or right justification, respectively. That is, trailing spaces are removed from values whose corresponding data items do not specify the JUSTIFIED clause. Leading spaces are removed from values whose data items do specify the JUSTIFIED clause. If a character value consists solely of spaces, one space remains as the value after trimming is finished.
| | |
470
Format
XML PARSE identifier-1 PROCESSING PROCEDURE IS procedure-name-1 THROUGH THRU procedure-name-2
EXCEPTION imperative-statement-1 ON
NOT ON
EXCEPTION imperative-statement-2
END-XML
| | | | | |
identifier-1 Must be an alphanumeric group item, a national group item, an elementary data item of category alphanumeric, or an elementary data item of category national that contains the XML document character stream. identifier-1 cannot be a function-identifier. If identifier-1 is a national group item, identifier-1 is processed as an elementary data item of category national. If identifier-1 is of category alphanumeric, its content must be encoded using one of the character sets listed in Coded character sets for XML documents in the Enterprise COBOL Programming Guide. If identifier-1 is alphanumeric and contains an XML document that does not specify an encoding declaration, the XML document is parsed with the code page specified by the CODEPAGE compiler option.
| |
If identifier-1 is of category national, its content must be encoded using CCSID 1200 (Unicode UTF-16BE). It must not contain any character entities that are represented using multiple encoding units. Use a character reference, for example: v 𐠓 or v 𐠓 to represent any such characters. PROCESSING PROCEDURE phrase Specifies the name of a procedure to handle the various events that the XML parser generates. procedure-name-1, procedure-name-2 Must name a section or paragraph in the procedure division. When both procedure-name-1 and procedure-name-2 are specified, if either is
Chapter 21. Procedure division statements
471
a procedure name in a declarative procedure, both must be procedure names in the same declarative procedure. procedure-name-1 Specifies the first (or only) section or paragraph in the processing procedure. procedure-name-2 Specifies the last section or paragraph in the processing procedure. For each XML event, the parser transfers control to the first statement of the procedure named procedure-name-1. Control is always returned from the processing procedure to the XML parser. The point from which control is returned is determined as follows: v If procedure-name-1 is a paragraph name and procedure-name-2 is not specified, the return is made after the execution of the last statement of the procedure-name-1 paragraph. v If procedure-name-1 is a section name and procedure-name-2 is not specified, the return is made after the execution of the last statement of the last paragraph in the procedure-name-1 section. v If procedure-name-2 is specified and it is a paragraph name, the return is made after the execution of the last statement of the procedure-name-2 paragraph. v If procedure-name-2 is specified and it is a section name, the return is made after the execution of the last statement of the last paragraph in the procedure-name-2 section. The only necessary relationship between procedure-name-1 and procedure-name-2 is that they define a consecutive sequence of operations to execute, beginning at the procedure named by procedure-name-1 and ending with the execution of the procedure named by procedure-name-2. If there are two or more logical paths to the return point, then procedure-name-2 can name a paragraph that consists of only an EXIT statement; all the paths to the return point must then lead to this paragraph. The processing procedure consists of all the statements at which XML events are handled. The range of the processing procedure includes all statements executed by CALL, EXIT, GO TO, GOBACK, INVOKE, MERGE, PERFORM, and SORT statements that are in the range of the processing procedure, as well as all statements in declarative procedures that are executed as a result of the execution of statements in the range of the processing procedure. The range of the processing procedure must not cause the execution of any GOBACK or EXIT PROGRAM statement, except to return control from a method or program to which control was passed by an INVOKE or CALL statement, respectively, that is executed in the range of the processing procedure. The range of the processing procedure must not cause the execution of an XML PARSE statement, unless the XML PARSE statement is executed in a method or outermost program to which control was passed by an INVOKE or CALL statement that is executed in the range of the processing procedure. A program executing on multiple threads can execute the same XML statement or different XML statements simultaneously.
472
The processing procedure can terminate the run unit with a STOP RUN statement. For more details about the processing procedure, see Control flow on page 474.
ON EXCEPTION The ON EXCEPTION phrase specifies imperative statements that are executed when the XML PARSE statement raises an exception condition. An exception condition exists when the XML parser detects an error in processing the XML document. The parser first signals an XML exception by passing control to the processing procedure with special register XML-EVENT containing EXCEPTION. The parser also provides a numeric error code in special register XML-CODE, as detailed in the Enterprise COBOL Programming Guide. An exception condition also exists if the parsing is deliberately terminated by the processing procedure setting XML-CODE to -1 before returning to the parser for any normal XML event. In this case, the parser does not signal an XML exception event. If the ON EXCEPTION phrase is specified, the parser then transfers control to imperative-statement-1. If the ON EXCEPTION phrase is not specified, the NOT ON EXCEPTION phrase, if any, is ignored, and control is transferred to the end of the XML PARSE statement. Special register XML-CODE contains the numeric error code for the XML exception or -1 after execution of the XML PARSE statement. If the processing procedure handles the XML exception event and sets XML-CODE to zero before returning control to the parser, the exception condition no longer exists. If no other unhandled exceptions occur prior to the termination of the parser, control is transferred to imperative-statement-2 of the NOT ON EXCEPTION phrase, if specified.
NOT ON EXCEPTION The NOT ON EXCEPTION phrase specifies imperative statements that are executed when no exception condition exists at the termination of XML PARSE processing. If an exception condition does not exist at termination of XML PARSE processing, control is transferred to imperative-statement-2 of the NOT ON EXCEPTION phrase, if specified. If the NOT ON EXCEPTION phrase is not specified, control is transferred to the end of the XML PARSE statement. The ON EXCEPTION phrase, if specified, is ignored. Special register XML-CODE contains zero after execution of the XML PARSE statement.
END-XML phrase This explicit scope terminator delimits the scope of XML GENERATE or XML PARSE statements. END-XML permits a conditional XML GENERATE or XML PARSE statement (that is, an XML GENERATE or XML PARSE
473
statement that specifies the ON EXCEPTION or NOT ON EXCEPTION phrase) to be nested in another conditional statement. The scope of a conditional XML GENERATE or XML PARSE statement can be terminated by: v An END-XML phrase at the same level of nesting v A separator period END-XML can also be used with an XML GENERATE or XML PARSE statement that does not specify either the ON EXCEPTION or NOT ON EXCEPTION phrase. For more information on explicit scope terminators, see Delimited scope statements on page 285.
Control flow
When the XML parser receives control from an XML PARSE statement, the parser analyzes the XML document and transfers control to procedure-name-1 at the following points in the process: v The start of the parsing process v When a document fragment is found v When the parser detects an error in parsing the XML document v The end of processing the XML document Control returns to the XML parser when the end of the processing procedure is reached. The exchange of control between the parser and the processing procedure continues until either: v The entire XML document has been parsed, ending with the END-OF-DOCUMENT event. v The parser detects an exception and the processing procedure does not reset special register XML-CODE to zero prior to returning to the parser. v The processing procedure terminates parsing deliberately by setting XML-CODE to -1 prior to returning to the parser. Then, the parser terminates and returns control to the XML PARSE statement with the XML-CODE special register containing the most recent value set by the parser or the processing procedure.
474
For each XML event passed to the processing procedure, the XML-CODE, XML-EVENT, and XML-TEXT or XML-NTEXT special registers contain information about the particular event. The content of the XML-CODE special register is defined during and after execution of an XML PARSE statement. The contents of all other XML special registers are undefined outside the range of the processing procedure. For normal XML events, special register XML-CODE contains zero when the processing procedure receives control. For XML exception events, XML-CODE contains one of the XML exception codes specified in the Enterprise COBOL Programming Guide. Special register XML-EVENT is set to the event name, such as START-OF-DOCUMENT. Either XML-TEXT or XML-NTEXT contains the piece of the document corresponding with the event, as described in XML-EVENT on page 25. For more information about the XML special registers, see Special registers on page 15. For all kinds of XML events, if XML-CODE is not zero when the processing procedure returns control to the parser, the parser terminates without a further EXCEPTION event. Setting XML-CODE to -1 before returning to the parser from the processing procedure for an event other than EXCEPTION forces the parser to terminate with a user-initiated exception condition. For some EXCEPTION events, the processing procedure can handle the event, then set XML-CODE to zero to force the parser to continue, although subsequent results are unpredictable. When XML-CODE is zero, parsing continues until the entire XML document has been parsed or an exception condition occurs. For more information about the EXCEPTION event and exception processing, see the Enterprise COBOL Programming Guide.
475
476
. . . . . . 479 . . . . . . 479 . . . . . . 480 . . . . . . 480 . . . . . . 481 . . . . . . 482 . . . . . . 483 . . . . . . 484 . . . . . . 486 . . . . . . 489 . . . . . . 490 . . . . . . 490 . . . . . . 491 . . . . . . 491 . . . . . . 492 . . . . . . 492 . . . . . . 493 . . . . . . 494 . . . . . . 494 . . . . . . 495 . . . . . . 496 . . . . . . 497 . . . . . . 498 . . . . . . 499 . . . . . . 499 . . . . . . 500 . . . . . . 500 . . . . . . 501 . . . . . . 502 . . . . . . 502 . . . . . . 503 . . . . . . 503 . . . . . . 504 . . . . . . 505 . . . . . . 505 . . . . . . 506 . . . . . . 506 . . . . . . 507 . . . . . . 508 . . . . . . 509 . . . . . . 511 . . . . . . 511 . . . . . . 512 . . . . . . 512 . . . . . . 513 . . . . . . 514 . . . . . . 514 . . . . . . 515 . . . . . . 515 . . . . . . 515 . . . . . . 516 . . . . . . 516 . . . . . . 517 . . . . . . 517 . . . . . . 518 . . . . . . 518
. . .
. . .
. . .
. . .
. . .
. . .
. . .
. . .
. . .
477
478
Specifying a function
The general format of a function-identifier is:
Format
FUNCTION function-name-1
argument-1
reference-modifier
function-name-1 function-name-1 must be one of the intrinsic function names. | | | argument-1 argument-1 must be an identifier, a literal (other than a figurative constant), or an arithmetic expression that satisfies the argument requirements for the specified function. argument-1 cannot be a windowed date field, except in the UNDATE intrinsic function.
479
reference-modifier Can be specified only for functions of type alphanumeric or national. A function-identifier can be specified wherever a data item of the type of the function is allowed. The argument to a function can be any function or an expression containing a function, including another evaluation of the same function, whose result meets the requirements for the argument.
Types of functions
COBOL has the following types of functions: v Alphanumeric v National v Numeric v Integer Alphanumeric functions are of class and category alphanumeric. The value returned has an implicit usage of DISPLAY. The number of character positions in the value returned is determined by the function definition. National functions are of class and category national. The value returned has an implicit usage of NATIONAL and is represented in national characters (UTF-16). The number of character positions in the value returned is determined by the function definition. Numeric functions are of class and category numeric. The returned value is always considered to have an operational sign and is a numeric intermediate result. For more information, see the Enterprise COBOL Programming Guide. Integer functions are of class and category numeric. The returned value is always considered to have an operational sign and is an integer intermediate result. The number of digit positions in the value returned is determined by the function definition. For more information, see the Enterprise COBOL Programming Guide.
480
481
Integer functions An integer function can be used only where an arithmetic expression can be specified. An integer function can be referenced as an argument for a function that allows an integer argument. Usage notes: v identifier-2 of the CALL statement must not be a function-identifier. v The COPY statement accepts function-identifiers of all types in the REPLACING phrase.
Arguments
The value returned by some functions is determined by the arguments specified in the function-identifier when the functions are evaluated. Some functions require no arguments; others require a fixed number of arguments, and still others accept a variable number of arguments. An argument must be one of the following: v A data item identifier v An arithmetic expression v A function-identifier v A literal other than a figurative constant v A special-register See Function definitions on page 486 for function-specific argument specifications. The types of arguments are: Alphabetic An elementary data item of the class alphabetic or an alphanumeric literal containing only alphabetic characters. The content of the argument is used to determine the value of the function. The length of the argument can be used to determine the value of the function. Alphanumeric A data item of the class alphabetic or alphanumeric or an alphanumeric literal. The content of the argument is used to determine the value of the function. The length of the argument can be used to determine the value of the function. | | DBCS An elementary data item of class DBCS or a DBCS literal. The content of the argument is used to determine the value of the function. The length of the argument can be used to determine the value of the function. (A DBCS data item or literal can be used as an argument only for the NATIONAL-OF function.) National A data item of class national (category national, national-edited, or numeric-edited). The content of the argument is used to determine the value of the function. The length of the argument can be used to determine the value of the function.
| |
482
Integer An arithmetic expression that always results in an integer value. The value of the expression, including its sign, is used to determine the value of the function. | | | | Numeric An arithmetic expression. The expression can include numeric literals and data items of categories numeric, internal floating-point, and external floating-point. The numeric data items can have any usage permitted for the category of the data item (including NATIONAL). The value of the expression, including its sign, is used to determine the value of the function. Some functions place constraints on their arguments, such as the acceptable range of values. If the values assigned as arguments for a function do not comply with specified constraints, the returned value is undefined. If a nested function is used as an argument, the evaluation of its arguments is not affected by the arguments in the outer function. Only those arguments at the same function level interact with each other. This interaction occurs in two areas: v The computation of an arithmetic expression that appears as a function argument is affected by other arguments for that function. v The evaluation of the function takes into consideration the attributes of all of its arguments. When a function is evaluated, its arguments are evaluated individually in the order specified in the list of arguments, from left to right. The argument being evaluated can be a function-identifier or an expression that includes function-identifiers. If an arithmetic expression is specified as an argument and if the first operator in the expression is a unary plus or a unary minus, the expression must be immediately preceded by a left parenthesis. Floating-point literals are allowed wherever a numeric argument is allowed and in arithmetic expressions used in functions that allow a numeric argument. | | | | | | | | Internal floating-point items and external floating-point items (both display floating-point and national floating-point) can be used wherever a numeric argument is allowed and in arithmetic expressions as arguments to a function that allows a numeric argument. Floating-point items and floating-point literals cannot be used where an integer argument is required or where an argument of class alphanumeric or national is required (such as in the LOWER-CASE, REVERSE, UPPER-CASE, NUMVAL, and NUMVAL-C functions).
Examples
| | | The following statement illustrates the use of intrinsic function UPPER-CASE to replace each lowercase letter in an alphanumeric argument with the corresponding uppercase letter.
MOVE FUNCTION UPPER-CASE(hello) TO DATA-NAME.
483
| | |
The following statement illustrates the use of intrinsic function LOWER-CASE to replace each uppercase letter in a national argument with the corresponding lowercase letter.
MOVE FUNCTION LOWER-CASE(NHELLO) TO N-DATA-NAME.
This statement moves national characters hello into N-DATA-NAME. The following statement illustrates the use of a numeric intrinsic function:
COMPUTE NUM-ITEM = FUNCTION SUM(A B C)
This statement uses the numeric function SUM to add the values of A, B, and C and places the result in NUM-ITEM.
ALL subscripting
When a function allows an argument to be repeated a variable number of times, you can refer to a table by specifying the data-name and any qualifiers that identify the table. This can be followed immediately by subscripting where one or more of the subscripts is the word ALL. Tip: The evaluation of an ALL subscript must result in at least one argument or the value returned by the function will be undefined; however, the situation can be diagnosed at run time by specifying the SSRANGE compiler option and the CHECK runtime option. Specifying ALL as a subscript is equivalent to specifying all table elements possible using every valid subscript in that subscript position. For a table argument specified as Table-name(ALL), the order of the implicit specification of each table element as an argument is from left to right, where the first (or leftmost) argument is Table-name(1) and ALL has been replaced by 1. The next argument is Table-name(2), where the subscript has been incremented by 1. This process continues, with the subscript being incremented by 1 to produce an implicit argument, until the ALL subscript has been incremented through its range of values. For example,
FUNCTION MAX(Table(ALL))
is equivalent to
FUNCTION MAX(Table(1) Table(2) Table(3) ... Table(n))
where n is the number of elements in Table. If there are multiple ALL subscripts, Table-name(ALL, ALL, ALL), the first implicit argument is Table-name(1, 1, 1), where each ALL has been replaced by 1. The next argument is Table-name(1, 1, 2), where the rightmost subscript has been incremented by 1. The subscript represented by the rightmost ALL is incremented through its range of values to produce an implicit argument for each value. Once a subscript specified as ALL has been incremented through its range of values, the next subscript to the left that is specified as ALL is incremented by 1. Each subscript specified as ALL to the right of the newly incremented subscript is set to 1 to produce an implicit argument. Once again, the subscript represented by the rightmost ALL is incremented through its range of values to produce an
484
implicit argument for each value. This process is repeated until each subscript specified as ALL has been incremented through its range of values. For example,
FUNCTION MAX(Table(ALL, ALL))
is equivalent to
FUNCTION MAX(Table(1, Table(2, Table(3, ... Table(m, 1) Table(1, 2) Table(1, 3) ... Table(1, n) 1) Table(2, 2) Table(2, 3) ... Table(2, n) 1) Table(3, 2) Table(3, 3) ... Table(3, n) 1) Table(m, 2) Table(m, 3) ... Table(m, n))
where n is the number of elements in the column dimension of Table, and m is the number of elements in the row dimension of Table. ALL subscripts can be combined with literal, data-name, or index-name subscripts to reference multidimensional tables. For example,
FUNCTION MAX(Table(ALL, 2))
is equivalent to
FUNCTION MAX(Table(1, Table(2, Table(3, ... Table(m, 2) 2) 2) 2))
where m is the number of elements in the row dimension of Table. If an ALL subscript is specified for an argument and the argument is reference-modified, then the reference-modifier is applied to each of the implicitly specified elements of the table. If an ALL subscript is specified for an operand that is reference-modified, the reference-modifier is applied to each of the implicitly specified elements of the table. If the ALL subscript is associated with an OCCURS DEPENDING ON clause, the range of values is determined by the object of the OCCURS DEPENDING ON clause. For example, given a payroll record definition such as:
01 PAYROLL. 02 PAYROLL-WEEK PIC 99. 02 PAYROLL-HOURS PIC 999 OCCURS 1 TO 52 DEPENDING ON PAYROLL-WEEK.
The following COMPUTE statements could be used to identify total year-to-date hours, the maximum hours worked in any week, and the specific week corresponding to the maximum hours:
COMPUTE YTD-HOURS = FUNCTION SUM (PAYROLL-HOURS(ALL)) COMPUTE MAX-HOURS = FUNCTION MAX (PAYROLL-HOURS(ALL)) COMPUTE MAX-WEEK = FUNCTION ORD-MAX (PAYROLL-HOURS(ALL))
485
In these function invocations the subscript ALL is used to reference all elements of the PAYROLL-HOURS array (depending on the execution time value of the PAYROLL-WEEK field).
Function definitions
Table of functions (Table 56 on page 487) provides an overview of the argument type, function type, and value returned for each of the intrinsic functions. Argument types and function types are abbreviated as follows:
Abbreviation A D I N X U O Meaning Alphabetic DBCS Integer Numeric Alphanumeric National Other, as specified in the function definition (pointer, function-pointer, procedure-pointer, or object reference)
The behavior of functions markedDP depends on whether the DATEPROC or NODATEPROC compiler option is in effect. If the DATEPROC compiler option is in effect, the following intrinsic functions return date fields:
Function DATE-OF-INTEGER DATE-TO-YYYYMMDD DAY-OF-INTEGER DAY-TO-YYYYDDD YEAR-TO-YYYY DATEVAL YEARWINDOW Returned value has implicit DATE FORMAT YYYYXXXX YYYYXXXX YYYYXXX YYYYXXX YYYY Depends on the format specified by DATEVAL YYYY
If the NODATEPROC compiler option is in effect: v The following intrinsic functions return the same values as when DATEPROC is in effect, but their returned values are nondates: DAY-OF-INTEGER DATE-TO-YYYYMMDD DAY-TO-YYYYDDD YEAR-TO-YYYY v The DATEVAL and UNDATE intrinsic functions have no effect, and simply return their (first) arguments unchanged v The YEARWINDOW intrinsic function returns 0 unconditionally Each intrinsic function is described in detail in the topics that follow the table below.
486
Table 56. Table of functions Function name ACOS ANNUITY ASIN ATAN CHAR COS CURRENT-DATE DATE-OF-INTEGERDP DATE-TO-YYYYMMDDDP Arguments N1 N1, I2 N1 N1 I1 N1 None I1 I1, I2 Function type N N N N X N X I I Value returned Arccosine of N1 Ratio of annuity paid for I2 periods at interest of N1 to initial investment of one Arcsine of N1 Arctangent of N1 Character in position I1 of program collating sequence Cosine of N1 Current date and time and difference from Greenwich mean time Standard date equivalent (YYYYMMDD) of integer date Standard date equivalent (YYYYMMDD) of I1 (standard date with a windowed year, YYMMDD), according to the 100-year interval whose ending year is specified by the sum of I2 and the year at execution time Date field equivalent of I1 Date field equivalent of X1 Julian date equivalent (YYYYDDD) of integer date Julian date equivalent (YYYYDDD) of I1 (Julian date with a windowed year, YYDDD), according to the 100-year interval whose ending year is specified by the sum of I2 and the year at execution time Each character in U1 converted to a corresponding character representation using a code page identified by I2, if specified, or a default code page selected at compile time if I2 is unspecified Factorial of I1 The greatest integer not greater than N1 Integer date equivalent of standard date (YYYYMMDD) Integer date equivalent of Julian date (YYYYDDD) Integer part of N1 Length of argument in national character positions or in alphanumeric character positions or bytes, depending on the argument type Natural logarithm of N1 Logarithm to base 10 of N1 All letters in the argument set to lowercase All letters in the argument set to lowercase
DATEVALDP
DP
I1 X1
I X I I
DAY-OF-INTEGER
I1 I1, I2
DAY-TO-YYYYDDDDP
DISPLAY-OF
U1 or U1, I2
I I I I I I
N N X U
487
Table 56. Table of functions (continued) Function name MAX Arguments A1... I1... N1... X1... U1... MEAN MEDIAN MIDRANGE MIN N1... N1... N1... A1... I1... N1... X1... U1... MOD NATIONAL-OF I1, I2 A1, X1, or D1 Function type X I N X U N N N X I N X U I U Value returned Value of maximum argument; note that the type of function depends on the arguments Value of maximum argument; note that the type of function depends on the arguments Value of maximum argument; note that the type of function depends on the arguments Value of maximum argument; note that the type of function depends on the arguments Value of maximum argument; note that the type of function depends on the arguments Arithmetic mean of arguments Median of arguments Mean of minimum and maximum arguments Value of minimum argument; note that the type of function depends on the arguments Value of minimum argument; note that the type of function depends on the arguments Value of minimum argument; note that the type of function depends on the arguments Value of minimum argument; note that the type of function depends on the arguments Value of minimum argument; note that the type of function depends on the arguments I1 modulo I2 The characters in the argument converted to national characters, using the code page identified by I2, if specified, or a default code page selected at compile time if I2 is unspecified The characters in the argument converted to national characters, using the code page identified by I2, if specified, or a default code page selected at compile time if I2 is unspecified Numeric value of simple numeric string Numeric value of numeric string with optional commas and currency sign Ordinal position of the argument in collating sequence Ordinal position of maximum argument Ordinal position of minimum argument Present value of a series of future period-end amounts, N2, at a discount rate of N1 Random number
X1 X1 or X1, X2 A1 or X1 A1..., N1..., X1..., or U1... A1..., N1..., X1..., or U1... N1, N2... I1, none
N N I I I N N
488
Table 56. Table of functions (continued) Function name RANGE Arguments I1... Function type I Value returned Value of maximum argument minus value of minimum argument; note that the type of function depends on the arguments. Value of maximum argument minus value of minimum argument; note that the type of function depends on the arguments. Remainder of N1/N2 Reverse order of the characters of the argument Reverse order of the characters of the argument Sine of N1 Square root of N1 Standard deviation of arguments Sum of arguments; note that the type of function depends on the arguments. Sum of arguments; note that the type of function depends on the arguments. Tangent of N1 Nondate equivalent of date field I1 or X1 Nondate equivalent of date field I1 or X1 All letters in the argument set to uppercase All letters in the argument set to uppercase Variance of arguments Date and time when program was compiled Expanded year equivalent (YYYY) of I1 (windowed year, YY), according to the 100-year interval whose ending year is specified by the sum of I2 and the year at execution time If the DATEPROC compiler option is in effect, returns the starting year (in the format YYYY) of the century window specified by the YEARWINDOW compiler option; if NODATEPROC is in effect, returns 0
N1...
REM REVERSE
N1, N2 A1 or X1 U1
N X U N N N I N N I X X U N X I
TAN UNDATE
DP
N1 I1 X1
UPPER-CASE
A1 or X1 U1
YEARWINDOWDP
None
ACOS
The ACOS function returns a numeric value in radians that approximates the arccosine of the argument specified. The function type is numeric.
Format
FUNCTION ACOS ( argument-1 )
489
argument-1 Must be class numeric. The value of argument-1 must be greater than or equal to -1 and less than or equal to +1. The returned value is the approximation of the arccosine of the argument and is greater than or equal to zero and less than or equal to Pi.
ANNUITY
The ANNUITY function returns a numeric value that approximates the ratio of an annuity paid at the end of each period, for a given number of periods, at a given interest rate, to an initial value of one. The number of periods is specified by argument-2; the rate of interest is specified by argument-1. For example, if argument-1 is zero and argument-2 is four, the value returned is the approximation of the ratio 1 / 4. The function type is numeric.
Format
FUNCTION ANNUITY ( argument-1 argument-2 )
argument-1 Must be class numeric. The value of argument-1 must be greater than or equal to zero. argument-2 Must be a positive integer. When the value of argument-1 is zero, the value returned by the function is the approximation of: 1 / argument-2 When the value of argument-1 is not zero, the value of the function is the approximation of: argument-1 / (1 - (1 + argument-1) ** (- argument-2))
ASIN
The ASIN function returns a numeric value in radians that approximates the arcsine of the argument specified. The function type is numeric.
Format
FUNCTION ASIN ( argument-1 )
490
argument-1 Must be class numeric. The value of argument-1 must be greater than or equal to -1 and less than or equal to +1. The returned value is the approximation of the arcsine of argument-1 and is greater than or equal to -Pi/2 and less than or equal to +Pi/2.
ATAN
The ATAN function returns a numeric value in radians that approximates the arctangent of the argument specified. The function type is numeric.
Format
FUNCTION ATAN ( argument-1 )
argument-1 Must be class numeric. The returned value is the approximation of the arctangent of argument-1 and is greater than -Pi/2 and less than +Pi/2.
CHAR
The CHAR function returns a one-character alphanumeric value that is a character in the program collating sequence having the ordinal position equal to the value of the argument specified. The function type is alphanumeric.
Format
FUNCTION CHAR ( argument-1 )
argument-1 Must be an integer. The value must be greater than zero and less than or equal to the number of positions in the collating sequence associated with alphanumeric data items (a maximum of 256). If more than one character has the same position in the program collating sequence, the character returned as the function value is that of the first literal specified for that character position in the ALPHABET clause. If the current program collating sequence was not specified by an ALPHABET clause, the single-byte EBCDIC collating sequence is used. (See Conditional expressions on page 259.)
491
COS
The COS function returns a numeric value that approximates the cosine of the angle or arc specified by the argument in radians. The function type is numeric.
Format
FUNCTION COS ( argument-1 )
argument-1 Must be class numeric. The returned value is the approximation of the cosine of the argument and is greater than or equal to -1 and less than or equal to +1.
CURRENT-DATE
The CURRENT-DATE function returns a 21-character alphanumeric value that represents the calendar date, time of day, and time differential from Greenwich mean time provided by the system on which the function is evaluated. The function type is alphanumeric.
Format
FUNCTION CURRENT-DATE
Reading from left to right, the 21 character positions of the returned value are as follows:
Character positions 1-4 5-6 7-8 9-10 11-12 13-14 15-16 Contents Four numeric digits of the year in the Gregorian calendar Two numeric digits of the month of the year, in the range 01 through 12 Two numeric digits of the day of the month, in the range 01 through 31 Two numeric digits of the hours past midnight, in the range 00 through 23 Two numeric digits of the minutes past the hour, in the range 00 through 59 Two numeric digits of the seconds past the minute, in the range 00 through 59 Two numeric digits of the hundredths of a second past the second, in the range 00 through 99. The value 00 is returned if the system on which the function is evaluated does not have the facility to provide the fractional part of a second.
492
Character positions 17
Contents Either the character - or the character +. The character - is returned if the local time indicated in the previous character positions is behind Greenwich mean time. The character + is returned if the local time indicated is the same as or ahead of Greenwich mean time. The character 0 is returned if the system on which this function is evaluated does not have the facility to provide the local time differential factor. If character position 17 is -, two numeric digits are returned in the range 00 through 12 indicating the number of hours that the reported time is behind Greenwich mean time. If character position 17 is +, two numeric digits are returned in the range 00 through 13 indicating the number of hours that the reported time is ahead of Greenwich mean time. If character position 17 is 0, the value 00 is returned. Two numeric digits are returned in the range 00 through 59 indicating the number of additional minutes that the reported time is ahead of or behind Greenwich mean time, depending on whether character position 17 is + or -, respectively. If character position 17 is 0, the value 00 is returned.
18-19
20-21
DATE-OF-INTEGER
The DATE-OF-INTEGER function converts a date in the Gregorian calendar from integer date form to standard date form (YYYYMMDD). The function type is integer. The function result is an eight-digit integer. If the DATEPROC compiler option is in effect, the returned value is an expanded date field with implicit DATE FORMAT YYYYXXXX.
Format
FUNCTION DATE-OF-INTEGER ( argument-1 )
argument-1 A positive integer that represents a number of days succeeding December 31, 1600, in the Gregorian calendar. The valid range is 1 to 3,067,671, which corresponds to dates ranging from January 1, 1601 thru December 31, 9999. The INTDATE compiler option affects the starting date for the integer date functions. For details, see the Enterprise COBOL Programming Guide. The returned value represents the International Standards Organization (ISO) standard date equivalent to the integer specified as argument-1. The returned value is an integer of the form YYYYMMDD where YYYY represents a year in the Gregorian calendar; MM represents the month of that year; and DD represents the day of that month.
Chapter 22. Intrinsic functions
493
DATE-TO-YYYYMMDD
The DATE-TO-YYYYMMDD function converts argument-1 from a date with a two-digit year (YYnnnn) to a date with a four-digit year (YYYYnnnn). argument-2, when added to the year at the time of execution, defines the ending year of a 100-year interval, or sliding century window, into which the year of argument-1 falls. The function type is integer. If the DATEPROC compiler option is in effect, the returned value is an expanded date field with implicit DATE FORMAT YYYYXXXX.
Format
FUNCTION DATE-TO-YYYYMMDD ( argument-1 argument-2 )
argument-1 Must be zero or a positive integer less than 991232. Note: The COBOL run time does not verify that the value is a valid date. argument-2 Must be an integer. If argument-2 is omitted, the function is evaluated assuming the value 50 was specified. The sum of the year at the time of execution and the value of argument-2 must be less than 10,000 and greater than 1,699. The following are examples of returned values from the DATE-TO-YYYYMMDD function:
Current year 2002 2002 2002 1994 argument-1 value 851003 851003 851003 981002 argument-2 value 120 -20 10 -10 Returned value 20851003 18851003 19851003 18981002
DATEVAL
The DATEVAL function converts a nondate to a date field, for unambiguous use with date fields. If the DATEPROC compiler option is in effect, the returned value is a date field containing the value of argument-1 unchanged. For information about using the resulting date field: v In arithmetic, see Arithmetic with date fields on page 255 v In conditional expressions, see Comparison of date fields on page 271
494
If the NODATEPROC compiler option is in effect, the DATEVAL function has no effect, and returns the value of argument-1 unchanged. The function type depends on the type of argument-1:
argument-1 type Alphanumeric Integer Function type Alphanumeric Integer
Format
FUNCTION DATEVAL ( argument-1 argument-2 )
argument-1 Must be one of the following: v A class alphanumeric item with the same number of characters as the date format specified by argument-2. v An integer. This can be used to specify values outside the range specified by argument-2, including negative values. The value of argument-1 represents a date of the form specified by argument-2. argument-2 Must be an alphanumeric literal specifying a date pattern, as defined in DATE FORMAT clause on page 180. The date pattern consists of YY or YYYY (representing a windowed year or expanded year, respectively), optionally preceded or followed by one or more Xs (representing other parts of a date, such as month and day), as shown below. Note that the values are case insensitive; the letters X and Y in argument-2 can be any mix of uppercase and lowercase.
Date-pattern string YY YYYY X XX XXX XXXX Specifies that argument-1 contains A windowed (two-digit) year An expanded (four-digit) year A single character; for example, a digit representing a semester or quarter (1-4) Two characters; for example, digits representing a month (01-12) Three characters; for example, digits representing a day of the year (001-366) Four characters; for example, two digits representing a month (01-12) and two digits representing a day of the month (01-31)
DAY-OF-INTEGER
The DAY-OF-INTEGER function converts a date in the Gregorian calendar from integer date form to Julian date form (YYYYDDD). The function type is integer. The function result is a seven-digit integer.
Chapter 22. Intrinsic functions
495
If the DATEPROC compiler option is in effect, the returned value is an expanded date field with implicit DATE FORMAT YYYYXXX.
Format
FUNCTION DAY-OF-INTEGER ( argument-1 )
argument-1 A positive integer that represents a number of days succeeding December 31, 1600, in the Gregorian calendar. The valid range is 1 to 3,067,671, which corresponds to dates ranging from January 1, 1601 thru December 31, 9999. The INTDATE compiler option affects the starting date for the integer date functions. For details, see the Enterprise COBOL Programming Guide. The returned value represents the Julian equivalent of the integer specified as argument-1. The returned value is an integer of the form YYYYDDD where YYYY represents a year in the Gregorian calendar and DDD represents the day of that year.
DAY-TO-YYYYDDD
The DAY-TO-YYYYDDD function converts argument-1 from a date with a two-digit year (YYnnn) to a date with a four-digit year (YYYYnnn). argument-2, when added to the year at the time of execution, defines the ending year of a 100-year interval, or sliding century window, into which the year of argument-1 falls. The function type is integer. If the DATEPROC compiler option is in effect, the returned value is an expanded date field with implicit DATE FORMAT YYYYXXX.
Format
FUNCTION DAY-TO-YYYYDDD ( argument-1 argument-2 )
argument-1 Must be zero or a positive integer less than 99367. The COBOL run time does not verify that the value is a valid date. argument-2 Must be an integer. If argument-2 is omitted, the function is evaluated assuming the value 50 was specified. The sum of the year at the time of execution and the value of argument-2 must be less than 10,000 and greater than 1,699. Some examples of returned values from the DAY-TO-YYYYDDD function follow:
496
DISPLAY-OF
The DISPLAY-OF function returns an alphanumeric character string consisting of the content of argument-1 converted to a specific code page representation. The type of the function is alphanumeric.
Format
FUNCTION DISPLAY-OF ( argument-1 argument-2 )
| | |
argument-1 Must be of class national (categories national, national-edited, and numeric-edited described with usage NATIONAL). argument-1 identifies the source string for the conversion. argument-2 Must be an integer. argument-2 identifies the output code page for the conversion. argument-2 must be a valid CCSID number and must identify an EBCDIC, ASCII, UTF-8, or EUC code page. An EBCDIC or ASCII code page can contain both single-byte and double-byte characters. If argument-2 is omitted, the output code page is the one that was in effect for the CODEPAGE compiler option when the source code was compiled. The returned value is an alphanumeric character string consisting of the characters of argument-1 converted to the output code page representation. When a source character cannot be converted to a character in the output code page, the source character is replaced with a substitution character. The following table shows substitution characters for some widely-used code pages:
Output code page SBCS ASCII PC Windows SBCS EBCDIC SBCS ASCII DBCS EBCDIC DBCS (except for Thai) EBCDIC DBCS (Thai) PC DBCS (Japanese or Chinese) PC DBCS (Korean) Substitution character X7F X3F XFCFC XFEFE X41B8 XFCFC XBFFC
497
Substitution character XAFFE X747E From SBCS: X1A From MBCS: XEFBFBD From SBCS: X001A From MBCS: XFFFD
No exception condition is raised. The length of the returned value depends on the content of argument-1 and the characteristics of the output code page. Usage notes v The CCSID for UTF-8 is 1208. v If the output code page includes DBCS characters, the returned value can be a mixed SBCS and DBCS string. v The DISPLAY-OF function, with argument-2 specified, can be used to generate character data represented in a code page that differs from that specified in the CODEPAGE compiler option. Subsequent COBOL operations on that data can involve implicit conversions that assume the data is represented in the EBCDIC code page specified in the CODEPAGE compiler option. See the Enterprise COBOL Programming Guide for examples and programming techniques for processing data represented using more than one code page within a single program. Exception: If the conversion fails, a severe runtime error occurs. Verify that the z/OS Unicode conversion services are installed and are configured to include the table for converting from CCSID 1200 to the output code page. See the Customization Guide for installation requirements to support the conversion.
FACTORIAL
The FACTORIAL function returns an integer that is the factorial of the argument specified. The function type is integer.
Format
FUNCTION FACTORIAL ( argument-1 )
argument-1 If the ARITH(COMPAT) compiler option is in effect, argument-1 must be an integer greater than or equal to zero and less than or equal to 28. If the ARITH(EXTEND) compiler option is in effect, argument-1 must be an integer greater than or equal to zero and less than or equal to 29. If the value of argument-1 is zero, the value 1 is returned; otherwise, the factorial of argument-1 is returned.
498
INTEGER
The INTEGER function returns the greatest integer value that is less than or equal to the argument specified. The function type is integer.
Format
FUNCTION INTEGER ( argument-1 )
argument-1 Must be class numeric. The returned value is the greatest integer less than or equal to the value of argument-1. For example, FUNCTION INTEGER (2.5) returns a value of 2 and FUNCTION INTEGER (-2.5) returns a value of -3.
INTEGER-OF-DATE
The INTEGER-OF-DATE function converts a date in the Gregorian calendar from standard date form (YYYYMMDD) to integer date form. The function type is integer. The function result is a seven-digit integer with a range from 1 to 3,067,671.
Format
FUNCTION INTEGER-OF-DATE ( argument-1 )
argument-1 Must be an integer of the form YYYYMMDD, whose value is obtained from the calculation (YYYY * 10,000) + (MM * 100) + DD, where: v YYYY represents the year in the Gregorian calendar. It must be an integer greater than 1600, but not greater than 9999. v MM represents a month and must be a positive integer less than 13. v DD represents a day and must be a positive integer less than 32, provided that it is valid for the specified month and year combination. The returned value is an integer that is the number of days that the date represented by argument-1 succeeds December 31, 1600 in the Gregorian calendar. The INTDATE compiler option affects the starting date for the integer date functions. For details, see the Enterprise COBOL Programming Guide.
499
INTEGER-OF-DAY
The INTEGER-OF-DAY function converts a date in the Gregorian calendar from Julian date form (YYYYDDD) to integer date form. The function type is integer. The function result is a seven-digit integer.
Format
FUNCTION INTEGER-OF-DAY ( argument-1 )
argument-1 Must be an integer of the form YYYYDDD whose value is obtained from the calculation (YYYY * 1000) + DDD, where: v YYYY represents the year in the Gregorian calendar. It must be an integer greater than 1600, but not greater than 9999. v DDD represents the day of the year. It must be a positive integer less than 367, provided that it is valid for the year specified. The returned value is an integer that is the number of days that the date represented by argument-1 succeeds December 31, 1600 in the Gregorian calendar. The INTDATE compiler option affects the starting date for the integer date functions. For details, see the Enterprise COBOL Programming Guide.
INTEGER-PART
The INTEGER-PART function returns an integer that is the integer portion of the argument specified. The function type is integer.
Format
FUNCTION INTEGER-PART ( argument-1 )
argument-1 Must be class numeric. If the value of argument-1 is zero, the returned value is zero. If the value of argument-1 is positive, the returned value is the greatest integer less than or equal to the value of argument-1. If the value of argument-1 is negative, the returned value is the least integer greater than or equal to the value of argument-1.
500
LENGTH
| | | The LENGTH function returns an integer equal to the length of the argument in national character positions for arguments of usage NATIONAL and in alphanumeric character positions or bytes for all other arguments. An alphanumeric character position and a byte are equivalent. The type of the function is integer.
Format
FUNCTION LENGTH ( argument-1 )
| |
argument-1 Can be: v An alphanumeric literal or a national literal v A data item of any class except DBCS v A data item described with usage POINTER, PROCEDURE-POINTER, FUNCTION-POINTER, or OBJECT REFERENCE v The ADDRESS OF special register v The LENGTH OF special register v The XML-NTEXT special register v The XML-TEXT special register The returned value is a nine-digit integer determined as follows: v If argument-1 is an alphanumeric literal or an elementary data item of class alphabetic or alphanumeric, the value returned is equal to the number of alphanumeric character positions in the argument. If argument-1 is a null-terminated alphanumeric literal, the returned value is equal to the number of alphanumeric character positions in the literal excluding the null character at the end of the literal. The length of an alphanumeric data item or literal containing a mix of single-byte and double-byte characters is counted as though each byte were a single-byte character. v If argument-1 is an alphanumeric group item, the value returned is equal to the length of argument-1 in alphanumeric character positions regardless of the content of the group. If any data item subordinate to argument-1 is described with the DEPENDING phrase of the OCCURS clause, the length of argument-1 is determined using the contents of the data item specified in the DEPENDING phrase. This evaluation is accomplished according to the rules of the OCCURS clause for a sending data item. For more information, see the discussions of the OCCURS clause and the USAGE clause. The returned value includes implicit FILLER positions, if any. v If argument-1 is a national literal or an elementary data item described with usage NATIONAL, the value returned is equal to the length of argument-1 in national character positions. For example, if argument-1 is defined as PIC 9(3) with usage NATIONAL, the returned value is 3, although the storage size of the argument is 6 bytes. v If argument-1 is a national group item, the value returned is equal to the length of argument-1 in national character positions. If any data item subordinate to
Chapter 22. Intrinsic functions
| | |
| | |
| | | | | | |
501
argument-1 is described with the DEPENDING phrase of the OCCURS clause, the length of argument-1 is determined using the contents of the data item specified in the DEPENDING phrase. This evaluation is accomplished according to the rules of the OCCURS clause for a sending data item. For more information, see the discussions of the OCCURS clause and the USAGE clause. The returned value includes implicit FILLER positions, if any. v Otherwise, the returned value is the number of bytes of storage occupied by argument-1.
LOG
The LOG function returns a numeric value that approximates the logarithm to the base e (natural log) of the argument specified. The function type is numeric.
Format
FUNCTION LOG ( argument-1 )
argument-1 Must be class numeric. The value of argument-1 must be greater than zero. The returned value is the approximation of the logarithm to the base e of argument-1.
LOG10
The LOG10 function returns a numeric value that approximates the logarithm to the base 10 of the argument specified. The function type is numeric.
Format
FUNCTION LOG10 ( argument-1 )
argument-1 Must be class numeric. The value of argument-1 must be greater than zero. The returned value is the approximation of the logarithm to the base 10 of argument-1.
502
LOWER-CASE
The LOWER-CASE function returns a character string that contains the characters in the argument with each lowercase letter replaced by the corresponding uppercase letter. The function type depends on the type of the argument, as follows:
Argument type Alphabetic Alphanumeric National Function type Alphanumeric Alphanumeric National
Format
FUNCTION LOWER-CASE ( argument-1 )
argument-1 Must be class alphabetic, alphanumeric, or national and must be at least one character position in length. The same character string as argument-1 is returned, except that each uppercase letter is replaced by the corresponding lowercase letter. If argument-1 is of class alphabetic or alphanumeric, the uppercase letters A through Z are replaced by the corresponding lowercase letters a through z, where the range of A through Z and the range of a through z are as shown in EBCDIC collating sequence (Table 60 on page 569), regardless of the code page in effect. If argument-1 is of class national, each uppercase letter is replaced by its corresponding lowercase letter based on the specification given in the Unicode database UnicodeData.txt, available from the Unicode Consortium at www.unicode.org/. The character string returned has the same length as argument-1.
MAX
The MAX function returns the content of the argument that contains the maximum value. The function type depends on the argument type, as follows:
Argument type Alphabetic Alphanumeric National Function type Alphanumeric Alphanumeric National Integer
503
Argument type
Numeric (some arguments can be integer) (includes numeric arguments of usage NATIONAL)
Format
FUNCTION MAX (
argument-1
argument-1 Must be class alphabetic, alphanumeric, national, or numeric. All arguments must be of the same class, except that a combination of alphabetic and alphanumeric arguments is allowed. The returned value is the content of argument-1 having the greatest value. The comparisons used to determine the greatest value are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259. If more than one argument-1 has the same greatest value, the leftmost argument-1 having that value is returned. If the type of the function is alphanumeric or national, the size of the returned value is the size of the selected argument-1.
MEAN
The MEAN function returns a numeric value that approximates the arithmetic average of its arguments. The function type is numeric.
Format
FUNCTION MEAN (
argument-1
argument-1 Must be class numeric. The returned value is the arithmetic mean of the argument-1 series. The returned value is defined as the sum of the argument-1 series divided by the number of occurrences referenced by argument-1.
504
MEDIAN
The MEDIAN function returns the content of the argument whose value is the middle value in the list formed by arranging the arguments in sorted order. The function type is numeric.
Format
FUNCTION MEDIAN (
argument-1
argument-1 Must be class numeric. The returned value is the content of argument-1 having the middle value in the list formed by arranging all argument-1 values in sorted order. If the number of occurrences referenced by argument-1 is odd, the returned value is such that at least half of the occurrences referenced by argument-1 are greater than or equal to the returned value and at least half are less than or equal. If the number of occurrences referenced by argument-1 is even, the returned value is the arithmetic mean of the values referenced by the two middle occurrences. The comparisons used to arrange the argument values in sorted order are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259.
MIDRANGE
The MIDRANGE function returns a numeric value that approximates the arithmetic average of the values of the minimum argument and the maximum argument. The function type is numeric.
Format
FUNCTION MIDRANGE (
argument-1
argument-1 Must be class numeric. The returned value is the arithmetic mean of the value of the greatest argument-1 and the value of the least argument-1. The comparisons used to determine the greatest and least values are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259.
Chapter 22. Intrinsic functions
505
MIN
The MIN function returns the content of the argument that contains the minimum value. The function type depends on the argument type, as follows:
Argument type Alphabetic Alphanumeric National Function type Alphanumeric Alphanumeric National Integer Numeric
| | |
All arguments integer (includes integer arguments of usage NATIONAL) Numeric (some arguments can be integer) (includes numeric arguments of usage NATIONAL)
Format
FUNCTION MIN (
argument-1
argument-1 Must be class alphabetic, alphanumeric, national, or numeric. All arguments must be of the same class, except that a combination of alphabetic and alphanumeric arguments is allowed. The returned value is the content of argument-1 having the least value. The comparisons used to determine the least value are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259. If more than one argument-1 has the same least value, the leftmost argument-1 having that value is returned. If the type of the function is alphanumeric or national, the size of the returned value is the size of the selected argument-1.
MOD
The MOD function returns an integer value that is argument-1 modulo argument-2. The function type is integer. The function result is an integer with as many digits as the shorter of argument-1 and argument-2.
506
Format
FUNCTION MOD ( argument-1 argument-2 )
argument-1 Must be an integer. argument-2 Must be an integer. Must not be zero. The returned value is argument-1 modulo argument-2. The returned value is defined as: argument-1 - (argument-2 * FUNCTION INTEGER (argument-1 / argument-2)) The following are expected results for some values of argument-1 and argument-2.
argument-1 11 -11 11 -11 argument-2 5 5 -5 -5 Returned value 1 4 -4 -1
NATIONAL-OF
The NATIONAL-OF function returns a national character string consisting of the national character representation of the characters in argument-1. The type of the function is national.
Format
FUNCTION NATIONAL-OF ( argument-1 argument-2 )
argument-1 Must be of class alphabetic, alphanumeric, or DBCS. argument-1 specifies the source string for the conversion. argument-2 Must be an integer. argument-2 identifies the source code page for the conversion. argument-2 must be a valid CCSID number and must identify an EBCDIC, ASCII, UTF-8, or EUC code page. An EBCDIC or ASCII code page can contain both single-byte and double-byte characters. If argument-2 is omitted, the source code page is the one that was in effect for the CODEPAGE compiler option when the source code was compiled.
Chapter 22. Intrinsic functions
507
The returned value is a national character string consisting of the characters of argument-1 converted to national character representation. When a source character cannot be converted to a national character, the source character is converted to a substitution character. The substitution character is: v X001A if converting a single-byte character v XFFFD if converting a multi-byte character No exception condition is raised. The length of the returned value depends on the content of argument-1 and the characteristics of the source code page. Usage note: The CCSID for UTF-8 is 1208. Exception: If the conversion fails, a severe runtime error occurs. Verify that the z/OS Unicode conversion services are installed and are configured to include the table for converting from the source code page to CCSID 1200. See the Customization Guide for installation requirements to support the conversion.
NUMVAL
| | The NUMVAL function returns the numeric value represented by the alphanumeric character string or national character string specified as the argument. The function removes any leading or trailing spaces in the string to produce a numeric value. The function type is numeric.
Format
FUNCTION NUMVAL ( argument-1 )
| | |
argument-1 Must be an alphanumeric literal, a national literal, or a data item of class national or class alphanumeric that contains a character string in either of the following formats:
Format 1: argument-1
digit space + space . digit . digit
space
508
Format 2: argument-1
digit space . digit . digit space + CR DB
space
space digit
A string of one or more spaces. A string of one or more digits. If the ARITH(COMPAT) compiler option is in effect, the total number of digits must not exceed 18. If the ARITH(EXTEND) compiler option is in effect, the total number of digits must not exceed 31.
If the DECIMAL-POINT IS COMMA clause is specified in the SPECIAL-NAMES paragraph, a comma must be used in argument-1 rather than a decimal point. | | | | The returned value is a floating-point approximation of the numeric value represented by argument-1. The precision of the returned value depends on the setting of the ARITH compiler option. For details, see Converting to numbers (NUMV AL, NUMV AL-C) in the Enterprise COBOL Programming Guide
NUMVAL-C
| | | | The NUMVAL-C function returns the numeric value represented by the alphanumeric character string or national character string specified as argument-1. The function removes the currency string, if any, and any grouping separators (commas) to produce a numeric value. The function type is numeric.
Format
FUNCTION NUMVAL-C ( argument-1 argument-2 )
| | |
argument-1 Must be an alphanumeric literal, a national literal, or a data item of class alphanumeric or class national that contains a character string in either of the following formats:
509
Format 1: argument-1
space
space
cs
space
Format 2: argument-1
space digit
cs
space
space
+ CR DB
space
space | | | cs
A string of one or more spaces. The string of one or more characters that form the currency sign. At most one copy of the characters specified by cs can occur in argument-1. A string of one or more digits. If the ARITH(COMPAT) compiler option is in effect, the total number of digits must not exceed 18. If the ARITH(EXTEND) compiler option is in effect, the total number of digits must not exceed 31.
digit
If the DECIMAL-POINT IS COMMA clause is specified in the SPECIAL-NAMES paragraph, the functions of the comma and decimal point in argument-1 are reversed.
argument-2 Specifies the currency string value. The following rules apply: | | | v argument-2 must be specified if the program contains more than one CURRENCY SIGN clause. v argument-2, if specified, must be of the same class as argument-1.
510
| |
v argument-2 must not contain any of the digits 0 through 9, any leading or trailing spaces, or any of the special characters +, -, ., or ,. v argument-2 can be of any length valid for an elementary or group data item of the class of argument-2, including zero. v Matching of argument-2 is case sensitive. For example, if you specify argument-2 as CHF, it will not match ChF, chf or chF. If argument-2 is not specified, the character used for cs is the currency symbol specified for the program.
| | | |
The returned value is a floating-point approximation of the numeric value represented by argument-1. The precision of the returned value depends on the setting of the ARITH compiler option. For details, see Converting to numbers (NUMV AL, NUMV AL-C) in the Enterprise COBOL Programming Guide
ORD
The ORD function returns an integer value that is the ordinal position of its argument in the collating sequence for the program. The lowest ordinal position is 1. The function type is integer. The function result is a three-digit integer.
Format
FUNCTION ORD ( argument-1 )
argument-1 Must be one character in length and must be class alphabetic or alphanumeric. The returned value is the ordinal position of argument-1 in the collating sequence for the program; it ranges from 1 to 256 depending on the collating sequence.
ORD-MAX
The ORD-MAX function returns a value that is the ordinal position in the argument list of the argument that contains the maximum value. The function type is integer.
Format
FUNCTION ORD-MAX (
argument-1
511
argument-1 Must be class alphabetic, alphanumeric, national, or numeric. All arguments must be of the same class, except that a combination of alphabetic and alphanumeric arguments is allowed. The returned value is the ordinal number that corresponds to the position of the argument-1 having the greatest value in the argument-1 series. The comparisons used to determine the greatest-valued argument-1 are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259. If more than one argument-1 has the same greatest value, the number returned corresponds to the position of the leftmost argument-1 having that value.
ORD-MIN
The ORD-MIN function returns a value that is the ordinal position in the argument list of the argument that contains the minimum value. The function type is integer.
Format
FUNCTION ORD-MIN (
argument-1
argument-1 Must be class alphabetic, alphanumeric, national, or numeric. All arguments must be of the same class, except that a combination of alphabetic and alphanumeric arguments is allowed. The returned value is the ordinal number that corresponds to the position of the argument-1 having the least value in the argument-1 series. The comparisons used to determine the least-valued argument-1 are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259. If more than one argument-1 has the same least value, the number returned corresponds to the position of the leftmost argument-1 having that value.
PRESENT-VALUE
The PRESENT-VALUE function returns a value that approximates the present value of a series of future period-end amounts specified by argument-2 at a discount rate specified by argument-1. The function type is numeric.
512
Format
argument-2
argument-1 Must be class numeric. Must be greater than -1. argument-2 Must be class numeric. The returned value is an approximation of the summation of a series of calculations with each term in the following form: argument-2 / (1 + argument-1) ** n There is one term for each occurrence of argument-2. The exponent n is incremented from 1 by 1 for each term in the series.
RANDOM
The RANDOM function returns a numeric value that is a pseudorandom number from a rectangular distribution. The function type is numeric.
Format
FUNCTION RANDOM ( argument-1 )
argument-1 If argument-1 is specified, it must be zero or a positive integer. However, only values in the range from zero up to and including 2,147,483,645 yield a distinct sequence of pseudorandom numbers. If a subsequent reference specifies argument-1, a new sequence of pseudorandom numbers is started. If the first reference to this function in the run unit does not specify argument-1, the seed value used will be zero. In each case, subsequent references without specifying argument-1 return the next number in the current sequence. The returned value is exclusively between zero and one. For a given seed value, the sequence of pseudorandom numbers is always the same.
513
The RANDOM function can be used in threaded programs. For an initial seed, a single sequence of pseudorandom numbers is returned, regardless of the thread that is running when RANDOM is invoked.
RANGE
The RANGE function returns a value that is equal to the value of the maximum argument minus the value of the minimum argument. The function type depends on the argument types, as follows:
Argument type All arguments integer Numeric (some arguments can be integer) Function type Integer Numeric
Format
FUNCTION RANGE (
argument-1
argument-1 Must be class numeric. The returned value is equal to argument-1 with the greatest value minus the argument-1 with the least value. The comparisons used to determine the greatest and least values are made according to the rules for simple conditions. For more information, see Conditional expressions on page 259.
REM
The REM function returns a numeric value that is the remainder of argument-1 divided by argument-2. The function type is numeric.
Format
FUNCTION REM ( argument-1 argument-2 )
argument-1 Must be class numeric. argument-2 Must be class numeric. Must not be zero. The returned value is the remainder of argument-1 divided by argument-2. It is defined as the expression: argument-1 - (argument-2 * FUNCTION INTEGER-PART (argument-1 / argument-2))
514
REVERSE
The REVERSE function returns a character string of exactly the same length as the argument, whose characters are exactly the same as those specified in the argument except that they are in reverse order. For arguments of type national, character positions are reversed. The function type depends on the type of the argument, as follows:
Argument type Alphabetic Alphanumeric National Function type Alphanumeric Alphanumeric National
Format
FUNCTION REVERSE ( argument-1 )
argument-1 Must be class alphabetic, alphanumeric, or national and must be at least one character in length. The returned value is a character string of the same length as argument-1, with the characters of argument-1 in reversed order. For example, if argument-1 contains ABC, the returned value is CBA.
SIN
The SIN function returns a numeric value that approximates the sine of the angle or arc specified by the argument in radians. The function type is numeric.
Format
FUNCTION SIN ( argument-1 )
argument-1 Must be class numeric. The returned value is the approximation of the sine of argument-1 and is greater than or equal to -1 and less than or equal to +1.
SQRT
The SQRT function returns a numeric value that approximates the square root of the argument specified. The function type is numeric.
Chapter 22. Intrinsic functions
515
Format
FUNCTION SQRT ( argument-1 )
argument-1 Must be class numeric. The value of argument-1 must be zero or positive. The returned value is the absolute value of the approximation of the square root of argument-1.
STANDARD-DEVIATION
The STANDARD-DEVIATION function returns a numeric value that approximates the standard deviation of its arguments. The function type is numeric.
Format
FUNCTION STANDARD-DEVIATION (
argument-1
argument-1 Must be class numeric. The returned value is the approximation of the standard deviation of the argument-1 series. The returned value is calculated as follows: 1. The difference between each argument-1 and the arithmetic mean of the argument-1 series is calculated and squared. 2. The values obtained are then added together. This quantity is divided by the number of values in the argument-1 series. 3. The square root of the quotient obtained is then calculated. The returned value is the absolute value of this square root. If the argument-1 series consists of only one value, or if the argument-1 series consists of all variable-occurrence data items and the total number of occurrences for all of them is one, the returned value is zero.
SUM
The SUM function returns a value that is the sum of the arguments. The function type depends on the argument types, as follows:
Argument type All arguments integer Numeric (some arguments can be integer) Function type Integer Numeric
516
Format
FUNCTION SUM (
argument-1
argument-1 Must be class numeric. The returned value is the sum of the arguments. If the argument-1 series are all integers, the value returned is an integer. If the argument-1 series are not all integers, a numeric value is returned.
TAN
The TAN function returns a numeric value that approximates the tangent of the angle or arc that is specified by the argument in radians. The function type is numeric.
Format
FUNCTION TAN ( argument-1 )
argument-1 Must be class numeric. The returned value is the approximation of the tangent of argument-1.
UNDATE
The UNDATE function converts a date field to a nondate for unambiguous use with nondates. If the NODATEPROC compiler option is in effect, the UNDATE function has no effect. The function type depends on the type of argument-1:
argument-1 type Alphanumeric Integer Function type Alphanumeric Integer
Format
FUNCTION UNDATE ( argument-1 )
517
argument-1 A date field. The returned value is a nondate that contains the value of argument-1 unchanged.
UPPER-CASE
The UPPER-CASE function returns a character string that contains the characters in the argument with each lowercase letter replaced by the corresponding uppercase letter. The function type depends on the type of the argument, as follows:
Argument type Alphabetic Alphanumeric National Function type Alphanumeric Alphanumeric National
Format
FUNCTION UPPER-CASE ( argument-1 )
argument-1 Must be class alphabetic, alphanumeric, or national and must be at least one character position in length. The same character string as argument-1 is returned, except that each lowercase letter is replaced by the corresponding uppercase letter. If argument-1 is alphabetic or alphanumeric, the lowercase letters a through z are replaced by the corresponding uppercase letters A through Z, where the range of a through z and the range of A through Z are as shown in EBCDIC collating sequence (Table 60 on page 569), regardless of the code page in effect. If argument-1 is national, each lowercase letter is replaced by its corresponding uppercase letter based on the specification given in the Unicode database UnicodeData.txt, available from the Unicode Consortium at www.unicode.org/. The returned character string has the same length as argument-1.
VARIANCE
The VARIANCE function returns a numeric value that approximates the variance of its arguments. The function type is numeric.
518
Format
FUNCTION VARIANCE (
argument-1
argument-1 Must be class numeric. The returned value is the approximation of the variance of the argument-1 series. The returned value is defined as the square of the standard deviation of the argument-1 series. This value is calculated as follows: 1. The difference between each argument-1 value and the arithmetic mean of the argument-1 series is calculated and squared. 2. The values obtained are then added together. This quantity is divided by the number of values in the argument series. If the argument-1 series consists of only one value, or if the argument-1 series consists of all variable-occurrence data items and the total number of occurrences for all of them is one, the returned value is zero.
WHEN-COMPILED
The WHEN-COMPILED function returns the date and time that the program was compiled as provided by the system on which the program was compiled. The function type is alphanumeric.
Format
FUNCTION WHEN-COMPILED
Reading from left to right, the 21 character positions of the returned value are as follows:
Character positions 1-4 5-6 7-8 9-10 11-12 13-14 Contents Four numeric digits of the year in the Gregorian calendar Two numeric digits of the month of the year, in the range 01 through 12 Two numeric digits of the day of the month, in the range 01 through 31 Two numeric digits of the hours past midnight, in the range 00 through 23 Two numeric digits of the minutes past the hour, in the range 00 through 59 Two numeric digits of the seconds past the minute, in the range 00 through 59
Chapter 22. Intrinsic functions
519
Contents Two numeric digits of the hundredths of a second past the second, in the range 00 through 99. The value 00 is returned if the system on which the function is evaluated does not have the facility to provide the fractional part of a second. Either the character - or the character +. The character - is returned if the local time indicated in the previous character positions is behind Greenwich mean time. The character + is returned if the local time indicated is the same as or ahead of Greenwich mean time. The character 0 is returned if the system on which this function is evaluated does not have the facility to provide the local time differential factor. If character position 17 is -, two numeric digits are returned in the range 00 through 12 indicating the number of hours that the reported time is behind Greenwich mean time. If character position 17 is +, two numeric digits are returned in the range 00 through 13 indicating the number of hours that the reported time is ahead of Greenwich mean time. If character position 17 is 0, the value 00 is returned. Two numeric digits are returned in the range 00 through 59 indicating the number of additional minutes that the reported time is ahead of or behind Greenwich mean time, depending on whether character position 17 is + or -, respectively. If character position 17 is 0, the value 00 is returned.
17
18-19
20-21
The returned value is the date and time of compilation of the source unit that contains this function. If a program is a contained program, the returned value is the compilation date and time associated with the containing program.
YEAR-TO-YYYY
The YEAR-TO-YYYY function converts argument-1, a two-digit year, to a four-digit year. argument-2, when added to the year at the time of execution, defines the ending year of a 100-year interval, or sliding century window, into which the year of argument-1 falls. The function type is integer. If the DATEPROC compiler option is in effect, then the returned value is an expanded date field with implicit DATE FORMAT YYYY.
Format
FUNCTION YEAR-TO-YYYY ( argument-1 argument-2 )
argument-1 Must be a non-negative integer that is less than 100. argument-2 Must be an integer. If argument-2 is omitted, the function is evaluated assuming the value 50 was specified.
520
The sum of the year at the time of execution and the value of argument-2 must be less than 10,000 and greater than 1,699. Examples of return values from the YEAR-TO-YYYY function are shown in the following table.
Current year 1995 1995 2008 2008 argument-1 value 4 4 98 98 argument-2 value 23 -15 23 -15 Returned value 2004 1904 1998 1898
YEARWINDOW
If the DATEPROC compiler option is in effect, the YEARWINDOW function returns the starting year of the century window specified by the YEARWINDOW compiler option. The returned value is an expanded date field with implicit DATE FORMAT YYYY. If the NODATEPROC compiler option is in effect, the YEARWINDOW function returns 0. The function type is integer.
Format
FUNCTION YEARWINDOW
521
522
523
524
| |
BASIS statement
The BASIS statement is an extended source text library statement. It provides a complete COBOL program as the source for a compilation. A complete program can be stored as an entry in a users library and can be used as the source for a compilation. Compiler input is a BASIS statement, optionally followed by any number of INSERT and DELETE statements.
Format
BASIS sequence-number basis-name literal-1
sequence-number Can optionally appear in columns 1 through 6, followed by a space. The content of this field is ignored. BASIS Can appear anywhere in columns 1 through 72, followed by basis-name. There must be no other text in the statement. basis-name, literal-1 Is the name by which the library entry is known to the system environment. For rules of formation and processing rules, see the description under literal-1 and text-name of the COPY statement on page 529.
525
The source file remains unchanged after execution of the BASIS statement. Usage note: If INSERT or DELETE statements are used to modify the COBOL source text provided by a BASIS statement, the sequence field of the COBOL source text must contain numeric sequence numbers in ascending order.
Format
CBL PROCESS
options-list
options-list A series of one or more compiler options, each one separated by a comma or a space. For more information about compiler options, see the Enterprise COBOL Programming Guide. The CBL (PROCESS) statement can be preceded by a sequence number in columns 1 through 6. The first character of the sequence number must be numeric, and CBL or PROCESS can begin in column 8 or after; if a sequence number is not specified, CBL or PROCESS can begin in column 1 or after. The CBL (PROCESS) statement must end before or at column 72, and options cannot be continued across multiple CBL (PROCESS) statements. However, you can use more than one CBL (PROCESS) statement. Multiple CBL (PROCESS) statements must follow one another with no intervening statements of any other type. The CBL (PROCESS) statement must be placed before any comment lines or other compiler-directing statements.
526
Format
*CONTROL *CBL
For a complete discussion of the output produced by these options, see the Enterprise COBOL Programming Guide. The *CONTROL and *CBL statements are synonymous. *CONTROL is accepted anywhere that *CBL is accepted. The characters *CONTROL or *CBL can start in any column beginning with column 7, followed by at least one space or comma and one or more option keywords. The option keywords must be separated by one or more spaces or commas. This statement must be the only statement on the line, and continuation is not allowed. The statement can be terminated with a period. The *CONTROL and *CBL statements must be embedded in a program source. For example, in the case of batch applications, the *CONTROL and *CBL statements must be placed between the PROCESS (CBL) statement and the end of the program (or END PROGRAM marker, if specified). The source line containing the *CONTROL (*CBL) statement will not appear in the source listing. If an option is defined at installation as a fixed option, that fixed option takes precedence over all of the following: v PARM (if available) v CBL statement v *CONTROL (*CBL) statement The requested options are handled in the following manner: 1. If an option or its negation appears more than once in a *CONTROL statement, the last occurrence of the option word is used. 2. If the corresponding option has been requested as a parameter to the compiler, then a *CONTROL statement with the negation of the option word must precede the portions of the source text for which listing output is to be inhibited. Listing output then resumes when a *CONTROL statement with the affirmative option word is encountered. 3. If the negation of the corresponding option has been requested as a parameter to the compiler, then that listing is always inhibited. 4. The *CONTROL statement is in effect only within the source program in which it is written, including any contained programs. It does not remain in effect across batch compiles of two or more COBOL source programs.
527
If a *CONTROL NOSOURCE statement is encountered and SOURCE has been requested as a compilation option, printing of the source listing is suppressed from this point on. An informational (I-level) message is issued stating that printing of the source has been suppressed.
If a *CONTROL NOLIST statement is encountered, and LIST has been requested as a compilation option, listing of generated object code is suppressed from this point on.
If a *CONTROL NOMAP statement is encountered, and MAP has been requested as a compilation option, listing of storage map entries is suppressed from this point on. For example, either of the following sets of statements produces a storage map listing in which A and B will not appear:
*CONTROL NOMAP 01 A 02 B *CONTROL MAP *CBL NOMAP 01 A 02 B *CBL MAP
528
COPY statement
The COPY statement is a library statement that places prewritten text in a COBOL compilation unit. Prewritten source code entries can be included in a compilation unit at compile time. Thus, an installation can use standard file descriptions, record descriptions, or procedures without recoding them. These entries and procedures can then be saved in user-created libraries; they can then be included in programs and class definitions by means of the COPY statement. Compilation of the source code containing COPY statements is logically equivalent to processing all COPY statements before processing the resulting source text. The effect of processing a COPY statement is that the library text associated with text-name is copied into the compilation unit, logically replacing the entire COPY statement, beginning with the word COPY and ending with the period, inclusive. When the REPLACING phrase is not specified, the library text is copied unchanged.
Format
COPY text-name literal-1
OF IN
library-name literal-2 .
SUPPRESS
REPLACING
operand-1 BY operand-2
text-name, library-name text-name identifies the copy text. library-name identifies where the copy text exists. v Can be from 1-30 characters in length | v Can contain characters: A-Z, a-z, 0-9, hyphen v The first or last character must not be a hyphen text-name and library-name can be the same as a user-defined word. text-name need not be qualified. If text-name is not qualified, a library-name of SYSLIB is assumed. When compiling from JCL or TSO, only the first eight characters are used as the identifying name. When compiling with the cob2 command and processing COPY text residing in the Hierarchical File System (HFS), all characters are significant. literal-1, literal-2 Must be alphanumeric literals. literal-1 identifies the copy text. literal-2 identifies where the copy text exists. When compiling from JCL or TSO: v Literals can be from 1-30 characters in length. v Literals can contain characters: A-Z, a-z, 0-9, hyphen, @, #, or $.
Chapter 23. Compiler-directing statements
529
v The first or last character must not be a hyphen. v Only the first eight characters are used as the identifying name. When compiling with the cob2 command and processing COPY text residing in the HFS, the literal can be from 1 to 160 characters in length. The uniqueness of text-name and library-name is determined after the formation and conversion rules for a system-dependent name have been applied. For information about processing rules, see the Enterprise COBOL Programming Guide. operand-1, operand-2 Can be either pseudo-text, an identifier, a function-identifier, a literal, or a COBOL word (except the word COPY). Library text and pseudo-text can consist of or include any words (except COPY), identifiers, or literals that can be written in the source text. This includes DBCS DBCS user-defined words, DBCS literals, and national literals. DBCS user-defined words must be wholly formed; that is, there is no partial-word replacement for DBCS words. Words or literals containing DBCS characters cannot be continued across lines. Each COPY statement must be preceded by a space and ended with a separator period. A COPY statement can appear in the source text anywhere a character string or a separator can appear. COPY statements can be nested. However, nested COPY statements cannot contain the REPLACING phrase, and a COPY statement with the REPLACING phrase cannot contain nested COPY statements. A nested COPY statement cannot cause recursion. That is, a COPY member can be named only once in a set of nested COPY statements until the end-of-file for that COPY member is reached. For example, assume that the source text contains the statement: COPY X. and library text X contains the statement: COPY Y.. In this case, library text Y must not have a COPY X or a COPY Y statement. Debugging lines are permitted within library text and pseudo-text. Text words within a debugging line participate in the matching rules as if the D did not appear in the indicator area. A debugging line is specified within pseudo-text if the debugging line begins in the source text after the opening pseudo-text delimiter but before the matching closing pseudo-text delimiter. If additional lines are introduced into the source text as a result of a COPY statement, each text word introduced appears on a debugging line if the COPY statement begins on a debugging line or if the text word being introduced appears on a debugging line in library text. When a text word specified in the BY phrase is introduced, it appears on a debugging line if the first library text word being replaced is specified on a debugging line.
530
When a COPY statement is specified on a debugging line, the copied text is treated as though it appeared on a debugging line, except that comment lines in the text appear as comment lines in the resulting source text. If the word COPY appears in a comment-entry, or in the place where a comment-entry can appear, it is considered part of the comment-entry. After all COPY and REPLACE statements have been processed, a debugging line will be considered to have all the characteristics of a comment line, if the WITH DEBUGGING MODE clause is not specified in the SOURCE-COMPUTER paragraph. Comment lines or blank lines can occur in library text. Comment lines or blank lines appearing in library text are copied into the resultant source text unchanged with the following exception: a comment line or blank line in library text is not copied if that comment line or blank line appears within the sequence of text words that match operand-1 (see Replacement and comparison rules on page 532). Lines containing *CONTROL (*CBL), EJECT, SKIP1, SKIP2, SKIP3, or TITLE statements can occur in library text. Such lines are treated as comment lines during COPY statement processing. The syntactic correctness of the entire COBOL source text cannot be determined until all COPY and REPLACE statements have been completely processed, because the syntactic correctness of the library text cannot be independently determined. Library text copied from the library is placed into the same area of the resultant program as it is in the library. Library text must conform to the rules for Standard COBOL 85 format. Note: Characters outside those defined for COBOL words and separators must not appear in library text or pseudo-text except in comment lines, comment-entries, alphanumeric literals, DBCS literals, or national literals.
SUPPRESS phrase
The SUPPRESS phrase specifies that the library text is not to be printed on the source listing.
REPLACING phrase
In the discussion that follows, each operand can consist of one of the following: v Pseudo-text v An identifier v A literal v A COBOL word (except the word COPY) v Function identifier When the REPLACING phrase is specified, the library text is copied, and each properly matched occurrence of operand-1 within the library text is replaced by the associated operand-2.
531
pseudo-text A sequence of character-strings or separators, or both, bounded by, but not including, pseudo-text delimiters (==). Both characters of each pseudo-text delimiter must appear on one line; however, character-strings within pseudo-text can be continued. Individual character-strings within pseudo-text can be up to 322 characters long; they can be continued subject to the normal continuation rules for source code format. Keep in mind that a character-string must be delimited by separators. For more information, see Chapter 1, Characters, on page 3. pseudo-text-1 refers to pseudo-text when used for operand-1, and pseudo-text-2 refers to pseudo-text when used for operand-2. pseudo-text-1 can consist solely of the separator comma or separator semicolon. pseudo-text-2 can be null; it can consist solely of space characters or comment lines. Pseudo-text must not contain the word COPY. Each text word in pseudo-text-2 that is to be copied into the program is placed in the same area of the resultant program as the area in which it appears in pseudo-text-2. Pseudo-text can consist of or include any words (except COPY), identifiers, or literals that can be written in the source text. This includes DBCS user-defined words, DBCS literals, and national literals. DBCS user-defined words must be wholly formed; that is, there is no partial-word replacement for DBCS words. Words or literals containing DBCS characters cannot be continued across lines. identifier Can be defined in any section of the data division. literal Can be numeric, alphanumeric, DBCS, or national. word Can be any single COBOL word (except COPY), including DBCS user-defined words. DBCS user-defined words must be wholly formed. You cannot replace part of a DBCS word. You can include the nonseparator COBOL characters (for example, +, *, /, $, <, >, and =) as part of a COBOL word when used as REPLACING operands. In addition, the hyphen character can be at the beginning or end of the word. For purposes of matching, each identifier-1, literal-1, or word-1 is treated as pseudo-text containing only identifier-1, literal-1, or word-1, respectively.
532
3. When operand-1 is a figurative constant, operand-1 matches only the same exact figurative constant. For example, if ALL AB is specified in the library text, then ABAB is not considered a match; only ALL AB is considered a match. 4. When replacing a PICTURE character-string, the pseudo-text option should be used; to avoid ambiguities, pseudo-text-1 should specify the entire PICTURE clause, including the keyword PICTURE or PIC. 5. Any separator comma, semicolon, and/or space preceding the leftmost word in the library text is copied into the source text. Beginning with the leftmost library text word and the first operand-1 specified in the REPLACING option, the entire REPLACING operand that precedes the keyword BY is compared to an equivalent number of contiguous library text words. 6. operand-1 matches the library text if, and only if, the ordered sequence of text words in operand-1 is equal, character for character, to the ordered sequence of library words. For national characters, the sequence of national characters must be equal, national character for national character, to the ordered sequence of library words. For matching purposes, each occurrence of a comma or semicolon separator and each sequence of one or more space separators is considered to be a single space. However, when operand-1 consists solely of a separator comma or semicolon, it participates in the match as a text word (in this case, the space following the comma or semicolon separator can be omitted). When the library text contains a closing quotation mark that is not immediately followed by a separator space, comma, semicolon, or period, the closing quotation mark is considered a separator quotation mark. 7. If no match occurs, the comparison is repeated with each successive operand-1, if specified, until either a match is found or there are no further REPLACING operands. 8. Whenever a match occurs between operand-1 and the library text, the associated operand-2 is copied into the source text. 9. The COPY statement with REPLACING phrase can be used to replace parts of words. By inserting a dummy operand delimited by colons into the program text, the compiler will replace the dummy operand with the desired text. Example 3 shows how this is used with the dummy operand :TAG:. The colons serve as separators and make TAG a stand-alone operand. 10. When all operands have been compared and no match is found, the leftmost library text word is copied into the source text. 11. The next successive uncopied library text word is then considered to be the leftmost text word, and the comparison process is repeated, beginning with the first operand-1. The process continues until the rightmost library text word has been compared. 12. Comment lines or blank lines occurring in the library text and in pseudo-text-1 are ignored for purposes of matching; and the sequence of text words in the library text and in pseudo-text-1 is determined by the rules for reference format. Comment lines or blank lines appearing in pseudo-text-2 are copied into the resultant program unchanged whenever pseudo-text-2 is placed into the source text as a result of text replacement. Comment lines or blank lines appearing in library text are copied into the resultant source text unchanged with the following exception: a comment line or blank line in library text is not copied if that comment line or blank line appears within the sequence of text words that match pseudo-text-1. 13. Text words, after replacement, are placed in the source text according to Standard COBOL 85 format rules.
533
14. When text words are placed in the source text, additional spaces are introduced only between text words where there already exists a space (including the assumed space between source lines). 15. COPY REPLACING does not affect the EJECT, SKIP1, SKIP2, SKIP3, or TITLE compiler-directing statements. Sequences of code (such as file and data descriptions, error and exception routines) that are common to a number of programs can be saved in a library, and then used in conjunction with the COPY statement. If naming conventions are established for such common code, then the REPLACING phrase need not be specified. If the names will change from one program to another, then the REPLACING phrase can be used to supply meaningful names for this program. Example 1 In this example, the library text PAYLIB consists of the following data division entries:
01 A. 02 B PIC S99. 02 C PIC S9(5)V99. 02 D PIC S9999 OCCURS 1 TO 52 TIMES DEPENDING ON B OF A.
The programmer can use the COPY statement in the data division of a program as follows:
COPY PAYLIB.
In this program, the library text is copied; the resulting text is treated as if it had been written as follows:
01 A. 02 B PIC S99. 02 C PIC S9(5)V99. 02 D PIC S9999 OCCURS 1 TO 52 TIMES DEPENDING ON B OF A.
Example 2 To change some (or all) of the names within the library text, the programmer can use the REPLACING phrase:
COPY PAYLIB REPLACING A B C D BY BY BY BY PAYROLL PAY-CODE GROSS-PAY HOURS.
In this program, the library text is copied; the resulting text is treated as if it had been written as follows:
01 PAYROLL. 02 PAY-CODE PIC S99. 02 GROSS-PAY PIC S9(5)V99. 02 HOURS PIC S9999 OCCURS 1 TO 52 TIMES DEPENDING ON PAY-CODE OF PAYROLL.
The changes shown are made only for this program. The text, as it appears in the library, remains unchanged. Example 3
534
If the following conventions are followed in library text, then parts of names (for example the prefix portion of data names) can be changed with the REPLACING phrase. In this example, the library text PAYLIB consists of the following data division entries:
01 :TAG:. 02 :TAG:-WEEK PIC S99. 02 :TAG:-GROSS-PAY PIC S9(5)V99. 02 :TAG:-HOURS PIC S999 OCCURS 1 TO 52 TIMES DEPENDING ON :TAG:-WEEK OF :TAG:.
The programmer can use the COPY statement in the data division of a program as follows:
COPY PAYLIB REPLACING ==:TAG:== BY ==Payroll==.
Note: It is important to notice in this example the required use of colons or parentheses as delimiters in the library text. Colons are recommended for clarity because parentheses can be used for a subscript, for instance in referencing a table element. In this program, the library text is copied; the resulting text is treated as if it had been written as follows:
01 PAYROLL. 02 PAYROLL-WEEK PIC S99. 02 PAYROLL-GROSS-PAY PIC S9(5)V99. 02 PAYROLL-HOURS PIC S999 OCCURS 1 TO 52 TIMES DEPENDING ON PAYROLL-WEEK OF PAYROLL.
The changes shown are made only for this program. The text, as it appears in the library, remains unchanged. Example 4 This example shows how to selectively replace level numbers without replacing the numbers in the PICTURE clause:
COPY xxx REPLACING ==(01)== BY ==(01)== == 01 == BY == 05 ==.
DELETE statement
The DELETE statement is an extended source library statement. It removes COBOL statements from a source program that was included by a BASIS statement.
Format
DELETE sequence-number-field sequence-number
sequence-number Can optionally appear in columns 1 through 6, followed by a space. The content of this field is ignored.
535
DELETE Can appear anywhere within columns 1 through 72. It must be followed by a space and the sequence-number-field. There must be no other text in the statement. sequence-number-field Each number must be equal to a sequence-number in the BASIS source program. This sequence-number is the six-digit number the programmer assigns in columns 1 through 6 of the COBOL coding form. The numbers referenced in the sequence-number-field of INSERT or DELETE statements must always be specified in ascending numeric order. The sequence-number-field must be one of the following: v A single number v A series of single numbers v A range of numbers (indicated by separating the two bounding numbers of the range by a hyphen) v A series of ranges of numbers v Any combination of one or more single numbers and one or more ranges of numbers Each entry in the sequence-number-field must be separated from the preceding entry by a comma followed by a space. For example:
000250 DELETE 000010-000050, 000400, 000450
Source program statements can follow a DELETE statement. These source program statements are then inserted into the BASIS source program before the statement following the last statement deleted (that is, in the example above, before the next statement following deleted statement 000450). If a DELETE statement begins in column 12 or higher and a valid sequence-number-field does not follow the keyword DELETE, the compiler assumes that this DELETE statement is a COBOL DELETE statement. Usage note: If INSERT or DELETE statements are used to modify the COBOL source program provided by a BASIS statement, the sequence field of the COBOL source program must contain numeric sequence numbers in ascending order. The source file remains unchanged. Any INSERT or DELETE statements referring to these sequence numbers must occur in ascending order.
EJECT statement
The EJECT statement specifies that the next source statement is to be printed at the top of the next page.
Format
EJECT .
The EJECT statement must be the only statement on the line. It can be written in either Area A or Area B, and can be terminated with a separator period.
536
The EJECT statement must be embedded in a program source. For example, in the case of batch applications, the EJECT statement must be placed between the CBL (PROCESS) statement and the end of the program (or the END PROGRAM marker, if specified). The EJECT statement has no effect on the compilation of the source unit itself.
ENTER statement
The ENTER statement is designed to facilitate the use of more than one source language in the same source program. However, only COBOL is allowed in the source program. The ENTER statement is syntax checked but has no effect on the execution of the program.
Format
ENTER language-name-1 routine-name-1 .
language-name-1 A system name that has no defined meaning. It must be either a correctly formed user-defined word or the word COBOL. At least one character must be alphabetic. routine-name-1 Must follow the rules for formation of a user-defined word. At least one character must be alphabetic.
INSERT statement
The INSERT statement is a library statement that adds COBOL statements to a source program that was included by a BASIS statement.
Format
INSERT sequence-number-field sequence-number
sequence-number Can optionally appear in columns 1 through 6, followed by a space. The content of this field is ignored. INSERT Can appear anywhere within columns 1 through 72, followed by a space and the sequence-number-field. There must be no other text in the statement. sequence-number-field A number that must be equal to a sequence-number in the BASIS source program. This sequence-number is a six-digit number that the programmer assigns in columns 1 through 6 of the COBOL source line.
Chapter 23. Compiler-directing statements
537
The numbers referenced in the sequence-number-field of INSERT or DELETE statements must always be specified in ascending numeric order. The sequence-number-field must be a single number (for example, 000130). At least one new source program statement must follow the INSERT statement for insertion after the statement number specified by the sequence-number-field. | | New source program statements following the INSERT statement can include any COBOL syntax. Usage note: If INSERT or DELETE statements are used to modify the COBOL source program provided by a BASIS statement, the sequence field of the COBOL source program must contain numeric sequence numbers in ascending order. The source file remains unchanged. Any INSERT or DELETE statements referring to these sequence numbers must occur in ascending order.
Format
READY RESET TRACE .
You can trace the execution of procedures by using the USE FOR DEBUGGING declarative as described in Example: USE FOR DEBUGGING in the Enterprise COBOL Programming Guide.
REPLACE statement
The REPLACE statement is used to replace source text. A REPLACE statement can occur anywhere in the source text that a character-string can occur. It must be preceded by a separator period except when it is the first statement in a separately compiled program. It must be terminated by a separator period. The REPLACE statement provides a means of applying a change to an entire COBOL compilation group, or part of a compilation group, without manually having to find and modify all places that need to be changed. It is an easy method of doing simple string substitutions. It is similar in action to the REPLACING phrase of the COPY statement, except that it acts on the entire source text, not just on the text in COPY libraries. If the word REPLACE appears in a comment-entry or in the place where a comment-entry can appear, it is considered part of the comment-entry.
538
Format 1
REPLACE
==
pseudo-text-1
==
BY
==
pseudo-text-2
==
Each matched occurrence of pseudo-text-1 in the source text is replaced by the corresponding pseudo-text-2.
Format 2
REPLACE OFF.
Any text replacement currently in effect is discontinued with the format-2 form of REPLACE. If format 2 is not specified, a given occurrence of the REPLACE statement is in effect from the point at which it is specified until the next occurrence of a REPLACE statement or the end of the separately compiled program. pseudo-text-1 Must contain one or more text words. Character-strings can be continued in accordance with normal source code rules. pseudo-text-1 can consist solely of a separator comma or a separator semicolon. pseudo-text-2 Can contain zero, one, or more text words. Character strings can be continued in accordance with normal source code rules. pseudo-text-1 and pseudo-text-2 can contain any text words (except the word COPY) that can be written in source text, including national literals, DBCS literals, and DBCS user-defined words. Characters outside those allowed for COBOL words and separators must not appear in library text or pseudo-text except in comment lines, comment-entries, alphanumeric literals, DBCS literals, or national literals. DBCS user-defined words must be wholly formed; that is, there is no partial-word replacement for DBCS words. pseudo-text-1 and pseudo-text-2 can contain single-byte and DBCS characters in comment lines and comment entries. Individual character-strings within pseudo-text can be up to 322 characters long, except that strings containing DBCS characters cannot be continued.
539
The compiler processes REPLACE statements in source text after the processing of any COPY statements. COPY must be processed first, to assemble complete source text. Then REPLACE can be used to modify that source text, performing simple string substitution. REPLACE statements cannot themselves contain COPY statements. The text produced as a result of the processing of a REPLACE statement must not contain a REPLACE statement.
Comparison operation
The comparison operation to determine text replacement starts with the leftmost source text word following the REPLACE statement, and with the first pseudo-text-1. pseudo-text-1 is compared to an equivalent number of contiguous source text words. pseudo-text-1 matches the source text if, and only if, the ordered sequence of text words that forms pseudo-text-1 is equal, character for character, to the ordered sequence of source text words. For national characters, the sequence of national characters must be equal, national character for national character, to the ordered sequence of library words. For purposes of matching, each occurrence of a separator comma, semicolon, or space, and each sequence of one or more space separators is considered to be a single space. However, when pseudo-text-1 consists solely of a separator comma or semicolon, the comma or semicolon participates in the match as a text word (in this case, the space following the comma or semicolon separator can be omitted). If no match occurs, the comparison is repeated with each successive occurrence of pseudo-text-1, until either a match is found or there is no next successive occurrence of pseudo-text-1. When all occurrences of pseudo-text-1 have been compared and no match has occurred, the next successive source text word is then considered as the leftmost source text word, and the comparison cycle starts again with the first occurrence of pseudo-text-1. Whenever a match occurs between pseudo-text-1 and the source text, the corresponding pseudo-text-2 replaces the matched text in the source text. The source text word immediately following the rightmost text word that participated in the match is then considered as the leftmost source text word. The comparison cycle starts again with the first occurrence of pseudo-text-1. The comparison operation continues until the rightmost text word in the source text that is within the scope of the REPLACE statement has either participated in a match or been considered as a leftmost source text word and participated in a complete comparison cycle.
540
541
Format
SERVICE LABEL
The SERVICE LABEL statement can appear only in the procedure division, but not in the declaratives section. At the statement following the SERVICE LABEL statement, all registers that might no longer be valid are reloaded.
Format
SERVICE RELOAD identifier-1
SKIP statements
The SKIP1, SKIP2, and SKIP3 statements specify blank lines that the compiler should add when printing the source listing. SKIP statements have no effect on the compilation of the source text itself.
Format
SKIP1 SKIP2 SKIP3
SKIP1 Specifies a single blank line to be inserted in the source listing. SKIP2 Specifies two blank lines to be inserted in the source listing. SKIP3 Specifies three blank lines to be inserted in the source listing. SKIP1, SKIP2, or SKIP3 can be written anywhere in either Area A or Area B, and can be terminated with a separator period. It must be the only statement on the line.
542
The SKIP statements must be embedded in a program source. For example, in the case of batch applications, a SKIP1, SKIP2, or SKIP3 statement must be placed between the CBL (PROCESS) statement and the end of the program or class (or the END CLASS marker or END PROGRAM marker, if specified).
TITLE statement
The TITLE statement specifies a title to be printed at the top of each page of the source listing produced during compilation. If no TITLE statement is found, a title containing the identification of the compiler and the current release level is generated. The title is left-justified on the title line.
Format
TITLE literal .
literal Must be an alphanumeric literal, DBCS literal, or national literal and can be followed by a separator period. Must not be a figurative constant. In addition to the default or chosen title, the right side of the title line contains the following: v For programs, the name of the program from the PROGRAM-ID paragraph for the outermost program. (This space is blank on pages preceding the PROGRAM-ID paragraph for the outermost program.) v For classes, the name of the class from the CLASS-ID paragraph. v Current page number. v Date and time of compilation. The TITLE statement: v Forces a new page immediately, if the SOURCE compiler option is in effect v Is not itself printed on the source listing v Has no other effect on compilation v Has no effect on program execution v Cannot be continued on another line v Can appear anywhere in any of the divisions A title line is produced for each page in the listing produced by the LIST option. This title line uses the last TITLE statement found in the source statements or the default. The word TITLE can begin in either Area A or Area B. The TITLE statement must be embedded in a class or program source. For example, in the case of batch applications, the TITLE statement must be placed between the CBL (PROCESS) statement and the end of the class or program (or the END CLASS marker or END PROGRAM marker, if specified). No other statement can appear on the same line as the TITLE statement.
Chapter 23. Compiler-directing statements
543
USE statement
The formats for the USE statement are: v EXCEPTION/ERROR declarative v LABEL declarative v DEBUGGING declarative For general information about declaratives, see Declaratives on page 250.
EXCEPTION/ERROR declarative
The EXCEPTION/ERROR declarative specifies procedures for input/output exception or error handling that are to be executed in addition to the standard system procedures. The words EXCEPTION and ERROR are synonymous and can be used interchangeably.
ON
file-name-1 Valid for all files. When this option is specified, the procedure is executed only for the files named. No file-name can refer to a sort or merge file. For any given file, only one EXCEPTION/ERROR procedure can be specified; thus, file-name specification must not cause simultaneous requests for execution of more than one EXCEPTION/ERROR procedure. A USE AFTER EXCEPTION/ERROR declarative statement specifying the name of a file takes precedence over a declarative statement specifying the open mode of the file. INPUT Valid for all files. When this option is specified, the procedure is executed for all files opened in INPUT mode or in the process of being opened in INPUT mode that get an error. OUTPUT Valid for all files. When this option is specified, the procedure is executed for all files opened in OUTPUT mode or in the process of being opened in OUTPUT mode that get an error.
544
I-O
Valid for all direct-access files. When this option is specified, the procedure is executed for all files opened in I-O mode or in the process of being opened in I-O mode that get an error.
EXTEND Valid for all files. When this option is specified, the procedure is executed for all files opened in EXTEND mode or in the process of being opened in EXTEND mode that get an error. The EXCEPTION/ERROR procedure is executed: v Either after completing the system-defined input/output error routine, or v Upon recognition of an INVALID KEY or AT END condition when an INVALID KEY or AT END phrase has not been specified in the input/output statement, or v Upon recognition of an IBM-defined condition that causes file status key 1 to be set to 9. (See File status key on page 292.) After execution of the EXCEPTION/ERROR procedure, control is returned to the invoking routine in the input/output control system. If the input/output status value does not indicate a critical input/output error, the input/output control system returns control to the next executable statement following the input/output statement whose execution caused the exception. An applicable EXCEPTION/ERROR procedure is activated when an input/output error occurs during execution of a READ, WRITE, REWRITE, START, OPEN, CLOSE, or DELETE statement. To determine what conditions are errors, see Common processing facilities on page 292. The following rules apply to declarative procedures: v A declarative procedure can be performed from a nondeclarative procedure. v A nondeclarative procedure can be performed from a declarative procedure. v A declarative procedure can be referenced in a GO TO statement in a declarative procedure. v A nondeclarative procedure can be referenced in a GO TO statement in a declarative procedure. You can include a statement that executes a previously called USE procedure that is still in control. However, to avoid an infinite loop, you must be sure that there is an eventual exit at the bottom. EXCEPTION/ERROR procedures can be used to check the file status key values whenever an input/output error occurs.
545
3. A file-specific declarative that specifies the GLOBAL phrase and is within the program directly containing the program that was last examined for a qualifying declarative. 4. A mode-specific declarative that specifies the GLOBAL phrase and is within the program directly containing the program that was last examined for a qualifying condition. Steps 3 and 4 are repeated until the last examined program is the outermost program, or until a qualifying declarative has been found.
LABEL declarative
The LABEL declarative provides user label-handling procedures.
LABEL PROCEDURE ON
AFTER User labels follow standard file labels, and are to be processed. The labels must be listed as data names in the LABEL RECORDS clause in the file description entry for the file, and must be described as level-01 data items subordinate to the file entry. If neither BEGINNING nor ENDING is specified, the designated procedures are executed for both beginning and ending labels. If FILE, REEL, or UNIT is not included, the designated procedures are executed both for REEL or UNIT, whichever is appropriate, and for FILE labels. FILE REEL The designated procedures are executed at beginning-of-file (on the first volume) and/or at end-of-file (on the last volume) only. The designated procedures are executed at beginning-of-volume (on each volume except the first) and/or at end-of-volume (on each volume except the last). The REEL option is not applicable to direct-access files.
546
UNIT The designated procedures are executed at beginning-of-volume (on each volume except the first) and/or at end-of-volume (on each volume except the last). The UNIT phrase is not applicable to files in the random access mode, because only FILE labels are processed in this mode. file-name-1 Can appear in different specific arrangements of the format. However, appearance of a file-name in a USE statement must not cause the simultaneous request for execution of more than one USE declarative. file-name-1 must not represent a sort file. If the file-name-1 option is used, the file description entry for file-name must not specify a LABEL RECORDS ARE OMITTED clause. When the INPUT, OUTPUT, or I-O options are specified, user label procedures are executed as follows: v When INPUT is specified, only for files opened as input v When OUTPUT is specified, only for files opened as output v When I-O is specified, only for files opened as I-O v When EXTEND is specified, only for files opened EXTEND If the INPUT, OUTPUT, or I-O phrase is specified, and an input, output, or I-O file, respectively, is described with a LABEL RECORDS ARE OMITTED clause, the USE procedures do not apply. The standard system procedures are performed: v Before the beginning or ending input label check procedure is executed v Before the beginning or ending output label is created v After the beginning or ending output label is created, but before it is written on tape v Before the beginning or ending input-output label check procedure is executed Within the procedures of a USE declarative in which the USE sentence specifies an option other than file-name, references to common label items need not be qualified by a file-name. A common label item is an elementary data item that appears in every label record of the program, but does not appear in any data records of this program. Such items must have identical descriptions and positions within each label record. Within a declarative section there must be no reference to any nondeclarative procedure. Conversely, in the nondeclarative portion there must be no reference to procedure-names that appear in the declarative section, except that the PERFORM statement can refer to a USE procedure, or to procedures associated with it. The exit from a declarative section is inserted by the compiler following the last statement in the section. All logical processing paths within the section must lead to the exit point. There is one exception: A special exit can be specified by the statement GO TO MORE-LABELS. When an exit is made from a declarative section by means of this statement, the system will do one of the following: v Write the current beginning or ending label and then reenter the USE section at its beginning for further creating of labels. After creating the last label, the user must exit by executing the last statement of the section.
Chapter 23. Compiler-directing statements
547
v Read an additional beginning or ending label, and then reenter the USE section at its beginning for further checking of labels. When processing user labels, the section will be reentered only if there is another user label to check. Hence, there need not be a program path that flows through the last statement in the section. If a GO TO MORE-LABELS statement is not executed for a user label, the declarative section is not reentered to check or create any immediately succeeding user labels.
DEBUGGING declarative
Debugging sections are permitted only in the outermost program; they are not valid in nested programs. Debugging sections are never triggered by procedures contained in nested programs. Debugging sections are not permitted in: v A method v A program defined with the recursive attribute v A program compiled with the THREAD compiler option The WITH DEBUGGING MODE clause of the SOURCE-COMPUTER paragraph activates all debugging sections and lines that have been compiled into the object code. See Appendix D, Source language debugging, on page 577 for additional details. When the debugging mode is suppressed by not specifying the WITH DEBUGGING MODE clause, all USE FOR DEBUGGING declarative procedures and all debugging lines are inhibited. Automatic execution of a debugging section is not caused by a statement that appears in a debugging section.
USE FOR
DEBUGGING ON
USE FOR DEBUGGING All debugging statements must be written together in a section immediately after the DECLARATIVES header. Except for the USE FOR DEBUGGING sentence itself, within the debugging procedure there must be no reference to any nondeclarative procedures. procedure-name-1 Must not be defined in a debugging session.
548
Execution of debugging declaratives (Table 57) shows, for each valid option, the points during execution when the USE FOR DEBUGGING procedures are executed. Any given procedure-name can appear in only one USE FOR DEBUGGING sentence, and only once in that sentence. All procedures must appear in the outermost program. ALL PROCEDURES procedure-name-1 must not be specified in any USE FOR DEBUGGING sentences. The ALL PROCEDURES phrase can be specified only once in a program. Only the procedures contained in the outermost program will trigger execution of the debugging section.
Table 57. Execution of debugging declaratives USE FOR DEBUGGING operand procedure-name-1 Upon execution of the following, the USE FOR DEBUGGING procedures are executed immediately Before each execution of the named procedure After the execution of an ALTER statement referring to the named procedure ALL PROCEDURES Before each execution of every nondebugging procedure in the outermost program After the execution of every ALTER statement in the outermost program (except ALTER statements in declarative procedures)
549
550
Part 9. Appendixes
551
552
| | |
| |
National character value for figurative constants SPACE, ZERO, QUOTE, HIGH-VALUES, LOW-VALUES, ALL literal Intrinsic functions for data conversion: v DISPLAY-OF v NATIONAL-OF Extended case mapping with UPPER-CASE and LOWER-CASE functions
553
Table 58. IBM extension language elements (continued) Language area Implicit items Extension elements Special object references: v SELF v SUPER Special registers: v ADDRESS OF v JNIENVPTR v LENGTH OF v RETURN-CODE v SHIFT-IN v SHIFT-OUT v SORT-CONTROL v SORT-CORE-SIZE v SORT-FILE-SIZE v SORT-MESSAGE v SORT-MODE-SIZE v SORT-RETURN v TALLY v WHEN-COMPILED v XML-CODE v XML-EVENT v XML-NTEXT v XML-TEXT Figurative constants Selection of apostrophe () as the value of the figurative constant QUOTE NULL/NULLS for pointers and object references Literals Use of apostrophe () as an alternative to the quotation mark () in opening and closing delimiters Mixed single-byte and double-byte characters in alphanumeric literals (mixed literals) Hexadecimal notation for alphanumeric literals, defined by opening delimiters X and X Null-terminated alphanumeric literals, defined by opening delimiters Z and Z DBCS literals, defined by opening delimiters N, N, G, and G. N and N are defined as DBCS when the NSYMBOL(DBCS) compiler option is in effect. Consecutive alphanumeric literals (coding two consecutive alphanumeric literals by ending the first literal in column 72 of a continued line and starting the next literal with a single quotation mark in the continuation line) National literals N, N, NX, NX for storing literal content as national characters. N and N are defined as national when the NSYMBOL(NATIONAL) compiler option is in effect. 19- to 31-digit fixed-point numeric literals. [Standard COBOL 85 specifies a maximum of 18 digits.] Floating-point numeric literals
554
Table 58. IBM extension language elements (continued) Language area Comments Extension elements Comment lines before the identification division header Comment lines and comment entries containing DBCS characters End markers The following end markers: v END CLASS v END FACTORY v END METHOD v END OBJECT Indexing and subscripting Referencing a table with an index-name defined for a different table Specifying a positive signed integer literal following the operator + or - in relative subscripting Millennium language extensions and date fields. DATE FORMAT clause Windowed date fields, expanded date fields, year-last date fields, compatible date fields, date formats, and century window The following intrinsic functions: v DATEVAL v UNDATE v YEARWINDOW v DATE-TO-YYYYMMDD v DAY-TO-YYYYDDD v YEAR-TO-YYYY Identification division for programs Abbreviation ID for IDENTIFICATION RECURSIVE clause An optional separator period following PROGRAM-ID, AUTHOR, INSTALLATION, DATE-WRITTEN, and SECURITY paragraph headers. [Standard COBOL 85 requires a period following each of these paragraph headers.] An optional separator period following program-name in the PROGRAM-ID paragraph. [Standard COBOL 85 requires a period following program-name.] An alphanumeric literal for program-name in the PROGRAM-ID paragraph; characters $, #, and @ in the name of the outermost program; program-name up to 160 characters in length. [Standard COBOL 85 requires that program-name be specified as a user-defined word.] End markers Object-oriented structure Program-name in a literal. [Standard COBOL 85 requires that program-name be specified as a user-defined word.] In a class definition: v CLASS-ID paragraph v INHERITS clause v END CLASS marker In a method definition: v METHOD-ID paragraph v EXIT METHOD statement v END METHOD marker Configuration section Repository paragraph
555
Table 58. IBM extension language elements (continued) Language area SPECIAL-NAMES paragraph Extension elements The optional order of clauses. [Standard COBOL 85 requires that the clauses be coded in the order presented in the syntax diagram.] Optionality of a period after the last clause when no clauses are coded. [Standard COBOL 85 requires a period, even when no clauses are coded.] Multiple CURRENCY SIGN clauses. [Standard COBOL 85 allows a single CURRENCY SIGN clause.] WITH PICTURE SYMBOL phrase in the CURRENCY SIGN clause Multiple-character and mixed-case currency signs in the CURRENCY SIGN clause (when the WITH PICTURE SYMBOL phrase is specified). [Standard COBOL 85 allows only one character, and it is both the currency sign and the currency picture symbol. The standard currency sign must not be: v The same character as any standard picture symbol v A digit 0-9 v One of the special characters * + - , ; ( ) = / v A space ] Use of lower-case alphabetic characters as a currency sign. [Standard COBOL 85 allows only uppercase characters.] INPUT-OUTPUT SECTION, FILE-CONTROL paragraph Optionality of FILE-CONTROL. when the INPUT-OUTPUT SECTION is specified, no file-control-paragraph is specified, and there are no files defined in the compilation unit. [Standard COBOL 85 requires that FILE-CONTROL. be coded if INPUT-OUTPUT SECTION. is coded.] Optionality of the file-control-paragraph when the FILE CONTROL. syntax is specified and there are no files defined in the compilation unit. [Standard COBOL 85 requires that a file-control-paragraph be coded if INPUT-OUTPUT SECTION. is coded.] PASSWORD clause The second data-name in the FILE STATUS clause Optionality of RECORD in the ALTERNATE RECORD KEY clause. [Standard COBOL 85 requires the word RECORD.]
| | |
A numeric, numeric-edited, alphanumeric-edited, alphabetic, internal floating-point, external floating-point, national, national-edited, or DBCS primary or alternate record key data item. [Standard COBOL 85 requires that the key be alphanumeric.] A primary or alternate record key defined outside the minimum record size for indexed files containing variable-length records. [Standard COBOL 85 requires that the primary and alternate record keys be within the minimum record size.]
A numeric data item of usage DISPLAY or NATIONAL in the FILE STATUS clause. [Standard COBOL 85 requires an alphanumeric file status data item.] The ORGANIZATION IS LINE SEQUENTIAL clause and line-sequential file control format
556
Table 58. IBM extension language elements (continued) Language area INPUT-OUTPUT SECTION, I-O-CONTROL paragraph Extension elements APPLY WRITE-ONLY clause Specifying only one file-name in the SAME clause in the sequential, indexed, and sort-merge formats of the I-O-control entry. [Standard COBOL 85 requires at least two file-names.] Optionality of the keyword ON in the RERUN clause. [Standard COBOL 85 requires that ON be coded.] The line-sequential format I-O-control entry The RERUN clause in the sort-merge I-O-control entry DATA DIVISION LOCAL-STORAGE SECTION The GLOBAL clause in the linkage section Specifying level numbers that are lower than other level numbers at the same hierarchical level in a data description entry. [Standard COBOL 85 requires that all elementary or group items at the same level in the hierarchy be assigned identical level numbers.]
| | | | | |
File section
Data categories internal floating-point, external floating-point, DBCS, national, and national-edited. Data category numeric with usage NATIONAL. Data category numeric-edited with usage NATIONAL. data-name in the LABEL RECORDS clause, for specifying user labels RECORDING MODE clause Line-sequential format file description entry Sort/merge file description entry The following clauses: v BLOCK CONTAINS v LABEL RECORDS v VALUE OF v LINAGE v CODE-SET v WITH FOOTING v LINES AT BLOCK CONTAINS clause VALUE OF clause DATA RECORDS clause LINAGE clause Data Description Entry BLANK WHEN ZERO clause GLOBAL clause BLOCK CONTAINS 0 for QSAM files. [Standard COBOL 85 requires that at least 1 CHARACTER or RECORD be specified in the BLOCK CONTAINS clause.] The lack of VALUE clause effect on execution when specified under an SD Optionality of an 01 record description entry for a specified data-name. [Standard COBOL 85 requires that an 01 record with the same data-name be specified.] Specifying LINAGE for files opened in EXTEND mode DATE-FORMAT clause Alternative spellings ZEROS and ZEROES for ZERO Specifying GLOBAL in the linkage section
557
Table 58. IBM extension language elements (continued) Language area INDEXED BY phrase OCCURS clause Extension elements Nonunique unreferenced index names Omission of integer-1 TO for variable-length tables Complex OCCURS DEPENDING ON. [Standard COBOL 85 requires that an entry containing OCCURS DEPENDING ON be followed only by subordinate entries, and that no entry containing OCCURS DEPENDING ON be subordinate to an entry containing OCCURS DEPENDING ON.] Implicit qualification of a key specified without qualifiers when the key name is not unique Reference to a table through indexing when no INDEXED BY phrase is specified Keys of usages COMPUTATIONAL-1, COMPUTATIONAL-2, COMPUTATIONAL-3, COMPUTATIONAL-4, and COMPUTATIONAL-5 in the ASCENDING/DESCENDING KEY phrase Acceptance of nonunique index-names that are not referenced PICTURE clause A picture character-string containing 31 to 50 characters. [Standard COBOL 85 allows a maximum of 30 characters.] Picture symbols G and N Picture symbol E and the external floating-point picture format Coding a trailing comma insertion character or trailing period insertion character immediately followed by a separator comma or separator semicolon in a PICTURE clause that is not the last clause of a data description entry. [Standard COBOL 85 requires that a PICTURE clause containing a picture ending with a comma or period be the last clause in the entry and that it be followed immediately by a separator period.] Selecting a currency sign and currency symbol with the CURRENCY compiler option Case-sensitive currency symbols The maximum of 31 digits for numeric items of usages DISPLAY and PACKED-DECIMAL and for numeric-edited items of USAGE DISPLAY The effect of the TRUNC compiler option on the value of data items described with a usage of BINARY, COMPUTATIONAL, or COMPUTATIONAL-4 REDEFINES clause Specifying REDEFINES of a redefined data item At a subordinate level, specifying a redefining data item that has a size greater than the size of the redefined data item SYNCHRONIZED clause Specifying SYNCHRONIZED for a level 01 entry
| |
558
Table 58. IBM extension language elements (continued) Language area USAGE clause Extension elements The phrases: v NATIVE v COMP-1 and COMPUTATIONAL-1 v COMP-2 and COMPUTATIONAL-2 v COMP-3 and COMPUTATIONAL-3 v COMP-4 and COMPUTATIONAL-4 v COMP-5 and COMPUTATIONAL-5 v DISPLAY-1 v OBJECT REFERENCE v NATIONAL v POINTER v PROCEDURE-POINTER v FUNCTION-POINTER Use of the SYNCHRONIZED clause for items of usage INDEX VALUE clause for condition-name entries A VALUE clause in file and linkage sections in other than condition-name entries A VALUE clause for a condition-name entry on a group that has usages other than DISPLAY VALUE IS NULL and VALUE IS NULLS Procedure division Omission of a section-name Omission of a paragraph-name when a section-name is omitted A method, factory, or object procedure division Referencing data items in the linkage section without a USING phrase in the procedure division header (when those data-names are the operand of an ADDRESS OF phrase or ADDRESS OF special register) The statements: v ENTRY v EXIT METHOD v GOBACK v INVOKE v XML PARSE v XML GENERATE Procedure division header The BY VALUE phrase The RETURNING phrase Specifying a data item in the USING phrase when the data item has a REDEFINES clause in its description Specifying multiple instances of a given data item in the USING phrase The formats for method, factory, and object definitions
559
Table 58. IBM extension language elements (continued) Language area Declarative Procedures Extension elements The LABEL declarative Performing a nondeclarative procedure from a declarative procedure Referencing a declarative procedure or nondeclarative procedure in a GO TO statement from a declarative procedure. [Standard COBOL 85 specifies that a declarative procedure must not reference a nondeclarative procedure. A reference to a declarative procedure from either another declarative procedure or a nondeclarative procedure is allowed only with a PERFORM statement.] Executing an active declarative Procedures Specifying priority-number as a positive signed numeric literal. [Standard COBOL 85 requires an unsigned integer.] Omitting the section-header after the declaratives or when there are no declaratives. [Standard COBOL 85 requires a section-header following the DECLARATIVES. syntax and following the END DECLARATIVES. syntax.] Omitting an initial paragraph-name if there are no declaratives. [Standard COBOL 85 requires a paragraph-name in the following circumstances: v After the USE statement if there are statements in the declarative procedure v Following a section header outside declarative procedures v Before any procedural statement if there are no declaratives and Standard COBOL 85 requires that procedural statements be within a paragraph.] Specifying paragraphs that are not contained within a section, even if some paragraphs are so contained. [Standard COBOL 85 requires that paragraphs be within a section except when there are no declaratives. Standard COBOL 85 requires that either all paragraphs be in sections or that none be.] Conditional expressions DBCS and KANJI class conditions Specifying data items of usage COMPUTATIONAL-3 or usage PACKED-DECIMAL in a NUMERIC class test Relation condition Enclosing an alphanumeric, DBCS, or national literal in parentheses The data-pointer format, the procedure-pointer and function-pointer format, and the object-reference format Comparison of an index-name with an arithmetic expression Use of parentheses within abbreviated combined relation conditions CORRESPONDING phrase INVALID KEY phrase ACCEPT statement Specifying an identifier that is subordinate to a filler item Omission of both the INVALID KEY phrase and an applicable EXCEPTION/ERROR procedure. [Standard COBOL 85 requires at least one of them.] The environment-name operand of the FROM phrase The DATE YYYYMMDD phrase The DAY YYYYDDD phrase ADD statement A composite of operands greater than 18 digits
560
Table 58. IBM extension language elements (continued) Language area CALL statement Extension elements The procedure-pointer and function-pointer operands for identifying the program to be called The following phrases: v ADDRESS OF v LENGTH OF v OMITTED v BY VALUE v RETURNING Specifying a file-name as an argument Specifying the called program-name in an alphabetic or zoned-decimal data item Specifying an argument defined as a subordinate group item. [Standard COBOL 85 requires that arguments be an elementary data item or a group item defined with level 01.] CANCEL statement Specifying the name of the program to be canceled in an alphabetic or zoned-decimal data item The effect of the PGMNAME compiler option on the name of the program to be canceled CLOSE statement WITH NO REWIND phrase The line-sequential format COMPUTE statement DISPLAY statement The use of the word EQUAL in place of the equal sign (=) The environment-name operand of the UPON phrase Displaying signed numeric literals and noninteger numeric literals DIVIDE statement A composite of operands greater than 18 digits Specifying the EXIT statement in a sentence that has statements before or after the EXIT statement or in a paragraph that has other sentences. [Standard COBOL 85 requires that the EXIT statement be specified in a sentence by itself and that the sentence be the only sentence in the paragraph.] Specifying EXIT PROGRAM before the last statement in a sequence of imperative statements. [Standard COBOL 85 requires that the EXIT PROGRAM statement be specified as the last statement in a sequence of imperative statements.] Coding the unconditional format before the last statement in a sequence of imperative statements. [Standard COBOL 85 requires that an unconditional GO TO be coded: v Only in a single-statement paragraph if no procedure-name is specified v Otherwise, as the last statement of a sentence.] The MORE-LABELS format IF statement The use of END-IF with the NEXT SENTENCE phrase. [Standard COBOL 85 disallows use of END-IF with NEXT SENTENCE.] DBCS, EGCS, NATIONAL, and NATIONAL-EDITED in the REPLACING phrase Initializing a data item that contains the DEPENDING phrase of the OCCURS clause MERGE statement MULTIPLY statement Specifying file-names in a SAME clause A composite of operands greater than 18 digits
| | | |
EXIT statement
GO TO statement
INITIALIZE statement
561
Table 58. IBM extension language elements (continued) Language area OPEN statement Extension elements The line-sequential format Specifying the EXTEND phrase for files that have a LINAGE clause PERFORM statement An empty in-line PERFORM statement A common exit for two or more active PERFORMS READ statement Omission of both the AT END phrase and an applicable declarative procedure Omission of both the INVALID KEY phrase and an applicable declarative procedure
| | | |
RETURN statement REWRITE statement
Read into an item that is neither an alphanumeric group item nor an elementary alphanumeric item Return into an item that is neither an alphanumeric group item nor an elementary alphanumeric item Omission of both the INVALID KEY phrase and an applicable declarative procedure Rewriting a record with a different number of character positions than the number of character positions in the record being rewritten SEARCH statement Specifying END SEARCH with NEXT SENTENCE Omission of both the NEXT SENTENCE phrase and imperative statements in the binary search format SET statement The data-pointer format The procedure-pointer and function-pointer format The object reference format SORT statement START statement Specifying GIVING file-names in the SAME clause Omission of both the INVALID KEY phrase and an applicable exception procedure Use of a key of a category other than alphanumeric STOP statement Specifying a noninteger fixed-point literal or a signed numeric integer or noninteger fixed-point literal Coding STOP as other than the last statement in a sentence STRING statement SUBTRACT statement UNSTRING statement WRITE statement Reference modification of the data item specified in the INTO phrase A composite of operands greater than 18 digits Reference modification of the sending field INVALID KEY and NOT ON INVALID KEY phrases The line-sequential format For a relative file, writing a different number of character positions than the number of character positions in the record being replaced Specifying both the ADVANCING PAGE and END-OF-PAGE phrases in a single WRITE statement The effect of the ADV compiler option on the length of the record written to a file Using WRITE ADVANCING with stacker selection for a card punch file For a relative or indexed file, omission of both the INVALID KEY phrase and an applicable exception procedure
562
Table 58. IBM extension language elements (continued) Language area Intrinsic functions Extension elements The effect of the DATEPROC and INTDATE compiler options on the DATE-OF-INTEGER and DAY-OF-INTEGER functions The following functions: v DATE-TO-YYYYMMDD v DATEVAL v DAY-TO-YYYYDDD v DISPLAY-OF v NATIONAL-OF v UNDATE v YEAR-TO-YYYY v YEARWINDOW FACTORIAL function INTEGER-OF-DATE function INTEGER-OF-DAY function LENGTH function NUMVAL function NUMVAL-C function Compiler-directing statements The effect of the ARITH(EXTEND) compiler option on the range of values permitted in the argument The effect of the INTDATE compiler option on the starting date for the function The effect of the INTDATE compiler option on the starting date for the function Specifying a pointer, the ADDRESS OF special register, or the LENGTH OF special register as an argument to the function The effect of the ARITH(EXTEND) compiler option on the maximum number of digits allowed in the argument The effect of the ARITH(EXTEND) compiler option on the maximum number of digits allowed in the argument The following statements: v BASIS v CBL(PROCESS) v *CONTROL and *CBL v DELETE v EJECT v INSERT v READY or RESET TRACE v SERVICE LABEL v SERVICE RELOAD v SKIP1, SKIP2, and SKIP3 v TITLE COPY statement The optionality of the syntax OF library-name for specifying a text-name qualifier Literals for specifying text-name and library-name SUPPRESS phrase Nested COPY statements Hyphen as the first or last character in the word form of REPLACING operands The use of any character (other than a COBOL separator) in the word form of REPLACING operands. [Standard COBOL 85 accepts only the characters used in formation of user-defined words.] USE statement The LABEL declarative format
563
564
| |
565
Table 59. Compiler limits (continued) Language element Total 01 + 77 (data items) 88 condition-names . . . VALUE literal . . . 66 RENAMES . . . PICTURE clause, number of characters in character-string PICTURE clause, numeric item digit positions Compiler limit No limit No limit No limit No limit 50 If the ARITH(COMPAT) compiler option is in effect: 18 If the ARITH(EXTEND) compiler option is in effect: 31 PICTURE clause, numeric-edited character positions 249 134,217,727 32,767 67,108,863 67,108,863 1,048,575 bytes 134,217,727 bytes 134,217,727 bytes 134,217,727 4,194,303 (Note 1) 134,217,727 bytes 134,217,727 bytes 12 KEYS 256 bytes 12 65,535 32,765
| | |
Picture symbol replication ( ) Picture symbol replication (editing) Picture symbol replication ( ), class DBCS items Picture symbol replication ( ), class national items Group item size: file section
65,535 255 80 bytes No limit (Note 2) 2,147,483,647 (Note 8) 1,048,575 (Note 5) 1,048,575 bytes (Note 5) 99,999,999 65,535 No limit
(Note 2)
32,751 bytes
| |
566
| | | |
Local-storage section Total size Working-storage section Total size of items without the external attribute Total size of items with the external attribute Procedure division Procedure and constant area Procedure division USING identifier . . . Procedure-names Subscripted data-names per statement Verbs per line (TEST) ACCEPT statement, record length on input device ADD identifier . . . ALTER procedure-name-1 TO procedure-name-2 . . . CALL . . . BY CONTENT identifier CALL identifier or literal USING identifier or literal . . . CALL literal . . . Active programs in a run unit Number of names called (DYN option) CANCEL identifier or literal . . . CLOSE file-name . . . COMPUTE identifier . . . DISPLAY identifier or literal . . . DIVIDE identifier . . . ENTRY USING identifier or literal . . . EVALUATE . . . subjects EVALUATE . . . WHEN clauses GO procedure-name . . . DEPENDING INSPECT TALLYING and REPLACING clauses MERGE file-name ASC or DES KEY . . . Total merge key length MERGE USING file-name . . . MOVE identifier or literal TO identifier . . . MULTIPLY identifier . . . OPEN file-name . . . PERFORM SEARCH . . . WHEN . . . SET index or identifier . . . TO SET index . . . UP/DOWN SORT file-name ASC or DES KEY 4,194,303 bytes (Note 1) 32,767 1,048,575 (Note 1) 32,767 7 32,760 No limit 4,194,303 (Note 1) 2,147,483,647 bytes 16,380 4,194,303 (Note 1) 32,767 No limit No limit No limit No limit No limit No limit No limit 64 256 255 No limit No limit 4,092 bytes (Note 6) 16 (Note 7) No limit No limit No limit 4,194,303 No limit No limit No limit No limit
Appendix B. Compiler limits
134,217,727 bytes
567
Table 59. Compiler limits (continued) Language element Total sort key length SORT USING file-name . . . STRING identifier . . . STRING DELIMITED identifier or literal . . . UNSTRING DELIMITED identifier or literal . . . UNSTRING INTO identifier or literal . . . USE . . . ON file-name . . . Notes: 1. Items included in 4,194,303 byte limit for procedure plus constant area. 2. Syntax checked, but has no effect on the execution of the program; there is no limit. 3. No compiler limit, but VSAM limits it to 255 bytes. 4. QSAM. 5. Compiler limit shown, but QSAM limits it to 32,767 bytes. 6. For QSAM and VSAM, the limit is 4088 bytes if EQUALS is coded on the OPTION control statement. 7. SORT limit for QSAM and VSAM. 8. Requires large block interface (LBI) support provided by OS/390 DFSMS Version 2 Release 10.0 or later. On OS/390 systems with earlier releases of DFSMS, the limit is 32,767 bytes. For more information about using large block sizes, see Enterprise COBOL Programming Guide. Compiler limit 4,092 bytes (Note 6) 16 (Note 7) No limit No limit 255 No limit No limit
568
569
Table 60. EBCDIC collating sequence (continued) Ordinal number 108 109 110 111 112 ... 122 123 124 125 126 127 128 ... 130 131 132 133 134 135 136 137 138 ... 146 147 148 149 150 151 152 153 154 ... 160 ... 162 163 164 ~ s t Tilde 161 162 163 A1 A2 A3 Euro currency sign 159 9F j k l m n o p q r 145 146 147 148 149 150 151 152 153 91 92 93 94 95 96 97 98 99 a b c d e f g h i 129 130 131 132 133 134 135 136 137 81 82 83 84 85 86 87 88 89 ` : # @ = Grave accent Colon Number sign, pound sign At sign Apostrophe, prime sign Equal sign Quotation marks 121 122 123 124 125 126 127 79 7A 7B 7C 7D 7E 7F Symbol , % _ > ? Meaning Comma Percent sign Underscore Greater than sign Question mark Decimal representation 107 108 109 110 111 Hex representation 6B 6C 6D 6E 6F
570
Table 60. EBCDIC collating sequence (continued) Ordinal number 165 166 167 168 169 170 ... 177 ... 188 189 ... 193 194 195 196 197 198 199 200 201 202 ... 209 210 211 212 213 214 215 216 217 218 ... 225 ... 227 228 229 S T U 226 227 228 E2 E3 E4 \ Backslash 224 E0 } J K L M N O P Q R Closing brace 208 209 210 211 212 213 214 215 216 217 D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 { A B C D E F G H I Opening brace 192 193 194 195 196 197 198 199 200 201 C0 C1 C2 C3 C4 C5 C6 C7 C8 C9 [ ] Opening square bracket Closing square bracket 187 188 BA BB ^ Caret 176 B0 Symbol u v w x y z Meaning Decimal representation 164 165 166 167 168 169 Hex representation A4 A5 A6 A7 A8 A9
571
Table 60. EBCDIC collating sequence (continued) Ordinal number 230 231 232 233 234 ... 241 242 243 244 245 246 247 248 249 250 ... 0 1 2 3 4 5 6 7 8 9 240 241 242 243 244 245 246 247 248 249 F0 F1 F2 F3 F4 F5 F6 F7 F8 F9 Symbol V W X Y Z Meaning Decimal representation 229 230 231 232 233 Hex representation E5 E6 E7 E8 E9
572
Table 61. ASCII collating sequence (continued) Ordinal number 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 Symbol ( ) * + , . / 0 1 2 3 4 5 6 7 8 9 : ; < = > ? @ A B C D E F G H I J K L M N Colon Semicolon Less than sign Equal sign Greater than sign Question mark Commercial At sign Meaning Opening parenthesis Closing parenthesis Asterisk Plus sign Comma Hyphen, minus Period, decimal point Slash, solidus Decimal representation 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 Hex representation 28 29 2A 2B 2C 2D 2E 2F 30 31 32 33 34 35 36 37 38 39 3A 3B 3C 3D 3E 3F 40 41 42 43 44 45 46 47 48 49 4A 4B 4C 4D 4E
573
Table 61. ASCII collating sequence (continued) Ordinal number 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 Symbol O P Q R S T U V W X Y Z [ \ ] ^ _ ` a b c d e f g h i j k l m n o p q r s t u Opening bracket Backslash, reverse solidus Closing bracket Caret Underscore Grave accent Meaning Decimal representation 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 Hex representation 4F 50 51 52 53 54 55 56 57 58 59 5A 5B 5C 5D 5E 5F 60 61 62 63 64 65 66 67 68 69 6A 6B 6C 6D 6E 6F 70 71 72 73 74 75
574
Table 61. ASCII collating sequence (continued) Ordinal number 119 120 121 122 123 124 125 126 127 Symbol v w x y z { | } ~ Opening brace Vertical bar Closing brace Tilde Meaning Decimal representation 118 119 120 121 122 123 124 125 126 Hex representation 76 77 78 79 7A 7B 7C 7D 7E
575
576
Debugging lines
A debugging line is a statement that is compiled only when the compile-time switch is activated. Debugging lines allow you, for example, to check the value of a data item at certain points in a procedure. To specify a debugging line in your program, code a D in column 7 (the indicator area). You can include successive debugging lines, but each must have a D in column 7. You cannot break character-strings across two lines. All your debugging lines must be written so that the program is syntactically correct, whether the debugging lines are compiled or treated as comments. You can code debugging lines anywhere in your program after the OBJECT-COMPUTER paragraph. A debugging line that contains only spaces in Area A and in Area B is treated as a blank line.
Debugging sections
Debugging sections are permitted only in the outermost program; they are not valid in nested programs. Debugging sections are never triggered by procedures contained in nested programs. Debugging sections are declarative procedures. Declarative procedures are described under USE statement on page 544. A debugging section can be called, for example, by a PERFORM statement that causes repeated execution of a procedure. Any associated procedure-name debugging declarative section is executed once for each repetition. A debugging section executes only if both the compile-time switch and the object-time switch are activated. The debug feature recognizes each separate occurrence of an imperative statement within an imperative statement as the beginning of a separate statement. You cannot refer to a procedure defined within a debugging section from a statement outside of the debugging section. References to the DEBUG-ITEM special register can be made only from within a debugging declarative procedure.
Copyright IBM Corp. 1991, 2006
577
Format
SOURCE-COMPUTER. computer-name DEBUGGING MODE WITH .
WITH DEBUGGING MODE When WITH DEBUGGING MODE is specified, all debugging sections and debugging lines are compiled. When WITH DEBUGGING MODE is omitted, all debugging sections and debugging lines are treated as comments. Usage note: If you include a COPY statement as a debugging line, the letter D must appear on the first line of the COPY statement. The compiler treats the copied text as the debugging line or lines. The COPY statement is executed, regardless of whether WITH DEBUGGING MODE is specified or not.
578
579
Table 62. Reserved words (continued) Word ANY ANYCASE APPLY ARE AREA AREAS AS ASCENDING ASSIGN AT AUTHOR B-AND B-NOT B-OR B-XOR BASED BASIS BEFORE BEGINNING BINARY BINARY-CHAR BINARY-DOUBLE BINARY-LONG BINARY-SHORT BIT BLANK BLOCK BOOLEAN BOTTOM BY CALL CANCEL CBL CD CF CH CHARACTER CHARACTERS CLASS 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 Reserved X X Potential Standard only reserved words
580
Table 62. Reserved words (continued) Word CLASS-ID CLOCK-UNITS CLOSE COBOL CODE CODE-SET COL COLLATING COLS COLUMN COLUMNS COM-REG COMMA COMMON COMMUNICATION COMP COMP-1 COMP-2 COMP-3 COMP-4 COMP-5 COMPUTATIONAL COMPUTATIONAL-1 COMPUTATIONAL-2 COMPUTATIONAL-3 COMPUTATIONAL-4 COMPUTATIONAL-5 COMPUTE CONDITION CONFIGURATION CONSTANT CONTAINS CONTENT CONTINUE CONTROL CONTROLS CONVERTING COPY CORR 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 Reserved X X Potential Standard only reserved words
581
Table 62. Reserved words (continued) Word CORRESPONDING COUNT CRT CURRENCY CURSOR DATA DATA-POINTER DATE DATE-COMPILED DATE-WRITTEN DAY DAY-OF-WEEK DBCS DE DEBUG-CONTENTS DEBUG-ITEM DEBUG-LINE DEBUG-NAME DEBUG-SUB-1 DEBUG-SUB-2 DEBUG-SUB-3 DEBUGGING DECIMAL-POINT DECLARATIVES DEFAULT DELETE DELIMITED DELIMITER DEPENDING DESCENDING DESTINATION DETAIL DISABLE DISPLAY DISPLAY-1 DIVIDE DIVISION DOWN DUPLICATES 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 Reserved X X X Potential Standard only reserved words
582
Table 62. Reserved words (continued) Word DYNAMIC EC EGCS EGI EJECT ELSE EMI ENABLE END END-ACCEPT END-ADD END-CALL END-COMPUTE END-DELETE END-DISPLAY END-DIVIDE END-EVALUATE END-EXEC END-IF END-INVOKE END-MULTIPLY END-OF-PAGE END-PERFORM END-READ END-RECEIVE END-RETURN END-REWRITE END-SEARCH END-START END-STRING END-SUBTRACT END-UNSTRING END-WRITE END-XML ENDING ENTER ENTRY ENVIRONMENT EO 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 Reserved X X Potential Standard only reserved words
583
Table 62. Reserved words (continued) Word EOP EQUAL ERROR ESI EVALUATE EVERY EXCEPTION EXCEPTION-OBJECT EXEC EXECUTE EXIT EXTEND EXTERNAL FACTORY FALSE FD FILE FILE-CONTROL FILLER FINAL FIRST FLOAT-EXTENDED FLOAT-LONG FLOAT-SHORT FOOTING FOR FORMAT FREE FROM FUNCTION FUNCTION-ID FUNCTION-POINTER GENERATE GET GIVING GLOBAL GO GOBACK GREATER 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 Reserved X X X X Potential Standard only reserved words
584
Table 62. Reserved words (continued) Word GROUP Reserved Potential Standard only reserved words 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
GROUP-USAGE HEADING HIGH-VALUE HIGH-VALUES I-O I-O-CONTROL ID IDENTIFICATION IF IN INDEX INDEXED INDICATE INHERITS INITIAL INITIALIZE INITIATE INPUT INPUT-OUTPUT INSERT INSPECT INSTALLATION INTERFACE INTERFACE-ID INTO INVALID INVOKE IS JNIENVPTR JUST JUSTIFIED KANJI KEY LABEL LAST LEADING LEFT LENGTH
585
Table 62. Reserved words (continued) Word LESS LIMIT LIMITS LINAGE LINAGE-COUNTER LINE LINE-COUNTER LINES LINKAGE LOCAL-STORAGE LOCALE LOCK LOW-VALUE LOW-VALUES MEMORY MERGE MESSAGE METHOD METHOD-ID MINUS MODE MODULES MORE-LABELS MOVE MULTIPLE MULTIPLY NATIONAL 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 Reserved X X X Potential Standard only reserved words
NATIONAL-EDITED NATIVE NEGATIVE NESTED NEXT NO NOT NULL NULLS NUMBER NUMERIC NUMERIC-EDITED
586
Table 62. Reserved words (continued) Word OBJECT OBJECT-COMPUTER OBJECT-REFERENCE OCCURS OF OFF OMITTED ON OPEN OPTIONAL OPTIONS OR ORDER ORGANIZATION OTHER OUTPUT OVERFLOW OVERRIDE PACKED-DECIMAL PADDING PAGE PAGE-COUNTER PASSWORD PERFORM PF PH PIC PICTURE PLUS POINTER POSITION POSITIVE PRESENT PRINTING PROCEDURE PROCEDURE-POINTER PROCEDURES PROCEED PROCESSING 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 Reserved X X X Potential Standard only reserved words
587
Table 62. Reserved words (continued) Word PROGRAM PROGRAM-ID PROGRAM-POINTER PROPERTY PROTOTYPE PURGE QUEUE QUOTE QUOTES RAISE RAISING RANDOM RD READ READY RECEIVE RECORD RECORDING RECORDS RECURSIVE REDEFINES REEL REFERENCE REFERENCES RELATIVE RELEASE RELOAD REMAINDER REMOVAL RENAMES REPLACE REPLACING REPORT REPORTING REPORTS REPOSITORY RERUN RESERVE RESET 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 Reserved X X X X X Potential Standard only reserved words
588
Table 62. Reserved words (continued) Word RESUME RETRY RETURN RETURN-CODE RETURNING REVERSED REWIND REWRITE RF RH RIGHT ROUNDED RUN SAME SCREEN SD SEARCH SECTION SECURITY SEGMENT SEGMENT-LIMIT SELECT SELF SEND SENTENCE SEPARATE SEQUENCE SEQUENTIAL SERVICE SET SHARING SHIFT-IN SHIFT-OUT SIGN SIZE SKIP1 SKIP2 SKIP3 SORT 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 Reserved Potential Standard only reserved words X X
589
Table 62. Reserved words (continued) Word SORT-CONTROL SORT-CORE-SIZE SORT-FILE-SIZE SORT-MERGE SORT-MESSAGE SORT-MODE-SIZE SORT-RETURN SOURCE SOURCE-COMPUTER SOURCES SPACE SPACES SPECIAL-NAMES SQL STANDARD STANDARD-1 STANDARD-2 START STATUS STOP STRING SUB-QUEUE-1 SUB-QUEUE-2 SUB-QUEUE-3 SUBTRACT SUM SUPER SUPPRESS SYMBOLIC SYNC SYNCHRONIZED SYSTEM-DEFAULT TABLE TALLY TALLYING TAPE TERMINAL TERMINATE TEST 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 Reserved X X X X X X X X Potential Standard only reserved words
590
Table 62. Reserved words (continued) Word TEXT THAN THEN THROUGH THRU TIME TIMES TITLE TO TOP TRACE TRAILING TRUE TYPE TYPEDEF UNIT UNIVERSAL UNLOCK UNSTRING UNTIL UP UPON USAGE USE USER-DEFAULT USING VAL-STATUS VALID VALIDATE VALIDATE-STATUS VALUE VALUES VARYING WHEN WHEN-COMPILED WITH WORDS WORKING-STORAGE WRITE 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 Reserved Potential Standard only reserved words X
591
Table 62. Reserved words (continued) Word WRITE-ONLY XML XML-CODE XML-EVENT XML-NTEXT XML-TEXT ZERO ZEROES ZEROS Reserved X X X X X X X X X Potential Standard only reserved words
592
Environment division
In the environment division, the OBJECT-COMPUTER, SPECIAL-NAMES, and FILE-CONTROL paragraphs are affected by the use of ASCII-encoded files.
593
When both clauses are specified, the ASCII collating sequence is used in this program to determine the truth value of the following alphanumeric comparisons: v Those explicitly specified in relation conditions v Those explicitly specified in condition-name conditions v Any alphanumeric sort or merge keys (unless the COLLATING SEQUENCE phrase is specified in the MERGE or SORT statement). When the PROGRAM COLLATING SEQUENCE clause is omitted, the EBCDIC collating sequence is used for such comparisons. The PROGRAM COLLATING SEQUENCE clause, in conjunction with the alphabet-name clause, can be used to specify EBCDIC alphanumeric comparisons for an ASCII-encoded tape file or ASCII alphanumeric comparisons for an EBCDIC-encoded tape file. The literal option of the alphabet-name clause can be used to process internal data in a collating sequence other than NATIVE or STANDARD-1.
FILE-CONTROL paragraph
For ASCII files, the ASSIGN clause assignment-name has the following format:
The file must be a QSAM file assigned to a magnetic tape device. labelSname Documents the device and device class to which a file is assigned. If specified, it must end with a hyphen. The organization field. Optional for QSAM files, which always have sequential organization. A required one-character to eight-character field that specifies the external name for this file.
I-O-CONTROL paragraph
The assignment-name in a RERUN clause must not specify an ASCII-encoded file. ASCII-encoded files that contain checkpoint records cannot be processed.
Data division
In the data division, there are special considerations for the FD entry and for data description entries. For each logical file defined in the environment division, there must be a corresponding FD entry and level-01 record description entry in the file section of the data division.
594
FD EntryCODE-SET clause
The FD Entry for an ASCII-encoded file must contain a CODE-SET clause; the alphabet-name must be associated with STANDARD-1 (for the ASCII code set) in the SPECIAL-NAMES paragraph. For example:
Special-names. Alphabet ASCII-sequence is standard-1. ... FD ASCII-file label records standard Recording mode is f Code-set is ASCII-sequence.
Procedure division
An ASCII-collated sort or merge operation can be specified in two ways: v Through the PROGRAM COLLATING SEQUENCE clause in the OBJECT-COMPUTER paragraph. In this case, the ASCII collating sequence is used for alphanumeric comparisons explicitly specified in relation conditions and condition-name conditions. v Through the COLLATING SEQUENCE phrase of the SORT or MERGE statement. In this case, only this sort or merge operation uses the ASCII collating sequence. In either case, alphabet-name must be associated with STANDARD-1 (for ASCII collating sequence) in the SPECIAL-NAMES paragraph. For this sort or merge operation, the COLLATING SEQUENCE phrase of the SORT or MERGE statement takes precedence over the PROGRAM COLLATING SEQUENCE clause in the OBJECT-COMPUTER paragraph. If both the PROGRAM COLLATING SEQUENCE clause and the COLLATING SEQUENCE phrase are omitted (or if the one in effect specifies an EBCDIC collating sequence), the sort or merge is performed using the EBCDIC collating sequence.
595
596
597
v OPEN EXTEND is not supported for ASCII-encoded tapes (CODE-SET STANDARD-1 or STANDARD-2). v When division by zero occurs in an arithmetic expression and an ON SIZE ERROR phrase is not specified, processing abnormally terminates. v The overlay capability of the segmentation module is not supported. See the Enterprise COBOL Programming Guide for specification of the compiler options and Language Environment runtime options that are required to support the above standards.
598
Notices
This information was developed for products and services offered in the U.S.A. IBM may not offer the products, services, or features discussed in this document in other countries. Consult your local IBM representative for information on the products and services currently available in your area. Any reference to an IBM product, program, or service is not intended to state or imply that only that IBM product, program, or service may be used. Any functionally equivalent product, program, or service that does not infringe any IBM intellectual property right may be used instead. However, it is the users responsibility to evaluate and verify the operation of any non-IBM product, program, or service. IBM may have patents or pending patent applications covering subject matter described in this document. The furnishing of this document does not give you any license to these patents. You can send license inquiries, in writing, to: IBM Corporation J46A/G4 555 Bailey Avenue San Jose, CA 95141-1003 U.S.A. For license inquiries regarding double-byte (DBCS) information, contact the IBM Intellectual Property Department in your country or send inquiries, in writing, to: IBM World Trade Asia Corporation Licensing 2-31 Roppongi 3-chome, Minato-ku Tokyo 106, Japan The following paragraph does not apply to the United Kingdom or any other country where such provisions are inconsistent with local law: INTERNATIONAL BUSINESS MACHINES CORPORATION PROVIDES THIS PUBLICATION AS IS WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. Some states do not allow disclaimer of express or implied warranties in certain transactions, therefore, this statement may not apply to you. This information could include technical inaccuracies or typographical errors. Changes are periodically made to the information herein; these changes will be incorporated in new editions of the publication. IBM may make improvements and/or changes in the product(s) and/or the program(s) described in this publication at any time without notice. Any references in this publication to non-IBM Web sites are provided for convenience only and do not in any manner serve as an endorsement of those Web sites. The materials at those Web sites are not part of the materials for this IBM product and use of those Web sites is at your own risk. If you are viewing this information in softcopy, the photographs and color illustrations may not appear.
599
Trademarks
The following terms are trademarks of International Business Machines Corporation in the United States, or other countries, or both: Advanced Function Printing AFP BookManager CICS DB2 DFSORT IBM IMS Language Environment MVS OS/390 Print Services Facility WebSphere zSeries z/Architecture z/OS Intel is a registered trademark of Intel Corporation in the United States and other countries. Java and all Java-based trademarks are trademarks of Sun Microsystems, Inc. in the United States, other countries, or both. Microsoft and Windows are trademarks of Microsoft Corporation in the United States, other countries, or both. UNIX is a registered trademark of The Open Group in the United States and other countries. Other company, product, or service names may be the trademarks or service marks of others.
600
Glossary
The terms in this glossary are defined in accordance with their meaning in COBOL. These terms might or might not have the same meaning in other languages. This glossary includes terms and definitions from the following publications: v ANSI INCITS 23-1985, Programming Languages COBOL as amended by: ANSI INCITS 23a-1989, Programming Languages - Intrinsic Function Module for COBOL, ANSI INCITS 23b-1993, Programming Language - Correction Amendment for COBOL v ANSI INCITS 172-2002 American National Standard Dictionary of Information Technology. American National Standard definitions are preceded by an asterisk (*). | | | | | |
alphanumeric data item. A general reference to a data item described implicitly or explicitly with usage DISPLAY and category alphanumeric, alphanumeric-edited, or numeric-edited, possibly limited to specific data categories or specific data descriptions by detailed specifications. by a PICTURE character-string that contains at least one symbol A or X and at least one of the simple insertion symbols B, 0, or /. An alphanumeric-edited data item has usage DISPLAY. * alphanumeric function. A function that returns a value that is composed of a string of one or more characters from the computers alphanumeric character set.
A
* abbreviated combined relation condition. The combined condition that results from the explicit omission of a common subject or a common subject and common relational operator in a consecutive sequence of relation conditions. abend. Abnormal termination of program. * access mode. The manner in which records are to be operated upon within a file. * actual decimal point. The physical representation, using the decimal point characters period (.) or comma (,), of the decimal point position in a data item. * alphabet-name. A user-defined word, defined in the SPECIAL-NAMES paragraph of the environment division, that names a specific character set or collating sequence, or both. * alphabetic character. A letter or a space character.
601
operand of the USING phrase of a CALL or INVOKE statement, used for passing values to a called program or an invoked method. * arithmetic expression. An identifier of a numeric elementary item, a numeric literal, such identifiers and literals separated by arithmetic operators, two arithmetic expressions separated by an arithmetic operator, or an arithmetic expression enclosed in parentheses. * arithmetic operation. The process caused by the execution of an arithmetic statement, or the evaluation of an arithmetic expression, that results in a mathematically correct solution to the arguments presented. * arithmetic operator. A single character, or a fixed two-character combination that belongs to the following set: Character + * / ** Meaning Addition Subtraction Multiplication Division Exponentiation
* AT END condition. A condition that exists in the following circumstances: v During the execution of a READ statement for a sequentially accessed file, when no next logical record exists in the file, or when the number of significant digits in the relative record number is larger than the size of the relative key data item, or when an optional input file is not present. v During the execution of a RETURN statement, when no next logical record exists for the associated sort or merge file. v During the execution of a SEARCH statement, when the search operation terminates without satisfying the condition specified in any of the associated WHEN phrases.
B
basic character set. The basic set of characters used in writing words, character-strings, and separators of the language. The basic character set is implemented in single-byte EBCDIC. . The extended character set includes DBCS characters, which can be used in comments, literals, and user-defined words. Synonymous with COBOL character set in Standard COBOL 85. big-endian. The default format used by the mainframe to store binary data. In this format, the least significant digit is on the highest address. See also little-endian. binary item. A numeric data item represented in binary notation (on the base 2 numbering system). Binary items have a decimal equivalent consisting of the decimal digits 0 through 9, plus an operational sign. The leftmost bit of the item is the operational sign. binary search. A dichotomizing search in which, at each step of the search, the set of data elements is divided by two; some appropriate action is taken in the case of an odd number. * block. A physical unit of data that is normally composed of one or more logical records. For mass storage files, a block can contain a portion of a logical record. The size of a block has no direct relationship to the size of the file within which the block is contained or to the size of the logical records that are either contained within the block or that overlap the block. The term is synonymous with physical record. buffer. A portion of storage used to hold input or output data temporarily. byte. A string consisting of a certain number of bits, usually eight, treated as a unit. byte order mark (BOM). A Unicode character that can be used at the start of UTF-16 or UTF-32 text to
* arithmetic statement. A statement that causes an arithmetic operation to be executed. The arithmetic statements are the ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT statements. * ascending key. A key, upon the values of which data is ordered starting with the lowest value of the key up to the highest value of the key, in accordance with the rules for comparing data items. ASCII. American National Standard Code for Information Interchange. A standard code, using a coded character set consisting of 7-bit coded characters (8 bits including parity check), used for information interchange between data processing systems, data communication systems, and associated equipment. The ASCII set consists of control characters and graphic characters. IBM has defined an extension to ASCII (characters 128-255). ASCII DBCS. See double-byte ASCII. assignment-name. A name that identifies the organization of a COBOL file and the name by which it is known to the system. * assumed decimal point. A decimal point position that does not involve the existence of an actual character in a data item. The assumed decimal point has logical meaning with no physical representation.
602
indicate the byte order of subsequent text; the byte order can be either big endian or little endian.
C
cataloged procedure. A set of job control statements placed in a partitioned data set called the procedure library (SYS1.PROCLIB). You can use cataloged procedures to save time and reduce errors coding JCL. CCSID. See coded character set identifier. century window. A 100-year interval within which any two-digit year is unique. There are several types of century window available to COBOL programmers: 1. For windowed date fields, it is specified by the YEARWINDOW compiler option. 2. For windowing intrinsic functions DATE-TO-YYYYMMDD, DAY-TO-YYYYDDD, and YEAR-TO-YYYY, it is specified by argument-2. * character. The basic indivisible unit of the language. character encoding unit. A unit of data that corresponds to one code point in a coded character set. One or more character encoding units are used to represent a character in a coded character set. Also known as encoding unit. For usage NATIONAL, a character encoding unit corresponds to one 2-byte code point of UTF-16. For usage DISPLAY, a character encoding unit corresponds to a byte. For usage DISPLAY-1, a character encoding unit corresponds to a 2-byte code point in the DBCS character set. character position. The amount of physical storage or presentation space required for holding or presenting one character. The term applies to any class of character. For specific classes of characters, the following terms apply: v Alphanumeric character position, for characters represented in usage DISPLAY v DBCS character position, for DBCS characters represented in usage DISPLAY-1 v National character position, for characters represented in usage NATIONAL; synonymous with character encoding unit for UTF-16 character set. See basic character set and coded character set. * character-string. A sequence of contiguous characters that forms a COBOL word, a literal, a PICTURE character-string, or a comment-entry. Must be delimited by separators. checkpoint. A point at which information about the status of a job and the system can be recorded so that the job step can be restarted later.
class (object-oriented). The entity that defines common behavior and implementation for zero, one, or more objects. The objects that share the same implementation are considered to be objects of the same class. * class condition. The proposition (for which a truth value can be determined) that the content of an item is wholly alphabetic, is wholly numeric, is wholly DBCS, is wholly Kanji, or consists exclusively of the characters that are listed in the definition of a class-name. class definition. The COBOL source unit that defines a class. class-name (object-oriented). The name of an object-oriented class definition. Class-name can refer to a COBOL class-name or a Java class-name. * class-name (of data). A user-defined word, defined in the SPECIAL-NAMES paragraph, that refers to the proposition for which a truth value can be defined, that the content of a data item consists exclusively of those characters listed in the definition of the class-name. * clause. An ordered set of consecutive COBOL character-strings whose purpose is to specify an attribute of an entry. COBOL character set. See basic character set. * COBOL word. See word. code page. An assignment of graphic characters and control character meanings to the code points in a coded character set; for example, assignment of characters and meanings to the 256 code points in single-byte EBCDIC or ASCII. The terms coded character set and code page can be used interchangeably. code point. A unique bit pattern defined in a code page. Graphic symbols and control characters are assigned to code points. coded character set. A set of graphic characters and control characters along with their unambiguous assignment to specific code points (their encodings). EBCDIC is an example of a coded character set. A specific instance of encodings is called a code page. A code page specified by IBM is identified by a CCSID. coded character set identifier (CCSID). An IBM-defined number in the range 1 to 65,535 that identifies a specific code page. * collating sequence. The sequence in which the characters that are acceptable to a computer are ordered for purposes of sorting, merging, comparing, and for processing indexed files sequentially. column. A byte position within a print line or within a reference format line. The columns are numbered from 1, by 1, starting at the leftmost position of the line
Glossary
603
and extending to the rightmost position of the line. A column holds one single-byte character. * combined condition. A condition that is the result of connecting two or more conditions with the AND or the OR logical operator. * comment-entry. An entry in the identification division that is used for documentation and has no effect on execution. * comment line. A source text line represented by an asterisk (*) in the indicator area of the line and any characters from the computers character set in area A and area B of that line. The comment line serves only for documentation. A special form of comment line represented by a forward slash (/) in the indicator area of the line and any characters from the computers character set in area A and area B of that line causes page ejection prior to printing the comment. * common program. A program that, despite being directly contained within another program, is permitted to be called from any program directly or indirectly contained in that other program. compatible date field. The meaning of the term compatible, when applied to date fields, depends on the COBOL division in which the usage occurs: v data division Two date fields are compatible if they have identical USAGE and meet at least one of the following conditions: They have the same date format. Both are windowed date fields, where one consists only of a windowed year, DATE FORMAT YY. Both are expanded date fields, where one consists only of an expanded year, DATE FORMAT YYYY. One has DATE FORMAT YYXXXX, the other, YYXX. One has DATE FORMAT YYYYXXXX, the other, YYYYXX. A windowed date field can be subordinate to an expanded date group data item. The two date fields are compatible if the subordinate date field has USAGE DISPLAY, starts two bytes after the start of the group expanded date field, and the two fields meet at least one of the following conditions: The subordinate date field has a DATE FORMAT pattern with the same number of Xs as the DATE FORMAT pattern of the group date field. The subordinate date field has DATE FORMAT YY. The group date field has DATE FORMAT YYYYXXXX and the subordinate date field has DATE FORMAT YYXX. v procedure division Two date fields are compatible if they have the same date format except for the year part, which can be
windowed or expanded. For example, a windowed date field with DATE FORMAT YYXXX is compatible with: Another windowed date field with DATE FORMAT YYXXX An expanded date field with DATE FORMAT YYYYXXX * compile time. The time at which COBOL source code is translated by a COBOL compiler to a COBOL object program. compiler-directing statement. A statement that causes the compiler to take a specific action during compilation. The standard compiler-directing statements are COPY, REPLACE, and USE. * complex condition. A condition in which one or more logical operators act upon one or more conditions. See also negated simple condition, combined condition, and negated combined condition. complex ODO. Certain forms of the OCCURS DEPENDING ON clause: v A variably located item or group: A data item described with an OCCURS clause with the DEPENDING ON phrase, followed by a nonsubordinate data item or group. The group can be an alphanumeric group or a national group. v A variably located table: A data item described with an OCCURS clause with the DEPENDING ON phrase, followed by a nonsubordinate data item described with an OCCURS clause. v A table with variable-length elements: A data item described with an OCCURS clause, where a subordinate data item is described with an OCCURS clause with the DEPENDING ON phrase. v An index name for a table with variable-length elements. v An element of a table with variable-length elements. condition (exception). An exception that has been enabled, or recognized, by Language Environment and thus is eligible to activate user and language condition handlers. Any alteration to the normal programmed flow of an application. Conditions can be detected by the hardware or operating system and result in an interrupt. They can also be detected by language-specific generated code or language library code. * condition (expression). A status of data at run time for which a truth value can be determined. Where the term condition (condition-1, condition-2,...) appears in these language specifications in or in reference to condition (condition-1, condition-2,...) of a general format, it is a conditional expression consisting of either a simple condition optionally parenthesized, or a combined condition consisting of the syntactically
| |
604
correct combination of simple conditions, logical operators, and parentheses, for which a truth value can be determined. * conditional expression. A simple condition or a complex condition specified in an EVALUATE, IF, PERFORM, or SEARCH statement. See also simple condition and complex condition. * conditional phrase. A conditional phrase specifies the action to be taken upon determination of the truth value of a condition resulting from the execution of a conditional statement. * conditional statement. A statement specifying that the truth value of a condition is to be determined and that the subsequent action of the object program is dependent on this truth value. * conditional variable. A data item one or more values of which has a condition-name assigned to it. * condition-name. A user-defined word that assigns a name to a subset of values that a conditional variable is permitted to assume; or a user-defined word assigned to a status of an implementor defined switch or device. * condition-name condition. The proposition, for which a truth value can be determined, that the value of a conditional variable is a member of the set of values attributed to a condition-name associated with the conditional variable. * configuration section. A section of the environment division that describes overall specifications of source and object programs, method definitions, and class definitions. CONSOLE. A COBOL environment-name associated with the operator console. * contiguous items. Items that are described by consecutive entries in the data division, and that bear a definite hierarchic relationship to each other.
Some examples are $, USD, JPY, and EUR. A currency sign value can be defined by either the CURRENCY compiler option or the CURRENCY SIGN clause in the SPECIAL-NAMES paragraph of the environment division. If the CURRENCY SIGN clause is not specified and the NOCURRENCY compiler option is in effect, the dollar sign ($) is used as the default currency sign value. See also currency symbol. currency symbol. A character used in a PICTURE clause to indicate the position of a currency sign value in a numeric-edited item. A currency symbol can be defined by either the CURRENCY compiler option or by the CURRENCY SIGN clause in the SPECIAL-NAMES paragraph of the environment division. If the CURRENCY SIGN clause is not specified and the NOCURRENCY compiler option is in effect, the dollar sign ($) is used as the default currency sign value and currency symbol. Multiple currency symbols and currency sign values can be defined. See also currency sign value. * current record. In file processing, the record that is available in the record area associated with a file. * current volume pointer. A conceptual entity that points to the current volume of a sequential file.
D
* data description entry. An entry in the data division composed of a level-number followed by a data-name, if required, and then followed by a set of clauses that describe the attributes of a data item or record. * data division. A COBOL division that describes data and files to be processed at run time. * data item. A unit of data (excluding literals) defined by a COBOL program or by the rules for function evaluation. * data-name. A user-defined word that names a data item described in a data description entry. The maximum length of a data-name is 30 bytes. When used in the general formats, data-name represents a word that must not be reference-modified, subscripted or qualified unless specifically permitted by the rules for the format. date field. Any of the following: v A data item whose data description entry includes a DATE FORMAT clause. v A value returned by one of the following intrinsic functions: DATE-OF-INTEGER DATE-TO-YYYYMMDD DATEVAL DAY-OF-INTEGER DAY-TO-YYYYDDD
Glossary
| contained program. A COBOL program that is nested | within another COBOL program.
copy file. A file or library member containing a sequence of code that is included in the source text at compile time using the COPY statement. The file can be created by the user, supplied by COBOL, or supplied by another product. * counter. A data item used for storing numbers or number representations in a manner that permits these numbers to be increased or decreased by the value of another number, or to be changed or reset to zero or to an arbitrary positive or negative value. cs. See currency symbol. currency sign value. A character-string that identifies the monetary units stored in a numeric-edited item.
605
YEAR-TO-YYYY YEARWINDOW v The conceptual data items DATE, DATE YYYYMMDD, DAY, and DAY YYYYDDD of the ACCEPT statement. v The result of certain arithmetic operations (for details, see Arithmetic with date fields on page 255). The term date field refers to both expanded date field and windowed date field. See also nondate. date format. The date pattern of a date field, specified either: v Explicitly, by the DATE FORMAT clause or DATEVAL intrinsic function argument-2 v Implicitly, by statements and intrinsic functions that return date fields (for details, see Date field on page 74). DBCS. See Double-Byte Character Set (DBCS). DBCS character. Any character defined in IBMs double-byte character set. DBCS character position. See character position.
* descending key. A key upon the values of which data is ordered starting with the highest value of key down to the lowest value of key, in accordance with the rules for comparing data items. digit. Any of the numerals from 0 through 9. In COBOL, the term is not used in reference to any other symbol. * digit position. The amount of physical storage required to store a single digit. This amount can vary depending on the usage specified in the data description entry that defines the data item. * direct access. The facility to obtain data from storage devices or to enter data into a storage device in such a way that the process depends only on the location of that data and not on a reference to data previously accessed.
| |
display floating-point data item. A data item described with usage DISPLAY and a picture character-string that describes a floating-point data item. See floating-point. * division. There are four divisions in a COBOL program: identification, environment, data, and procedure. * division header. A combination of words followed by a separator period that indicates the beginning of a division. The division headers are: v IDENTIFICATION DIVISION. v ENVIRONMENT DIVISION. v DATA DIVISION. v PROCEDURE DIVISION. do-until. In structured programming, a do-until loop will be executed at least once, and until a given condition is true. In COBOL, a TEST AFTER phrase used with the PERFORM statement functions in the same way. do-while. In structured programming, a do-while loop will be executed if, and while, a given condition is true. In COBOL, a TEST BEFORE phrase used with the PERFORM statement functions in the same way. double-byte ASCII. An IBM character set that includes DBCS and single-byte ASCII characters. (Also known as ASCII DBCS.) double-byte EBCDIC. An IBM character set that includes DBCS and single-byte EBCDIC characters. (Also known as EBCDIC DBCS.) Double-Byte Character Set (DBCS). An IBM coded character set in which each character is represented by two bytes. Languages such as Japanese, Chinese, and Korean, which contain more symbols than can be represented by 256 code points, require double-byte character sets. Because each character requires two
606
bytes, entering, displaying, and printing DBCS characters requires hardware and supporting software that are DBCS-capable. * dynamic access. An access mode in which specific logical records can be obtained from or placed into a mass storage file in a nonsequential manner and obtained from a file in a sequential manner during the scope of the same OPEN statement.
* end method marker. A combination of words, followed by a separator period, that indicates the end of a COBOL method definition. The end method marker is: END METHOD method-name. * end of procedure division. The physical position of a COBOL procedure division after which no further procedures appear. * end program marker. A combination of words, followed by a separator period, that indicates the end of a COBOL source program. The end program marker is: END PROGRAM program-name. * entry. Any descriptive set of consecutive clauses written in the identification division, environment division, or data division of a COBOL program. * environment division. A division of a COBOL source unit that describes the computers upon which the source code is compiled and those on which the object code is run. It provides a linkage between the logical concept of files and their records and the physical aspects of the devices on which files are stored. environment-name. A name, specified by IBM, that identifies system logical units, printer and card punch control characters, report codes, and/or program switches. When an environment-name is associated with a mnemonic-name in the environment division, the mnemonic-name can then be substituted in any format in which such substitution is valid. environment variable. Any of a number of variables that define some aspect of the computing environment, and are accessible to programs that operate in that environment. Environment variables can affect the behavior of programs that are sensitive to the environment in which they operate. execution time. See run time. execution-time environment. See runtime environment. expanded date field. A date field containing an expanded (four-digit) year. See also date field and expanded year. expanded year. A date field that consists only of a four-digit year. Its value includes the century: for example, 1998. Compare with windowed year. * explicit scope terminator. A reserved word that terminates the scope of a particular procedure division statement. For example, END-READ. exponent. A number, indicating the power to which another number (the base) is to be raised. Positive exponents denote multiplication, negative exponents denote division, fractional exponents denote a root of a
Glossary
E
EBCDIC (Extended Binary-Coded Decimal Interchange Code). A coded character set consisting of 8-bit coded characters. EBCDIC character. Any one of the graphic characters or control characters encoded in EBCDIC. EBCDIC DBCS. See double-byte EBCDIC. encoding unit. See character encoding unit. edited data item. A data item that has been modified by suppressing zeroes or inserting editing characters. * editing character. A single character or a fixed two-character combination belonging to the following set: Character Meaning Space 0 + CR DB Z * $ , . / Zero Plus Minus Credit Debit Zero suppress Check protect Currency sign Comma (decimal point) Period (decimal point) Forward slash
* elementary item. A data item that is described as not being further logically subdivided. encoding unit. See character encoding unit. * end class marker. A combination of words, followed by a separator period, that indicates the end of a COBOL class definition. The end class marker is: END CLASS class-name.
607
quantity. In COBOL, an exponential expression is indicated with the symbol ** followed by the exponent. * expression. An arithmetic or conditional expression. * extend mode. The state of a file after execution of an OPEN statement, with the EXTEND phrase specified for that file, and before the execution of a CLOSE statement, without the REEL or UNIT phrase for that file. Extensible Markup Language. See XML. * external data. The data described in a program as external data items and external file connectors. * external data item. A data item that is described as part of an external record in one or more programs of a run unit and that itself is permitted to be referenced from any program in which it is described. * external data record. A logical record which is described in one or more programs of a run unit and whose constituent data items are permitted to be referenced from any program in which they are described.
definition, and are equivalent to public static methods in Java. They are typically used to customize the creation of objects. * figurative constant. A compiler-generated value referenced through the use of certain reserved words. * file. A collection of logical records. * file attribute conflict condition. An unsuccessful attempt has been made to execute an input-output operation on a file and the file attributes, as specified for that file in the program, do not match the fixed attributes for that file. * file connector. A storage area which contains information about a file and is used as the linkage between a file-name and a physical file and between a file-name and its associated record area. * file control entry. A SELECT clause and all its subordinate clauses which declare the relevant physical attributes of a file. file-control paragraph. A paragraph in the environment division in which the data files for a given source unit are declared. * file description entry. An entry in the file section of the data division that is composed of the level indicator FD, followed by a file-name, and then followed by a set of clauses that include the attributes of the file. * file-name. A user-defined word that names a file connector described in a file description entry or a sort-merge file description entry within the file section of the data division. * file organization. The permanent logical file structure established at the time that a file is created. *file position indicator. A conceptual entity that contains the value of the current key within the key of reference for an indexed file, or the record number of the current record for a sequential file, or the relative record number of the current record for a relative file, or indicates that no next logical record exists, or that an optional input file is not present, or that the at end condition already exists, or that no valid next record has been established. * file section. The section of the data division that contains file description entries and sort-merge file description entries together with their associated record descriptions. file system. The collection of files and file management structures on a physical or logical mass storage device, such as a diskette or minidisk. * fixed file attributes. Information about a file which is established when a file is created and cannot subsequently be changed during the existence of the
| | | | | |
external floating-point data item. A display floating-point data item or a national floating-point data item. A display floating-point data item has usage DISPLAY. A national floating-point data item has usage NATIONAL. See display floating-point data item and national floating-point data item. * external switch. A hardware or software device, defined and named by the implementor, which is used to indicate that one of two alternate states exists.
F
factory data. Data of a factory object. Factory data is allocated once for a class and shared by all instances of the class. Factory data is declared in the working-storage section in the factory paragraph of a class definition. Factory data is equivalent to private static data in Java. factory method. A method that is supported by a class independently of any object instance. Factory methods are defined in the factory paragraph of the class
608
file. These attributes include the organization of the file (sequential, relative, or indexed), the prime record key, the alternate record keys, the code set, the minimum and maximum record size, the record type (fixed or variable), the collating sequence of the keys for indexed files, the blocking factor, the padding character, and the record delimiter. * fixed-length record. A record associated with a file whose file description or sort-merge description entry requires that all records contain the same number of bytes. fixed-point item. A numeric data item defined with a PICTURE clause that specifies the location of an optional sign, the number of digits it contains, and the location of an optional decimal point. The format can be either binary, packed decimal, or external decimal.
G
garbage collection. The automatic freeing by the Java runtime system of the memory for objects that are no longer referenced. * global name. A name that is declared in only one program but which can be referenced from that program and from any program contained within that program. Condition-names, data-names, file-names, record-names, report-names, and some special registers can be global names.
| | | | | | | | | |
group item. (1) A data item that is composed of subordinate data items. A group item that is described with an explicit or implicit GROUP-USAGE NATIONAL clause is a national group item. A group that is described without a GROUP-USAGE NATIONAL clause is an alphanumeric group item. See alphanumeric group item and national group item. (2) When not qualified explicitly or by context as a national group or an alphanumeric group, the term refers to groups in general.
| | For example, a floating-point representation of the | number 0.0001234 is: 0.1234 -3, where 0.1234 is the | mantissa and -3 is the exponent.
H
header label. (1) A file label or data set label that precedes the data records on a unit of recording media. (2) Synonym for beginning-of-file label. hide (a method). To redefine (in a subclass) a factory or static method defined with the same method-name in a parent class. Thus, the method in the subclass hides the method in the parent class. * high order end. The leftmost character of a string of characters.
floating-point item. A numeric data item containing a fraction and an exponent. Its value is obtained by multiplying the fraction by the base of the numeric data item raised to the power specified by the exponent. * format. A specific arrangement of a set of data. * function. A temporary data item whose value is determined at the time the function is referenced during the execution of a statement. * function-identifier. A syntactically correct combination of character-strings and separators that references a function. The data item represented by a function is uniquely identified by a function-name with its arguments, if any. A function-identifier can include a reference-modifier. A function-identifier that references an alphanumeric function can be specified anywhere in the general formats that an identifier can be specified, subject to certain restrictions. A function-identifier that references an integer or numeric function can be referenced anywhere in the general formats that an arithmetic expression can be specified. function-name. A word that names the mechanism whose invocation, along with required arguments, determines the value of a function. function-pointer. A data item that can contain the address of a procedure or function, described with a usage of FUNCTION-POINTER.
I
IBM extensions. COBOL syntax and semantics specified by IBM, rather than by Standard COBOL 85. identification division. One of the four main component parts of a COBOL program, class definition, or method definition. The identification division identifies the program, class, or method. The identification division can include the following documentation: author name, installation, or date. * identifier. Syntax that references a resource, such as a data item. An identifier that refers to data item includes the data-name and optionally includes qualifiers, subscripting, and reference modification. * imperative statement. A statement that specifies an unconditional action to be taken or a conditional statement that is delimited by its explicit scope terminator (a delimited scope statement). An imperative statement can consist of a sequence of imperative statements.
Glossary
609
* implicit scope terminator. A separator period that terminates the scope of any preceding unterminated statement, or a phrase of a statement that by its occurrence indicates the end of the scope of any statement contained within the preceding phrase. * index. A computer storage area or register, the content of which represents the identification of a particular element in a table. * index data item. A data item in which the values associated with an index-name can be stored in a form specified by the implementor. indexed data-name. An identifier that is composed of a data-name, followed by one or more index-names enclosed in parentheses. * indexed file. A file with indexed organization. * indexed organization. The permanent logical file structure in which each record is identified by the value of one or more keys within that record. indexing. Subscripting using index-names. * index-name. A user-defined word that names an index associated with a specific table. * inheritance. A mechanism for using the implementation of a class (the superclass) as the basis for a new class (a subclass). Each subclass inherits from exactly one class. The inherited class can itself be a subclass that inherits from another class. Enterprise COBOL does not support multiple inheritance. It supports the Java object model, which provides single inheritance. * initial program. A program that is placed into an initial state every time the program is called in a run unit. * initial state. The state of a program when it is first called in a run unit. inline. In a program, instructions that are executed sequentially, without branching to routines, subroutines, or other programs. * input file. A file that is opened in the INPUT mode. * input mode. The state of a file after execution of an OPEN statement, with the INPUT phrase specified, for that file and before the execution of a CLOSE statement, without the REEL or UNIT phrase for that file. * input-output file. A file that is opened in the I-O mode. * input-output section. The section of the environment division that names the files and the external media required by a program or method and
that provides information required for transmission and handling of data at run time. * input-output statement. A statement that causes files to be processed by performing operations upon individual records or upon the file as a unit. The input-output statements are: ACCEPT (with the identifier phrase), CLOSE, DELETE, DISPLAY, OPEN, READ, REWRITE, SET (with the TO ON or TO OFF phrase), START, and WRITE. * input procedure. A set of statements, to which control is given during the execution of a SORT statement, for the purpose of controlling the release of specified records to be sorted. instance data. Data defining the state of an object instance. Instance data is declared in the working-storage section of the object paragraph of a class definition. Also called object instance data. Each object instance has its own copy of instance data. Instance data is equivalent to private nonstatic member data in a Java class. instance method. A method defined in the object paragraph of a class definition. Instance methods are equivalent to public nonstatic methods in Java. * integer. (1) A numeric literal that does not include any digit positions to the right of the decimal point. (2) A numeric data item defined in the data division that does not include any digit positions to the right of the decimal point. (3) A numeric function whose definition provides that all digits to the right of the decimal point are zero in the returned value for any possible evaluation of the function. * integer function. A function whose category is numeric and whose definition does not include any digit positions to the right of the decimal point. interlanguage communication (ILC). The ability of routines written in different programming languages to communicate. ILC support allows the application writer to readily build applications from component routines written in a variety of languages. intermediate result. An intermediate field containing the results of a succession of arithmetic operations. * internal data. The data described in a program excluding all external data items and external file connectors. Items described in the linkage section of a program are treated as internal data. * internal data item. A data item which is described in one program in a run unit. An internal data item can have a global name.
| | |
internal decimal data item. A data item that is described with usage PACKED-DECIMAL or COMP-3 and a PICTURE character-string that defines the item
610
| as numeric (a valid combination of symbols 9, S, P, or | V). Synonymous with packed decimal item.
* internal file connector. A file connector that is accessible to only one object program in the run unit.
L
* language-name. A system-name that specifies a particular programming language. last-used state. The state of storage in which internal values remain the same as when the program or method was exited (are not reset to their initial values on reentry). * letter. A character belonging to one of the following two sets: v Uppercase letters: A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, Y, Z v Lowercase letters: a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z * level indicator. Two alphabetic characters that identify a specific type of file or a position in a hierarchy. The level indicators in the data division are: CD, FD, and SD. * level-number. A user-defined word, expressed as a two-digit number, which indicates the hierarchical position of a data item or the special properties of a data description entry. Level-numbers in the range from 1 through 49 indicate the position of a data item in the hierarchical structure of a logical record. Level-numbers in the range 1 through 9 can be written either as a single digit or as a zero followed by a significant digit. Level-numbers 66, 77 and 88 identify special properties of a data description entry. * library-name. A user-defined word that names a COBOL library that is to be used by the compiler for a given compilation. * library text. A sequence of text words, comment lines, the separator space, or the separator pseudo-text delimiter in a COBOL library. Lilian date. The number of days since the beginning of the Gregorian calendar. Day one is Friday, October 15, 1582. The Lilian date format is named in honor of Luigi Lilio, the creator of the Gregorian calendar. * LINAGE-COUNTER. A special register whose value points to the current position within the page body. linkage section. The section in the data division of an activated unit (a called program or an invoked method) that describes data items available from the activating unit (a program or a method). These data items can be referred to by both the activated unit and the activating unit. literal. A character-string whose value is specified either by the ordered set of characters comprising the string, or by the use of a figurative constant.
J
Java Native Interface (JNI). A programming interface that allows Java code running inside a Java virtual machine (JVM) to interoperate with applications and libraries written in other programming languages.
K
K. When referring to storage capacity, two to the tenth power; 1024 in decimal notation. * key. A data item that identifies the location of a record, or a set of data items which serve to identify the ordering of data. * key of reference. The key, either prime or alternate, currently being used to access records within an indexed file. * keyword. A reserved word or function-name whose presence is required when the format in which the word appears is used in a source unit. kilobyte (KB). One kilobyte equals 1024 bytes.
Glossary
611
little-endian. The default format that Intel(R) processors use to store binary data. In this format, the most significant digit is at the highest address. See also big-endian. local-storage section. The section of the data division that defines storage that is allocated and freed on a per-invocation basis, depending on the value assigned in their VALUE clauses. * logical operator. One of the reserved words AND, OR, or NOT. In the formation of a condition, either AND or OR, or both, can be used as logical connectives. NOT can be used for logical negation. * logical record. The most inclusive data item. The level-number for a record is 01. A record can be either an elementary item or a group of items. The term is synonymous with record. * low order end. The rightmost character of a string of characters.
| |
* method-name. A name that identifies a method, specified as the content of an alphanumeric or national literal in the METHOD-ID paragraph, and as the content of an alphanumeric literal, national literal, alphanumeric data item, or data item of category national in the INVOKE statement. method hiding. See hide. method overloading. See overload. method overriding. See override. * mnemonic-name. A user-defined word that is associated in the environment division with a specified implementor-name.
N
| | | |
national character. Any character represented in UTF-16. national character data. A general reference to data represented in UTF-16. national character position. See character position.
M
main program. In a hierarchy of programs and subroutines, the first program to receive control when the programs are run. * mass storage. A storage medium in which data can be organized and maintained in both a sequential and nonsequential manner. * mass storage device. A device having a large storage capacity; for example, magnetic disk, magnetic drum. * mass storage file. A collection of records that is assigned to a mass storage medium. * megabyte (M). One megabyte equals 1,048,576 bytes. * merge file. A collection of records to be merged by a MERGE statement. The merge file is created and can be used only by the merge function. method. Procedural code that defines one of the operations supported by an object. Method procedural code is executed by a COBOL INVOKE statement on a specific object instance. A method can be invoked by a Java invocation expression. A method can be a factory method or an instance method. * method identification entry. An entry in the METHOD-ID paragraph of the identification division that contains clauses that specify the method-name and assign selected attributes to the method definition. method invocation. (1) The act of invoking a method. (2) The programming language syntax used to invoke a method (the INVOKE statement in COBOL, a method invocation expression in Java).
| | | | |
national data. See national character data. national data item. A data item of class national. Class national includes categories national, national-edited, and numeric-edited with USAGE NATIONAL. national decimal data item. A data item described by a PICTURE character-string that contains valid combinations of picture symbols 9, S, P, and V. A national decimal data item is an external decimal data item that has usage NATIONAL. national-edited data item. A data item described by a PICTURE character-string that contains the symbol N and at least one of the simple insertion symbols B, 0, and /. A national-edited data item has usage NATIONAL. national floating-point data item. A data item described with usage NATIONAL and a picture character-string that describes a floating-point data item. See floating-point. national group item. A group item that is explicitly or implicitly described with a GROUP-USAGE clause with the NATIONAL phrase. A national group is processed as though it were defined as an elementary data item of category national for operations such as INSPECT, STRING, and UNSTRING. This ensures correct padding and truncation of national characters, as opposed to defining data items described with USAGE NATIONAL within an alphanumeric group item. For operations that require processing of the elementary items within a group, such as MOVE CORRESPONDING, ADD CORRESPONDING, and INITIALIZE identifier, a national group is processed using group semantics.
| | | |
612
* native character set. The implementor-defined character set associated with the computer specified in the OBJECT-COMPUTER paragraph. * native collating sequence. The implementor-defined collating sequence associated with the computer specified in the OBJECT-COMPUTER paragraph. * negated combined condition. The NOT logical operator immediately followed by a parenthesized combined condition. * negated simple condition. The NOT logical operator immediately followed by a simple condition. nested program. A program that is directly contained within another program. * next executable sentence. The next sentence to which control will be transferred after execution of the current statement is complete. * next executable statement. The next statement to which control will be transferred after execution of the current statement is complete. * next record. The record that logically follows the current record of a file. * noncontiguous items. Elementary data items in the working-storage and linkage sections that bear no hierarchic relationship to other data items. nondate. Any of the following: v A data item whose date description entry does not include the DATE FORMAT clause v A literal v A date field that has been converted using the UNDATE function v A reference-modified date field v The result of certain arithmetic operations that can include date field operands; for example, the difference between two compatible date fields null. Figurative constant used to assign the value of an invalid address to pointer data items. NULLS can be used wherever NULL can be used. * numeric character. A character that belongs to the following set of digits: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9. numeric data item. (1) A data item whose description restricts its content to a value represented by characters chosen from the digits from 0 through 9; if signed, the item can also contain a +, -, or other representation of an operational sign. (2) A data item of class numeric and category numeric, internal floating-point, or external floating-point, possibly limited to specific data categories or specific data descriptions by detailed specifications. A numeric data item can have usage DISPLAY, NATIONAL,
| |
O
object. An entity that has state (its data values) and operations (its methods). An object is a way to encapsulate state and behavior. object code. Output from a compiler or assembler that is itself executable machine code or is suitable for processing to produce executable machine code. * object-computer. The name of an environment division paragraph in which the computer environment, within which the program is executed, is described. object deck. A portion of an object program suitable as input to a linkage editor. The term is synonymous with object module and text deck. object instance. A single object, of possibly many, instantiated from the specifications in the object paragraph of a COBOL class definition. An object instance has a copy of all the data described in its class definition and all inherited data. The methods associated with an object instance includes the methods defined in its class definition and all inherited methods. An object instance can be an instance of a Java class. object module. Synonym for object deck or text deck. * object of entry. A set of operands and reserved words, within a data division entry of a COBOL program, that immediately follows the subject of the entry. object program. A set or group of executable machine language instructions and other material designed to interact with data to provide problem solutions. In this context, an object program is generally the machine language result of the operation of a COBOL compiler
Glossary
| | | | | |
613
on a source program or on the methods of an object-oriented class definition. Where there is no danger of ambiguity, the word program alone can be used in place of the phrase object program. object reference. A data item that can contain the information needed to invoke or refer to an object. An object reference is defined in COBOL with the OBJECT REFERENCE phrase in the USAGE clause of a data description entry. See also typed object reference and universal object reference. * object time. The time at which an object program is executed. The term is synonymous with the terms execution time and run time. * obsolete element. A COBOL language element in Standard COBOL 85 that was deleted from Standard COBOL 2002. ODO object. In the example below, WORKING-STORAGE SECTION 01 TABLE-1. 05 X 05 Y OCCURS 3 TIMES DEPENDING ON X
* output file. A file that is opened in either the OUTPUT mode or EXTEND mode. * output mode. The state of a file after execution of an OPEN statement, with the OUTPUT or EXTEND phrase specified, for that file and before the execution of a CLOSE statement without the REEL or UNIT phrase for that file. * output procedure. A set of statements to which control is given during execution of a SORT statement after the sort function is completed, or during execution of a MERGE statement after the merge function reaches a point at which it can select the next record in merged order when requested. overflow condition. A condition that occurs when a portion of the result of an operation exceeds the capacity of the intended unit of storage. overload. To define a method with the same name as another method available in the same class, but with a different signature. See also signature. override. To redefine (in a subclass) an instance method inherited from a parent class.
PICS9. PIC X.
X is the object of the OCCURS DEPENDING ON clause (ODO object). The value of the ODO object determines how many of the ODO subject appear in the table. ODO subject. In the example above, Y is the subject of the OCCURS DEPENDING ON clause (ODO subject). The number of Y ODO subjects that appear in the table depends on the value of X. * open mode. The state of a file after execution of an OPEN statement for that file and before the execution of a CLOSE statement without the REEL or UNIT phrase for that file. The particular open mode is specified in the OPEN statement as either INPUT, OUTPUT, I-O, or EXTEND. operand. Data that is operated upon. In this document, any lowercase word (or words) that appears in a statement or entry format is an operand in that it is a reference to the data identified by that word (or words). * operational sign. An algebraic sign, associated with a numeric data item or a numeric literal, to indicate whether its value is positive or negative. * optional file. A file that is declared as being not necessarily present each time the object program is executed. The object program causes an interrogation for the presence or absence of the file. * optional word. A reserved word that is included in a specific format only to improve the readability of the language and whose presence is optional to the user when the format in which the word appears is used in a source unit.
P
package. In Java, a group of related classes that can be imported individually or as a whole. packed decimal item. See internal decimal item. padding character. An alphanumeric or national character or literal used to fill the unused character positions in a physical record. page. A vertical division of output data representing a physical separation of such data, the separation being based on internal logical requirements or external characteristics of the output medium. * page body. That part of the logical page in which lines can be written or spaced. * paragraph. In the procedure division, a paragraph-name followed by a separator period and by zero, one, or more sentences. In the identification and environment divisions, a paragraph header followed by zero, one, or more entries. * paragraph header. A reserved word, followed by the separator period, that indicates the beginning of a paragraph. * paragraph-name. A user-defined word that identifies and begins a paragraph in the procedure division. password. A unique string of characters that a program, computer operator, or user must supply to meet security requirements before gaining access to data.
614
* phrase. An ordered set of one or more consecutive COBOL character-strings that form a portion of a COBOL procedural statement or of a COBOL clause. * physical record. See block. pointer data item. A data item in which address values can be stored. Data items are explicitly defined as pointers with the USAGE IS POINTER clause. ADDRESS OF special registers are implicitly defined as pointer data items. Pointer data items can be compared for equality or moved to other pointer data items. portability. The ability to transfer an application from one application platform to another with relatively few changes to the source code. * prime record key. A key whose contents uniquely identify a record within an indexed file. * priority-number. A user-defined word that classifies sections in the procedure division for purposes of segmentation. Priority-numbers can contain only the characters 0,1, . . ., 9. private. In object orientation, data that is accessible only by methods of the class that defines the data. Instance data is accessible only by instance methods; factory data is accessible only by factory methods. Thus, instance data is private to instance methods defined in the same class definition; factory data is private to factory methods defined in the same class definition. * procedure. A paragraph or group of logically successive paragraphs, or a section or group of logically successive sections, within the procedure division. * procedure branching statement. A statement that causes the explicit transfer of control to a statement other than the next executable statement in the sequence in which the statements are written in the source unit. The procedure branching statements are: ALTER, CALL, EXIT, EXIT PROGRAM, GO TO, MERGE (with the OUTPUT PROCEDURE phrase), PERFORM, SORT (with the INPUT PROCEDURE or OUTPUT PROCEDURE phrase), and XML PARSE. procedure division. The division of a program or method that contains procedural statements for performing operations at run time. * procedure-name. A user-defined word that is used to name a paragraph or section in the procedure division. It consists of a paragraph-name (which can be qualified) or a section-name. procedure pointer. A data item in which a pointer to an entry point can be stored. A data item defined with the USAGE IS PROCEDURE-POINTER clause contains the address of a procedure entry point.
* program-name. In the identification division and the end program marker, a user-defined or a literal that identifies a COBOL source program. * pseudo-text. A sequence of text words, comment lines, or the separator space in a source unit or COBOL library bounded by, but not including, pseudo-text delimiters. * pseudo-text delimiter. Two contiguous equal sign characters (==) used to delimit pseudo-text. * punctuation character. A character that belongs to the following set: Character , ; : . ( ) = Meaning Comma Semicolon Colon Period (full stop) Quotation mark Left parenthesis Right parenthesis Space Equal sign
Q
QSAM (Queued Sequential Access Method). An extended version of the basic sequential access method (BSAM). When this method is used, a queue is formed of input data blocks that are awaiting processing or of output data blocks that have been processed and are awaiting transfer to auxiliary storage or to an output device. * qualified data-name. An identifier that is composed of a data-name followed by one or more sets of either of the connectives OF and IN followed by a data-name qualifier. * qualifier. (1) A data-name or a name associated with a level indicator which is used in a reference either together with another data-name which is the name of an item that is subordinate to the qualifier or together with a condition-name. (2) A section-name that is used in a reference together with a paragraph-name specified in that section. (3) A library-name that is used in a reference together with a text-name associated with that library.
R
* random access. An access mode in which the program-specified value of a key data item identifies the logical record that is obtained from, deleted from, or placed into a relative or indexed file. * record. See logical record.
Glossary
615
* record area. A storage area allocated for the purpose of processing the record described in a record description entry in the file section of the data division. In the file section, the current number of character positions in the record area is determined by the explicit or implicit RECORD clause. * record description. See record description entry. * record description entry. The total set of data description entries associated with a particular record. The term is synonymous with record description. record key. A key whose contents identify a record within an indexed file. * record-name. A user-defined word that names a record described in a record description entry in the data division of a COBOL program. * record number. The ordinal number of a record in the file whose organization is sequential. recording mode. The format of the logical records in a file. Recording mode can be F (fixed-length), V (variable-length), S (spanned), or U (undefined). recursion. A program calling itself or being directly or indirectly called by a one of its called programs. recursively capable. A program is recursively capable (can be called recursively) if the RECURSIVE clause is on the PROGRAM-ID statement. reel. A discrete portion of a storage medium that contains part of a file, all of a file, or any number of files. The term is synonymous with unit and volume. reentrant. The attribute of a program or routine that allows more than one user to share a single copy of a load module. * reference format. A format that provides a standard method for writing COBOL source code. reference modification. A method of defining a new data item by specifying the leftmost character position and length relative to the leftmost character position of another data item. * reference-modifier. A syntactically correct combination of character-strings and separators that defines a unique data item. It includes a delimiting left parenthesis separator, the leftmost character position, a colon separator, optionally a length, and a delimiting right parenthesis separator. * relation. See relational operator or relation condition. * relation character. A character that belongs to the following set:
* relation condition. The proposition, for which a truth value can be determined, that the value of an arithmetic expression, data item, alphanumeric literal, or index-name has a specific relationship to the value of another arithmetic expression, data item, alphanumeric literal, or index name. See also relational operator. * relational operator. A reserved word, a relation character, a group of consecutive reserved words, or a group of consecutive reserved words and relation characters used in the construction of a relation condition. The permissible operators and their meanings are: Character IS GREATER THAN IS > IS NOT GREATER THAN IS NOT > IS IS IS IS IS IS IS IS LESS THAN < NOT LESS THAN NOT < EQUAL TO = NOT EQUAL TO NOT = Meaning Greater than Greater than Not greater than Not greater than Less than Less than Not less than Not less than Equal to Equal to Not equal to Not equal to
IS GREATER THAN OR EQUAL Greater than or equal to TO IS >= Greater than or equal to IS LESS THAN OR EQUAL TO Less than or equal to IS <= Less than or equal to * relative file. A file with relative organization. * relative key. A key whose contents identify a logical record in a relative file. * relative organization. The permanent logical file structure in which each record is uniquely identified by an integer value greater than zero, which specifies the records logical ordinal position in the file. * relative record number. The ordinal number of a record in a file whose organization is relative. This number is treated as a numeric literal that is an integer.
616
* reserved word. A COBOL word specified in the list of words that can be used in a COBOL source unit, but that must not appear in the program as user-defined words or system-names. * resource. A facility or service, controlled by the operating system, that can be used by an executing program. * resultant identifier. A user-defined data item that is to contain the result of an arithmetic operation. routine. A set of statements in a COBOL program that causes the computer to perform an operation or series of related operations. * routine-name. A user-defined word that identifies a procedure written in a language other than COBOL. * run time. The time at which an object program is executed. The term is synonymous with object time. runtime environment. The environment in which a COBOL program executes. * run unit. A stand-alone object program, or several object programs, that interact via COBOL CALL or INVOKE statements and function at run time as an entity.
* separately compiled program. A program which, together with its contained programs, is compiled separately from all other programs. * separator. A character or two or more contiguous characters used to delimit character-strings. * separator comma. A comma (,) followed by a space used to delimit character-strings. * separator period. A period (.) followed by a space used to delimit character-strings. * separator semicolon. A semicolon (;) followed by a space used to delimit character-strings. * sequential access. An access mode in which logical records are obtained from or placed into a file in a consecutive predecessor-to-successor logical record sequence determined by the order of records in the file. * sequential file. A file with sequential organization. * sequential organization. The permanent logical file structure in which a record is identified by a predecessor-successor relationship established when the record is placed into the file. serial search. A search in which the members of a set are consecutively examined, beginning with the first member and ending with the last. * 77-level-description-entry. A data description entry that describes a noncontiguous data item with the level-number 77. * sign condition. The proposition, for which a truth value can be determined, that the algebraic value of a data item or an arithmetic expression is either less than, greater than, or equal to zero. signature. The name of a method and the number and types of its formal parameters. * simple condition. Any single condition chosen from the set: v Relation condition v Class condition v Condition-name condition v Switch-status condition v Sign condition Single Byte Character Set (SBCS). A set of characters in which each character is represented by a single byte. See also EBCDIC (Extended Binary-Coded Decimal Interchange Code). slack bytes (within records). Bytes inserted by the compiler between data items to ensure correct alignment of some elementary data items. Slack bytes contain no meaningful data. The SYNCHRONIZED
S
SBCS (Single Byte Character Set). See Single Byte Character Set (SBCS). scope terminator. A COBOL reserved word that marks the end of certain procedure division statements. It can be either explicit (END-ADD, for example) or implicit (a separator period, for example). * section. A set of zero, one or more paragraphs or entities, called a section body, the first of which is preceded by a section header. Each section consists of the section header and the related section body. * section header. A combination of words followed by a separator period that indicates the beginning of a section. For example, WORKING-STORAGE SECTION. * section-name. A user-defined word that names a section in the procedure division. segmentation. A feature of Enterprise COBOL that is based on the Standard COBOL 85 segmentation module. The segmentation feature uses priority-numbers in section headers to assign sections to fixed segments or independent segments. Segment classification affects whether procedures contained in a segment receive control in initial state or last-used state. * sentence. A sequence of one or more statements, the last of which is terminated by a separator period.
Glossary
617
clause instructs the compiler to insert slack bytes when they are needed for proper alignment. slack bytes (between records). Bytes inserted by the programmer between blocked logical records of a file, to ensure correct alignment of some elementary data items. In some cases, slack bytes between records improve performance for records processed in a buffer. * sort file. A collection of records to be sorted by a SORT statement. The sort file is created and can be used by the sort function only. * sort-merge file description entry. An entry in the file section of the data division that is composed of the level indicator SD, followed by a file-name, and then followed clauses that describe the attributes of the sort-merge file. source unit. A unit of COBOL source code that can be separately compiled: a program or a class definition. Also known as compilation unit. * special character. A character that belongs to the following set: Character + * / = $ , ; . ( ) > < : Meaning Plus sign Minus sign (hyphen) Asterisk Forward slash Equal sign Currency sign Comma (decimal point) Semicolon Period (decimal point, full stop) Quotation mark Left parenthesis Right parenthesis Greater than symbol Less than symbol Colon
v ISO/IEC 1989:2002, Information technology Programming languages COBOL * statement. A COBOL language construct that specifies one or more actions to be performed. Statements can be procedural statements or compiler-directing statements. An example of a procedural statement is the ADD statement; an example of a compiler-directing statement is the USE statement. structured programming. A technique for organizing and coding a computer program in which the program comprises a hierarchy of segments, each segment having a single entry point and a single exit point. Control is passed downward through the structure without unconditional branches to higher levels of the hierarchy. subclass. A class that inherits from another class. When two classes in an inheritance relationship are considered together, the subclass is the inheriting class; the superclass is the inherited class. A subclass is also referred to as a child class or derived class. * subject of entry. An operand or reserved word that appears immediately following the level indicator or the level-number in a data division entry. * subprogram. Any called program. * subscript. An occurrence number represented by either an integer, a data-name optionally followed by an integer with the operator + or -, or an index-name optionally followed by an integer with the operator + or -, that identifies a particular element in a table. A subscript can be the word ALL when the subscripted identifier is used as a function argument for a function allowing a variable number of arguments. * subscripted data-name. An identifier that is composed of a data-name followed by one or more subscripts enclosed in parentheses. superclass. A class that is inherited by another class. When two classes in an inheritance relationship are considered together, the subclass is the inheriting class; the superclass is the inherited class. The superclass is also referred to as the parent class. surrogate pair. In the UTF-16 format of Unicode, a pair of encoding units that together represents a single Unicode graphic character. The first unit of the pair is called a high surrogate and the second a low surrogate. The code value of a high surrogate is in the range XD800 through XDBFF. The code value of a low surrogate is in the range XDC00 through XDFFF. Surrogate pairs provide for more characters than the 65,536 characters that fit in the Unicode 16-bit coded character set.
SPECIAL-NAMES. The name of an environment division paragraph in which environment-names are related to user-specified mnemonic-names. * special registers. Certain compiler-generated storage areas whose primary use is to store information produced in conjunction with the use of a specific COBOL feature. Standard COBOL 85. The COBOL language defined by the ANSI and ISO standards identified in Appendix G, Industry specifications, on page 597. Standard COBOL 2002. The COBOL language defined by the following standards: v INCITS/ISO/IEC 1989-2002, Information Technology - Programming Languages - COBOL
618
switch-status condition. The proposition, for which a truth value can be determined, that an UPSI switch, capable of being set to an on or off status, has been set to a specific status. * symbolic-character. A user-defined word that specifies a user-defined figurative constant. syntax. (1) The relationship among characters or groups of characters, independent of their meanings or the manner of their interpretation and use. (2) The structure of expressions in a language. (3) The rules governing the structure of a language. (4) The relationship among symbols. (5) The rules for the construction of a statement. * system-name. A COBOL word that is used to communicate with the operating environment.
U
* unary operator. A plus (+) or a minus (-) sign that precedes a variable or a left parenthesis in an arithmetic expression and that has the effect of multiplying the expression by +1 or -1, respectively. Unicode. A coded character set that encodes all the characters required for the written expression of any of the languages of the modern world. There are multiple formats for representing Unicode, including UTF-8, UTF-16, and UTF-32. Enterprise COBOL supports Unicode using UTF-16 big-endian format as the representation for the national data type. unit. A module of direct access, the dimensions of which are determined by IBM. universal object reference. An object reference data item that can contain a reference to an object of any class. * unsuccessful execution. The attempted execution of a statement that does not result in the execution of all the operations specified by that statement. UPSI switch. A program switch that performs the functions of a hardware switch. Eight are provided: UPSI-0 through UPSI-7. * user-defined word. A COBOL word that must be supplied by the user to satisfy the format of a clause or statement. The maximum length of a user-defined word is 30 bytes.
T
* table. A set of logically consecutive items of data that are defined in the data division by means of the OCCURS clause. * table element. A data item that belongs to the set of repeated items comprising a table. text deck. Synonym for object deck or object module. * text-name. A user-defined word that identifies library text. * text word. A character or a sequence of contiguous characters between margin A and margin R in COBOL source code. A text word can be: v A separator, except for: space; a pseudo-text delimiter; and the opening and closing delimiters for alphanumeric literals. The right parenthesis and left parenthesis characters, regardless of context within the library, source unit, or pseudo-text, are always considered text words. v A literal including, in the case of alphanumeric literals, the opening quotation mark and the closing quotation mark that bound the literal. v Any other sequence of contiguous COBOL characters except comment lines and the word COPY bounded by separators that are neither a separator nor a literal. trailer-label. (1) A file or data set label that follows the data records on a unit of recording medium. (2) Synonym for end-of-file label. * truth value. The representation of the result of the evaluation of a condition in terms of one of two values: true or false. typed object reference. An object reference data item that can reference only an object of a specified class or one of its subclasses.
V
* variable. A data item whose value can be changed by the application at run time. * variable-length record. A record associated with a file whose file description or sort-merge description entry permits records to contain a varying number of character positions. * variable-occurrence data item. A variable-occurrence data item is a table element which is repeated a variable number of times. Such an item must contain an OCCURS DEPENDING ON clause in its data description entry, or be subordinate to such an item. variably located group. A group item following, and not subordinate to, a variable-length table in the same level-01 record. A variably located group can be an alphanumeric group or a national group. variably located item. A data item following, and not subordinate to, a variable-length table in the same level-01 record. volume. A module of external storage. For tape devices it is a reel; for direct-access devices it is a unit.
Glossary
| |
619
volume switch procedures. System procedures executed automatically when the end of a unit or reel has been reached before end-of-file has been reached.
XML document. A data object that is well formed as defined by the W3C XML specification.
W
white space characters. Characters that introduce space into a document. They are: v Space v Horizontal tabulation v Carriage return v Line feed v Next line as named in the Unicode Standard. windowed date field. A date field containing a windowed (two-digit) year. See also date field and windowed year. windowed year. A date field that consists only of a two-digit year. This two-digit year can be interpreted using a century window. For example, 05 could be interpreted as 2005. See also century window. Compare with expanded year. * word. A character-string that forms a user-defined word, a system-name, a reserved word, or a function-name. * working-storage section. The section of the data division that describes working-storage data items, composed either of noncontiguous items or working-storage records, or both.
Z
| | | | | |
zoned decimal data item. A data item described by a PICTURE character-string that contains valid combinations of picture symbols 9, S, P, and V. A zoned decimal data item is an external decimal data item that has usage DISPLAY. See external decimal data item and national decimal data item.
X
XML. Extensible Markup Language. A metalanguage for defining markup languages that was derived from and is a subset of SGML. XML omits the more complex and less-used parts of SGML and makes it much easier to: v Write applications to handle document types v Author and manage structured information v Transmit and share structured information across diverse computing systems XML is being developed under the auspices of the World Wide Web Consortium (W3C). XML data. Data that is organized into a hierarchical structure with XML elements. The data definitions are defined in XML element type declarations. XML declaration. XML text that specifies characteristics of the XML document such as the version of XML being used and the encoding of the document.
620
List of resources
Enterprise COBOL for z/OS
Compiler and Runtime Migration Guide, GC27-1409 Customization Guide, GC27-1410 Debug Tool Reference and Messages, SC18-9304 Debug Tool Users Guide, SC18-9302 Fact Sheet, GC27-1407 Language Reference, SC27-1408 Licensed Program Specifications, GC27-1411 Programming Guide, SC27-1412 Support If you have a problem using Enterprise COBOL for z/OS, see the following site, which provides up-to-date support information: www.ibm.com/software/awdtools/cobol/zos/ support/. Command Reference, SC18-7416 SQL Reference, SC18-7426 z/OS DFSMS Access Method Services for Catalogs, SC26-7394 Checkpoint/Restart, SC26-7401 Macro Instructions for Data Sets, SC26-7408 Using Data Sets, SC26-7410 Utilities, SC26-7414 DFSORT(TM) Application Programming Guide, SC26-7523 Installation and Customization, SC26-7524 IMS(TM) Application Programming: Database Manager, SC18-7809 Application Programming: Design Guide, SC18-7810 Application Programming: EXEC DLI Commands for CICS and IMS, SC18-7811 Application Programming: Transaction Manager, SC18-7812 Connect Guide and Reference, SC18-9287 Java Guide and Reference, SC18-7821 z/OS ISPF Dialog Developers Guide and Reference , SC34-4821 Users Guide Vol. 1, SC34-4822 Users Guide Vol. 2, SC34-4823 z/OS Language Environment Concepts Guide, SA22-7567
Related publications
COBOL Report Writer Precompiler Programmers Manual, SC26-4301 CICS Transaction Server for z/OS Application Programming Guide, SC34-6433 Application Programming Reference, SC34-6434 Customization Guide, SC34-6429 External Interfaces Guide, SC34-6449 z/OS C/C++ Programming Guide, SC09-4765 Run-Time Library Reference, SA22-7821 DB2(R) UDB for z/OS Application Programming and SQL Guide, SC18-7415
Copyright IBM Corp. 1991, 2006
621
Customization, SA22-7564 Debugging Guide, GA22-7560 Programming Guide, SA22-7561 Programming Reference, SA22-7562 Run-Time Messages, SA22-7566 Run-Time Migration Guide, GA22-7565 Writing Interlanguage Communication Applications, SA22-7563 z/OS MVS JCL Reference, SA22-7597 JCL Users Guide, SA22-7598 Program Management: Users Guide and Reference, SA22-7643 System Commands, SA22-7627 z/OS TSO/E
Unicode, www.unicode.org/ Character Data Representation Architecture: Reference and Registry, SC09-2190 z/OS Support for Unicode: Using Conversion Services, SA22-7649 Java The Java Language Specification, Second Edition, by Gosling and others, java.sun.com/docs/books/ jls/ second_edition/html/j.title.doc.html Java Native Interface, java.sun.com/j2se/ 1.3/docs/guide/jni/index.html Java 2 Enterprise Edition Developers Guide, java.sun.com/j2ee/sdk_1.2.1/techdocs/guides/ ejb/html/DevGuideTOC.html Java 2 on z/OS, www.ibm.com/servers/eserver/ zseries/ software/java/ Persistent Reusable Java Virtual Machine Users Guide, SC34-6201 WebSphere(R) Application Server for z/OS
Command Reference, SA22-7782 Applications, SA22-7959 Primer, SA22-7787 XML Users Guide, SA22-7794 XML specification, www.w3c.org/XML/ z/OS UNIX(R) System Services Command Reference, SA22-7802 Programming: Assembler Callable Services Reference, SA22-7803 Users Guide, SA22-7801 z/Architecture(TM) Principles of Operation, SA22-7832 Softcopy publications for z/OS The following collection kit contains z/OS and related product publications: z/OS CD Collection Kit, SK3T-4269 Unicode and character representation
622
Numerics
0 insertion character 208 symbol in PICTURE clause 200 0, symbol in PICTURE clause 197 66, RENAMES data description entry 216 66, renames level-number 155 77, elementary item level-number 155 88, condition-name data description entry 178 88, conditional variable level number 155 9, symbol in PICTURE clause 197, 200
A
A, symbol in PICTURE clause 196 abbreviated combined relation condition examples 281 using parentheses in 280 ACCEPT statement description and format 300 FROM phrase 300 mnemonic-name in 300, 301
623
arithmetic operators 12 description 254 permissible symbol pairs 255 arithmetic statements ADD 305 common phrases 286 COMPUTE 324 DIVIDE 332 list of 290 multiple results 291 MULTIPLY 383 operands 290 programming notes 291 SUBTRACT 445 ASCENDING KEY phrase collating sequence 190 description 371 MERGE statement 371 OCCURS clause 189 SORT statement 430 ASCII collating sequence 572 specifying in SPECIAL-NAMES paragraph 111 ASCII considerations 593 ASSIGN clause 594 CODE-SET clause 595 data description entries 595 data division 594 environment division 593 I-O-CONTROL paragraph 594 OBJECT-COMPUTER paragraph 593 procedure division 595 PROGRAM COLLATING SEQUENCE clause 593 SPECIAL-NAMES paragraph 593 ASCII standard 597 ASIN function 490 ASSIGN clause ASCII considerations 594 description 124 format 121 SELECT clause and 124 assigning index values 422 assignment-name 11 ASSIGN clause 124 environment variable 125 RECORD DELIMITER clause 131 RERUN clause 140 assistive technologies xiii asterisk (*) comment line 48 insertion character 211 AT END phrase READ statement 402 RETURN statement 411 SEARCH statement 421 SEARCH statement (binary search) 419 SEARCH statement (serial search) 416 AT END-OF-PAGE phrases 458 at-end condition READ statement 405 RETURN statement 411 ATAN function 491
B
B insertion character 208 symbol in PICTURE clause 195 B, symbol in PICTURE clause 196 basic character set 3 BASIS statement 525 basis-name 52 batch compile 80 BEFORE phrase INSPECT statement 359 PERFORM statement 394 with REPLACING 356 with TALLYING 355 WRITE statement 457 big-endian 5 binary arithmetic operators 254 binary data item, DISPLAY statement 329 BINARY phrase in USAGE clause 227 binary search 419 blank lines 49 BLANK WHEN ZERO clause description and format 180 INDEX phrase in USAGE clause 230 BLOCK CONTAINS clause description 168 format 163 branching GO TO statement 345 out-of-line PERFORM statement 392 BY CONTENT phrase CALL statement 313 BY REFERENCE phrase CALL statement 313 BY VALUE phrase CALL statement 314 INVOKE statement 364
C
CALL statement CANCEL statement and 318 description and format 310 linkage section 250 ON OVERFLOW phrase 310 procedure division header 247, 250 program termination 310 subprogram linkage 310 transfer of control 72 USING phrase 250 called and calling programs, description 310 CANCEL statement 318 carriage control character 458 category relationship to classes of data 156 relationship to usages of data 156 category descriptions 158 category of data 156 alphabetic 158, 201
category of data (continued) alphanumeric 158, 203 alphanumeric-edited 158, 204 DBCS 158, 204 external floating-point 158 internal floating-point 159 national 159, 204 national-edited 159, 205 numeric 159, 201 numeric-edited 160, 203 category of functions 157 category of literals 157 CBL (PROCESS) statement 526 CCSID 5 century window definition 75 CHAR function 491 character code set, specifying 111 character encoding unit 5 character sets 5 character-strings 9 COBOL words 9 representation in PICTURE clause 200 size determination 161 CHARACTERS BY phrase 356 CHARACTERS phrase BLOCK CONTAINS clause 168 INSPECT statement 355 MEMORY SIZE clause 107 USAGE clause and 168 characters, valid in COBOL program 3 checkpoint processing, RERUN clause 140 class (object-oriented) 85 class (of data) of data items 156 of figurative constants 156 of functions 156 of group items 155 of literals 156 CLASS clause 114 class condition 259, 260 class definition class procedure division 245 CLASS-ID paragraph 98 configuration section 105 description 85 effect of SELF and SUPER 363 factory procedure division 245 identification division 94 object procedure division 245 requirements for indexed tables 191 class identification division 93, 98 class procedure division 245 CLASS-ID paragraph 98 class-name 11, 53 class-name class test 260 class-name, OO 53 clauses 42 definition 42 syntactical hierarchy 41 CLOSE statement format and description 320 COBOL class definition 85 language structure 3
624
COBOL (continued) method definition 89 program structure 79 reference format 43 COBOL classes 85 COBOL objects 85 COBOL standards 597 COBOL words 9 with DBCS characters 9 with single-byte characters 9 code page names 5 code pages 5 CODE-SET clause ALPHABET clause and 113 ASCII considerations 595 description 176 format 163 NATIVE phrase and 176 CODEPAGE compiler option 5 collating sequence ASCENDING/DESCENDING KEY phrase and 190 ASCII 572 EBCDIC 569 specified in OBJECT-COMPUTER paragraph 107 specified in SPECIAL-NAMES paragraph 111 COLLATING SEQUENCE phrase 107 ALPHABET clause 111 MERGE statement 372 SORT statement 432 colon character description 38 required use of 535 column 7 indicator area 46 specifying comments 48 combined condition description 277 evaluation rules 278 logical operators and evaluation results 278 order of evaluation 279 permissible element sequences 277 comma (,) DECIMAL-POINT IS COMMA clause 116 insertion character 208 comment lines description 48 in identification division 101 in library text 531 comments 36 COMMON clause 98 common processing facilities 292 COMP-1 through COMP-5 data items 228 comparison tables 265 comparison types 265 comparisons alphanumeric operands 268 cycle, INSPECT statement 359 date field 271 DBCS operands 268 function pointer operands 273 group operands 270
comparisons (continued) in EVALUATE statement 339 index data items 270 index-names 270 national operands 269 numeric operands 270 object reference operands 274 procedure pointer operands 273 rules for COPY statement 532 compatible date field definition 75 compiler limits 565 compiler options 526 ADV 458 CODEPAGE 5 controlling output from 526 DATEPROC 73 NUMPROC 275 PGMNAME 318 specifying 526 THREAD 191 TRUNC 161 compiler-directing statements 48, 525 *CBL (*CONTROL) 526 *CONTROL (*CBL) 526 BASIS 525 CBL (PROCESS) 526 COPY 529 DELETE 535 EJECT 536 ENTER 537 INSERT 537 PROCESS (CBL) 526 READY TRACE 538 REPLACE 538 RESET TRACE 538 SERVICE LABEL 542 SERVICE RELOAD 542 SKIP1 542 SKIP2 542 SKIP3 542 TITLE 543 USE 544 complex conditions abbreviated combined relation 279 combined condition 277 description 276 negated simple 277 complex OCCURS DEPENDING ON (CODO) 194 composite of operands 290 COMPUTATIONAL data items 227 COMPUTATIONAL phrases in USAGE clause 228 COMPUTE statement common phrases 287 description and format 324 computer-name 11, 12, 106 condition abbreviated combined relation 279 class 259 combined 277 complex 276 condition-name 261 EVALUATE statement 338 IF statement 347 negated simple 277
condition (continued) PERFORM UNTIL statement 394 relation 263 SEARCH statement (binary search) 419 SEARCH statement (serial search) 418 sign 275 simple 259 switch-status 276 condition-name 11, 52, 61 and conditional variable 178 description and format 261 rules for values 237 SEARCH statement 420 SET statement 425 SPECIAL-NAMES paragraph 111 switch status condition 111 conditional expressions DBCS operands 268 description 259 index-names and index data items 270 order of evaluation of operands 278 parentheses in abbreviated combined relation conditions 280 conditional statements description 283 GO TO statement 345 IF statement 347 list of 283 PERFORM statement 394 conditional variable 178 configuration section description (programs, classes, methods) 105 REPOSITORY paragraph 116 SOURCE-COMPUTER paragraph 106 SPECIAL-NAMES paragraph 108 conformance rules SET...USAGE OBJECT REFERENCE 428 contained programs 79 continuation area 43 lines 46, 48 CONTINUE statement 326 CONTROL statement (*CONTROL) 526 conversion of data, DISPLAY statement 329 CONVERTING phrase 358 COPY libraries 58 COPY statement comparison rules 532 description and format 529 example 534 replacement rules 532 REPLACING phrase 531 SUPPRESS option 531 CORRESPONDING (CORR) phrase ADD statement 307 description 307 MOVE statement 376 SUBTRACT statement 446 with ON SIZE ERROR phrase 289 COS function 492 Index
625
COUNT IN phrase UNSTRING statement 451 XML GENERATE statement 466 CR (credit) insertion character 209 symbol in PICTURE clause 197 cs (currency symbol) in PICTURE clause 195 CURRENCY SIGN clause description 114 Euro currency sign 114 currency sign value 114 currency symbol 200 in PICTURE clause 198 specifying in CURRENCY SIGN clause 114 currency symbol, default ($) 209 CURRENT-DATE function 492 customer support 621
D
data alignment 160 categories 156, 201 classes 156 hierarchies used in qualification 153 organization 129 signed 161 truncation of 161, 187 data category alphabetic 201 alphanumeric 203 alphanumeric-edited 204 DBCS 204 national 204 national-edited 205 numeric 201 numeric-edited 203 data category descriptions 158 data conversion, DISPLAY statement 329 data description entries ASCII considerations 595 data description entry 177 BLANK WHEN ZERO clause 180 data-name 179 DATE FORMAT clause 180 FILLER phrase 179 GLOBAL clause 186 indentation and 155 JUSTIFIED clause 186 level-66 format (previously defined items) 178 level-88 format (conditionnames) 178 level-number description 178 OCCURS clause 188 OCCURS DEPENDING ON (ODO) clause 192 PICTURE clause 194 REDEFINES clause 212 RENAMES clause 216 SIGN clause 218 SYNCHRONIZED clause 220 USAGE clause 225
data description entry (continued) USAGE IS NATIONAL clause and 186 VALUE clause 234 data division ASCII considerations 594 data description entry 177 data relationships 152 file description (FD) entry 166 in factory definition 147 in method definition 147 in object definition 147 in program definition 147 levels of data 153 linkage section 151 local-storage section 150 sort description (SD) entry 166 working-storage section 149 data division names 59 data flow STRING statement 443 UNSTRING statement 452 data item characteristics 177 description entry definition 149 EXTERNAL clause 185 data item description entry 150 data items categories 157 classes 157 data manipulation statements ACCEPT 300 INITIALIZE 349 list of 291 MOVE 376 overlapping operands 291 READ 401 RELEASE 408 RETURN 410 REWRITE 412 SET 422 STRING 440 UNSTRING 448 WRITE 455 data organization access modes and 133 indexed 129 line-sequential 130 relative 130 sequential 129 DATA RECORDS clause description 173 format 163 data relationships data division 152 data transfer 300 data units factory data 152 file data 151 instance data 152 method data 152 overview 151 program data 152 data-item-description-entry linkage section 151 data-name data description entry 179
data-name (continued) definition 52 DATE 303 date field addition 256 arithmetic 255 compatible 75 DATE FORMAT clause 180 DATEPROC compiler option 73 DATEVAL function 494 definition 74 expansion of windowed date fields before use 181 group items that are date fields 183 in relation conditions 271 in sign conditions 275 MOVE statement, behavior in 381 nondate 75 purpose 73 restrictions 182 size errors 257, 288 storing arithmetic results 257 subtraction 257 trigger values 182 UNDATE function 517 windowed date field conditional variables 262 date field comparisons 271 date format definition 74 DATE FORMAT clause 180 combining with other clauses 182 date functions 486 DATE YYYYMMDD 303 DATE-COMPILED paragraph description 101 format 93 DATE-OF-INTEGER function 493 DATE-TO-YYYYMMDD function 494 DATE-WRITTEN paragraph description 101 format 93 DATEPROC compiler option 73 DATEVAL function 494 DAY 303 DAY YYYYDDD 303 DAY-OF-INTEGER function 495 DAY-OF-WEEK 303 DAY-TO-YYYYDDD function 496 DB (debit) insertion character 209 symbol in PICTURE clause 197 DBCS (Double-Byte Character Set) elementary move rules 379 using in comments 101 DBCS category 158 DBCS character set 3 DBCS characters in COBOL words 10 in literals 29 DBCS class condition 260 DBCS comparisons 268 DBCS function arguments 482 DBCS items alignment rules 160 how to define 204 in ACCEPT 300
626
DBCS items (continued) PICTURE clause 204 DBCS literals 32 in ACCEPT 300 DBCS notation xvii de-editing 380 DEBUG-CONTENTS 17 DEBUG-ITEM special register 17, 578 DEBUG-LINE 17 DEBUG-NAME 17 debugging 577 DEBUGGING declarative 544, 548 debugging lines 49, 106, 577 debugging mode compile-time switch 578 object-time switch 578 DEBUGGING MODE clause 106, 548, 577, 578 debugging sections 577 decimal point (.) 287 DECIMAL-POINT IS COMMA clause description 116 NUMVAL function 509 NUMVAL-C function 510 declarative procedures description and format 250 PERFORM statement 391 USE statement 251 declaratives DEBUGGING 548 EXCEPTION/ERROR 544 LABEL 546 precedence rules for nested programs 545 DECLARATIVES key word begin in Area A 45 description 251 declaratives section 250 DELETE statement description and format 535 dynamic access 327 format and description 327 INVALID KEY phrase 327 random access 327 sequential access 327 DELIMITED BY phrase STRING 440 UNSTRING statement 450 delimited scope statement 285 delimiter INSPECT statement 357 UNSTRING statement 450 DELIMITER IN phrase, UNSTRING statement 450 DEPENDING phrase GO TO statement 345 OCCURS clause 192 derived class 86 DESCENDING KEY phrase 189 collating sequence 190 description 371 MERGE statement 371 SORT statement 430 display floating-point 207 DISPLAY phrase in USAGE clause 229 DISPLAY statement description and format 329
DISPLAY-OF function 497 DIVIDE statement common phrases 287 description and format 332 REMAINDER phrase 335 division header format, environment division 105 format, identification division 93 format, procedure division 247 specification of 44 DO-UNTIL structure, PERFORM statement 394 DO-WHILE structure, PERFORM statement 394 Double-Byte Character Set (DBCS) PICTURE clause and 204 using in comments 101 DOWN BY phrase, SET statement 423 DUPLICATES phrase 136 SORT statement 431 dynamic access mode data organization and 133 DELETE statement 327 description 133 READ statement 406
E
E, symbol in PICTURE clause 196 EBCDIC code page 1140 569 CODE-SET clause and 176 collating sequence 569 specifying in SPECIAL-NAMES paragraph 111 editing fixed insertion 209 floating insertion 210 replacement 211 signs 162 simple insertion 208 special insertion 209 suppression 211 editing sign control symbol 197 editing signs 161, 162 eject page 48 EJECT statement 536 elementary item basic subdivisions of a record 153 MOVE statement 377 size determination in program 161 size determination in storage 161 elementary items 153 alignment rules 160 elementary move rules 377 ELSE NEXT SENTENCE phrase 347 encoding units 5 end class marker 45 END DECLARATIVES key word 251 end markers 45 end method marker 45 END PROGRAM 80 end program marker 45 END-ADD phrase 307 END-CALL phrase 316 END-IF phrase 347 END-INVOKE phrase 366
end-of-file processing 320 END-OF-PAGE phrases 458 END-PERFORM phrase 393 END-SUBSTRACT phrase 447 END-WRITE phrase 460 END-XML phrase XML GENERATE statement 467 XML PARSE statement 473 entries definition 41 syntactical hierarchy 41 ENTRY statement description and format 336 subprogram linkage 336 environment division ASCII considerations 593 configuration section ALPHABET clause 111 CURRENCY SIGN clause 114 OBJECT-COMPUTER paragraph 106 REPOSITORY paragraph 116 SOURCE-COMPUTER paragraph 106 SPECIAL-NAMES paragraph 108, 114 SYMBOLIC CHARACTERS clause 113 input-output section FILE-CONTROL paragraph 120 REPOSITORY paragraph 116 environment variable assignment-name 125 DSN option 125 for a line sequential file 127 for a QSAM file 126 for a VSAM file 127 PATH option 125 environment-name 11, 301, 461 SPECIAL-NAMES paragraph 110, 111 EOP phrases 458 equal sign (=) 263 EQUAL TO relational operator 263 EUC 5 Euro currency sign 570 specifying in CURRENCY SIGN clause 114 EVALUATE statement comparing operands 339 determining truth value 338 format and description 337 evaluation rules combined conditions 278 EVALUATE statement 339 nested IF statement 348 EXCEPTION/ERROR declarative 544 CLOSE statement 321 DELETE statement 327 description and format 544 execution flow ALTER statement 308 PERFORM statement 391 EXIT METHOD statement format and description 342 EXIT PROGRAM statement format and description 343 Index
627
EXIT statement format and description 341 PERFORM statement 392 expanded date field definition 74 expanded year definition 74 expansion of windowed date fields before use 181 explicit scope terminators 285 explicit attributes, of data 69 exponentiation exponential expression 254 expression, arithmetic 253 EXTEND phrase OPEN statement 386 extended character set 3 extension language elements 553 EXTERNAL clause with data item 185 with file name 167 external decimal item DISPLAY statement 329 external floating-point DISPLAY statement 329 external floating-point category 158 external floating-point in ACCEPT 300 external floating-point items alignment rules 160 how to define 206 PICTURE clause 206 external-class-name 11, 117
F
FACTORIAL function 498 factory data 86 factory data division 147 format 148 factory data unit 152 factory definition FACTORY paragraph 99 format and description 88 factory identification division 93, 99 factory method 86, 90 FACTORY paragraph 99 factory procedure division 245 factory procedure division header 247 factory working-storage 150 FALSE phrase 338 FD (file description) entry BLOCK CONTAINS clause 168 DATA RECORDS clause 173 description 166 format 163 GLOBAL clause 167 LABEL RECORDS clause 172 level indicator 153 VALUE OF clause 172 figurative constant ALL literal 14 DISPLAY statement 330 HIGH-VALUE/HIGH-VALUES 13 LOW-VALUE/LOW-VALUES 14 NULL/NULLS 14 QUOTE/QUOTES 14
figurative constant (continued) SPACE/SPACES 13 STOP statement 439 STRING statement 441 symbolic-character 14 ZERO/ZEROS/ZEROES 13 figurative constants 13 file definition 151 labels 172 file organization and access modes 133 definition 133 LINAGE clause 173 line-sequential 130 types of 129 file position indicator description 298 READ statement 405 file section 148, 166 EXTERNAL clause 167 RECORD clause 169 FILE STATUS clause DELETE statement and 327 description 137 file status key 292 format 121 INVALID KEY phrase and 296 file status key common processing facility 292 value and meaning 292 FILE-CONTROL paragraph ASSIGN clause 124 description and format 120 FILE STATUS clause 137 ORGANIZATION clause 129 PADDING CHARACTER clause 131 RECORD KEY clause 134 RELATIVE KEY clause 136 RESERVE clause 128 SELECT clause 124 file-description-entry 148 file-name 52 file-name, specifying on SELECT clause 124 FILLER phrase 177 CORRESPONDING phrase 179 data description entry 179 fixed insertion editing 209 fixed segments 252 fixed-length records 168 floating insertion editing 210 floating-point DISPLAY statement 329 floating-point literals 32 FOOTING phrase of LINAGE clause 173 FOR REMOVAL phrase 320, 321 format notation, rules for xv FROM phrase ACCEPT statement 300 REWRITE statement 412 SUBTRACT statement 445 with identifier 297 WRITE statement 456 function arguments 482
function definitions 486 function pointer in SET statement 422 function pointer data items 229 relation condition 273 function type 480 function-identifier 68 function-names 12 function-pointer data items SET statement 426 FUNCTION-POINTER phrase in USAGE clause 229 functions arguments 482 categories 157 class and category of 156 classes 157 description 479 rules for usage 481 types of functions 480
G
G, symbol in PICTURE clause 196 garbage collection 85 GIVING phrase ADD statement 306 arithmetic 287 DIVIDE statement 335 MERGE statement 374 MULTIPLY statement 384 SORT statement 433 SUBTRACT statement 446 GLOBAL clause with data item 186 with file name 167 GO TO statement 308 altered 346 conditional 345 format and description 345 MORE-LABELS 346 SEARCH statement 420, 421 unconditional 345 GO TO, DEPENDING ON phrase 308 GOBACK statement 344 graphic character 5 GREATER THAN OR EQUAL TO symbol (>=) 263 GREATER THAN symbol (>) 263 group comparisons 270 group items 153 alphanumeric 155 class and category of 155 description 153 MOVE statement 382 national 155, 187 group move rules 382 GROUP-USAGE clause 187 description 187 format 187 GROUP-USAGE NATIONAL clause 187 groups categories 156 classes 156
628
H
halting execution 439 hexadecimal notation for alphanumeric literals 30 for national literals 35 hiding 101 hierarchy of data 153 HIGH-VALUE/HIGH-VALUES 13 HIGH-VALUE(S) figurative constant hyphen (-), in indicator area 46
113
I
I-O-CONTROL paragraph APPLY WRITE-ONLY clause 143 ASCII considerations 594 checkpoint processing in 140 description 119, 138 MULTIPLE FILE TAPE clause 143 order of entries 138 RERUN clause 140 SAME AREA clause 141 SAME RECORD AREA clause 142 SAME SORT AREA clause 143 SAME SORT-MERGE AREA clause 143 IBM extensions xiv, 553 identification division CLASS-ID paragraph 98 FACTORY paragraph 99 format 93 format (program, class, method) 93 METHOD-ID paragraph 100 OBJECT paragraph 100 optional paragraphs 101 PROGRAM-ID paragraph 96 identifier 253 identifiers 59, 253 IF statement 347 imperative statement 282 implementor-name 11 implicit redefinition of storage area 166, 214 scope terminators 286 implicit attributes, of data 69 in-line PERFORM statement 391 indentation 46, 155 independent segments 252 index data item 270, 376 relative indexing 65 SET statement 65 index data item 63 INDEX phrase in USAGE clause 230 index-name 53, 62 assigning values 422 comparisons 270 OCCURS clause 191 PERFORM statement 400 SET statement 422 INDEXED BY phrase 191 indexed files CLOSE statement 321 DELETE statement 327 FILE-CONTROL paragraph format 121
indexed files (continued) I-O-CONTROL paragraph format 138 organization 129 permissible statements for 389 READ statement 405 REWRITE statement 413 START statement 437 indexed organization description 129 FILE-CONTROL paragraph format 121 I-O-CONTROL paragraph format 138 indexing description 65 MOVE statement evaluation 377 OCCURS clause 65, 188 relative 65 SET statement and 65 indicator area 43 industry specifications 597 inheritance 86, 99 INHERITS clause 98 INITIAL clause 98 initial state of program 98 INITIALIZE statement format and description 349 overlapping operands, unpredictable results 291 input file, label processing 387 INPUT phrase OPEN statement 386 USE statement 544 INPUT PROCEDURE phrase RELEASE statement 408 SORT statement 433 Input-Output section description 119 file control paragraph 119 FILE-CONTROL keyword 119 FILE-CONTROL paragraph 120 format 119 I-O-CONTROL paragraph 138 input-output statements ACCEPT 300 CLOSE 320 common processing facilities 292 DELETE 327 DISPLAY 329 EXCEPTION/ERROR procedures 545 general description 291 OPEN 385 READ 401 REWRITE 412 START 436 WRITE 455 INSERT statement 537 insertion editing fixed (numeric-edited items) 209 floating (numeric-edited items) 210 simple 208 special (numeric-edited items) 209 INSPECT statement AFTER phrase 357 BEFORE phrase 357
INSPECT statement (continued) comparison cycle 359 CONVERTING phrase 358 overlapping operands, unpredictable results 291 REPLACING phrase 355 INSTALLATION paragraph description 101 format 93 instance data 85, 89, 152 instance definition format and description 88 instance method 85, 90 instance variable 87 integer arguments 482 INTEGER function 499 integer function arguments 483 integer functions 480, 482 INTEGER-OF-DATE function 499 INTEGER-OF-DAY function 500 INTEGER-PART function 500 internal floating-point DISPLAY statement 329 size of items 161 internal floating-point category 159 internal floating-point items alignment rules 160 how to define 201 INTO phrase DIVIDE statement 332 READ statement 401 RETURN statement 410 STRING statement 440 UNSTRING statement 450 with identifier 297 intrinsic functions 479 ACOS 489 alphanumeric functions 480 ANNUITY 490 ASIN 490 ATAN 491 categories 157 CHAR 491 classes 157 COS 492 CURRENT-DATE 492 DATE-OF-INTEGER 493 DATE-TO-YYYYMMDD 494 DATEVAL 494 DAY-OF-INTEGER 495 DAY-TO-YYYYDDD 496 DISPLAY-OF 497 FACTORIAL 498 floating-point literals 483 INTEGER 499 integer functions 480 INTEGER-OF-DATE 499 INTEGER-OF-DAY 500 INTEGER-PART 500 LENGTH 501 LOG 502 LOG10 502 LOWER-CASE 503 MAX 503 MEAN 504 MEDIAN 505 MIDRANGE 505 Index
629
intrinsic functions (continued) MIN 506 MOD 506 national functions 480 NATIONAL-OF 507 numeric functions 480 NUMVAL 508 NUMVAL-C 509 ORD 511 ORD-MAX 511 ORD-MIN 512 PRESENT-VALUE 512 RANDOM 513 RANGE 514 REM 514 REVERSE 515 SIN 515 SQRT 515 STANDARD-DEVIATION 516 SUM 516 summary of 486 TAN 517 UNDATE 517 UPPER-CASE 518 VARIANCE 518 WHEN-COMPILED 519 YEAR-TO-YYYY 520 YEARWINDOW 521 invalid key condition 296 INVALID KEY phrase DELETE statement 327 READ statement 403 REWRITE statement 412 START statement 437 WRITE statement 459 INVOKE statement BY VALUE phrase 364 format and description 362 LENGTH OF special register 364 NEW phrase 363 NOT ON EXCEPTION phrase 366 ON EXCEPTION phrase 366 RETURNING phrase 365 SELF special object identifier 363 SUPER special object identifier 363 USING phrase 364 ISCII considerations 593 ISCII standard 597 ISO 646 593 ISO COBOL standards 597
JUSTIFIED clause description and format 186 effect on initial settings 187 STRING statement 441 truncation of data 187 USAGE IS INDEX clause and VALUE clause and 235
186
K
Kanji 260 key of reference 129 KEY phrase OCCURS clause 189 READ statement 402 SEARCH statement 419 SORT statement 430 START statement 436 keyboard navigation xiii
L
LABEL declarative 544, 546 label processing, OPEN statement 387 LABEL RECORDS clause description 172 format 163 language-name 11 LEADING phrase INSPECT statement 355, 356 SIGN clause 219 LENGTH function 501 LENGTH OF special register 18 INVOKE statement 364 LESS THAN OR EQUAL TO symbol (<=) 264 LESS THAN symbol (<) 263 level 01 item 153 02-49 item 153 level indicator (FD and SD) 45 definition 152 level-number 48, 153, 177 (01 and 77) 45 66, renames 155 77, elementary item 155 88, conditional variable 155 definition 152 description and format 178 FILLER phrase 179 levels of data 152, 153 library-name 11, 52 COPY statement 529 limit values, date field 182 limits of the compiler 565 LINAGE clause 458 description 173 diagram of phrases 173 format 163 LINAGE-COUNTER special register description 19 WRITE statement 458 LINE WRITE statement 457 line advancing 457
line-sequential file organization 130 LINES WRITE statement 457 LINES AT BOTTOM phrase 173 LINES AT TOP phrase 173 linkage section called subprogram 250 description 151 requirement for indexed items 191 VALUE clause 234 list of resources 621 literal and arithmetic expressions 253 ASSIGN clause 124 CODE-SET clause and ALPHABET clause 113 CURRENCY SIGN clause 114 description 28 null-terminated alphanumeric 30 STOP statement 439 VALUE clause 235 literals categories 157 classes 157 DBCS 32 literals, class and category of 156 local-storage 150 defining with RECURSIVE clause 97 requirement for indexed items 191 LOG function 502 LOG10 function 502 logical operator complex condition 276 in evaluation of combined conditions 278 list of 276 logical record definition 151 file data 151 program data 152 record description entry and 152 RECORDS phrase 169 LOW-VALUE/LOW-VALUES 14 LOW-VALUE(S) figurative constant 113 LOWER-CASE function 503 lowercase letters in PICTURE clause 195
M
MAX function 503 maximum index value 65 MEAN function 504 MEDIAN function 505 MEMORY SIZE clause 107 MERGE statement ASCENDING/DESCENDING KEY phrase 371 COLLATING SEQUENCE phrase 372 format and description 370 GIVING phrase 374 OUTPUT PROCEDURE phrase 374 segmentation considerations 375 USING phrase 373 method data 152 method data division 147
J
Java class-name 117 package 117 Java classes 85 Java interoperability 85 data types 364, 366, 368 literal types 364 Java interoperation 85 Java Native Interface (JNI) 18, 85, 87 Java objects 85 Java String data 85 java.lang.Object 87 JNI environment pointer 87 JNIENVPTR special register 18, 87
630
method data division (continued) format 148 method definition effect of SELF and SUPER 363 format and description 89 identification division 96 inheritance rules 99 method procedure division 245 METHOD-ID paragraph 100 method file section 149 method hiding 101 method identification division 93, 100 method local-storage 150, 151 method overloading 100 method overriding 100 method procedure division 245, 246 method procedure division header 248 method working-storage 149 METHOD-ID paragraph 100 method-name 52 methods available to subclasses 99 exiting 342 invoking 362 recursively reentering 97 reusing 98 MIDRANGE function 505 millennium language extensions syntax 73 millennium language extensions (MLE) description 73 MIN function 506 minus sign (-) COBOL character 3 fixed insertion symbol 209 floating insertion symbol 210, 211 SIGN clause 219 mnemonic-name 11, 53, 300 ACCEPT statement 300 DISPLAY statement 330 SET statement 424 SPECIAL-NAMES paragraph 111 WRITE statement 457 MOD function 506 MORE-LABELS GO TO statement 346 MOVE statement CORRESPONDING phrase 376 elementary moves 377 format and description 376 group moves 382 record area 382 MULTIPLE FILE TAPE clause 143 multiple record processing, READ statement 403 multiple results, arithmetic statements 291 MULTIPLY statement common phrases 287 format and description 383 multivolume files READ statement 405 WRITE statement 461
N
N, symbol in PICTURE clause national category 159 196
national comparisons 269 national data items 231 elementary move rules 379 in a class condition 260 in ACCEPT 300 in UNSTRING statement 448 SEARCH statement 419 national floating-point 207 national function arguments 482 national functions 480, 481 national groups 187 CORRESPONDING phrase 188 description 188 INITIALIZE statement 188 qualification of data-names 188 RENAMES clause 188 where processed as group 188 XML GENERATE statement 188 national items alignment rules 160 how to define 204 PICTURE clause 204 national literals 3, 33 in ACCEPT 300 national literals in hexadecimal notation 35 NATIONAL phrase in USAGE clause 231 national-edited category 159 national-edited items 205 alignment rules 160 how to define 205 NATIONAL-OF function 507 native binary data item 228 native character set 111 native collating sequence 111 negated combined condition 277 negated simple condition 277 NEGATIVE in sign condition 275 nested IF structure description 348 EVALUATE statement 337 nested programs description 79 precedence rules for 545 NEW phrase INVOKE statement 363 next executable statement 71 NEXT RECORD phrase, READ statement 401 NEXT SENTENCE phrase IF statement 347 SEARCH statement 421 SEARCH statement (binary search) 420 SEARCH statement (serial search) 417 NO ADVANCING phrase, DISPLAY statement 330 NO REWIND phrase 320 OPEN statement 386 nondate definition 75 nonreel file, definition 321 NOT AT END phrase READ statement 402 RETURN statement 411
NOT END-OF-PAGE phrase 458 NOT INVALID KEY phrase DELETE statement 327 READ statement 403 REWRITE statement 412 START statement 437 NOT ON EXCEPTION phrase CALL statement 316 INVOKE statement 366 XML GENERATE statement 467 XML PARSE statement 473 NOT ON OVERFLOW phrase STRING statement 442 UNSTRING statement 451 NOT ON SIZE ERROR phrase ADD statement 307 DIVIDE statement 335 general description 288 MULTIPLY statement 384 SUBTRACT statement 447 Notices 599 NSYMBOL compiler option 3 null block branch, CONTINUE statement 326 null-terminated alphanumeric literals NULL/NULLS data pointer 273, 425 figurative constant 14, 239 function-pointer 274, 427 object reference 274, 428 procedure-pointer 274, 427 numeric arguments 482, 483 numeric category 159 NUMERIC class test 260 numeric comparisons 270 numeric function arguments 483 numeric functions 480, 481 numeric items 202 alignment rules 160 how to define 201 millennium dates 202 PICTURE clause 201 numeric literals 31 numeric-edited category 160 numeric-edited item editing signs 162 elementary move rules 379 numeric-edited items alignment rules 160 how to define 203 PICTURE clause 203 NUMVAL function 508 NUMVAL-C function 509
30
O
object data division 147 format 148 object definition OBJECT paragraph 100 object identification division 93, 100 object instance data 152 OBJECT paragraph 100 object procedure division 245 object program 79 object reference 87 in SET statement 422 Index
631
OBJECT REFERENCE phrase 231 object working-storage 149 OBJECT-COMPUTER paragraph 106 ASCII considerations 593 object-oriented class-name 53 object-oriented COBOL class definition 85 comparison rules 274 conformance rules SET...USAGE OBJECT REFERENCE 428 effect of VALUE clause 149 factory definition 88 identification division (class and method) 93 INHERITS clause 98 INVOKE statement 362 method definition 89 method-name 52 object definition 88 OBJECT REFERENCE phrase in USAGE clause 231 OO class name 53 procedure division (classes and methods) 245 REPOSITORY paragraph 116 SELF and SUPER special object identifiers 12 specifying configuration section 105 subclasses and methods 99 objects in EVALUATE statement 338 obsolete language elements xiv OCCURS clause ASCENDING/DESCENDING KEY phrase 189 description 188 INDEXED BY phrase 191 restrictions 189 variable-length tables format 192 OCCURS DEPENDING ON (ODO) clause complex 194 description 192 format 192 object of 192 RECORD clause 169 REDEFINES clause and 188 SEARCH statement and 188 subject and object of 192 subject of 188, 192 subscripting 63 OFF phrase, SET statement 424 OMITTED phrase 313, 314 ON EXCEPTION phrase CALL statement 316 INVOKE statement 366 XML GENERATE statement 466 XML PARSE statement 473 ON OVERFLOW phrase CALL statement 316 STRING statement 442, 451 ON phrase, SET statement 424 ON SIZE ERROR phrase ADD statement 307 arithmetic statements 288 COMPUTE statement 325 DIVIDE statement 335
ON SIZE ERROR phrase (continued) MULTIPLY statement 384 SUBTRACT statement 447 OPEN statement for new/existing files 386 format and description 385 I-O phrase 386 label processing 387 phrases 385 programming notes 388 system dependencies 389 operands comparison of alphanumeric 268 comparison of DBCS 268 comparison of group 270 comparison of national 269 comparison of numeric 270 composite of 290 overlapping 291 operation of XML GENERATE statement 467 operational sign algebraic, description of 161 SIGN clause and 161 USAGE clause and 161 operational signs 161 optional words, syntax notation xv ORD function 511 ORD-MAX function 511 ORD-MIN function 512 order of entries clauses in FILE-CONTROL paragraph 120 I-O-CONTROL paragraph 138 order of evaluation in combined conditions 279 ORGANIZATION clause description 129 format 121 INDEXED phrase 129 LINE SEQUENTIAL phrase 129 RELATIVE phrase 129 SEQUENTIAL phrase 129 out-of-line PERFORM statement 392 outermost programs, debugging 548 output file, label processing 387 OUTPUT phrase 386 OUTPUT PROCEDURE phrase MERGE statement 374 RETURN statement 410 SORT statement 434 OVERFLOW phrase CALL statement 316 STRING statement 442, 451 overlapping operands invalid in arithmetic statements 291 data manipulation statements 291 overloading 100 overriding 100
P
P, symbol in PICTURE clause 196, 199 PACKED-DECIMAL phrase in USAGE clause 228 PADDING CHARACTER clause 131
PAGE WRITE statement 457 page eject 48 paragraph header, specification of 44 termination, EXIT statement 341 paragraph-name 11, 52 description 252 specification of 44 paragraphs description 41, 252 syntactical hierarchy 41 parent class 86 parentheses combined conditions, use 278 in arithmetic expressions 254 partial listings 526 PASSWORD clause description 137 system dependencies 137 PERFORM statement branching 392 conditional 394 END-PERFORM phrase 393 EVALUATE statement 337 execution sequences 392 EXIT statement 341 format and description 391 in-line 392 out-of-line 392 TIMES phrase 393 VARYING phrase 395, 397 period (.) actual decimal point 209 PGMNAME compiler option CANCEL statement 318 phrases definition 42 syntactical hierarchy 41 physical record BLOCK CONTAINS clause 168 definition 151 file data 151 file description entry and 152 RECORDS phrase 169 PICTURE character-strings 36 PICTURE clause and class condition 260 computational items and 227 CURRENCY SIGN clause 114 data categories 201 DECIMAL-POINT IS COMMA clause 116, 195 description 194 editing 207 format 195 symbols used in 195 PICTURE SYMBOL phrase 115 picture symbols 195 - 197 , 197 / 197 . 197 $ (currency symbol) 198 * 197 + 197 0 197
632
picture symbols (continued) 9 197 A 196 asterisk 197 B 196 comma 197 CR 197 currency symbol (cs) 198, 200 DB 197 E 196 G 196 minus 197 N 196 P 196, 199 period 197 plus 197 S 197 sequence of 198 slash 197 V 197 X 197 Z 197 plus (+) fixed insertion symbol 209 floating insertion symbol 210, 211 insertion character 211 SIGN clause 219 pointer data items relation condition 272 SET statement 425 USAGE clause 232 POINTER phrase STRING statement 441 UNSTRING statement 451 POINTER phrase in USAGE clause 232 POSITIVE in sign condition 275 PRESENT-VALUE function 512 PREVIOUS RECORD phrase, READ statement 401 print files, WRITE statement 461 priority-number 108, 252 procedure branching GO TO statement 345 statements, executed sequentially 299 procedure branching statements 299 procedure division ASCII considerations 595 declarative procedures 251 description 245 format (programs, methods, classes) 245 header 247 statements 299 procedure division header RETURNING phrase 250 USING phrase 248 procedure division names 59 procedure pointer data items relation condition 273 procedure-name GO TO statement 345 MERGE statement 374 PERFORM statement 391 SORT statement 433 procedure-pointer data items SET statement 426 USAGE clause 233
PROCEDURE-POINTER phrase in USAGE clause 233 procedures, description 251 PROCESS (CBL) statement 526 PROCESSING PROCEDURE phrase, in XML PARSE 471 product support 621 PROGRAM COLLATING SEQUENCE clause ALPHABET clause 111 ASCII considerations 593 SPECIAL-NAMES paragraph and 107 program data 152 program data division 147 format 148 program definition program procedure division 245 program identification division 93 program local-storage 150 program procedure division 245 program procedure division header 247 program termination GOBACK statement 344 STOP statement 439 program working-storage 149 PROGRAM-ID paragraph description 96 format 93 program-name 52 program-name, rules for referencing 82 program, separately compiled 79 programming interface information 600 programming notes ACCEPT statement 300 altered GO TO statement 308 arithmetic statements 291 data manipulation statements 440, 448 DELETE statement 327 EXCEPTION/ERROR procedures 545 OPEN statement 388 PERFORM statement 393 RECORD clause 169 STRING statement 440 UNSTRING statement 448 programming structures 394 programs, recursive 97 pseudo-text continuation rules 540 COPY statement operand 532 description 49 pseudo-text delimiters 39 punch files, WRITE statement 461
Q
qualification 57 quotation mark () character QUOTE/QUOTES 14 46
R
railroad track format, how to read xv
random access mode data organization and 133 DELETE statement 327 description 133 READ statement 406 RANDOM function 513 RANGE function 514 READ statement AT END phrases 402 dynamic access mode 406 format and description 401 INTO identifier phrase 297, 401 INVALID KEY phrase 296, 403 KEY phrase 402 multiple record processing 403 multivolume files 405 NEXT RECORD phrase 401 overlapping operands, unpredictable results 291 programming notes 406 random access mode 406 READY TRACE statement 538 receiving field COMPUTE statement 324 MOVE statement 376 multiple results rules 291 SET statement 422 STRING statement 441 UNSTRING statement 450 record area description 169 elementary items 153 fixed-length 168 logical, definition of 151 physical, definition of 151 record area MOVE statement 382 RECORD clause description and format 169 omission of 169 RECORD CONTAINS 0 CHARACTERS 170 RECORD DELIMITER clause 131 record description entry 150, 177 levels of data 153 logical record 152 RECORD KEY clause description 134 format 121 record key in indexed file 328 record-description entry linkage section 151 record-description-entry 148 record-name 52 RECORDING MODE clause 175 RECORDS phrase BLOCK CONTAINS clause 169 RERUN clause 141 RECURSIVE clause 97 recursive methods 362 recursive programs 97 requirement for indexed items 191 REDEFINES clause description 212 examples of 214 format 212 general considerations 214 Index
633
REDEFINES clause (continued) OCCURS clause restriction 213 undefined results 216 VALUE clause and 213 redefinition, implicit 166 REEL phrase 320, 321 reference format 43 reference-modification description 66 MOVE statement evaluation 377 reference, methods of simple data 59 relation character COPY statement 531 INITIALIZE statement 349 INSPECT statement 355 relation conditions abbreviated combined 279 alphanumeric comparisons 265, 268 comparison operations 265 data pointer 272 DBCS comparisons 265, 268 description 263 function-pointer operands 273 general relation 263 group comparisons 265 national comparisons 265 numeric comparisons 265 object reference 274 operands of equal size 268 operands of unequal size 268 procedure pointer operands 273 relational operator in abbreviated combined relation condition 280 meaning of each 264 relation condition use 263 relational operators 12 relative files access modes allowed 134 CLOSE statement 321 DELETE statement 327 FILE-CONTROL paragraph format 121 I-O-CONTROL paragraph format 138 organization 130 permissible statements for 389 READ statement 403 RELATIVE KEY clause 134, 136 REWRITE statement 414 START statement 438 RELATIVE KEY clause description 136 format 121 relative organization access modes allowed 134 description 130 FILE-CONTROL paragraph format 121 I-O-CONTROL paragraph format 138 RELEASE statement 291, 408 REM function 514 REMAINDER phrase of DIVIDE statement 335 RENAMES clause 155
RENAMES clause (continued) description and format 216 INITIALIZE statement 350 level 66 item 155, 216 PICTURE clause 195 repeated words, syntax notation xvi REPLACE statement comparison operation 540 continuation rules for pseudo-text 540 description and format 538 special notes 541 replacement editing 211 replacement rules for COPY statement 532 REPLACING phrase COPY statement 531 INITIALIZE statement 349, 350 REPOSITORY paragraph 116, 118 required words, syntax notation xv RERUN clause checkpoint processing 140 description 140 format 138 RECORDS phrase 140 sort/merge 141 RESERVE clause description 128 format 121 reserved words 12, 579 RESET TRACE statement 538 resolution of names 54 result field GIVING phrase 287 NOT ON SIZE ERROR phrase 288 ON SIZE ERROR phrase 288 ROUNDED phrase 287 RETURN statement AT END phrase 411 description and format 410 overlapping operands, unpredictable results 291 RETURN-CODE special register 20 RETURNING phrase CALL statement 315 INVOKE statement 365 procedure division header 250 reusing logical records 413 REVERSE function 515 REWRITE statement description and format 412 FROM identifier phrase 297 INVALID KEY phrase 412 ROUNDED phrase ADD statement 307 COMPUTE statement 325 description 287 DIVIDE statement 334 MULTIPLY statement 384 size error checking and 289 SUBTRACT statement 447 rules for condition-name entries 237 rules for syntax notation xv run unit description 79 termination with CANCEL statement 319
S
S, symbol in PICTURE clause 197 SAME clause 141 SAME RECORD AREA clause description 142 format 138 SAME SORT AREA clause description 143 format 138 SAME SORT-MERGE AREA clause description 143 format 138 scope of names 51 scope terminator explicit 285 implicit 286 SD (sort file description) entry data division 166 DATA RECORDS clause 173 description 166 level indicator 153 SD (Sort File Description) entry description 163 SEARCH statement AT END phrase 416, 421 binary search 419 description and format 415 INDEX phrase in USAGE clause 230 serial search 416 SET statement 416 VARYING phrase 417 WHEN phrase 420 SEARCH STATEMENT NEXT SENTENCE phrase 421 section header description 251 specification of 44 section-name 11, 52 description 251 in EXCEPTION/ERROR declarative 544 sections 41, 251 SECURITY paragraph description 101 format 93 SEGMENT-LIMIT clause 108 segmentation 252 segmentation considerations 308, 375, 435 SELECT clause ASSIGN clause and 124 format 121 specifying a file name 124 SELECT OPTIONAL clause CLOSE statement 321 description 124 format 121 specification for sequential I-O files 124 selection objects in EVALUATE statement 338
634
selection subjects in EVALUATE statement 338 SELF 274 SELF special object identifier 12, 363 sending field MOVE statement 376 SET statement 422 STRING statement 440 UNSTRING statement 448 sentences definition 42 description 253 syntactical hierarchy 41 SEPARATE CHARACTER phrase of SIGN clause 219 separately compiled program 79 separators 37, 237 separators, rules for 37 sequence number area (cols. 1-6) 43 sequential access mode data organization and 133 DELETE statement 327 description 133 READ statement 403 REWRITE statement 413 sequential files access mode allowed 133 CLOSE statement 320, 321 description 129 file description entry 163 FILE-CONTROL paragraph format 121 LINAGE clause 173 OPEN statement 385 PASSWORD clause valid with 137 permissible statements for 388 READ statement 404 REWRITE statement 413 SELECT OPTIONAL clause 124 serial search 416 PERFORM statement 395 SERVICE LABEL statement 542 SERVICE RELOAD statement 542 SET statement description and format 422 DOWN BY phrase 423 function-pointer data items 229, 426 index data item 230 INDEX phrase in USAGE clause 230 object reference data items 428 OFF phrase 424 ON phrase 424 overlapping operands, unpredictable results 291 pointer data items 425 procedure-pointer data items 426 requirement for indexed items 191 SEARCH statement 423 TO phrase 422 TO TRUE phrase 425 UP BY phrase 423 sharing data 186 sharing files 168 SHIFT-IN special register 21 SHIFT-OUT special register 21 sibling program 79 SIGN clause 218
sign condition 275 SIGN IS SEPARATE clause 219 signed numeric item, definition 202 operational signs 161 simple condition combined 277 description and types 259 negated 277 simple data reference 59 simple insertion editing 208 SIN function 515 single-byte ASCII 5 single-byte EBCDIC 5 size-error condition 288 skip to next page 48 SKIP1 statement 542 SKIP2 statement 542 SKIP3 statement 542 slack bytes between 224 within 222 slash (/) comment lines 48 insertion character 208 symbol in PICTURE clause 197 SORT statement ASCENDING KEY phrase 430 COLLATING SEQUENCE phrase 432 DESCENDING KEY phrase 430 description and format 429 DUPLICATES phrase 431 GIVING phrase 433 INPUT PROCEDURE phrase 433 OUTPUT PROCEDURE phrase 434 segmentation considerations 435 USING phrase 432 SORT-CONTROL special register 21, 435 SORT-CORE-SIZE special register 22, 435 SORT-FILE-SIZE special register 22, 435 SORT-MESSAGE special register 22, 435 SORT-MODE-SIZE special register 23, 435 SORT-RETURN special register 23, 435 Sort/Merge feature I-O-CONTROL paragraph format 138 MERGE statement 370 RELEASE statement 408 RERUN clause 141 RETURN statement 410 SAME SORT AREA clause 143 SAME SORT-MERGE AREA clause 143 SORT statement 429 Sort/Merge file statement phrases ASCENDING/DESCENDING KEY phrase 371 COLLATING SEQUENCE phrase 372 GIVING phrase 374 OUTPUT PROCEDURE phrase 374 USING phrase 373 source code library, programming notes 534
source code (continued) listing 528 source code format 43 source language debugging 577 source program standard COBOL reference format 43 SOURCE-COMPUTER paragraph 106 SPACE/SPACES 13 special insertion editing 209 special object identifiers SELF 12 SUPER 12 special registers 15 ADDRESS OF 16 DEBUG-ITEM 17 JNIENVPTR 18 LENGTH OF 18 LINAGE-COUNTER 19 RETURN-CODE 20 SHIFT-OUT, SHIFT-IN 21 SORT-CONTROL 21 SORT-CORE-SIZE 22 SORT-FILE-SIZE 22 SORT-MESSAGE 22 SORT-MODE-SIZE 23 SORT-RETURN 23 TALLY 23 WHEN-COMPILED 24 XML-CODE 24 XML-EVENT 25 XML-NTEXT 26 XML-TEXT 27 SPECIAL-NAMES paragraph ACCEPT statement 300 ALPHABET clause 111 ASCII considerations 593 ASCII-encoded file specification 176 CLASS clause 114 CODE-SET clause and 176 CURRENCY SIGN clause 114 DECIMAL-POINT IS COMMA clause 116 description 108 format 108 mnemonic-name 111 SQRT function 515 standard alignment JUSTIFIED clause 187 standard alignment rules 160 STANDARD-1 RECORD DELIMITER clause 131 STANDARD-1 phrase 111 STANDARD-2 phrase 111 STANDARD-DEVIATION function 516 standards 597 START statement description and format 436 indexed file 437 INVALID KEY phrase 296, 437 relative files 438 status key considerations 436 statement operations common phrases 286 file position indicator 298 INTO and FROM phrases 297 statements categories of 282 Index
635
statements (continued) conditional 283 data manipulation 291 definition 42 delimited scope 285 description 253 imperative 282 input-output 291 procedure branching 299 syntactical hierarchy 41 types of 42 static data 86 static method 86 status key common processing facility 292 file processing 545 STOP RUN statement 439 STOP statement 439 storage map listing 528 MEMORY SIZE clause 107 REDEFINES clause 212 STRING statement description and format 440 execution of 442 overlapping operands, unpredictable results 291 structure of the COBOL language 3 structured programming DO-WHILE and DO-UNTIL 394 subclass 86, 87 subclasses and methods 99 subjects in EVALUATE statement 338 subprogram linkage CALL statement 310 CANCEL statement 318 ENTRY statement 336 subprogram termination CANCEL statement 318 EXIT PROGRAM statement 343 GOBACK statement 344 subscripting definition and format 63 INDEXED BY phrase of OCCURS clause 191 MOVE statement evaluation 377 OCCURS clause specification 188 table references 63 using data-names 64 using index-names (indexing) 65 using integers 64 substitution characters DISPLAY-OF 497 NATIONAL-OF 508 substitution field of INSPECT REPLACING 355 substrings, specifying (reference-modification) 66 SUBTRACT statement common phrases 286 description and format 445 SUM function 516 SUPER special object identifier 12, 13, 363 superclass 86, 87 support 621 SUPPRESS option, COPY 531
suppress output 526 suppression editing 211 switch-status condition 276 SYMBOLIC CHARACTERS clause 113 symbolic-character 11, 14, 53 symbols in PICTURE clause 195 SYNCHRONIZED clause 220 effect on other language elements 220 VALUE clause and 235 syntax notation, rules for xv system considerations, subprogram linkage CALL statement 310 CANCEL statement 318 system information transfer, ACCEPT statement 301 system input device, ACCEPT statement 300 system-names 11, 106 computer-name 106 SOURCE-COMPUTER paragraph 106
transfer of data ACCEPT statement 300 MOVE statement 376 STRING statement 440 UNSTRING statement 448 trigger values, date field 182 trimming of generated XML data 469 TRUNC compiler option 161 truncation of data arithmetic item 161 JUSTIFIED clause 187 ROUNDED phrase 287 TRUNC compiler option 161 truth value complex conditions 276 EVALUATE statement 338 IF statement 347 of complex condition 276 sign condition 275 with conditional statement 283 type conformance SET...USAGE OBJECT REFERENCE 428 types of functions 480
T
table references indexing 65 subscripting 63 TALLY special register 23 TALLYING phrase INSPECT statement 355 UNSTRING statement 451 TAN function 517 termination of execution EXIT METHOD statement 342 EXIT PROGRAM statement 343 GOBACK statement 344 STOP RUN statement 439 terminators, scope 285 text words 530 text-name 11, 53 literal-1 529 THREAD compiler option 191 requirement for indexed items 191 THROUGH (THRU) phrase ALPHABET clause 112 CLASS clause 114 EVALUATE statement 338 PERFORM statement 391 RENAMES clause 216 VALUE clause 237 TIME 303 TIMES phrase of PERFORM statement 393 TITLE statement 543 TO phrase, SET statement 422 TO TRUE phrase, SET statement 425 trademarks 600 transfer of control ALTER statement 308, 309 explicit 71 GO TO statement 345 IF statement 348 implicit 71 PERFORM statement 391 XML PARSE statement 471
U
unary operator 254 unconditional GO TO statement 345 UNDATE function 517 Unicode 3, 5 unique names 155 uniqueness of reference 57 unit file, definition 321 UNIT phrase 320 universal object reference 231 unsigned numeric item, definition 202 UNSTRING statement description and format 448 execution 452 overlapping operands, unpredictable results 291 receiving field 450 sending field 448 UP BY phrase, SET statement 423 UPON phrase, DISPLAY 330 UPPER-CASE function 518 UPSI-0 through UPSI-7, program switches and switch-status condition 276 condition-name 111 processing special conditions 111 SPECIAL-NAMES paragraph 111 USAGE clause BINARY phrase 227 CODE-SET clause and 176 COMPUTATIONAL phrases 228 description 225 DISPLAY phrase 229 DISPLAY-1 phrase 229 format 225 FUNCTION-POINTER phrase 229 INDEX phrase 230 NATIONAL phrase 187, 231 operational signs and 161 PACKED-DECIMAL phrase 228 POINTER phrase 232 PROCEDURE-POINTER phrase 233
636
USAGE clause (continued) VALUE clause and 235 USAGE COMP-1 size of items 161 USAGE COMP-2 size of items 161 USAGE DISPLAY size of items 161 STRING statement and 441 USAGE DISPLAY-1 size of items 161 STRING statement and 441 USAGE NATIONAL size of items 161 STRING statement and 441 USAGE OBJECT REFERENCE phrase 362 USE FOR DEBUGGING declarative 578 USE statement format and description 544 user labels DEBUGGING declarative 548 LABEL declarative 546 user-defined words 10 USING phrase CALL statement 312 in procedure division header 247 INVOKE statement 364 MERGE statement 373 procedure division header 248 SORT statement 432 subprogram linkage 250 UTF-16 3, 5 UTF-8 5
WHEN-COMPILED special register 24 windowed date field definition 74 expansion before use 181 WITH DEBUGGING MODE clause 106, 548, 577 WITH DUPLICATES phrase, SORT statement 431 WITH FOOTING phrase 173 WITH NO ADVANCING phrase 330 WITH NO REWIND phrase, CLOSE statement 321 WITH POINTER phrase STRING statement 441 UNSTRING statement 451 working-storage section 149 WRITE statement AFTER ADVANCING 457, 461 ALTERNATE RECORD KEY 462 BEFORE ADVANCING 457, 461 description 455 END-OF-PAGE phrase 458 format 455 FROM identifier phrase 297 indexed files 462 NOT END-OF-PAGE phrase 458 relative files 462 sequential files 460
Z
Z insertion character 211 symbol in PICTURE clause 197 zero filling, elementary moves 377 suppression and replacement editing 211 ZERO in sign condition 275 ZERO/ZEROS/ZEROES 13
X
X, symbol in PICTURE clause 197 XML GENERATE statement element name formation 470 exception event 466 format conversion 468 operation 467 trimming 469 XML PARSE statement control flow 474 description 471 exception event 473 format 471 nested XML GENERATE 474 nested XML PARSE 474 ON EXCEPTION phrase 473 PROCESSING PROCEDURE phrase 471 XML processing XML-CODE special register 24 XML-EVENT special register 25 XML-NTEXT special register 26 XML-TEXT special register 27 XML-CODE special register 24 use in XML GENERATE 466 use in XML PARSE 473 XML-EVENT special register 25, 475 XML-NTEXT special register 26, 475 XML-TEXT special register 27, 475
V
V, symbol in PICTURE clause 197 VALUE clause condition-name 236 effect on object-oriented programs 149 format 234, 236 level 88 item 155 NULL/NULLS figurative constant 230, 239 rules for condition-name entries rules for literal values 235 VALUE OF clause description 172 format 163 variable-length tables 192 VARIANCE function 518 VARYING phrase PERFORM statement 395 SEARCH statement 417
237
W
WHEN phrase EVALUATE statement 338 SEARCH statement (binary search) 419 SEARCH statement (serial search) 418 WHEN-COMPILED function 519
Y
year-last date field definition 74 YEAR-TO-YYYY function 520
Index
637
638
How satisfied are you that the information in this book is: Very Satisfied Accurate Complete Easy to find Easy to understand Well organized Applicable to your tasks h h h h h h Satisfied h h h h h h Neutral h h h h h h Dissatisfied h h h h h h Very Dissatisfied h h h h h h
h Yes
h No
When you send comments to IBM, you grant IBM a nonexclusive right to use or distribute your comments in any way it believes appropriate without incurring any obligation to you.
Address
___________________________________________________________________________________________________
Tape do not Fold and _ _ _ _ _ _ _Fold _ _ _and ___ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _Please _____ __ _ _ staple _____________________________ ___ _ _ Tape ______ NO POSTAGE NECESSARY IF MAILED IN THE UNITED STATES
IBM Corporation Reader Comments DTX/E269 555 Bailey Avenue San Jose, CA U.S.A. 95141-9989
_________________________________________________________________________________________ Please do not staple Fold and Tape Fold and Tape
SC27-1408-04
Printed in USA
SC27-1408-04