home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / VSCPPv4.zip / VACPP / IBMCPP / HELP / EVFEB4LS.HLP (.txt) < prev    next >
OS/2 Help File  |  1995-05-11  |  291KB  |  12,684 lines

  1.  
  2. ΓòÉΓòÉΓòÉ 1. COBOL/400 Language Help ΓòÉΓòÉΓòÉ
  3.  
  4. COBOL/400 Language Help includes the following topics.  To view the help, 
  5. select an entry in this list. 
  6.  
  7.  COBOL Source Program (Overall Format) 
  8.  
  9.  Identification Division 
  10.  
  11.  Environment Division 
  12.  
  13.  Data Division 
  14.  
  15.  Procedure Division 
  16.  
  17.  Procedure Division Statements 
  18.  
  19.  Compiler-Directing Statements 
  20.  
  21.  
  22. ΓòÉΓòÉΓòÉ 1.1. COBOL Source Program ΓòÉΓòÉΓòÉ
  23.  
  24. Description 
  25.   A COBOL source program is a syntactically correct set of COBOL statements. 
  26.  
  27.   With the exception of the COPY statement, the statements, entries, 
  28.   paragraphs, and sections of a COBOL source program are grouped into four 
  29.   divisions: the Identification, Environment, Data, and Procedure Divisions. 
  30.   The end of a COBOL source program is indicated by the absence of additional 
  31.   source program lines. 
  32.  
  33. Here is the format for a separately compiled COBOL source program: 
  34.  
  35. ΓöÇΓöÇΓö¼ΓöÇΓöÇIDENTIFICATION DIVISION. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  36.     ΓööΓöÇΓöÇID DIVISION. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  37.  
  38. ΓöÇΓöÇPROGRAM-ID. program-name.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  39.  
  40. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  41.    ΓööΓöÇΓöÇidentification-division-contentΓöÇΓöÇΓöÿ
  42.  
  43. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  44.    ΓööΓöÇΓöÇENVIRONMENT DIVISION. environment-division-contentΓöÇΓöÇΓöÿ
  45.  
  46. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  47.    ΓööΓöÇΓöÇDATA DIVISION. data-division-contentΓöÇΓöÇΓöÿ
  48.  
  49. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  50.    ΓööΓöÇΓöÇPROCEDURE DIVISION. procedure-division-contentΓöÇΓöÇΓöÿ
  51.  
  52.  
  53. ΓòÉΓòÉΓòÉ 1.2. Identification Division ΓòÉΓòÉΓòÉ
  54.  
  55. Description 
  56.   The Identification Division must be the first division in every COBOL source 
  57.   program.  It names the program and may include the date the program was 
  58.   written, the date of compilation, and other such documentary information 
  59.   about the program. 
  60.  
  61.   The Identification Division must begin with the words IDENTIFICATION DIVISION 
  62.   or ID DIVISION followed by a separator period. 
  63.  
  64.   The first paragraph of the Identification Division must be the PROGRAM-ID 
  65.   paragraph.  The other paragraphs are optional, but when written, must appear 
  66.   in the order shown in the format. 
  67.  
  68. ΓöÇΓöÇΓö¼ΓöÇΓöÇIDENTIFICATION DIVISION. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  69.     ΓööΓöÇΓöÇID DIVISION. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  70.  
  71. ΓöÇPROGRAM-ID. program-name.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  72.  
  73. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  74.      ΓööΓöÇΓöÇAUTHOR. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  75.                     Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  76.                     Γöé              ΓöéΓöé
  77.                     ΓööΓöÇcomment-entryΓöÇΓö┤Γöÿ
  78.  
  79. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  80.      ΓööΓöÇINSTALLATION. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  81.                        Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  82.                        Γöé              ΓöéΓöé
  83.                        ΓööΓöÇcomment-entryΓöÇΓö┤Γöÿ
  84.  
  85.  
  86. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  87.      ΓööΓöÇDATE-WRITTEN. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  88.                        Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  89.                        Γöé              ΓöéΓöé
  90.                        ΓööΓöÇcomment-entryΓöÇΓö┤Γöÿ
  91.  
  92. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  93.     ΓööΓöÇΓöÇDATE-COMPILED. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  94.                         Γöé  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  95.                         Γöé               ΓöéΓöé
  96.                         ΓööΓöÇΓöÇcomment-entryΓöÇΓö┤Γöÿ
  97.  
  98. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  99.     ΓööΓöÇΓöÇSECURITY. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  100.                    Γöé  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  101.                    Γöé               ΓöéΓöé
  102.                    ΓööΓöÇΓöÇcomment-entryΓöÇΓö┤Γöÿ
  103.  
  104.  
  105. ΓòÉΓòÉΓòÉ 1.3. Environment Division ΓòÉΓòÉΓòÉ
  106.  
  107. Description 
  108.   The Environment Division is optional in a COBOL source program.  It has two 
  109.   sections: 
  110.  
  111.     Configuration Section 
  112.  
  113.     Input-Output Section 
  114.  
  115. Here is the Environment Division format : 
  116.  
  117.  ΓöÇENVIRONMENT DIVISION. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  118.                            ΓööΓöÇCONFIGURATION SECTION. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  119.  
  120. 1  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  121. 2  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  122.      ΓööΓöÇSOURCE-COMPUTER. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  123.                          ΓööΓöÇsource-computer-entryΓöÇΓöÿ
  124.  
  125. 3  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 5
  126. 4  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 6
  127.      ΓööΓöÇOBJECT-COMPUTER. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  128.                          ΓööΓöÇobject-computer-entryΓöÇΓöÿ
  129.  
  130. 5  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  131. 6  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  132.       ΓööΓöÇSPECIAL-NAMES. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  133.                         ΓööΓöÇspecial-names-entryΓöÇΓöÿ
  134.  
  135.    ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 7
  136.      Γöé
  137.      ΓööΓöÇINPUT-OUTPUT SECTION. FILE-CONTROL.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 8
  138.  
  139. 7  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 9
  140.          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  141.                               Γöé
  142. 8  ΓöÇΓöÇΓöÇΓöÇΓöÇfile-control-paragraphΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ10
  143.  
  144. 9  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  145. 10 ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  146.      ΓööΓöÇI-O-CONTROL.ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  147.                     Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ   Γöé
  148.                     Γöé                              Γöé   Γöé
  149.                     ΓööΓöÇinput-output-control-paragraphΓö┤ΓöÇ.ΓöÇΓöÿ
  150.  
  151.  
  152. ΓòÉΓòÉΓòÉ 1.4. Configuration Section ΓòÉΓòÉΓòÉ
  153.  
  154. The Configuration Section is optional.  It contains three paragraphs: 
  155.  
  156.  SOURCE-COMPUTER Paragraph 
  157.  
  158.  OBJECT-COMPUTER Paragraph 
  159.  
  160.  SPECIAL-NAMES Paragraph 
  161.  
  162. When specified, the Configuration Section can describe the computer on which 
  163. the source program is compiled and the computer on which the object program is 
  164. executed. In addition, the Configuration Section can: 
  165.  
  166.  Relate IBM-defined environment-names to user-defined mnemonic names 
  167.  Specify the collating sequence 
  168.  Specify a substitution for the currency sign 
  169.  Exchange the functions of the comma and the period in PICTURE clauses and 
  170.   numeric literals 
  171.  Relate alphabet-names to character sets or collating sequences 
  172.  Relate class names to sets of characters 
  173.  
  174. Each paragraph must contain one, and only one, separator period immediately 
  175. after the last entry in the paragraph. 
  176.  
  177.  
  178. 1  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  179. 2  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  180.      ΓööΓöÇSOURCE-COMPUTER. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  181.                          ΓööΓöÇsource-computer-entryΓöÇΓöÿ
  182.  
  183. 3  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 5
  184. 4  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ 6
  185.      ΓööΓöÇOBJECT-COMPUTER. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  186.                          ΓööΓöÇobject-computer-entryΓöÇΓöÿ
  187.  
  188. 5  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  189. 6  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  190.       ΓööΓöÇSPECIAL-NAMES. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  191.                         ΓööΓöÇspecial-names-entryΓöÇΓöÿ
  192.  
  193.  
  194. ΓòÉΓòÉΓòÉ 1.5. SOURCE-COMPUTER Paragraph ΓòÉΓòÉΓòÉ
  195.  
  196. Description 
  197.   The SOURCE-COMPUTER paragraph describes the computer on which the source 
  198.   program is to be compiled. 
  199.  
  200.   Except for the WITH DEBUGGING MODE clause, the SOURCE-COMPUTER paragraph is 
  201.   syntax-checked only and has no effect on the execution of the program. 
  202.  
  203.  
  204. ΓöÇΓöÇΓöÇSOURCE-COMPUTER.ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  205.                        ΓööΓöÇcomputer-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  206.  
  207. 1 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  208. 2 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ.ΓöÇΓöÇΓöÇΓöÿ
  209.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇDEBUGGING MODEΓöÇΓöÇΓöÿ
  210.              ΓööΓöÇWITHΓöÇΓöÿ
  211.  
  212.  
  213. ΓòÉΓòÉΓòÉ <hidden> WITH DEBUGGING MODE ΓòÉΓòÉΓòÉ
  214.  
  215.  The WITH DEBUGGING MODE clause activates a compile-time switch for debugging 
  216.   lines written in the source program. 
  217.  
  218.  A debugging line is a statement compiled only when the compile-time switch is 
  219.   activated. 
  220.  
  221.  To specify a debugging line in your program, code a 'D' in column 7 (the 
  222.   indicator area). You can include successive debugging lines, but each must 
  223.   have a 'D' in column 7. Do not break character strings across lines. 
  224.  
  225.  You must write all your debugging lines so that the program is syntactically 
  226.   correct, whether the debugging lines are compiled or treated as comments. 
  227.  
  228.  The presence or absence of the WITH DEBUGGING MODE clause is logically 
  229.   determined after all COPY statements have been processed. 
  230.  
  231.  You can code debugging lines in the Environment (after the OBJECT-COMPUTER 
  232.   paragraph), Data, or Procedure Divisions. 
  233.  
  234.  If a debugging line contains only spaces in Area A and Area B, it is treated 
  235.   the same as a blank line. 
  236.  
  237.  
  238. ΓòÉΓòÉΓòÉ 1.6. OBJECT-COMPUTER Paragraph ΓòÉΓòÉΓòÉ
  239.  
  240. Description 
  241.   The OBJECT-COMPUTER paragraph specifies the system for which the object 
  242.   program is designated. 
  243.  
  244.   Except for the PROGRAM COLLATING SEQUENCE clause, the OBJECT-COMPUTER clause 
  245.   is syntax-checked only and has no effect on the execution of the program. 
  246.  
  247.  
  248. ΓöÇΓöÇΓöÇOBJECT-COMPUTER. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  249.                        ΓööΓöÇcomputer-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  250.  
  251. 1 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  252. 2 ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  253.        ΓööΓöÇMEMORYΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼integerΓöÇΓö¼ΓöÇWORDSΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  254.                ΓööSIZEΓöÿ        Γö£ΓöÇCHARACTERSΓöÇΓöñ
  255.                              ΓööΓöÇMODULESΓöÇΓöÇΓöÇΓöÇΓöÿ
  256.  
  257. 3 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 5
  258. 4 ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ 6
  259.      ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSEQUENCEΓö¼ΓöÇΓöÇΓö¼ΓöÇalphabet-nameΓöÇΓöÿ
  260.       ΓööPROGRAMΓöÿΓööCOLLATINGΓöÿ         ΓööISΓöÿ
  261.  
  262. 5 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  263. 6 ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ. ΓöÇΓöÇΓöÿ
  264.      ΓööΓöÇΓöÇSEGMENT-LIMITΓö¼ΓöÇΓöÇΓö¼ΓöÇsegment-numberΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  265.                      ΓööISΓöÿ
  266.  
  267.  
  268. ΓòÉΓòÉΓòÉ <hidden> PROGRAM COLLATING SEQUENCE IS ΓòÉΓòÉΓòÉ
  269.  
  270.  The PROGRAM COLLATING SEQUENCE clause determines the collating sequence to be 
  271.   used in a COBOL program.  The alphabet-name specifies the collating sequence. 
  272.  
  273.  PROGRAM COLLATING SEQUENCE determines the truth value of the following 
  274.   nonnumeric comparisons: 
  275.  
  276.    - Those explicitly specified in relation conditions. 
  277.    - Those explicitly specified in condition-name conditions. 
  278.  
  279.  The PROGRAM COLLATING SEQUENCE clause also applies to any nonnumeric merge or 
  280.   sort keys (unless you specify the COLLATING SEQUENCE phrase in the MERGE or 
  281.   SORT statement). 
  282.  
  283.  If you omit the PROGRAM COLLATING SEQUENCE clause, the EBCDIC collating 
  284.   sequence is used. 
  285.  
  286.  
  287. ΓòÉΓòÉΓòÉ <hidden> SEGMENT-LIMIT IS ΓòÉΓòÉΓòÉ
  288.  
  289.  Determines which segments will be considered permanent segments of the object 
  290.   program. 
  291.  
  292.  When you specify SEGMENT-LIMIT: 
  293.  
  294.    - Permanent segments are those with segment-numbers less than the 
  295.      segment-number designated as the segment-limit. 
  296.    - Overlayable fixed segments have segment-numbers from the segment-limit 
  297.      through 49. 
  298.  
  299.  For example, if you specify SEGMENT-LIMIT IS 25: 
  300.  
  301.    - Sections with segment-numbers 0 through 24 are permanent segments. 
  302.    - Sections with segment-numbers 25 through 49 are overlayable fixed 
  303.      segments. 
  304.  
  305.  If you omit the SEGMENT-LIMIT clause, all segments with segment-numbers 0 
  306.   through 49 are permanent segments of the object program. 
  307.  
  308.  
  309. ΓòÉΓòÉΓòÉ 1.7. SPECIAL-NAMES Paragraph ΓòÉΓòÉΓòÉ
  310.  
  311. Definition 
  312.   The SPECIAL-NAMES paragraph: 
  313.  
  314.     Relates IBM-specified environment-names to user-defined mnemonic-names. 
  315.  
  316.     Relates alphabetic-names to character sets or collating sequences. 
  317.  
  318.     Relates class names to sets of characters. 
  319.  
  320.     Specifies a substitute character for the currency sign. 
  321.  
  322.     Specifies that the functions of the comma and decimal point are to be 
  323.      interchanged in PICTURE clauses and numeric literals. 
  324.  
  325.     Specifies that ACCEPT or DISPLAY statements are treated as extended ACCEPT 
  326.      or DISPLAY statements. 
  327.  
  328.     Specifies additional functions associated with ACCEPT statements. 
  329.  
  330.  
  331.                      ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  332.                      
  333. ΓöÇΓöÇΓöÇSPECIAL-NAMES. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  334.                      Γö£ΓöÇenvironment-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ3
  335.                      Γöé
  336.                      ΓööΓöÇenvironment-name-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ4
  337.  
  338.  
  339. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  340.                                                                     Γöé
  341. 2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝
  342. 3ΓöÇΓö¼ΓöÇΓöÇΓö¼mnemonic-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  343.    ΓööISΓöÿ                                                             Γöé
  344. 4Γö¼Γö¼ΓöÇΓöÇΓö¼mnemonic-name-2Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  345.   ΓöéΓööISΓöÿ               Γöé                                            Γöé
  346.   Γöé                   Γö£ONΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-1Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼Γöñ
  347.   Γöé                   Γöé  ΓööSTATUSΓöÿΓööISΓöÿ      Γöé                     ΓöéΓöéΓöé
  348.   Γöé                   Γöé                    ΓööOFFΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-2ΓöÿΓöéΓöé
  349.   Γöé                   Γöé                        ΓööSTATUSΓöÿΓööISΓöÿ       ΓöéΓöé
  350.   Γöé                   ΓööOFFΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-2Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÿΓöé
  351.   Γöé                       ΓööSTATUSΓöÿΓööISΓöÿ      Γöé                    Γöé Γöé
  352.   Γöé                                         ΓööONΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-1Γöÿ Γöé
  353.   Γöé                                            ΓööSTATUSΓöÿΓööISΓöÿ        Γöé
  354.   Γöé                                                                Γöé
  355.   Γö£ΓöÇONΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  356.   Γöé   ΓööSTATUSΓöÿΓööISΓöÿ       Γöé                     ΓöéΓöé
  357.   Γöé                      ΓööOFFΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-2ΓöÿΓöé
  358.   Γöé                          ΓööSTATUSΓöÿΓööISΓöÿ       Γöé
  359.   ΓööΓöÇOFFΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-2Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  360.        ΓööSTATUSΓöÿΓööISΓöÿ      Γöé                     Γöé
  361.                          ΓööONΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼cond-1ΓöÇΓöÿ
  362.                             ΓööSTATUSΓöÿΓööISΓöÿ
  363.  
  364.  
  365. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  366.   Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  367.   Γöé                                                             ΓöéΓöé
  368.   ΓööΓöÇALPHABET alphabet-name-1Γö¼ΓöÇΓöÇΓö¼Γö¼STANDARD-1Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö┤Γöÿ
  369.                             ΓööISΓöÿΓö£STANDARD-2Γöñ                    Γöé
  370.                                 Γö£NATIVEΓöÇΓöÇΓöÇΓöÇΓöñ                    Γöé
  371.                                 Γö£EBCDICΓöÇΓöÇΓöÇΓöÇΓöñ                    Γöé
  372.                                 Γö£NLSSORTΓöÇΓöÇΓöÇΓöÿ                    Γöé
  373.                                 ΓöéΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  374.                                 Γöé                             ΓöéΓöé
  375.                                 ΓööΓöÇliteral-1Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö┤Γöÿ
  376.                                            Γö£Γö¼THROUGHΓö¼literal-2Γöñ
  377.                                            ΓöéΓööTHRUΓöÇΓöÇΓöÇΓöÿ         Γöé
  378.                                            Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  379.                                            Γöé               Γöé Γöé
  380.                                            ΓööΓöÇΓöÇALSO literal-3Γö┤ΓöÇΓöÿ
  381.  
  382.  
  383.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  384.                                                                 Γöé
  385. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇ
  386.    Γöé                        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  387.    Γöé                                                          Γöé Γöé
  388.    ΓööΓöÇCLASS class-name-1ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇliteral-4Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÿ
  389.                         ΓööISΓöÿ           ΓööΓöÇΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇliteral-5ΓöÇΓöÿ
  390.                                          ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ
  391.  
  392. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  393.    ΓööCURRENCYΓöîΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼literal-6ΓöÇΓöÿ  ΓööΓöÇDECIMAL-POINTΓö¼ΓöÇΓöÇΓö¼COMMAΓöÇΓöÿ
  394.             ΓööSIGNΓöÿΓööISΓöÿ                            ΓööISΓöÿ
  395.  
  396. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  397.    ΓööΓöÇCONSOLEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇCRTΓöÇΓöÿ   ΓööΓöÇCURSORΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇdata-name-1ΓöÇΓöÿ
  398.              ΓööΓöÇISΓöÇΓöÿ                  ΓööΓöÇISΓöÇΓöÿ
  399.  
  400. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  401.    ΓööΓöÇCRT STATUSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇdata-name-2ΓöÇΓöÿ               ΓööΓöÇ.ΓöÇΓöÿ
  402.                 ΓööΓöÇISΓöÇΓöÿ
  403.  
  404.  
  405. ΓòÉΓòÉΓòÉ <hidden> Environment-name-1 ΓòÉΓòÉΓòÉ
  406.  
  407. Environment-name-1 represents the system devices or standard system actions 
  408. taken by the compiler. 
  409.  
  410. Valid specifications for environment-name-1 are as follows: 
  411.  
  412. Environment-name-1         Meaning                           Allowed In
  413.  
  414. CSP                        Suppress spacing when             WRITE
  415.                            printing a line
  416.  
  417. C01                        Skip to the next page.            WRITE
  418.  
  419. ATTRIBUTE-DATA             Retrieve attribute data           ACCEPT
  420.                            about a program device
  421.                            acquired by a transaction
  422.                            file
  423.  
  424. I-O-FEEDBACK               Give information about the        ACCEPT
  425.                            last I-O operation on a file
  426.  
  427. OPEN-FEEDBACK              Give information about a file     ACCEPT
  428.  
  429. CONSOLE,                   Communicate with the system       ACCEPT, DISPLAY
  430. SYSTEM-CONSOLE             operator's message queue
  431.                            (QSYSOPR)
  432.  
  433. LOCAL-DATA                 Retrieve data from, or move       ACCEPT, DISPLAY
  434.                            data to the local data area
  435.  
  436. PIP-DATA                   Retrieve data from the            ACCEPT
  437.                            Program Initialization
  438.                            Parameters (PIP) data area
  439.                            for programs running as part
  440.                            of a prestart job
  441.  
  442. REQUESTOR                  Communicate with the user         ACCEPT, DISPLAY
  443.                            work station (interactive
  444.                            jobs) or the batch stream
  445.                            or job log (batch jobs)
  446.  
  447. SYSIN                      The equivalent of REQUESTOR       ACCEPT
  448.                            (for the ACCEPT statement
  449.                            only)
  450.  
  451. SYSOUT                     The equivalent of REQUESTOR       DISPLAY
  452.                            (for the DISPLAY statement
  453.                            only)
  454.  
  455.  
  456. ΓòÉΓòÉΓòÉ <hidden> Cond-1, Cond-2 ΓòÉΓòÉΓòÉ
  457.  
  458.  Condition-names follow the rules for user-defined names.  At least one 
  459.   character must be alphabetic.  The value associated with the condition-name 
  460.   is considered alphanumeric. A condition-name may be associated with the on 
  461.   status and/or off status of each UPSI switch specified. 
  462.  
  463.  In the Procedure Division, the UPSI switch status is tested by a "switch 
  464.   status condition" using the associated condition-name. The result of the test 
  465.   is true if the UPSI switch is set to the value (0 or 1) corresponding to the 
  466.   specified condition-name. Each condition-name is the equivalent of a level-88 
  467.   item; if you specify the associated mnemonic-name, it is considered the 
  468.   conditional variable and can be used for qualification. 
  469.  
  470.  
  471. ΓòÉΓòÉΓòÉ <hidden> ALPHABET Clause ΓòÉΓòÉΓòÉ
  472.  
  473.  The ALPHABET alphabet-name-1 IS clause provides a means of relating an 
  474.   alphabet-name to a specified character code set or collating sequence. 
  475.  
  476.  It specifies a collating sequence when used in either: 
  477.  
  478.    - The PROGRAM COLLATING SEQUENCE clause of the OBJECT-COMPUTER paragraph 
  479.  
  480.    - The COLLATING SEQUENCE phrase of the SORT or MERGE statement. 
  481.  
  482.  It specifies a character code set when specified in the FD entry CODE-SET 
  483.   clause. 
  484.  
  485.  
  486. ΓòÉΓòÉΓòÉ <hidden> Literal-1, Literal-2, Literal-3 ΓòÉΓòÉΓòÉ
  487.  
  488.  When you specify literal-1, literal-2, or literal-3, the alphabet-name must 
  489.   not be referred to in a CODE-SET clause. 
  490.  
  491.  Literal-1, literal-2, and literal-3 specify that the collating sequence is to 
  492.   be determined by the program, according to the following rules: 
  493.  
  494.    - The order in which literals appear specifies the ordinal number, in 
  495.      ascending sequence, of the character or characters in this collating 
  496.      sequence. 
  497.  
  498.    - Each numeric literal you specify must be an unsigned integer and must have 
  499.      a value from 1 through 256.  The value of each literal specifies the 
  500.      ordinal number, beginning with 1, of a character within the EBCDIC 
  501.      character set. 
  502.  
  503.    - Each character in a nonnumeric literal represents that actual character in 
  504.      the EBCDIC character set. 
  505.  
  506.    - Any EBCDIC characters that you do not explicitly specify assume positions 
  507.      in this collating sequence higher than any of the explicitly specified 
  508.      characters. 
  509.  
  510.    - Within one alphabet-name clause, do not specify a given character more 
  511.      than once. 
  512.  
  513.    - Each nonnumeric literal associated with a THROUGH or ALSO phrase must be 1 
  514.      character in length. 
  515.  
  516.    - When you specify the THROUGH phrase, the contiguous EBCDIC characters 
  517.      beginning with the character specified by literal-1 and ending with the 
  518.      character specified by literal-2 are assigned successively ascending 
  519.      positions in this collating sequence. This sequence may be either 
  520.      ascending or descending within the original EBCDIC sequence. 
  521.  
  522.    - When you specify the ALSO phrase, EBCDIC characters specified as 
  523.      literal-1, literal-3, etc., are assigned to the same position in this 
  524.      collating sequence. 
  525.  
  526.    - If you specify the figurative constants HIGH-VALUE and LOW-VALUE as 
  527.      literals in the SPECIAL-NAMES paragraph, they are associated with hex FF 
  528.      and hex 00 respectively. 
  529.  
  530.    - The character having the highest ordinal position in this collating 
  531.      sequence is associated with the figurative constant HIGH-VALUE. 
  532.  
  533.    - The character having the lowest ordinal position in this collating 
  534.      sequence is associated with the figurative constant LOW-VALUE. 
  535.  
  536.  
  537. ΓòÉΓòÉΓòÉ <hidden> Literal-4, Literal-5 ΓòÉΓòÉΓòÉ
  538.  
  539.  If numeric, literal-4 and literal-5 must be unsigned integers and must have a 
  540.   value from 1 through 256 (the maximum number of characters in the EBCDIC 
  541.   character set). The value of each literal corresponds to the ordinal position 
  542.   of each character in the EBCDIC collating series. 
  543.  
  544.  If nonnumeric, the literal is the actual EBCDIC character. If the value of 
  545.   the nonnumeric literal contains multiple characters, each character in the 
  546.   literal is included in the set of characters identified by class-name-1. 
  547.  
  548.  If the nonnumeric literal is associated with a THROUGH phrase, the literal 
  549.   must be 1 character in length. 
  550.  
  551.  If you specify the THROUGH phrase, class-name-1 includes those characters 
  552.   beginning with the value of literal-4 and ending with the value of literal-5. 
  553.   The characters specified by a THROUGH phrase may specify characters in either 
  554.   ascending or descending order. 
  555.  
  556.  
  557. ΓòÉΓòÉΓòÉ <hidden> literal-6 ΓòÉΓòÉΓòÉ
  558.  
  559. Literal-6 must be a one-character, nonnumeric literal, and must not be any of 
  560. the following: 
  561.  
  562.  Digits zero (0) through nine (9) 
  563.  
  564.  Uppercase alphabetic characters A B C D P R S V X Z 
  565.  
  566.  Lowercase alphabetic characters a through z 
  567.  
  568.  The space 
  569.  
  570.  Special characters * + - / , . ; ( ) = 
  571.  
  572.  A figurative constant. 
  573.  
  574.  
  575. ΓòÉΓòÉΓòÉ <hidden> data-name-1 ΓòÉΓòÉΓòÉ
  576.  
  577. Data-name-1 must be a 4- or 6-byte alphanumeric field or a 4- or 6-byte 
  578. unsigned zoned integer field.  If data-name-1 is 4 characters in length, 
  579. interpret the first two characters as line number, and the second two as column 
  580. number.  If data-name-1 is 6 characters in length, interpret the first three 
  581. characters as line number, and the second three as column number. 
  582.  
  583. The clause has no effect if data-name-1 contains an invalid position value, 
  584. such as: zeros, a nonnumeric value, or a value that is beyond the range of the 
  585. screen. 
  586.  
  587. Data-name-1 must be declared in the WORKING-STORAGE SECTION of the program. 
  588.  
  589.  
  590. ΓòÉΓòÉΓòÉ 1.8. Input-Output Section ΓòÉΓòÉΓòÉ
  591.  
  592. Description 
  593.   The Input-Output section of the Environment Division contains two paragraphs: 
  594.  
  595.     FILE-CONTROL paragraph 
  596.  
  597.     I-O-CONTROL paragraph 
  598.  
  599.                                             ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  600.                                                                   Γöé
  601.  ΓöÇΓöÇΓöÇΓöÇΓöÇINPUT-OUTPUT SECTION. FILE-CONTROL. file-control-paragraphΓöÇΓö┤ΓöÇΓöÇΓöÇ
  602.  
  603.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  604.     ΓööΓöÇΓöÇI-O-CONTROL. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  605.                       Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ   Γöé
  606.                       Γöé                               Γöé   Γöé
  607.                       ΓööΓöÇinput-output-control-paragraphΓöÇΓö┤ΓöÇ.ΓöÇΓöÿ
  608.  
  609.  
  610. ΓòÉΓòÉΓòÉ 1.9. FILE-CONTROL Paragraph ΓòÉΓòÉΓòÉ
  611.  
  612.  The FILE-CONTROL paragraph associates each file in a COBOL program with an 
  613.   external medium, and specifies the file organization, access mode, and other 
  614.   information. 
  615.  
  616.  The FILE-CONTROL paragraph begins with the word "FILE-CONTROL" in Area A, 
  617.   followed by a separator period. The keyword FILE-CONTROL may appear only 
  618.   once, at the beginning of the FILE-CONTROL paragraph. 
  619.  
  620.  The FILE-CONTROL paragraph must contain one and only one entry for each file 
  621.   described in an FD or SD entry in the Data Division. Within each entry, the 
  622.   SELECT clause must appear first. The other clauses may appear in any order. 
  623.  
  624.  The FILE-CONTROL paragraph has five formats: 
  625.  
  626.    - Sequential File Entries 
  627.  
  628.    - Indexed File Entries 
  629.  
  630.    - Relative File Entries 
  631.  
  632.    - Sort or Merge File Entries 
  633.  
  634.    - Transaction File Entries 
  635.  
  636.  
  637. ΓòÉΓòÉΓòÉ <hidden> Sequential File Entries ΓòÉΓòÉΓòÉ
  638.  
  639. Description 
  640.    The FILE-CONTROL paragraph associates each file in the COBOL program with an 
  641.   external medium, and specifies file organization, access mode, and other 
  642.   information. 
  643.  
  644. Format 1 (Sequential File Entries)
  645.  
  646. ΓöÇΓöÇΓöÇSELECTΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  647.                 ΓööΓöÇOPTIONALΓöÇΓöÿ
  648.  
  649.                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  650.                                     Γöé
  651.  ΓöÇΓöÇASSIGNΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇassignment-name-1ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  652.            ΓööTOΓöÿ ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  653.  
  654.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  655.     ΓööΓöÇRESERVE integerΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  656.                       Γö£ΓöÇAREAΓöÇΓöÇΓöñ
  657.                       ΓööΓöÇAREASΓöÇΓöÿ
  658.  
  659.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  660.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSEQUENTIALΓöÇΓöÿ
  661.       ΓööΓöÇORGANIZATIONΓö¼ΓöÇΓöÇΓö¼Γöÿ
  662.                     ΓööISΓöÿ
  663.  
  664.  ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  665.             ΓööΓöÇACCESSΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼SEQUENTIALΓöÇΓöÿ
  666.                     ΓööMODEΓöÿΓööISΓöÿ
  667.  
  668.  ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  669.      ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼STATUSΓö¼ΓöÇΓöÇΓö¼data-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  670.       ΓööFILEΓöÿ      ΓööISΓöÿ            ΓööΓöÇdata-name-5ΓöÇΓöÿ
  671.  
  672.  
  673. ΓòÉΓòÉΓòÉ <hidden> Indexed File Entries ΓòÉΓòÉΓòÉ
  674.  
  675. Description 
  676.    The FILE-CONTROL paragraph associates each file in the COBOL program with an 
  677.   external medium, and specifies file organization, access mode, and other 
  678.   information. 
  679.  
  680. Format 2 (Indexed File Entries)
  681.  
  682. ΓöÇΓöÇΓöÇSELECTΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  683.  
  684.                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  685.                                     Γöé
  686.  ΓöÇΓöÇASSIGNΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇassignment-name-1ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  687.            ΓööTOΓöÿ ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  688.  
  689.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  690.       ΓööΓöÇRESERVE integerΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  691.                         Γö£ΓöÇAREAΓöÇΓöÇΓöñ
  692.                         ΓööΓöÇAREASΓöÇΓöÿ
  693.  
  694.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇINDEXEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  695.     ΓööΓöÇORGANIZATIONΓö¼ΓöÇΓöÇΓö¼Γöÿ
  696.                   ΓööISΓöÿ
  697.  
  698.  ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  699.      ΓööΓöÇACCESSΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼Γö¼ΓöÇSEQUENTIALΓöÇΓö¼ΓöÇΓöÿ
  700.              ΓööMODEΓöÿΓööISΓöÿΓö£ΓöÇRANDOMΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  701.                        ΓööΓöÇDYNAMICΓöÇΓöÇΓöÇΓöÇΓöÿ
  702.  
  703.  ΓöÇΓöÇRECORDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇEXTERNALLY-DESCRIBED-KEYΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  704.             ΓööKEYΓöÿ  ΓööISΓöÿ  ΓööΓöÇΓöÇdata-name-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  705.  
  706.  ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  707.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇDUPLICATESΓöÇΓöÇΓöÿ
  708.        ΓööΓöÇWITHΓöÇΓöÿ
  709.  
  710.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ. ΓöÇΓöÇΓöÇΓöÇΓöÇ
  711.     ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼STATUSΓö¼ΓöÇΓöÇΓö¼ΓöÇdata-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  712.      ΓööFILEΓöÿ      ΓööISΓöÿ             ΓööΓöÇdata-name-5ΓöÇΓöÿ
  713.  
  714.  
  715. ΓòÉΓòÉΓòÉ <hidden> Relative File Entries ΓòÉΓòÉΓòÉ
  716.  
  717. Description 
  718.    The FILE-CONTROL paragraph associates each file in the COBOL program with an 
  719.   external medium, and specifies file organization, access mode, and other 
  720.   information. 
  721.  
  722. Format 3 (Relative File Entries)
  723.  
  724. ΓöÇΓöÇΓöÇSELECTΓöÇΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  725.  
  726.                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  727.                                     Γöé
  728.  ΓöÇΓöÇASSIGNΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇassignment-name-1ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  729.            ΓööTOΓöÿ ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  730.  
  731.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  732.       ΓööΓöÇRESERVE integerΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  733.                         Γö£ΓöÇAREAΓöÇΓöÇΓöñ
  734.                         ΓööΓöÇAREASΓöÇΓöÿ
  735.  
  736.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇRELATIVEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  737.     ΓööΓöÇORGANIZATIONΓö¼ΓöÇΓöÇΓö¼Γöÿ
  738.                   ΓööISΓöÿ
  739.  
  740.  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  741.    ΓööACCESSΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼Γö¼SEQUENTIALΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  742.           ΓööMODEΓöÿΓööISΓöÿΓöé          ΓööRELATIVEΓö¼ΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼data-name-4Γöñ
  743.                     Γöé                   ΓööKEYΓöÿΓööISΓöÿ           Γöé
  744.                     ΓööΓö¼ΓöÇRANDOMΓöÇΓöÇΓö¼RELATIVEΓö¼ΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼data-name-4Γöÿ
  745.                      ΓööΓöÇDYNAMICΓöÇΓöÿ        ΓööKEYΓöÿΓööISΓöÿ
  746.  
  747.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  748.     ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼STATUSΓö¼ΓöÇΓöÇΓö¼data-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  749.      ΓööFILEΓöÿ      ΓööISΓöÿ            ΓööΓöÇdata-name-5ΓöÇΓöÿ
  750.  
  751.  
  752. ΓòÉΓòÉΓòÉ <hidden> Sort or Merge File Entries ΓòÉΓòÉΓòÉ
  753.  
  754. Description 
  755.    The FILE-CONTROL paragraph associates each file in the COBOL program with an 
  756.   external medium, and specifies file organization, access mode, and other 
  757.   information. 
  758.  
  759. Format 4 (Sort or Merge File Entries)
  760.  
  761. ΓöÇΓöÇΓöÇSELECTΓöÇΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  762.  
  763.                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  764.                                     Γöé
  765.  ΓöÇΓöÇASSIGNΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇassignment-name-1ΓöÇΓö╝ΓöÇ. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  766.            ΓööTOΓöÿ ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  767.  
  768.  
  769. ΓòÉΓòÉΓòÉ <hidden> TRANSACTION File Entries ΓòÉΓòÉΓòÉ
  770.  
  771. Description 
  772.    The FILE-CONTROL paragraph associates each file in the COBOL program with an 
  773.   external medium, and specifies file organization, access mode, and other 
  774.   information. 
  775.  
  776. Format 5 (TRANSACTION File Entries)
  777.  
  778. ΓöÇΓöÇΓöÇSELECTΓöÇΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  779.  
  780.                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  781.                                     Γöé
  782.  ΓöÇΓöÇASSIGNΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇassignment-name-1ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  783.            ΓööTOΓöÿ ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  784.  
  785.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇTRANSACTIONΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  786.     ΓööΓöÇORGANIZATIONΓö¼ΓöÇΓöÇΓö¼Γöÿ
  787.                   ΓööISΓöÿ
  788.  
  789.  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  790.    ΓööACCESSΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼Γö¼SEQUENTIALΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  791.           ΓööMODEΓöÿΓööISΓöÿΓööDYNAMICΓöÇΓöÇRELATIVEΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼ΓöÇdata-name-3ΓöÇΓöÿ
  792.                                        ΓööKEYΓöÿΓööISΓöÿ
  793.  
  794.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  795.     ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼STATUSΓö¼ΓöÇΓöÇΓö¼data-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  796.      ΓööFILEΓöÿ      ΓööISΓöÿ            ΓööΓöÇdata-name-5ΓöÇΓöÿ
  797.  
  798.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  799.     ΓööΓöÇCONTROL-AREAΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-6ΓöÇΓöÇΓöÿ
  800.                     ΓööΓöÇISΓöÇΓöÿ
  801.  
  802.  
  803. ΓòÉΓòÉΓòÉ 1.10. ASSIGN Clause ΓòÉΓòÉΓòÉ
  804.  
  805. The ASSIGN clause associates a file with an external medium. 
  806.  
  807. For sort or merge files (associated with an SD entry), no external medium is 
  808. used. The related ASSIGN clause is only validity checked and it is not used for 
  809. I-O. 
  810.  
  811. Assignment-name-1 or literal-1 consists of three parts: 
  812.  
  813.  Device 
  814.  File name 
  815.  Attribute. 
  816.  
  817. The general structure is: 
  818.  
  819. ΓöÇΓöÇΓöÇΓöÇdeviceΓöÇΓöÇ -file-nameΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  820.                            ΓööΓöÇ -attributeΓöÇΓöÇΓöÿ
  821.  
  822.  
  823. ΓòÉΓòÉΓòÉ <hidden> ASSIGN Clause ΓòÉΓòÉΓòÉ
  824.  
  825. The ASSIGN clause associates the TRANSACTION file with a display file or ICF 
  826. file through the use of assignment-name-1 or literal-1. 
  827.  
  828. Assignment-name-1 or literal-1 consists of three parts: 
  829.  
  830.  Device 
  831.  File name 
  832.  Attribute. 
  833.  
  834. The general structure is: 
  835.  
  836. ΓöÇΓöÇΓöÇΓöÇdeviceΓöÇΓöÇ -file-nameΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  837.                            ΓööΓöÇ -attributeΓöÇΓöÇΓöÿ
  838.  
  839.  
  840. ΓòÉΓòÉΓòÉ 1.11. File-name ΓòÉΓòÉΓòÉ
  841.  
  842. -file-name must be an unhyphenated 1- through 10-character system name of the 
  843. actual external file (physical or logical database, or device). You must create 
  844. the external file before compiling the program, if the external file is used 
  845. within the program by a COPY statement, DDS (data description specifications) 
  846. or DD format. 
  847.  
  848. For database files, you cannot specify the member name in the program. If you 
  849. want to specify a member other than the first member, you must use the Override 
  850. with Database File (OVRDBF) CL command at execution time to specify that member 
  851. name. 
  852.  
  853. This file name is the name of the AS/400 object that is displayed by the 
  854. Display Program References (DSPPGMREF) command.  Since no external medium is 
  855. used for an SD file, the DSPPGMREF command does not list any files defined for 
  856. an SD file. 
  857.  
  858. You can change the file name at execution time with the TOFILE parameter of the 
  859. OVRxxxF CL command. For consistent results, ensure that the device type 
  860. associated with the TOFILE parameter is the same as that specified for 
  861. assignment-name-1 or literal-1. 
  862.  
  863.  
  864. ΓòÉΓòÉΓòÉ <hidden> EXTERNALLY-DESCRIBED-KEY ΓòÉΓòÉΓòÉ
  865.  
  866.  You can use the reserved word EXTERNALLY-DESCRIBED-KEY to specify that the 
  867.   keys for the file are those that are externally described in the data 
  868.   description specifications (DDS). 
  869.  
  870.  The keys are determined by the record formats that are copied by the COPY 
  871.   statement (DDS, DD, DDSR, or DDR format), under the file description (FD) for 
  872.   this file. 
  873.  
  874.  The key can start at different offsets within the buffer for each format.  In 
  875.   this situation, you must be careful when changing from one record format to 
  876.   another using a random READ or START statement.  You must place the key in 
  877.   the record format, at the correct offset in the format, that will be used in 
  878.   the random access of the file. Unpredictable results can occur if the key 
  879.   from the desired record is based on data that was part of the last record 
  880.   read.  This is because the movement of data to the key field can involve 
  881.   overlapping records. 
  882.  
  883.  The key within a format can be made up of multiple, noncontiguous (not 
  884.   adjacent) fields.  You should reference only those record formats copied in 
  885.   within the FD for the file with the FORMAT phrase.  If you reference a format 
  886.   defined within the file, but that format has not been copied into the 
  887.   program, the key is built using key fields defined for the first record 
  888.   format copied.  This can cause unpredictable results. 
  889.  
  890.  If a portion of the key is declared in the logical file only as an element of 
  891.   a concatenated item (rather than an independently-declared item), the result 
  892.   of the CONCAT operation must not be a variable-length item. 
  893.  
  894.  
  895. ΓòÉΓòÉΓòÉ <hidden> Data-name-2 ΓòÉΓòÉΓòÉ
  896.  
  897.  Data-name-2 represents the  RECORD KEY data item.  Describe it as an 
  898.   alphanumeric item within a record description entry associated with the file. 
  899.   The length of the record key is restricted; the key length, in characters, 
  900.   cannot exceed 120. 
  901.  
  902.  Data-name-2 may be a numeric item when the file is assigned to a DATABASE 
  903.   device type.  The numeric item can have a usage of DISPLAY, COMP (COMP-3), 
  904.   COMP-4, PACKED-DECIMAL, or BINARY. 
  905.  
  906.  Data-name-2 may be qualified, but it must not be subscripted. 
  907.  
  908.  The data description of data-name-2 and its relative location within the 
  909.   record must be the same as those used when the file was defined in DDS. 
  910.  
  911.  The record description that defines data-name-2 will always be used to access 
  912.   the record key field for the I-O operation. 
  913.  
  914.  
  915. ΓòÉΓòÉΓòÉ <hidden> DUPLICATES Phrase ΓòÉΓòÉΓòÉ
  916.  
  917.  The DUPLICATES phrase allows a file to have keys with the same values. You 
  918.   can only specify the DUPLICATES phrase for files assigned to DATABASE. If the 
  919.   file has multiple formats, two keys in different formats have the same values 
  920.   only when the key lengths and the contents of the keys are the same. 
  921.  
  922.   For example: 
  923.  
  924.    Format F1 with keys A, B, C 
  925.    Format F2 with keys A, B, D 
  926.  
  927. If fields C and D are the same length, have the same data type, and have the 
  928. same values, the file contains two records with a duplicate key.  The term 
  929. duplicate key applies only to a complete record key for the format.  A record 
  930. key for the format consists of the key fields defined for a DDS format for 
  931. records residing on the database. The term does not apply to the common key for 
  932. the file (only fields A and B in the example). 
  933.  
  934.  You will receive a file status of 95 after a file has been successfully 
  935.   opened: 
  936.  
  937.    - If you specify the DUPLICATES phrase in the COBOL program and the file was 
  938.      created with UNIQUE specified in the DDS. 
  939.  
  940.    - If you do not specify the DUPLICATES phrase in the COBOL program and the 
  941.      file was created allowing nonunique keys. You can have unpredictable 
  942.   results if you process files when either of these conditions exist. 
  943.  
  944.  In a file that allows duplicates and is processed randomly or dynamically, 
  945.   the duplicate record that is updated or deleted must be the proper one. To 
  946.   ensure this, the last input/output statement processed prior to the REWRITE 
  947.   or DELETE operation must be a successfully processed READ statement without 
  948.   the NO LOCK phrase. 
  949.  
  950.  If you specify the DDS file level keyword LIFO (last-in-first-out). the 
  951.   duplicate records within a physical file are retrieved in a last-in-first-out 
  952.   order. 
  953.  
  954.  
  955. ΓòÉΓòÉΓòÉ <hidden> Data-name-5 ΓòÉΓòÉΓòÉ
  956.  
  957. An optional status key data item may be specified for non-transaction and 
  958. transaction file processing. 
  959.  
  960.  For non-transaction files, the data item must be a 6-byte group item.  The 
  961.   item is treated as documentation for all non-transaction files except for 
  962.   those that are dynamically created. 
  963.  
  964.  For transaction files, the data item must be a 4-character alphanumeric item. 
  965.  
  966.  
  967. ΓòÉΓòÉΓòÉ <hidden> Data-name-5 ΓòÉΓòÉΓòÉ
  968.  
  969. You must define data-name-5 in the Data Division as a 4-byte alphanumeric data 
  970. item. You cannot define data-name-5 in the File Section. 
  971.  
  972. Data-name-5 identifies the extended-file-status data item, which contains major 
  973. and minor return codes. The first 2 bytes of the extended-file-status data item 
  974. contain the major return code, and the last 2 bytes contain the minor return 
  975. code. Return codes are moved into data-name-5 after any input or output 
  976. operation (except the ACCEPT or CLOSE statement) on the TRANSACTION file. 
  977.  
  978. In some cases, the major and minor return codes can indicate I/O errors when 
  979. the file status code does not. The extended file status will have a value of 
  980. zeros after you perform an I/O operation on an unopened file. 
  981.  
  982.  
  983. ΓòÉΓòÉΓòÉ <hidden> Data-name-6 ΓòÉΓòÉΓòÉ
  984.  
  985.  Data-name-6 is a CONTROL-AREA data item you must define in the LINKAGE 
  986.   SECTION or WORKING-STORAGE section. 
  987.  
  988.  Data-name-6 must be 2, 12, or 22 characters long.  Based upon the length of 
  989.   data-name-6, the compiler assumes the availability of key feedback bytes, the 
  990.   program device name, and the record format. 
  991.  
  992.  The format for data-name-6 is : 
  993.  
  994.          01  data-name-6.
  995.              02  function-key PIC X(2).
  996.                        (Function key feedback field)
  997.              02  device-name PIC X(10).
  998.                        (Program device name)
  999.              02  record-format PIC X(10).
  1000.                        (Record format)
  1001.  
  1002.  For an ICF file, the actual name of a device may be different from the 
  1003.   program device name. 
  1004.  
  1005.  
  1006. ΓòÉΓòÉΓòÉ 1.12. I-O CONTROL Paragraph ΓòÉΓòÉΓòÉ
  1007.  
  1008. Description 
  1009.  
  1010.     The I-O control paragraph of the INPUT-OUTPUT SECTION specifies when 
  1011.      checkpoints are to be taken and which storage areas are to be shared by 
  1012.      different files. It also specifies information needed for efficient 
  1013.      transmission of data between external media and the COBOL program. This 
  1014.      paragraph is optional in a COBOL program. 
  1015.  
  1016.     The keyword I-O-CONTROL may appear only once, at the beginning of the 
  1017.      paragraph. The word I-O-CONTROL must begin in Area A and must be followed 
  1018.      by a separator period. 
  1019.  
  1020.     Each clause within the paragraph may be separated from the next clause by 
  1021.      a separator comma or a separator semicolon.  The order in which 
  1022.      I-O-CONTROL paragraph clauses are written is not significant.  The 
  1023.      I-O-CONTROL paragraph ends with a separator period. 
  1024.  
  1025.     The I-O CONTROL paragraph has three formats: 
  1026.  
  1027.       - Format 1 (Sequential Files) 
  1028.  
  1029.       - Format 2 (Indexed and Relative Files) 
  1030.  
  1031.       - Format 3 (Sort/Merge Files) 
  1032.  
  1033.  
  1034. ΓòÉΓòÉΓòÉ <hidden> I-O CONTROL Paragraph Format 1 (Sequential Files) ΓòÉΓòÉΓòÉ
  1035.  
  1036. Format 1 (Sequential Files)
  1037.  
  1038. ΓöÇΓöÇI-O-CONTROLΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1039.                   ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1040.  
  1041. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1042.  
  1043.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  1044.    
  1045. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1046.    ΓööΓöÇRERUNΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  1047.            ΓööΓöÇONΓöÇΓö¼ΓöÇfile-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1048.                 ΓööΓöÇassignment-name-1ΓöÇΓöÿ
  1049.  
  1050. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1051.  
  1052. 4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1053.                                                     Γöé
  1054. 2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1055. 3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-1ΓöÇΓöÇΓöÇRECORDSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-2ΓöÇΓöÿ
  1056.    ΓööΓöÇEVERYΓöÇΓöÿ                     ΓööΓöÇOFΓöÇΓöÿ
  1057.  
  1058. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1059.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1060.                                                                    Γöé
  1061. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇ 2
  1062.    Γöé                                                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1063.    Γöé                                                            Γöé  Γöé
  1064.    ΓööΓöÇSAMEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-3ΓöÇΓöÇΓöÇfile-name-4ΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1065.           ΓööΓöÇRECORDΓöÇΓöÿ  ΓööΓöÇAREAΓöÇΓöÿ ΓööΓöÇFORΓöÇΓöÿ
  1066.  
  1067.  
  1068. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1069.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1070.                                                                    Γöé
  1071. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓö¼ΓöÇ 2
  1072.    Γöé                                                                Γöé Γöé
  1073.    Γöé                                                                Γöé Γöé
  1074.    ΓööΓöÇMULTIPLE FILEΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÿ
  1075.                   ΓööTAPEΓöÿ ΓööCONTAINSΓöÿ             ΓööPOSITIONΓöÇΓöÇinteger-2Γöÿ
  1076.  
  1077.  
  1078. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1079. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÿ
  1080.    Γöé                            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1081.    Γöé                                       Γöé  Γöé
  1082.    ΓööΓöÇCOMMITMENT CONTROLΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-6ΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1083.                         ΓööΓöÇFORΓöÇΓöÿ
  1084.  
  1085.  
  1086. ΓòÉΓòÉΓòÉ <hidden> I-O CONTROL Paragraph Format 2 (Indexed and Relative Files) ΓòÉΓòÉΓòÉ
  1087.  
  1088. Format 2 (Indexed and Relative Files)
  1089.  
  1090. ΓöÇΓöÇI-O-CONTROLΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1091.                   ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1092.  
  1093. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1094.  
  1095.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  1096.    
  1097. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1098.    ΓööΓöÇRERUNΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  1099.            ΓööΓöÇONΓöÇΓö¼ΓöÇfile-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1100.                 ΓööΓöÇassignment-name-1ΓöÇΓöÿ
  1101.  
  1102. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1103.  
  1104. 4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1105.                                                     Γöé
  1106. 2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1107. 3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-1ΓöÇΓöÇΓöÇRECORDSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-2ΓöÇΓöÿ
  1108.    ΓööΓöÇEVERYΓöÇΓöÿ                     ΓööΓöÇOFΓöÇΓöÿ
  1109.  
  1110. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1111.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1112.                                                                    Γöé
  1113. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇ 2
  1114.    Γöé                                                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1115.    Γöé                                                            Γöé  Γöé
  1116.    ΓööΓöÇSAMEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-3ΓöÇΓöÇΓöÇfile-name-4ΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1117.           ΓööΓöÇRECORDΓöÇΓöÿ  ΓööΓöÇAREAΓöÇΓöÿ ΓööΓöÇFORΓöÇΓöÿ
  1118.  
  1119.  
  1120. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1121. 2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÿ
  1122.    Γöé                            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1123.    Γöé                                       Γöé  Γöé
  1124.    ΓööΓöÇCOMMITMENT CONTROLΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-6ΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1125.                         ΓööΓöÇFORΓöÇΓöÿ
  1126.  
  1127.  
  1128. ΓòÉΓòÉΓòÉ <hidden> I-O CONTROL Paragraph Format 3 (Sort/Merge Files) ΓòÉΓòÉΓòÉ
  1129.  
  1130. Format 3 (Sort/Merge Files)
  1131.  
  1132. ΓöÇΓöÇI-O-CONTROL.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1133.  
  1134.  ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  1135.    Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ   Γöé
  1136.    Γöé Γöé                                               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé   Γöé
  1137.    Γöé                                                             Γöé Γöé   Γöé
  1138.    ΓööΓöÇSAMEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇfile-name-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÿ
  1139.           Γö£ΓöÇRECORDΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ ΓööΓöÇAREAΓöÇΓöÿΓööΓöÇFORΓöÇΓöÿ             ΓööΓöÇfile-name-4ΓöÇΓöÿ
  1140.           Γö£ΓöÇSORTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  1141.           ΓööΓöÇSORT-MERGEΓöÇΓöÿ
  1142.  
  1143.  
  1144. ΓòÉΓòÉΓòÉ <hidden> SAME RECORD AREA ΓòÉΓòÉΓòÉ
  1145.  
  1146.  The SAME RECORD AREA clause specifies that two or more files are to use the 
  1147.   same main storage area for processing the current logical record.  All the 
  1148.   files may be open at the same time.  A logical record in the shared storage 
  1149.   area is considered to be both of the following: 
  1150.  
  1151.    - A logical record of each opened output file in the SAME RECORD AREA clause 
  1152.    - A logical record of the most recently read input file in the SAME RECORD 
  1153.      AREA clause. 
  1154.  
  1155.  The SAME RECORD AREA clause allows you to transfer data from one file to 
  1156.   another with no explicit data manipulation because the input/output record 
  1157.   areas of the files are identical, and all are available to you. 
  1158.  
  1159.  
  1160. ΓòÉΓòÉΓòÉ <hidden> COMMITMENT CONTROL ΓòÉΓòÉΓòÉ
  1161.  
  1162.  The COMMITMENT CONTROL clause specifies the files placed under commitment 
  1163.   control when they are opened.  Files under commitment control are affected by 
  1164.   the COMMIT and ROLLBACK statements. 
  1165.  
  1166.    - The COMMIT statement allows the synchronization of changes to database 
  1167.      records while preventing other jobs from modifying those records until the 
  1168.      COMMIT is complete. 
  1169.  
  1170.    - The ROLLBACK statement provides a method of canceling changes made to 
  1171.      database files when those changes should not be made permanent. 
  1172.  
  1173.  You can only specify files assigned to a device type of DATABASE with the 
  1174.   COMMITMENT CONTROL clause. 
  1175.  
  1176.  Files under commitment control may have sequential, relative, or indexed 
  1177.   organization, and may have any access mode for a particular organization. 
  1178.  
  1179.  The system locks records contained in files under commitment control when the 
  1180.   records are accessed.  Records remain locked until released by a COMMIT or 
  1181.   ROLLBACK statement. 
  1182.  
  1183.  
  1184. ΓòÉΓòÉΓòÉ 1.13. Data Division ΓòÉΓòÉΓòÉ
  1185.  
  1186. Description 
  1187.   The Data Division of a COBOL source program describes, in a structured 
  1188.   manner, all the data to be processed by the object program. In a COBOL source 
  1189.   program, the Data Division is optional. 
  1190.  
  1191.   The Data Division is divided into three sections.  Each section has a 
  1192.   specific logical function within a COBOL source program, and each may be 
  1193.   omitted from the source program when that logical function is not needed.  If 
  1194.   you include these sections, they must be written in the order shown: 
  1195.  
  1196. File Section 
  1197.   Describes externally stored data (including sort-merge files). 
  1198.  
  1199. Working-Storage Section 
  1200.   Describes internal data. 
  1201.  
  1202. Linkage Section 
  1203.   Describes data made available by another program. 
  1204.  
  1205.  
  1206. ΓöÇΓöÇDATA DIVISION.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1207.  
  1208. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  1209.   Γöé              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  1210.   Γöé                                                      ΓöéΓöé
  1211.   ΓööΓöÇFILE SECTION.Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝Γöÿ
  1212.                  Γöé                                        Γöé
  1213.                  Γööfile-description-entryΓöÇΓöÇitem-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1214.  
  1215. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  1216.   Γöé                          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  1217.   Γöé                                                     ΓöéΓöé
  1218.   ΓööWORKING-STORAGE SECTION.ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝Γöÿ
  1219.                              Γö£record-description-entryΓöÇΓöÇΓöÇΓöñ
  1220.                              Γöödata-item-description-entryΓöÿ
  1221.  
  1222. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  1223.   Γöé                   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  1224.   Γöé                                                Γöé Γöé
  1225.   ΓööΓöÇLINKAGE SECTION. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÿ
  1226.                       Γö£ΓöÇrecord-description-entryΓöÇΓöÇΓöÇΓöÇΓöñ
  1227.                       ΓööΓöÇdata-item-description-entryΓöÇΓöÿ
  1228.  
  1229. where item-1 is:
  1230.  
  1231.          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1232.                                  Γöé
  1233. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇrecord-description-entryΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1234.  
  1235.  
  1236. ΓòÉΓòÉΓòÉ 1.14. Working-Storage Section ΓòÉΓòÉΓòÉ
  1237.  
  1238. Description 
  1239.   The Working-Storage Section describes data records that are not part of 
  1240.   external data files but are developed and processed internally. 
  1241.  
  1242.   The Working-Storage Section must begin with the section header 
  1243.   WORKING-STORAGE SECTION, followed by a separator period. 
  1244.  
  1245.   The Working-Storage Section contains record description entries and data 
  1246.   description entries for independent data items, called data item description 
  1247.   entries. 
  1248.  
  1249.   A maximum of 3 000 000 bytes are permitted for group items (including 
  1250.   tables). 
  1251.  
  1252.   A data description entry specifies the characteristics of a data item.  A 
  1253.   data description entry has four formats: 
  1254.  
  1255.     Format 1 (All Data Division Sections): Use Format 1 for data description 
  1256.      entries in all Data Division sections. Specific rules and restrictions for 
  1257.      each clause are noted under discussion of the individual clause. 
  1258.  
  1259.     Format 2 (RENAMES Clause -- Level-66 Entry): Format 2 regroups previously 
  1260.      defined items. 
  1261.  
  1262.     Format 3 (Condition-Name VALUE Clause -- Level-88 Entry): Format 3 
  1263.      associates a single value, multiple values, and/or range(s) of values with 
  1264.      a condition-name. 
  1265.  
  1266.     Format 4 (Boolean Data): Format 4 describes indicators as Boolean data 
  1267.      items. 
  1268.  
  1269.  
  1270. ΓòÉΓòÉΓòÉ 1.15. Linkage Section ΓòÉΓòÉΓòÉ
  1271.  
  1272. Description 
  1273.   The Linkage Section describes data made available from another program. 
  1274.  
  1275.   Record description entries and data item description entries in the Linkage 
  1276.   Section provide names and descriptions, but storage within the program is not 
  1277.   reserved because the data area exists elsewhere. 
  1278.  
  1279.   A maximum of 3 000 000 bytes are permitted for group items (including 
  1280.   tables). 
  1281.  
  1282.   Like the Working-Storage Section, the Linkage Section has four formats: 
  1283.  
  1284.     Format 1 (All Data Division Sections): Use Format 1 for data description 
  1285.      entries in all Data Division sections. Specific rules and restrictions for 
  1286.      each clause are noted under discussion of the individual clause. 
  1287.  
  1288.     Format 2 (RENAMES Clause -- Level-66 Entry): Format 2 regroups previously 
  1289.      defined items. 
  1290.  
  1291.     Format 3 (Condition-Name VALUE Clause -- Level-88 Entry): Format 3 
  1292.      associates a single value, multiple values, and/or range(s) of values with 
  1293.      a condition-name. 
  1294.  
  1295.     Format 4 (Boolean Data): Format 4 describes indicators as Boolean data 
  1296.      items. 
  1297.  
  1298.  
  1299. ΓòÉΓòÉΓòÉ <hidden> Format 1 (All Data Division Sections) ΓòÉΓòÉΓòÉ
  1300.  
  1301. Description 
  1302.   Use Format 1 for data description entries in all Data Division sections.  A 
  1303.   space, a separator comma, or a separator semicolon must separate clauses. 
  1304.  
  1305.   Note:   You can write the clauses in any order, with two exceptions: 
  1306.  
  1307.     If you specify data-name or FILLER, it must immediately follow the 
  1308.      level-number. 
  1309.  
  1310.     When you specify the REDEFINES clause, it must immediately follow 
  1311.      data-name or FILLER, if either is specified.  If you do not specify 
  1312.      data-name or FILLER, the REDEFINES clause must immediately follow the 
  1313.      level-number. 
  1314.  
  1315. Specific rules and restrictions for each clause are noted under the discussion 
  1316. of the individual clause. 
  1317.  
  1318. Format 1 (All Data Division Sections)
  1319.  
  1320. ΓöÇΓöÇlevelΓöÇnumberΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1321.                   Γö£ΓöÇΓöÇdataΓöÇnameΓöÇΓöÇΓöñ
  1322.                   ΓööΓöÇΓöÇFILLERΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1323.  
  1324. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1325.     Γö£ΓöÇREDEFINES clauseΓöÇΓöñ
  1326.     ΓööΓöÇLIKE clauseΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1327.  
  1328. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  1329.     ΓööΓöÇBLANK WHEN ZERO clauseΓöÇΓöÿ ΓööΓöÇJUSTIFIED clauseΓöÇΓöÿ
  1330.  
  1331. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1332.     ΓööΓöÇOCCURS clauseΓöÇΓöÿ  ΓööΓöÇPICTURE clauseΓöÇΓöÿ
  1333.  
  1334. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1335.     ΓööΓöÇSIGN clauseΓöÇΓöÿ  ΓööΓöÇSYNCHRONIZED clauseΓöÇΓöÿ
  1336.  
  1337. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1338.     ΓööΓöÇUSAGE clauseΓöÇΓöÿ  ΓööΓöÇVALUE clauseΓöÇΓöÿ
  1339.  
  1340.  
  1341. ΓòÉΓòÉΓòÉ 1.16. Format 2 (RENAMES Clause -- Level-66 Entry) ΓòÉΓòÉΓòÉ
  1342.  
  1343. Description 
  1344.   Format 2 (RENAMES Clause -- Level-66 Entry) regroups previously defined items 
  1345.   by specifying alternative, possibly overlapping, groupings of elementary data 
  1346.   items. 
  1347.  
  1348.   You must use the level number 66 for data description entries that contain 
  1349.   the RENAMES clause. A level-66 entry cannot rename another level-66 entry, 
  1350.   nor can it rename a level-01, level-77, or level-88 entry. 
  1351.  
  1352.   One or more RENAMES entries can be written for a logical record.  All RENAMES 
  1353.   entries associated with one logical record must immediately follow that 
  1354.   record's last data description entry. 
  1355.  
  1356.   Level number 66 and data-name-1 are not a part of the RENAMES clause itself 
  1357.   and are included in the format below only for clarity. 
  1358.  
  1359. Format 2 (RENAMES Clause -- Level-66 Entry)
  1360.  
  1361. ΓöÇΓöÇ66 dataΓöÇnameΓöÇ1 RENAMES data-name-2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  1362.                                         Γö£ΓöÇΓöÇTHROUGHΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-3ΓöÇΓöÇΓöÿ
  1363.                                         ΓööΓöÇΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1364.  
  1365.  
  1366. ΓòÉΓòÉΓòÉ <hidden> data-name-2, data-name-3 ΓòÉΓòÉΓòÉ
  1367.  
  1368. Data-name-2 and data-name-3 identify the original grouping of data items; that 
  1369. is, they must name elementary or group items within the associated level-01 
  1370. entry, and must not be the same data-name.  Both data-names may be qualified. 
  1371.  
  1372. The OCCURS clause must not be specified in the data entries for data-name-2 and 
  1373. data-name-3, or for any group entry to which they are subordinate. In addition, 
  1374. the OCCURS DEPENDING ON clause must not be specified for any item defined 
  1375. between data-name-2 and data-name-3. 
  1376.  
  1377. When data-name-3 is specified, data-name-1 is treated as a group item that 
  1378. includes all elementary items: 
  1379.  
  1380.  Starting with data-name-2 (if it is an elementary item) or the first 
  1381.   elementary item within data-name-2 (if it is a group item) 
  1382.  
  1383.  Ending with data-name-3 (if it is an elementary item) or the last elementary 
  1384.   item within data-name-3 (if it is a group item). 
  1385.  
  1386. The keywords THROUGH and THRU are equivalent. 
  1387.  
  1388. The leftmost character in data-name-3 must not precede the leftmost character 
  1389. in data-name-2; the rightmost character in data-name-3 must not precede the 
  1390. rightmost character in data-name-2. This means that data-name-3 may not be 
  1391. totally subordinate to data-name-2. 
  1392.  
  1393. When data-name-3 is not specified, all of the data attributes of data-name-2 
  1394. become the data attributes for data-name-1. That is: 
  1395.  
  1396.  When data-name-2 is a group item, data-name-1 is treated as a group item. 
  1397.  
  1398.  When data-name-2 is an elementary item, data-name-1 is treated as an 
  1399.   elementary item. 
  1400.  
  1401.  
  1402. ΓòÉΓòÉΓòÉ 1.17. Level-Number ΓòÉΓòÉΓòÉ
  1403.  
  1404. Description 
  1405.   Level-number specifies the hierarchy of data within a record and identifies 
  1406.   special-purpose data entries. 
  1407.  
  1408.   In Format 1, level-number can be any number from 01-49 or 77. 
  1409.  
  1410.     Level-numbers 01 and 77 must begin in Area A and be followed either by a 
  1411.      separator period or by a space followed by its associated data-name, 
  1412.      FILLER, or appropriate data description clause. 
  1413.  
  1414.     Level-numbers 02 through 49 can begin in Areas A or B and must be followed 
  1415.      by a space or a separator period. 
  1416.  
  1417.     Level-numbers 66 and 88 can begin in Areas A or B and must be followed by 
  1418.      a space. 
  1419.  
  1420.   You can substitute single-digit level-numbers 1 through 9 for level-numbers 
  1421.   01 through 09. 
  1422.  
  1423.  
  1424. ΓòÉΓòÉΓòÉ 1.18. BLANK WHEN ZERO Clause ΓòÉΓòÉΓòÉ
  1425.  
  1426. Description 
  1427.   The BLANK WHEN ZERO clause specifies that an item contains nothing but spaces 
  1428.   when its value is zero. You can specify the BLANK WHEN ZERO clause only for 
  1429.   elementary numeric or numeric-edited items. These items must be described, 
  1430.   either implicitly or explicitly, as USAGE IS DISPLAY. 
  1431.  
  1432.     Do not specify the BLANK WHEN ZERO clause for level-66 or level-88 items. 
  1433.  
  1434.     Do not specify the BLANK WHEN ZERO clause for the same entry as the 
  1435.      PICTURE symbols S or *. 
  1436.  
  1437.      The BLANK WHEN ZERO clause is not allowed for items described with the 
  1438.      USAGE IS INDEX clause or the USAGE IS POINTER clause. 
  1439.  
  1440.  
  1441. ΓöÇΓöÇΓöÇBLANKΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇZEROΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1442.           ΓööWHENΓöÿ
  1443.  
  1444.  
  1445. ΓòÉΓòÉΓòÉ 1.19. JUSTIFIED Clause ΓòÉΓòÉΓòÉ
  1446.  
  1447. Description 
  1448.   The JUSTIFIED clause overrides standard positioning rules for a receiving 
  1449.   item of the alphabetic or alphanumeric categories.  You can specify JUSTIFIED 
  1450.   only at the elementary level. 
  1451.  
  1452.   You can specify the JUSTIFIED clause for alphanumeric-edited items, but not 
  1453.   for numeric or numeric-edited items. 
  1454.  
  1455.   When you specify the JUSTIFIED clause for a receiving item, the data is 
  1456.   aligned at the rightmost character position in the receiving item.  Also: 
  1457.  
  1458.     If the sending item is larger that the receiving item, the leftmost 
  1459.      characters are truncated. 
  1460.  
  1461.     If the sending item is smaller than the receiving item, the unused 
  1462.      character positions at the left are filled with spaces. 
  1463.  
  1464.   You cannot specify the JUSTIFIED clause: 
  1465.  
  1466.     In descriptions of items described with the USAGE IS INDEX clause or the 
  1467.      USAGE IS POINTER clause. 
  1468.  
  1469.     For level-66 (RENAMES) and level-88 (condition-name) entries. 
  1470.  
  1471.     For variables greater than 32 767 characters. 
  1472.  
  1473.   The JUSTIFIED clause does not affect initial values, as determined by the 
  1474.   VALUE clause. 
  1475.  
  1476.  
  1477. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇJUSTIFIEDΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  1478.      ΓööΓöÇΓöÇJUSTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööRIGHTΓöÿ
  1479.  
  1480.  
  1481. ΓòÉΓòÉΓòÉ 1.20. OCCURS Clause ΓòÉΓòÉΓòÉ
  1482.  
  1483. Description 
  1484.   The OCCURS clause specifies tables whose elements can be referred to by 
  1485.   indexing or subscripting. The OCCURS and USAGE IS INDEX clauses are the two 
  1486.   Data Division clauses used for table handling. 
  1487.  
  1488.   An item whose usage is POINTER can contain an OCCURS clause, or be 
  1489.   subordinate to an item declared with an OCCURS clause. 
  1490.  
  1491.   The OCCURS clause cannot be specified in a data description entry that has a 
  1492.   level number of 01, 66, 77, or 88. The OCCURS clause has two formats: 
  1493.  
  1494.     Format 1 (Fixed-length tables) 
  1495.  
  1496.     Format 2 (Variable-length tables) 
  1497.  
  1498.  
  1499. ΓòÉΓòÉΓòÉ <hidden> Format 1  (Fixed-Length Tables) ΓòÉΓòÉΓòÉ
  1500.  
  1501. Description 
  1502.   Format 1 of the OCCURS clause specifies fixed-length tables. 
  1503.  
  1504. Format 1 (Fixed-Length Tables)
  1505.  
  1506. ΓöÇΓöÇOCCURS integerΓöÇ2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1507.                      ΓööΓöÇTIMESΓöÇΓöÿ
  1508.  
  1509.   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1510.                                                Γöé
  1511. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1512.   Γöé                               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  1513.   Γöé                                          Γöé Γöé
  1514.   ΓööΓöÇΓö¼ΓöÇASCENDINGΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇdataΓöÇnameΓöÇ2ΓöÇΓö┤ΓöÇΓöÿ
  1515.     ΓööΓöÇDESCENDINGΓöÇΓöÿ ΓööΓöÇKEYΓöÇΓöÿΓööΓöÇISΓöÇΓöÿ
  1516.  
  1517. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1518.   Γöé                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1519.   Γöé                            Γöé  Γöé
  1520.   ΓööΓöÇINDEXEDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇindexΓöÇnameΓöÇ1ΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1521.             ΓööΓöÇBYΓöÇΓöÿ
  1522.  
  1523.  
  1524. ΓòÉΓòÉΓòÉ <hidden> ASCENDING/DESCENDING KEY Phrase ΓòÉΓòÉΓòÉ
  1525.  
  1526. With the ASCENDING/DESCENDING KEY phrase, data is arranged in ascending or 
  1527. descending order, depending on the keyword specified, according to the values 
  1528. contained in data-name-2. The data-names are listed in their descending order 
  1529. of significance. 
  1530.  
  1531. When you specify the ASCENDING/DESCENDING KEY phrase, the following rules 
  1532. apply: 
  1533.  
  1534.  Keys must be listed in decreasing order of significance. 
  1535.  
  1536.  The total number of keys for a given table element must not exceed 12. 
  1537.  
  1538.  You must arrange the data in the table in ASCENDING or DESCENDING sequence 
  1539.   according to the collating sequence in use. 
  1540.  
  1541.  A key may have DISPLAY, BINARY, PACKED-DECIMAL, or COMPUTATIONAL usage. 
  1542.  
  1543.  
  1544. ΓòÉΓòÉΓòÉ <hidden> Format 2  (Variable-Length Tables) ΓòÉΓòÉΓòÉ
  1545.  
  1546. Description 
  1547.   The OCCURS DEPENDING ON clause specifies variable-length tables. 
  1548.  
  1549. Format 2 (Variable-Length Tables)
  1550.  
  1551. ΓöÇΓöÇOCCURSΓöÇΓöÇinteger-1 TO integer-2ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1552.                                      ΓööΓöÇTIMESΓöÇΓöÿ
  1553.  
  1554. ΓöÇΓöÇDEPENDINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼dataΓöÇnameΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1555.              ΓööΓöÇONΓöÇΓöÿ
  1556.  
  1557.     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1558.                                                  Γöé
  1559. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1560.     Γöé                               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  1561.     Γöé                                          Γöé Γöé
  1562.     ΓööΓöÇΓö¼ΓöÇASCENDINGΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇdataΓöÇnameΓöÇ2ΓöÇΓö┤ΓöÇΓöÿ
  1563.       ΓööΓöÇDESCENDINGΓöÇΓöÿ ΓööΓöÇKEYΓöÇΓöÿΓööΓöÇISΓöÇΓöÿ
  1564.  
  1565. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1566.     Γöé                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1567.     Γöé                            Γöé  Γöé
  1568.     ΓööΓöÇINDEXEDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇindexΓöÇnameΓöÇ1ΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1569.               ΓööΓöÇBYΓöÇΓöÿ
  1570.  
  1571.  
  1572. ΓòÉΓòÉΓòÉ 1.21. PICTURE Clause ΓòÉΓòÉΓòÉ
  1573.  
  1574. Description 
  1575.   The PICTURE clause specifies the general characteristics and editing 
  1576.   requirements of an elementary item. You must specify a PICTURE clause for 
  1577.   every elementary item except an index data item or the subject of the RENAMES 
  1578.   clause. 
  1579.  
  1580.   The PICTURE character string, which may contain a maximum of 30 characters, 
  1581.   is made up of certain COBOL characters used as symbols. The allowable 
  1582.   combinations determine the category of the elementary data item. 
  1583.  
  1584.   Allowable characters include: A, B, P, S, V, X, Z, 9, 1, 0, /, , (comma), . 
  1585.   (period), +, -, CR, DB, *, and  $. 
  1586.  
  1587.  
  1588. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇPICTUREΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇcharacterΓöÇstringΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1589.      ΓööΓöÇΓöÇPICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ     ΓööΓöÇISΓöÇΓöÿ
  1590.  
  1591.  
  1592. ΓòÉΓòÉΓòÉ 1.22. REDEFINES Clause ΓòÉΓòÉΓòÉ
  1593.  
  1594. Description 
  1595.   The REDEFINES clause allows you to use different description entries to 
  1596.   describe the same computer storage area.  When you specify the REDEFINES 
  1597.   clause, it must be the first entry following data-name-1 or FILLER.  If you 
  1598.   do not specify data-name-1 or FILLER, REDEFINES must be the first entry 
  1599.   following the level-number. 
  1600.  
  1601.   The level-numbers of data-name-1 and data-name-2 must be identical and must 
  1602.   not be level 66 or level 88. 
  1603.  
  1604.  
  1605. ΓöÇΓöÇlevel-numberΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇREDEFINES dataΓöÇnameΓöÇ2ΓöÇΓöÇ
  1606.                   Γö£ΓöÇΓöÇdataΓöÇnameΓöÇ1ΓöÇΓöÇΓöñ
  1607.                   ΓööΓöÇΓöÇFILLERΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1608.  
  1609.  
  1610. ΓòÉΓòÉΓòÉ 1.23. LIKE Clause ΓòÉΓòÉΓòÉ
  1611.  
  1612. Description 
  1613.   The LIKE clause allows you to define the PICTURE, USAGE, and SIGN 
  1614.   characteristics of a data item by copying them from a previously defined data 
  1615.   item.  It also allows you to make the length of the data item you define 
  1616.   different from the original item. For Boolean data, you cannot change the 
  1617.   length of the data item using this clause. 
  1618.  
  1619. You cannot use the LIKE clause to: 
  1620.  
  1621.  Change the length of an edited item 
  1622.  Change the length of an index 
  1623.  Change the number of decimal places in a data item. 
  1624.  
  1625. You can specify one or more other clauses before or after the LIKE clause: 
  1626.  
  1627.  JUSTIFIED 
  1628.  SYNCHRONIZED 
  1629.  BLANK WHEN ZERO 
  1630.  VALUE 
  1631.  OCCURS. 
  1632.  
  1633. You can specify BLANK WHEN ZERO only if it has not previously been inherited. 
  1634.  
  1635. You cannot use the LIKE clause with: 
  1636.  
  1637.  REDEFINES 
  1638.  SIGN 
  1639.  USAGE 
  1640.  PICTURE. 
  1641.  
  1642.  
  1643. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇLIKEΓöÇΓöÇΓöÇdata-nameΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1644.                            ΓööΓöÇ(integer)ΓöÇΓöÿ
  1645.  
  1646.  
  1647. ΓòÉΓòÉΓòÉ 1.24. SIGN Clause ΓòÉΓòÉΓòÉ
  1648.  
  1649. Description 
  1650.   The SIGN clause specifies the position and the mode of representation of the 
  1651.   operational sign for a numeric entry.  You can specify the SIGN clause only 
  1652.   for a signed numeric data description entry (that is, one whose PICTURE 
  1653.   character-string contains an S) or for a group item that contains at least 
  1654.   one such elementary entry.  You must specify, explicitly or implicitly, USAGE 
  1655.   IS DISPLAY. 
  1656.  
  1657.  
  1658. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇLEADINGΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  1659.     ΓööΓöÇSIGNΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ ΓööΓöÇTRAILINGΓöÇΓöÿ ΓööSEPARATEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1660.             ΓööΓöÇISΓöÇΓöÿ                          ΓööCHARACTERΓöÿ
  1661.  
  1662.  
  1663. ΓòÉΓòÉΓòÉ <hidden> SEPARATE CHARACTER Phrase ΓòÉΓòÉΓòÉ
  1664.  
  1665. If you specify the SEPARATE CHARACTER phrase: 
  1666.  
  1667.  The operational sign is presumed to be the LEADING or TRAILING character 
  1668.   position, whichever you specify, of the elementary numeric data item.  This 
  1669.   character position is not a digit position. 
  1670.  
  1671.  The character S in the PICTURE character string is counted in determining the 
  1672.   size of the data item (in terms of standard data format characters). 
  1673.  
  1674.  + is the character used for the positive operational sign. 
  1675.  
  1676.  - is the character used for the negative operational sign. 
  1677.  
  1678. If you do not specify the SEPARATE CHARACTER phrase: 
  1679.  
  1680.  The operational sign is presumed to be associated with the LEADING or 
  1681.   TRAILING digit position, whichever you specify, of the elementary numeric 
  1682.   data item.  In this instance, specifying SIGN IS TRAILING is the equivalent 
  1683.   of the standard action of the compiler. 
  1684.  
  1685.  The character S in the PICTURE character string is not counted in determining 
  1686.   the size of the item (in terms of standard data format characters). 
  1687.  
  1688.  
  1689. ΓòÉΓòÉΓòÉ 1.25. SYNCHRONIZED Clause ΓòÉΓòÉΓòÉ
  1690.  
  1691. Description 
  1692.   The SYNCHRONIZED clause specifies the alignment of an elementary item on a 
  1693.   natural boundary in storage. The SYNCHRONIZED clause may appear only at the 
  1694.   elementary level.  You cannot use it for group items. 
  1695.  
  1696.  
  1697. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSYNCHRONIZEDΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1698.      ΓööΓöÇΓöÇSYNCΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  Γö£ΓöÇΓöÇLEFTΓöÇΓöÇΓöÇΓöñ
  1699.                          ΓööΓöÇΓöÇRIGHTΓöÇΓöÇΓöÿ
  1700.  
  1701. The effect of the SYNCHRONIZED clause is dependent on the USAGE you specify for 
  1702. an item. 
  1703.  
  1704. If the USAGE is...         The SYNCHRONIZED clause...
  1705.  DISPLAY              is syntax-checked but does not affect execution
  1706.  PACKED-DECIMAL          is syntax-checked but does not affect execution
  1707.  COMPUTATIONAL-3         is syntax-checked but does not affect execution
  1708.  BINARY:
  1709.   PIC S9(1) through S9(4)     aligns the data item at a multiple of 2 relative
  1710.                     to the beginning of the record
  1711.   PIC S9(5) through S9(18)     aligns the data item at a multiple of 4 relative
  1712.                     to the beginning of the record
  1713.  COMPUTATIONAL-4         functions the same as for USAGE BINARY
  1714.  COMPUTATIONAL          is syntax-checked but does not affect execution
  1715.  INDEX                is not permitted
  1716.  
  1717.  
  1718. ΓòÉΓòÉΓòÉ 1.26. USAGE Clause ΓòÉΓòÉΓòÉ
  1719.  
  1720. Description 
  1721.   The USAGE clause specifies the format of a data item in computer storage. 
  1722.  
  1723.   You can specify the USAGE clause for a data description entry at any level. 
  1724.   However, if you specify USAGE at the group level, USAGE applies to each 
  1725.   elementary item in the group. The usage of an elementary item must not 
  1726.   contradict the usage of a group to which the elementary item belongs. 
  1727.  
  1728.   The USAGE clause specifies the format in which data is represented in 
  1729.   storage. The format may be restricted if certain Procedure Division 
  1730.   statements are used. 
  1731.  
  1732.   When you do not specify the USAGE clause at either the group or elementary 
  1733.   level, it is assumed that usage is DISPLAY. 
  1734.  
  1735.  
  1736. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇBINARYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  1737.      ΓööΓöÇΓöÇUSAGEΓöÇΓö¼ΓöÇΓöÇΓö¼Γöÿ  Γö£ΓöÇΓöÇCOMPUTATIONALΓöÇΓöÇΓöÇΓöÇΓöñ
  1738.               ΓööISΓöÿ   Γö£ΓöÇΓöÇCOMPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  1739.                      Γö£ΓöÇΓöÇCOMPUTATIONAL-3ΓöÇΓöÇΓöñ
  1740.                      Γö£ΓöÇΓöÇCOMP-3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  1741.                      Γö£ΓöÇΓöÇCOMPUTATIONAL-4ΓöÇΓöÇΓöñ
  1742.                      Γö£ΓöÇΓöÇCOMP-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  1743.                      Γö£ΓöÇΓöÇDISPLAYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  1744.                      Γö£ΓöÇΓöÇINDEXΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  1745.                      Γö£ΓöÇΓöÇPACKED-DECIMALΓöÇΓöÇΓöÇΓöñ
  1746.                      ΓööΓöÇΓöÇPOINTERΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1747.  
  1748.  
  1749. ΓòÉΓòÉΓòÉ 1.27. VALUE Clause ΓòÉΓòÉΓòÉ
  1750.  
  1751. Description 
  1752.   The VALUE clause specifies the initial contents of a data item or the value 
  1753.   or values associated with a condition-name.  The VALUE clause has three 
  1754.   formats: 
  1755.  
  1756.     Format 1 (Literal Value Clause) 
  1757.  
  1758.     Format 2 (Condition-Name Value Clause) 
  1759.  
  1760.     Format 3 (NULL Value Clause) 
  1761.  
  1762.  
  1763. ΓòÉΓòÉΓòÉ <hidden> Literal VALUE Clause ΓòÉΓòÉΓòÉ
  1764.  
  1765. Description 
  1766.   The Literal VALUE Clause specifies the initial value of a data item. 
  1767.  
  1768.   If the item is numeric, all VALUE clause literals must be numeric. 
  1769.  
  1770.   All numeric literals in a VALUE clause of an item must have a value that is 
  1771.   within the range of values indicated by the PICTURE clause for that item. 
  1772.  
  1773.   If the item is an elementary or group alphabetic, alphanumeric, 
  1774.   alphanumeric-edited, or numeric-edited item, the VALUE clause literal must be 
  1775.   nonnumeric. 
  1776.  
  1777.   If the item is Boolean, the VALUE clause must be a Boolean literal. 
  1778.  
  1779. Literal VALUE Clause
  1780.  
  1781. ΓöÇΓöÇΓöÇVALUEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇliteralΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1782.             ΓööΓöÇISΓöÇΓöÿ
  1783.  
  1784.  
  1785. ΓòÉΓòÉΓòÉ <hidden> Condition-Name VALUE Clause (Level-88 Entry) ΓòÉΓòÉΓòÉ
  1786.  
  1787. Description 
  1788.   The Condition-Name VALUE Clause associates a single value, multiple values, 
  1789.   and/or ranges of values with a condition-name. Each such condition-name 
  1790.   requires a separate level-88 entry. 
  1791.  
  1792. Condition-Name VALUE Clause (Level-88 Entry)
  1793.  
  1794. ΓöÇΓöÇΓöÇ88 conditionΓöÇnameΓöÇΓöÇΓö¼ΓöÇVALUEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1795.                         Γöé        ΓööΓöÇISΓöÇΓöÿ   Γöé
  1796.                         ΓööΓöÇVALUESΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  1797.                                  ΓööΓöÇAREΓöÇΓöÿ
  1798.  
  1799.      ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  1800.                                           Γöé
  1801. ΓöÇΓöÇΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1802.                   ΓööΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇΓöÇliteral-2ΓöÇΓöÇΓöÿ
  1803.                    ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ
  1804.  
  1805.  
  1806. ΓòÉΓòÉΓòÉ <hidden> NULL Value Clause ΓòÉΓòÉΓòÉ
  1807.  
  1808. Description 
  1809.   The Data Description Entry Format 3 (NULL Value Clause) assigns an address 
  1810.   that is not valid to a pointer data item (an item defined as USAGE IS 
  1811.   POINTER). The value of NULL is an undefined value. 
  1812.  
  1813.   You can specify VALUE IS NULL only for elementary items that are described 
  1814.   implicitly or explicitly as USAGE IS POINTER. 
  1815.  
  1816. NULL Value Clause
  1817.  
  1818. ΓöÇΓöÇΓöÇVALUEΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇNULLΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  1819.           ΓööISΓöÿ ΓööΓöÇΓöÇNULLSΓöÇΓöÇΓöÿ
  1820.  
  1821.  
  1822. ΓòÉΓòÉΓòÉ 1.28. Format 4 (Boolean Data) ΓòÉΓòÉΓòÉ
  1823.  
  1824. Description 
  1825.   The Data Description Entry Format 4 (Boolean Data) describes the indicators 
  1826.   you use in a COBOL program as Boolean data items. Boolean data items are 
  1827.   items limited to a value of 1 or 0. 
  1828.  
  1829. Format 4 (Boolean Data)
  1830.  
  1831. ΓöÇΓöÇΓöÇlevel-numberΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  1832.                    Γö£ΓöÇΓöÇdata-name-1ΓöÇΓöÇΓöñ  Γö£ΓöÇΓöÇREDEFINESΓöÇΓöÇdata-name-2ΓöÇΓöÇΓöñ
  1833.                    ΓööΓöÇΓöÇFILLERΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇΓöÇLIKEΓöÇΓöÇdata-name-3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1834.  
  1835.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1836.       ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇPICTUREΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ1ΓöÇΓöÇΓöÿ
  1837.          ΓööΓöÇΓöÇPICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇISΓöÇΓöÿ
  1838.  
  1839.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1840.       ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇDISPLAYΓöÇΓöÇΓöÿ
  1841.          ΓööΓöÇΓöÇUSAGEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1842.                   ΓööΓöÇISΓöÇΓöÿ
  1843.  
  1844.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  1845.     ΓööΓöÇOCCURSΓöÇΓö¼ΓöÇinteger-1 TO integer-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  1846.              Γöé                        ΓööΓöÇTIMESΓöÇΓöÿ
  1847.              ΓööΓöÇinteger-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  1848.                          ΓööΓöÇTIMESΓöÇΓöÿ
  1849.  
  1850. 1 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  1851. 2 ΓöÇΓöÇΓöÇDEPENDINGΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-4ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 5
  1852.                  ΓööΓöÇONΓöÇΓöÿ                Γöé
  1853. 3 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1854.  
  1855. 4 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1856. 5 ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  1857.       Γöé                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  1858.       Γöé                                  Γöé  Γöé
  1859.       ΓööΓöÇΓöÇINDEXEDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇindex-name-1ΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÿ
  1860.                   ΓööΓöÇBYΓöÇΓöÿ
  1861.  
  1862.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1863.       ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇinteger-3ΓöÇΓöÿ
  1864.         Γö£ΓöÇINDICATORSΓöÇΓöñ
  1865.         ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1866.  
  1867.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1868.       ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇSYNCHRONIZEDΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  1869.          ΓööΓöÇΓöÇSYNCΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  Γö£ΓöÇΓöÇLEFTΓöÇΓöÇΓöÇΓöñ
  1870.                              ΓööΓöÇΓöÇRIGHTΓöÇΓöÇΓöÿ
  1871.  
  1872.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1873.       ΓööΓöÇΓöÇΓö¼ΓöÇJUSTIFIEDΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  1874.          ΓööΓöÇJUSTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇRIGHTΓöÇΓöÿ
  1875.  
  1876.  ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1877.       ΓööΓöÇΓöÇVALUEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇboolean-literalΓöÇΓöÇΓöÿ
  1878.                ΓööΓöÇISΓöÇΓöÿ
  1879.  
  1880.  
  1881. ΓòÉΓòÉΓòÉ <hidden> OCCURS Clause ΓòÉΓòÉΓòÉ
  1882.  
  1883. Description 
  1884.   The OCCURS clause specifies tables whose elements can be referred to by 
  1885.   indexing or subscripting. The OCCURS and USAGE IS INDEX clauses are the two 
  1886.   Data Division clauses used for table handling. 
  1887.  
  1888.   An item whose usage is POINTER can contain an OCCURS clause, or be 
  1889.   subordinate to an item declared with an OCCURS clause. 
  1890.  
  1891.   The OCCURS clause cannot be specified in a data description entry that has a 
  1892.   level number of 01, 66, 77, or 88. 
  1893.  
  1894.   When the OCCURS clause and the INDICATOR clause are both specified at an 
  1895.   elementary level, a table of Boolean data items is defined with each element 
  1896.   in the table corresponding to an external indicator. The first element in the 
  1897.   table  corresponds to the indicator number specified in the INDICATOR clause; 
  1898.   the second element corresponds to the indicator that sequentially follows the 
  1899.   indicator specified by the INDICATOR clause. For example, if you code: 
  1900.  
  1901.        07  SWITCHES  PIC 1
  1902.                      OCCURS 10 TIMES
  1903.                      INDICATOR 16.
  1904.  
  1905. SWITCHES (1) corresponds to indicator 16, SWITCHES (2) corresponds to indicator 
  1906. 17, and similarly, SWITCHES (10) corresponds to indicator 25. 
  1907.  
  1908.  
  1909. ΓòÉΓòÉΓòÉ 1.29. Data Division -- File and Sort Description Entries ΓòÉΓòÉΓòÉ
  1910.  
  1911. Description 
  1912.   The File Section describes externally stored data.  The File Section must 
  1913.   begin with the header FILE SECTION, followed by a separator period. 
  1914.  
  1915.   In a COBOL program, the File Description (FD) Entry (or Sort Description (SD) 
  1916.   Entry for sort/merge files) represents the highest level of organization in 
  1917.   the File Section.  The order in which the optional clauses follow the FD or 
  1918.   SD entry is not important. 
  1919.  
  1920.   The File Section must contain a level indicator for each input and output 
  1921.   file. 
  1922.  
  1923.     For all files except sort/merge, the File Section must contain an FD 
  1924.      entry. 
  1925.     For each sort or merge file, the File Section must contain an SD entry. 
  1926.  
  1927. The File Description Entry has six formats: 
  1928.  
  1929.  Format 1 (Formatfile, Database, Disk Files) 
  1930.  
  1931.  Format 2 (Diskette Files) 
  1932.  
  1933.  Format 3 (Tapefile Files) 
  1934.  
  1935.  Format 4 (Printer Files) 
  1936.  
  1937.  Format 5 (Sort/Merge Files) 
  1938.  
  1939.  Format 6 (Transaction Files) 
  1940.  
  1941.  
  1942. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Formatfile, Database, Disk Files) ΓòÉΓòÉΓòÉ
  1943.  
  1944. Description 
  1945.   The File Section must contain a level indicator for each input and output 
  1946.   file. For all files except sort/merge, the File Section must contain an FD 
  1947.   entry.  The last clause in the FD entry must be immediately followed by a 
  1948.   separator period. 
  1949.  
  1950. Format 1 (Formatfile, Database, Disk Files)
  1951.  
  1952.   ΓöÇΓöÇFD file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1953.  
  1954.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  1955.      ΓööΓöÇBLOCKΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  1956.              ΓööCONTAINSΓöÿΓööinteger-1 TOΓöÿ           Γö£CHARACTERSΓöñ
  1957.                                                 ΓööRECORDSΓöÇΓöÇΓöÇΓöÿ
  1958.  
  1959.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  1960.      ΓööRECORDΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1961.             ΓöéΓööCONTAINSΓöÿ           ΓööCHARACTERSΓöÿ               Γöé
  1962.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  1963.              ΓööCONTAINSΓöÿ                        ΓööCHARACTERSΓöÿ
  1964.  
  1965.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1966.      ΓööΓöÇLABELΓöÇΓö¼RECORDΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇSTANDARDΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1967.              Γöé       ΓööISΓöÿ Γöé  ΓööΓöÇOMITTEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  1968.              ΓööRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  1969.                      ΓööAREΓöÿ
  1970.  
  1971.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1972.      Γöé             ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  1973.      Γöé                                            ΓöéΓöé
  1974.      ΓööΓöÇVALUE OFΓöÇΓöÇΓöÇΓöÇsystem-name-1Γö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇdata-name-1Γö╝Γöÿ
  1975.                                 ΓööISΓöÿ  ΓööΓöÇliteral-1ΓöÇΓöÇΓöÿ
  1976.  
  1977.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1978.     Γöé                           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  1979.     Γöé                           v           Γöé Γöé
  1980.     ΓööΓöÇDATAΓöÇΓö¼ΓöÇRECORDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-2ΓöÇΓö┤ΓöÇΓöÿ
  1981.            Γöé         ΓööΓöÇISΓöÇΓöÿ  Γöé
  1982.            ΓööΓöÇRECORDSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  1983.                      ΓööΓöÇAREΓöÇΓöÿ
  1984.  
  1985.  
  1986. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Diskette Files) ΓòÉΓòÉΓòÉ
  1987.  
  1988. Description 
  1989.   The File Section must contain a level indicator for each input and output 
  1990.   file.  For all files except sort/merge, the File Section must contain an FD 
  1991.   entry.  The last clause in the FD entry must be immediately followed by a 
  1992.   separator period. 
  1993.  
  1994. Format 2 (Diskette Files)
  1995.  
  1996.   ΓöÇΓöÇFD file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  1997.  
  1998.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  1999.      ΓööΓöÇBLOCKΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2000.              ΓööCONTAINSΓöÿΓööinteger-1 TOΓöÿ           Γö£CHARACTERSΓöñ
  2001.                                                 ΓööRECORDSΓöÇΓöÇΓöÇΓöÿ
  2002.  
  2003.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2004.      ΓööRECORDΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2005.             ΓöéΓööCONTAINSΓöÿ           ΓööCHARACTERSΓöÿ               Γöé
  2006.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2007.              ΓööCONTAINSΓöÿ                        ΓööCHARACTERSΓöÿ
  2008.  
  2009.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2010.      ΓööΓöÇLABELΓöÇΓö¼RECORDΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇSTANDARDΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2011.              Γöé       ΓööISΓöÿ Γöé  ΓööΓöÇOMITTEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2012.              ΓööRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  2013.                      ΓööAREΓöÿ
  2014.  
  2015.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2016.      Γöé           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2017.      Γöé                                            ΓöéΓöé
  2018.      ΓööΓöÇVALUE OFΓöÇΓöÇΓöÇΓöÇsystem-name-1Γö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇdata-name-1Γö╝Γöÿ
  2019.                                 ΓööISΓöÿ  ΓööΓöÇliteral-1ΓöÇΓöÇΓöÿ
  2020.  
  2021.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2022.     Γöé                           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  2023.     Γöé                           v           Γöé Γöé
  2024.     ΓööΓöÇDATAΓöÇΓö¼ΓöÇRECORDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-2ΓöÇΓö┤ΓöÇΓöÿ
  2025.            Γöé         ΓööΓöÇISΓöÇΓöÿ  Γöé
  2026.            ΓööΓöÇRECORDSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2027.                      ΓööΓöÇAREΓöÇΓöÿ
  2028.  
  2029.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2030.     ΓööΓöÇCODE-SETΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇalphabet-name-1ΓöÇΓöÿ
  2031.                ΓööΓöÇISΓöÇΓöÿ
  2032.  
  2033.  
  2034. ΓòÉΓòÉΓòÉ <hidden> Format 3 (Tapefile Files) ΓòÉΓòÉΓòÉ
  2035.  
  2036. Description 
  2037.   The File Section must contain a level indicator for each input and output 
  2038.   file.  For all files except sort/merge, the File Section must contain an FD 
  2039.   entry.  The last clause in the FD entry must be immediately followed by a 
  2040.   separator period. 
  2041.  
  2042. Format 3 (Tapefile Files)
  2043.  
  2044.   ΓöÇΓöÇFD file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2045.  
  2046.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  2047.      ΓööΓöÇBLOCKΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2048.              ΓööCONTAINSΓöÿΓööinteger-1 TOΓöÿ           Γö£CHARACTERSΓöñ
  2049.                                                 ΓööRECORDSΓöÇΓöÇΓöÇΓöÿ
  2050.  
  2051.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2052.      ΓööRECORDΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2053.             ΓöéΓööCONTAINSΓöÿ           ΓööCHARACTERSΓöÿ               Γöé
  2054.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2055.              ΓööCONTAINSΓöÿ                        ΓööCHARACTERSΓöÿ
  2056.  
  2057.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2058.      ΓööΓöÇLABELΓöÇΓö¼RECORDΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇSTANDARDΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2059.              Γöé       ΓööISΓöÿ Γöé  ΓööΓöÇOMITTEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2060.              ΓööRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  2061.                      ΓööAREΓöÿ
  2062.  
  2063.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2064.      Γöé           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2065.      Γöé                                            ΓöéΓöé
  2066.      ΓööΓöÇVALUE OFΓöÇΓöÇΓöÇΓöÇsystem-name-1Γö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇdata-name-1Γö╝Γöÿ
  2067.                                 ΓööISΓöÿ  ΓööΓöÇliteral-1ΓöÇΓöÇΓöÿ
  2068.  
  2069.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2070.     Γöé                           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  2071.     Γöé                           v           Γöé Γöé
  2072.     ΓööΓöÇDATAΓöÇΓö¼ΓöÇRECORDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-2ΓöÇΓö┤ΓöÇΓöÿ
  2073.            Γöé         ΓööΓöÇISΓöÇΓöÿ  Γöé
  2074.            ΓööΓöÇRECORDSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2075.                      ΓööΓöÇAREΓöÇΓöÿ
  2076.  
  2077.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2078.     ΓööΓöÇCODE-SETΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇalphabet-name-1ΓöÇΓöÿ
  2079.                ΓööΓöÇISΓöÇΓöÿ
  2080.  
  2081.  
  2082. ΓòÉΓòÉΓòÉ <hidden> Format 4 (Printer Files) ΓòÉΓòÉΓòÉ
  2083.  
  2084. Description 
  2085.   The File Section must contain a level indicator for each input and output 
  2086.   file.  For all files except sort/merge, the File Section must contain an FD 
  2087.   entry.  The last clause in the FD entry must be immediately followed by a 
  2088.   separator period. 
  2089.  
  2090. Format 4 (Printer Files)
  2091.  
  2092.   ΓöÇΓöÇFD file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2093.  
  2094.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  2095.      ΓööΓöÇBLOCKΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2096.              ΓööCONTAINSΓöÿΓööinteger-1 TOΓöÿ           Γö£CHARACTERSΓöñ
  2097.                                                 ΓööRECORDSΓöÇΓöÇΓöÇΓöÿ
  2098.  
  2099.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2100.      ΓööRECORDΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2101.             ΓöéΓööCONTAINSΓöÿ           ΓööCHARACTERSΓöÿ               Γöé
  2102.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2103.              ΓööCONTAINSΓöÿ                        ΓööCHARACTERSΓöÿ
  2104.  
  2105.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2106.      ΓööΓöÇLABELΓöÇΓö¼RECORDΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇSTANDARDΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2107.              Γöé       ΓööISΓöÿ Γöé  ΓööΓöÇOMITTEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2108.              ΓööRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  2109.                      ΓööAREΓöÿ
  2110.  
  2111.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2112.      Γöé           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2113.      Γöé                                            ΓöéΓöé
  2114.      ΓööΓöÇVALUE OFΓöÇΓöÇΓöÇΓöÇsystem-name-1Γö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇdata-name-1Γö╝Γöÿ
  2115.                                 ΓööISΓöÿ  ΓööΓöÇliteral-1ΓöÇΓöÇΓöÿ
  2116.  
  2117.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2118.     Γöé                           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  2119.     Γöé                           v           Γöé Γöé
  2120.     ΓööΓöÇDATAΓöÇΓö¼ΓöÇRECORDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇdata-name-2ΓöÇΓö┤ΓöÇΓöÿ
  2121.            Γöé         ΓööΓöÇISΓöÇΓöÿ  Γöé
  2122.            ΓööΓöÇRECORDSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2123.                      ΓööΓöÇAREΓöÇΓöÿ
  2124.  
  2125.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  2126.     ΓööΓöÇLINAGEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇdata-name-3ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  2127.              ΓööΓöÇISΓöÇΓöÿ integer-6ΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇLINESΓöÇΓöÿ
  2128.  
  2129. 1 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  2130. 2 ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  2131.      ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇFOOTINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇdata-name-4ΓöÇΓö¼Γöÿ
  2132.       ΓööΓöÇWITHΓöÇΓöÿ         ΓööΓöÇATΓöÇΓöÿ ΓööΓöÇinteger-7ΓöÇΓöÇΓöÇΓöÿ
  2133.  
  2134. 3 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  2135. 4 Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  2136.    ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼TOPΓö¼data-name-5Γö¼Γöÿ ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓö¼BOTTOMΓö¼data-name-6Γö¼Γöÿ
  2137.     ΓööLINESΓöÿΓööATΓöÿ   Γööinteger-8ΓöÇΓöÇΓöÿ   ΓööLINESΓöÿΓööATΓöÿ      Γööinteger-9ΓöÇΓöÇΓöÿ
  2138.  
  2139.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2140.     ΓööΓöÇCODE-SETΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇalphabet-name-1ΓöÇΓöÿ
  2141.                ΓööΓöÇISΓöÇΓöÿ
  2142.  
  2143.  
  2144. ΓòÉΓòÉΓòÉ <hidden> Format 5 (Sort/Merge Files) ΓòÉΓòÉΓòÉ
  2145.  
  2146. Description 
  2147.   The File Section must contain a level indicator for each input and output 
  2148.   file. 
  2149.  
  2150.   You must write an SD entry for each sort or merge file in the program. The 
  2151.   last clause in the SD entry must be immediately followed by a separator 
  2152.   period. The following example illustrates a File Section entry for a sort or 
  2153.   merge file: 
  2154.  
  2155.    SD  SORT-FILE.
  2156.    01  SORT-RECORD   PICTURE X(80).
  2157.  
  2158. Format 5 (Sort/Merge Files)
  2159.  
  2160.   ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇSD file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2161.  
  2162.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2163.      ΓööRECORDΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2164.             ΓöéΓööCONTAINSΓöÿ           ΓööCHARACTERSΓöÿ               Γöé
  2165.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2166.              ΓööCONTAINSΓöÿ                        ΓööCHARACTERSΓöÿ
  2167.  
  2168.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2169.      Γöé                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  2170.      Γöé                                Γöé Γöé
  2171.      ΓööDATAΓöÇΓö¼ΓöÇRECORDΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇdata-name-2ΓöÇΓö┤ΓöÇΓöÿ
  2172.            Γöé        ΓööISΓöÇΓöÿΓöé
  2173.            ΓööΓöÇRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  2174.                     ΓööAREΓöÿ
  2175.  
  2176.  
  2177. ΓòÉΓòÉΓòÉ <hidden> Format 6 (Transaction Files) ΓòÉΓòÉΓòÉ
  2178.  
  2179. Description 
  2180.   The File Section must contain a level indicator for each input and output 
  2181.   file.  For all files except sort/merge, the File Section must contain an FD 
  2182.   entry.  The last clause in the FD entry must be immediately followed by a 
  2183.   separator period. 
  2184.  
  2185. Format 6 (Transaction Files)
  2186.  
  2187.   ΓöÇΓöÇFD file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2188.  
  2189.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2190.      ΓööRECORDΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2191.             ΓöéΓööCONTAINSΓöÿ           ΓööCHARACTERSΓöÿ               Γöé
  2192.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2193.              ΓööCONTAINSΓöÿ                        ΓööCHARACTERSΓöÿ
  2194.  
  2195.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2196.      ΓööΓöÇLABELΓöÇΓö¼RECORDΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇSTANDARDΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  2197.              Γöé       ΓööISΓöÿ Γöé  ΓööΓöÇOMITTEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2198.              ΓööRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  2199.                      ΓööAREΓöÿ
  2200.  
  2201.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2202.      Γöé                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  2203.      Γöé                                Γöé Γöé
  2204.      ΓööDATAΓöÇΓö¼ΓöÇRECORDΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇdata-name-2ΓöÇΓö┤ΓöÇΓöÿ
  2205.            Γöé        ΓööISΓöÇΓöÿΓöé
  2206.            ΓööΓöÇRECORDSΓö¼ΓöÇΓöÇΓöÇΓö¼Γöÿ
  2207.                     ΓööAREΓöÿ
  2208.  
  2209. The AS/400 system only supports ASCII and ISO for tape and diskette files. 
  2210. Therefore, if the CODE-SET clause specifies a character code set of STANDARD-1 
  2211. (ASCII), or STANDARD-2 (ISO) for a file that is not a tape or diskette file, a 
  2212. warning message is issued and the EBCDIC character set is used. 
  2213.  
  2214.  
  2215. ΓòÉΓòÉΓòÉ 1.30. RECORD Clause ΓòÉΓòÉΓòÉ
  2216.  
  2217. The RECORD Clause has two formats: 
  2218.  
  2219. Format 1 specifies the number of character positions for fixed-length records: 
  2220.  
  2221. ΓöÇΓöÇΓöÇRECORDΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼integer-3Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2222.            ΓööCONTAINSΓöÿ         ΓööCHARACTERSΓöÿ
  2223.  
  2224. Format 2 specifies the number of character positions for either fixed or 
  2225. variable-length records. You must specify the record size as the number of 
  2226. character positions needed to store the record internally.  That is, specify 
  2227. the number of bytes occupied internally by the characters of the record (not 
  2228. the number of characters used to represent the item within the record). 
  2229.  
  2230. The maximum record length for a file is 32 766. 
  2231.  
  2232. When one of the entries within a record description contains an OCCURS 
  2233. DEPENDING ON clause, the compiler calculates the record size as follows: 
  2234.  
  2235.  When you specify the Format 2 RECORD CONTAINS clause, the record is 
  2236.   considered to have a variable size; varying from the size obtained for the 
  2237.   minimum size of the variable-length item, to the value obtained for the 
  2238.   maximum size of the variable-length item. 
  2239.  
  2240.  When you do not specify the RECORD CONTAINS clause, or if you specify the 
  2241.   Format 1 RECORD CONTAINS clause, the compiler uses the maximum value of the 
  2242.   variable-length item to calculate the record length. 
  2243.  
  2244. ΓöÇΓöÇΓöÇRECORDΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼integer-4 TO integer-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  2245.            ΓööCONTAINSΓöÿ                       ΓööCHARACTERSΓöÿ
  2246.  
  2247.  
  2248. ΓòÉΓòÉΓòÉ 1.31. Procedure Division ΓòÉΓòÉΓòÉ
  2249.  
  2250. Description 
  2251.   The Procedure Division is optional in a COBOL source program.  The Procedure 
  2252.   Division consists of optional declaratives, and procedures that contain 
  2253.   sections and/or paragraphs, sentences, and statements. 
  2254.  
  2255.   The Procedure Division has two formats: 
  2256.  
  2257.     Procedure Division (Format 1) 
  2258.  
  2259.     Procedure Division (Format 2) 
  2260.  
  2261. Click here for help with individual Procedure Division statements. 
  2262.  
  2263.  
  2264. ΓòÉΓòÉΓòÉ 1.32. Procedure Division (Format 1) ΓòÉΓòÉΓòÉ
  2265.  
  2266. Description 
  2267.   The structure of the Procedure Division (Format 1) is as follows: 
  2268.  
  2269. ΓöÇΓöÇΓöÇΓöÇPROCEDURE DIVISIONΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2270.                          Γöé       ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  2271.                          Γöé                Γöé Γöé
  2272.                          ΓööΓöÇUSING data-name-1ΓöÇΓöÿ
  2273.  
  2274. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  2275.    Γöé               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2276.    Γöé                                               Γöé
  2277.    ΓööΓöÇDECLARATIVES.  sectΓöÇΓöÇΓöÇUSE statement. ΓöÇΓöÇparaΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  2278.  
  2279. 1 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2280.                                  Γöé
  2281.                                  Γöé
  2282. 2 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇEND DECLARATIVES. ΓöÇΓöÇΓöÇΓöÇΓöÿ
  2283.  
  2284.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2285.                          Γöé
  2286. ΓöÇΓöÇΓöÇΓöÇΓöÇsectΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇparaΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2287.  
  2288.  
  2289. where sect is
  2290.  
  2291.   ΓöÇΓöÇΓöÇΓöÇΓöÇsection-name SECTIONΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ.ΓöÇΓöÇ
  2292.                               ΓööΓöÇsegment-numberΓöÇΓöÇΓöÿ
  2293.  
  2294.  
  2295. where para is
  2296.  
  2297.            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2298.            Γöé                            Γöé
  2299.   ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2300.          Γöé                             Γöé
  2301.          ΓööΓöÇparagraph-name. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2302.                             Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  2303.                             Γöé       Γöé  Γöé
  2304.                             ΓööΓöÇsentenceΓöÇΓöÇΓöÿ
  2305.  
  2306.  
  2307. ΓòÉΓòÉΓòÉ 1.33. Procedure Division (Format 2) ΓòÉΓòÉΓòÉ
  2308.  
  2309. Description 
  2310.   The structure of the Procedure Division (Format 2) is as follows: 
  2311.  
  2312.                                              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2313.                                                                        Γöé
  2314. ΓöÇPROCEDURE DIVISIONΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ. paragraphΓöÇname. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇ
  2315.                       Γöé      ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé                    ΓöéΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2316.                       Γöé                ΓöéΓöé                    Γöé       ΓöéΓöé
  2317.                       ΓööUSING dataΓöÇnameΓöÇ1Γö┤Γöÿ                    ΓöösentenceΓö┤Γöÿ
  2318.  
  2319.  
  2320. ΓòÉΓòÉΓòÉ 1.34. USING Phrase ΓòÉΓòÉΓòÉ
  2321.  
  2322. Description 
  2323.  
  2324.     The USING phrase makes data items defined in a calling program available 
  2325.      to a called subprogram. The USING phrase is required only if the object 
  2326.      program is to be invoked by a CALL statement and that statement includes a 
  2327.      USING phrase. 
  2328.  
  2329.     Each USING identifier in a calling program names data items that are 
  2330.      defined in any Data Division section. 
  2331.  
  2332.     An identifier may appear more than once in a Procedure Division USING 
  2333.      phrase. The last value passed to it by a CALL USING statement is used. 
  2334.  
  2335.     Data items defined in the Linkage Section of the called program may be 
  2336.      referenced within the Procedure Division of that program if, and only if, 
  2337.      they satisfy one of the following conditions: 
  2338.  
  2339.       - They are operands of the USING phrase of the Procedure Division header. 
  2340.  
  2341.       - They are defined with a REDEFINES or RENAMES clause, the object of 
  2342.         which satisfies the above conditions. 
  2343.  
  2344.       - They are items subordinate to any item that satisfies the condition in 
  2345.         the rules above. 
  2346.  
  2347.       - They are condition-names or index-names associated with data items that 
  2348.         satisfy any of the above conditions. 
  2349.  
  2350. The USING phrase is valid with the following: 
  2351.  
  2352.  The Procedure Division header of a called subprogram: 
  2353.  
  2354.   The USING phrase is valid in the Procedure Division header of a called 
  2355.   subprogram entered at the beginning of the nondeclaratives portion; each 
  2356.   USING identifier must be defined as a level-01 or level-77 item in the 
  2357.   Linkage Section of the called subprogram; it must not contain a REDEFINES 
  2358.   clause. 
  2359.  
  2360.  The CALL statement of a called subprogram: 
  2361.  
  2362.   In a calling program, the USING phrase is valid for the CALL statement; each 
  2363.   USING identifier must be defined as a level-01, level-77, or an elementary 
  2364.   item in the Data Division. The maximum number of data-names that can be 
  2365.   specified is 30. 
  2366.  
  2367.   The USING phrase is specified in the Procedure Division header if, and only 
  2368.   if, this program is a subprogram invoked by a CALL statement that itself 
  2369.   contains a USING phrase. That is, for each CALL USING statement in a calling 
  2370.   program, a corresponding USING phrase must be specified in a called 
  2371.   subprogram. 
  2372.  
  2373.   The identifiers specified in a CALL USING statement name data items available 
  2374.   to the calling program that may be referred to in the called program; a given 
  2375.   identifier may appear more than once.  These items are defined in any Data 
  2376.   Division section. 
  2377.  
  2378.  
  2379. ΓòÉΓòÉΓòÉ 1.35. DECLARATIVES ΓòÉΓòÉΓòÉ
  2380.  
  2381. Description 
  2382.   Declaratives provide one or more special-purpose sections that are executed 
  2383.   when an exception condition occurs. 
  2384.  
  2385.     Preface the entire group of Declarative Sections with the keyword 
  2386.      DECLARATIVES. Write it on the line after the Procedure Division header. 
  2387.      Specify the end of the group with the keywords END DECLARATIVES.  The 
  2388.      keywords DECLARATIVES and END DECLARATIVES must begin in Area A and be 
  2389.      followed by a separator period. No other text may appear on the same 
  2390.      line.. 
  2391.  
  2392.     When you specify Declarative Sections, you must group them at the 
  2393.      beginning of the Procedure Division. When Declarative Sections are 
  2394.      specified, you need to divide the entire Procedure Division into sections. 
  2395.  
  2396.     Begin each Declarative Section with a USE sentence that identifies the 
  2397.      section's function.  When an exception condition occurs, the series of 
  2398.      procedures that follow the USE sentence specify the actions to be taken. 
  2399.      End each Declarative Section with another section-name followed by a USE 
  2400.      sentence, or with the keywords END DECLARATIVES. 
  2401.  
  2402.  
  2403. ΓòÉΓòÉΓòÉ 1.36. Procedure Division Statements ΓòÉΓòÉΓòÉ
  2404.  
  2405. Description 
  2406.   A Procedure Division statement is a syntactically valid combination of 
  2407.   identifiers and symbols (literals, relational-operators, and so forth) 
  2408.   beginning with a COBOL verb. 
  2409.  
  2410.   There are four categories of statements: 
  2411.  
  2412.     Imperative: Specifies an unconditional action to be taken by the program, 
  2413.      or is a conditional statement terminated by its explicit scope terminator. 
  2414.  
  2415.     Conditional: Specifies that the truth value of a condition is to be 
  2416.      determined, and that the subsequent action of the object program is 
  2417.      dependent on this truth value. 
  2418.  
  2419.     Delimited scope: Uses an explicit scope terminator to turn a conditional 
  2420.      statement into an imperative statement; the resulting imperative statement 
  2421.      can then be nested. Explicit scope terminators may also be used, however, 
  2422.      to terminate the scope of an imperative statement. 
  2423.  
  2424.     Compiler-directing: Directs the compiler to take specific actions during 
  2425.      compilation of the program. 
  2426.  
  2427.   COBOL statements can also be categorized according to the type of operations 
  2428.   they perform: 
  2429.  
  2430.     Arithmetic statements perform computations. 
  2431.  
  2432.     Data manipulation statements move and inspect data. 
  2433.  
  2434.     Input/output statements transfer data to and from files stored on external 
  2435.      media, and control low-volume data that is obtained from or sent to an 
  2436.      input/output device. 
  2437.  
  2438.     Procedure-branching statements allow statements, sentences, and paragraphs 
  2439.      in the Procedure Division to be executed non-sequentially. 
  2440.  
  2441. For help with individual Procedure Division statements, select from the 
  2442. following list. 
  2443.  
  2444. ACCEPT                             INITIALIZE 
  2445. ACQUIRE                            INSPECT 
  2446. ADD                                MERGE 
  2447. ALTER                              MOVE 
  2448. CALL                               MULTIPLY 
  2449. CANCEL                             OPEN 
  2450. CLOSE                              PERFORM 
  2451. COMMIT                             READ 
  2452. COMPUTE                            RELEASE 
  2453. CONTINUE                           RETURN 
  2454. DELETE                             REWRITE 
  2455. DISPLAY                            ROLLBACK 
  2456. DIVIDE                             SEARCH 
  2457. DROP                               SET 
  2458. ENTER                              SORT 
  2459. EVALUATE                           START 
  2460. EXIT                               STOP 
  2461. EXIT PROGRAM                       STRING 
  2462. GOBACK                             SUBTRACT 
  2463. GO TO                              UNSTRING 
  2464. IF                                 WRITE 
  2465.  
  2466.  
  2467. ΓòÉΓòÉΓòÉ 1.37. ACCEPT Statement ΓòÉΓòÉΓòÉ
  2468.  
  2469. Description 
  2470.   The ACCEPT statement transfers data into the specified identifier.  There is 
  2471.   no editing or error checking of the incoming data. The ACCEPT statement has 
  2472.   seven formats: 
  2473.  
  2474.     Format 1 (Data Transfer) 
  2475.  
  2476.     Format 2 (System Information Transfer) 
  2477.  
  2478.     Format 3 (Feedback) 
  2479.  
  2480.     Format 4 (Local Data Area) 
  2481.  
  2482.     Format 5 (PIP Data Area) 
  2483.  
  2484.     Format 6 (Attribute Data) 
  2485.  
  2486.     Format 7 (Workstation I/O) 
  2487.  
  2488.  
  2489. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Data Transfer) ΓòÉΓòÉΓòÉ
  2490.  
  2491. Description 
  2492.   Format 1 of the ACCEPT statement transfers data from an input/output device 
  2493.   into the specified identifier.  The incoming data is received in USAGE IS 
  2494.   DISPLAY format. When you omit the FROM phrase, the ACCEPT statement obtains 
  2495.   input from the job input stream for batch jobs, and from the workstation for 
  2496.   interactive jobs. 
  2497.  
  2498.   Format 1 is useful for exceptional situations when operator intervention (to 
  2499.   supply a given message, code, or exception indicator) is required. The 
  2500.   operator must have the appropriate messages with which to reply. 
  2501.  
  2502. Format 1 (Data Transfer)
  2503.  
  2504. ΓöÇΓöÇACCEPT identifier ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2505.                         ΓööΓöÇFROMΓöÇΓö¼ΓöÇΓöÇmnemonicΓöÇnameΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2506.                                ΓööΓöÇΓöÇenvironmentΓöÇnameΓöÇΓöÇΓöÿ
  2507.  
  2508.  
  2509. ΓòÉΓòÉΓòÉ <hidden> Format 2 (System Information Transfer) ΓòÉΓòÉΓòÉ
  2510.  
  2511. Description 
  2512.   Format 2 of the ACCEPT statement transfers system information contained in 
  2513.   the specified conceptual data items DATE, DAY, or TIME into the identifier. 
  2514.   The transfer must follow the rules for the MOVE statement without the 
  2515.   CORRESPONDING phrase. 
  2516.  
  2517. Format 2 (System Information Transfer)
  2518.  
  2519. ΓöÇΓöÇACCEPT identifier FROMΓöÇΓöÇΓö¼ΓöÇΓöÇDATEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  2520.                             Γö£ΓöÇΓöÇDAYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2521.                             ΓööΓöÇΓöÇTIMEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2522.  
  2523.  
  2524. ΓòÉΓòÉΓòÉ <hidden> Format 3 (Feedback) ΓòÉΓòÉΓòÉ
  2525.  
  2526. Description 
  2527.   Format 3 of the ACCEPT statement transfers feedback information from an 
  2528.   active file to the identifier. 
  2529.  
  2530. Format 3 (Feedback)
  2531.  
  2532. ΓöÇΓöÇACCEPT identifier FROM mnemonic-nameΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2533.                                          ΓööΓöÇFOR file-nameΓöÇΓöÿ
  2534.  
  2535.  
  2536. ΓòÉΓòÉΓòÉ <hidden> Format 4 (Local Data Area) ΓòÉΓòÉΓòÉ
  2537.  
  2538. Description 
  2539.   Format 4 of the ACCEPT statement transfers data to identifier-1 from the 
  2540.   system-defined local data area created for the job. 
  2541.  
  2542.   The move into identifier-1 takes place according to the rules for the MOVE 
  2543.   statement for a group move without the CORRESPONDING phrase. 
  2544.  
  2545.   There is only one local data area for each job, and all devices in a job 
  2546.   access the same local data area. 
  2547.  
  2548. Format 4 (Local Data Area)
  2549.  
  2550. ΓöÇΓöÇACCEPT identifier-1 FROM mnemonic-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2551.  
  2552. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2553.     ΓööΓöÇFORΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  2554.           ΓööΓöÇliteralΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2555.  
  2556.  
  2557. ΓòÉΓòÉΓòÉ <hidden> Format 5 (PIP Data Area) ΓòÉΓòÉΓòÉ
  2558.  
  2559. Description 
  2560.   Format 5 of the ACCEPT statement transfers data from the PIP (Program 
  2561.   Initialization Parameters) data area into the identifier. 
  2562.  
  2563.   The move into the identifier takes place according to the rules for the MOVE 
  2564.   statement for a group move without the CORRESPONDING phrase. 
  2565.  
  2566. Format 5 (PIP Data Area)
  2567.  
  2568. ΓöÇΓöÇACCEPT identifier FROM mnemonic-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2569.  
  2570. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2571.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEXCEPTION imperative-statement-1ΓöÇΓöÇΓöÇΓöÿ
  2572.       ΓööΓöÇONΓöÇΓöÿ
  2573.  
  2574. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2575.     ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEXCEPTION imperative-statement-2ΓöÇΓöÇΓöÇΓöÿ
  2576.           ΓööΓöÇONΓöÇΓöÿ
  2577.  
  2578. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2579.     ΓööΓöÇEND-ACCEPTΓöÇΓöÿ
  2580.  
  2581.  
  2582. ΓòÉΓòÉΓòÉ <hidden> Format 6 (Attribute Data) ΓòÉΓòÉΓòÉ
  2583.  
  2584. Description 
  2585.   Format 6 of the ACCEPT statement retrieves information (attribute data) about 
  2586.   a particular program device associated with a TRANSACTION file. 
  2587.  
  2588.   You can only use this format of the ACCEPT statement for files with an 
  2589.   organization of TRANSACTION. 
  2590.  
  2591.   Program device attributes are moved into identifier-1 from the appropriate 
  2592.   attribute data format, according to the rules for the MOVE statement for a 
  2593.   group move without the CORRESPONDING phrase. 
  2594.  
  2595.   The attribute data retrieved by the ACCEPT statement depends on whether the 
  2596.   data and the associated fields are applicable to a workstation or to a 
  2597.   communications device. 
  2598.  
  2599. Format 6 (Attribute Data)
  2600.  
  2601. ΓöÇΓöÇACCEPT identifier-1 FROM mnemonic-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2602.  
  2603. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2604.     ΓööΓöÇFORΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  2605.           ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇFORΓöÇΓöÇfile-name-1ΓöÇΓöÿ
  2606.  
  2607.  
  2608. ΓòÉΓòÉΓòÉ <hidden> Format 7 (Workstation I/O) ΓòÉΓòÉΓòÉ
  2609.  
  2610. Description 
  2611.   Format 7 of the ACCEPT statement (also known as the extended ACCEPT 
  2612.   statement) provides input support for workstation I/O. 
  2613.  
  2614.   An extended ACCEPT statement has one of the following: 
  2615.  
  2616.     an AT phrase 
  2617.     a FROM phrase with the CRT keyword 
  2618.     a MODE IS BLOCK phrase 
  2619.     a WITH phrase 
  2620.     an ON EXCEPTION phrase or a NOT ON EXCEPTION phrase, and PIP-DATA is not 
  2621.      specified for mnemonic-name 
  2622.     no FROM phrase, but CONSOLE IS CRT is specified in the SPECIAL-NAMES 
  2623.      paragraph. 
  2624.  
  2625.   An ACCEPT statement is not an extended ACCEPT statement if it: 
  2626.  
  2627.     has a FROM phrase (except the FROM CRT phrase) and CONSOLE IS CRT is 
  2628.      specified in the SPECIAL-NAMES paragraph, or 
  2629.  
  2630.     does not have a FROM phrase and CONSOLE IS CRT is not specified. 
  2631.  
  2632. Format 7 (Workstation I/O)
  2633.  
  2634.                           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2635.                                                 Γöé
  2636. ΓöÇΓöÇACCEPTΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2637.                           Γö£ΓöÇline-col-phraseΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2638.                           Γöé                      Γöé
  2639.                           Γö£ΓöÇFROM CRTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2640.                           Γöé                      Γöé
  2641.                           Γö£ΓöÇMODEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇBLOCKΓöÇΓöÇΓöñ
  2642.                           Γöé       ΓööΓöÇISΓöÇΓöÿ         Γöé
  2643.                           Γöé                      Γöé
  2644.                           ΓööΓöÇwith-phraseΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2645.  
  2646. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2647.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEXCEPTION imperative-statement-1ΓöÇΓöÇΓöÇΓöÿ
  2648.       ΓööΓöÇONΓöÇΓöÿ
  2649.  
  2650. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2651.     ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEXCEPTION imperative-statement-2ΓöÇΓöÇΓöÇΓöÿ
  2652.           ΓööΓöÇONΓöÇΓöÿ
  2653.  
  2654. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2655.     ΓööΓöÇEND-ACCEPTΓöÇΓöÿ
  2656.  
  2657. where line-col-phrase is:
  2658.  
  2659.               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2660.                                                     Γöé
  2661. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇLINEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2662.     Γöé  ΓööΓöÇATΓöÇΓöÿ Γöé       ΓööΓöÇNUMBERΓöÇΓöÿ  ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÇΓöÿ   Γöé  Γöé
  2663.     Γöé         Γöé                                      Γöé  Γöé
  2664.     Γöé         ΓööΓöÇΓö¼ΓöÇCOLUMNΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓöñ  Γöé
  2665.     Γöé           ΓööΓöÇCOLΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇNUMBERΓöÇΓöÿ ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÇΓöÿ  Γöé
  2666.     Γöé                                                   Γöé
  2667.     ΓööΓöÇΓöÇATΓöÇΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2668.            ΓööΓöÇinteger-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  2669.  
  2670. where with-phrase is:
  2671.  
  2672.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2673.                                                        Γöé
  2674. ΓöÇΓöÇWITHΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇAUTOΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ
  2675.           Γöé ΓööΓöÇAUTO-SKIPΓöÇΓöÿ                               Γöé
  2676.           Γöé                                             Γöé
  2677.           Γö£ΓöÇΓö¼ΓöÇBELLΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2678.           Γöé ΓööΓöÇBEEPΓöÇΓöÿ                                    Γöé
  2679.           Γöé                                             Γöé
  2680.           Γö£ΓöÇΓöÇΓöÇBLINKΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2681.           Γöé                                             Γöé
  2682.           Γö£ΓöÇΓö¼ΓöÇFULLΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2683.           Γöé ΓööΓöÇLENGTH-CHECKΓöÇΓöÿ                            Γöé
  2684.           Γöé                                             Γöé
  2685.           Γö£ΓöÇΓöÇΓöÇHIGHLIGHTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2686.           Γöé                                             Γöé
  2687.           Γö£ΓöÇΓö¼ΓöÇREQUIREDΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2688.           Γöé ΓööΓöÇEMPTY-CHECKΓöÇΓöÿ                             Γöé
  2689.           Γöé                                             Γöé
  2690.           Γö£ΓöÇΓöÇΓöÇREVERSE-VIDEOΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2691.           Γöé                                             Γöé
  2692.           Γö£ΓöÇΓö¼ΓöÇSECUREΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2693.           Γöé ΓööΓöÇNO-ECHOΓöÇΓöÿ                                 Γöé
  2694.           Γöé                                             Γöé
  2695.           Γö£ΓöÇΓöÇΓöÇUNDERLINEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2696.           Γöé                                             Γöé
  2697.           Γö£ΓöÇΓöÇΓöÇRIGHT-JUSTIFYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2698.           Γöé                                             Γöé
  2699.           Γö£ΓöÇΓöÇΓöÇSPACE-FILLΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2700.           Γöé                                             Γöé
  2701.           Γö£ΓöÇΓöÇΓöÇTRAILING-SIGNΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2702.           Γöé                                             Γöé
  2703.           Γö£ΓöÇΓöÇΓöÇUPDATEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2704.           Γöé                                             Γöé
  2705.           Γö£ΓöÇΓöÇΓöÇZERO-FILLΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2706.           Γöé                                             Γöé
  2707.           Γö£ΓöÇΓöÇΓöÇSIZEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2708.           Γöé         ΓööΓöÇISΓöÇΓöÿ  ΓööΓöÇinteger-3ΓöÇΓöÇΓöÇΓöÇΓöÿ            Γöé
  2709.           Γöé                                             Γöé
  2710.           Γö£ΓöÇΓöÇΓöÇPROMPTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-5ΓöÇΓö¼ΓöÇΓöñ
  2711.           Γöé           ΓööΓöÇCHARACTER ISΓöÇΓöÿ ΓööΓöÇliteralΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ Γöé
  2712.           Γöé                                             Γöé
  2713.           Γö£ΓöÇΓö¼ΓöÇFOREGROUND-COLORΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2714.           Γöé ΓööΓöÇFOREGROUND-COLOURΓöÇΓöÿ ΓööΓöÇISΓöÇΓöÿ                Γöé
  2715.           Γöé                                             Γöé
  2716.           Γö£ΓöÇΓö¼ΓöÇBACKGROUND-COLORΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-5ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  2717.           Γöé ΓööΓöÇBACKGROUND-COLOURΓöÇΓöÿ ΓööΓöÇISΓöÇΓöÿ                Γöé
  2718.           Γöé                                             Γöé
  2719.           ΓööΓöÇΓöÇΓöÇLEFT-JUSTIFYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2720.  
  2721.  
  2722. ΓòÉΓòÉΓòÉ 1.38. ACQUIRE Statement ΓòÉΓòÉΓòÉ
  2723.  
  2724. Description 
  2725.   The ACQUIRE statement acquires a program device for a TRANSACTION file. 
  2726.   Successful completion of the ACQUIRE operation makes the program device 
  2727.   available for input and output operations.  If the ACQUIRE is unsuccessful, 
  2728.   the file status is set to 9H and any applicable USE AFTER EXCEPTION/ERROR 
  2729.   procedure is invoked. 
  2730.  
  2731. Format-TRANSACTION
  2732.  
  2733. ΓöÇΓöÇΓöÇACQUIREΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇΓö¼ΓöÇΓöÇFORΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2734.               ΓööΓöÇliteralΓöÇΓöÇΓöÇΓöÇΓöÿ
  2735.  
  2736.  
  2737. ΓòÉΓòÉΓòÉ 1.39. ADD Statement ΓòÉΓòÉΓòÉ
  2738.  
  2739. Description 
  2740.   The ADD statement sums two or more numeric operands and stores the results. 
  2741.  
  2742.     Format 1 (ADD) 
  2743.  
  2744.     Format 2 (ADD with GIVING) 
  2745.  
  2746.     Format 3 (ADD with CORRESPONDING) 
  2747.  
  2748.  
  2749. ΓòÉΓòÉΓòÉ <hidden> Format 1 (ADD) ΓòÉΓòÉΓòÉ
  2750.  
  2751. Description 
  2752.   In Format 1, all identifiers or literals preceding the keyword TO are added 
  2753.   together; the resulting sum is added to and stored in identifier-2. This 
  2754.   process is repeated for each successive occurrence of identifier-2, in the 
  2755.   left-to-right order in which identifier-2 is specified. 
  2756.  
  2757.   The composite of operands in an arithmetic statement can have a maximum 
  2758.   length of 30 digits. In Format 1, the composite of operands is determined by 
  2759.   using all of the operands in a given statement. 
  2760.  
  2761. Format 1 (ADD)
  2762.  
  2763.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ      ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2764.                           Γöé                               Γöé
  2765. ΓöÇΓöÇΓöÇADDΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö╝ΓöÇΓöÇTOΓöÇΓöÇidentifier-2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2766.           ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ                    ΓööΓöÇΓöÇROUNDEDΓöÇΓöÇΓöÿ
  2767.  
  2768. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2769.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  2770.         ΓööΓöÇONΓöÇΓöÿ
  2771.  
  2772. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2773.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  2774.             ΓööΓöÇONΓöÇΓöÿ
  2775.  
  2776.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2777.     ΓööΓöÇEND-ADDΓöÇΓöÿ
  2778.  
  2779.  
  2780. ΓòÉΓòÉΓòÉ <hidden> Format 2 (ADD with GIVING) ΓòÉΓòÉΓòÉ
  2781.  
  2782. Description 
  2783.   In Format 2, the values of the operands preceding the word GIVING are added 
  2784.   together, and the sum is stored as the new value of each data item referenced 
  2785.   by identifier-3. 
  2786.  
  2787.   The composite of operands in an arithmetic statement can have a maximum 
  2788.   length of 30 digits. In Format 2, the composite of operands is determined by 
  2789.   using all of the operands in a given statement excluding the data items that 
  2790.   follow the word GIVING. 
  2791.  
  2792. Format 2 (ADD with GIVING)
  2793.  
  2794.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2795.                           Γöé
  2796. ΓöÇΓöÇΓöÇADDΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2797.           ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ    ΓööΓöÇTOΓöÇΓöÿ     ΓööΓöÇΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2798.  
  2799.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2800.                                      Γöé
  2801. ΓöÇΓöÇGIVINGΓöÇΓöÇΓöÇidentifier-3ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2802.                           ΓööΓöÇΓöÇROUNDEDΓöÇΓöÇΓöÿ
  2803.  
  2804. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2805.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  2806.         ΓööΓöÇONΓöÇΓöÿ
  2807.  
  2808. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2809.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  2810.             ΓööΓöÇONΓöÇΓöÿ
  2811.  
  2812.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2813.     ΓööΓöÇEND-ADDΓöÇΓöÿ
  2814.  
  2815.  
  2816. ΓòÉΓòÉΓòÉ <hidden> Format 3 (ADD with CORRESPONDING) ΓòÉΓòÉΓòÉ
  2817.  
  2818. Description 
  2819.   In Format 3, elementary data items within identifier-1 are added to and 
  2820.   stored in the corresponding elementary items within identifier-2. 
  2821.  
  2822.   The composite of operands in an arithmetic statement can have a maximum 
  2823.   length of 30 digits. In Format 3, the composite of operands is determined 
  2824.   separately for each pair of corresponding data items. 
  2825.  
  2826. Format 3 (ADD with CORRESPONDING)
  2827.  
  2828. ΓöÇΓöÇΓöÇADDΓöÇΓöÇΓö¼ΓöÇCORRESPONDINGΓöÇΓö¼ΓöÇidentifier-1 TO identifier-2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  2829.           ΓööΓöÇCORRΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ                               ΓööΓöÇROUNDEDΓöÇΓöÿ
  2830.  
  2831. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2832.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  2833.         ΓööΓöÇONΓöÇΓöÿ
  2834.  
  2835. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2836.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  2837.             ΓööΓöÇONΓöÇΓöÿ
  2838.  
  2839.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2840.     ΓööΓöÇEND-ADDΓöÇΓöÿ
  2841.  
  2842.  
  2843. ΓòÉΓòÉΓòÉ 1.40. ALTER Statement ΓòÉΓòÉΓòÉ
  2844.  
  2845. Description 
  2846.   The ALTER statement changes the transfer point specified in a GO TO 
  2847.   statement. 
  2848.  
  2849.   Note:   The ALTER statement is an obsolete language element and encourages 
  2850.   the use of unstructured programming practices. It is to be deleted from the 
  2851.   next revision of the ANSI Standard. The EVALUATE statement provides the same 
  2852.   function as the ALTER statement and helps ensure that your program will be 
  2853.   well-structured. 
  2854.  
  2855. Format
  2856.  
  2857.            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2858.                                                                  Γöé
  2859. ΓöÇΓöÇΓöÇALTER procedureΓöÇnameΓöÇ1 TOΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇprocedureΓöÇnameΓöÇ2Γö┤ΓöÇΓöÇ
  2860.                                 ΓööΓöÇΓöÇPROCEED TOΓöÇΓöÇΓöÿ
  2861.  
  2862.  
  2863. ΓòÉΓòÉΓòÉ 1.41. CALL Statement ΓòÉΓòÉΓòÉ
  2864.  
  2865. Description 
  2866.   The CALL statement transfers control from one object program to another 
  2867.   within the run unit. 
  2868.  
  2869.   The program containing the CALL statement is the calling program; the program 
  2870.   identified in the CALL statement is the called subprogram. 
  2871.  
  2872.   Processing of the CALL statement passes control to the first nondeclarative 
  2873.   instruction of the called subprogram.  Control returns to the calling program 
  2874.   at the instruction following the CALL statement. 
  2875.  
  2876.   Called subprograms can contain CALL statements; however, a called subprogram 
  2877.   must not itself execute a CALL statement that directly or indirectly calls 
  2878.   the calling program. 
  2879.  
  2880.     Format 1 (CALL ON OVERFLOW) 
  2881.  
  2882.     Format 2 (CALL ON EXCEPTION) 
  2883.  
  2884.   You can also use the CALL statement to access OS/400 graphics routines: 
  2885.  
  2886.     CALL GDDM 
  2887.  
  2888.  
  2889. ΓòÉΓòÉΓòÉ <hidden> Format 1 (CALL ON OVERFLOW) ΓòÉΓòÉΓòÉ
  2890.  
  2891. Description 
  2892.   The program containing the CALL statement is the calling program; the program 
  2893.   identified in the CALL statement is the called subprogram. 
  2894.  
  2895. Format 1 (CALL ON OVERFLOW)
  2896.  
  2897. ΓöÇΓöÇCALLΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2898.           ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2899.  
  2900. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  2901.    Γöé        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2902.    Γöé        Γöé                       ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöéΓöé
  2903.    Γöé                                                         ΓöéΓöéΓöé
  2904.    ΓööΓöÇUSINGΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼identifier-2Γö╝Γö╝Γöÿ
  2905.             Γöé ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇREFERENCEΓöÇΓöÇΓöÿ Γö£ΓöÇADDRESS OFΓöÇΓöÇΓöÿ            ΓöéΓöé
  2906.             Γöé   ΓööΓöÇBYΓöÇΓöÿ              ΓööΓöÇfile-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿΓöé
  2907.             Γöé                                                   Γöé
  2908.             Γöé               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2909.             Γöé                                                 ΓöéΓöé
  2910.             ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇCONTENTΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇidentifier-2Γö╝Γöÿ
  2911.              ΓööΓöÇBYΓöÇΓöÿ         Γöé  Γö£ADDRESS OFΓöñ                    Γöé
  2912.                             Γöé  ΓööLENGTH OFΓöÇΓöÿ                    Γöé
  2913.                             ΓööΓöÇΓöÇΓö¼ΓöÇliteral-2ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2914.                                ΓööΓöÇfile-name-1ΓöÇΓöÿ
  2915.  
  2916. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2917.    ΓööΓöÇΓö¼ΓöÇΓöÇΓö¼OVERFLOW imperative-statement-1ΓöÇΓöÇΓöÿ
  2918.      ΓööONΓöÿ
  2919.  
  2920. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2921.    ΓööΓöÇΓöÇENDΓöÇCALLΓöÇΓöÇΓöÿ
  2922.  
  2923.  
  2924. ΓòÉΓòÉΓòÉ <hidden> Format 2 (CALL ON EXCEPTION) ΓòÉΓòÉΓòÉ
  2925.  
  2926. Description 
  2927.   The program containing the CALL statement is the calling program; the program 
  2928.   identified in the CALL statement is the called subprogram. 
  2929.  
  2930. Format 2 (CALL ON EXCEPTION)
  2931.  
  2932. ΓöÇΓöÇCALLΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2933.           ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2934.  
  2935. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  2936.    Γöé        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2937.    Γöé        Γöé                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ ΓöéΓöé
  2938.    Γöé                                                        Γöé ΓöéΓöé
  2939.    ΓööΓöÇUSINGΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-2Γö╝ΓöÇΓö╝Γöÿ
  2940.             Γöé ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇREFERENCEΓöÇΓöÿΓö£ΓöÇADDRESS OFΓöÇΓöÇΓöÿ             Γöé Γöé
  2941.             Γöé   ΓööΓöÇBYΓöÇΓöÿ            ΓööΓöÇfile-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ Γöé
  2942.             Γöé                                                   Γöé
  2943.             Γöé                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  2944.             Γöé                                                 ΓöéΓöé
  2945.             ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇCONTENTΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇidentifier-2ΓöÇΓö╝Γöÿ
  2946.               ΓööΓöÇBYΓöÇΓöÿ         Γöé Γö£ΓöÇADDRESS OFΓöÇΓöñ                  Γöé
  2947.                              Γöé ΓööΓöÇLENGTH OFΓöÇΓöÇΓöÿ                  Γöé
  2948.                              ΓööΓöÇΓö¼ΓöÇliteral-2ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  2949.                                ΓööΓöÇfile-name-1ΓöÇΓöÿ
  2950.  
  2951.  
  2952. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2953.    ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇEXCEPTION imperative-statement-1ΓöÇΓöÇΓöÿ
  2954.      ΓööΓöÇONΓöÇΓöÿ
  2955. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2956.    ΓööΓöÇΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇEXCEPTION imperative-statement-2ΓöÇΓöÇΓöÿ
  2957.           ΓööΓöÇONΓöÇΓöÿ
  2958.  
  2959. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  2960.    ΓööΓöÇΓöÇENDΓöÇCALLΓöÇΓöÇΓöÿ
  2961.  
  2962.  
  2963. ΓòÉΓòÉΓòÉ 1.42. CALL GDDM ΓòÉΓòÉΓòÉ
  2964.  
  2965. Description 
  2966.   You can use the CALL statement to access the following OS/400 graphics 
  2967.   routines: 
  2968.  
  2969.     Graphical Data Display Manager (GDDM), a set of graphics primitives for 
  2970.      drawing pictures 
  2971.  
  2972.     Presentation Graphics Routines (PGR), a set of business charting routines. 
  2973.   You access all these graphics routines with the same format of the CALL 
  2974.   statement. 
  2975.  
  2976. CALL GDDM
  2977.  
  2978.                                        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  2979.                                                     Γöé
  2980. ΓöÇΓöÇCALL  "GDDM" USINGΓöÇΓöÇΓöÇroutine-nameΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇ
  2981.                                        ΓööΓöÇdata-name-1ΓöÇΓöÿ
  2982.  
  2983.  
  2984. ΓòÉΓòÉΓòÉ 1.43. CANCEL Statement ΓòÉΓòÉΓòÉ
  2985.  
  2986. Description 
  2987.   The CANCEL statement ensures that the next time the referenced subprogram is 
  2988.   called, it will be entered in its initial state. 
  2989.  
  2990.   A CANCEL statement: 
  2991.  
  2992.     Closes all open files 
  2993.  
  2994.     Operates only on the program specified, and not on any program that may 
  2995.      have been called by the canceled program. 
  2996.  
  2997.   No action is taken when you use a CANCEL statement to cancel the following 
  2998.   types of programs: 
  2999.  
  3000.     A program that has not been called in the run unit 
  3001.  
  3002.     A program that has been called and subsequently canceled. 
  3003.  
  3004.   Called subprograms may contain CANCEL statements.  However, recursive calls 
  3005.   are not allowed; a called subprogram must not contain a CANCEL statement that 
  3006.   directly or indirectly cancels the calling program itself, or any other 
  3007.   program higher than itself in the calling hierarchy. In this case, control 
  3008.   passes to the next statement. 
  3009.  
  3010.               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3011.               Γöé                Γöé
  3012.                               Γöé
  3013. ΓöÇΓöÇΓöÇΓöÇCANCELΓöÇΓöÇΓö¼ΓöÇΓöÇidentifierΓöÇ1ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3014.               ΓööΓöÇΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3015.  
  3016.  
  3017. ΓòÉΓòÉΓòÉ 1.44. CLOSE Statement ΓòÉΓòÉΓòÉ
  3018.  
  3019. Description 
  3020.   The CLOSE statement terminates the processing of volumes and files, with 
  3021.   optional rewind and/or lock or removal, where applicable. 
  3022.  
  3023.     Format 1 (Sequential Files) 
  3024.  
  3025.     Format 2 (Indexed and Relative Files) 
  3026.  
  3027.     Format 3 (Transaction Files) 
  3028.  
  3029.  
  3030. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Sequential Files) ΓòÉΓòÉΓòÉ
  3031.  
  3032. Description 
  3033.   The CLOSE statement terminates the processing of volumes and files, with 
  3034.   optional rewind and/or lock or removal, where applicable. 
  3035.  
  3036.   You may execute it only for a file in an open mode. After successful 
  3037.   execution of the CLOSE statement without the REEL/UNIT phrase: 
  3038.  
  3039.     The record area associated with the file-name is no longer available. 
  3040.      Unsuccessful execution of a CLOSE statement leaves availability of the 
  3041.      record data undefined. 
  3042.  
  3043.     An OPEN statement for the file must be executed before any other 
  3044.      input/output statement. 
  3045.  
  3046. Format 1 (Sequential Files Format)
  3047.  
  3048.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3049.                                                                 Γöé
  3050. ΓöÇΓöÇCLOSE file-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇ
  3051.                       ΓööΓö¼ΓöÇΓö¼ΓöÇREELΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÿ
  3052.                        Γöé ΓööΓöÇUNITΓöÇΓöÿ    Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇREMOVALΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  Γöé
  3053.                        Γöé             ΓööΓöÇFORΓöÇΓöÿ                 Γöé
  3054.                        ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇNO REWINDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3055.                          ΓööΓöÇWITHΓöÇΓöÿ     ΓööΓöÇLOCKΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3056.  
  3057.  
  3058. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Indexed and Relative Files) ΓòÉΓòÉΓòÉ
  3059.  
  3060. Description 
  3061.   The CLOSE statement terminates the processing of volumes and files, with 
  3062.   optional rewind and/or lock or removal, where applicable.  You may execute it 
  3063.   only for a file in an open mode. 
  3064.  
  3065. Format 2 (Indexed and Relative Files Format)
  3066.  
  3067.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3068.                                            Γöé
  3069. ΓöÇΓöÇCLOSE fileΓöÇnameΓöÇ1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3070.                       ΓööΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇLOCKΓöÇΓöÇΓöÿ
  3071.                            ΓööΓöÇWITHΓöÇΓöÿ
  3072.  
  3073.  
  3074. ΓòÉΓòÉΓòÉ <hidden> Format 3 (Transaction Files) ΓòÉΓòÉΓòÉ
  3075.  
  3076. Description 
  3077.   The CLOSE statement terminates the processing of volumes and files, with 
  3078.   optional rewind and/or lock or removal, where applicable.  You may execute it 
  3079.   only for a file in an open mode. 
  3080.  
  3081. Format 3 (Transaction Files Format)
  3082.  
  3083.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3084.                                            Γöé
  3085. ΓöÇΓöÇCLOSE fileΓöÇnameΓöÇ1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3086.                       ΓööΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇLOCKΓöÇΓöÇΓöÿ
  3087.                            ΓööΓöÇWITHΓöÇΓöÿ
  3088.  
  3089.  
  3090. ΓòÉΓòÉΓòÉ 1.45. COMMIT Statement ΓòÉΓòÉΓòÉ
  3091.  
  3092. Description 
  3093.   The COMMIT statement provides a way of synchronizing changes to data base 
  3094.   records while preventing other jobs from modifying those records until the 
  3095.   COMMIT is performed. 
  3096.  
  3097.   When the COMMIT statement is executed, all changes made to files under 
  3098.   commitment control since the previous commitment boundary are made permanent. 
  3099.   A commitment boundary is established by the successful execution of a 
  3100.   ROLLBACK or COMMIT statement.  If no COMMIT or ROLLBACK has been issued in 
  3101.   the current job, a commitment boundary is established by the first OPEN of 
  3102.   any file under commitment control in the job.  Changes are made to all files 
  3103.   under commitment control in the job, not just to files under commitment 
  3104.   control in the COBOL program that issues the COMMIT statement. 
  3105.  
  3106.   When a COMMIT is executed, all record locks held by the job since the last 
  3107.   commitment boundary for files under commitment control are released and the 
  3108.   records become available to other jobs. 
  3109.  
  3110.   The COMMIT statement only affects files under commitment control.  If a 
  3111.   COMMIT is executed and there are no files opened under commitment control, 
  3112.   the COMMIT statement has no effect and no commitment boundary is established. 
  3113.  
  3114.   The COMMIT statement does not: 
  3115.  
  3116.     Modify the I-O-FEEDBACK area for any file 
  3117.     Change the file position indicator for any file 
  3118.     Set a file status value for any file. 
  3119.  
  3120.  
  3121. ΓöÇΓöÇΓöÇCOMMITΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3122.  
  3123.  
  3124. ΓòÉΓòÉΓòÉ 1.46. COMPUTE Statement ΓòÉΓòÉΓòÉ
  3125.  
  3126. Description 
  3127.   The COMPUTE statement assigns the value of an arithmetic expression to one or 
  3128.   more data items.  It allows you to combine arithmetic operations without the 
  3129.   restrictions on receiving data items that the rules for the ADD, SUBTRACT, 
  3130.   MULTIPLY, and DIVIDE statements impose.  When you need to combine arithmetic 
  3131.   operations, using the COMPUTE statement may be more efficient than writing a 
  3132.   series of separate arithmetic statements. 
  3133.  
  3134.  
  3135.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3136.                                      Γöé
  3137. ΓöÇΓöÇΓöÇCOMPUTE identifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3138.                            ΓööΓöÇROUNDEDΓöÇΓöÇΓöÿ
  3139.  
  3140. ΓöÇΓöÇΓöÇΓöÇ =  arithmetic-expressionΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3141.  
  3142.  
  3143. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3144.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  3145.       ΓööΓöÇONΓöÇΓöÿ
  3146.  
  3147. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  3148.     ΓööΓöÇΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  3149.            ΓööΓöÇONΓöÇΓöÿ
  3150.  
  3151. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3152.     ΓööΓöÇΓöÇEND-COMPUTEΓöÇΓöÇΓöÿ
  3153.  
  3154.  
  3155. ΓòÉΓòÉΓòÉ <hidden> arithmetic-expression ΓòÉΓòÉΓòÉ
  3156.  
  3157. When the COMPUTE statement is executed, the value of arithmetic-expression is 
  3158. calculated, and this value is stored as the new value of each data item 
  3159. referenced by identifier-1. 
  3160.  
  3161. An arithmetic expression consisting of a single identifier or literal allows 
  3162. you to set the value of the data items referenced by identifier-1 equal to the 
  3163. value of that identifier or literal. 
  3164.  
  3165. Click here for a description of arithmetic expressions. 
  3166.  
  3167.  
  3168. ΓòÉΓòÉΓòÉ 1.47. CONTINUE Statement ΓòÉΓòÉΓòÉ
  3169.  
  3170. Description 
  3171.   The CONTINUE statement allows you to specify a no operation statement. 
  3172.   CONTINUE indicates that no executable instruction is present. 
  3173.  
  3174.   You can use the CONTINUE statement anywhere a conditional statement or an 
  3175.   imperative statement may be used.  It has no effect on the execution of the 
  3176.   program. 
  3177.  
  3178.  
  3179. ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇCONTINUEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3180.  
  3181.  
  3182. ΓòÉΓòÉΓòÉ 1.48. DELETE Statement ΓòÉΓòÉΓòÉ
  3183.  
  3184. Description 
  3185.   The DELETE statement removes a record from an indexed or relative file. For 
  3186.   indexed files, you may reuse the key for record addition. For relative files, 
  3187.   the space is then available for a new record with the same RELATIVE KEY 
  3188.   value. 
  3189.  
  3190.   When the DELETE statement is executed, the associated file must be open in 
  3191.   I-O mode. 
  3192.  
  3193.   After successful execution of a DELETE statement, the record is logically 
  3194.   removed from the file and can no longer be accessed.  Execution of the DELETE 
  3195.   statement does not affect the contents of the record area associated with the 
  3196.   file-name. 
  3197.  
  3198.   If you specified the FILE STATUS clause in the File-Control entry, the 
  3199.   associated status key is updated when the DELETE statement is executed. 
  3200.  
  3201.   The file position indicator is not affected by the processing of the DELETE 
  3202.   statement. 
  3203.  
  3204.  
  3205. ΓöÇΓöÇΓöÇDELETE file-nameΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3206.                          ΓööΓöÇRECORDΓöÇΓöÿ
  3207.  
  3208. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3209.     ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö¼ΓöÇΓöÿ
  3210.              ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3211.  
  3212. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  3213.     ΓööΓöÇINVALIDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇimperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3214.                 ΓööΓöÇKEYΓöÇΓöÿ
  3215.  
  3216. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  3217.     ΓööΓöÇNOT INVALIDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇimperative-statement-2ΓöÇΓöÇΓöÿ
  3218.                     ΓööΓöÇKEYΓöÇΓöÿ
  3219.  
  3220. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3221.     ΓööΓöÇEND-DELETEΓöÇΓöÿ
  3222.  
  3223.  
  3224. ΓòÉΓòÉΓòÉ <hidden> INVALID KEY/NOT INVALID KEY ΓòÉΓòÉΓòÉ
  3225.  
  3226. You must specify the INVALID KEY phrase for files for which an applicable 
  3227. EXCEPTION/ERROR procedure is not specified. 
  3228.  
  3229. After processing of a DELETE statement for which a NOT INVALID KEY phrase has 
  3230. been specified, control transfers to imperative-statement-2. 
  3231.  
  3232. For files in sequential access mode, the INVALID KEY and NOT INVALID KEY 
  3233. phrases must not be specified; however, an EXCEPTION/ERROR procedure may be 
  3234. specified. 
  3235.  
  3236. For files in random or dynamic access mode, the results of DELETE statement 
  3237. execution depend on whether the file organization is indexed or relative: 
  3238.  
  3239.  For files with indexed organization, the system logically removes the record 
  3240.   identified by the contents of the RECORD KEY data item.  If the file does not 
  3241.   contain such a record, an INVALID KEY condition exists. 
  3242.  
  3243.  For files with relative organization, the system logically removes the record 
  3244.   identified by the contents of the RELATIVE KEY data item. If the file does 
  3245.   not contain such a record, an INVALID KEY condition exists. The space is then 
  3246.   available for a new record with the same RELATIVE KEY value. 
  3247.  
  3248. For files in random or dynamic access mode, both the INVALID KEY phrase and the 
  3249. EXCEPTION/ERROR procedure may be omitted. 
  3250.  
  3251. Click here for further information about the INVALID KEY condition. 
  3252.  
  3253.  
  3254. ΓòÉΓòÉΓòÉ 1.49. DISPLAY Statement ΓòÉΓòÉΓòÉ
  3255.  
  3256. Description 
  3257.   The DISPLAY statement transfers the contents of each operand to the output 
  3258.   device or system defined local data area. The contents are displayed in the 
  3259.   order from left to right in which the operands are listed. The DISPLAY 
  3260.   statement has three formats: 
  3261.  
  3262.     Format 1 (Data Transfer) 
  3263.  
  3264.     Format 2 (Local Data Area) 
  3265.  
  3266.     Format 3 (Workstation I/O) 
  3267.  
  3268.  
  3269. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Data Transfer) ΓòÉΓòÉΓòÉ
  3270.  
  3271. Description 
  3272.   Format 1 of the DISPLAY statement transfers the data in the sending field to 
  3273.   the output device.  The size of the sending field is the total character 
  3274.   count of all operands listed.  If the hardware device is capable of receiving 
  3275.   data of the same size as the data item being transferred, then the data item 
  3276.   is transferred. If the hardware device is not capable of receiving data of 
  3277.   the same size as the data item being transferred, then one of the following 
  3278.   applies: 
  3279.  
  3280.     If the total character count is less than the device maximum logical 
  3281.      record size, the remaining rightmost characters are padded with spaces. 
  3282.  
  3283.     If the total character count exceeds the maximum, as many records are 
  3284.      written as are needed to display all operands.  Any operand being printed 
  3285.      or displayed when the end of a record is reached is continued in the next 
  3286.      record. 
  3287.  
  3288.   After the last operand has been transferred to the output device, the device 
  3289.   is reset to the leftmost position of the next line of the device. 
  3290.  
  3291. Format 1 (Data Transfer)
  3292.  
  3293.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3294.                            Γöé
  3295. ΓöÇΓöÇDISPLAYΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ1ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3296.              ΓööΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3297.  
  3298. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3299.     ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇmnemonicΓöÇnameΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  3300.      ΓööΓöÇUPONΓöÇΓöÿ ΓööΓöÇenvironmentΓöÇnameΓöÇΓöÿ
  3301.  
  3302.  
  3303. ΓòÉΓòÉΓòÉ <hidden> identifier-1 ΓòÉΓòÉΓòÉ
  3304.  
  3305. If identifier-1 is numeric and is not described as an external decimal, the 
  3306. identifier is converted automatically to external format as follows: 
  3307.  
  3308.  Binary or internal decimal are converted to external decimal. Negative signed 
  3309.   values cause a low-order sign to be displayed. For example, if SIGN WITH 
  3310.   SEPARATE CHARACTER is not specified and two numeric items have the values -34 
  3311.   and 34, they are displayed as 3M and 34 respectively. If SIGN WITH SEPARATE 
  3312.   CHARACTER is specified, a + or a - sign is displayed as either leading or 
  3313.   trailing, depending on how the number was specified. 
  3314.  
  3315.   Note:   Group items containing packed or binary data (COMP, COMP-3, 
  3316.   PACKED-DECIMAL, BINARY, or COMP-4) should not be displayed on a display 
  3317.   station.  Such data can contain display station control characters which can 
  3318.   cause undesirable and unpredictable results. 
  3319.  
  3320.  No other identifiers require conversion. 
  3321.  
  3322.  
  3323. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Local Data Area) ΓòÉΓòÉΓòÉ
  3324.  
  3325. Description 
  3326.   Format 2 of the DISPLAY statement transfers data to the system-defined area 
  3327.   created for the job. 
  3328.  
  3329.   The data is written to the local data area according to the rules for the 
  3330.   MOVE statement for a group move without the CORRESPONDING phrase, and without 
  3331.   padding on the right with spaces. 
  3332.  
  3333.   There is only one local data area for each job, and all devices in a job 
  3334.   access the same local data area. 
  3335.  
  3336. Format 2 (Local Data Area)
  3337.  
  3338.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3339.                            Γöé
  3340. ΓöÇΓöÇDISPLAYΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ1ΓöÇΓö╝ΓöÇΓöÇUPONΓöÇΓöÇΓöÇmnemonic-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3341.              ΓööΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3342.  
  3343. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3344.     ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼Γöÿ
  3345.      ΓööΓöÇFORΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3346.  
  3347.  
  3348. ΓòÉΓòÉΓòÉ <hidden> Format 3 (Workstation I/O) ΓòÉΓòÉΓòÉ
  3349.  
  3350. Description 
  3351.   Format 3 of the DISPLAY statement (also known as the extended DISPLAY 
  3352.   statement) provides output support for workstation I/O. 
  3353.  
  3354.   An extended DISPLAY statement has one of the following: 
  3355.  
  3356.     an AT phrase 
  3357.     an UPON phrase with CRT or CRT-UNDER 
  3358.     a MODE IS BLOCK phrase 
  3359.     a WITH phrase 
  3360.     no UPON phrase, but CONSOLE IS CRT is specified in the SPECIAL-NAMES 
  3361.      paragraph. 
  3362.  
  3363.   A DISPLAY statement is not an extended DISPLAY statement if it: 
  3364.  
  3365.     has an UPON phrase (except the UPON CRT/CRT-UNDER phrase) 
  3366.  
  3367.     does not have an UPON phrase and CONSOLE IS CRT is not specified in the 
  3368.      SPECIAL-NAMES paragraph. 
  3369.  
  3370. Format 3 (Workstation I/O)
  3371.  
  3372.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3373.                                    Γöé
  3374. ΓöÇΓöÇDISPLAYΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3375.              Γöé ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ     Γöé
  3376.              Γöé                      Γöé
  3377.              Γö£ΓöÇline-col-phraseΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3378.              Γöé                      Γöé
  3379.              Γö£ΓöÇUPONΓöÇΓö¼ΓöÇCRTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöñ
  3380.              Γöé      ΓööΓöÇCRT-UNDERΓöÇΓöÿ   Γöé
  3381.              Γöé                      Γöé
  3382.              Γö£ΓöÇMODEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇBLOCKΓöÇΓöÇΓöñ
  3383.              Γöé       ΓööΓöÇISΓöÇΓöÿ         Γöé
  3384.              Γöé                      Γöé
  3385.              ΓööΓöÇwith-phraseΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3386.  
  3387. where line-col-phrase is:
  3388.  
  3389.               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3390.                                                     Γöé
  3391. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇLINEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3392.     Γöé  ΓööΓöÇATΓöÇΓöÿ Γöé       ΓööΓöÇNUMBERΓöÇΓöÿ  ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÇΓöÿ   Γöé  Γöé
  3393.     Γöé         Γöé                                      Γöé  Γöé
  3394.     Γöé         ΓööΓöÇΓö¼ΓöÇCOLUMNΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓöñ  Γöé
  3395.     Γöé           ΓööΓöÇCOLΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇNUMBERΓöÇΓöÿ ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÇΓöÿ  Γöé
  3396.     Γöé                                                   Γöé
  3397.     ΓööΓöÇΓöÇATΓöÇΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3398.            ΓööΓöÇinteger-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3399.  
  3400. where with-phrase is:
  3401.  
  3402.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3403.                                                        Γöé
  3404. ΓöÇΓöÇWITHΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇBELLΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ
  3405.           Γöé ΓööΓöÇBEEPΓöÇΓöÿ                                    Γöé
  3406.           Γöé                                             Γöé
  3407.           Γö£ΓöÇΓöÇΓöÇBLINKΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3408.           Γöé                                             Γöé
  3409.           Γö£ΓöÇΓöÇΓöÇHIGHLIGHTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3410.           Γöé                                             Γöé
  3411.           Γö£ΓöÇΓöÇΓöÇREVERSE-VIDEOΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3412.           Γöé                                             Γöé
  3413.           Γö£ΓöÇΓöÇΓöÇUNDERLINEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3414.           Γöé                                             Γöé
  3415.           Γö£ΓöÇΓöÇΓöÇBLANKΓöÇΓöÇΓö¼ΓöÇSCREENΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3416.           Γöé          ΓööΓöÇLINEΓöÇΓöÇΓöÇΓöÿ                         Γöé
  3417.           Γöé                                             Γöé
  3418.           Γö£ΓöÇΓöÇΓöÇSIZEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3419.           Γöé         ΓööΓöÇISΓöÇΓöÿ  ΓööΓöÇinteger-3ΓöÇΓöÇΓöÇΓöÇΓöÿ            Γöé
  3420.           Γöé                                             Γöé
  3421.           Γö£ΓöÇΓö¼ΓöÇFOREGROUND-COLORΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3422.           Γöé ΓööΓöÇFOREGROUND-COLOURΓöÇΓöÿ ΓööΓöÇISΓöÇΓöÿ                Γöé
  3423.           Γöé                                             Γöé
  3424.           ΓööΓöÇΓö¼ΓöÇBACKGROUND-COLORΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇinteger-5ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3425.             ΓööΓöÇBACKGROUND-COLOURΓöÇΓöÿ ΓööΓöÇISΓöÇΓöÿ
  3426.  
  3427.  
  3428. ΓòÉΓòÉΓòÉ <hidden> Identifier-1, Literal-1 ΓòÉΓòÉΓòÉ
  3429.  
  3430. Identifier-1 and literal-1 are data items whose value may be displayed. 
  3431.  
  3432. If identifier-1 is a group item and there is no MODE IS BLOCK phrase, those 
  3433. elementary subordinate items that have names other than FILLER are displayed. 
  3434. They are displayed simultaneously, and positioned on the screen in the order 
  3435. that their descriptions appear in the DATA DIVISION, separated by the lengths 
  3436. of the FILLER items in the group. For this purpose, the first position on a 
  3437. line is regarded as immediately following the last position on the previous 
  3438. line. When items are separated by FILLERs, the attribute bytes are included in 
  3439. the FILLER length. Thus a FILLER of one or two bytes would contain both the 
  3440. trailing and leading attributes of separate items. In the case of a one-byte 
  3441. FILLER, the trailing and leading attributes would occupy the same byte. Since 
  3442. data items are normally separated by one attribute byte, one-byte FILLERs are 
  3443. not necessary. 
  3444.  
  3445. Identifiers or literals in a DISPLAY statement follow one after another, 
  3446. separated by one attribute byte, unless an AT, LINE, or COLUMN phrase is 
  3447. specified. If no AT, LINE, or COLUMN phrase appears in the statement, the first 
  3448. identifier or literal begins at line 1, column 2, followed immediately by all 
  3449. other identifiers or literals. 
  3450.  
  3451. The phrases following the identifier or literal can be in any order. All 
  3452. phrases specified apply to the previous identifier or literal, if one was 
  3453. specified. The WITH and MODE phrases cannot be specified if an identifier or 
  3454. literal was not previously specified. 
  3455.  
  3456. If identifier-1 or literal-1 is not specified, neither the MODE IS BLOCK phrase 
  3457. nor the WITH phrase is allowed. 
  3458.  
  3459. If no identifier or literal is present, the DISPLAY operation changes the 
  3460. screen position without actually displaying any data. 
  3461.  
  3462.  
  3463. ΓòÉΓòÉΓòÉ 1.50. DIVIDE Statement ΓòÉΓòÉΓòÉ
  3464.  
  3465. Description 
  3466.   The DIVIDE statement divides one numeric data item into/by others and sets 
  3467.   the values of data items equal to the quotient and remainder. 
  3468.  
  3469.     Format 1 (DIVIDE) 
  3470.  
  3471.     Format 2 (DIVIDE INTO, GIVING) 
  3472.  
  3473.     Format 3 (DIVIDE BY, GIVING) 
  3474.  
  3475.     Format 4 (DIVIDE INTO, GIVING, with REMAINDER) 
  3476.  
  3477.     Format 5 (DIVIDE BY, GIVING, with REMAINDER) 
  3478.  
  3479.  
  3480. ΓòÉΓòÉΓòÉ <hidden> Format 1 (DIVIDE) ΓòÉΓòÉΓòÉ
  3481.  
  3482. Description 
  3483.   In Format 1 of the DIVIDE statement, the value of identifier-1 or literal-2 
  3484.   is divided into the value of identifier-2; the quotient is then placed in 
  3485.   identifier-2. This process is repeated for each successive occurrence. 
  3486.  
  3487. Format 1 (DIVIDE)
  3488.  
  3489.                                    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3490.                                                          Γöé
  3491. ΓöÇΓöÇDIVIDEΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇINTO identifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝
  3492.            ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ                   ΓööΓöÇROUNDEDΓöÇΓöÿ
  3493.  
  3494. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3495.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  3496.         ΓööΓöÇONΓöÇΓöÿ
  3497.  
  3498. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3499.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  3500.             ΓööΓöÇONΓöÇΓöÿ
  3501.  
  3502. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3503.    ΓööΓöÇEND-DIVIDEΓöÇΓöÿ
  3504.  
  3505.  
  3506. ΓòÉΓòÉΓòÉ <hidden> Format 2 (DIVIDE INTO, GIVING) ΓòÉΓòÉΓòÉ
  3507.  
  3508. Description 
  3509.   In Format 2, the value of identifier-1 or literal-1 is divided into the value 
  3510.   of identifier-2 or literal-2.  The value of the quotient is stored in each 
  3511.   data item referenced in the GIVING phrase by identifier-3. 
  3512.  
  3513. Format 2 (DIVIDE INTO, GIVING)
  3514.  
  3515. ΓöÇΓöÇDIVIDEΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇINTOΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼
  3516.             ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ             ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3517.  
  3518.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3519.                                    Γöé
  3520. ΓöÇΓöÇGIVING identifier-3ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3521.                         ΓööΓöÇΓöÇROUNDEDΓöÇΓöÇΓöÿ
  3522.  
  3523. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3524.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  3525.         ΓööΓöÇONΓöÇΓöÿ
  3526.  
  3527. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3528.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  3529.             ΓööΓöÇONΓöÇΓöÿ
  3530.  
  3531.  
  3532. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3533.    ΓööΓöÇEND-DIVIDEΓöÇΓöÿ
  3534.  
  3535.  
  3536. ΓòÉΓòÉΓòÉ <hidden> Format 3 (DIVIDE BY, GIVING) ΓòÉΓòÉΓòÉ
  3537.  
  3538. Description 
  3539.   In Format 3, the value of identifier-1 or literal-1 is divided by the value 
  3540.   of identifier-2 or literal-2.  The value of the quotient is stored in each 
  3541.   data item referenced in the GIVING phrase by identifier-3. 
  3542.  
  3543. Format 3 (DIVIDE BY, GIVING)
  3544.  
  3545. ΓöÇΓöÇDIVIDEΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇBYΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3546.             ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ      ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3547.  
  3548.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3549.                                    Γöé
  3550. ΓöÇΓöÇGIVING identifier-3ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3551.                         ΓööΓöÇΓöÇROUNDEDΓöÇΓöÇΓöÿ
  3552.  
  3553. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3554.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  3555.         ΓööΓöÇONΓöÇΓöÿ
  3556.  
  3557. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3558.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  3559.             ΓööΓöÇONΓöÇΓöÿ
  3560.  
  3561.  
  3562. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3563.    ΓööΓöÇEND-DIVIDEΓöÇΓöÿ
  3564.  
  3565.  
  3566. ΓòÉΓòÉΓòÉ <hidden> Format 4 (DIVIDE INTO, GIVING, with REMAINDER) ΓòÉΓòÉΓòÉ
  3567.  
  3568. Description 
  3569.   In Format 4, the value of identifier-1 or literal-1 is divided into 
  3570.   identifier-2 or literal-2.  The value of the quotient is stored in 
  3571.   identifier-3, and the value of the remainder is stored in identifier-4. 
  3572.  
  3573. Format 4 (DIVIDE INTO, GIVING, with REMAINDER)
  3574.  
  3575. ΓöÇΓöÇDIVIDEΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇINTOΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼
  3576.             ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ             ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3577.  
  3578. ΓöÇΓöÇGIVING identifier-3ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3579.                         ΓööΓöÇΓöÇROUNDEDΓöÇΓöÇΓöÿ
  3580.  
  3581. ΓöÇΓöÇREMAINDER identifier-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3582.  
  3583. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3584.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  3585.         ΓööΓöÇONΓöÇΓöÿ
  3586.  
  3587. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3588.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  3589.             ΓööΓöÇONΓöÇΓöÿ
  3590.  
  3591. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3592.    ΓööΓöÇEND-DIVIDEΓöÇΓöÿ
  3593.  
  3594.  
  3595. ΓòÉΓòÉΓòÉ <hidden> Format 5 (DIVIDE BY, GIVING, with REMAINDER) ΓòÉΓòÉΓòÉ
  3596.  
  3597. Description 
  3598.   In Format 5, the value of identifier-1 or literal-1 is divided by 
  3599.   identifier-2 or literal-2.  The value of the quotient is stored in 
  3600.   identifier-3, and the value of the remainder is stored in identifier-4. 
  3601.  
  3602. Format 5 (DIVIDE BY, GIVING, with REMAINDER)
  3603.  
  3604. ΓöÇΓöÇDIVIDEΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö¼ΓöÇΓöÇBYΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3605.             ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ      ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  3606.  
  3607. ΓöÇΓöÇGIVING identifier-3ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3608.                         ΓööΓöÇΓöÇROUNDEDΓöÇΓöÇΓöÿ
  3609.  
  3610. ΓöÇΓöÇREMAINDER identifier-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3611.  
  3612. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3613.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÿ
  3614.         ΓööΓöÇONΓöÇΓöÿ
  3615.  
  3616. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3617.     ΓööΓöÇNOTΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  3618.             ΓööΓöÇONΓöÇΓöÿ
  3619.  
  3620. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3621.    ΓööΓöÇEND-DIVIDEΓöÇΓöÿ
  3622.  
  3623.  
  3624. ΓòÉΓòÉΓòÉ 1.51. DROP Statement ΓòÉΓòÉΓòÉ
  3625.  
  3626. Description 
  3627.   The DROP statement releases a program device acquired by a TRANSACTION file. 
  3628.  
  3629.   Program devices you specify in a DROP statement must have been acquired by 
  3630.   the TRANSACTION file, either through an explicit ACQUIRE or through an 
  3631.   implicit ACQUIRE at OPEN time. 
  3632.  
  3633.   After successful execution of the DROP statement, the program device is no 
  3634.   longer available for input or output operations through the TRANSACTION file. 
  3635.   The device may be reacquired if necessary.  The contents of the record area 
  3636.   associated with a released program device are no longer available, even if 
  3637.   the device is reacquired. 
  3638.  
  3639.   If the DROP statement is unsuccessful, any applicable USE AFTER 
  3640.   EXCEPTION/ERROR procedures are executed. 
  3641.  
  3642.  
  3643. ΓöÇΓöÇΓöÇDROPΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇΓö¼ΓöÇΓöÇFROMΓöÇΓöÇΓöÇfile-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3644.            ΓööΓöÇliteralΓöÇΓöÇΓöÇΓöÇΓöÿ
  3645.  
  3646.  
  3647. ΓòÉΓòÉΓòÉ 1.52. ENTER Statement ΓòÉΓòÉΓòÉ
  3648.  
  3649. Description 
  3650.   The ENTER statement is obsolete and will be deleted from the next revision of 
  3651.   the ANSI Standard. It is syntax-checked during compilation, but has no effect 
  3652.   on the execution of the program. 
  3653.  
  3654.   The ENTER statement allows the use of more than one source language in the 
  3655.   same source program. The COBOL/400 compiler allows only COBOL in the source 
  3656.   program. 
  3657.  
  3658.  
  3659. ΓöÇΓöÇENTER languageΓöÇnameΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  3660.                          ΓööΓöÇΓöÇroutineΓöÇnameΓöÇΓöÇΓöÿ    ΓööΓöÇ . ΓöÇΓöÿ
  3661.  
  3662.  
  3663. ΓòÉΓòÉΓòÉ 1.53. EVALUATE Statement ΓòÉΓòÉΓòÉ
  3664.  
  3665. Description 
  3666.   The EVALUATE statement provides a shorthand notation for a series of nested 
  3667.   IF statements. It can evaluate multiple conditions. That is, the IF statement 
  3668.   can be made up of compound conditions. The subsequent action of the object 
  3669.   program depends on the results of these evaluations. 
  3670.  
  3671.  
  3672. ΓöÇΓöÇEVALUATEΓöÇΓö¼ΓöÇΓöÇidentifierΓöÇ1ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3673.              Γö£ΓöÇΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ Γöé  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  3674.              Γö£ΓöÇΓöÇexpressionΓöÇ1ΓöÇΓöÇΓöñ Γöé                      Γöé Γöé
  3675.              Γö£ΓöÇΓöÇTRUEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ ΓööΓöÇALSOΓöÇΓö¼ΓöÇΓöÇidentifierΓöÇ2ΓöÇΓöÇΓö╝ΓöÇΓöÿ
  3676.              ΓööΓöÇΓöÇFALSEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ        Γö£ΓöÇΓöÇliteralΓöÇ2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3677.                                        Γö£ΓöÇΓöÇexpressionΓöÇ2ΓöÇΓöÇΓöñ
  3678.                                        Γö£ΓöÇΓöÇTRUEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3679.                                        ΓööΓöÇΓöÇFALSEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3680.  
  3681.    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3682.    Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ                      Γöé
  3683.                                Γöé                      Γöé
  3684. ΓöÇΓöÇWHEN phraseΓöÇ1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇimperativeΓöÇstatementΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÇ
  3685.                  Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  3686.                  Γöé            ΓöéΓöé
  3687.                  ΓööALSO phraseΓöÇ2Γö┤Γöÿ
  3688.  
  3689. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  3690.    ΓööΓöÇWHEN OTHER imperativeΓöÇstatementΓöÇ2ΓöÇΓöÿ ΓööΓöÇEND-EVALUATEΓöÇΓöÿ
  3691.  
  3692.  
  3693.      where phraseΓöÇ1 is:
  3694.  
  3695. ΓöÇΓö¼ΓöÇANYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3696.    Γö£ΓöÇconditionΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3697.    Γö£ΓöÇTRUEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3698.    Γö£ΓöÇFALSEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3699.    ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifierΓöÇ3ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  3700.      ΓööNOTΓöÿ Γö£ΓöÇliteralΓöÇ3ΓöÇΓöÇΓöÇΓöÇΓöñ ΓööΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifierΓöÇ4ΓöÇΓö¼Γöÿ
  3701.            ΓööΓöÇarithΓöÇexpΓöÇ1ΓöÇΓöÇΓöÿ  ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ Γö£ΓöÇliteralΓöÇ4ΓöÇΓöÇΓöÇΓöÇΓöñ
  3702.                                          ΓööΓöÇarithΓöÇexpΓöÇ2ΓöÇΓöÇΓöÿ
  3703.  
  3704.      where phrase-2 is:
  3705.  
  3706. ΓöÇΓö¼ΓöÇANYΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  3707.    Γö£ΓöÇconditionΓöÇ2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3708.    Γö£ΓöÇTRUEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3709.    Γö£ΓöÇFALSEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3710.    ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifierΓöÇ5ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  3711.      ΓööNOTΓöÿ Γö£ΓöÇliteralΓöÇ5ΓöÇΓöÇΓöÇΓöÇΓöñ ΓööΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifierΓöÇ6ΓöÇΓö¼Γöÿ
  3712.            ΓööΓöÇarithΓöÇexpΓöÇ3ΓöÇΓöÇΓöÿ  ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ Γö£ΓöÇliteralΓöÇ6ΓöÇΓöÇΓöÇΓöÇΓöñ
  3713.                                          ΓööΓöÇarithΓöÇexpΓöÇ4ΓöÇΓöÇΓöÿ
  3714.  
  3715.  
  3716. ΓòÉΓòÉΓòÉ <hidden> arithmetic-expression ΓòÉΓòÉΓòÉ
  3717.  
  3718. Any selection subject in which expression-1, expression-2, ... is specified as 
  3719. an arithmetic expression, and any selection object without the NOT or THRU 
  3720. phrase in which arithmetic-expression-1 and/or arithmetic-expression-3 is 
  3721. specified, are assigned numeric values according to the rules for evaluating an 
  3722. arithmetic expression. 
  3723.  
  3724. Click here for a description of arithmetic expressions. 
  3725.  
  3726.  
  3727. ΓòÉΓòÉΓòÉ 1.54. EXIT Statement ΓòÉΓòÉΓòÉ
  3728.  
  3729. Description 
  3730.   The EXIT statement provides a common end point for a series of paragraphs. 
  3731.   It assigns a name to a given point in a program, and has no other effect on 
  3732.   the compilation or execution of the program. The EXIT statement must be 
  3733.   preceded by a paragraph-name and must appear in a sentence by itself.  This 
  3734.   sentence does not need to be the only sentence in the paragraph. 
  3735.  
  3736.   The EXIT statement is useful for documenting the end point in a series of 
  3737.   paragraphs.  If an EXIT paragraph is written as the last paragraph in a 
  3738.   declarative procedure or a series of performed procedures, it identifies the 
  3739.   point at which control will be transferred: 
  3740.  
  3741.     When control reaches such an EXIT paragraph and the associated declarative 
  3742.      or PERFORM statement is active, control is transferred to the appropriate 
  3743.      part of the Procedure Division. 
  3744.  
  3745.     When control reaches an EXIT paragraph that is not the end of a range of 
  3746.      procedures governed by an active PERFORM or USE statement, control passes 
  3747.      through the EXIT statement to the first statement of the next paragraph. 
  3748.  
  3749.   Without an EXIT statement, the end of the sequence is difficult to determine, 
  3750.   unless you know the logic of the program. 
  3751.  
  3752.  
  3753. ΓöÇΓöÇΓöÇEXITΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3754.  
  3755.  
  3756. ΓòÉΓòÉΓòÉ 1.55. EXIT PROGRAM Statement ΓòÉΓòÉΓòÉ
  3757.  
  3758. Description 
  3759.   The EXIT PROGRAM statement specifies the end of a called program and returns 
  3760.   control to the calling program. 
  3761.  
  3762.   If control reaches an EXIT PROGRAM statement while operating as a subprogram 
  3763.   in a COBOL run unit, control returns to the point in the calling program 
  3764.   immediately following the CALL statement. The program state of the calling 
  3765.   program is identical to that which existed at the time it executed the CALL 
  3766.   statement.  The contents of data items and the contents of data files shared 
  3767.   between the calling and called program may have been changed. The program 
  3768.   state of the called program is not altered except that the ends of the ranges 
  3769.   of all PERFORM statements executed by that called program are considered to 
  3770.   have been reached. 
  3771.  
  3772.   If control reaches an EXIT PROGRAM statement, and no CALL statement is 
  3773.   active, control passes through the exit point to the next executable 
  3774.   statement. 
  3775.  
  3776.   The EXIT PROGRAM statement must appear as the only statement, or as the last 
  3777.   statement, in a series of imperative statements in a sentence. 
  3778.  
  3779.   When there is no next executable statement in a called program, an implicit 
  3780.   EXIT PROGRAM statement is executed. 
  3781.  
  3782.  
  3783. ΓöÇΓöÇΓöÇEXIT PROGRAMΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3784.  
  3785.  
  3786. ΓòÉΓòÉΓòÉ 1.56. GOBACK Statement ΓòÉΓòÉΓòÉ
  3787.  
  3788. Description 
  3789.   The GOBACK statement specifies the logical end of a called program. It 
  3790.   functions like the EXIT PROGRAM statement when coded as a part of a called 
  3791.   program, and like the STOP RUN statement when coded in a main program. In a 
  3792.   sentence, the GOBACK statement should appear as the only statement or as the 
  3793.   last statement in a series of imperative statements, because any statements 
  3794.   following GOBACK are not executed. 
  3795.  
  3796.   If control reached a GOBACK statement in a subprogram in a COBOL run unit, 
  3797.   control returns to the point in the calling program immediately following the 
  3798.   CALL statement, as in the EXIT PROGRAM statement. 
  3799.  
  3800.  
  3801. ΓöÇΓöÇΓöÇGOBACKΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3802.  
  3803.  
  3804. ΓòÉΓòÉΓòÉ 1.57. GO TO Statement ΓòÉΓòÉΓòÉ
  3805.  
  3806. Description 
  3807.   The GO TO statement transfers control from one part of the Procedure Division 
  3808.   to another. GO TO has three formats: 
  3809.  
  3810.     Format 1 (Unconditional GO TO) 
  3811.  
  3812.     Format 2 (Conditional GO TO) 
  3813.  
  3814.     Format 3 (Altered GO TO) 
  3815.  
  3816.  
  3817. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Unconditional GO TO) ΓòÉΓòÉΓòÉ
  3818.  
  3819. Description 
  3820.   The unconditional GO TO statement transfers control to the first statement in 
  3821.   the paragraph or section named in procedure-name, unless GO TO has been 
  3822.   modified by an ALTER statement. An unconditional GO TO statement, when it 
  3823.   appears in a sequence of imperative statements, must be the last statement in 
  3824.   the sequence. 
  3825.  
  3826.   When an ALTER statement refers to a paragraph, the paragraph must consist of 
  3827.   a paragraph-name followed by an unconditional or altered GO TO statement. 
  3828.  
  3829. Format 1 (Unconditional GO TO)
  3830.  
  3831. ΓöÇΓöÇGOΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇprocedureΓöÇnameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3832.          ΓööΓöÇTOΓöÇΓöÿ
  3833.  
  3834.  
  3835. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Conditional GO TO) ΓòÉΓòÉΓòÉ
  3836.  
  3837. Description 
  3838.   The conditional GO TO statement transfers control to one of a series of 
  3839.   procedures, depending on the value of the identifier.  The maximum number of 
  3840.   procedure-names for a conditional GO TO statement is 255. 
  3841.  
  3842. Format 2 (Conditional GO TO)
  3843.  
  3844.               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3845.                              Γöé
  3846. ΓöÇΓöÇΓöÇGOΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇprocedureΓöÇnameΓöÇ1Γö┤ΓöÇDEPENDINGΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ
  3847.         ΓööTOΓöÿ                               ΓööONΓöÿ
  3848.  
  3849.  
  3850. ΓòÉΓòÉΓòÉ <hidden> Identifier ΓòÉΓòÉΓòÉ
  3851.  
  3852. Identifier must be a numeric elementary data item which is an integer. 
  3853.  
  3854.  If 1, control is transferred to the first statement in the procedure named by 
  3855.   the first occurrence of procedure-name-1; 
  3856.  If 2, control is transferred to the first statement in the procedure named by 
  3857.   the second occurrence of procedure-name-1, and so forth. 
  3858.  If the value of identifier is anything other than a value within the range of 
  3859.   1 through n, (where n is the number of procedure-names specified in this GO 
  3860.   TO statement), no control transfer occurs. Instead, control passes to the 
  3861.   next statement in the normal sequence in running the program. 
  3862.  
  3863.  
  3864. ΓòÉΓòÉΓòÉ <hidden> Format 3 (Altered GO TO) ΓòÉΓòÉΓòÉ
  3865.  
  3866. Description 
  3867.   The altered GO TO statement transfers control to the first statement of the 
  3868.   paragraph named in the ALTER statement. An ALTER statement referring to the 
  3869.   paragraph containing this GO TO statement must have been performed before 
  3870.   this GO TO is performed. 
  3871.  
  3872.   When an ALTER statement refers to a paragraph, the paragraph may consist only 
  3873.   of the paragraph-name followed by an unconditional or altered GO TO 
  3874.   statement. 
  3875.  
  3876.   The altered GO TO statement is an obsolete element and is to be deleted from 
  3877.   the next revision of the ANSI Standard. 
  3878.  
  3879. Format 3 (Altered GO TO)
  3880.  
  3881. ΓöÇΓöÇGOΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ.ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3882.          ΓööΓöÇTOΓöÇΓöÿ
  3883.  
  3884.  
  3885. ΓòÉΓòÉΓòÉ 1.58. IF Statement ΓòÉΓòÉΓòÉ
  3886.  
  3887. Description 
  3888.   The IF statement evaluates a condition and provides for alternative actions 
  3889.   in the object program, depending on the evaluation. 
  3890.  
  3891.  
  3892. ΓöÇΓöÇIF conditionΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3893.                   ΓööΓöÇTHENΓöÇΓöÇΓöÿ
  3894.  
  3895.          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3896.                      Γöé
  3897.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇstatement-1ΓöÇΓö┤ΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  3898.     Γöé  ΓööΓöÇΓöÇNEXT SENTENCEΓöÇΓöÇΓöÿ Γöé       ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ       Γöé        Γöé
  3899.     Γöé                      Γöé                   Γöé       Γöé        Γöé
  3900.     Γöé                      ΓööΓöÇELSEΓöÇΓö¼ΓöÇstatement-2ΓöÇΓö┤ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÿ        Γöé
  3901.     Γöé                             ΓööΓöÇNEXT SENTENCEΓöÇΓöÇΓöÿ             Γöé
  3902.     Γöé                                                            Γöé
  3903.     Γöé    ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ                Γöé
  3904.     Γöé                Γöé                        Γöé                Γöé
  3905.     ΓööΓöÇΓöÇΓöÇΓöÇΓöÇstatement-1ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇELSEΓöÇΓöÇΓöÇstatement-2ΓöÇΓö┤ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöñ
  3906.                            Γöé                        ΓööΓöÇEND-IFΓöÇΓöÿ   Γöé
  3907.                            Γöé                                     Γöé
  3908.                            ΓööΓöÇEND-IFΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3909.  
  3910.  
  3911. ΓòÉΓòÉΓòÉ 1.59. INITIALIZE Statement ΓòÉΓòÉΓòÉ
  3912.  
  3913. Description 
  3914.   The INITIALIZE statement sets selected categories of data fields to 
  3915.   predetermined values; it is functionally equivalent to one or more MOVE 
  3916.   statements. 
  3917.  
  3918.  
  3919.                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  3920.                             Γöé
  3921. ΓöÇINITIALIZEΓöÇΓöÇΓöÇidentifier-1ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  3922.  
  3923. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  3924.   Γöé             ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  3925.   Γöé                                                        ΓöéΓöé
  3926.   ΓööΓöÇΓöÇREPLACINGΓöÇΓöÇΓö¼ΓöÇALPHABETICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓö¼BYΓö¼ΓöÇidentifier-2Γö╝Γöÿ
  3927.                 Γö£ΓöÇALPHANUMERICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñΓööDATAΓöÿ  ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÿ
  3928.                 Γö£ΓöÇNUMERICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  3929.                 Γö£ΓöÇALPHANUMERIC-EDITEDΓöñ
  3930.                 ΓööΓöÇNUMERIC-EDITEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  3931.  
  3932.  
  3933. ΓòÉΓòÉΓòÉ <hidden> identifier-1 ΓòÉΓòÉΓòÉ
  3934.  
  3935. Identifier-1 is the receiving area. 
  3936.  
  3937. You can specify a subscripted item or a reference-modified item for 
  3938. identifier-1.  You can initialize a complete table only by specifying 
  3939. identifier-1 as a group that contains the complete table. (Click here for 
  3940. information about reference modification.) 
  3941.  
  3942. The description for the data item referenced by identifier-1 or any items 
  3943. subordinate to identifier-1 may not contain the DEPENDING ON phrase of the 
  3944. OCCURS clause. 
  3945.  
  3946. The data description entry for identifier-1 must not contain a RENAMES clause. 
  3947. An index data item may not be an operand of INITIALIZE. 
  3948.  
  3949. Whether identifier-1 references an elementary or group item, all operations are 
  3950. performed as if a series of MOVE statements had been written, each of which had 
  3951. an elementary item as a receiving field. 
  3952.  
  3953. All such elementary receiving fields, including all occurrences of table items 
  3954. within the group, are affected, with the following exceptions: 
  3955.  
  3956.  Index and pointer data items. 
  3957.  
  3958.  Elementary FILLER data items. 
  3959.  
  3960.  Items that are subordinate to identifier-1 and contain a REDEFINES clause, or 
  3961.   any items subordinate to such an item. (However, identifier-1 may contain a 
  3962.   REDEFINES clause or be subordinate to a redefining item.) 
  3963.  
  3964.  Boolean data items. 
  3965.  
  3966. The areas referenced by identifier-1 are initialized in the order (left to 
  3967. right) of the appearance of identifier-1 in the statement. Within a group 
  3968. receiving field, affected elementary items are initialized in the order of 
  3969. their definition within the group. 
  3970.  
  3971. If identifier-1 occupies the same storage area as identifier-2, the result of 
  3972. the execution of this statement is undefined, even if these operands are 
  3973. defined by the same data description entry. 
  3974.  
  3975. If identifier-1 is a group item, then all of the items within that group item 
  3976. are considered as being referenced in the program. 
  3977.  
  3978.  
  3979. ΓòÉΓòÉΓòÉ <hidden> REPLACING phrase ΓòÉΓòÉΓòÉ
  3980.  
  3981. When you use the REPLACING phrase: 
  3982.  
  3983.  Make the category of identifier-2 or literal-1 compatible with the category 
  3984.   indicated in the corresponding REPLACING phrase, according to the rules for 
  3985.   MOVE. 
  3986.  
  3987.  Do not repeat the same category in a REPLACING phrase. 
  3988.  
  3989. When you do not use the REPLACING phrase: 
  3990.  
  3991.  SPACE is the implied sending field for alphabetic, alphanumeric, and 
  3992.   alphanumeric-edited items. 
  3993.  
  3994.  ZERO is the implied sending field for numeric and numeric-edited items. 
  3995.  
  3996. If you specify the REPLACING phrase: 
  3997.  
  3998.  If identifier-1 references a group item, any elementary item within the data 
  3999.   item referenced by identifier-1 is initialized only if it belongs to the 
  4000.   category specified in the REPLACING phrase. 
  4001.  
  4002.  If identifier-1 references an elementary item, that item is initialized only 
  4003.   if it belongs to the category specified in the REPLACING phrase. 
  4004.  
  4005. This initialization takes place as if the data item referenced by identifier-2 
  4006. or literal-1 acts as the sending operand in an implicit MOVE statement to the 
  4007. identified item. 
  4008.  
  4009.  
  4010. ΓòÉΓòÉΓòÉ 1.60. INSPECT Statement ΓòÉΓòÉΓòÉ
  4011.  
  4012. Description 
  4013.   The INSPECT statement specifies that characters in a data item are to be 
  4014.   counted (tallied) or replaced, or both.  The INSPECT statement will: 
  4015.  
  4016.     Count the occurrence of a specific character (alphabetic, numeric, or 
  4017.      special character) in a data item. 
  4018.     Fill all or portions of a data item with spaces or zeros. 
  4019.     Translate characters from one collating sequence to another. 
  4020.  
  4021. This statement does not support reference modification. 
  4022.  
  4023. The INSPECT statement has four formats: 
  4024.  
  4025.  Format 1 (INSPECT/TALLYING) 
  4026.  
  4027.  Format 2 (INSPECT/REPLACING) 
  4028.  
  4029.  Format 3 (INSPECT/TALLYING/REPLACING) 
  4030.  
  4031.  Format 4 (INSPECT/CONVERTING) 
  4032.  
  4033.  
  4034. ΓòÉΓòÉΓòÉ <hidden> Format 1 ΓòÉΓòÉΓòÉ
  4035.  
  4036. Format 1 (INSPECT/TALLYING)
  4037.  
  4038. ΓöÇINSPECT identifierΓöÇ1 TALLYING ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4039.  
  4040.   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4041.   Γöé                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4042.   Γöé                Γöé            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ            Γöé
  4043.                                         Γöé            Γöé
  4044. ΓöÇidentifierΓöÇ2 FORΓöÇΓö¼ΓöÇCHARACTERSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ
  4045.                    Γöé            ΓööΓöÇphraseΓöÇ1ΓöÇΓöÿ            Γöé
  4046.                    Γöé                                    Γöé
  4047.                    Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  4048.                    Γöé          Γöé               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñΓöé
  4049.                    Γöé                                 ΓöéΓöé
  4050.                    Γö£ΓöÇALLΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇidentifierΓöÇ3ΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝Γöÿ
  4051.                    ΓööΓöÇLEADINGΓöÇΓöÿΓööΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÿΓööphraseΓöÇ1Γöÿ
  4052.  
  4053.  
  4054. where phraseΓöÇ1 is:
  4055.  
  4056.   ΓöÇΓö¼ΓöÇBEFOREΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  4057.      ΓööΓöÇAFTERΓöÇΓöÇΓöÿ   ΓööΓöÇINITIALΓöÇΓöÿ   ΓööΓöÇliteralΓöÇ2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4058.  
  4059.  
  4060. ΓòÉΓòÉΓòÉ <hidden> Format 2 ΓòÉΓòÉΓòÉ
  4061.  
  4062. Format 2 (INSPECT/REPLACING)
  4063.  
  4064. ΓöÇINSPECT identifierΓöÇ1 REPLACINGΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4065.  
  4066.   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4067.   Γöé                                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ          Γöé
  4068.                                             Γöé          Γöé
  4069. ΓöÇΓö¼ΓöÇCHARACTERS BYΓöÇΓö¼ΓöÇidentifierΓöÇ5ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ
  4070.   Γöé               ΓööΓöÇliteralΓöÇ3ΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇphraseΓöÇ1ΓöÇΓöÿ          Γöé
  4071.   Γöé                                                      Γöé
  4072.   Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  4073.   Γöé          Γöé                                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñΓöé
  4074.   Γöé                                                   ΓöéΓöé
  4075.   Γö£ΓöÇALLΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇidentifierΓöÇ3ΓöÇΓö¼BYΓö¼ΓöÇidentifierΓöÇ5ΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝Γöÿ
  4076.   Γö£ΓöÇLEADINGΓöÇΓöñΓööΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇliteralΓöÇ3ΓöÇΓöÇΓöÇΓöÇΓöÿΓööphraseΓöÇ1Γöÿ
  4077.   ΓööΓöÇFIRSTΓöÇΓöÇΓöÇΓöÿ
  4078.  
  4079.  
  4080. where phraseΓöÇ1 is:
  4081.  
  4082.   ΓöÇΓö¼ΓöÇBEFOREΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4083.      ΓööΓöÇAFTERΓöÇΓöÇΓöÿ   ΓööΓöÇINITIALΓöÇΓöÿ   ΓööΓöÇliteralΓöÇ2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4084.  
  4085.  
  4086. ΓòÉΓòÉΓòÉ <hidden> Format 3 ΓòÉΓòÉΓòÉ
  4087.  
  4088. Format 3 (INSPECT/TALLYING/REPLACING)
  4089.  
  4090. ΓöÇINSPECT identifierΓöÇ1 TALLYING ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4091.  
  4092.   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4093.   Γöé                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4094.   Γöé                Γöé            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ            Γöé
  4095.                                         Γöé            Γöé
  4096. ΓöÇidentifierΓöÇ2 FORΓöÇΓö¼ΓöÇCHARACTERSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇ
  4097.                    Γöé            ΓööΓöÇphraseΓöÇ1ΓöÇΓöÿ            Γöé
  4098.                    Γöé                                    Γöé
  4099.                    Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  4100.                    Γöé          Γöé               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñΓöé
  4101.                    Γöé                                 ΓöéΓöé
  4102.                    Γö£ΓöÇALLΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇidentifierΓöÇ3ΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝Γöÿ
  4103.                    ΓööΓöÇLEADINGΓöÇΓöÿΓööΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÿΓööphraseΓöÇ1Γöÿ
  4104.  
  4105.  
  4106. ΓöÇΓöÇΓöÇΓöÇΓöÇREPLACINGΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4107.  
  4108.   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4109.   Γöé                                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ          Γöé
  4110.                                             Γöé          Γöé
  4111. ΓöÇΓö¼ΓöÇCHARACTERS BYΓöÇΓö¼ΓöÇidentifierΓöÇ5ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ
  4112.   Γöé               ΓööΓöÇliteralΓöÇ3ΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇphraseΓöÇ1ΓöÇΓöÿ          Γöé
  4113.   Γöé                                                      Γöé
  4114.   Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  4115.   Γöé          Γöé                                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñΓöé
  4116.   Γöé                                                   ΓöéΓöé
  4117.   Γö£ΓöÇALLΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇidentifierΓöÇ3ΓöÇΓö¼BYΓö¼ΓöÇidentifierΓöÇ5ΓöÇΓö¼Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝Γöÿ
  4118.   Γö£ΓöÇLEADINGΓöÇΓöñΓööΓöÇliteralΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇliteralΓöÇ3ΓöÇΓöÇΓöÇΓöÇΓöÿΓööphraseΓöÇ1Γöÿ
  4119.   ΓööΓöÇFIRSTΓöÇΓöÇΓöÇΓöÿ
  4120.  
  4121. where phraseΓöÇ1 is:
  4122.  
  4123.   ΓöÇΓö¼ΓöÇBEFOREΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  4124.      ΓööΓöÇAFTERΓöÇΓöÇΓöÿ   ΓööΓöÇINITIALΓöÇΓöÿ   ΓööΓöÇliteralΓöÇ2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4125.  
  4126.  
  4127. ΓòÉΓòÉΓòÉ <hidden> Format 4 ΓòÉΓòÉΓòÉ
  4128.  
  4129. Format 4 (INSPECT/CONVERTING)
  4130.  
  4131. ΓöÇINSPECT identifierΓöÇ1 CONVERTINGΓöÇΓö¼identifierΓöÇ6ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4132.                                    ΓööΓöÇliteralΓöÇ4ΓöÇΓöÇΓöÇΓöÿ
  4133.  
  4134.                             ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4135.                                       Γöé
  4136. ΓöÇΓöÇΓöÇΓöÇTOΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇidentifierΓöÇ7ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4137.            ΓööΓöÇliteralΓöÇ5ΓöÇΓöÇΓöÇΓöÇΓöÿ ΓööΓöÇphraseΓöÇ1ΓöÇΓöÿ
  4138.  
  4139. where phraseΓöÇ1 is:
  4140.  
  4141.  ΓöÇΓö¼ΓöÇBEFOREΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  4142.     ΓööΓöÇAFTERΓöÇΓöÇΓöÿ   ΓööΓöÇINITIALΓöÇΓöÿ   ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4143.  
  4144.  
  4145. ΓòÉΓòÉΓòÉ <hidden> BEFORE and AFTER Phrases (All Formats) ΓòÉΓòÉΓòÉ
  4146.  
  4147. You cannot specify more than one BEFORE phrase and one AFTER phrase for any one 
  4148. ALL, LEADING, CHARACTERS, FIRST, or CONVERTING phrase. 
  4149.  
  4150. If you specify more than one BEFORE or AFTER phrases, the rules for counting 
  4151. and replacing are modified. 
  4152.  
  4153. When you specify the BEFORE phrase, counting and/or replacing of the inspected 
  4154. item begins at the leftmost character and continues until the first occurrence 
  4155. of the delimiter is reached. If no delimiter is present in the inspected item, 
  4156. counting and/or replacing continues toward the rightmost character. 
  4157.  
  4158. When you specify the AFTER phrase, counting and/or replacing of the inspected 
  4159. item begins with the first character to the immediate right of the delimiter 
  4160. and continues toward the rightmost character in the inspected item.  If no 
  4161. delimiter is present in the inspected item, no counting or replacement takes 
  4162. place. 
  4163.  
  4164.  
  4165. ΓòÉΓòÉΓòÉ <hidden> CONVERTING Phrase (Format 4) ΓòÉΓòÉΓòÉ
  4166.  
  4167. A string of replacement values may be expressed by the CONVERTING phrase. The 
  4168. size of the receiving location (identifier-7 or literal-5) must be the same 
  4169. size as the sending location (identifier-6 or literal-4). When a figurative 
  4170. constant is used as literal-5, the size of the figurative constant is equal to 
  4171. the size of literal-4 or identifier-6. The same character must not appear more 
  4172. than once, either in literal-4 or identifier-6. 
  4173.  
  4174. A Format 4 INSPECT statement is interpreted and executed as if a Format 2 
  4175. INSPECT statement had been written with a series of ALL phrases (one for each 
  4176. character of literal-4), specifying the same identifier-1. The effect is as if 
  4177. each single character of literal-4 were referenced as literal-1, and the 
  4178. corresponding single character of literal-5 referenced as literal-3. 
  4179. Correspondence between the characters of literal-4 and the characters of 
  4180. literal-5 is by ordinal position within the data item. 
  4181.  
  4182. If identifier-4, identifier-6, or identifier-7 occupies the same storage area 
  4183. as identifier-1, the result of the execution of this statement is undefined, 
  4184. even if they are defined by the same data description entry. 
  4185.  
  4186.  
  4187. ΓòÉΓòÉΓòÉ 1.61. MERGE Statement ΓòÉΓòÉΓòÉ
  4188.  
  4189. Description 
  4190.   The MERGE statement combines two or more identically sequenced files (files 
  4191.   that have already been sorted according to an identical set of 
  4192.   ascending/descending keys) on one or more keys and makes records available, 
  4193.   in merged order, to an output procedure or an output file. MERGE may appear 
  4194.   anywhere in the Procedure Division except in a Declarative Section. 
  4195.  
  4196.   It is not necessary to sequence input files prior to a merge operation. 
  4197.  
  4198.  
  4199. ΓöÇMERGE fileΓöÇnameΓöÇ1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4200.  
  4201.     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4202.     Γöé                                  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  4203.                                                  Γöé Γöé
  4204. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇASCENDINGΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇdataΓöÇnameΓöÇ1ΓöÇΓö┤ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇ
  4205.     ΓööΓöÇONΓöÇΓöÿ  ΓööΓöÇDESCENDINGΓöÇΓöÿ   ΓööΓöÇKEYΓöÇΓöÿ
  4206.  
  4207.  
  4208. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4209.    ΓööΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSEQUENCEΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇalphabetΓöÇnameΓöÇ1ΓöÇΓöÿ
  4210.     ΓööCOLLATINGΓöÿ            ΓööΓöÇISΓöÇΓöÿ
  4211.  
  4212.                     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4213.                                Γöé
  4214. ΓöÇUSING fileΓöÇnameΓöÇ2 fileΓöÇnameΓöÇ3ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4215.  
  4216. ΓöÇΓöÇΓö¼ΓöÇOUTPUT PROCEDUREΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  4217.    Γöé        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ ΓööΓöÇISΓöÇΓöÿ
  4218.    Γöé                   Γöé
  4219.    ΓööΓöÇGIVING fileΓöÇnameΓöÇ4ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  4220.  
  4221. 1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4222.    ΓööΓöÇΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedureΓöÇnameΓöÇ2ΓöÇΓöÇΓöÿ Γöé
  4223.      ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ                     Γöé
  4224. 2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4225.  
  4226.  
  4227. ΓòÉΓòÉΓòÉ <hidden> data-name-1 ΓòÉΓòÉΓòÉ
  4228.  
  4229. Data-name-1 specifies a KEY data item on which the merge will be based. Each 
  4230. data-name must identify a data item in a record associated with file-name-1. In 
  4231. MERGE, the data names following the word KEY are listed from left to right in 
  4232. order of decreasing significance without regard to how they are divided into 
  4233. KEY phrases.  The left-most data-name is the major key, the next data-name is 
  4234. the next most significant key, and so forth.  The following rules apply: 
  4235.  
  4236.  A specific KEY data item must be physically located in the same position and 
  4237.   have the same data format in each input file.  However, it does not need to 
  4238.   have the same data-name. 
  4239.  
  4240.  If file-name-1 has more than one file description, the KEY data items need be 
  4241.   described in only one or the record descriptions. 
  4242.  
  4243.  KEY data items must be fixed-length items. 
  4244.  
  4245.  KEY data items must not contain an OCCURS clause or be subordinate to an item 
  4246.   that contains OCCURS. 
  4247.  
  4248.  KEY data items can be qualified or reference modified; they cannot be 
  4249.   subscripted or indexed. (Click here for information about reference 
  4250.   modification.) 
  4251.  
  4252.  The total length (in bytes) of the KEY data items must not exceed 256. 
  4253.  
  4254.  
  4255. ΓòÉΓòÉΓòÉ 1.62. MOVE Statement ΓòÉΓòÉΓòÉ
  4256.  
  4257. Description 
  4258.   The MOVE statement transfers data from one area of storage to one or more 
  4259.   other areas of storage. The MOVE statement has two formats: 
  4260.  
  4261.     Format 1 (MOVE) 
  4262.  
  4263.     Format 2 (MOVE with CORRESPONDING) 
  4264.  
  4265.  
  4266. ΓòÉΓòÉΓòÉ <hidden> Format 1 (MOVE) ΓòÉΓòÉΓòÉ
  4267.  
  4268. Description 
  4269.   The MOVE statement transfers data from one area of storage to one or more 
  4270.   other areas.  Do not specify an index data item in a MOVE statement. 
  4271.  
  4272. Format 1 (MOVE)
  4273.  
  4274.                                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4275.                                            Γöé
  4276. ΓöÇΓöÇΓöÇMOVEΓöÇΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö¼ΓöÇTO identifier-2ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4277.            ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4278.  
  4279.  
  4280. ΓòÉΓòÉΓòÉ <hidden> Format 2 (MOVE with CORRESPONDING) ΓòÉΓòÉΓòÉ
  4281.  
  4282. Description 
  4283.   When you specify Format 2, both identifiers must be group items. Do not 
  4284.   specify an index data item in a MOVE statement. 
  4285.  
  4286. Format 2 (MOVE with CORRESPONDING)
  4287.  
  4288. ΓöÇΓöÇMOVEΓöÇΓö¼ΓöÇCORRESPONDINGΓöÇΓö¼ΓöÇidentifier-1 TO identifier-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4289.          ΓööΓöÇCORRΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4290.  
  4291.  
  4292. ΓòÉΓòÉΓòÉ 1.63. MULTIPLY Statement ΓòÉΓòÉΓòÉ
  4293.  
  4294. Description 
  4295.   The MULTIPLY statement multiplies numeric items and sets the values of data 
  4296.   items equal to the results. The MULTIPLY statement has two formats: 
  4297.  
  4298.     Format 1 (MULTIPLY) 
  4299.  
  4300.     Format 2 (MULTIPLY with GIVING) 
  4301.  
  4302.  
  4303. ΓòÉΓòÉΓòÉ <hidden> Format 1 (MULTIPLY) ΓòÉΓòÉΓòÉ
  4304.  
  4305. Description 
  4306.   In Format 1, the value of identifier-1 or literal-1 is multiplied by the 
  4307.   value of identifier-2; the product is then placed in identifier-2. For each 
  4308.   successive occurrence of identifier-2, the multiplication takes place in the 
  4309.   left-to-right order in which identifier-2 is specified. The composite of 
  4310.   operands in an arithmetic statement can have a maximum of 30 digits. 
  4311.  
  4312. Format 1 (MULTIPLY)
  4313.  
  4314.                                   ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4315.                                                        Γöé
  4316. ΓöÇΓöÇMULTIPLYΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö¼ΓöÇBYΓöÇΓöÇidentifier-2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇ
  4317.              ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ                   ΓööROUNDEDΓöÿ
  4318.  
  4319.  
  4320. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  4321.      ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4322.         ΓööΓöÇONΓöÇΓöÿ
  4323.  
  4324.  
  4325. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  4326.      ΓööΓöÇΓöÇNOTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  4327.             ΓööΓöÇONΓöÇΓöÿ
  4328.  
  4329.  
  4330. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4331.      ΓööΓöÇEND-MULTIPLYΓöÇΓöÇΓöÿ
  4332.  
  4333.  
  4334. ΓòÉΓòÉΓòÉ <hidden> Format 2 (MULTIPLY with GIVING) ΓòÉΓòÉΓòÉ
  4335.  
  4336. Description 
  4337.   In Format 2, the value of identifier-1 or literal-1 is multiplied by the 
  4338.   value of identifier-2 or literal-2. The product is then stored in the data 
  4339.   items referenced by identifier-3. The composite of operands in an arithmetic 
  4340.   statement can have a maximum of 30 digits. 
  4341.  
  4342. Format 2 (MULTIPLY with GIVING)
  4343.  
  4344. ΓöÇΓöÇMULTIPLYΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓö¼ΓöÇBYΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4345.              ΓööΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ    ΓööΓöÇΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÿ
  4346.  
  4347.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4348.                                  Γöé
  4349. ΓöÇΓöÇGIVING identifier-3ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4350.                         ΓööΓöÇROUNDEDΓöÇΓöÿ
  4351.  
  4352. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  4353.     ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4354.        ΓööΓöÇONΓöÇΓöÿ
  4355.  
  4356. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  4357.     ΓööΓöÇNOTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÇΓöÿ
  4358.            ΓööΓöÇONΓöÇΓöÿ
  4359.  
  4360. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4361.      ΓööΓöÇEND-MULTIPLYΓöÇΓöÇΓöÿ
  4362.  
  4363.  
  4364. ΓòÉΓòÉΓòÉ 1.64. OPEN Statement ΓòÉΓòÉΓòÉ
  4365.  
  4366. Description 
  4367.   The OPEN statement initiates the processing of files and checks and/or writes 
  4368.   labels.  The OPEN statement varies depending on the type of file: 
  4369.  
  4370.     Sequential 
  4371.     Indexed 
  4372.     Relative 
  4373.     Transaction 
  4374.  
  4375.   The OPEN statement has three formats: 
  4376.  
  4377.     Format 1 (Sequential Files) 
  4378.  
  4379.     Format 2 (Indexed and Relative Files) 
  4380.  
  4381.     Format 3 (Transaction Files) 
  4382.  
  4383.  
  4384. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Sequential Files) ΓòÉΓòÉΓòÉ
  4385.  
  4386. Description 
  4387.   In Format 1 of the OPEN statement, you must specify at least one of the 
  4388.   phrases: INPUT, OUTPUT, I-O, or EXTEND. The INPUT, OUTPUT, I-O, and EXTEND 
  4389.   phrases may appear in any order. 
  4390.  
  4391. Format 1 (Sequential Files)
  4392.  
  4393.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4394.           Γöé         ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ   Γöé
  4395.                                                  Γöé   Γöé
  4396. ΓöÇΓöÇΓöÇOPENΓöÇΓö¼ΓöÇINPUTΓöÇΓöÇΓöÇfile-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇ
  4397.           Γöé                     Γö£ΓöÇΓöÇREVERSEDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ   Γöé
  4398.           Γöé                     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼NO REWINDΓöÇΓöÇΓöÿ   Γöé
  4399.           Γöé                       ΓööWITHΓöÿ               Γöé
  4400.           Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  4401.           Γöé                                        Γöé  Γöé
  4402.           Γö£ΓöÇOUTPUTΓöÇΓöÇΓöÇfile-name-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöñ
  4403.           Γöé                      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼NO REWINDΓöÇΓöÇΓöÿ  Γöé
  4404.           Γöé                        ΓööWITHΓöÿ              Γöé
  4405.           Γöé       ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ                        Γöé
  4406.           Γöé                  Γöé                        Γöé
  4407.           Γö£ΓöÇI-OΓöÇΓöÇΓöÇfile-name-3ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  4408.           Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ                     Γöé
  4409.           Γöé                     Γöé                     Γöé
  4410.           ΓööΓöÇEXTENDΓöÇΓöÇΓöÇfile-name-4ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4411.  
  4412.  
  4413. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Indexed and Relative Files) ΓòÉΓòÉΓòÉ
  4414.  
  4415. Description 
  4416.   In Format 2 of the OPEN statement, you must specify at least one of the 
  4417.   phrases INPUT, OUTPUT, or I-O  with the OPEN keyword.  The INPUT, OUTPUT, and 
  4418.   I-O phrases may appear in any order. 
  4419.  
  4420. Format 2 (Indexed and Relative Files)
  4421.  
  4422.            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4423.            Γöé          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ   Γöé
  4424.                                 Γöé   Γöé
  4425. ΓöÇΓöÇΓöÇOPENΓöÇΓöÇΓö¼ΓöÇΓöÇINPUTΓöÇΓöÇΓöÇfile-name-1ΓöÇΓö┤ΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4426.            Γöé           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ  Γöé
  4427.            Γöé                      Γöé  Γöé
  4428.            Γö£ΓöÇΓöÇOUTPUTΓöÇΓöÇΓöÇfile-name-2ΓöÇΓö┤ΓöÇΓöÇΓöñ
  4429.            Γöé        ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ     Γöé
  4430.            Γöé                   Γöé     Γöé
  4431.            ΓööΓöÇΓöÇI-OΓöÇΓöÇΓöÇfile-name-3ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4432.  
  4433.  
  4434. ΓòÉΓòÉΓòÉ <hidden> Format 3 (TRANSACTION Files) ΓòÉΓòÉΓòÉ
  4435.  
  4436. Description 
  4437.   In Format 3 of the OPEN statement, you must specify I-O with the OPEN 
  4438.   keyword.  The Format 3 OPEN statement can cause a program device to be 
  4439.   implicitly acquired for a TRANSACTION file. 
  4440.  
  4441. Format 3 (TRANSACTION Files)
  4442.  
  4443.                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  4444.                         Γöé
  4445. ΓöÇΓöÇΓöÇOPEN I-OΓöÇΓöÇfile-nameΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4446.  
  4447.  
  4448. ΓòÉΓòÉΓòÉ 1.65. PERFORM Statement ΓòÉΓòÉΓòÉ
  4449.  
  4450. Description 
  4451.   The PERFORM statement explicitly transfers control to one or more procedures 
  4452.   and, after execution of the specified procedures or imperative statements, 
  4453.   implicitly returns control to the next executable statement. The PERFORM 
  4454.   statement can be: 
  4455.  
  4456.   An out-of-line PERFORM statement.  (Procedure-name-1 is specified.) 
  4457.  
  4458.   An in-line PERFORM statement.  (Procedure-name-1 is omitted.) An in-line 
  4459.   PERFORM must be delimited by the END-PERFORM phrase. 
  4460.  
  4461.   The in-line and out-of-line formats cannot be combined.  For example, if you 
  4462.   specify procedure-name-1, you must not specify imperative-statement and the 
  4463.   END-PERFORM phrase. 
  4464.  
  4465. The PERFORM statement has four formats: 
  4466.  
  4467.  Format 1 (Basic PERFORM) 
  4468.  
  4469.  Format 2 (PERFORM with TIMES) 
  4470.  
  4471.  Format 3 (PERFORM with UNTIL) 
  4472.  
  4473.  Format 4 (PERFORM with VARYING) 
  4474.  
  4475.  
  4476. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Basic PERFORM) ΓòÉΓòÉΓòÉ
  4477.  
  4478. Description 
  4479.   The procedures referenced in the basic PERFORM statement are run once and 
  4480.   control then passes to the next executable statement following the PERFORM 
  4481.   statement. 
  4482.  
  4483. Format 1 (Basic PERFORM)
  4484.  
  4485.  ΓöÇΓöÇPERFORMΓöÇΓö¼ΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  4486.              Γöé
  4487.              Γöé
  4488.              Γöé
  4489.              ΓööΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  4490.  
  4491.  1ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4492.        Γö£ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedure-name-2ΓöÇΓöÿ     Γöé
  4493.        ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ                        Γöé
  4494.                                           Γöé
  4495.  2ΓöÇΓöÇΓöÇimperative-statement  END-PERFORMΓöÇΓöÇΓöÇΓöÿ
  4496.  
  4497.  
  4498. ΓòÉΓòÉΓòÉ <hidden> Format 2 (PERFORM with TIMES) ΓòÉΓòÉΓòÉ
  4499.  
  4500. Description 
  4501.   The procedures referred to in Format 2 (PERFORM with TIMES) are executed the 
  4502.   number of times specified by the value in identifier-1 or integer-1.  Control 
  4503.   then passes to the next executable statement following the PERFORM statement. 
  4504.  
  4505. Format 2 (PERFORM with TIMES)
  4506.  
  4507. ΓöÇΓöÇΓöÇPERFORMΓöÇΓö¼ΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  4508.              Γöé
  4509.              Γöé
  4510.              Γöé
  4511.              ΓööΓöÇphrase-1 imperative-statementΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  4512.  
  4513.  
  4514. 1ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇphrase-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4515.       Γö£ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedure-name-2ΓöÇΓöÿ           Γöé
  4516.       ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ                              Γöé
  4517.                                                Γöé
  4518. 2ΓöÇΓöÇΓöÇΓöÇEND-PERFORMΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4519.  
  4520.  
  4521.  where phrase-1 is:
  4522.  
  4523. ΓöÇΓöÇΓöÇΓöÇΓö¼identifier-1ΓöÇΓö¼ΓöÇΓöÇTIMESΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4524.       ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÿ
  4525.  
  4526.  
  4527. ΓòÉΓòÉΓòÉ <hidden> Format 3 (PERFORM with UNTIL) ΓòÉΓòÉΓòÉ
  4528.  
  4529. Description 
  4530.   In Format 3 (PERFORM with UNTIL), the procedures referred to are performed 
  4531.   until the condition that the UNTIL phrase specifies is true.  Control then 
  4532.   passes to next executable statement following PERFORM. 
  4533.  
  4534. Format 3 (PERFORM with UNTIL)
  4535.  
  4536. ΓöÇΓöÇΓöÇPERFORMΓöÇΓö¼ΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  4537.              Γöé
  4538.              Γöé
  4539.              Γöé
  4540.              ΓööΓöÇphrase-1 imperative-statementΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  4541.  
  4542.  
  4543. 1ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇphrase-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4544.       Γö£ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedure-name-2ΓöÇΓöÿ           Γöé
  4545.       ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ                              Γöé
  4546.                                                Γöé
  4547. 2ΓöÇΓöÇΓöÇΓöÇEND-PERFORMΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4548.  
  4549.  
  4550.  where phrase-1 is:
  4551.  
  4552. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇUNTIL condition-1ΓöÇΓöÇ
  4553.       ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇTESTΓöÇΓö¼ΓöÇBEFOREΓöÇΓöñ
  4554.         ΓööΓöÇWITHΓöÇΓöÿ      ΓööΓöÇAFTERΓöÇΓöÇΓöÿ
  4555.  
  4556.  
  4557. ΓòÉΓòÉΓòÉ <hidden> Format 4 (PERFORM with VARYING) ΓòÉΓòÉΓòÉ
  4558.  
  4559. Description 
  4560.   Format 4 (PERFORM with VARYING) increases or decreases the value of one or 
  4561.   more identifiers or index-names according to certain rules for the varying 
  4562.   phrase. 
  4563.  
  4564.   The Format 4 PERFORM statement can serially search an entire 7-dimensional 
  4565.   table. 
  4566.  
  4567. Format 4 (PERFORM with VARYING)
  4568.  
  4569. ΓöÇΓöÇΓöÇPERFORMΓöÇΓö¼ΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  4570.              Γöé
  4571.              Γöé
  4572.              Γöé
  4573.              ΓööΓöÇphrase-1 imperative-statementΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  4574.  
  4575.  
  4576. 1 ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇphrase-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4577.        Γö£ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedure-name-2ΓöÇΓöÿ           Γöé
  4578.        ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ                              Γöé
  4579.                                                 Γöé
  4580. 2 ΓöÇΓöÇΓöÇΓöÇEND-PERFORMΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  4581.  
  4582.  
  4583.  where phrase-1 is:
  4584.  
  4585. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇVARYINGΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇ
  4586.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇTESTΓöÇΓö¼ΓöÇBEFOREΓöÇΓöñ         ΓööΓöÇindex-name-1ΓöÇΓöÿ
  4587.        ΓööΓöÇWITHΓöÇΓöÿ      ΓööΓöÇAFTERΓöÇΓöÇΓöÿ
  4588.  
  4589. ΓöÇΓöÇΓöÇFROMΓö¼identifier-3Γö¼BYΓö¼identifier-4Γö¼UNTIL condition-1ΓöÇΓöÇ
  4590.         Γö£index-name-2Γöñ  Γööliteral-2ΓöÇΓöÇΓöÇΓöÿ
  4591.         Γööliteral-1ΓöÇΓöÇΓöÇΓöÿ
  4592.  
  4593. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  4594.     Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  4595.     Γöé 
  4596.     ΓööΓöÇAFTERΓöÇΓö¼ΓöÇidentifier-5ΓöÇΓö¼ΓöÇFROMΓöÇΓö¼ΓöÇidentifier-6ΓöÇΓö¼ΓöÇBYΓöÇΓöÇΓöÇΓöÇ 5
  4597.             ΓööΓöÇindex-name-3ΓöÇΓöÿ      Γö£ΓöÇindex-name-4ΓöÇΓöñ
  4598.                                   ΓööΓöÇliteral-3ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4599.  
  4600. 3 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4601. 4 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  4602.                                          Γöé Γöé
  4603. 5 ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-7ΓöÇΓö¼ΓöÇUNTIL condition-2ΓöÇΓö┤ΓöÇΓöÿ
  4604.       ΓööΓöÇliteral-4ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4605.  
  4606.  
  4607. ΓòÉΓòÉΓòÉ 1.66. READ Statement ΓòÉΓòÉΓòÉ
  4608.  
  4609. Description 
  4610.   The READ statement makes a record available to the program.  For sequential 
  4611.   access, the READ statement makes the next logical record from a file 
  4612.   available to the object program.  For random access, the READ statement makes 
  4613.   a specified record from a direct-access file available to the object program. 
  4614.   When the READ statement is executed, the associated file must be open in 
  4615.   INPUT or I-O mode.  The READ statement has five formats: 
  4616.  
  4617.     Format 1 (Sequential Retrieval using Sequential Access) 
  4618.  
  4619.     Format 2 (Sequential Retrieval using Dynamic Access) 
  4620.  
  4621.     Format 3 (Random Retrieval) 
  4622.  
  4623.     Format 4 (TRANSACTION Nonsubfile) 
  4624.  
  4625.     Format 5 (TRANSACTION Subfile) 
  4626.  
  4627.  
  4628. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Sequential Retrieval using Sequential Access) ΓòÉΓòÉΓòÉ
  4629.  
  4630. Description 
  4631.   Use Format 1 for all files in sequential access mode.  Format 1 retrieves the 
  4632.   next logical record from the file.  The file organization determines the next 
  4633.   record accessed. 
  4634.  
  4635. Format 1 (Sequential Retrieval using Sequential Access)
  4636.  
  4637. ΓöÇΓöÇΓöÇREAD file-nameΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  4638.                     ΓööNEXTΓöÿ ΓööRECORDΓöÿ ΓööINTO identifier-1Γöÿ
  4639.  
  4640. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4641.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇNO LOCKΓöÇΓöÿ
  4642.        ΓööΓöÇWITHΓöÇΓöÿ
  4643.  
  4644. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4645.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  4646.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4647.  
  4648. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4649.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-1ΓöÇΓöÿ
  4650.        ΓööΓöÇATΓöÇΓöÿ
  4651.  
  4652. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4653.      ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-2ΓöÇΓöÿ
  4654.            ΓööΓöÇATΓöÇΓöÿ
  4655.  
  4656. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4657.      ΓööΓöÇEND-READΓöÇΓöÿ
  4658.  
  4659.  
  4660. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Sequential Retrieval using Dynamic Access) ΓòÉΓòÉΓòÉ
  4661.  
  4662. Description 
  4663.   Use Format 2 for indexed and relative files in dynamic access mode.  In 
  4664.   dynamic access mode, Format 2 with NEXT, FIRST, LAST, or PRIOR must be 
  4665.   specified for sequential retrieval. 
  4666.  
  4667. Format 2 (Sequential Retrieval using Dynamic Access)
  4668.  
  4669. ΓöÇΓöÇΓöÇREAD file-nameΓöÇΓö¼ΓöÇNEXTΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  4670.                     Γö£ΓöÇFIRSTΓöÇΓöñ ΓööRECORDΓöÿ ΓööINTO identifier-1Γöÿ
  4671.                     Γö£ΓöÇLASTΓöÇΓöÇΓöñ
  4672.                     ΓööΓöÇPRIORΓöÇΓöÿ
  4673.  
  4674. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4675.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇNO LOCKΓöÇΓöÿ
  4676.        ΓööΓöÇWITHΓöÇΓöÿ
  4677.  
  4678. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4679.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  4680.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4681.  
  4682. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4683.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-1ΓöÇΓöÿ
  4684.        ΓööΓöÇATΓöÇΓöÿ
  4685.  
  4686. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4687.      ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-2ΓöÇΓöÿ
  4688.            ΓööΓöÇATΓöÇΓöÿ
  4689.  
  4690. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4691.      ΓööΓöÇEND-READΓöÇΓöÿ
  4692.  
  4693.  
  4694. ΓòÉΓòÉΓòÉ <hidden> Format 3 (Random Retrieval) ΓòÉΓòÉΓòÉ
  4695.  
  4696. Description 
  4697.   You must specify Format 3 (Random Retrieval) for indexed and relative files 
  4698.   in random access mode. 
  4699.  
  4700. Format 3 (Random Retrieval)
  4701.  
  4702. ΓöÇΓöÇΓöÇREAD file-nameΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4703.                     ΓööΓöÇRECORDΓöÇΓöÿ ΓööΓöÇINTO identifier-1ΓöÇΓöÿ
  4704.  
  4705. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4706.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇNO LOCKΓöÇΓöÿ
  4707.        ΓööΓöÇWITHΓöÇΓöÿ
  4708.  
  4709. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4710.     ΓööΓöÇKEYΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇdata-name-1ΓöÇΓöÿ
  4711.           ΓööΓöÇISΓöÇΓöÿ
  4712.  
  4713. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4714.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  4715.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4716.  
  4717. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4718.     ΓööΓöÇINVALIDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇimperative-statement-1ΓöÇΓöÿ
  4719.                 ΓööΓöÇKEYΓöÇΓöÿ
  4720.  
  4721. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  4722.     ΓööΓöÇNOT INVALIDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇimperative-statement-2ΓöÇΓöÿ
  4723.                     ΓööΓöÇKEYΓöÇΓöÿ
  4724.  
  4725. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4726.     ΓööΓöÇEND-READΓöÇΓöÿ
  4727.  
  4728.  
  4729. ΓòÉΓòÉΓòÉ <hidden> Format 4 (TRANSACTION Nonsubfile) ΓòÉΓòÉΓòÉ
  4730.  
  4731. Description 
  4732.   You must use the Format 4 READ statement for a subfile control record format 
  4733.   to place those subfile records that were updated on a display into the 
  4734.   subfile.  You cannot use the Format 4 READ statement to read a subfile 
  4735.   record. 
  4736.  
  4737. Format 4 (TRANSACTION Nonsubfile)
  4738.  
  4739. ΓöÇΓöÇΓöÇREAD file-nameΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4740.                     ΓööΓöÇRECORDΓöÇΓöÿ ΓööΓöÇINTO identifier-1ΓöÇΓöÿ
  4741.  
  4742. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4743.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  4744.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4745.  
  4746. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4747.      ΓööΓöÇTERMINALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÿ
  4748.                 ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4749.  
  4750. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4751.      ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-4ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4752.        Γö£ΓöÇINDICATORSΓöÇΓöñ  Γö£ΓöÇISΓöÇΓöÇΓöñ
  4753.        ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇAREΓöÇΓöÿ
  4754.  
  4755. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4756.      ΓööΓöÇNO DATA imperative-statement-1ΓöÇΓöÿ
  4757.  
  4758. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4759.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-2ΓöÇΓöÿ
  4760.        ΓööΓöÇATΓöÇΓöÿ
  4761.  
  4762. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4763.      ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-3ΓöÇΓöÿ
  4764.            ΓööΓöÇATΓöÇΓöÿ
  4765.  
  4766. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4767.     ΓööΓöÇEND-READΓöÇΓöÿ
  4768.  
  4769.  
  4770. ΓòÉΓòÉΓòÉ <hidden> Format 5 (TRANSACTION Subfile) ΓòÉΓòÉΓòÉ
  4771.  
  4772. Description 
  4773.   The Format 5 READ statement is used only to read a format that is a subfile 
  4774.   record. You cannot use Format 5 for communications devices.  If the subfile 
  4775.   format of the READ statement is used for a communication device, the READ 
  4776.   operation fails. 
  4777.  
  4778.   The AT END phrase can only be specified when the NEXT MODIFIED phrase is 
  4779.   specified.  The INVALID KEY phrase must not be used when the NEXT MODIFIED 
  4780.   phrase is specified. 
  4781.  
  4782. Format 5 (TRANSACTION Subfile)
  4783.  
  4784. ΓöÇΓöÇΓöÇREAD SUBFILE file-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4785.  
  4786. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4787.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇMODIFIEDΓöÇΓöÿ  ΓööΓöÇRECORDΓöÇΓöÿ
  4788.       ΓööΓöÇNEXTΓöÇΓöÿ
  4789.  
  4790. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4791.     ΓööΓöÇINTO identifier-1ΓöÇΓöÿ
  4792.  
  4793. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4794.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  4795.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4796.  
  4797. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4798.      ΓööΓöÇTERMINALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÿ
  4799.                 ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4800.  
  4801. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4802.      ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-4ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4803.        Γö£ΓöÇINDICATORSΓöÇΓöñ  Γö£ΓöÇISΓöÇΓöÇΓöñ
  4804.        ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇAREΓöÇΓöÿ
  4805.  
  4806. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4807.     ΓööΓöÇINVALIDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇimperative-statement-1ΓöÇΓöÿ
  4808.                 ΓööΓöÇKEYΓöÇΓöÿ
  4809.  
  4810. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  4811.     ΓööΓöÇNOT INVALIDΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇimperative-statement-2ΓöÇΓöÿ
  4812.                     ΓööΓöÇKEYΓöÇΓöÿ
  4813.  
  4814. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4815.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-3ΓöÇΓöÿ
  4816.        ΓööΓöÇATΓöÇΓöÿ
  4817.  
  4818. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4819.      ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-4ΓöÇΓöÿ
  4820.            ΓööΓöÇATΓöÇΓöÿ
  4821.  
  4822. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4823.     ΓööΓöÇEND-READΓöÇΓöÿ
  4824.  
  4825.  
  4826. ΓòÉΓòÉΓòÉ <hidden> NEXT MODIFIED Phrase ΓòÉΓòÉΓòÉ
  4827.  
  4828. When you specify the NEXT MODIFIED phrase, the record made available is the 
  4829. first record in the subfile that has been modified. 
  4830.  
  4831. The search for the next modified record begins: 
  4832.  
  4833.  At the beginning of the subfile if: 
  4834.  
  4835.    - An I-O operation has been performed for the subfile control record. 
  4836.    - The I-O operation cleared, initialized, or displayed the subfile. 
  4837.  
  4838.  For all other cases, with the record following the record that was read by a 
  4839.   previous read operation. 
  4840.  
  4841. The value of the RELATIVE KEY data item is updated to reflect the relative 
  4842. record number of the record made available to the program. 
  4843.  
  4844. If you specify NEXT MODIFIED and there is no user-modified record in the 
  4845. subfile with a relative record number greater than the relative record number 
  4846. contained in the RELATIVE KEY data item, the AT END condition exists, the file 
  4847. status is set to 12, and the value of the RELATIVE KEY data item is set to the 
  4848. key of the last record in the subfile.  Imperative-statement-2, or any 
  4849. applicable USE AFTER ERROR/EXCEPTION procedure, if any, is then executed. 
  4850.  
  4851. If you do not specify the NEXT MODIFIED phrase, the data record made available 
  4852. is the record in the subfile with a relative record number that corresponds to 
  4853. the value of the RELATIVE KEY data item; and if the RELATIVE KEY data item 
  4854. contains a value other than the relative record number of a record in the 
  4855. subfile, the INVALID KEY condition exists and the execution of the READ 
  4856. statement is unsuccessful. 
  4857.  
  4858. Random Access of Subfile Records:  The NEXT MODIFIED phrase must not be used to 
  4859. randomly access records in a subfile.  The INVALID KEY phrase can only be used 
  4860. for random access of subfile records. 
  4861.  
  4862. Sequential Access of Subfile Records:  The NEXT MODIFIED phrase must be 
  4863. specified to access subfile records sequentially.  The AT END phrase can only 
  4864. be specified with the NEXT MODIFIED phrase. 
  4865.  
  4866.  
  4867. ΓòÉΓòÉΓòÉ 1.67. RELEASE Statement ΓòÉΓòÉΓòÉ
  4868.  
  4869. Description 
  4870.   The RELEASE statement transfers records from an input/output area to the 
  4871.   initial phase of a sorting operation. You can only use the RELEASE statement 
  4872.   within the range of an input procedure associated with a SORT statement. 
  4873.  
  4874.   Within an INPUT PROCEDURE, you must specify at least one RELEASE statement. 
  4875.  
  4876.   When the RELEASE statement is executed, the current contents of record-name-1 
  4877.   are placed in the sort file; that is, made available for the beginning of the 
  4878.   sorting operation. 
  4879.  
  4880.  
  4881. ΓöÇΓöÇΓöÇRELEASE record-name-1ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4882.                              ΓööΓöÇFROM identifier-1ΓöÇΓöÿ
  4883.  
  4884.  
  4885. ΓòÉΓòÉΓòÉ 1.68. RETURN Statement ΓòÉΓòÉΓòÉ
  4886.  
  4887. Description 
  4888.   The RETURN statement transfers records from the final phase of a sort or 
  4889.   merge operation to an OUTPUT PROCEDURE. 
  4890.  
  4891.   Use the RETURN statement only within the range of an output procedure 
  4892.   associated with a SORT or MERGE statement. Within the OUTPUT PROCEDURE, you 
  4893.   must specify at least one RETURN statement. 
  4894.  
  4895.   Execution of the RETURN statement makes the next record from file-name-1 
  4896.   available for processing by the OUTPUT PROCEDURE. 
  4897.  
  4898.  
  4899. ΓöÇΓöÇΓöÇRETURN file-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  4900.                          ΓööΓöÇRECORDΓöÇΓöÿ  ΓööΓöÇINTO identifier-1ΓöÇΓöÿ
  4901.  
  4902. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇEND imperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4903.      ΓööΓöÇATΓöÇΓöÿ
  4904.  
  4905. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  4906.      ΓööΓöÇNOTΓö¼ΓöÇΓöÇΓö¼ΓöÇEND imperative-statement-2ΓöÇΓöÿ ΓööΓöÇEND-RETURNΓöÇΓöÿ
  4907.           ΓööATΓöÿ
  4908.  
  4909.  
  4910. ΓòÉΓòÉΓòÉ <hidden> INTO identifier-1 ΓòÉΓòÉΓòÉ
  4911.  
  4912. The RETURN INTO statement is equivalent to the statements: 
  4913.  
  4914.      RETURN file-name-1
  4915.      MOVE record-name TO identifier-1
  4916.  
  4917. The moving of the current record from the record area to the area specified by 
  4918. identifier-1 takes place according to the rules for the MOVE statement without 
  4919. the CORRESPONDING phrase.  Any subscripting, indexing, or reference 
  4920. modification associated with identifier-1 is evaluated after the record has 
  4921. been returned and immediately before it is moved to identifier-1. (Click here 
  4922. for information about reference modification.) 
  4923.  
  4924. You can specify the INTO phrase in a RETURN statement if one or both of the 
  4925. following are true: 
  4926.  
  4927.  1. Only one record description is subordinate to the sort-merge file 
  4928.     description entry 
  4929.  
  4930.  2. All record-names associated with file-name-1 and the data item referenced 
  4931.     by identifier-1 describe a group item, a numeric-edited item, or an 
  4932.     elementary alphanumeric item. 
  4933.  
  4934. The record areas associated with file-name-1 and identifier-1 must not be the 
  4935. same storage area. 
  4936.  
  4937.  
  4938. ΓòÉΓòÉΓòÉ 1.69. REWRITE Statement ΓòÉΓòÉΓòÉ
  4939.  
  4940. Description 
  4941.   The REWRITE statement logically replaces an existing record in a 
  4942.   direct-access file.  When the REWRITE statement is executed, the associated 
  4943.   direct-access file must be open in I-O mode.  The REWRITE statement has two 
  4944.   formats: 
  4945.  
  4946.     Format 1 (REWRITE) 
  4947.  
  4948.     Format 2 (TRANSACTION Subfile) 
  4949.  
  4950.  
  4951. ΓòÉΓòÉΓòÉ <hidden> Format 1 (REWRITE) ΓòÉΓòÉΓòÉ
  4952.  
  4953. Description 
  4954.   When the Format 1 REWRITE statement is processed, the system logically 
  4955.   replaces a record retrieved by a READ statement.  The last input/output 
  4956.   statement for this file must have been a successfully processed READ 
  4957.   statement without the NO LOCK phrase. 
  4958.  
  4959.   The operation of the REWRITE statement varies depending on the file 
  4960.   organization and access mode: 
  4961.  
  4962.     For sequential files and sequential access mode, the record retrieved by 
  4963.      the last successfully processed READ statement is replaced. 
  4964.  
  4965.     For indexed files and sequential access mode, the record specified by the 
  4966.      value contained in the prime RECORD KEY is replaced.  When the REWRITE 
  4967.      statement is executed, this value must equal the value of the prime record 
  4968.      key data item in the last record read from this file. 
  4969.  
  4970.     For indexed files and random or dynamic access mode, the record specified 
  4971.      by the value contained in the prime RECORD KEY is replaced. 
  4972.  
  4973.     For relative files and sequential access mode, the record retrieved by the 
  4974.      last successfully processed READ statement is replaced. 
  4975.  
  4976.     For relative files and random or dynamic access mode, the record specified 
  4977.      by the value in the RELATIVE KEY data item is replaced. 
  4978.  
  4979.  
  4980. ΓöÇΓöÇREWRITE record-name-1ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4981.                             ΓööΓöÇFROM identifier-1ΓöÇΓöÿ
  4982.  
  4983. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4984.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  4985.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  4986.  
  4987. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4988.     ΓööΓöÇINVALIDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇimperative-statement-1ΓöÇΓöÿ
  4989.               ΓööΓöÇKEYΓöÇΓöÿ
  4990.  
  4991. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4992.     ΓööΓöÇNOT INVALIDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇimperative-statement-2ΓöÇΓöÿ
  4993.                   ΓööΓöÇKEYΓöÇΓöÿ
  4994.  
  4995. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  4996.     ΓööΓöÇEND-REWRITEΓöÇΓöÿ
  4997.  
  4998.  
  4999. ΓòÉΓòÉΓòÉ <hidden> Format 2 (TRANSACTION Subfile) ΓòÉΓòÉΓòÉ
  5000.  
  5001. Description 
  5002.   Use the Format 2 REWRITE statement to replace a subfile record that already 
  5003.   exists in the subfile. 
  5004.  
  5005.   A successful read operation on the record must be done prior to the rewrite 
  5006.   operation.  The record replaced in the subfile is that record accessed by the 
  5007.   previous read operation. 
  5008.  
  5009.   You cannot use Format 2 for communications devices. 
  5010.  
  5011. Format 2 (TRANSACTION Subfile)
  5012.  
  5013. ΓöÇΓöÇΓöÇREWRITE SUBFILE record-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5014.  
  5015. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5016.     ΓööΓöÇFROM identifier-1ΓöÇΓöÿ
  5017.  
  5018. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5019.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  5020.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5021.  
  5022. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5023.      ΓööΓöÇTERMINALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÿ
  5024.                 ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5025.  
  5026. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5027.      ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-4ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5028.        Γö£ΓöÇINDICATORSΓöÇΓöñ  Γö£ΓöÇISΓöÇΓöÇΓöñ
  5029.        ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇAREΓöÇΓöÿ
  5030.  
  5031. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5032.     ΓööΓöÇINVALIDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇimperative-statement-1ΓöÇΓöÿ
  5033.               ΓööΓöÇKEYΓöÇΓöÿ
  5034.  
  5035. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5036.     ΓööΓöÇNOT INVALIDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇimperative-statement-2ΓöÇΓöÿ
  5037.                   ΓööΓöÇKEYΓöÇΓöÿ
  5038.  
  5039. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5040.     ΓööΓöÇEND-REWRITEΓöÇΓöÿ
  5041.  
  5042.  
  5043. ΓòÉΓòÉΓòÉ 1.70. ROLLBACK Statement ΓòÉΓòÉΓòÉ
  5044.  
  5045. Description 
  5046.   The ROLLBACK statement provides a way to cancel one or more changes to 
  5047.   database records when the changes should not remain permanent. 
  5048.  
  5049.  
  5050.     ΓöÇΓöÇΓöÇROLLBACKΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5051.  
  5052.   When the ROLLBACK statement is executed, all changes made to files under 
  5053.   commitment control since the previous commitment boundary are removed from 
  5054.   the database.  (When a file is cleared while being opened for OUTPUT, 
  5055.   execution of a ROLLBACK statement does not restore cleared records to the 
  5056.   file.)  A commitment boundary is the previous occurrence of a ROLLBACK or 
  5057.   COMMIT statement.  If no COMMIT or ROLLBACK has been issued, the commitment 
  5058.   boundary is the first OPEN of a file under commitment control.  Removal of 
  5059.   changes takes place for all files under commitment control in the job, and 
  5060.   not just for files under commitment control in the COBOL program that issues 
  5061.   the ROLLBACK. 
  5062.  
  5063.   Once the ROLLBACK is successfully executed, all record locks held by the job 
  5064.   for files under commitment control are released and the records become 
  5065.   available to other jobs. 
  5066.  
  5067.   The ROLLBACK has no effect on files not under commitment control.  If a 
  5068.   ROLLBACK is executed and there are no files opened under commitment control, 
  5069.   the ROLLBACK is ignored. 
  5070.  
  5071.   A file under commitment control can be opened or closed without affecting the 
  5072.   status of changes made since the last commitment boundary.  A COMMIT must 
  5073.   still be issued to make changes permanent.  A ROLLBACK, when executed, leaves 
  5074.   files in the same open or closed state as before execution. 
  5075.  
  5076.   The ROLLBACK statement does not: 
  5077.  
  5078.     Modify the I-O-FEEDBACK area for any file 
  5079.     Set a file status value for any file. 
  5080.  
  5081.   For the ROLLBACK statement, the following considerations apply: 
  5082.  
  5083.     The ROLLBACK statement sets the file position indicator to the pointer's 
  5084.      position at the previous commitment boundary.  This is important if you 
  5085.      are doing for sequential processing. 
  5086.  
  5087.     If no COMMIT statement has been issued since the file was opened, the 
  5088.      ROLLBACK statement sets the file position indicator to the pointer's 
  5089.      position at the OPEN. 
  5090.  
  5091.     The file position indicator is undefined after a ROLLBACK if the file is 
  5092.      closed with uncommited changes. 
  5093.  
  5094.   At the end of every job, an implicit ROLLBACK of uncommitted records is 
  5095.   automatically done for all files under commitment control.  Any uncommitted 
  5096.   changes to the database are cancelled. 
  5097.  
  5098.  
  5099. ΓòÉΓòÉΓòÉ 1.71. SEARCH Statement ΓòÉΓòÉΓòÉ
  5100.  
  5101. Description 
  5102.   The SEARCH statement searches a table for an element that satisfies the 
  5103.   specified condition, and adjusts the associated index to indicate that 
  5104.   element. The SEARCH statement has two formats: 
  5105.  
  5106.     Format 1 (Serial Search) 
  5107.  
  5108.     Format 2 (Binary Search) 
  5109.  
  5110.  
  5111. ΓòÉΓòÉΓòÉ <hidden> Format 1 Serial Search ΓòÉΓòÉΓòÉ
  5112.  
  5113. Description 
  5114.   The Format 1 (Serial Search) statement runs a serial search beginning at the 
  5115.   current index setting. 
  5116.  
  5117. Format 1 (Serial Search)
  5118.  
  5119. ΓöÇΓöÇSEARCH identifier-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5120.                         ΓööΓöÇVARYINGΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  5121.                                   ΓööΓöÇindex-name-1ΓöÇΓöÿ
  5122.  
  5123. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5124.     ΓööΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇEND imperative-statement-1ΓöÇΓöÿ
  5125.         ΓööΓöÇATΓöÇΓöÿ
  5126.  
  5127.     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5128.                                              Γöé
  5129. ΓöÇΓö¼ΓöÇWHEN condition-1ΓöÇΓö¼ΓöÇimperative-statement-2ΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  5130.   Γöé                  ΓööΓöÇNEXT SENTENCEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ              Γöé
  5131.   Γöé                                                          Γöé
  5132.   Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ              Γöé
  5133.   Γöé                                          Γöé              Γöé
  5134.   ΓööΓöÇWHEN condition-1ΓöÇΓöÇΓöÇimperative-statement-2ΓöÇΓö┤Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  5135.                                                ΓööΓöÇEND-SEARCHΓöÇΓöÿ
  5136.  
  5137.  
  5138. ΓòÉΓòÉΓòÉ <hidden> Format 2 Binary Search ΓòÉΓòÉΓòÉ
  5139.  
  5140. Description 
  5141.   The Format 2 Binary Search statement executes a binary search.  The search 
  5142.   index does not need to be initialized by SET statements, because its setting 
  5143.   is varied during the search operation so that its value is at no time less 
  5144.   than the value of the first table element, nor ever greater than the value of 
  5145.   the last table element. The index used is always that associated with the 
  5146.   first index-name specified in the OCCURS clause. 
  5147.  
  5148. Format 2 (Binary Search)
  5149.  
  5150.  ΓöÇΓöÇΓöÇSEARCH ALL identifier-1ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  5151.                                 ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  5152.                                   ΓööΓöÇATΓöÇΓöÿ
  5153.  
  5154. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5155. 2ΓöÇΓöÇΓöÇEND imperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5156.  
  5157.  ΓöÇΓöÇΓöÇWHENΓöÇΓö¼ΓöÇdata-name-1ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇEQUALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ3
  5158.           Γöé             ΓööΓöÇISΓöÇΓöÿ Γöé       ΓööΓöÇTOΓöÇΓöÿ Γöé
  5159.           Γöé                    ΓööΓöÇ = ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5160.           ΓööΓöÇcondition-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ4
  5161.  
  5162. 3ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5163.      Γö£ΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5164.      ΓööΓöÇarithmetic-expression-1ΓöÇΓöñ
  5165. 4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5166.  
  5167.     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ5
  5168.     
  5169.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ6
  5170.     ΓööΓöÇANDΓöÇΓöÇΓö¼ΓöÇdata-name-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇEQUALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ7
  5171.            Γöé             ΓööΓöÇISΓöÇΓöÿ Γöé       ΓööΓöÇTOΓöÇΓöÿ Γöé
  5172.            Γöé                    ΓööΓöÇ = ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5173.            ΓööΓöÇcondition-name-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ8
  5174.  
  5175. 5ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5176.                                 Γöé
  5177. 6ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5178. 7ΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöñ
  5179.      Γö£ΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñΓöé
  5180.      ΓööΓöÇarithmetic-expression-2ΓöÇΓöÿΓöé
  5181. 8ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5182.  
  5183.  ΓöÇΓöÇΓöÇΓö¼ΓöÇimperative-statement-2ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  5184.      Γöé                          ΓööΓöÇEND-SEARCHΓöÇΓöÿ  Γöé
  5185.      ΓööΓöÇNEXT SENTENCEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5186.  
  5187.  
  5188. ΓòÉΓòÉΓòÉ 1.72. SET Statement ΓòÉΓòÉΓòÉ
  5189.  
  5190. Description 
  5191.   The SET statement establishes reference points for table handling operations 
  5192.   by doing one of the following: 
  5193.  
  5194.     1. Placing values associated with table elements into indexes associated 
  5195.        with index-names 
  5196.     2. Incrementing or decrementing an occurrence number 
  5197.     3. Setting the status of an external switch to ON or OFF 
  5198.     4. Moving data to condition names to make conditions true 
  5199.     5. Setting addresses of pointer data items. 
  5200.  
  5201. Index-names are related to a given table through the INDEXED BY phrase of the 
  5202. OCCURS clause; they are not further defined in the program. 
  5203.  
  5204. When the sending and receiving fields in a SET statement share part of their 
  5205. storage (that is, the operands overlap), the result of the execution of such a 
  5206. SET statement is undefined. 
  5207.  
  5208. The SET statement has five Formats: 
  5209.  
  5210.  Format 1 (TO Phrase) 
  5211.  
  5212.  Format 2 (UP BY/DOWN BY Phrase) 
  5213.  
  5214.  Format 3 (ON/OFF Phrase) 
  5215.  
  5216.  Format 4 (TO TRUE Phrase) 
  5217.  
  5218.  Format 5 (Pointer Data Item Phrase) 
  5219.  
  5220.  
  5221. ΓòÉΓòÉΓòÉ <hidden> Format 1 (TO Phrase) ΓòÉΓòÉΓòÉ
  5222.  
  5223. Description 
  5224.   When this form of the SET statement is executed, the current value of the 
  5225.   receiving field is replaced by the value of the sending field (with 
  5226.   conversion). 
  5227.  
  5228. Format 1 (TO Phrase)
  5229.  
  5230.          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5231.                        Γöé
  5232. ΓöÇΓöÇΓöÇSETΓöÇΓö¼ΓöÇindex-name-1ΓöÇΓö╝ΓöÇTO ΓöÇΓöÇΓöÇΓö¼ΓöÇindex-name-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5233.          ΓööΓöÇidentifier-1ΓöÇΓöÿ       Γö£ΓöÇidentifier-2ΓöÇΓöñ
  5234.                                 ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5235.  
  5236.  
  5237. ΓòÉΓòÉΓòÉ <hidden> Format 2 (UP BY/DOWN BY Phrase) ΓòÉΓòÉΓòÉ
  5238.  
  5239. Description 
  5240.   When this form of the SET statement is executed, the value of the receiving 
  5241.   field is increased (UP BY) or decreased (DOWN BY) by a value corresponding to 
  5242.   the value in the sending field. 
  5243.  
  5244. Format 2 (UP BY/DOWN BY Phrase)
  5245.  
  5246.          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5247.                      Γöé
  5248. ΓöÇΓöÇΓöÇSET index-name-3ΓöÇΓö┤Γö¼ΓöÇUP BYΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  5249.                        ΓööΓöÇDOWN BYΓöÇΓöÿ  ΓööΓöÇinteger-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5250.  
  5251.  
  5252. ΓòÉΓòÉΓòÉ <hidden> Format 3 (ON/OFF Phrase) ΓòÉΓòÉΓòÉ
  5253.  
  5254. Description 
  5255.   When this form of the SET statement is executed, the status of each external 
  5256.   switch associated with the specified mnemonic-name is switched ON or OFF. 
  5257.  
  5258. Format 3 (ON/OFF Phrase)
  5259.  
  5260.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5261.              Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ              Γöé
  5262.                             Γöé              Γöé
  5263. ΓöÇΓöÇΓöÇSETΓöÇΓöÇΓöÇΓöÇΓöÇmnemonic-name-1ΓöÇΓö┤ΓöÇTOΓöÇΓöÇΓöÇΓö¼ΓöÇONΓöÇΓöÇΓö¼ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5264.                                     ΓööΓöÇOFFΓöÇΓöÿ
  5265.  
  5266.  
  5267. ΓòÉΓòÉΓòÉ <hidden> Format 4 (TO TRUE Phrase) ΓòÉΓòÉΓòÉ
  5268.  
  5269. Description 
  5270.   When this form of the SET statement is executed, the value associated with a 
  5271.   condition name is placed in its conditional variable according to the rules 
  5272.   of the VALUE phrase. 
  5273.  
  5274. Format 4 (TO TRUE Phrase)
  5275.  
  5276.          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5277.                          Γöé
  5278. ΓöÇΓöÇΓöÇSET condition-name-1ΓöÇΓö┤ΓöÇTO TRUEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5279.  
  5280.  
  5281. ΓòÉΓòÉΓòÉ <hidden> Format 5 (Pointer Data Item Phrase) ΓòÉΓòÉΓòÉ
  5282.  
  5283. Description 
  5284.   When this form of the SET statement is executed, the current value of the 
  5285.   receiving field is replaced by the address value contained in the sending 
  5286.   field. 
  5287.  
  5288. Format 5 (Pointer Data Item Phrase)
  5289.  
  5290.           ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5291.           Γöé                           Γöé
  5292.                                      Γöé
  5293. ΓöÇΓöÇΓöÇSETΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-4ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5294.           ΓööΓöÇΓöÇADDRESS OF identifier-5ΓöÇΓöÇΓöÿ
  5295.  
  5296.  
  5297. ΓöÇΓöÇΓöÇTOΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-6ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5298.         Γö£ΓöÇΓöÇADDRESS OF identifier-7ΓöÇΓöÇΓöñ
  5299.         Γö£ΓöÇΓöÇNULLΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5300.         ΓööΓöÇΓöÇNULLSΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5301.  
  5302.  
  5303. ΓòÉΓòÉΓòÉ 1.73. SORT Statement ΓòÉΓòÉΓòÉ
  5304.  
  5305. Description 
  5306.   The SORT statement accepts records from one or more files, sorts them 
  5307.   according to the specified keys, and makes the sorted records available 
  5308.   either through an OUTPUT PROCEDURE or in an output file. The SORT statement 
  5309.   may appear anywhere in the Procedure Division except in the declarative 
  5310.   portion. 
  5311.  
  5312.  
  5313.                          ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  5314.                          Γöé
  5315.                          
  5316.   ΓöÇΓöÇΓöÇSORT file-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇASCENDINGΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  5317.                          ΓööΓöÇONΓöÇΓöÿ  ΓööΓöÇDESCENDINGΓöÇΓöÿ ΓööΓöÇKEYΓöÇΓöÿ
  5318.  
  5319.  1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5320.         ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ      Γöé
  5321.                     Γöé      Γöé
  5322.  2ΓöÇΓöÇΓöÇΓöÇdata-name-1ΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5323.  
  5324.  
  5325.   ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5326.        ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇDUPLICATESΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  5327.          ΓööΓöÇWITHΓöÇΓöÿ                ΓööΓöÇIN ORDERΓöÇΓöÿ
  5328.  
  5329.   ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5330.        ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSEQUENCEΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇalphabet-name-1ΓöÇΓöÿ
  5331.          ΓööΓöÇCOLLATINGΓöÇΓöÿ          ΓööISΓöÿ
  5332.  
  5333.                ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5334.                           Γöé
  5335.   ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇUSING file-name-2ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  5336.        ΓööΓöÇINPUT PROCEDUREΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  5337.                           ΓööΓöÇISΓöÇΓöÿ
  5338.  
  5339. 3 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5340. 4 ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  5341.        ΓööΓöÇΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedure-name-2ΓöÇΓöÿ
  5342.          ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ
  5343.  
  5344.                 ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5345.                            Γöé
  5346.   ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇGIVING file-name-3ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 5
  5347.        ΓööΓöÇOUTPUT PROCEDUREΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇprocedure-name-3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 6
  5348.                           ΓööΓöÇISΓöÇΓöÿ
  5349. 5 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5350. 6 ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼Γöÿ
  5351.        ΓööΓöÇΓö¼ΓöÇTHROUGHΓöÇΓö¼ΓöÇprocedure-name-4ΓöÇΓöÿ
  5352.          ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ
  5353.  
  5354.  
  5355. ΓòÉΓòÉΓòÉ <hidden> Data-name-1 ΓòÉΓòÉΓòÉ
  5356.  
  5357. Data-name-1 specifies a KEY data item on which the sort will be based. Each 
  5358. such data-name must identify a data item in a record associated with 
  5359. file-name-1. The data-names following the word KEY are listed from left to 
  5360. right in the SORT statement in order of decreasing significance without regard 
  5361. to how they are divided into KEY phrases.  The leftmost data-name is the major 
  5362. key, the next data-name is the next most significant key, and so forth.  The 
  5363. following rules apply: 
  5364.  
  5365.  1. A specific KEY data item must be physically located in the same position 
  5366.     and have the same data format in each input file.  However, it does not 
  5367.     need to have the same data-name. 
  5368.  
  5369.  2. If file-name-1 has more than one record description, then the KEY 
  5370.     data-items need to be described in only one of the record descriptions. 
  5371.  
  5372.  3. KEY data items must be fixed-length items. 
  5373.  
  5374.  4. KEY data items must not contain an OCCURS clause or be subordinate to an 
  5375.     item that contains an OCCURS clause. 
  5376.  
  5377.  5. KEY data items can be qualified or reference modified; they cannot be 
  5378.     subscripted or indexed. (Click here for information about reference 
  5379.     modification.) 
  5380.  
  5381.  6. The total length of the KEY data item must not exceed 256 bytes. 
  5382.  
  5383.  
  5384. ΓòÉΓòÉΓòÉ 1.74. START Statement ΓòÉΓòÉΓòÉ
  5385.  
  5386. Description 
  5387.   The START statement positions an indexed or relative file for subsequent 
  5388.   sequential record retrieval. When the START statement is executed, the 
  5389.   associated indexed or relative file must be open in either INPUT or I-O mode. 
  5390.  
  5391.  
  5392.   ΓöÇΓöÇΓöÇSTART file-nameΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 1
  5393.                        ΓööΓöÇKEYΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 2
  5394.                              ΓööΓöÇISΓöÇΓöÿ
  5395.  
  5396. 1 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 3
  5397. 2 ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEQUALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ 4
  5398.        Γöé       ΓööΓöÇTOΓöÇΓöÿ                     Γöé
  5399.        Γö£ΓöÇ = ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5400.        Γö£ΓöÇGREATERΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5401.        Γöé         ΓööΓöÇTHANΓöÇΓöÿ                 Γöé
  5402.        Γö£ΓöÇ > ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5403.        Γö£ΓöÇNOT LESSΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5404.        Γöé          ΓööΓöÇTHANΓöÇΓöÿ                Γöé
  5405.        Γö£ΓöÇNOT < ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5406.        Γö£ΓöÇGREATERΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇOR EQUALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöñ
  5407.        Γöé         ΓööΓöÇTHANΓöÇΓöÿ          ΓööΓöÇTOΓöÇΓöÿ Γöé
  5408.        ΓööΓöÇ >= ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5409.  
  5410. 3 ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5411. 4 ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇEXTERNALLY-DESCRIBED-KEYΓöÇΓöÇΓö¼ΓöÇΓöÿ
  5412.        Γöé                           Γöé
  5413.        Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ             Γöé
  5414.        Γöé            Γöé             Γöé
  5415.        ΓööΓöÇdata-name-1ΓöÇΓö┤ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5416.  
  5417.   ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇNO LOCKΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5418.        ΓööΓöÇWITHΓöÇΓöÇΓöÿ
  5419.  
  5420.   ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5421.        ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö¼ΓöÇΓöÿ
  5422.                 ΓööΓöÇISΓöÇΓöÇΓöÿ  ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5423.  
  5424.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5425.     ΓööΓöÇINVALIDΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇimperative-statement-1ΓöÇΓöÇΓöÿ
  5426.               ΓööΓöÇKEYΓöÇΓöÿ
  5427.  
  5428.   ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  5429.     ΓööNOT INVALIDΓö¼ΓöÇΓöÇΓöÇΓö¼imperative-statement-2Γöÿ ΓööEND-STARTΓöÿ
  5430.                 ΓööKEYΓöÿ
  5431.  
  5432.  
  5433. ΓòÉΓòÉΓòÉ 1.75. STOP Statement ΓòÉΓòÉΓòÉ
  5434.  
  5435. Description 
  5436.   The STOP statement halts the running of the object program either permanently 
  5437.   or temporarily. 
  5438.  
  5439.  
  5440. ΓöÇΓöÇΓöÇSTOPΓöÇΓö¼ΓöÇΓöÇRUNΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5441.           ΓööΓöÇΓöÇliteralΓöÇΓöÇΓöÿ
  5442.  
  5443.  
  5444. ΓòÉΓòÉΓòÉ 1.76. STRING Statement ΓòÉΓòÉΓòÉ
  5445.  
  5446. Description 
  5447.   The STRING statement strings together the partial or complete contents of two 
  5448.   or more data items or literals into one single data item. One STRING 
  5449.   statement can replace a series of MOVE statements. When the STRING statement 
  5450.   is executed, data is transferred from the sending field to the receiving 
  5451.   field. Any subscripting and reference modification is performed only once, at 
  5452.   the beginning of the execution of the STRING statement. (Click here for 
  5453.   information about reference modification.) 
  5454.  
  5455.   After the STRING statement has completed, only that part of the receiving 
  5456.   field into which data was transferred is changed.  The rest of the receiving 
  5457.   field contains the data that was present before executing the STRING 
  5458.   statement. 
  5459.  
  5460.  
  5461.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  5462.              Γö£ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5463.                            Γöé
  5464.  ΓöÇΓöÇSTRINGΓöÇΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö╝ΓöÇDELIMITEDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  5465.              ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ            ΓööΓöÇBYΓöÇΓöÿ
  5466.  
  5467. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5468.                      Γöé
  5469.                      Γöé
  5470. 2ΓöÇΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓö┤ΓöÇΓöÇINTO identifier-3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5471.     Γö£ΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöñ
  5472.     ΓööΓöÇSIZEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5473.  
  5474.  
  5475.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5476.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇPOINTER identifier-4ΓöÇΓöÿ
  5477.       ΓööΓöÇWITHΓöÇΓöÿ
  5478.  
  5479.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5480.     ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇOVERFLOW imperative-statement-1ΓöÇΓöÿ
  5481.        ΓööΓöÇONΓöÇΓöÿ
  5482.  
  5483.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5484.     ΓööΓöÇNOTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇOVERFLOW imperative-statement-2ΓöÇΓöÿ
  5485.            ΓööΓöÇONΓöÇΓöÿ
  5486.  
  5487.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5488.     ΓööΓöÇEND-STRINGΓöÇΓöÿ
  5489.  
  5490.  
  5491. ΓòÉΓòÉΓòÉ 1.77. SUBTRACT Statement ΓòÉΓòÉΓòÉ
  5492.  
  5493. Description 
  5494.   The SUBTRACT statement subtracts one numeric item, or the sum of two or more 
  5495.   numeric items from one or more numeric items, and stores the result.  The 
  5496.   composite of all operands can have a maximum length of 30 digits.  The 
  5497.   SUBTRACT statement has three formats: 
  5498.  
  5499.     Format 1 (SUBTRACT) 
  5500.  
  5501.     Format 2 (SUBTRACT with GIVING) 
  5502.  
  5503.     Format 3 (SUBTRACT with CORRESPONDING) 
  5504.  
  5505.  
  5506. ΓòÉΓòÉΓòÉ <hidden> Format 1 (SUBTRACT) ΓòÉΓòÉΓòÉ
  5507.  
  5508. Description 
  5509.   In Format 1 (SUBTRACT), all identifiers or literals preceding the keyword 
  5510.   FROM are added together. This sum is then subtracted from and stored 
  5511.   immediately in identifier-2.  This initial sum is also subtracted from each 
  5512.   successive occurrence of identifier-2, in the left-to-right order in which 
  5513.   identifier-2 is specified. 
  5514.  
  5515. Format 1 (SUBTRACT)
  5516.  
  5517.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ     ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5518.                            Γöé                        Γöé
  5519. ΓöÇΓöÇSUBTRACTΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö╝FROMΓöÇidentifier-2Γö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇ
  5520.              ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ                 ΓööROUNDEDΓöÿ
  5521.  
  5522. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5523.    ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÿ
  5524.      ΓööΓöÇONΓöÇΓöÿ
  5525.  
  5526. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  5527.    ΓööΓöÇNOTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÿ
  5528.           ΓööΓöÇONΓöÇΓöÿ
  5529.  
  5530. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5531.    ΓööΓöÇEND-SUBTRACTΓöÇΓöÿ
  5532.  
  5533.  
  5534. ΓòÉΓòÉΓòÉ <hidden> Format 2 (SUBTRACT with GIVING) ΓòÉΓòÉΓòÉ
  5535.  
  5536. Description 
  5537.   In Format 2 (SUBTRACT with GIVING), all identifiers or literals preceding the 
  5538.   keyword FROM are added together and this sum is subtracted from identifier-2 
  5539.   or literal-2.  The result of the subtraction is stored as the new value of 
  5540.   each data item referenced by identifier-3. 
  5541.  
  5542. Format 2 (SUBTRACT with GIVING)
  5543.  
  5544.              ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5545.                            Γöé
  5546. ΓöÇΓöÇSUBTRACTΓöÇΓö¼ΓöÇidentifier-1ΓöÇΓö╝FROMΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5547.              ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ     ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5548.  
  5549.             ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5550.                                   Γöé
  5551. ΓöÇΓöÇGIVINGΓöÇΓöÇΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5552.                          ΓööΓöÇROUNDEDΓöÇΓöÿ
  5553.  
  5554. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5555.    ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÿ
  5556.      ΓööΓöÇONΓöÇΓöÿ
  5557.  
  5558. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  5559.    ΓööΓöÇNOTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÿ
  5560.           ΓööΓöÇONΓöÇΓöÿ
  5561.  
  5562. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5563.    ΓööΓöÇEND-SUBTRACTΓöÇΓöÿ
  5564.  
  5565.  
  5566. ΓòÉΓòÉΓòÉ <hidden> Format 3 (SUBTRACT with CORRESPONDING) ΓòÉΓòÉΓòÉ
  5567.  
  5568. Description 
  5569.   In Format 3 (SUBTRACT with CORRESPONDING), elementary data items within 
  5570.   identifier-1 are subtracted from the corresponding elementary data items 
  5571.   within identifier-2, where the results are stored. 
  5572.  
  5573. Format 3 (SUBTRACT with CORRESPONDING)
  5574.  
  5575.   ΓöÇΓöÇSUBTRACTΓöÇΓö¼ΓöÇCORRESPONDINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5576.                ΓööΓöÇCORRΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5577.  
  5578.   ΓöÇΓöÇidentifier-1 FROM identifier-2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5579.                                      ΓööΓöÇROUNDEDΓöÇΓöÿ
  5580.  
  5581.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5582.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSIZE ERROR imperative-statement-1ΓöÇΓöÿ
  5583.        ΓööΓöÇONΓöÇΓöÿ
  5584.  
  5585.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇ
  5586.      ΓööΓöÇNOTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇSIZE ERROR imperative-statement-2ΓöÇΓöÿ
  5587.             ΓööΓöÇONΓöÇΓöÿ
  5588.  
  5589.   ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5590.      ΓööΓöÇEND-SUBTRACTΓöÇΓöÿ
  5591.  
  5592.  
  5593. ΓòÉΓòÉΓòÉ 1.78. UNSTRING Statement ΓòÉΓòÉΓòÉ
  5594.  
  5595. Description 
  5596.   The UNSTRING statement causes contiguous data in a sending field to be 
  5597.   separated and placed into multiple receiving fields.  You can use one 
  5598.   UNSTRING statement instead of multiple MOVE statements. All subscripting and 
  5599.   reference modification is performed only once, at the beginning of the 
  5600.   execution of the UNSTRING statement. (Click here for information about 
  5601.   reference modification.) 
  5602.  
  5603.  ΓöÇΓöÇUNSTRING identifier-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5604.  
  5605.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  5606.     ΓööΓöÇDELIMITEDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  5607.                  ΓööΓöÇBYΓöÇΓöÿ  ΓööΓöÇALLΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5608.  
  5609. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5610. 2ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ
  5611.     Γöé                            Γöé
  5612.     Γöé ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉΓöé
  5613.     Γöé                          ΓöéΓöé
  5614.     ΓööΓöÇORΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓöÇΓö╝Γöÿ
  5615.         ΓööΓöÇALLΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5616.  
  5617.            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ3
  5618.            
  5619.  ΓöÇΓöÇINTOΓöÇΓöÇΓöÇidentifier-4ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼4
  5620.                         ΓööΓöÇDELIMITERΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-5ΓöÇΓöÿ
  5621.                                      ΓööINΓöÿ
  5622.  
  5623. 3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  5624.                                 Γöé
  5625. 4ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5626.     ΓööΓöÇCOUNTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-6ΓöÇΓöÿ
  5627.             ΓööΓöÇINΓöÇΓöÿ
  5628.  
  5629.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5630.     ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇPOINTER identifier-7ΓöÇΓöÿ
  5631.       ΓööΓöÇWITHΓöÇΓöÿ
  5632.  
  5633.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5634.     ΓööΓöÇTALLYINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇidentifier-8ΓöÇΓöÿ
  5635.                ΓööΓöÇINΓöÇΓöÿ
  5636.  
  5637.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5638.     ΓööΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇOVERFLOW imperative-statement-1ΓöÇΓöÿ
  5639.        ΓööΓöÇONΓöÇΓöÿ
  5640.  
  5641.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5642.     ΓööΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇOVERFLOW imperative-statement-2ΓöÇΓöÿ
  5643.           ΓööΓöÇONΓöÇΓöÿ
  5644.  
  5645.  ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5646.     ΓööΓöÇEND-UNSTRINGΓöÇΓöÿ
  5647.  
  5648.  
  5649. ΓòÉΓòÉΓòÉ 1.79. WRITE Statement ΓòÉΓòÉΓòÉ
  5650.  
  5651. Description 
  5652.   The WRITE statement releases a logical record for an output or input/output 
  5653.   file. When the WRITE statement is executed, the associated sequential file 
  5654.   must be open in OUTPUT or EXTEND mode;  the associated indexed or relative 
  5655.   file must be open in OUTPUT, I-O, or EXTEND mode. The WRITE statement has 
  5656.   five formats: 
  5657.  
  5658.     Format 1 (Sequential Files) 
  5659.  
  5660.     Format 2 (Indexed and Relative Files) 
  5661.  
  5662.     Format 3 (FORMATFILE) 
  5663.  
  5664.     Format 4 (TRANSACTION Nonsubfile) 
  5665.  
  5666.     Format 5 (TRANSACTION Subfile) 
  5667.  
  5668.  
  5669. ΓòÉΓòÉΓòÉ <hidden> Format 1 (Sequential Files) ΓòÉΓòÉΓòÉ
  5670.  
  5671. Description 
  5672.   Sequential files are sequentially organized.  ADVANCING and END-OF-PAGE 
  5673.   control the vertical positioning of each line on a printed page.  However, do 
  5674.   not specify both ADVANCING and END-OF-PAGE in a single WRITE statement. 
  5675.  
  5676.   If the printed page is held on an intermediate device (a disk, for example), 
  5677.   the format, when edited or browsed, may appear different than the expected 
  5678.   output. 
  5679.  
  5680. Format 1 (Sequential Files)
  5681.  
  5682. ΓöÇΓöÇΓöÇWRITE record-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5683.                           ΓööΓöÇFROM identifier-1ΓöÇΓöÿ
  5684.  
  5685. ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  5686.   ΓööΓö¼ΓöÇBEFOREΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼Γöÿ
  5687.    ΓööΓöÇAFTERΓöÇΓöÇΓöÿ ΓööΓöÇADVANCINGΓöÇΓöÿ Γöé ΓööΓöÇinteger-1ΓöÇΓöÇΓöÇΓöÇΓöÿ Γö£ΓöÇLINEΓöÇΓöÇΓöñ Γöé
  5688.                             Γöé                  ΓööΓöÇLINESΓöÇΓöÿ Γöé
  5689.                             Γö£ΓöÇmnemonic-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5690.                             ΓööΓöÇPAGEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5691.  
  5692. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  5693.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇEND-OF-PAGEΓöÇΓö¼ΓöÇimperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5694.        ΓööΓöÇATΓöÇΓöÇΓöÿ ΓööΓöÇΓöÇΓöÇΓöÇΓöÇEOPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5695.  
  5696. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  5697.      ΓööΓöÇΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇEND-OF-PAGEΓöÇΓö¼ΓöÇimperative-statement-2ΓöÇΓöÇΓöÿ
  5698.             ΓööΓöÇATΓöÇΓöÿΓööΓöÇΓöÇΓöÇΓöÇEOPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5699.  
  5700. ΓöÇΓöÇΓöÇΓöÇEND-WRITEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5701.  
  5702.  
  5703. ΓòÉΓòÉΓòÉ <hidden> Format 2 (Indexed and Relative Files) ΓòÉΓòÉΓòÉ
  5704.  
  5705. Description 
  5706.   The WRITE statement releases a logical record for an output or input/output 
  5707.   file. When the WRITE statement is executed, the associated indexed and 
  5708.   relative files must be open in OUTPUT, I-O, or EXTEND mode. 
  5709.  
  5710. Format 2 (Indexed and Relative Files)
  5711.  
  5712. ΓöÇΓöÇΓöÇWRITE record-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5713.                           ΓööFROM identifier-1Γöÿ
  5714.  
  5715. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5716.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  5717.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5718.  
  5719. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5720.      ΓööΓöÇINVALIDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇimperative-statement-1ΓöÇΓöÿ
  5721.                 ΓööΓöÇKEYΓöÇΓöÿ
  5722.  
  5723. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼
  5724.      ΓööNOT INVALIDΓö¼ΓöÇΓöÇΓöÇΓö¼imperative-statement-2Γöÿ ΓööEND-WRITEΓöÿ
  5725.                  ΓööKEYΓöÿ
  5726.  
  5727.  
  5728. ΓòÉΓòÉΓòÉ <hidden> INVALID KEY Phrase ΓòÉΓòÉΓòÉ
  5729.  
  5730. The INVALID KEY phrase must be specified for files for which there is not an 
  5731. appropriate EXCEPTION/ERROR procedure. 
  5732.  
  5733. When an attempt is made to write beyond the externally defined boundaries of 
  5734. the file, WRITE statement execution is unsuccessful and an EXCEPTION/ERROR 
  5735. condition exists. 
  5736.  
  5737. For indexed files, an invalid key condition is caused by any of the following: 
  5738.  
  5739.  An attempt is made to write beyond the externally defined boundaries of the 
  5740.   file. 
  5741.  
  5742.  The access mode is sequential and the file is opened OUTPUT, and the value of 
  5743.   the prime record key is not greater than that of the previous record. 
  5744.  
  5745.  The file is opened OUTPUT or I-O and the value of the prime record key equals 
  5746.   that of an already existing record. 
  5747.  
  5748.  The value of the key field in the record area equals that of an already 
  5749.   existing record and DUPLICATES are not allowed. 
  5750.  
  5751.  The value of the key field in the record area is not greater than that for 
  5752.   the previous record.  For a file that allows duplicate keys, the INVALID KEY 
  5753.   condition exists only if the value of the record key is less than that for 
  5754.   the previous record. 
  5755.  
  5756. For relative files, an invalid key condition is caused by any of the following: 
  5757.  
  5758.  An attempt is made to write beyond the externally defined boundaries of the 
  5759.   file. 
  5760.  
  5761.  The access mode is random or dynamic and the RELATIVE KEY data item specifies 
  5762.   a record that already contains data. 
  5763.  
  5764. When the invalid key condition is recognized, WRITE statement execution is 
  5765. unsuccessful, and the contents of the record are unaffected.  Program execution 
  5766. proceeds according to the rules described under invalid key condition. 
  5767.  
  5768.  
  5769. ΓòÉΓòÉΓòÉ <hidden> Format 3 (FORMATFILE) ΓòÉΓòÉΓòÉ
  5770.  
  5771. Description 
  5772.   The WRITE statement releases a logical record for an output or input/output 
  5773.   file. When the WRITE statement is executed, the associated file must be open 
  5774.   in OUTPUT, I-O, or EXTEND mode. 
  5775.  
  5776. Format 3 (FORMATFILE)
  5777.  
  5778. ΓöÇΓöÇΓöÇWRITE record-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5779.                           ΓööFROM identifier-1Γöÿ
  5780.  
  5781. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5782.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  5783.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5784.  
  5785. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5786.      ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-3ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5787.        Γö£ΓöÇINDICATORSΓöÇΓöñ  Γö£ΓöÇISΓöÇΓöÇΓöñ
  5788.        ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇAREΓöÇΓöÿ
  5789.  
  5790. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  5791.      ΓööΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇEND-OF-PAGEΓöÇΓö¼ΓöÇimperative-statement-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5792.        ΓööΓöÇATΓöÇΓöÇΓöÿ ΓööΓöÇΓöÇΓöÇΓöÇΓöÇEOPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5793.  
  5794. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇ
  5795.      ΓööΓöÇΓöÇNOTΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼Γö¼ΓöÇEND-OF-PAGEΓöÇΓö¼ΓöÇimperative-statement-2ΓöÇΓöÇΓöÿ
  5796.             ΓööΓöÇATΓöÇΓöÿΓööΓöÇΓöÇΓöÇΓöÇEOPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5797.  
  5798. ΓöÇΓöÇΓöÇΓöÇEND-WRITEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5799.  
  5800.  
  5801. ΓòÉΓòÉΓòÉ <hidden> Format 4 (TRANSACTION Nonsubfile) ΓòÉΓòÉΓòÉ
  5802.  
  5803. Description 
  5804.   The WRITE statement releases a logical record to the file. 
  5805.  
  5806. Format 4 (TRANSACTION Nonsubfile)
  5807.  
  5808. ΓöÇΓöÇΓöÇWRITE record-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5809.                           ΓööFROM identifier-1Γöÿ
  5810.  
  5811. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5812.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  5813.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5814.  
  5815. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5816.      ΓööΓöÇTERMINALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÿ
  5817.                 ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5818.  
  5819. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5820.      ΓööΓöÇSTARTINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-4ΓöÇΓö¼ΓöÇΓöÿ
  5821.                 ΓööΓöÇATΓöÇΓöÿ ΓööΓöÇLINEΓöÇΓöÿ ΓööΓöÇliteral-3ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5822.  
  5823. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ1
  5824.      ΓööΓöÇΓö¼ΓöÇBEFOREΓöÇΓö¼ΓöÇROLLINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-5ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ2
  5825.        ΓööΓöÇAFTERΓöÇΓöÇΓöÿ         Γö£ΓöÇLINESΓöÇΓöñ  ΓööΓöÇliteral-4ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5826.                           ΓööΓöÇLINEΓöÇΓöÇΓöÿ
  5827.  
  5828. 1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ3
  5829. 2ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-6ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ4
  5830.      Γö£ΓöÇTHROUGHΓöÇΓöñ  ΓööΓöÇliteral-5ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5831.      ΓööΓöÇTHRUΓöÇΓöÇΓöÇΓöÇΓöÿ
  5832.  
  5833. 3ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5834. 4ΓöÇΓöÇΓöÇΓö¼ΓöÇUPΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇidentifier-7ΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÿ
  5835.      ΓööΓöÇDOWNΓöÇΓöÿ  ΓööΓöÇliteral-6ΓöÇΓöÇΓöÇΓöÇΓöÿ  Γö£ΓöÇLINESΓöÇΓöñ
  5836.                                  ΓööΓöÇLINEΓöÇΓöÇΓöÿ
  5837.  
  5838. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5839.      ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-8ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5840.        Γö£ΓöÇINDICATORSΓöÇΓöñ  Γö£ΓöÇISΓöÇΓöÇΓöñ
  5841.        ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇAREΓöÇΓöÿ
  5842.  
  5843. ΓöÇΓöÇΓöÇΓöÇEND-WRITEΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5844.  
  5845.  
  5846. ΓòÉΓòÉΓòÉ <hidden> STARTING Phrase ΓòÉΓòÉΓòÉ
  5847.  
  5848. The STARTING phrase specifies the starting line number for the record formats 
  5849. that use the variable starting line keyword.  This phrase is only valid for 
  5850. display devices. 
  5851.  
  5852. The actual line number on which a field begins can be determined by the 
  5853. following equation: 
  5854.  
  5855.      Actual-line = Start-line + DDS Start-line - 1
  5856.  
  5857. Where: 
  5858.  
  5859. Actual-line is the actual line number 
  5860. Start-line is the starting line number specified in the program 
  5861. DDS Start-line is the line number specified in positions 39 through 41 of the 
  5862. Data Description Specifications form. 
  5863.  
  5864. The write operation is successful if: 
  5865.  
  5866.  The result of the equation is positive and less than or equal to the number 
  5867.   of lines on the workstation screen. 
  5868.  
  5869.  The value specified for the STARTING phrase is 0.  In this case, a value of 1 
  5870.   is assumed. 
  5871.  
  5872.  
  5873. ΓòÉΓòÉΓòÉ <hidden> ROLLING Phrase ΓòÉΓòÉΓòÉ
  5874.  
  5875. The ROLLING phrase allows you to move lines displayed on the workstation 
  5876. screen.  All or some of the lines on the screen can be rolled up or down.  The 
  5877. lines vacated by the rolled lines are cleared, and can have another screen 
  5878. format written into them.  This phrase is only valid for display devices. 
  5879.  
  5880. You specify ROLLING in the WRITE statement that is writing a new format to the 
  5881. workstation screen.  You must specify whether the write is before or after the 
  5882. roll, the range of lines you want to roll, how many lines you want to roll 
  5883. these lines, and whether the roll operation is up or down. 
  5884.  
  5885. After lines are rolled, the field on these lines retain their DDS display 
  5886. attributes, for example, underlining, but lose their DDS usage attributes, for 
  5887. example, input capability.  Fields on lines that are written and then rolled 
  5888. (BEFORE ROLLING phrase) also lose their usage attributes. 
  5889.  
  5890. If any part of a format is rolled, the entire format loses its usage 
  5891. attributes.  If more than one format exists, only the rolled formats lose their 
  5892. usage attributes. 
  5893.  
  5894.  
  5895. ΓòÉΓòÉΓòÉ <hidden> Format 5 (TRANSACTION Subfile) ΓòÉΓòÉΓòÉ
  5896.  
  5897. Description 
  5898.   The WRITE statement releases a logical record to the file. 
  5899.  
  5900. Format 5 (TRANSACTION Subfile)
  5901.  
  5902. ΓöÇΓöÇΓöÇWRITE SUBFILE record-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5903.                                   ΓööFROM identifier-1Γöÿ
  5904.  
  5905. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5906.      ΓööΓöÇFORMATΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-2ΓöÇΓö¼ΓöÇΓöÿ
  5907.               ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5908.  
  5909. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5910.      ΓööΓöÇTERMINALΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇidentifier-3ΓöÇΓö¼ΓöÇΓöÿ
  5911.                 ΓööΓöÇISΓöÇΓöÿ ΓööΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5912.  
  5913. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5914.      ΓööΓöÇΓö¼ΓöÇINDICATORΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-4ΓöÇΓöÇΓöÇΓöÇΓöÿ
  5915.        Γö£ΓöÇINDICATORSΓöÇΓöñ  Γö£ΓöÇISΓöÇΓöÇΓöñ
  5916.        ΓööΓöÇINDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ  ΓööΓöÇAREΓöÇΓöÿ
  5917.  
  5918. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5919.      ΓööΓöÇINVALIDΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇimperative-statement-1ΓöÇΓöÿ
  5920.                 ΓööΓöÇKEYΓöÇΓöÿ
  5921.  
  5922. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ
  5923.      ΓööNOT INVALIDΓö¼ΓöÇΓöÇΓöÇΓö¼imperative-statement-2Γöÿ ΓööEND-WRITEΓöÿ
  5924.                  ΓööKEYΓöÿ
  5925.  
  5926.  
  5927. ΓòÉΓòÉΓòÉ 1.80. Compiler-Directing Statements ΓòÉΓòÉΓòÉ
  5928.  
  5929. Description 
  5930.   The compiler's main job is to translate your COBOL program into language that 
  5931.   the computer can process (object code). The compiler also lists errors in 
  5932.   your source statements and provides supplementary information to aid you in 
  5933.   debugging and tuning your program.  You can direct and control compilation 
  5934.   with compiler-directing statements. 
  5935.  
  5936.   A compiler-directing statement begins with a compiler-directing verb that 
  5937.   causes the compiler to perform a specific operation during compilation. 
  5938.  
  5939.  For help with individual compiler-directing statements, select from the 
  5940.   following list: 
  5941.  
  5942. *CONTROL(*CBL)           COPY 
  5943. EJECT                    SKIP1/2/3 
  5944. TITLE                    USE 
  5945. PROCESS 
  5946.  
  5947.  
  5948. ΓòÉΓòÉΓòÉ 1.81. *CONTROL(*CBL) Statement ΓòÉΓòÉΓòÉ
  5949.  
  5950. Description 
  5951.   *CONTROL(*CBL) allows you to selectively display or suppress the listing of 
  5952.   source code throughout the source program. 
  5953.  
  5954.   The *CONTROL and *CBL statements are synonymous. Whenever you use *CONTROL, 
  5955.   *CBL is accepted as well. 
  5956.  
  5957.  
  5958. ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇ*CONTROLΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇSOURCEΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  5959.      ΓööΓöÇΓöÇΓöÇΓöÇ*CBLΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ    Γö£ΓöÇΓöÇΓöÇNOSOURCEΓöÇΓöÇΓöñ
  5960.                         Γö£ΓöÇΓöÇΓöÇLISTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5961.                         Γö£ΓöÇΓöÇΓöÇNOLISTΓöÇΓöÇΓöÇΓöÇΓöñ
  5962.                         Γö£ΓöÇΓöÇΓöÇMAPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  5963.                         ΓööΓöÇΓöÇΓöÇNOMAPΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  5964.  
  5965.  
  5966. ΓòÉΓòÉΓòÉ 1.82. COPY Statement ΓòÉΓòÉΓòÉ
  5967.  
  5968. Description 
  5969.   The Format 1 COPY statement is a library statement that places prewritten 
  5970.   text in a COBOL program.  The Format 2 COPY statement can be used to create 
  5971.   COBOL Data Division statements to describe a file that exists on the system. 
  5972.   The two formats of the COPY statement are: 
  5973.  
  5974.     Format 1 (COPY) 
  5975.  
  5976.     Format 2 (COPY DDS Translate) 
  5977.  
  5978.  
  5979. ΓòÉΓòÉΓòÉ <hidden> Format 1 (COPY) ΓòÉΓòÉΓòÉ
  5980.  
  5981. Description 
  5982.   The Format 1 COPY statement is a library statement that places prewritten 
  5983.   text in a COBOL program. 
  5984.  
  5985.   Prewritten source program entries can be included in a source program at 
  5986.   compile time. Thus, an installation can use standard file descriptions, 
  5987.   record descriptions, or procedures without recoding them.  These entries and 
  5988.   procedures can then be saved in user-created libraries; they can then be 
  5989.   included in the source program by means of the COPY statement. 
  5990.  
  5991.   The effect of processing a COPY statement is that the library text associated 
  5992.   with text-name is copied into the source program, logically replacing the 
  5993.   entire COPY statement, beginning with the word COPY and ending with the 
  5994.   period, inclusive. When the REPLACING phrase is not specified, the library 
  5995.   text is copied unchanged. 
  5996.  
  5997. Format 1 (COPY)
  5998.  
  5999. ΓöÇΓöÇΓöÇCOPYΓöÇΓöÇtext-nameΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6000.  
  6001. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇfile-nameΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  6002.      Γö£ΓöÇΓöÇOFΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇlibrary-name- ΓöÇΓöÿ             ΓööΓöÇΓöÇSUPPRESSΓöÇΓöÇΓöÿ
  6003.      ΓööΓöÇΓöÇINΓöÇΓöÇΓöÿ
  6004.  
  6005. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  6006.    Γöé            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  6007.    Γöé                                                        Γöé Γöé
  6008.    ΓööΓöÇΓöÇREPLACINGΓöÇΓö¼ ==pseudo-text-1== Γö¼ΓöÇBYΓöÇΓö¼ ==pseudo-text-2== Γö╝ΓöÇΓöÿ
  6009.                 Γö£ΓöÇΓöÇΓöÇΓöÇidentifier-1ΓöÇΓöÇΓöÇΓöñ    Γö£ΓöÇΓöÇΓöÇidentifier-2ΓöÇΓöÇΓöÇΓöÇΓöñ
  6010.                 Γö£ΓöÇΓöÇΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ    Γö£ΓöÇΓöÇΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6011.                 ΓööΓöÇΓöÇΓöÇΓöÇword-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ    ΓööΓöÇΓöÇΓöÇword-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6012.  
  6013.  
  6014. ΓòÉΓòÉΓòÉ <hidden> Format 2 (COPY DDS Translate) ΓòÉΓòÉΓòÉ
  6015.  
  6016. Description 
  6017.   The Format 2 COPY statement (DD, DDR, DDS, DDSR option) can be used to create 
  6018.   COBOL Data Division statements to describe a file that exists on the system. 
  6019.   These descriptions are based on the version of the file in existence at 
  6020.   compile time.  They do not make use of the DDS source statements for the 
  6021.   file. 
  6022.  
  6023.   You can use the Format 2 Copy statement only in the Data Division, and you 
  6024.   must precede the statement with a group level item that has a level number 
  6025.   less than 05. 
  6026.  
  6027.   When the RECORD KEY clause specifies EXTERNALLY-DESCRIBED-KEY, a format can 
  6028.   be copied only once under the FD entry for the file. 
  6029.  
  6030. Format 2 (COPY DDS Translate)
  6031.  
  6032. ΓöÇΓöÇΓöÇCOPYΓöÇΓöÇΓö¼ΓöÇDD-format-nameΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  6033.            Γö£ΓöÇDD-ALL-FORMATSΓöÇΓöÇΓöÇΓöñ  Γö£ΓöÇ -IΓöÇΓöÇΓöÇΓöñ  Γö£ΓöÇ -INDICATORΓöÇΓöÇΓöñ
  6034.            Γö£ΓöÇDDR-format-nameΓöÇΓöÇΓöñ  Γö£ΓöÇ -OΓöÇΓöÇΓöÇΓöñ  Γö£ΓöÇ -INDICATORSΓöÇΓöñ
  6035.            Γö£ΓöÇDDR-ALL-FORMATSΓöÇΓöÇΓöñ  ΓööΓöÇ -I-OΓöÇΓöÿ  ΓööΓöÇ -INDICΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6036.            Γö£ΓöÇDDS-format-nameΓöÇΓöÇΓöñ
  6037.            Γö£ΓöÇDDS-ALL-FORMATSΓöÇΓöÇΓöñ
  6038.            Γö£ΓöÇDDSR-format-nameΓöÇΓöñ
  6039.            ΓööΓöÇDDSR-ALL-FORMATSΓöÇΓöÿ
  6040.  
  6041. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇfile-nameΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇ
  6042.      Γö£ΓöÇΓöÇOFΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇlibrary-name- ΓöÇΓöÿ             ΓööΓöÇΓöÇSUPPRESSΓöÇΓöÇΓöÿ
  6043.      ΓööΓöÇΓöÇINΓöÇΓöÇΓöÿ
  6044.  
  6045. ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ
  6046.    Γöé            ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ Γöé
  6047.    Γöé                                                        Γöé Γöé
  6048.    ΓööΓöÇΓöÇREPLACINGΓöÇΓö¼ ==pseudo-text-1== Γö¼ΓöÇBYΓöÇΓö¼ ==pseudo-text-2== Γö╝ΓöÇΓöÿ
  6049.                 Γö£ΓöÇΓöÇΓöÇΓöÇidentifier-1ΓöÇΓöÇΓöÇΓöñ    Γö£ΓöÇΓöÇΓöÇidentifier-2ΓöÇΓöÇΓöÇΓöÇΓöñ
  6050.                 Γö£ΓöÇΓöÇΓöÇΓöÇliteral-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ    Γö£ΓöÇΓöÇΓöÇliteral-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6051.                 ΓööΓöÇΓöÇΓöÇΓöÇword-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ    ΓööΓöÇΓöÇΓöÇword-2ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6052.  
  6053.  
  6054. ΓòÉΓòÉΓòÉ <hidden> REPLACING ΓòÉΓòÉΓòÉ
  6055.  
  6056. In the following discussion, each operand may consist of one of the following: 
  6057.  
  6058.  Pseudo-text 
  6059.  An identifier 
  6060.  A literal 
  6061.  A COBOL word (except COPY). 
  6062.  
  6063. When you specify REPLACING, the library text is copied, and each properly 
  6064. matched occurrence of the first operand within the library text is replaced by 
  6065. the second operand.  For example, identifier-1 is replaced by identifier-2. 
  6066.  
  6067. Each operand may consist of one of the following: 
  6068.  
  6069.  Pseudo-text 
  6070.  
  6071.     1. A sequence of character-strings and/or separators bounded by, but not 
  6072.        including, pseudo-text delimiters (==). Both characters of each 
  6073.        pseudo-text delimiter must appear on one line; however, 
  6074.        character-strings within pseudo-text-1 can be continued.  Because of the 
  6075.        replacement rules, the continued line of pseudo-text-2 can begin in area 
  6076.        A. 
  6077.  
  6078.     2. A character-string for pseudo-text can consist of single-byte characters 
  6079.        of any kind.  The prefix portion of a data name, however, cannot be 
  6080.        replaced using pseudo-text unless the entire data name is used. 
  6081.  
  6082.     3. Pseudo-text-1 must not be null, nor may it consist solely of the space 
  6083.        character, separator comma, separator semicolon, and/or comment lines. 
  6084.        Beginning and ending blanks are not included in the text comparison 
  6085.        process.  Embedded blanks are used in the text comparison process to 
  6086.        indicate multiple text words. 
  6087.  
  6088.     4. Pseudo-text-2 may be null; it may consist solely of space characters 
  6089.        and/or comment lines.  Each text word in pseudo-text-2 that is to be 
  6090.        copied into the program is placed in the same area of the resultant 
  6091.        program as the area in which it appears in pseudo-text-2. 
  6092.  
  6093.  Identifier 
  6094.  
  6095.    - May be defined in any Data Division section 
  6096.  
  6097.  Literal 
  6098.  
  6099.    - May be numeric or nonnumeric 
  6100.  
  6101.  Word 
  6102.  
  6103.    - May be any single COBOL word (except COPY) 
  6104.  
  6105. For purposes of matching, each identifier-1, literal-1, or word-1 is treated, 
  6106. respectively, as pseudo-text containing only identifier-1, literal-1, or 
  6107. word-1. 
  6108.  
  6109.  
  6110. ΓòÉΓòÉΓòÉ 1.83. EJECT Statement ΓòÉΓòÉΓòÉ
  6111.  
  6112. Description 
  6113.  
  6114.     The EJECT statement specifies that the next source statement is to be 
  6115.      printed at the top of the next page. 
  6116.  
  6117.     The EJECT statement must be the only statement on the line.  You may write 
  6118.      it in either Area A or Area B, and you may terminate it with a separator 
  6119.      period. 
  6120.  
  6121.     The EJECT statement has no effect on the compilation of the source program 
  6122.      itself. 
  6123.  
  6124.  
  6125. ΓöÇΓöÇEJECTΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6126.            ΓööΓöÇ . ΓöÇΓöÿ
  6127.  
  6128.  
  6129. ΓòÉΓòÉΓòÉ 1.84. SKIP1/2/3 Statement ΓòÉΓòÉΓòÉ
  6130.  
  6131. Description 
  6132.   The SKIP 1/2/3 statements specify blank lines that the compiler should add 
  6133.   when printing the source listing.  SKIP statements have no effect on the 
  6134.   compilation of the source program itself. 
  6135.  
  6136.  
  6137. ΓöÇΓöÇΓö¼ΓöÇΓöÇSKIP1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6138.     Γö£ΓöÇΓöÇSKIP2ΓöÇΓöÇΓöñ  ΓööΓöÇ . ΓöÇΓöÿ
  6139.     ΓööΓöÇΓöÇSKIP3ΓöÇΓöÇΓöÿ
  6140.  
  6141.  
  6142. ΓòÉΓòÉΓòÉ 1.85. TITLE Statement ΓòÉΓòÉΓòÉ
  6143.  
  6144. Description 
  6145.   The TITLE statement specifies a title to be printed at the top of each page 
  6146.   of the source listing produced during compilation.  If no TITLE statement is 
  6147.   found, a title containing the identification of the compiler and the current 
  6148.   release level is generated.  The title is left-justified on the title line. 
  6149.  
  6150.   The TITLE statement: 
  6151.  
  6152.     Forces a new page immediately, if the SOURCE compiler option is in effect 
  6153.  
  6154.     Is not printed on the source listing 
  6155.  
  6156.     Has no other effect on compilation 
  6157.  
  6158.     Has no effect on program execution 
  6159.  
  6160.  
  6161. ΓöÇΓöÇTITLE literalΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6162.                    ΓööΓöÇ . ΓöÇΓöÿ
  6163.  
  6164.  
  6165. ΓòÉΓòÉΓòÉ 1.86. USE Statement ΓòÉΓòÉΓòÉ
  6166.  
  6167. Description 
  6168.   USE is a compiler-directing statement that can appear only in the Procedure 
  6169.   Division, and that can begin only in Area B.  The USE statement has two 
  6170.   declaratives: 
  6171.  
  6172.     EXCEPTION/ERROR Declarative 
  6173.  
  6174.     DEBUGGING Declarative 
  6175.  
  6176.  
  6177. ΓòÉΓòÉΓòÉ <hidden> EXCEPTION/ERROR Declarative ΓòÉΓòÉΓòÉ
  6178.  
  6179. Description 
  6180.  
  6181.     The EXCEPTION/ERROR declarative specifies procedures for input/output 
  6182.      exception or error handling that are to be executed in addition to the 
  6183.      system-defined procedures. 
  6184.  
  6185.     The EXCEPTION/ERROR procedures are activated when an input/output error 
  6186.      occurs during execution of a ACQUIRE, DROP, READ, WRITE, REWRITE, START, 
  6187.      OPEN, CLOSE, or DELETE statement. 
  6188.  
  6189.     After execution of the EXCEPTION/ERROR declarative procedure, control is 
  6190.      returned to the statement immediately following the input/output statement 
  6191.      which caused the error. 
  6192.  
  6193.     The words EXCEPTION and ERROR are synonymous and may be used 
  6194.      interchangeably. 
  6195.  
  6196.  
  6197.   ΓöÇΓöÇUSE AFTERΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇEXCEPTIONΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6198.                 ΓööΓöÇSTANDARDΓöÇΓöÿ ΓööΓöÇERRORΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6199.  
  6200.                         ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6201.                                    Γöé
  6202.   ΓöÇΓöÇPROCEDUREΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇfile-name-1ΓöÇΓö┤ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6203.                ΓööΓöÇONΓöÇΓöÿ Γö£ΓöÇINPUTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6204.                       Γö£ΓöÇOUTPUTΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6205.                       Γö£ΓöÇI-OΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6206.                       ΓööΓöÇEXTENDΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6207.  
  6208.  
  6209. ΓòÉΓòÉΓòÉ <hidden> DEBUGGING Declarative ΓòÉΓòÉΓòÉ
  6210.  
  6211. Description 
  6212.   The USE FOR DEBUGGING sentence in the Procedure Division identifies the items 
  6213.   in the source program that are to be monitored by the associated debugging 
  6214.   declarative procedure. 
  6215.  
  6216.   Note:   Debugging sections are obsolete language elements and are to be 
  6217.   deleted from the next revision of the ANSI Standard. 
  6218.  
  6219.   All debugging statements must be written together in a section immediately 
  6220.   after the DECLARATIVES header. Except for the USE FOR DEBUGGING sentence 
  6221.   itself, within the debugging procedure there must be no reference to any 
  6222.   non-declarative procedures. 
  6223.  
  6224.  
  6225. ΓöÇΓöÇΓöÇUSEΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇDEBUGGINGΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6226.          ΓööΓöÇFORΓöÇΓöÿ           ΓööΓöÇONΓöÇΓöÿ
  6227.  
  6228.      ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6229.                                                Γöé
  6230. ΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇidentifier-1ΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6231.      Γöé ΓööΓöÇALLΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÿ                Γöé
  6232.      Γöé       ΓööΓöÇREFERENCES OFΓöÇΓöÿ                  Γöé
  6233.      Γö£ΓöÇfile-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6234.      Γö£ΓöÇprocedure-name-1ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöñ
  6235.      ΓööΓöÇALL PROCEDURESΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÿ
  6236.  
  6237.  
  6238. ΓòÉΓòÉΓòÉ <hidden> ALL REFERENCES OF Phrase ΓòÉΓòÉΓòÉ
  6239.  
  6240. When you specify ALL REFERENCES OF identifier-1, that debugging section is 
  6241. executed for every statement that explicitly references identifier-1 at each of 
  6242. the following times: 
  6243.  
  6244.  Before the execution of a WRITE or REWRITE identifier-1 and after the 
  6245.   execution of any implicit move resulting from the presence of the FROM 
  6246.   phrase. 
  6247.  
  6248.  Before control is transferred with GO TO DEPENDING ON identifier-1, and 
  6249.   before any debugging section for the procedure-name runs. 
  6250.  
  6251.  After each initialization, modification, or evaluation of the contents of 
  6252.   identifier-1 in PERFORM VARYING/AFTER/UNTIL identifier-1. 
  6253.  
  6254.  After any other COBOL statement explicitly referring to identifier-1. 
  6255.  
  6256. If identifier-1 is specified in a phrase that is not executed or evaluated, the 
  6257. associated debugging section is not executed. 
  6258.  
  6259.  
  6260. ΓòÉΓòÉΓòÉ <hidden> Identifier-1 ΓòÉΓòÉΓòÉ
  6261.  
  6262. An identifier in a USE FOR DEBUGGING sentence: 
  6263.  
  6264.  Must be specified without the subscripting or indexing normally required if 
  6265.   it contains an OCCURS clause or is subordinate to an entry containing an 
  6266.   OCCURS clause.  (A SEARCH or SEARCH ALL statement that refers to such an 
  6267.   identifier does not call the USE FOR DEBUGGING procedures.) 
  6268.  
  6269.  Must not be a special register. 
  6270.  
  6271.  Cannot be reference modified. 
  6272.  
  6273. When you specify identifier-1, that debugging section is executed at each of 
  6274. the following times: 
  6275.  
  6276.  Before the execution of a WRITE or REWRITE statement that explicitly 
  6277.   references identifier-1 and after the execution of any implicit move 
  6278.   resulting from the presence of the FROM phrase. 
  6279.  
  6280.  After each initialization, modification, or evaluation of the contents of 
  6281.   identifier-1 in PERFORM VARYING/AFTER/UNTIL identifier-1. 
  6282.  
  6283.  After any other COBOL statement explicitly referring to identifier-1 and 
  6284.   causes a change in the contents of identifier-1. 
  6285.  
  6286. Any given identifier may appear in only one USE FOR DEBUGGING sentence, and 
  6287. only once in that sentence. 
  6288.  
  6289. If identifier-1 is specified in a phrase that is not executed or evaluated, the 
  6290. associated debugging section is not executed. 
  6291.  
  6292.  
  6293. ΓòÉΓòÉΓòÉ 1.87. PROCESS Statement ΓòÉΓòÉΓòÉ
  6294.  
  6295. Description 
  6296.   The PROCESS statement is an optional part of the COBOL source program.  It 
  6297.   lets you specify options that you would normally specify at compilation time. 
  6298.   Options specified in the PROCESS statement override the corresponding options 
  6299.   specified in the Compiler Options Dialog. 
  6300.  
  6301.  
  6302.               ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6303.                       Γöé
  6304. ΓöÇΓöÇPROCESSΓöÇΓöÇΓöÇoption-1ΓöÇΓö┤ΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6305.                            ΓööΓöÇ . ΓöÇΓöÿ
  6306.  
  6307.  
  6308. ΓòÉΓòÉΓòÉ <hidden> PROCESS Statement ΓòÉΓòÉΓòÉ
  6309.  
  6310. The following rules apply to the PROCESS statement: 
  6311.  
  6312.  The statement must be placed before the first source statement in the COBOL 
  6313.   program immediately preceding the IDENTIFICATION DIVISION header. 
  6314.  
  6315.  The statement begins with the word PROCESS.  Options can appear on more than 
  6316.   one line; however, only the first line can contain the word PROCESS. 
  6317.  
  6318.  The word PROCESS and all options must appear within positions 8 through 72. 
  6319.   Position 7 must be left blank.  The remaining positions can be used as in 
  6320.   COBOL source statements: positions 1 through 6 for sequence numbers, 
  6321.   positions 73 through 80 for identification purposes. 
  6322.  
  6323.  The options must be separated by blanks and/or commas. 
  6324.  
  6325.  The options can appear in any order.  If conflicting options are specified, 
  6326.   for example, LIST and NOLIST, the last option encountered takes precedence. 
  6327.  
  6328.  For any options with suboptions, if the option keyword is correct and the 
  6329.   suboption is in error, the default suboption is assumed. 
  6330.  
  6331.  
  6332. ΓòÉΓòÉΓòÉ <hidden> Option-1 ΓòÉΓòÉΓòÉ
  6333.  
  6334. Option-1 represents the options available with the PROCESS statement. Following 
  6335. is a list of these options.  You may click on each one for a description of the 
  6336. option. 
  6337.  
  6338. GENLVL(nn)                         NOBLK 
  6339. GEN                                BLK 
  6340. NOGEN                              STDINZ 
  6341. NOMAP                              NOSTDINZ 
  6342. MAP                                FS21DUPKEY 
  6343. NONUMBER                           NOFS21DUPKEY 
  6344. NUMBER                             RANGE 
  6345. LINENUMBER                         NORANGE 
  6346. NOSECLVL                           UNREF 
  6347. SECLVL                             NOUNREF 
  6348. NOOPTIONS                          NOVARCHAR 
  6349. OPTIONS                            VARCHAR 
  6350. QUOTE                              NODATETIME 
  6351. APOST                              DATETIME 
  6352. NOSEQUENCE                         NOCVTGRAPHIC 
  6353. SEQUENCE                           CVTGRAPHIC 
  6354. SOURCE (or SRC)                    NOFIPS 
  6355. NOSOURCE (or NOSRC)                MINIMUM 
  6356. NOVBSUM                            INTERMEDIATE 
  6357. VBSUM                              HIGH 
  6358. NOXREF                             NOSEG 
  6359. XREF                               SEG1 
  6360. PRTCORR                            SEG2 
  6361. NOPRTCORR                          NODEB 
  6362. NOINZDLT                           DEB1 
  6363. INZDLT                             DEB2 
  6364. NOLIST                             NOOBSOLETE 
  6365. LIST                               OBSOLETE 
  6366. STDERR                             EXTDSPOPT(a b c) 
  6367. NOSTDERR                           NOSAAFLAG 
  6368. NODDSFILLER                        SAAFLAG 
  6369. DDSFILLER                          FLAG(nn) 
  6370. NOSYNC                             NOFS9MTO0M 
  6371. SYNC                               FS9MTO0M 
  6372. NOCRTF                             NOGRAPHIC 
  6373. CRTF                               GRAPHIC 
  6374. NODUPKEYCHK                        NOFS9ATO0A 
  6375. DUPKEYCHK                          FS9ATO0A 
  6376. NOEXTACCDSP                        SRTSEQ(a) 
  6377. EXTACCDSP                          LANGID(a) 
  6378.  
  6379.  
  6380. ΓòÉΓòÉΓòÉ <hidden> EXTDSPOPT Option ΓòÉΓòÉΓòÉ
  6381.  
  6382. EXTDSPOPT specifies the options to use for extended ACCEPT and extended DISPLAY 
  6383. statements for workstation I/O, and takes the form: 
  6384.  
  6385.        EXTDSPOPT(a b c)
  6386.  
  6387. Where a is DFRWRT or NODFRWRT, b is UNDSPCHR or NOUNDSPCHR, and c is ACCUPDALL 
  6388. or ACCUPDNE. 
  6389.  
  6390.  DFRWRT indicates that extended DISPLAY statements are held in a buffer until 
  6391.   an extended ACCEPT statement is encountered, or until the buffer is filled. 
  6392.   DFRWRT is the default value. 
  6393.  
  6394.    If an extended ACCEPT statement is not encountered before the buffer is 
  6395.   filled, the contents of the buffer are written to the display. When an 
  6396.   extended ACCEPT statement is encountered, the current contents of the buffer 
  6397.   are written to the display. 
  6398.  
  6399.  NODFRWRT indicates that each extended DISPLAY statement is performed as it is 
  6400.   encountered. 
  6401.  
  6402.  UNDSPCHR indicates that displayable and undisplayable characters are handled 
  6403.   by extended ACCEPT and extended DISPLAY statements.  UNDSPCHR is the default 
  6404.   value. 
  6405.  
  6406.  NOUNDSPCHR indicates that only displayable characters are handled by extended 
  6407.   ACCEPT and extended DISPLAY statements. 
  6408.  
  6409.   Although you must use this option for display stations attached to remote 
  6410.   3174 and 3274 controllers, you can also use it for local work stations. If 
  6411.   you do use this option, your data must contain displayable characters.  If 
  6412.   the data contains values less than hexadecimal 20, the results are 
  6413.   unpredictable, and can range from unexpected display formats to severe 
  6414.   errors. 
  6415.  
  6416.  ACCUPDALL indicates that all types of data are predisplayed in the extended 
  6417.   ACCEPT statements regardless of the existence of the UPDATE phrase. 
  6418.   ACCUPDALL is the default value. 
  6419.  
  6420.  ACCUPDNE indicates that only numeric edited data are predisplayed in the 
  6421.   extended ACCEPT statements that do not contain the UPDATE phrase. 
  6422.  
  6423.  
  6424. ΓòÉΓòÉΓòÉ <hidden> SRTSEQ Option ΓòÉΓòÉΓòÉ
  6425.  
  6426. SRTSEQ specifies the sort sequence used when NLSSORT is associated with an 
  6427. alphabet-name in the ALPHABET clause. The SRTSEQ option is used in conjunction 
  6428. with the LANGID option to determine which system-defined or user-defined sort 
  6429. sequence table the program will use.  SRTSEQ takes the form: 
  6430.  
  6431.        SRTSEQ(a)
  6432.  
  6433. Where a is HEX, JOB, JOBRUN, LANGIDUNQ, LANGIDSHR, "table-name" or 
  6434. "library-name/table-name". 
  6435.  
  6436.  HEX indicates that no sort sequence table will be used and the hexadecimal 
  6437.   values of the characters will be used to determine the sort sequence. This is 
  6438.   the default value. 
  6439.  
  6440.  JOB indicates that the sort sequence of the program will be resolved and 
  6441.   associated with the program at compile time. The sort sequence table must 
  6442.   exist in the system at compile time. 
  6443.  
  6444.  JOBRUN indicates that the sort sequence of the program will be resolved and 
  6445.   associated with the program at run time. At compile time, the compiler will 
  6446.   associate the sort sequence of the compile job with the program. At run time, 
  6447.   this sort sequence will be replaced by the sort sequence associated with the 
  6448.   job at run time. This value allows a program to be compiled once and used 
  6449.   with different sort sequences at run time. 
  6450.  
  6451.  LANGIDUNQ indicates that the sort sequence table being used must contain a 
  6452.   unique weight for each character in the code page. The sort sequence table 
  6453.   used will be the unique weighted table associated with the language specified 
  6454.   in the LANGID option. 
  6455.  
  6456.  LANGIDSHR indicates that the sort sequence table being used can contain the 
  6457.   same weight for multiple characters in the code page. The sort sequence table 
  6458.   used will be the shared weighted table associated with the language specified 
  6459.   in the LANGID option. 
  6460.  
  6461.  "table-name" or "library-name/table-name" indicates the name of the sort 
  6462.   sequence table to be used. The table contains weights for all characters in a 
  6463.   given code page. A weight is associated with the character that is defined at 
  6464.   the code point. The library is specified as LIBL, CURLIB or library-name. 
  6465.  
  6466.    - LIBL indicates the library list is searched to find the library where the 
  6467.      sort sequence table is located. This is the default value. 
  6468.  
  6469.    - CURLIB indicates that the current library is searched. If you have not 
  6470.      assigned a library as the current library, QGPL is used. 
  6471.  
  6472.    - library-name indicates the name of the library where the sort sequence 
  6473.      table is found. 
  6474.  
  6475.  
  6476. ΓòÉΓòÉΓòÉ <hidden> LANGID Option ΓòÉΓòÉΓòÉ
  6477.  
  6478. LANGID specifies the language identifier which is used in conjunction with the 
  6479. sort sequence.  The LANGID option is used only when the SRTSEQ value in effect 
  6480. is LANGIDUNQ or LANGIDSHR.  LANGID takes the form: 
  6481.  
  6482.        LANGID(a)
  6483.  
  6484. Where a is JOBRUN, JOB or "language-identifier". 
  6485.  
  6486.  JOBRUN indicates that the language identifier of the program will be resolved 
  6487.   at run time. When the compiled program is run, the language identifier of the 
  6488.   job is used. This value allows a program to be compiled once and used with 
  6489.   different language identifiers at run time. This is the default value. 
  6490.  
  6491.  JOB indicates that the language identifier of the program will be resolved at 
  6492.   compile time. 
  6493.  
  6494.  "language-identifier" is a valid 3 character language identifier. 
  6495.  
  6496.  
  6497. ΓòÉΓòÉΓòÉ <hidden> alphabet-name-1 ΓòÉΓòÉΓòÉ
  6498.  
  6499. You must specify alphabet-name-1 in the ALPHABET clause of the SPECIAL-NAMES 
  6500. paragraph.  You may specify any one of the alphabet-name clause phrases with 
  6501. the following results: 
  6502.  
  6503. STANDARD-1      The ASCII collating sequence is used for all nonnumeric 
  6504.                 comparisons. 
  6505.  
  6506. STANDARD-2      The International Reference Version of the ISO 7-bit code 
  6507.                 defined in International Standard 646, 7-bit Coded Character 
  6508.                 Set for Information Processing Interchange is used for all 
  6509.                 nonnumeric comparisons 
  6510.  
  6511. NATIVE          The EBCDIC collating sequence is used for all nonnumeric 
  6512.                 comparisons. 
  6513.  
  6514. EBCDIC          The EBCDIC collating sequence is used for all nonnumeric 
  6515.                 comparisons. 
  6516.  
  6517. NLSSORT         The Sort sequence (SRTSEQ) and Language identifier (LANGID) 
  6518.                 specifications in the compiler options (or implied defaults) 
  6519.                 are used to determine the character code set used for all 
  6520.                 nonnumeric comparisons. 
  6521.  
  6522. literal         The collating sequence established by the specification of 
  6523.                 literals in the alphabet-name clause is used for all nonnumeric 
  6524.                 comparisons. 
  6525.  
  6526.  
  6527. ΓòÉΓòÉΓòÉ 1.88. Arithmetic Expressions ΓòÉΓòÉΓòÉ
  6528.  
  6529. Arithmetic expressions are used as operands of certain conditional and 
  6530. arithmetic statements. 
  6531.  
  6532. An arithmetic expression may consist of any of the following: 
  6533.  
  6534.  1. An identifier described as a numeric elementary item 
  6535.  2. A numeric literal 
  6536.  3. The figurative constant ZERO 
  6537.  4. Identifiers and literals, as defined in items 1, 2, and 3, separated by 
  6538.     arithmetic operators 
  6539.  5. Two arithmetic expressions, as defined in items 1, 2, 3, and/or 4, 
  6540.     separated by an arithmetic operator 
  6541.  6. An arithmetic expression, as defined in items 1, 2, 3, 4, and/or 5, 
  6542.     enclosed in parentheses. 
  6543.  
  6544. Any arithmetic expression may be preceded by a unary operator. 
  6545.  
  6546. Identifiers and literals appearing in arithmetic expressions must represent 
  6547. either numeric elementary items or numeric literals on which arithmetic may be 
  6548. performed. 
  6549.  
  6550. If an exponential expression is evaluated as both a positive and a negative 
  6551. number, the result will always be the positive number. The square root of 4, 
  6552. for example  (4 ** 0.5)  is evaluated as +2 and -2.  The compiler always 
  6553. returns +2. 
  6554.  
  6555. If the value of an expression to be raised to a power is zero, the exponent 
  6556. must have a value greater than zero.  Otherwise, the size error condition 
  6557. exists.  In any case, where no real number exists as a result of the 
  6558. evaluation, the size error condition exists. 
  6559.  
  6560. Arithmetic Operators 
  6561.  
  6562. Five binary arithmetic operators and two unary arithmetic operators may be used 
  6563. in arithmetic expressions. They must be preceded and followed by a space, and 
  6564. they are interpreted as follows: 
  6565.  
  6566. Binary Operator     Operation Performed 
  6567.  
  6568. +                   Addition 
  6569. -                   Subtraction 
  6570. *                   Multiplication 
  6571. /                   Division 
  6572. **                  Exponentiation 
  6573.  
  6574. Unary Operator      Operation Performed 
  6575.  
  6576. +                   Multiplication by +1 
  6577. -                   Multiplication by -1 
  6578.  
  6579. You can use parentheses in arithmetic expressions to specify the order in which 
  6580. elements are to be evaluated. Expressions within parentheses are evaluated 
  6581. first.  When expressions are contained within a nest of parentheses, evaluation 
  6582. proceeds from the innermost to the outermost set. 
  6583.  
  6584. When parentheses are not used, or when parenthesized expressions are at the 
  6585. same level of inclusiveness, the following hierarchical order is implied: 
  6586.  
  6587.  1. Unary operator 
  6588.  2. Exponentiation 
  6589.  3. Multiplication and division 
  6590.  4. Addition and subtraction 
  6591.  
  6592. Parentheses either eliminate ambiguities in logic where consecutive operations 
  6593. appear at the same hierarchic level, or modify the normal hierarchic sequence 
  6594. of execution when this is necessary.  When the order of consecutive operations 
  6595. at the same hierarchic level is not completely specified by parentheses, the 
  6596. order is from left to right. 
  6597.  
  6598. An arithmetic expression may begin only with a left parenthesis, a unary 
  6599. operator, or an operand (that is, an identifier or a literal).  It may end only 
  6600. with a right parenthesis or an operand. An arithmetic expression must contain 
  6601. at least one reference to an identifier or a literal. 
  6602.  
  6603. There must be a one-to-one correspondence between left and right parentheses in 
  6604. an arithmetic expression, with each left parenthesis placed to the left of its 
  6605. corresponding right parenthesis. 
  6606.  
  6607. If the first operator in an arithmetic expression is a unary operator, it must 
  6608. be immediately preceded by a left parenthesis if that arithmetic expression 
  6609. immediately follows an identifier or another arithmetic expression. 
  6610.  
  6611.  
  6612. ΓòÉΓòÉΓòÉ 1.89. INVALID KEY Condition ΓòÉΓòÉΓòÉ
  6613.  
  6614. The invalid key condition can occur during execution of a DELETE, READ, 
  6615. REWRITE, START, or WRITE statement. When an invalid key condition occurs, the 
  6616. input-output statement that caused the condition is unsuccessful. 
  6617.  
  6618. When the invalid key condition exists after an input-output operation, actions 
  6619. are taken according to the type of error handling in effect: 
  6620.  
  6621.  With standard error handling, if there is an applicable file status clause 
  6622.   (but not an applicable USE procedure), the file status is updated, and 
  6623.   control returns to the program.  In the absence of a file status clause, USE 
  6624.   procedure, or INVALID KEY phrase to handle the error, a run-time message is 
  6625.   issued, giving you the option to end or return to the program. 
  6626.  
  6627.  Without standard error handling, the status key, if specified, is updated. 
  6628.   If an explicit or implicit EXCEPTION/ERROR procedure is specified for the 
  6629.   file, the procedure runs.  If no such procedure is specified, the results are 
  6630.   unpredictable. 
  6631.  
  6632. If the invalid key condition does not exist after execution of the input-output 
  6633. operation, the INVALID KEY phrase, if specified, is ignored, and the following 
  6634. actions are taken: 
  6635.  
  6636.  1. If an exception condition which is not an invalid key condition exists, 
  6637.     control is transferred according to the rules of the USE statement 
  6638.     following the execution of any USE AFTER EXCEPTION procedure. 
  6639.  
  6640.  2. If no exception condition exists, control is transferred to the end of the 
  6641.     input-output statement or the imperative statement specified in the NOT 
  6642.     INVALID KEY phrase, if specified. 
  6643.  
  6644.  
  6645. ΓòÉΓòÉΓòÉ 1.90. Program-name ΓòÉΓòÉΓòÉ
  6646.  
  6647.  The program-name is a user-defined word that identifies your program. The 
  6648.   system uses the first 10 characters of the program-name as the identifying 
  6649.   name of the program. 
  6650.  
  6651.  The first character must be alphabetic.  If the first character is not 
  6652.   alphabetic, it is converted as follows: 
  6653.  
  6654.    - 0 is changed to J 
  6655.    - 1 through 9 are changed to A through I. 
  6656.  
  6657.  If you use a non-trailing hyphen in positions 2 through 9 of the 
  6658.   program-name, the hyphen is changed to zero (0). 
  6659.  
  6660.  
  6661. ΓòÉΓòÉΓòÉ 1.91. ROUNDED Phrase ΓòÉΓòÉΓòÉ
  6662.  
  6663. The ROUNDED phrase prevents truncation when the size of the fractional result 
  6664. of an arithmetic operation exceeds the number of places provided for its 
  6665. storage. 
  6666.  
  6667. The ROUNDED phrase causes the least significant digit of the resultant 
  6668. identifier to be increased by 1 whenever the most significant digit of the 
  6669. excess is greater than or equal to 5. 
  6670.  
  6671. When the resultant identifier is described by a PICTURE clause containing 
  6672. rightmost P's, and when the number of places in the calculated result exceeds 
  6673. the number of integer positions specified, rounding or truncation occurs, 
  6674. relative to the rightmost integer position for which storage is allocated. 
  6675.  
  6676.  
  6677. ΓòÉΓòÉΓòÉ 1.92. SIZE ERROR/NOT SIZE ERROR ΓòÉΓòÉΓòÉ
  6678.  
  6679. A size error condition can occur in three different ways: 
  6680.  
  6681.  1. When the absolute value of the result of an arithmetic evaluation, after 
  6682.     decimal point alignment, exceeds the largest value that can be contained in 
  6683.     the result field 
  6684.  
  6685.  2. When division by zero occurs 
  6686.  
  6687.  3. In an exponential expression, when: 
  6688.  
  6689.     Zero is raised to zero power. If a SIZE ERROR clause is present, the SIZE 
  6690.      ERROR imperative statement is executed. 
  6691.  
  6692.     Zero is raised to a negative number. If a SIZE ERROR clause is present, 
  6693.      the SIZE ERROR imperative statement is executed. 
  6694.  
  6695.     A negative number is raised to a fractional power. If a SIZE ERROR clause 
  6696.      is present, the SIZE ERROR imperative statement is executed. 
  6697.  
  6698. If a SIZE ERROR phrase is not present and a size error condition occurs, the 
  6699. value of the affected resultant identifier is unpredictable.  Values of other 
  6700. resultant identifiers are not affected, as long as no size error occurred for 
  6701. them. 
  6702.  
  6703. The size error condition applies only to final results, not to intermediate 
  6704. results. 
  6705.  
  6706. If the resultant identifier is defined with USAGE IS BINARY, or 
  6707. COMPUTATIONAL-4, the largest value that can be contained in it is the maximum 
  6708. value implied by its associated decimal PICTURE character-string. 
  6709.  
  6710. When a size error occurs, the subsequent action of the program depends on 
  6711. whether or not the ON SIZE ERROR phrase is specified. 
  6712.  
  6713. If you do specify the ON SIZE ERROR phrase and a size error condition occurs, 
  6714. the value of the resultant identifier affected by the size error is not 
  6715. altered---that is, the error results are not placed in the receiving 
  6716. identifier. After completion of the execution of the arithmetic operation, the 
  6717. imperative statement in the ON SIZE ERROR phrase is executed, control is 
  6718. transferred to the end of the arithmetic statement, and the NOT ON SIZE ERROR 
  6719. phrase, if specified, is ignored. 
  6720.  
  6721. If you specify the NOT ON SIZE ERROR phrase and, after execution of an 
  6722. arithmetic operation, a size error condition does not exist, the NOT ON SIZE 
  6723. ERROR phrase is executed. 
  6724.  
  6725. When you specify both the ON SIZE ERROR and NOT ON SIZE ERROR phrases, and the 
  6726. statement in the phrase that is executed does not contain any explicit transfer 
  6727. of control, then, if necessary, an implicit transfer of control is made after 
  6728. execution of the phrase to the end of the arithmetic statement. 
  6729.  
  6730. For ADD CORRESPONDING and SUBTRACT CORRESPONDING statements, if an individual 
  6731. arithmetic operation causes a size error condition, the ON SIZE ERROR 
  6732. imperative statement is not executed until all the individual additions or 
  6733. subtractions have been completed. 
  6734.  
  6735.  
  6736. ΓòÉΓòÉΓòÉ 1.93. Reference Modification ΓòÉΓòÉΓòÉ
  6737.  
  6738. Reference modification resembles substringing in other computer languages. 
  6739. Reference modification defines a data item by specifying a starting position 
  6740. and length for the item. It is generally allowed anywhere an identifier 
  6741. referencing an alphanumeric data item is allowed. 
  6742.  
  6743.  
  6744.                  ΓöîΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÉ
  6745.                                    Γöé
  6746. ΓöÇΓöÇdata-name-1ΓöÇΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö╝ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6747.                  Γö£ΓöÇOFΓöÇΓö¼ΓöÇdata-name-2ΓöÇΓöÿ
  6748.                  ΓööΓöÇINΓöÇΓöÿ
  6749.  
  6750. ΓöÇΓöÇΓöÇ(leftmost-character-position:ΓöÇΓö¼ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓö¼ΓöÇ)ΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇΓöÇ
  6751.                                   ΓööΓöÇlengthΓöÇΓöÿ
  6752.  
  6753. Without reference modification, you cannot use operands that are longer than 32 
  6754. 767 bytes in the following statements: 
  6755.  
  6756. ACCEPT 
  6757. CANCEL 
  6758. DISPLAY 
  6759. EVALUATE  (relational condition) 
  6760. IF  (relational condition) 
  6761. PERFORM  (relational condition) 
  6762. STRING 
  6763. UNSTRING 
  6764. USE  (USE FOR DEBUGGING) 
  6765.  
  6766. Note:   When you use IF condition-name, an implicit comparison of the 
  6767. condition-name (88-level item) with its condition variable takes place, even 
  6768. though the condition variable is not referenced in the IF statement. Therefore, 
  6769. IF condition-name cannot be used when the associated condition variable is 
  6770. longer than 32 767 bytes. 
  6771.  
  6772. With reference modification, this 32 767-byte limit does not apply if the 
  6773. length of the operand is known at compilation time. In other words, the 
  6774. reference modification length specification (or starting position in the 
  6775. absence of a length specification) must be a numeric literal. 
  6776.  
  6777. Evaluation of Operands 
  6778.  
  6779. Reference modification for an operand is evaluated as follows: 
  6780.  
  6781.  If subscripting is specified for the operand, the reference modification is 
  6782.   evaluated immediately after evaluation of the subscript. 
  6783.  
  6784.  If subscripting is not specified for the operand, the reference modification 
  6785.   is evaluated at the time subscripting would be evaluated if subscripts had 
  6786.   been specified. 
  6787.  
  6788. Reference modification creates a unique data item which is a subset of the data 
  6789. item referenced by data-name-1. This unique data item is considered an 
  6790. elementary data item without the JUSTIFIED clause. It has the same class and 
  6791. category as that defined for the data item referenced by data-name-1, except 
  6792. that the categories numeric, numeric-edited, and alphanumeric-edited are 
  6793. considered class and category alphanumeric. 
  6794.  
  6795. For example: 
  6796.  
  6797. MOVE whole-name(1:25) TO last-name
  6798.  
  6799. This example transfers the first 25 characters in the variable whole-name to 
  6800. the variable last-name. 
  6801.  
  6802. Range Errors 
  6803.  
  6804. An out-of-range reference modification component, such as a 
  6805. leftmost-character-position of zero, causes system message MCH0603.  This is 
  6806. the same message that signals errors in subscript ranges and character-string 
  6807. boundaries. 
  6808.  
  6809. Restrictions on Reference Modification 
  6810.  
  6811. The INDICATORS phrase does not support reference modification, and the same is 
  6812. generally true of record-names. 
  6813.  
  6814. The following statements do not support reference modification: 
  6815.  
  6816. INSPECT 
  6817. Extended ACCEPT 
  6818. Extended DISPLAY 
  6819.  
  6820. In addition, you cannot reference modify: identifier-3 of the STRING statement. 
  6821. identifier-1 of the UNSTRING statement. identifier-1 of the USE FOR DEBUGGING 
  6822. statement. identifier-3 of the STRING statement. 
  6823.  
  6824. For the START statement, you can reference modify the last occurrence of 
  6825. data-name-1 only. 
  6826.  
  6827.  
  6828. ΓòÉΓòÉΓòÉ 1.94. ADDRESS Menu ΓòÉΓòÉΓòÉ
  6829.  
  6830. Select which occurrence of ADDRESS you want to display: 
  6831.  
  6832.  CALL STATEMENT Format 1 (CALL ON OVERFLOW) 
  6833.  
  6834.  CALL STATEMENT Format 2 (CALL ON EXCEPTION) 
  6835.  
  6836.  SET STATEMENT Format 5 (Pointer Data Item) 
  6837.  
  6838.  
  6839. ΓòÉΓòÉΓòÉ 1.95. AFTER Menu ΓòÉΓòÉΓòÉ
  6840.  
  6841. Select which occurrence of AFTER you want to display: 
  6842.  
  6843.  USE AFTER EXCEPTION/ERROR PROCEDURE (USE Compiler-Directing Statement) 
  6844.  
  6845.  INSPECT Statement 
  6846.  
  6847.  PERFORM Statement Format 3 (PERFORM with UNTIL) 
  6848.  
  6849.  PERFORM Statement Format 4 (PERFORM with VARYING) 
  6850.  
  6851.  
  6852. ΓòÉΓòÉΓòÉ 1.96. ASCENDING/DESCENDING Menu ΓòÉΓòÉΓòÉ
  6853.  
  6854. Select which occurrence of ASCENDING/DESCENDING you want to display: 
  6855.  
  6856.  ASCENDING/DESCENDING KEY Phrase (OCCURS Clause) 
  6857.  
  6858.  ASCENDING/DESCENDING KEY Phrase (MERGE Statement) 
  6859.  
  6860.  ASCENDING/DESCENDING KEY Phrase (SORT Statement) 
  6861.  
  6862.  
  6863. ΓòÉΓòÉΓòÉ 1.97. ASSIGN Menu ΓòÉΓòÉΓòÉ
  6864.  
  6865. Select which occurrence of ASSIGN you want to display: 
  6866.  
  6867.  ASSIGN Clause (FILE-CONTROL Format 1 through Format 4) 
  6868.  
  6869.  ASSIGN Clause (FILE-CONTROL Format 5, Transaction File Entries) 
  6870.  
  6871.  
  6872. ΓòÉΓòÉΓòÉ 1.98. BACKGROUND-COLOR/BACKGROUND-COLOUR Menu ΓòÉΓòÉΓòÉ
  6873.  
  6874. Select which occurrence of BACKGROUND-COLOR or BACKGROUND-COLOUR you want to 
  6875. display: 
  6876.  
  6877.  ACCEPT Statement Format 7 (Workstation I/O) 
  6878.  
  6879.  DISPLAY Statement Format 3 (Workstation I/O) 
  6880.  
  6881.  
  6882. ΓòÉΓòÉΓòÉ 1.99. BELL/BEEP Menu ΓòÉΓòÉΓòÉ
  6883.  
  6884. Select which occurrence of BELL or BEEP you want to display: 
  6885.  
  6886.  ACCEPT Statement Format 7 (Workstation I/O) 
  6887.  
  6888.  DISPLAY Statement Format 3 (Workstation I/O) 
  6889.  
  6890.  
  6891. ΓòÉΓòÉΓòÉ 1.100. BEFORE Menu ΓòÉΓòÉΓòÉ
  6892.  
  6893. Select which occurrence of BEFORE you want to display: 
  6894.  
  6895.  INSPECT Statement 
  6896.  
  6897.  PERFORM Statement Format 3 (PERFORM with UNTIL) 
  6898.  
  6899.  PERFORM Statement Format 4 (PERFORM with VARYING) 
  6900.  
  6901.  
  6902. ΓòÉΓòÉΓòÉ 1.101. BLANK Menu ΓòÉΓòÉΓòÉ
  6903.  
  6904. Select which occurrence of BLANK you want to display: 
  6905.  
  6906.  BLANK WHEN ZERO Clause 
  6907.  
  6908.  DISPLAY Statement Format 3 (Workstation I/O) 
  6909.  
  6910.  
  6911. ΓòÉΓòÉΓòÉ 1.102. BLINK Menu ΓòÉΓòÉΓòÉ
  6912.  
  6913. Select which occurrence of BLINK you want to display: 
  6914.  
  6915.  ACCEPT Statement Format 7 (Workstation I/O) 
  6916.  
  6917.  DISPLAY Statement Format 3 (Workstation I/O) 
  6918.  
  6919.  
  6920. ΓòÉΓòÉΓòÉ 1.103. CHARACTERS Menu ΓòÉΓòÉΓòÉ
  6921.  
  6922. Select which occurrence of CHARACTERS you want to display: 
  6923.  
  6924.  BLOCK CONTAINS Clause (Formatfile, Database, Disk Files) 
  6925.  
  6926.  BLOCK CONTAINS Clause (Diskette Files) 
  6927.  
  6928.  BLOCK CONTAINS Clause (Tapefile Files) 
  6929.  
  6930.  BLOCK CONTAINS Clause (Printer Files) 
  6931.  
  6932.  INSPECT Statement (with TALLYING Phrase) 
  6933.  
  6934.  INSPECT Statement (with REPLACING Phrase) 
  6935.  
  6936.  INSPECT Statement (with TALLYING and REPLACING Phrases) 
  6937.  
  6938.  RECORD Clause 
  6939.  
  6940.  
  6941. ΓòÉΓòÉΓòÉ 1.104. COLLATING Menu ΓòÉΓòÉΓòÉ
  6942.  
  6943. Select which occurrence of COLLATING you want to display: 
  6944.  
  6945.  PROGRAM COLLATING SEQUENCE Clause (OBJECT-COMPUTER Paragraph) 
  6946.  
  6947.  COLLATING SEQUENCE Phrase (MERGE Statement) 
  6948.  
  6949.  COLLATING SEQUENCE Phrase (SORT Statement) 
  6950.  
  6951.  
  6952. ΓòÉΓòÉΓòÉ 1.105. COLUMN/COL Menu ΓòÉΓòÉΓòÉ
  6953.  
  6954. Select which occurrence of COLUMN or COL you want to display: 
  6955.  
  6956.  ACCEPT Statement Format 7 (Workstation I/O) 
  6957.  
  6958.  DISPLAY Statement Format 3 (Workstation I/O) 
  6959.  
  6960.  
  6961. ΓòÉΓòÉΓòÉ 1.106. COMMITMENT Menu ΓòÉΓòÉΓòÉ
  6962.  
  6963. Select which occurrence of COMMITMENT you want to display: 
  6964.  
  6965.  COMMITMENT CONTROL Clause (I-O-CONTROL Format 1, Sequential Files) 
  6966.  
  6967.  COMMITMENT CONTROL Clause (I-O-CONTROL Format 2, Indexed and Relative Files) 
  6968.  
  6969.  
  6970. ΓòÉΓòÉΓòÉ 1.107. CORRESPONDING/CORR Menu ΓòÉΓòÉΓòÉ
  6971.  
  6972. Select which occurrence of CORRESPONDING or CORR you want to display: 
  6973.  
  6974.  ADD Statement Format 3 (ADD with CORRESPONDING) 
  6975.  
  6976.  MOVE Statement Format 2 (MOVE with CORRESPONDING) 
  6977.  
  6978.  SUBTRACT Statement Format 3 (SUBTRACT with CORRESPONDING) 
  6979.  
  6980.  
  6981. ΓòÉΓòÉΓòÉ 1.108. CRT Menu ΓòÉΓòÉΓòÉ
  6982.  
  6983. Select which occurrence of CRT you want to display: 
  6984.  
  6985.  CONSOLE IS CRT Clause (SPECIAL-NAMES Paragraph) 
  6986.  
  6987.  CRT STATUS Clause (SPECIAL-NAMES Paragraph) 
  6988.  
  6989.  FROM CRT Phrase (ACCEPT Statement Format 7) 
  6990.  
  6991.  FROM CRT Phrase (DISPLAY Statement Format 3) 
  6992.  
  6993.  
  6994. ΓòÉΓòÉΓòÉ 1.109. DATA Menu ΓòÉΓòÉΓòÉ
  6995.  
  6996. Select which occurrence of DATA you want to display: 
  6997.  
  6998.  Data Division 
  6999.  
  7000.  DATA RECORDS Clause (Formatfile, Database, Disk Files) 
  7001.  
  7002.  DATA RECORDS Clause (Diskette Files) 
  7003.  
  7004.  DATA RECORDS Clause (Tapefile Files) 
  7005.  
  7006.  DATA RECORDS Clause (Printer Files) 
  7007.  
  7008.  DATA RECORDS Clause (Sort/Merge Files) 
  7009.  
  7010.  DATA RECORDS Clause (Transaction Files) 
  7011.  
  7012.  
  7013. ΓòÉΓòÉΓòÉ 1.110. DEBUGGING Menu ΓòÉΓòÉΓòÉ
  7014.  
  7015. Select which occurrence of DEBUGGING you want to display: 
  7016.  
  7017.  DEBUGGING Declarative 
  7018.  
  7019.  DEBUGGING MODE Clause (SOURCE-COMPUTER Paragraph) 
  7020.  
  7021.  
  7022. ΓòÉΓòÉΓòÉ 1.111. DEPENDING Menu ΓòÉΓòÉΓòÉ
  7023.  
  7024. Select which occurrence of DEPENDING you want to display: 
  7025.  
  7026.  Conditional GO TO Statement 
  7027.  
  7028.  OCCURS DEPENDING ON Clause (Variable-Length Tables) 
  7029.  
  7030.  
  7031. ΓòÉΓòÉΓòÉ 1.112. DISPLAY Menu ΓòÉΓòÉΓòÉ
  7032.  
  7033. Select which occurrence of DISPLAY you want to view: 
  7034.  
  7035.  USAGE IS DISPLAY (USAGE Clause) 
  7036.  
  7037.  DISPLAY Statement 
  7038.  
  7039.  
  7040. ΓòÉΓòÉΓòÉ 1.113. DIVISION Menu ΓòÉΓòÉΓòÉ
  7041.  
  7042. Select which occurrence of DIVISION you want to display: 
  7043.  
  7044.  Data Division 
  7045.  
  7046.  Environment Division 
  7047.  
  7048.  Identification Division 
  7049.  
  7050.  Procedure Division 
  7051.  
  7052.  
  7053. ΓòÉΓòÉΓòÉ 1.114. END-ACCEPT Menu ΓòÉΓòÉΓòÉ
  7054.  
  7055. Select which occurrence of END-ACCEPT you want to display: 
  7056.  
  7057.  ACCEPT Statement Format 5 (PIP Data Area) 
  7058.  
  7059.  ACCEPT Statement Format 7 (Workstation I/O) 
  7060.  
  7061.  
  7062. ΓòÉΓòÉΓòÉ 1.115. END-OF-PAGE/EOP Menu ΓòÉΓòÉΓòÉ
  7063.  
  7064. Select which occurrence of END-OF-PAGE or EOP you want to display: 
  7065.  
  7066.  WRITE Statement Format 1 (Sequential Files) 
  7067.  
  7068.  WRITE Statement Format 3 (Formatfile) 
  7069.  
  7070.  
  7071. ΓòÉΓòÉΓòÉ 1.116. EXCEPTION Menu ΓòÉΓòÉΓòÉ
  7072.  
  7073. Select which occurrence of EXCEPTION you want to display: 
  7074.  
  7075.  CALL Statement Format 2 (CALL ON EXCEPTION) 
  7076.  
  7077.  USE AFTER EXCEPTION/ERROR PROCEDURE (USE Compiler-Directing Statement) 
  7078.  
  7079.  
  7080. ΓòÉΓòÉΓòÉ 1.117. EXIT Menu ΓòÉΓòÉΓòÉ
  7081.  
  7082. Select which occurrence of EXIT you want to display: 
  7083.  
  7084.  EXIT Statement 
  7085.  
  7086.  EXIT PROGRAM Statement 
  7087.  
  7088.  
  7089. ΓòÉΓòÉΓòÉ 1.118. EXTERNALLY-DESCRIBED-KEY Menu ΓòÉΓòÉΓòÉ
  7090.  
  7091. Select which occurrence of EXTERNALLY-DESCRIBED-KEY you want to display: 
  7092.  
  7093.  EXTERNALLY-DESCRIBED-KEY (FILE-CONTROL Format 2, Indexed File Entries) 
  7094.  
  7095.  START Statement 
  7096.  
  7097.  
  7098. ΓòÉΓòÉΓòÉ 1.119. FILE Menu ΓòÉΓòÉΓòÉ
  7099.  
  7100. Select which occurrence of FILE you want to display: 
  7101.  
  7102.  FILE SECTION 
  7103.  
  7104.  FILE-CONTROL Paragraph 
  7105.  
  7106.  MULTIPLE FILE TAPE Clause (I-O-CONTROL Paragraph, Sequential Files) 
  7107.  
  7108.  
  7109. ΓòÉΓòÉΓòÉ 1.120. FOREGROUND-COLOR/FOREGROUND-COLOUR Menu ΓòÉΓòÉΓòÉ
  7110.  
  7111. Select which occurrence of FOREGROUND-COLOR or FOREGROUND-COLOUR you want to 
  7112. display: 
  7113.  
  7114.  ACCEPT Statement Format 7 (Workstation I/O) 
  7115.  
  7116.  DISPLAY Statement Format 3 (Workstation I/O) 
  7117.  
  7118.  
  7119. ΓòÉΓòÉΓòÉ 1.121. FORMAT Menu ΓòÉΓòÉΓòÉ
  7120.  
  7121. Select which occurrence of FORMAT you want to display: 
  7122.  
  7123.  DELETE Statement 
  7124.  
  7125.  READ Statement Format 1 (Sequential Retrieval using Sequential Access) 
  7126.  
  7127.  READ Statement Format 2 (Sequential Retrieval using Dynamic Access) 
  7128.  
  7129.  READ Statement Format 3 (Random Retrieval) 
  7130.  
  7131.  READ Statement Format 4 (TRANSACTION Nonsubfile) 
  7132.  
  7133.  READ Statement Format 5 (TRANSACTION Subfile) 
  7134.  
  7135.  REWRITE Statement Format 1 
  7136.  
  7137.  REWRITE Statement Format 2 (TRANSACTION Subfile) 
  7138.  
  7139.  START Statement 
  7140.  
  7141.  WRITE Statement Format 2 (Indexed and Relative Files) 
  7142.  
  7143.  WRITE Statement Format 3 (Formatfile) 
  7144.  
  7145.  WRITE Statement Format 4 (TRANSACTION Nonsubfile) 
  7146.  
  7147.  WRITE Statement Format 5 (TRANSACTION Subfile) 
  7148.  
  7149.  
  7150. ΓòÉΓòÉΓòÉ 1.122. HIGHLIGHT Menu ΓòÉΓòÉΓòÉ
  7151.  
  7152. Select which occurrence of HIGHLIGHT you want to display: 
  7153.  
  7154.  ACCEPT Statement Format 7 (Workstation I/O) 
  7155.  
  7156.  DISPLAY Statement Format 3 (Workstation I/O) 
  7157.  
  7158.  
  7159. ΓòÉΓòÉΓòÉ 1.123. INDEXED Menu ΓòÉΓòÉΓòÉ
  7160.  
  7161. Select which occurrence of INDEXED you want to display: 
  7162.  
  7163.  INDEXED BY Phrase (OCCURS Clause) 
  7164.  
  7165.  ORGANIZATION IS INDEXED Clause (Indexed File Entries) 
  7166.  
  7167.  INDEXED BY Phrase (Data Description Entry Format 4, Boolean Data) 
  7168.  
  7169.  
  7170. ΓòÉΓòÉΓòÉ 1.124. INDIC/INDICATOR/INDICATORS Menu ΓòÉΓòÉΓòÉ
  7171.  
  7172. Select which occurrence of INDIC, INDICATOR, or INDICATORS you want to display: 
  7173.  
  7174.  INDICATOR Clause (Data Description Entry Format 4, Boolean Data) 
  7175.  
  7176.  INDICATOR Clause (READ Statement Format 4, TRANSACTION Nonsubfile) 
  7177.  
  7178.  INDICATOR Clause (READ Statement Format 5, TRANSACTION Subfile) 
  7179.  
  7180.  INDICATOR Clause (REWRITE Statement Format 2, TRANSACTION Subfile) 
  7181.  
  7182.  INDICATOR Clause (WRITE Statement Format 3, Formatfile) 
  7183.  
  7184.  INDICATOR Clause (WRITE Statement Format 4, TRANSACTION Nonsubfile) 
  7185.  
  7186.  INDICATOR Clause (WRITE Statement Format 5, TRANSACTION Subfile) 
  7187.  
  7188.  INDICATOR Attribute (COPY Statement Format 2, DDS Translate) 
  7189.  
  7190.  
  7191. ΓòÉΓòÉΓòÉ 1.125. INVALID Menu ΓòÉΓòÉΓòÉ
  7192.  
  7193. Select which occurrence of INVALID you want to display: 
  7194.  
  7195.  INVALID KEY Phrase (DELETE Statement) 
  7196.  
  7197.  INVALID KEY Phrase (READ Statement, Random Retrieval) 
  7198.  
  7199.  INVALID KEY Phrase (READ Statement, TRANSACTION Subfile) 
  7200.  
  7201.  INVALID KEY Phrase (REWRITE Statement) 
  7202.  
  7203.  INVALID KEY Phrase (REWRITE Statement, TRANSACTION Subfile) 
  7204.  
  7205.  INVALID KEY Phrase (START Statement) 
  7206.  
  7207.  INVALID KEY Phrase (WRITE Statement, Indexed and Relative Files) 
  7208.  
  7209.  INVALID KEY Phrase (WRITE Statement, TRANSACTION Subfile) 
  7210.  
  7211.  
  7212. ΓòÉΓòÉΓòÉ 1.126. KEY Menu ΓòÉΓòÉΓòÉ
  7213.  
  7214. Select which occurrence of KEY you want to display: 
  7215.  
  7216.  RECORD KEY Clause (Indexed File Entries) 
  7217.  
  7218.  RELATIVE KEY Clause (Relative File Entries) 
  7219.  
  7220.  RELATIVE KEY Clause (Transaction File Entries) 
  7221.  
  7222.  ASCENDING/DESCENDING KEY Phrase (OCCURS Clause) 
  7223.  
  7224.  ASCENDING/DESCENDING KEY Phrase (MERGE Statement) 
  7225.  
  7226.  ASCENDING/DESCENDING KEY Phrase (SORT Statement) 
  7227.  
  7228.  INVALID KEY Phrase (DELETE Statement) 
  7229.  
  7230.  INVALID KEY Phrase (READ Statement, Random Retrieval) 
  7231.  
  7232.  INVALID KEY Phrase (READ Statement, TRANSACTION Subfile) 
  7233.  
  7234.  INVALID KEY Phrase (REWRITE Statement) 
  7235.  
  7236.  INVALID KEY Phrase (REWRITE Statement, TRANSACTION Subfile) 
  7237.  
  7238.  INVALID KEY Phrase (START Statement) 
  7239.  
  7240.  INVALID KEY Phrase (WRITE Statement, Indexed and Relative Files) 
  7241.  
  7242.  INVALID KEY Phrase (WRITE Statement, TRANSACTION Subfile) 
  7243.  
  7244.  
  7245. ΓòÉΓòÉΓòÉ 1.127. LABEL Menu ΓòÉΓòÉΓòÉ
  7246.  
  7247. Select which occurrence of LABEL you want to display: 
  7248.  
  7249.  LABEL RECORDS Clause (Formatfile, Database, Disk Files) 
  7250.  
  7251.  LABEL RECORDS Clause (Diskette Files) 
  7252.  
  7253.  LABEL RECORDS Clause (Tapefile Files) 
  7254.  
  7255.  LABEL RECORDS Clause (Printer Files) 
  7256.  
  7257.  LABEL RECORDS Clause (Transaction Files) 
  7258.  
  7259.  
  7260. ΓòÉΓòÉΓòÉ 1.128. LIKE Menu ΓòÉΓòÉΓòÉ
  7261.  
  7262. Select which occurrence of LIKE you want to display: 
  7263.  
  7264.  LIKE Clause (Data Description Entry Format 1, All Data Division Sections) 
  7265.  
  7266.  LIKE Clause (Data Description Entry Format 4, Boolean Data) 
  7267.  
  7268.  
  7269. ΓòÉΓòÉΓòÉ 1.129. NULL Menu ΓòÉΓòÉΓòÉ
  7270.  
  7271. Select which occurrence of NULL you want to display: 
  7272.  
  7273.  NULL Value Clause 
  7274.  
  7275.  SET Statement Format 5 (Pointer Data Item) 
  7276.  
  7277.  
  7278. ΓòÉΓòÉΓòÉ 1.130. ORGANIZATION Menu ΓòÉΓòÉΓòÉ
  7279.  
  7280. Select which occurrence of ORGANIZATION you want to display: 
  7281.  
  7282.  ORGANIZATION IS INDEXED (Indexed File Entries) 
  7283.  
  7284.  ORGANIZATION IS RELATIVE (Relative File Entries) 
  7285.  
  7286.  ORGANIZATION IS SEQUENTIAL (Sequential File Entries) 
  7287.  
  7288.  ORGANIZATION IS TRANSACTION (Transaction File Entries) 
  7289.  
  7290.  
  7291. ΓòÉΓòÉΓòÉ 1.131. PROCEDURE Menu ΓòÉΓòÉΓòÉ
  7292.  
  7293. Select which occurrence of PROCEDURE you want to display: 
  7294.  
  7295.  Procedure Division 
  7296.  
  7297.  USE Compiler-Directing Statement 
  7298.  
  7299.  MERGE Statement 
  7300.  
  7301.  SORT Statement 
  7302.  
  7303.  
  7304. ΓòÉΓòÉΓòÉ 1.132. PROGRAM Menu ΓòÉΓòÉΓòÉ
  7305.  
  7306. Select which occurrence of PROGRAM you want to display: 
  7307.  
  7308.  EXIT PROGRAM Statement 
  7309.  
  7310.  PROGRAM COLLATING SEQUENCE Clause (OBJECT-COMPUTER Paragraph) 
  7311.  
  7312.  
  7313. ΓòÉΓòÉΓòÉ 1.133. RANDOM Menu ΓòÉΓòÉΓòÉ
  7314.  
  7315. Select which occurrence of RANDOM you want to display: 
  7316.  
  7317.  ACCESS IS RANDOM (Indexed File Entries) 
  7318.  
  7319.  ACCESS IS RANDOM (Relative File Entries) 
  7320.  
  7321.  
  7322. ΓòÉΓòÉΓòÉ 1.134. RECORD Menu ΓòÉΓòÉΓòÉ
  7323.  
  7324. Select which occurrence of RECORD you want to display: 
  7325.  
  7326.  RECORD Clause 
  7327.  
  7328.  RECORD KEY Clause (Indexed File Entries) 
  7329.  
  7330.  SAME RECORD AREA Clause (Sequential Files) 
  7331.  
  7332.  SAME RECORD AREA Clause (Indexed and Relative Files) 
  7333.  
  7334.  SAME RECORD AREA Clause (Sort/Merge Files) 
  7335.  
  7336.  DELETE Statement 
  7337.  
  7338.  READ Statement 
  7339.  
  7340.  RETURN Statement 
  7341.  
  7342.  
  7343. ΓòÉΓòÉΓòÉ 1.135. RECORDS Menu ΓòÉΓòÉΓòÉ
  7344.  
  7345. Select which occurrence of RECORDS you want to display: 
  7346.  
  7347.  BLOCK CONTAINS Clause (Formatfile, Database, Disk Files) 
  7348.  
  7349.  BLOCK CONTAINS Clause (Diskette Files) 
  7350.  
  7351.  BLOCK CONTAINS Clause (Tapefile Files) 
  7352.  
  7353.  BLOCK CONTAINS Clause (Printer Files) 
  7354.  
  7355.  DATA RECORDS Clause (Formatfile, Database, Disk Files) 
  7356.  
  7357.  DATA RECORDS Clause (Diskette Files) 
  7358.  
  7359.  DATA RECORDS Clause (Tapefile Files) 
  7360.  
  7361.  DATA RECORDS Clause (Printer Files) 
  7362.  
  7363.  DATA RECORDS Clause (Sort/Merge Files) 
  7364.  
  7365.  DATA RECORDS Clause (Transaction Files) 
  7366.  
  7367.  LABEL RECORDS Clause (Formatfile, Database, Disk Files) 
  7368.  
  7369.  LABEL RECORDS Clause (Diskette Files) 
  7370.  
  7371.  LABEL RECORDS Clause (Tapefile Files) 
  7372.  
  7373.  LABEL RECORDS Clause (Printer Files) 
  7374.  
  7375.  LABEL RECORDS Clause (Transaction Files) 
  7376.  
  7377.  
  7378. ΓòÉΓòÉΓòÉ 1.136. REMAINDER Menu ΓòÉΓòÉΓòÉ
  7379.  
  7380. Select which occurrence of REMAINDER you want to display: 
  7381.  
  7382.  DIVIDE Statement Format 4 (DIVIDE INTO, GIVING, with REMAINDER) 
  7383.  
  7384.  DIVIDE Statement Format 5 (DIVIDE BY, GIVING, with REMAINDER) 
  7385.  
  7386.  
  7387. ΓòÉΓòÉΓòÉ 1.137. REPLACING Menu ΓòÉΓòÉΓòÉ
  7388.  
  7389. Select which occurrence of REPLACING you want to display: 
  7390.  
  7391.  COPY Compiler-Directing Statement 
  7392.  
  7393.  INITIALIZE Statement 
  7394.  
  7395.  INSPECT Statement Format 2 
  7396.  
  7397.  INSPECT Statement Format 3 
  7398.  
  7399.  
  7400. ΓòÉΓòÉΓòÉ 1.138. RERUN Menu ΓòÉΓòÉΓòÉ
  7401.  
  7402. Select which occurrence of RERUN you want to display: 
  7403.  
  7404.  RERUN Clause (I-O-CONTROL Format 1, Sequential Files) 
  7405.  
  7406.  RERUN Clause (I-O-CONTROL Format 2, Indexed and Relative Files) 
  7407.  
  7408.  
  7409. ΓòÉΓòÉΓòÉ 1.139. REVERSE-VIDEO Menu ΓòÉΓòÉΓòÉ
  7410.  
  7411. Select which occurrence of REVERSE-VIDEO you want to display: 
  7412.  
  7413.  ACCEPT Statement Format 7 (Workstation I/O) 
  7414.  
  7415.  DISPLAY Statement Format 3 (Workstation I/O) 
  7416.  
  7417.  
  7418. ΓòÉΓòÉΓòÉ 1.140. REWIND Menu ΓòÉΓòÉΓòÉ
  7419.  
  7420. Select which occurrence of REWIND you want to display: 
  7421.  
  7422.  NO REWIND Clause (CLOSE Statement Format 1, Sequential Files) 
  7423.  
  7424.  NO REWIND Clause (OPEN Statement Format 1, Sequential Files) 
  7425.  
  7426.  
  7427. ΓòÉΓòÉΓòÉ 1.141. SAME Menu ΓòÉΓòÉΓòÉ
  7428.  
  7429. Select which occurrence of SAME you want to display: 
  7430.  
  7431.  SAME AREA Clause (Sequential Files) 
  7432.  
  7433.  SAME AREA Clause (Indexed and Relative Files) 
  7434.  
  7435.  SAME AREA Clause (Sort/Merge Files) 
  7436.  
  7437.  SAME RECORD AREA Clause (Sequential Files) 
  7438.  
  7439.  SAME RECORD AREA Clause (Indexed and Relative Files) 
  7440.  
  7441.  SAME RECORD AREA Clause (Sort/Merge Files) 
  7442.  
  7443.  SAME SORT AREA Clause (Sort/Merge Files) 
  7444.  
  7445.  SAME SORT-MERGE AREA Clause (Sort/Merge Files) 
  7446.  
  7447.  
  7448. ΓòÉΓòÉΓòÉ 1.142. SECTION Menu ΓòÉΓòÉΓòÉ
  7449.  
  7450. Select which occurrence of SECTION you want to display: 
  7451.  
  7452.  Configuration Section 
  7453.  
  7454.  File Section 
  7455.  
  7456.  Input-Output Section 
  7457.  
  7458.  Linkage Section 
  7459.  
  7460.  Working-Storage Section 
  7461.  
  7462.  Procedure Division Format 1 
  7463.  
  7464.  
  7465. ΓòÉΓòÉΓòÉ 1.143. SEQUENTIAL Menu ΓòÉΓòÉΓòÉ
  7466.  
  7467. Select which occurrence of SEQUENTIAL you want to display: 
  7468.  
  7469.  ACCESS IS SEQUENTIAL (Sequential File Entries) 
  7470.  
  7471.  ACCESS IS SEQUENTIAL (Indexed File Entries) 
  7472.  
  7473.  ACCESS IS SEQUENTIAL (Relative File Entries) 
  7474.  
  7475.  ACCESS IS SEQUENTIAL (Transaction File Entries) 
  7476.  
  7477.  ORGANIZATION IS SEQUENTIAL (Sequential File Entries) 
  7478.  
  7479.  
  7480. ΓòÉΓòÉΓòÉ 1.144. SIZE Menu ΓòÉΓòÉΓòÉ
  7481.  
  7482. Select which occurrence of SIZE you want to display: 
  7483.  
  7484.  ACCEPT Statement Format 7 (Workstation I/O) 
  7485.  
  7486.  DISPLAY Statement Format 3 (Workstation I/O) 
  7487.  
  7488.  
  7489. ΓòÉΓòÉΓòÉ 1.145. SORT Menu ΓòÉΓòÉΓòÉ
  7490.  
  7491. Select which occurrence of SORT you want to display: 
  7492.  
  7493.  SAME SORT AREA Clause (Sort/Merge Files) 
  7494.  
  7495.  SORT Statement 
  7496.  
  7497.  
  7498. ΓòÉΓòÉΓòÉ 1.146. SUBFILE Menu ΓòÉΓòÉΓòÉ
  7499.  
  7500. Select which occurrence of END-ACCEPT you want to display: 
  7501.  
  7502.  READ Statement Format 5 (TRANSACTION Subfile) 
  7503.  
  7504.  REWRITE Statement Format 2 (TRANSACTION Subfile) 
  7505.  
  7506.  WRITE Statement Format 5 (TRANSACTION Subfile) 
  7507.  
  7508.  
  7509. ΓòÉΓòÉΓòÉ 1.147. TALLYING Menu ΓòÉΓòÉΓòÉ
  7510.  
  7511. Select which occurrence of TALLYING you want to display: 
  7512.  
  7513.  INSPECT Statement Format 1 (INSPECT TALLYING) 
  7514.  
  7515.  INSPECT Statement Format 3 (INSPECT TALLYING, REPLACING) 
  7516.  
  7517.  UNSTRING Statement 
  7518.  
  7519.  
  7520. ΓòÉΓòÉΓòÉ 1.148. TERMINAL Menu ΓòÉΓòÉΓòÉ
  7521.  
  7522. Select which occurrence of TERMINAL you want to display: 
  7523.  
  7524.  READ Statement Format 4 (TRANSACTION Nonsubfile) 
  7525.  
  7526.  READ Statement Format 5 (TRANSACTION Subfile) 
  7527.  
  7528.  REWRITE Statement Format 2 (TRANSACTION Subfile) 
  7529.  
  7530.  WRITE Statement Format 4 (TRANSACTION Nonsubfile) 
  7531.  
  7532.  WRITE Statement Format 5 (TRANSACTION Subfile) 
  7533.  
  7534.  
  7535. ΓòÉΓòÉΓòÉ 1.149. THROUGH/THRU Menu ΓòÉΓòÉΓòÉ
  7536.  
  7537. Select which occurrence of THROUGH or THRU you want to display: 
  7538.  
  7539.  ALPHABET Clause (SPECIAL-NAMES Paragraph) 
  7540.  
  7541.  RENAMES Clause 
  7542.  
  7543.  Condition-Name VALUE Clause 
  7544.  
  7545.  EVALUATE Statement 
  7546.  
  7547.  MERGE Statement 
  7548.  
  7549.  PERFORM Statement 
  7550.  
  7551.  SORT Statement 
  7552.  
  7553.  
  7554. ΓòÉΓòÉΓòÉ 1.150. UNDERLINE Menu ΓòÉΓòÉΓòÉ
  7555.  
  7556. Select which occurrence of UNDERLINE you want to display: 
  7557.  
  7558.  ACCEPT Statement Format 7 (Workstation I/O) 
  7559.  
  7560.  DISPLAY Statement Format 3 (Workstation I/O) 
  7561.  
  7562.  
  7563. ΓòÉΓòÉΓòÉ 1.151. UPON Menu ΓòÉΓòÉΓòÉ
  7564.  
  7565. Select which occurrence of UPON you want to display: 
  7566.  
  7567.  DISPLAY Statement Format 1 (Data Transfer) 
  7568.  
  7569.  DISPLAY Statement Format 3 (Workstation I/O) 
  7570.  
  7571.  
  7572. ΓòÉΓòÉΓòÉ 1.152. USAGE Menu ΓòÉΓòÉΓòÉ
  7573.  
  7574. Select which occurrence of USAGE you want to display: 
  7575.  
  7576.  USAGE Clause (Data Description Entry Format 1, All Data Division Sections) 
  7577.  
  7578.  USAGE Clause (Data Description Entry Format 4, Boolean Data) 
  7579.  
  7580.  
  7581. ΓòÉΓòÉΓòÉ 1.153. USING Menu ΓòÉΓòÉΓòÉ
  7582.  
  7583. Select which occurrence of USING you want to display: 
  7584.  
  7585.  USING Phrase (Procedure Division Header) 
  7586.  
  7587.  CALL Statement Format 1 (CALL ON OVERFLOW) 
  7588.  
  7589.  CALL Statement Format 2 (CALL ON EXCEPTION) 
  7590.  
  7591.  MERGE Statement 
  7592.  
  7593.  SORT Statement 
  7594.  
  7595.  
  7596. ΓòÉΓòÉΓòÉ 1.154. VALUE Menu ΓòÉΓòÉΓòÉ
  7597.  
  7598. Select which occurrence of VALUE you want to display: 
  7599.  
  7600.  VALUE Clause 
  7601.  
  7602.  VALUE OF Clause (Formatfile, Database, Disk Files) 
  7603.  
  7604.  VALUE OF Clause (Diskette Files) 
  7605.  
  7606.  VALUE OF Clause (Tapefile Files) 
  7607.  
  7608.  VALUE OF Clause (Printer Files) 
  7609.  
  7610.  
  7611. ΓòÉΓòÉΓòÉ 1.155. WHEN Menu ΓòÉΓòÉΓòÉ
  7612.  
  7613. Select which occurrence of WHEN you want to display: 
  7614.  
  7615.  BLANK WHEN ZERO Clause (Data Description Entry Format 1, All Data Division 
  7616.   Sections) 
  7617.  
  7618.  EVALUATE Statement 
  7619.  
  7620.  
  7621. ΓòÉΓòÉΓòÉ 1.156. No Help Available ΓòÉΓòÉΓòÉ
  7622.  
  7623. Help is not directly available from this language element. You can either: 
  7624.  
  7625.  Press Alt+F4 to return to your edit session, and select a related major 
  7626.   keyword, such as a statement keyword or clause keyword, or 
  7627.  
  7628.  Select "Help" from the action bar and then select "Help index" to get a list 
  7629.   of COBOL topics. 
  7630.  
  7631.  
  7632. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7633.  
  7634. The PROGRAM-ID paragraph specifies the name by which the program is known to 
  7635. the system.  It is required and must be the first paragraph in the 
  7636. Identification Division. 
  7637.  
  7638.  
  7639. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7640.  
  7641. Use AUTHOR to specify the name of the author of the program. 
  7642.  
  7643.  
  7644. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7645.  
  7646. Use INSTALLATION to specify the name of the company or location. 
  7647.  
  7648.  
  7649. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7650.  
  7651. Use DATE-WRITTEN to specify the date that the program was written. 
  7652.  
  7653.  
  7654. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7655.  
  7656.  Use DATE-COMPILED to specify the date that the program was compiled. 
  7657.  
  7658.  The paragraph name DATE-COMPILED and any comment-entry associated with it 
  7659.   appear in the output program listing with the current date inserted: 
  7660.  
  7661.   DATE-COMPILED.  04/29/92. 
  7662.  
  7663.  
  7664. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7665.  
  7666. Use SECURITY to specify the level of confidentiality of the program. 
  7667.  
  7668.  
  7669. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7670.  
  7671.  The comment-entry in any of the optional paragraphs may be any combination of 
  7672.   characters from the character set of the computer.  The comment-entry should 
  7673.   be written in Area B on one or more lines. 
  7674.  
  7675.  Comment-entries serve only as documentation; they do not affect the meaning 
  7676.   of the program.  A hyphen in the indicator area (column 7) is not permitted 
  7677.   in comment-entries. 
  7678.  
  7679.  
  7680. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7681.  
  7682. Computer-name represents a system-name.  For example: IBM-AS400. 
  7683.  
  7684.  
  7685. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7686.  
  7687. MEMORY SIZE is the amount of storage needed to run the object program.  The 
  7688. MEMORY SIZE clause is syntax-checked, but has no effect on the execution of the 
  7689. program. 
  7690.  
  7691.  
  7692. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7693.  
  7694. You can express integer in words, characters, or modules. 
  7695.  
  7696.  
  7697. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7698.  
  7699. Alphabet-name represents the collating sequence. 
  7700.  
  7701.  
  7702. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7703.  
  7704. The segment-number is an integer ranging from 1 through 49. 
  7705.  
  7706.  
  7707. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7708.  
  7709. Environment-name-2 is a 1-byte User Programmable Status Indicator (UPSI) 
  7710. switch, defined as UPSI-0 through UPSI-7, or as SYSTEM-SHUTDOWN. 
  7711.  
  7712. UPSI-0 through UPSI-7 represent eight 1-byte program switches.  They are COBOL 
  7713. names that identify program switches defined outside the COBOL program at 
  7714. object time. Their contents are considered alphanumeric. A value of zero is 
  7715. off; a value of one is on. 
  7716.  
  7717. SYSTEM-SHUTDOWN is an internal switch that is set to ON status when the system 
  7718. operator puts the system in a shutdown-pending state or when the job is 
  7719. canceled in a controlled manner.  The associated ON or OFF condition-names can 
  7720. be referenced anywhere a condition-name is valid.  The program cannot alter 
  7721. their status. 
  7722.  
  7723.  
  7724. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7725.  
  7726. Mnemonic-name-1 and mnemonic-name-2 follow the rules of formation for 
  7727. user-defined names.  You can use mnemonic-name-1 in ACCEPT, DISPLAY, and WRITE 
  7728. statements. You can use mnemonic-name-2 only in the SET statement. 
  7729. Mnemonic-name-2 can be used to qualify cond-1 or cond-2 names. 
  7730.  
  7731.  
  7732. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7733.  
  7734. When you specify ON STATUS IS or OFF STATUS IS, UPSI switches process special 
  7735. conditions within a program, such as year-beginning or year-ending processing. 
  7736. For example, at the beginning of the Procedure Division, an UPSI switch can be 
  7737. tested; if it is ON, the special branch is taken. 
  7738.  
  7739.  
  7740. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7741.  
  7742. You can specify assignment-name-1 or literal-1 as a user-defined word or a 
  7743. nonnumeric literal. Any assignment-name or literal after the first is 
  7744. syntax-checked, but has no effect on the execution of the program. 
  7745.  
  7746.  
  7747. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7748.  
  7749. STANDARD-1 specifies the ASCII character set. 
  7750.  
  7751.  
  7752. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7753.  
  7754. STANDARD-2 specifies the International Reference Version of the ISO 7-bit code 
  7755. defined in the International Standard 646, 7-bit Coded Character Set for 
  7756. Information Processing Interchange. 
  7757.  
  7758.  
  7759. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7760.  
  7761. NATIVE specifies the native character code set.  If you omit the alphabet-name 
  7762. clause, EBCDIC is assumed. 
  7763.  
  7764.  
  7765. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7766.  
  7767. EBCDIC specifies the EBCDIC character set. 
  7768.  
  7769.  
  7770. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7771.  
  7772. NLSSORT specifies that the Sort sequence (SRTSEQ) and Language identifier 
  7773. (LANGID) specifications in the compiler options (or implied defaults) are used 
  7774. to determine the character code set used for all nonnumeric comparisons. 
  7775.  
  7776.  
  7777. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7778.  
  7779.  When you specify the ALSO phrase, EBCDIC characters specified as literal-1, 
  7780.   literal-3, etc., are assigned to the same position in this collating 
  7781.   sequence. 
  7782.  
  7783.  Each nonnumeric literal associated with a THROUGH or ALSO phrase must be 1 
  7784.   character in length. 
  7785.  
  7786.  
  7787. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7788.  
  7789. CLASS class-name-1 IS provides a means for relating a name to the specified set 
  7790. of characters listed in that clause.  Class-name-1 can be referenced only in a 
  7791. class condition.  The characters specified by the values of the literals in 
  7792. this clause define the exclusive set of characters of which this class-name-1 
  7793. consists. 
  7794.  
  7795.  
  7796. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7797.  
  7798. When you specify the THROUGH phrase, the contiguous EBCDIC characters beginning 
  7799. with the character specified by literal-1 and ending with the character 
  7800. specified by literal-2 are assigned successively ascending positions in this 
  7801. collating sequence. This sequence may be either ascending or descending within 
  7802. the original EBCDIC sequence. 
  7803.  
  7804.  
  7805. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7806.  
  7807. The CURRENCY SIGN IS clause specifies the currency symbol to be used in the 
  7808. PICTURE clause. 
  7809.  
  7810. When you omit the CURRENCY SIGN clause,  you can use only the dollar sign ($) 
  7811. as the PICTURE symbol for the currency sign. 
  7812.  
  7813.  
  7814. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7815.  
  7816. DECIMAL-POINT IS COMMA exchanges the functions of the period and the comma in 
  7817. PICTURE character strings and in numeric literals. 
  7818.  
  7819.  
  7820. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7821.  
  7822. The CONSOLE IS CRT clause treats any ACCEPT or DISPLAY statement without 
  7823. format-specific phrases (such as LOCAL-DATA or PIP-DATA) as an extended ACCEPT 
  7824. or DISPLAY statement. 
  7825.  
  7826.  
  7827. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7828.  
  7829. The CURSOR IS data-name-1 clause specifies the data item that will contain the 
  7830. cursor address used by the ACCEPT statement. 
  7831.  
  7832.  
  7833. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7834.  
  7835. The CRT STATUS IS data-name-2 clause specifies a data item into which a status 
  7836. value returns after an extended ACCEPT statement. 
  7837.  
  7838.  
  7839. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7840.  
  7841. data-name-2 
  7842.  
  7843. Data-name-2 must be a 6-byte alphanumeric field or a 6-byte unsigned zoned 
  7844. integer, and it must be described in the WORKING-STORAGE SECTION of the 
  7845. program. 
  7846.  
  7847.  
  7848. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7849.  
  7850. The SELECT clause chooses a file in the COBOL program to be associated with an 
  7851. external medium. 
  7852.  
  7853. When file-name specifies a sort or a merge file, only the ASSIGN clause may 
  7854. follow the SELECT clause. 
  7855.  
  7856.  
  7857. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7858.  
  7859. You may specify SELECT OPTIONAL only for files opened in the input, I-O, or 
  7860. extend mode. 
  7861.  
  7862. You must specify SELECT OPTIONAL for those input files that are not necessarily 
  7863. present each time the object program is executed. 
  7864.  
  7865.  
  7866. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7867.  
  7868. File-name must be an FD or SD entry in the Data Division. File-name must 
  7869. conform to the rules for a COBOL user-defined name, must contain at least one 
  7870. alphabetic character, and must be unique within this program. 
  7871.  
  7872. When file-name specifies a sort or a merge file, only the ASSIGN clause may 
  7873. follow the SELECT clause. 
  7874.  
  7875.  
  7876. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7877.  
  7878. Device specifies the type of device that the file will use. The compiler checks 
  7879. whether the file is described and used in a consistent manner. 
  7880.  
  7881.  
  7882. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7883.  
  7884. Device specifies the type of device that the file will use. For TRANSACTION 
  7885. files device must be WORKSTATION. 
  7886.  
  7887.  
  7888. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7889.  
  7890. Attribute can be SI, which indicates that a separate indicator area is 
  7891. specified in the DDS for a FORMATFILE or WORKSTATION file. 
  7892.  
  7893.  
  7894. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7895.  
  7896. The attribute -SI specifies the file level option for a separate indicator 
  7897. area. If you code -SI, then -file-name must refer to a file that has the file 
  7898. level keyword INDARA specified in its DDS. 
  7899.  
  7900.  
  7901. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7902.  
  7903. -file-name is a 1- through 10-character external name of the display file or 
  7904. ICF file specified on the create device file commands CRTDSPF or CRTICFF. 
  7905.  
  7906.  
  7907. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7908.  
  7909. The RESERVE clause reserves input-output areas.  It is syntax-checked, but is 
  7910. treated as documentation. 
  7911.  
  7912.  
  7913. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7914.  
  7915. The ORGANIZATION clause identifies the logical structure of the file. The 
  7916. logical structure is established at the time the file is created and cannot 
  7917. subsequently be changed. 
  7918.  
  7919. If you omit the ORGANIZATION clause, the compiler assumes ORGANIZATION IS 
  7920. SEQUENTIAL. 
  7921.  
  7922. For database files, the ORGANIZATION clause indicates the current program usage 
  7923. of the file in the program.  Therefore, the same database file can use 
  7924. SEQUENTIAL, INDEXED (assuming a keyed sequence access path exists), or RELATIVE 
  7925. in the ORGANIZATION clause. This is true regardless of what other programs that 
  7926. use this file specify. 
  7927.  
  7928.  
  7929. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7930.  
  7931. When you specify the ORGANIZATION IS INDEXED clause, the position of each 
  7932. logical record in the file is determined by the key sequence access path 
  7933. created with the file and maintained by the system. The access path is based on 
  7934. an embedded key within the file's records. 
  7935.  
  7936.  
  7937. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7938.  
  7939. When you specify the ORGANIZATION IS RELATIVE clause, the position of each 
  7940. logical record in the file is determined by its relative record number within 
  7941. the arrival sequence access path. 
  7942.  
  7943.  
  7944. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7945.  
  7946. The ORGANIZATION IS TRANSACTION clause signifies interaction between a COBOL 
  7947. program and either a workstation user or another system. 
  7948.  
  7949.  
  7950. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7951.  
  7952. The ACCESS MODE clause defines the manner in which the records of the file are 
  7953. made available for processing.  If you do not specify the ACCESS MODE clause, 
  7954. sequential access is assumed. 
  7955.  
  7956.  
  7957. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7958.  
  7959.  Sequential-Access Mode allows the reading and writing of records in a serial 
  7960.   manner; the order of reference is determined implicitly by the position of a 
  7961.   record in the file. 
  7962.  
  7963.  In Format 1 (Sequential File Entries), records in the file are accessed in 
  7964.   the sequence established when the file is created or extended. Format 1 
  7965.   supports only sequential access. 
  7966.  
  7967.  
  7968. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7969.  
  7970.  Sequential-Access Mode allows the reading and writing of records in a serial 
  7971.   manner; the order of reference is determined implicitly by the position of a 
  7972.   record in the file. 
  7973.  
  7974.  In Format 2 (Indexed File Entries), records in the files are accessed in the 
  7975.   sequence of ascending record key values according to the collating sequence 
  7976.   of the file. 
  7977.  
  7978.  
  7979. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7980.  
  7981.  When you specify ACCESS IS SEQUENTIAL, the format name contained in the 
  7982.   format name field of the control area specifies which record was accessed. 
  7983.  
  7984.  When you specify ACCESS IS SEQUENTIAL for a TRANSACTION file, do not specify 
  7985.   the RELATIVE KEY data item. 
  7986.  
  7987.  
  7988. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7989.  
  7990.  Random-Access Mode allows the reading and writing of records in a 
  7991.   programmer-specified manner; the control of successive references to the file 
  7992.   is expressed by specifically defined, user-supplied keys. 
  7993.  
  7994.  In Format 2 (Indexed File Entries), the value placed in a record key data 
  7995.   item specifies the record to be accessed. 
  7996.  
  7997.  
  7998. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  7999.  
  8000.  Random-Access Mode allows the reading and writing of records in a 
  8001.   programmer-specified manner; the control of successive references to the file 
  8002.   is expressed by specifically defined, user-supplied keys. 
  8003.  
  8004.  In Format 3 (Relative File Entries), the value placed in a relative key data 
  8005.   item specifies the record to be accessed. 
  8006.  
  8007.  
  8008. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8009.  
  8010.  Dynamic-Access Mode allows a specific input-output to determine the access 
  8011.   mode. Therefore, records may be processed sequentially or randomly. 
  8012.  
  8013.  In Format 2 (Indexed File Entries), records in the file may be accessed 
  8014.   sequentially or randomly, depending on the form of the specific input-output 
  8015.   request. 
  8016.  
  8017.  
  8018. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8019.  
  8020.  Dynamic-Access Mode allows a specific input-output request to determine the 
  8021.   access mode. Therefore, records may be processed sequentially and/or 
  8022.   randomly. 
  8023.  
  8024.  In Format 3 (Relative File Entries), records in the file may be accessed 
  8025.   sequentially or randomly, depending on the form of the specific input-output 
  8026.   request. 
  8027.  
  8028.  
  8029. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8030.  
  8031.  Dynamic-Access Mode allows a specific input-output request to determine the 
  8032.   access mode. Therefore, records may be processed sequentially or randomly. 
  8033.  
  8034.  Random accessing of a TRANSACTION file is only valid if you are performing 
  8035.   subfile processing. For subfile processing, you must specify ACCESS IS 
  8036.   DYNAMIC. 
  8037.  
  8038.  
  8039. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8040.  
  8041. The RELATIVE KEY clause identifies a data-name that specifies the relative 
  8042. record number for a specific logical record within a relative file. 
  8043.  
  8044.  
  8045. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8046.  
  8047. The RELATIVE KEY clause specifies the relative record number for a specific 
  8048. record in a subfile. 
  8049.  
  8050.  
  8051. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8052.  
  8053. Data-name-3 is the RELATIVE KEY data item and you must define it as an unsigned 
  8054. integer. It cannot be scaled.  You must not define the data item in a record 
  8055. description entry associated with the TRANSACTION file. 
  8056.  
  8057.  
  8058. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8059.  
  8060. The RECORD KEY clause specifies the data item within the record that is the 
  8061. record key for an indexed file. Each record in the file must have a unique 
  8062. record key value. 
  8063.  
  8064.  
  8065. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8066.  
  8067. Define data-name-4 as an unsigned integer data item whose description does not 
  8068. contain the PICTURE symbol P.  Do not define data-name-4 in a record 
  8069. description entry associated with this relative file. That is, the RELATIVE KEY 
  8070. is not a part of the record. 
  8071.  
  8072.  
  8073. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8074.  
  8075. The FILE STATUS clause monitors the execution of each input-output operation on 
  8076. the file.  When you specify the FILE STATUS clause, the system moves  a value 
  8077. into the status key data item after each input-output request that explicitly 
  8078. or implicitly refers to this file.  The value indicates the status of execution 
  8079. of the statement. 
  8080.  
  8081.  
  8082. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8083.  
  8084.  You can define the status key data item in the Data Division as either: 
  8085.  
  8086.    - A 2-character alphanumeric item. 
  8087.    - A 2-character numeric data item, with explicit or implicit USAGE IS 
  8088.      DISPLAY. It is treated as an alphanumeric item. 
  8089.  
  8090.  You cannot define data-name-1 in the File Section. 
  8091.  
  8092.  
  8093. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8094.  
  8095.  The CONTROL-AREA clause specifies device-dependent and system-dependent 
  8096.   information used to control input/output operations for TRANSACTION files. 
  8097.  
  8098.  
  8099. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8100.  
  8101.  The RERUN clause specifies that checkpoint records are to be taken.  Subject 
  8102.   to the restrictions given with each phrase, you can specify more than one 
  8103.   RERUN clause. 
  8104.  
  8105.  
  8106. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8107.  
  8108. The MULTIPLE FILE TAPE clause specifies that two or more files share the same 
  8109. physical reel of tape. 
  8110.  
  8111. This clause is syntax-checked, but it has no effect on the running of the 
  8112. program. The function is provided by the system through the CRTTAPF, CHGTAPF, 
  8113. and OVRTAPF CL commands. 
  8114.  
  8115.  
  8116. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8117.  
  8118. Assignment-name-1 can be any user defined word. 
  8119.  
  8120.  
  8121. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8122.  
  8123.  A checkpoint record is to be written for every integer-1 record in 
  8124.   file-name-2 that is processed. 
  8125.  
  8126.  When you specify multiple integer-1 RECORDS phrases, no two of them may 
  8127.   specify the same file-name-2. 
  8128.  
  8129.  
  8130. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8131.  
  8132. The SAME AREA clause specifies that two or more files, that do not represent 
  8133. sort or merge files, are to use the same main storage area during processing. 
  8134.  
  8135. The files named in a SAME AREA clause need not have the same organization or 
  8136. access. 
  8137.  
  8138.  
  8139. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8140.  
  8141. You must specify file-name-3 and file-name-4 in the FILE-CONTROL paragraph of 
  8142. the same program. 
  8143.  
  8144.  
  8145. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8146.  
  8147. You must specify file-name-3 and file-name-4 in the FILE-CONTROL paragraph of 
  8148. the same program. 
  8149.  
  8150.  
  8151. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8152.  
  8153. The SAME SORT-MERGE AREA clause is equivalent to the SAME SORT AREA clause. The 
  8154. SAME SORT-MERGE AREA clause is syntax-checked, but has no effect on the 
  8155. execution of the program. 
  8156.  
  8157. When you specify the SAME SORT-MERGE AREA clause, at least one file-name 
  8158. specified must name a sort or merge file. 
  8159.  
  8160.  
  8161. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8162.  
  8163. The SAME SORT AREA clause is equivalent to the SAME SORT-MERGE AREA clause. 
  8164. The SAME SORT AREA clause is syntax-checked, but has no effect on the execution 
  8165. of the program. 
  8166.  
  8167. When you specify the SAME SORT AREA clause, at least one file-name specified 
  8168. must name a sort file. 
  8169.  
  8170.  
  8171. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8172.  
  8173. File-name-2 must be a sequentially organized file. 
  8174.  
  8175.  
  8176. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8177.  
  8178. A file description entry represents the highest level of organization in the 
  8179. File Section.  It provides information about the physical structure and 
  8180. identification of a file, and gives the record names associated with that file. 
  8181.  
  8182.  
  8183. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8184.  
  8185.  A record description entry is a data description entry (here used to refer to 
  8186.   both data and record description entries) that specifies the characteristics 
  8187.   of a data item. 
  8188.  
  8189.  In the File Section, a record description entry is a set of data description 
  8190.   entries that describe the particular records contained within a file. 
  8191.  
  8192.  You can specify more than one record description entry; each is an 
  8193.   alternative description of the same record storage area. 
  8194.  
  8195.  Data areas described in the File Section are not available for processing 
  8196.   unless the file containing the data area is open. 
  8197.  
  8198.  You can also specify the record description entry for a file by using the 
  8199.   Format 2 COPY statement (DD, DDR, DDS, DDSR option).  This allows the field 
  8200.   descriptions for a file to be exactly as defined in DDS.  Also, programs are 
  8201.   easier to write because you maintain the record format description in one 
  8202.   place. 
  8203.  
  8204.  
  8205. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8206.  
  8207.  A record description entry is a data description entry (here used to refer to 
  8208.   both data and record description entries) that specifies the characteristics 
  8209.   of a data item. 
  8210.  
  8211.  Data entries in the Working-Storage Section that bear a definite hierarchic 
  8212.   relationship to one another must be grouped into records structured by level 
  8213.   number. 
  8214.  
  8215.  
  8216. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8217.  
  8218.  A data item description entry is a data description entry (here used to refer 
  8219.   to both data and record description entries) that specifies the 
  8220.   characteristics of a data item. 
  8221.  
  8222.  Data item description entries are independent items in the Working-Storage 
  8223.   Section that bear no hierarchic relationship to one another and need not be 
  8224.   grouped into records, provided that they do not need to be further 
  8225.   subdivided. Instead, they are classified and defined as independent 
  8226.   elementary items. Each is defined in a separate data item description entry 
  8227.   that begins with either the level number 77 or 01. 
  8228.  
  8229.  
  8230. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8231.  
  8232.  A record description entry is a data description entry (here used to refer to 
  8233.   both data and record description entries) that specifies the characteristics 
  8234.   of a data item. 
  8235.  
  8236.  Record description entries and data item description entries in the Linkage 
  8237.   Section provide names and descriptions, but storage within the program is not 
  8238.   reserved because the data area exists elsewhere. 
  8239.  
  8240.  
  8241. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8242.  
  8243.  A data-item-description entry is a data description entry (here used to refer 
  8244.   to both data and record description entries) that specifies the 
  8245.   characteristics of a data item. 
  8246.  
  8247.  Record description entries and data item description entries in the Linkage 
  8248.   Section provide names and descriptions, but storage within the program is not 
  8249.   reserved because the data area exists elsewhere. 
  8250.  
  8251.  The ADDRESS OF special register exists for each record (01 or 77) in the 
  8252.   Linkage Section, except for those records that redefine each other.  In such 
  8253.   cases, the ADDRESS OF special register is similarly redefined.  The ADDRESS 
  8254.   OF special register is implicitly defined USAGE IS POINTER. 
  8255.  
  8256.  
  8257. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8258.  
  8259. Data-name-1 identifies an alternative grouping of data items. 
  8260.  
  8261. You cannot use data-name-1 as a qualifier; it can be qualified only by the 
  8262. names of level indicator entries or level-01 entries. 
  8263.  
  8264.  
  8265. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8266.  
  8267. Data-name explicitly identifies the data being described. If you specify a 
  8268. data-name, it identifies a data item used in the program.  The data-name must 
  8269. be the first word following the level-number. 
  8270.  
  8271.  
  8272. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8273.  
  8274. FILLER is a data item that is not explicitly referred to in a program.  If you 
  8275. specify FILLER (an optional keyword), it must be the first word following the 
  8276. level-number. 
  8277.  
  8278. If you omit the data-name or the keyword FILLER, the data item being described 
  8279. is treated as though FILLER had been specified. 
  8280.  
  8281.  
  8282. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8283.  
  8284. Integer-2 represents the exact number of occurrences. Integer-2 must be between 
  8285. 1 and 3 000 000 bytes. 
  8286.  
  8287.  
  8288. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8289.  
  8290. Data-name-2 must be the name of the subject entry, or the name of an entry 
  8291. subordinate to the subject entry. 
  8292.  
  8293. If data-name-2 names the subject entry, that entire entry becomes the 
  8294. ASCENDING/DESCENDING KEY, and is the only key that may be specified for this 
  8295. table element. 
  8296.  
  8297. If data-name-2 does not name the subject entry, then data-name-2: 
  8298.  
  8299.  Must be subordinate to the subject of the table entry itself 
  8300.  
  8301.  Must not be subordinate to, or follow, any other entry that contains an 
  8302.   OCCURS clause 
  8303.  
  8304.  Must not contain an OCCURS clause. 
  8305.  
  8306.  
  8307. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8308.  
  8309. The INDEXED BY phrase specifies the indexes that can be used with this table. 
  8310. The INDEXED BY phrase is required if you use indexing to refer to this table 
  8311. element. 
  8312.  
  8313.  
  8314. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8315.  
  8316. Index-name-1 must follow the rules for the formation of user-defined words.  At 
  8317. least 1 character must be alphabetic. 
  8318.  
  8319. Each index-name specifies an index to be created by the compiler for use by the 
  8320. program. These index-names are not data-names and are not identified elsewhere 
  8321. in the COBOL program. Instead, they can be regarded as private special 
  8322. registers for the use of this object program only. As such, they are not data, 
  8323. or part of any data hierarchy.  Each index-name must be unique. 
  8324.  
  8325.  
  8326. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8327.  
  8328. Integer-1 represents the minimum number of occurrences. Integer-1 must be 
  8329. greater than or equal to zero and less than integer-2. 
  8330.  
  8331.  
  8332. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8333.  
  8334. Integer-2 represents the maximum number of occurrences. Integer-2 must be no 
  8335. more than 32 767. 
  8336.  
  8337.  
  8338. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8339.  
  8340. The OCCURS DEPENDING ON clause specifies variable-length tables. 
  8341.  
  8342. The object of the OCCURS DEPENDING ON clause must not occupy any storage 
  8343. position within the range of any table, that is, any storage position from the 
  8344. first character position in the table through the last character position in 
  8345. the table. 
  8346.  
  8347.  
  8348. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8349.  
  8350. Data-name-1 specifies the object of the OCCURS DEPENDING ON clause, that is, 
  8351. the data item whose current value represents the current number of occurrences 
  8352. of the subject item. 
  8353.  
  8354.  
  8355. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8356.  
  8357. Data-name-1, FILLER identifies an alternate description for the same area and 
  8358. is the redefining item or the REDEFINES subject. 
  8359.  
  8360.  
  8361. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8362.  
  8363. Data-name-2 is the redefined item or the REDEFINES object. 
  8364.  
  8365.  
  8366. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8367.  
  8368. FILLER identifies an alternate description for the same area and is the 
  8369. redefining item or the REDEFINES subject. 
  8370.  
  8371. Specifying FILLER does not affect the running of the program; the program runs 
  8372. as though nothing were specified. 
  8373.  
  8374. When you specify the REDEFINES clause, it must immediately follow data-name or 
  8375. FILLER, if either is specified.  If you do not specify data-name or FILLER, the 
  8376. REDEFINES clause must immediately follow the level-number. 
  8377.  
  8378.  
  8379. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8380.  
  8381. Data-name-1 identifies an alternative grouping of data items. 
  8382.  
  8383. A level-66 entry cannot rename a level-01, level-77, level-88, or another 
  8384. level-66 entry. 
  8385.  
  8386.  
  8387. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8388.  
  8389. Data-name-2 and data-name-3 identify the original grouping of elementary data 
  8390. items; that is, they must name elementary or group items within the associated 
  8391. level-01 entry and must not be the same data-name. Both data-names may be 
  8392. qualified. 
  8393.  
  8394. The OCCURS clause must not be specified in the data entries for data-name-2 and 
  8395. data-name-3, or for any group entry to which they are subordinate. 
  8396.  
  8397.  
  8398. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8399.  
  8400. Data-name refers to an elementary item, a group item, or an index-name. 
  8401.  
  8402.  
  8403. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8404.  
  8405. Integer specifies the difference in length between the new and existing items. 
  8406. If a blank or a + precedes the integer, the new item is longer.  If a - 
  8407. precedes the integer, the new item is shorter. 
  8408.  
  8409.  
  8410. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8411.  
  8412. The LEFT phrase specifies that the elementary item is to be positioned so that 
  8413. it will begin at the left character position of the natural boundary in which 
  8414. the elementary item is placed. 
  8415.  
  8416. When specified, the LEFT phrase is syntax checked, but has no effect on the 
  8417. execution of the program. 
  8418.  
  8419.  
  8420. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8421.  
  8422. The RIGHT phrase specifies that the elementary item is to be positioned so that 
  8423. it will terminate at the right character position of the natural boundary in 
  8424. which it has been placed. 
  8425.  
  8426. When specified, the RIGHT phrase is syntax-checked, but has no effect on the 
  8427. execution of the program. 
  8428.  
  8429.  
  8430. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8431.  
  8432. Specify BINARY for binary data items. Such items have a decimal equivalent 
  8433. consisting of the decimal digits 0 through 9, plus a sign. Negative numbers are 
  8434. represented as the two's complement of the positive number with the same 
  8435. absolute value. 
  8436.  
  8437.  
  8438. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8439.  
  8440. Specify the PACKED-DECIMAL clause for internal decimal items. Such items appear 
  8441. in storage in packed decimal format. There are 2 digits for each character 
  8442. position, except for the trailing character position, which is occupied by the 
  8443. low-order digit and the sign. Such an item may contain any of the digits 0 
  8444. through 9, plus a sign, representing a value not exceeding 18 decimal digits. 
  8445.  
  8446.  
  8447. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8448.  
  8449. Specify the COMPUTATIONAL phrase for internal decimal items.  Such an item 
  8450. appears in storage as 2 digits per byte, with the sign contained in the 4 
  8451. rightmost bits of the rightmost byte. An internal decimal item can contain any 
  8452. of the digits 0 through 9 plus a sign. If the PICTURE of an internal decimal 
  8453. item does not contain an S, the sign is occupied by a bit configuration that is 
  8454. interpreted as positive. 
  8455.  
  8456.  
  8457. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8458.  
  8459. COMPUTATIONAL-3 or COMP-3 (internal decimal) is the equivalent of 
  8460. PACKED-DECIMAL. 
  8461.  
  8462.  
  8463. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8464.  
  8465. COMPUTATIONAL-4 or COMP-4 (binary) is the equivalent of BINARY. 
  8466.  
  8467.  
  8468. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8469.  
  8470. DISPLAY specifies that the data item is stored in character form, 1 character 
  8471. for each 8-bit byte. USAGE IS DISPLAY is valid for items that are: 
  8472.  
  8473.  Alphabetic 
  8474.  Alphanumeric 
  8475.  Alphanumeric-edited 
  8476.  Numeric-edited 
  8477.  Boolean 
  8478.  External decimal (numeric) 
  8479.  
  8480.  
  8481. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8482.  
  8483. A data item defined with the INDEX phrase is an index data item. 
  8484.  
  8485. An index data item is a 4-byte elementary item (not necessarily connected with 
  8486. any table) that you can use to save index-name values for future reference. You 
  8487. can use the SET statement to assign an index-name value to an index data item. 
  8488.  
  8489.  
  8490. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8491.  
  8492. A data item defined with the POINTER phrase is a pointer data item. 
  8493.  
  8494. A pointer data item is a 4-byte elementary item that may be used to accomplish 
  8495. limited base addressing. Pointer data items may be compared for equality or 
  8496. moved to other pointer data items. 
  8497.  
  8498. You may only use a pointer data item: 
  8499.  
  8500.  In the USING phrase of a CALL statement or the Procedure Division header 
  8501.  In Format 5 of a SET statement 
  8502.  In a relation condition. 
  8503.  
  8504. The POINTER phrase may be specified for data items with any level number except 
  8505. level 88. 
  8506.  
  8507.  
  8508. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8509.  
  8510. A condition-name is a user-specified name that associates a single value, 
  8511. multiple values, and/or ranges of values with a conditional variable. 
  8512.  
  8513. A conditional variable is a data item that can assume one or more values that 
  8514. can in turn be associated with a condition-name. 
  8515.  
  8516.  
  8517. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8518.  
  8519. When you specify literal-1 alone, the condition-name is associated with a 
  8520. single value. 
  8521.  
  8522.  
  8523. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8524.  
  8525. When you specify THROUGH literal-2, the condition-name is associated with at 
  8526. least one range of values, and literal-1 must be less than literal-2. 
  8527.  
  8528.  
  8529. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8530.  
  8531. Data-name-1 explicitly identifies the data being described. If you specify 
  8532. data-name-1, it identifies a data item used in the program. If specified, 
  8533. data-name-1 must be the first word following the level-number. 
  8534.  
  8535.  
  8536. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8537.  
  8538. FILLER is a data item that is not explicitly referred to in a program.  If you 
  8539. specify FILLER (an optional keyword), it must be the first word following the 
  8540. level-number. 
  8541.  
  8542. If you omit data-name-1 or the keyword FILLER, the data item being described is 
  8543. treated as though FILLER had been specified. 
  8544.  
  8545.  
  8546. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8547.  
  8548. A PICTURE containing a single 1 defines an elementary Boolean data-name. 
  8549.  
  8550.  
  8551. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8552.  
  8553. A single 1 is a character position that contains a Boolean value of B"1" or 
  8554. B"0". Usage must be explicitly or implicitly defined as DISPLAY. 
  8555.  
  8556.  
  8557. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8558.  
  8559. USAGE must be defined implicitly or explicitly as DISPLAY. 
  8560.  
  8561.  
  8562. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8563.  
  8564. Data-name-4 specifies the object of the OCCURS DEPENDING ON clause, that is, 
  8565. the data item whose current value represents the current number of occurrences 
  8566. of the subject item. 
  8567.  
  8568.  
  8569. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8570.  
  8571. If indicator fields are in a separate indicator area, the INDICATOR clause 
  8572. associates an indicator defined in DDS with a Boolean data item. 
  8573.  
  8574. If indicator fields are in the record area, the INDICATOR clause is 
  8575. syntax-checked, but is treated as documentation. 
  8576.  
  8577. You must specify the INDICATOR clause at an elementary level only.  INDICATOR, 
  8578. INDICATORS, and INDIC are equivalent. 
  8579.  
  8580.  
  8581. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8582.  
  8583. Integer-3 must be a value of 1 through 99. 
  8584.  
  8585.  
  8586. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8587.  
  8588. The VALUE clause specifies the initial content of a Boolean data item. 
  8589.  
  8590.  
  8591. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8592.  
  8593. The allowable values for Boolean literals are B"0", B"1", and ZERO. 
  8594.  
  8595.  
  8596. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8597.  
  8598. For a STANDARD file, labels conforming to system specifications exist. 
  8599.  
  8600.  
  8601. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8602.  
  8603. For an OMITTED file, no labels exist. 
  8604.  
  8605.  
  8606. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8607.  
  8608.  The CODE-SET clause specifies the character code used to represent data on 
  8609.   the external media.  When you specify the CODE-SET clause, an alphabet-name 
  8610.   identifies the character code convention used to represent data on the 
  8611.   input-output device. 
  8612.  
  8613.  The CODE-SET clause also specifies the algorithm for converting the character 
  8614.   codes on the input-output medium from/to the internal EBCDIC character set. 
  8615.  
  8616.  When you specify the CODE-SET clause for a file, all data in this file must 
  8617.   have USAGE DISPLAY, and, if signed numeric data is present, it must be 
  8618.   described with the SIGN IS SEPARATE clause. 
  8619.  
  8620.  You can specify the CODE-SET clause for all files with sequential 
  8621.   organization. 
  8622.  
  8623.  
  8624. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8625.  
  8626. You must define alphabet-name-1 in the SPECIAL-NAMES paragraph as: 
  8627.  
  8628.  STANDARD-1 (for ASCII-encoded files) 
  8629.  
  8630.  STANDARD-2 (for ISO 7-bit encoded files) 
  8631.  
  8632.  NATIVE (for EBCDIC-encoded files). 
  8633. When you specify NATIVE, the CODE-SET clause is syntax-checked, but it has no 
  8634. effect on the execution of the program. 
  8635.  
  8636.  
  8637. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8638.  
  8639. The BLOCK CONTAINS clause specifies the size of the physical records. 
  8640.  
  8641. If the records in ther file are not blocked, you may omit the BLOCK CONTAINS 
  8642. clause. Thus, you can omit this clause when each physical record contains only 
  8643. one complete logical record. 
  8644.  
  8645. For diskette files, this clause is syntax-checked only. 
  8646.  
  8647.  
  8648. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8649.  
  8650. Integer-1, integer-2 must be nonzero unsigned integers.  The value of integer-2 
  8651. only specifies the number CHARACTERS or RECORDS. 
  8652.  
  8653. Integer-2 specifies the exact character size of the physical record, and must 
  8654. include any control bytes or padding contained in the physical record. 
  8655. (Logical records do not include padding.) 
  8656.  
  8657. If integer-2 is zero, the system default blocking factor applies. 
  8658.  
  8659.  
  8660. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8661.  
  8662. The CHARACTERS phrase specifies the number of character positions required to 
  8663. store the physical record, independent of the USAGE the characters have within 
  8664. the data record. 
  8665.  
  8666. The CHARACTERS phrase is the default.  You must specify CHARACTERS when the 
  8667. physical record contains padding. 
  8668.  
  8669.  
  8670. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8671.  
  8672. The RECORDS phrase specifies the number of logical records contained in each 
  8673. physical record. 
  8674.  
  8675.  
  8676. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8677.  
  8678. Format 1 of the RECORD CONTAINS clause specifies the number of character 
  8679. positions for fixed-length records. Integer-3 must be an unsigned integer that 
  8680. specifies the number of character positions contained in each record in the 
  8681. file. 
  8682.  
  8683.  
  8684. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8685.  
  8686. Format 2 of the RECORD CONTAINS clause specifies the number of character 
  8687. positions for either fixed- or variable-length records. Integer-4, integer-5 
  8688. must be unsigned integers. Integer-4 specifies the size of the smallest data 
  8689. record, and integer-5 specifies the size of the largest data record. 
  8690.  
  8691.  
  8692. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8693.  
  8694. Format 1 (with integer-4 only) of the RECORD CONTAINS clause specifies the 
  8695. number of character positions for fixed-length records. Integer-4 must be an 
  8696. unsigned integer that specifies the number of character positions contained in 
  8697. each record in the file. 
  8698.  
  8699. Format 2 (with both integer-3 and integer-4) of the RECORD CONTAINS clause 
  8700. specifies the number of character positions for either fixed- or 
  8701. variable-length records. Integer-3, integer-4 must be unsigned integers. 
  8702. Integer-3 specifies the size of the smallest data record, and integer-4 
  8703. specifies the size of the largest data record. 
  8704.  
  8705.  
  8706. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8707.  
  8708. The LABEL RECORDS clause indicates the presence or absence of labels. 
  8709.  
  8710.  
  8711. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8712.  
  8713. The VALUE OF clause describes an item in the label records associated with this 
  8714. file. 
  8715.  
  8716.  
  8717. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8718.  
  8719. Data-name-1 should be qualified when necessary but cannot be subscripted.  You 
  8720. must describe it in the Working-Storage Section but not with the USAGE IS INDEX 
  8721. clause. 
  8722.  
  8723.  
  8724. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8725.  
  8726. Literal-1 may be numeric or nonnumeric, or a figurative constant of category 
  8727. numeric or nonnumeric. 
  8728.  
  8729.  
  8730. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8731.  
  8732. The DATA RECORDS clause is syntax-checked, but it is only documentation for the 
  8733. names of data records associated with this file. 
  8734.  
  8735.  
  8736. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8737.  
  8738. Data-name-2 represents the names of record description entries associated with 
  8739. this file. 
  8740.  
  8741.  
  8742. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8743.  
  8744. All integers must be unsigned, and all data-names must be described as unsigned 
  8745. integer data items. 
  8746.  
  8747. Data-name-3, integer-6 represent the number of lines that can be written and/or 
  8748. spaced on this logical page. The area of the page that these lines represent is 
  8749. called the page body. The value must be greater than zero. 
  8750.  
  8751.  
  8752. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8753.  
  8754. Integer-7 or the value of the data item in data-name-4 specifies the first line 
  8755. number of the footing area within the page body.  The footing line number must 
  8756. be greater than zero, but not greater than the last line of the page body.  The 
  8757. footing area extends between those two lines. 
  8758.  
  8759. All integers must be unsigned integer data items. 
  8760.  
  8761.  
  8762. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8763.  
  8764. Integer-8 or the value of the data item in data-name-5 specifies the number of 
  8765. lines in the top margin of the logical page.  The value can be zero. 
  8766.  
  8767. All integers must be unsigned integer data items. 
  8768.  
  8769.  
  8770. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8771.  
  8772. Integer-9 or the value of the data item in data-name-6 specifies the number of 
  8773. lines in the bottom margin of the logical page.  The value can be zero. 
  8774.  
  8775. All integers must be unsigned integer data items. 
  8776.  
  8777.  
  8778. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8779.  
  8780. The LINAGE clause specifies the depth of a logical page in terms of number of 
  8781. lines.  It also may specify both the line number at which the footing area 
  8782. begins and the top and bottom margins of the logical page. (The logical page 
  8783. and the physical page may not be the same size). 
  8784.  
  8785.  
  8786. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8787.  
  8788. Integer-3 must be an unsigned integer that specifies the number of character 
  8789. positions contained in each record in the file. 
  8790.  
  8791.  
  8792. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8793.  
  8794. Integer-4, integer-5 must be unsigned integers. Integer-4 specifies the size of 
  8795. the smallest data record, and integer-5 specifies the size of the largest data 
  8796. record. 
  8797.  
  8798.  
  8799. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8800.  
  8801. You cannot use data-name-1 as a qualifier. 
  8802.  
  8803.  
  8804. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8805.  
  8806. The CODE-SET clause specifies the character code used to represent data on a 
  8807. magnetic tape file. When you specify CODE-SET, an alphabet-name identifies the 
  8808. character code convention used to represent data on the input-output device. 
  8809.  
  8810. The CODE-SET clause is valid only for magnetic tape files. 
  8811.  
  8812.  
  8813. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8814.  
  8815. File-name must follow the level indicator (FD or SD), and must be the same as 
  8816. that specified in the associated SELECT clause. File-name must adhere to the 
  8817. rules of formation for a user-defined word; at least one character must be 
  8818. alphabetic. File-name must be unique within this program. 
  8819.  
  8820. One or more record description entries must follow file-name. When you specify 
  8821. more than one record description entry, each entry implies a redefinition of 
  8822. the same storage area. 
  8823.  
  8824. The clauses that follow file-name are optional; they may appear in any order. 
  8825.  
  8826.  
  8827. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8828.  
  8829.  Data-name-1 is a user-defined word that names a data item described in a data 
  8830.   description entry. When you use it in the general formats, data-name-1 
  8831.   represents a word that must not be reference-modified, subscripted, or 
  8832.   qualified unless specifically permitted by the rules for the format. 
  8833.  
  8834.  Data items defined in the Linkage Section of the called program may be 
  8835.   referenced within the Procedure Division of that program if, and only if, 
  8836.   they satisfy any of the following conditions: 
  8837.  
  8838.    - They are operands of the USING phrase of the Procedure Division header. 
  8839.  
  8840.    - They are defined with a REDEFINES or RENAMES clause, the object of which 
  8841.      satisfies the above conditions. 
  8842.  
  8843.    - They are items subordinate to any item that satisfies the condition in the 
  8844.      rules above. 
  8845.  
  8846.    - They are condition-names or index-names associated with data items that 
  8847.      satisfies the above conditions. 
  8848.  
  8849.  
  8850. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8851.  
  8852. A user defined word that identifies a section.  A referenced section-name, 
  8853. because it cannot be qualified, must be unique within the program in which it 
  8854. is defined. 
  8855.  
  8856.  
  8857. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8858.  
  8859.  A section-header optionally followed by one or more paragraphs. 
  8860.  
  8861.  Section-header: A section-name followed by the keyword SECTION, optionally 
  8862.   followed by a segment-number, followed by a separator period. 
  8863.  
  8864.  
  8865. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8866.  
  8867.  Segment-number is an integer varying in value from 1 through 49. 
  8868.  
  8869.  
  8870. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8871.  
  8872.  A user-defined word that identifies a paragraph.  A paragraph-name, because 
  8873.   it can be qualified, need not be unique.  Paragraph-name must begin in Area 
  8874.   A. 
  8875.  
  8876.  
  8877. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8878.  
  8879.  End each Declarative Section with another section-name followed by a USE 
  8880.   sentence, or with the keywords END DECLARATIVES. 
  8881.  
  8882.  END DECLARATIVES must begin in Area A and must be followed by a separator 
  8883.   period. No other text may appear on the same line. 
  8884.  
  8885.  
  8886. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8887.  
  8888. Data-name is a user-defined word that names a data item described in a data 
  8889. description entry.  When you use it in the general formats, data-name 
  8890. represents a word that must not be reference-modified, subscripted or qualified 
  8891. unless specifically permitted by the rules for the format. 
  8892.  
  8893.  
  8894. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8895.  
  8896.  Paragraph-name is a user-defined word that identifies a paragraph.  A 
  8897.   paragraph-name, because it can be qualified, need not be unique. 
  8898.  
  8899.  
  8900. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8901.  
  8902. Identifier is the receiving data item. 
  8903.  
  8904.  
  8905. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8906.  
  8907. Mnemonic-name must be associated in the SPECIAL-NAMES paragraph with an 
  8908. input/output device: a workstation (REQUESTOR), or a system operator's message 
  8909. queue (CONSOLE or SYSTEM-CONSOLE). 
  8910.  
  8911.  
  8912. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8913.  
  8914. Environment-name may be specified in place of mnemonic-name. Valid 
  8915. environment-names are CONSOLE and SYSIN. 
  8916.  
  8917.  
  8918. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8919.  
  8920. DATE has the implicit PICTURE 9(6). 
  8921.  
  8922. The sequence of data elements (from left to right) is: 
  8923.  
  8924. 2 digits for year of century 
  8925. 2 digits for month of year 
  8926. 2 digits for day of month 
  8927.  
  8928. Thus 25 December 1991 is expressed as: 
  8929.  
  8930. 911225 
  8931.  
  8932. The conceptual data items DATE, DAY, and TIME implicitly have USAGE DISPLAY. 
  8933. Since they are conceptual items, they cannot be described in the COBOL program. 
  8934.  
  8935.  
  8936. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8937.  
  8938. DAY has the implicit PICTURE 9(5). 
  8939.  
  8940. The sequence of data elements (from left to right) is: 
  8941.  
  8942. 2 digits for year of century 
  8943. 3 digits for day of year 
  8944.  
  8945. Thus 25 December 1991 is expressed as: 
  8946.  
  8947. 91359 
  8948.  
  8949. The conceptual data items DATE, DAY, and TIME implicitly have USAGE DISPLAY. 
  8950. Since they are conceptual items, they cannot be described in the COBOL program. 
  8951.  
  8952.  
  8953. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8954.  
  8955. TIME has the implicit PICTURE 9(8). 
  8956.  
  8957. The sequence of data elements (from left to right) is: 
  8958.  
  8959. 2 digits for hour of day 
  8960. 2 digits for minute of hour 
  8961. 2 digits for second of minute 
  8962. 2 digits for hundredths of second 
  8963.  
  8964. Thus 2:41 P.M. is expressed as: 
  8965.  
  8966. 14410000 
  8967.  
  8968. The conceptual data items DATE, DAY, and TIME implicitly have USAGE DISPLAY. 
  8969. Since they are conceptual items, they cannot be described in the COBOL program. 
  8970.  
  8971.  
  8972. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8973.  
  8974. Identifier is any fixed-length group item or an elementary alphabetic, 
  8975. alphanumeric, or external decimal item. The file must be defined in an FD 
  8976. entry, and must be open prior to the execution of the ACCEPT statement.  If the 
  8977. file is not open, the contents of identifier remain unchanged. 
  8978.  
  8979.  
  8980. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8981.  
  8982. Mnemonic-name must be associated with an environment-name of OPEN-FEEDBACK or 
  8983. I-O-FEEDBACK in the SPECIAL-NAMES paragraph. 
  8984.  
  8985.  
  8986. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8987.  
  8988. File-name, in the FOR phrase, specifies the file from which the feedback 
  8989. information comes. When you do not specify the FOR phrase, the feedback 
  8990. information is from the last file opened or used in an input or output 
  8991. operation. 
  8992.  
  8993.  
  8994. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  8995.  
  8996. Identifier-1 is the receiving data item. 
  8997.  
  8998.  
  8999. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9000.  
  9001. Mnemonic-name must be associated with an environment-name of LOCAL-DATA in the 
  9002. SPECIAL-NAMES paragraph. 
  9003.  
  9004.  
  9005. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9006.  
  9007. When you specify the FOR phrase, it is syntax checked during compilation but 
  9008. treated as a comment during execution. 
  9009.  
  9010.  
  9011. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9012.  
  9013. The value of literal or identifier-2 indicates the program device associated 
  9014. with the local data area. 
  9015.  
  9016. If you specify literal, it must be nonnumeric and 10 characters or less in 
  9017. length. If you specify identifier-2, it must refer to an alphanumeric data 
  9018. item, 10 characters or less in length. 
  9019.  
  9020.  
  9021. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9022.  
  9023. Mnemonic-name must be associated with an environment-name of PIP-DATA in the 
  9024. SPECIAL-NAMES paragraph. 
  9025.  
  9026.  
  9027. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9028.  
  9029. Any imperative statement specified in the ON EXCEPTION phrase is processed if 
  9030. the PIP data area does not exist (the job is not a prestart job). 
  9031.  
  9032. In the absence of the ON EXCEPTION phrase, a run-time message is issued if the 
  9033. PIP data area does not exist. 
  9034.  
  9035.  
  9036. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9037.  
  9038. Any imperative statement specified in the NOT ON EXCEPTION phrase is processed 
  9039. if the PIP data area exists (the job is a prestart job). 
  9040.  
  9041.  
  9042. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9043.  
  9044. Mnemonic-name must be associated with an environment-name of ATTRIBUTE-DATA in 
  9045. the SPECIAL-NAMES paragraph. 
  9046.  
  9047. You can only use the ATTRIBUTE-DATA  mnemonic name to obtain information about 
  9048. a program device acquired by a TRANSACTION file.  Attribute data does not 
  9049. provide information about the status of a completed or attempted I-O operation. 
  9050. Use the Format 3 ACCEPT statement with the I-O-FEEDBACK or OPEN-FEEDBACK 
  9051. mnemonic names to obtain information about I-O operations. 
  9052.  
  9053.  
  9054. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9055.  
  9056. If you omit both FOR phrases: 
  9057.  
  9058.  The default TRANSACTION file is being used, and the ACCEPT statement uses the 
  9059.   program device from which a READ, WRITE, REWRITE, or ACCEPT (Attribute Data) 
  9060.   operation on the default file was most recently performed. 
  9061.  
  9062.  If the only prior operation on the file was an OPEN, the ACCEPT statement 
  9063.   uses the program device implicitly acquired by the file when the file was 
  9064.   opened. 
  9065.  
  9066.  A program device must have been acquired in order to use this format of the 
  9067.   ACCEPT statement. 
  9068.  
  9069.  
  9070. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9071.  
  9072. Literal-1 or the contents of identifier-2 indicates the program device name for 
  9073. which attribute data is made available. 
  9074.  
  9075. If you specify literal-1, it must be nonnumeric and 10 characters or less in 
  9076. length. The contents of identifier-2, if specified, must be an alphanumeric 
  9077. data item 10 characters or less in length. 
  9078.  
  9079.  
  9080. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9081.  
  9082. File-name-1 is the TRANSACTION file with which the interactive device is 
  9083. associated. 
  9084.  
  9085. If file-name-1 is not specified, the default file for the ACCEPT statement is 
  9086. the first TRANSACTION file specified in a SELECT clause of the FILE-CONTROL 
  9087. paragraph. 
  9088.  
  9089.  
  9090. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9091.  
  9092. Identifier-1 is a data item whose value may be updated. 
  9093.  
  9094. Fields accepted or displayed require an attribute byte before and after the 
  9095. field.  For this reason, you cannot use line 1 and column 1 for data because 
  9096. that position is required for the first display attribute. The lowest position 
  9097. that you can use on the screen for data is line 1, column 2. 
  9098.  
  9099.  
  9100. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9101.  
  9102. The AT phrase indicates the absolute address on the screen at which the ACCEPT 
  9103. operation is to start.  If you do not specify the AT phrase, the ACCEPT 
  9104. operation starts at line 1, column 2.  The AT phrase does not indicate the 
  9105. starting position of the initial display attribute. 
  9106.  
  9107.  
  9108. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9109.  
  9110. The LINE phrase specifies the line number at which the screen item starts on 
  9111. the screen. The LINE and COLUMN phrases can appear in any order. 
  9112.  
  9113.  
  9114. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9115.  
  9116. Identifier-2 and integer-1 must be unsigned numeric integers with a value 
  9117. greater than or equal to zero.  If the value for LINE or COLUMN is negative, 
  9118. the absolute value is taken.  Identifier-2 or integer-1 is moved into a PIC 
  9119. 9(3) number. 
  9120.  
  9121.  
  9122. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9123.  
  9124. The COLUMN phrase specifies the column number at which the screen item starts 
  9125. on the screen. The LINE and COLUMN phrases can appear in any order. 
  9126.  
  9127. COL is an abbreviation for COLUMN. 
  9128.  
  9129.  
  9130. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9131.  
  9132. Identifier-3 must be a PIC 9(4) or a PIC 9(6) field. Integer-2 must be a 4- or 
  9133. 6-byte numeric field. If identifier-3 or integer-2 is 4 digits long, the first 
  9134. 2 digits specify the line, and the second 2 digits specify the column.  If 
  9135. identifier-3 or integer-2 is 6 digits long, the first 3 digits specify the 
  9136. line, and the second 3 digits specify the column. 
  9137.  
  9138.  
  9139. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9140.  
  9141. The FROM CRT phrase indicates that the ACCEPT statement is extended. 
  9142.  
  9143.  
  9144. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9145.  
  9146. The MODE IS BLOCK phrase indicates that the identifier is treated as an 
  9147. elementary item; even if it is a group item, it is accepted as one item. 
  9148.  
  9149.  
  9150. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9151.  
  9152. The WITH phrase allows you to specify options for the ACCEPT operation.  If you 
  9153. specify more than one item prior to this phrase, only the item immediately 
  9154. before the phrase is affected by it. 
  9155.  
  9156.  
  9157. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9158.  
  9159. When a field has been filled by operator input, the AUTO phrase automatically 
  9160. steps the cursor to the next input field, rather than waiting for a terminating 
  9161. character to be entered. If the field is the last in a group, AUTO-SKIP acts as 
  9162. if the ENTER key had been pressed. You can use AUTO and AUTO-SKIP 
  9163. interchangeably. 
  9164.  
  9165.  
  9166. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9167.  
  9168. If you specify the BELL phrase, an audible alarm sounds each time the item 
  9169. containing this phrase is accepted. 
  9170.  
  9171. You can use BELL and BEEP interchangeably. 
  9172.  
  9173.  
  9174. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9175.  
  9176. If you specify the BLINK phrase, the screen item blinks when it appears on the 
  9177. screen. 
  9178.  
  9179.  
  9180. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9181.  
  9182. If you specify the FULL phrase, the operator must either leave the screen item 
  9183. completely empty or fill it entirely with data.  The FIELD-EXIT, FIELD+, and 
  9184. FIELD- keys are not allowed.  Any attempt to use the delete key on the data 
  9185. within the input field, followed by the enter key, is also not allowed.  The 
  9186. FULL phrase can be satisfied by data that is initially displayed. 
  9187.  
  9188. If this phrase is specified at a group level, it applies to all suitable 
  9189. subordinate elementary items. 
  9190.  
  9191. The FULL phrase is effective during the execution of any ACCEPT statement. 
  9192.  
  9193. You can use FULL and LENGTH-CHECK interchangeably. 
  9194.  
  9195.  
  9196. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9197.  
  9198. If you specify the HIGHLIGHT phrase, the screen item is in high-intensity mode 
  9199. when it appears on the screen. 
  9200.  
  9201.  
  9202. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9203.  
  9204. Use the REQUIRED phrase to ensure that the field does not remain empty. 
  9205.  
  9206. For alphanumeric items, this means that the field must contain at least one 
  9207. character other then a space or a hexadecimal zero.  For numeric items, the 
  9208. field must contain a value other than zero. 
  9209.  
  9210. If a field remains empty when this phrase is specified, a run-time message will 
  9211. be issued which requires the operator to press the reset key and then re-enter 
  9212. the data. 
  9213.  
  9214. You can use REQUIRED and EMPTY-CHECK interchangeably. 
  9215.  
  9216.  
  9217. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9218.  
  9219. If you specify the REVERSE-VIDEO phrase, the screen item is displayed in 
  9220. reverse image. 
  9221.  
  9222.  
  9223. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9224.  
  9225. The SECURE phrase prevents operator-keyed data from appearing on the screen. 
  9226. You may specify this phrase on a group screen item, in which case it applies to 
  9227. all suitable elementary items which are subordinate to that item.  When you 
  9228. specify the SECURE phrase, only spaces and the cursor appear on the screen. 
  9229.  
  9230. You can use SECURE and NO-ECHO interchangeably. 
  9231.  
  9232.  
  9233. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9234.  
  9235. If you specify the UNDERLINE phrase, the screen item is underlined when it 
  9236. appears on the screen. 
  9237.  
  9238.  
  9239. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9240.  
  9241. If you specify the RIGHT-JUSTIFY phrase, operator-keyed characters are moved on 
  9242. the screen to the rightmost character positions of the field.  Trailing spaces 
  9243. and trailing hexadecimal zeros are removed. 
  9244.  
  9245. This phrase affects only non-edited data items.  It takes effect upon display 
  9246. of the initial data in the data item and also upon termination of the ACCEPT 
  9247. operation.  This is the only way in which numeric data is handled. 
  9248.  
  9249. If you defined the data item with the JUSTIFIED RIGHT clause in the DATA 
  9250. DIVISION, the data item is treated as if you had specified the RIGHT-JUSTIFY 
  9251. phrase. 
  9252.  
  9253.  
  9254. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9255.  
  9256. The SPACE-FILL phrase pertains to non-edited data items, and converts trailing 
  9257. hexadecimal zeros to spaces.  The items appear on the screen with 
  9258. zero-suppression in all character positions.  This takes effect upon display of 
  9259. initial data in the data item and again when the ACCEPT operation into the data 
  9260. item terminates.  This phrase has no affect on edited fields. 
  9261.  
  9262.  
  9263. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9264.  
  9265. If you specify the TRAILING-SIGN phrase, the operational sign appears in the 
  9266. rightmost character position of the field.  This takes effect upon display of 
  9267. initial data in the data item and also upon termination of the ACCEPT 
  9268. operation.  This phrase affects only signed, non-edited numeric data items.  If 
  9269. you do not specify this phrase, the sign precedes the number. 
  9270.  
  9271.  
  9272. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9273.  
  9274. If you specify the UPDATE phrase, the current contents of the data item are 
  9275. displayed before the operator is prompted to key in any new data.  The initial 
  9276. data is then treated as though it were operator-keyed.  If you do not specify 
  9277. the UPDATE phrase, and if the SECURE phrase was not coded, the initial data 
  9278. will be displayed. 
  9279.  
  9280. UPDATE is in effect by default unless you code the SECURE phrase. 
  9281.  
  9282.  
  9283. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9284.  
  9285. If you specify the ZERO-FILL phrase, non-edited items appear on the screen with 
  9286. no zero-suppression.  For left-justified data, trailing spaces and trailing 
  9287. hexadecimal zeros are converted to zeros.  For right-justified data, leading 
  9288. spaces are converted to zeros. This takes effect upon display of initial data 
  9289. in the data item and again when the ACCEPT operation into the data item 
  9290. terminates. It has no affect on edited fields. 
  9291.  
  9292.  
  9293. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9294.  
  9295. This phrase is syntax checked but is treated as documentation by the compiler. 
  9296.  
  9297.  
  9298. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9299.  
  9300. If you specify the ON EXCEPTION phrase, imperative-statement-1 is executed if 
  9301. the ACCEPT operation finishes with anything other than a normal completion 
  9302. (that is, if CRT Status Key 1 is other than zero. 
  9303.  
  9304. Using the ON EXCEPTION phrase does not prevent the generation of a run-time 
  9305. message for such conditions as workstation boundaries or out-of-screen ranges. 
  9306.  
  9307.  
  9308. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9309.  
  9310. If you specify the NOT ON EXCEPTION phrase, imperative-statement-2 is executed 
  9311. if the ACCEPT operation finishes with a normal completion. 
  9312.  
  9313.  
  9314. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9315.  
  9316. The literal or the contents of the identifier specify the program device to be 
  9317. acquired by the specified file. 
  9318.  
  9319. If you specify the literal, it must be nonnumeric and 10 characters in length. 
  9320.  
  9321. If you specify the identifier, it must be an alphnumeric data item 10 
  9322. characters or less in length. 
  9323.  
  9324.  
  9325. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9326.  
  9327. File-name must be the name of a file with an organization of TRANSACTION, and 
  9328. the file must be open when the ACQUIRE statement runs. 
  9329.  
  9330.  
  9331. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9332.  
  9333. In Format 1, identifiers must name elementary numeric items. 
  9334.  
  9335.  
  9336. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9337.  
  9338. Literal-1 must be a numeric literal. 
  9339.  
  9340.  
  9341. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9342.  
  9343. In Format 2, identifiers must name an elementary numeric item, except when 
  9344. following the word GIVING.  Each identifier following the word GIVING  must 
  9345. name an elementary numeric or numeric-edited item. 
  9346.  
  9347.  
  9348. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9349.  
  9350. Literal must be numeric. 
  9351.  
  9352.  
  9353. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9354.  
  9355. If you specify the GIVING phrase, all subsequent identifiers must name an 
  9356. elementary numeric or numeric-edited item. Any data items following the word 
  9357. GIVING are not included in the composite of operands. 
  9358.  
  9359.  
  9360. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9361.  
  9362. The CORRESPONDING phrase (CORR) allows ADD, SUBTRACT, and MOVE operations to be 
  9363. performed on elementary data items of the same name if the group items to which 
  9364. they belong are specified. Both identifiers following the keyword CORRESPONDING 
  9365. must name group items. 
  9366.  
  9367.  
  9368. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9369.  
  9370. In Format 3, identifiers must name a group item. 
  9371.  
  9372.  
  9373. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9374.  
  9375. Procedure-name-1 must name a Procedure Division paragraph that contains only 
  9376. one sentence: a GO TO statement without the DEPENDING ON phrase. 
  9377.  
  9378. The ALTER statement modifies the GO TO statement in the paragraph named by 
  9379. procedure-name-1.  Subsequent executions of the modified GO TO statements 
  9380. transfer control to procedure-name-2. 
  9381.  
  9382.  
  9383. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9384.  
  9385. Procedure-name-2 must name a Procedure Division section or paragraph. 
  9386.  
  9387. The ALTER statement modifies the GO TO statement in the paragraph named by 
  9388. procedure-name-1.  Subsequent executions of the modified GO TO statements 
  9389. transfer control to procedure-name-2. 
  9390.  
  9391.  
  9392. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9393.  
  9394. Identifier-1 must be an alphanumeric data item.  Its contents must follow the 
  9395. rules for formation of a program-name. The first 10 characters of identifier-1 
  9396. are used to associate the calling program with the called subprogram. 
  9397.  
  9398. If you specify identifier-1, the call is classified as a dynamic call because 
  9399. the PROGRAM-ID is resolved at run time each time a call is made. 
  9400.  
  9401.  
  9402. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9403.  
  9404. Literal-1 must be nonnumeric, uppercase, and must follow the rules for 
  9405. formation of a program-name. The first 10 characters of the literal are used to 
  9406. associate the calling program with the called subprogram.  The literal must 
  9407. specify the program-name of the called subprogram. 
  9408.  
  9409. If you specify literal-1, the call is classified as a static call because the 
  9410. PROGRAM-ID is determined at compile time. 
  9411.  
  9412.  
  9413. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9414.  
  9415. The USING phrase makes data items defined in a calling program available to a 
  9416. called subprogram. 
  9417.  
  9418. Include the USING phrase in the CALL statement only if there is a USING phrase 
  9419. in the Procedure Division header of the called subprogram. The number of 
  9420. operands in each USING phrase must be identical. 
  9421.  
  9422. The order of appearance of USING identifiers in both the calling program and 
  9423. the called subprogram determines the relationship of single sets of data 
  9424. available to both programs. The relationship is positional and not by name. 
  9425. Corresponding identifiers must contain the same number of characters, although 
  9426. their data descriptions may be different. 
  9427.  
  9428. Each USING identifier names data items available to the calling program that 
  9429. may be referred to in the called program.  A given identifier may appear more 
  9430. than once. These items are defined in any Data Division section. 
  9431.  
  9432.  
  9433. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9434.  
  9435. You must define identifier-2 as a level-01, level-77, or elementary data item 
  9436. in the File Section, Working-Storage Section or Linkage Section. 
  9437.  
  9438. It can be: 
  9439.  
  9440.  A data item of any level in the Data Division 
  9441.  
  9442.  A pointer data item (an item defined implicitly or explicitly as USAGE IS 
  9443.   POINTER). 
  9444.  
  9445. You can specify up to 30 occurrences of this identifier. 
  9446.  
  9447.  
  9448. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9449.  
  9450. The value of a parameter passed through the BY REFERENCE phrase is evaluated 
  9451. when the CALL statement is executed.  The value is assigned to the 
  9452. corresponding parameter of the called subprogram. The number of characters in 
  9453. each parameter must be equal, however the data descriptions need not be the 
  9454. same. 
  9455.  
  9456. When a COBOL/400 parameter is passed BY REFERENCE, a pointer in the original 
  9457. data item is passed to the called subprogram.  Thus, by changing a parameter in 
  9458. the called subprogram, the data item in the calling program is changed. 
  9459.  
  9460.  
  9461. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9462.  
  9463. The value of a parameter passed through the BY CONTENT phrase is evaluated when 
  9464. the CALL statement is executed.  The value is assigned to the corresponding 
  9465. parameter of the called subprogram. The number of characters in each parameter 
  9466. must be equal, however the data descriptions need not be the same. 
  9467.  
  9468. For each COBOL/400 item passed BY CONTENT, a copy of the item is made in the 
  9469. calling program, and a pointer to this copy is passed to the called subprogram. 
  9470. Thus, any changes made to the parameter in the called subprogram, will not be 
  9471. reflected in the data item of the calling program. 
  9472.  
  9473.  
  9474. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9475.  
  9476. The ADDRESS OF special register exists for each record ( 01 or 77) in the 
  9477. Linkage Section, except for those records that redefine each other. In such 
  9478. cases, the ADDRESS OF special register is similarly redefined. 
  9479.  
  9480. ADDRESS OF special register is implicitly defined USAGE IS POINTER. 
  9481.  
  9482. When a pointer data item is passed in a CALL statement, the item is treated as 
  9483. all other USING items.  That is, a pointer to the pointer data item (or copy of 
  9484. the pointer data item) is passed to the called subprogram. 
  9485.  
  9486.  
  9487. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9488.  
  9489. LENGTH OF creates an implicit special register whose contents equal the current 
  9490. length, in bytes, of the data item referenced by the identifier. 
  9491.  
  9492. In the Procedure Division, you can use the LENGTH OF special register anywhere 
  9493. a numeric data item having the same definition as the implied definition of the 
  9494. LENGTH OF special register is used. It is implicitly defined USAGE IS BINARY, 
  9495. PICTURE 9(9). 
  9496.  
  9497. You can use the LENGTH OF special register in the BY CONTENT phrase of the CALL 
  9498. statement. 
  9499.  
  9500.  
  9501. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9502.  
  9503. Specify literal-2 as any of the following: 
  9504.  
  9505.  A nonnumeric literal 
  9506.  A figurative constant 
  9507.  A Boolean literal 
  9508.  A numeric literal 
  9509.  
  9510.  
  9511. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9512.  
  9513. If you specify the ON OVERFLOW phrase in the CALL statement, control is 
  9514. transferred to imperative-statement-1 when the called subprogram cannot be made 
  9515. available. 
  9516.  
  9517.  
  9518. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9519.  
  9520. File-name-1 must appear in an FD entry.  It passes a pointer data item that 
  9521. refers to a File Information Block (FIB). 
  9522.  
  9523.  
  9524. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9525.  
  9526. An exception condition occurs when the called subprogram cannot be made 
  9527. available. This occurs in one of two ways: 
  9528.  
  9529.  1. If you specify the ON EXCEPTION phrase in the CALL statement, control is 
  9530.     transferred to imperative-statement-1.  Execution then continues according 
  9531.     to the rules for each statement specified in imperative-statement-1. 
  9532.  
  9533.     If a procedure branching or conditional statement that causes explicit 
  9534.     transfer of control is executed, control is transferred in accordance with 
  9535.     the rules for that statement. Otherwise, upon completion of the execution 
  9536.     of imperative-statement-1, control is transferred to the end of the CALL 
  9537.     statement and the NOT ON EXCEPTION phrase, if specified, is ignored. 
  9538.  
  9539.  2. If the ON EXCEPTION phrase is not specified in the CALL statement, the NOT 
  9540.     ON EXCEPTION phrase, if specified, is ignored. 
  9541.  
  9542.  
  9543. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9544.  
  9545. If you specify the NOT ON EXCEPTION phrase in the CALL statement and the called 
  9546. subprogram can be made available (that is, no exception condition exists), 
  9547. control is transferred to the called subprogram. After control returns from the 
  9548. called subprogram, the ON EXCEPTION phrase, if specified, is ignored and 
  9549. control is transferred to the end of the CALL statement or, if the NOT ON 
  9550. EXCEPTION phrase is specified, to imperative-statement-2. 
  9551.  
  9552. If control is transferred to imperative-statement-2, execution continues 
  9553. according to the rules for each statement specified in imperative-statement-2. 
  9554.  
  9555. If a procedure branching or conditional statement that causes explicit transfer 
  9556. of control is executed, control is transferred in accordance with the rules for 
  9557. that statement. Otherwise, upon completion of the execution of 
  9558. imperative-statement-2, control is transferred to the end of the CALL 
  9559. statement. 
  9560.  
  9561. If you specify this phrase and the ON OVERFLOW phrase, an error occurs. 
  9562.  
  9563.  
  9564. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9565.  
  9566. Routine-name is the name of the graphics routine you want to use. 
  9567.  
  9568.  
  9569. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9570.  
  9571. Data-name-1 specifies the parameters necessary to use certain graphics 
  9572. routines. The number of parameters that you must specify varies, depending on 
  9573. which routines you select. When you select a graphics routine, make sure each 
  9574. parameter is the correct size and data type as required by that routine. 
  9575.  
  9576.  
  9577. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9578.  
  9579. Identifier-1 or literal-1 specify the name of the subprogram to be canceled. It 
  9580. must be nonnumeric. The contents must conform to the rules for formation of a 
  9581. program-name. 
  9582.  
  9583. The first 10 characters of the literal or of the contents of the identifier 
  9584. identify the connection between the calling program and the called subprogram. 
  9585.  
  9586. Each literal or contents of the identifier specified in the CANCEL statement 
  9587. must be the same as the literal or contents of the identifier specified in an 
  9588. associated CALL statement. 
  9589.  
  9590.  
  9591. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9592.  
  9593. File-name-1 designates the file upon which the CLOSE statement is to operate. 
  9594. If you specify more than one file-name, the files need not have the same 
  9595. organization or access. 
  9596.  
  9597. File-name-1 must not be a sort or merge file. 
  9598.  
  9599.  
  9600. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9601.  
  9602. Specify the REEL/UNIT phrases for multivolume or single volume tape files. 
  9603.  
  9604. The system always rewinds and unloads the tape when you specify REEL/UNIT on 
  9605. the CLOSE statement. 
  9606.  
  9607. REEL and UNIT are interchangeable. 
  9608.  
  9609.  
  9610. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9611.  
  9612. The FOR REMOVAL phrase is applicable only to tape files. The current volume is 
  9613. rewound and unloaded.  The system is notified that the volume is logically 
  9614. removed from the run unit.  However, the volume can be accessed again after a 
  9615. CLOSE operation without the REEL/UNIT phrase, and an OPEN operation for this 
  9616. file. 
  9617.  
  9618. The system always rewinds and unloads the tape when you specify REEL/UNIT on 
  9619. the CLOSE statement. 
  9620.  
  9621.  
  9622. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9623.  
  9624. The WITH NO REWIND phrase is applicable only to tape files. 
  9625.  
  9626. The current volume is left in its present position.  The reel is not rewound. 
  9627.  
  9628. The system always rewinds and unloads the tape when you specify REEL/UNIT on 
  9629. the CLOSE statement. 
  9630.  
  9631.  
  9632. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9633.  
  9634. The WITH LOCK phrase ensures that the file cannot be reopened during this 
  9635. processing of the program.  The record area associated with the file-name is no 
  9636. longer available after a successful CLOSE operation. 
  9637.  
  9638.  
  9639. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9640.  
  9641. Identifier-1 must name elementary numeric or elementary numeric-edited items. 
  9642.  
  9643.  
  9644. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9645.  
  9646. You must define file-name in an FD entry in the Data Division.  It must be the 
  9647. name of an indexed or relative file. 
  9648.  
  9649.  
  9650. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9651.  
  9652. Use the FORMAT phrase to specify the value containing the name of the record 
  9653. format to use for this I-O operation.  The system uses this to specify or 
  9654. select which record format must be operated on. 
  9655.  
  9656. A value of all blanks is treated as though you did not specify the FORMAT 
  9657. phrase. If the value is not valid for the file, a FILE STATUS of 9K is returned 
  9658. and an EXCEPTION/ERROR procedure is invoked, if applicable, for the file. 
  9659.  
  9660.  
  9661. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9662.  
  9663. Identifier-1 must be a character-string of ten characters or less, and it must 
  9664. be the name of one of the following: 
  9665.  
  9666.  A Working-Storage Section entry 
  9667.  A Linkage Section entry 
  9668.  A record-description entry for a previously opened file. 
  9669.  
  9670.  
  9671. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9672.  
  9673. Literal-1 must be an uppercase character-string of ten characters or less. 
  9674.  
  9675.  
  9676. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9677.  
  9678. Literal-1 may be any figurative constant.  When you specify a figurative 
  9679. constant, only a single occurrence of that figurative constant is displayed. 
  9680.  
  9681. Each numeric literal must be an unsigned integer. Signed noninteger numeric 
  9682. literals are allowed. 
  9683.  
  9684.  
  9685. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9686.  
  9687. The UPON phrase specifies the output device to be used for the DISPLAY 
  9688. statement. The logical record length depends on the device: 
  9689.  
  9690.  The job log = 120 characters 
  9691.  The workstation = 58 characters 
  9692.  The system operator's message queue = 58 characters 
  9693.  
  9694. When you omit the UPON phrase, the DISPLAY statement sends output to the 
  9695. REQUESTOR (workstation). 
  9696.  
  9697.  
  9698. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9699.  
  9700. Mnemonic-name must be associated in the SPECIAL-NAMES paragraph with an 
  9701. input/output device: a workstation (REQUESTOR), or a system operator's message 
  9702. queue (CONSOLE or SYSTEM-CONSOLE). 
  9703.  
  9704.  
  9705. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9706.  
  9707. Environment-name may be specified in place of mnemonic-name. Valid 
  9708. environment-names are CONSOLE and SYSOUT. 
  9709.  
  9710.  
  9711. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9712.  
  9713. The DISPLAY statement's literal operands, or the contents of the DISPLAY 
  9714. statement's identifier operands, are written to the system-defined local data 
  9715. area of the job containing the program that issues the DISPLAY. 
  9716.  
  9717. The data is written to the local data area according to the rules for the MOVE 
  9718. statement for a group move without the CORRESPONDING phrase, and without 
  9719. padding on the right with spaces. 
  9720.  
  9721.  
  9722. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9723.  
  9724. Mnemonic-name must be associated with an environment-name of LOCAL-DATA in the 
  9725. SPECIAL-NAMES paragraph. 
  9726.  
  9727.  
  9728. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9729.  
  9730. When you specify the FOR phrase, it is syntax checked during compilation but 
  9731. treated as a comment during execution. 
  9732.  
  9733.  
  9734. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9735.  
  9736. The value of literal-2 or identifier-2 indicates the program device name of the 
  9737. device that is writing data to the local data area. There is only one local 
  9738. data area for each job, and all devices in a job access the same local data 
  9739. area. 
  9740.  
  9741. If you specify literal-2, it must be nonnumeric and 10 characters or less in 
  9742. length. If you specify identifier-2, it must refer to an alphanumeric data 
  9743. item, 10 characters or less in length. 
  9744.  
  9745.  
  9746. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9747.  
  9748. The AT phrase indicates the absolute address on the screen at which the DISPLAY 
  9749. operation is to start.  If you do not specify the AT phrase, the DISPLAY 
  9750. operation starts at line 1, column 2.  The AT phrase does not indicate the 
  9751. starting position of the leading attribute. 
  9752.  
  9753.  
  9754. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9755.  
  9756. Identifier-2 and integer-1 must be unsigned numeric integers with a value 
  9757. greater than or equal to zero.  If the value for LINE or COLUMN is negative, 
  9758. the absolute value is taken. 
  9759.  
  9760.  
  9761. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9762.  
  9763. Identifier-3 must be a PIC 9(4) or a PIC 9(6) field. Integer-2 must be a 4- or 
  9764. 6-byte numeric field. If identifier-3 or integer-2 is 4 digits long, the first 
  9765. 2 digits specify the line, and the second 2 digits specify the column.  If 
  9766. identifier-3 or integer-2 is 6 digits long, the first 3 digits specify the 
  9767. line, and the second 3 digits specify the column. 
  9768.  
  9769.  
  9770. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9771.  
  9772. The UPON CRT/CRT-UNDER phrase indicates that the DISPLAY statement is extended. 
  9773.  
  9774. CRT-UNDER also underlines the displayed item preceding the UPON CRT-UNDER 
  9775. phrase. 
  9776.  
  9777.  
  9778. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9779.  
  9780. The MODE IS BLOCK phrase indicates that the identifier is treated as an 
  9781. elementary item; even if it is a group item, it is displayed as one item. 
  9782.  
  9783.  
  9784. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9785.  
  9786. The WITH phrase allows you to specify options for the DISPLAY operation.  If 
  9787. you specify more than one item prior to this phrase, only the item immediately 
  9788. before the phrase is affected by it. 
  9789.  
  9790.  
  9791. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9792.  
  9793. If you specify the BELL phrase, an audible alarm sounds each time the item 
  9794. containing this phrase is displayed. 
  9795.  
  9796. You can use BELL and BEEP interchangeably. 
  9797.  
  9798.  
  9799. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9800.  
  9801. BLANK is effective each time the screen item containing the clause displays. 
  9802.  
  9803. BLANK LINE erases from the current cursor position to the end of the current 
  9804. line. BLANK SCREEN erases the entire screen and places the cursor at line 1. 
  9805.  
  9806. The erasing is done before the item is displayed. 
  9807.  
  9808.  
  9809. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9810.  
  9811. The SIZE phrase specifies the size of the data item on the screen. You can use 
  9812. this phrase with elementary data items only. 
  9813.  
  9814. The SIZE phrase has no effect if the size you specify is zero.  In this case, 
  9815. the length of the field is used to display the data item. 
  9816.  
  9817.  
  9818. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9819.  
  9820. Identifier-4 must be an unsigned numeric integer, and must not be subject to an 
  9821. OCCURS clause.  Integer-3 must be unsigned. 
  9822.  
  9823. If identifier-4 has a sign, the compiler uses the absolute value, and issues a 
  9824. warning message. 
  9825.  
  9826.  
  9827. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9828.  
  9829. Identifier-1 and identifier-2 must name an elementary numeric item. 
  9830.  
  9831.  
  9832. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9833.  
  9834. Literal must be a numeric literal. 
  9835.  
  9836.  
  9837. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9838.  
  9839. Identifier-3 must name an elementary numeric or numeric-edited item. 
  9840.  
  9841.  
  9842. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9843.  
  9844. Identifier-3 and identifier-4 must name an elementary numeric or numeric-edited 
  9845. item. 
  9846.  
  9847.  
  9848. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9849.  
  9850. The quotient used to calculate the remainder is in an intermediate field. The 
  9851. value of the intermediate field is truncated rather than rounded. 
  9852.  
  9853.  
  9854. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9855.  
  9856. The result of subtracting the product of the quotient and the divisor from the 
  9857. dividend is stored in identifier-4.  If identifier-3, the quotient, is a 
  9858. numeric-edited item, the quotient used to calculate the remainder is an 
  9859. intermediate field that contains the unedited quotient. 
  9860.  
  9861. Any subscripts for identifier-4 in the REMAINDER phrase are evaluated after the 
  9862. result of the divide operation is stored in identifier-3 of the GIVING phrase. 
  9863.  
  9864.  
  9865. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9866.  
  9867. If a size error occurs in the quotient, no remainder calculation is meaningful. 
  9868. Therefore, the contents of the quotient field (identifier-3) and the remainder 
  9869. field (identifier-4) are unchanged. 
  9870.  
  9871. If a size error occurs in the remainder, the contents of the remainder field 
  9872. (identifier-4) are unchanged. 
  9873.  
  9874. In either of these cases, you must analyze the results to determine which 
  9875. situation has actually occurred. 
  9876.  
  9877. Click here for more information about SIZE ERROR/NOT SIZE ERROR phrases. 
  9878.  
  9879.  
  9880. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9881.  
  9882. Use literal or the contents of the identifier to indicate the program device 
  9883. name of the device to be dropped.  If you specify literal, it must be 
  9884. nonnumeric and 10 characters or less in length.  If you specify identifier, it 
  9885. must refer to an alphanumeric data item, 10 characters or less in length. 
  9886.  
  9887.  
  9888. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9889.  
  9890. File-name must refer to a file with an organization of TRANSACTION, and the 
  9891. file must be open in order to be used in the DROP statement.  If no DROP 
  9892. statement is issued, program devices attached to a TRANSACTION file are 
  9893. implicitly released when that file is finally closed. 
  9894.  
  9895.  
  9896. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9897.  
  9898. Language-name has no defined meaning.  It must follow the rules for formation 
  9899. of a user-defined word.  At least one character must be alphabetic. 
  9900.  
  9901.  
  9902. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9903.  
  9904. Routine-name must follow the rules for formation of a user-defined word and at 
  9905. least one character must be alphabetic. 
  9906.  
  9907.  
  9908. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9909.  
  9910. You can interpret operands before the WHEN phrase in one of two ways, depending 
  9911. on how you specify them: 
  9912.  
  9913.  Individually, they are called selection subjects. 
  9914.  Collectively they are called a set of selection subjects. 
  9915.  
  9916. You can interpret operands in the WHEN phrase in one of two ways, depending on 
  9917. how you specify them: 
  9918.  
  9919.  Individually, they are called selection objects. 
  9920.  Collectively they are called a set of selection objects. 
  9921.  
  9922. Each selection object within a set of selection objects must correspond to the 
  9923. selection subject having the same ordinal position within the set of selection 
  9924. subjects, according to the following rules: 
  9925.  
  9926.  Identifiers, literals, or arithmetic expressions appearing within a selection 
  9927.   object must be valid operands for comparison to the corresponding operand in 
  9928.   the set of selection subjects. 
  9929.  Where identifiers are permitted, they can reference items whose usage is 
  9930.   implicitly or explicitly defined as POINTER. 
  9931.  
  9932.  
  9933. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9934.  
  9935. The ALSO phrase separates selection subjects within a set of selection subjects 
  9936. and separates selection objects within a set of selection objects. 
  9937.  
  9938.  
  9939. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9940.  
  9941. Each selection object within a set of selection objects must correspond to the 
  9942. selection subject having the same ordinal position within the set of selection 
  9943. subjects, according to the following rules: 
  9944.  
  9945.  Condition-1, condition-2, or the word TRUE or FALSE appearing as a selection 
  9946.   object must correspond to a conditional expression or the word TRUE or FALSE 
  9947.   in the set of selection subjects. 
  9948.  
  9949.  Condition-1, and condition-2 may be any form of a conditional expression. 
  9950.  
  9951.  
  9952. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9953.  
  9954. Each selection object within a set of selection objects must correspond to the 
  9955. selection subject having the same ordinal position within the set of selection 
  9956. subjects, according to the following rule: 
  9957.  
  9958. The word ANY may correspond to a selection subject of any type. 
  9959.  
  9960.  
  9961. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9962.  
  9963. Two operands connected by a THROUGH phrase must be of the same class.  The two 
  9964. operands thus connected constitute a single selection object, and the number of 
  9965. selection objects within each set of selection objects must be equal to the 
  9966. number of selection subjects. 
  9967.  
  9968. Each selection object within a set of selection objects must correspond to the 
  9969. selection subject having the same ordinal position within the set of selection 
  9970. subjects, according to the following rule: 
  9971.  
  9972. Identifiers, literals, or arithmetic expressions appearing within a selection 
  9973. object must be valid operands for comparison to the corresponding operand in 
  9974. the set of selection subjects. 
  9975.  
  9976.  
  9977. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  9978.  
  9979. After the comparison operation is completed, execution of the EVALUATE 
  9980. statement proceeds as follows: 
  9981.  
  9982.  If a WHEN phrase is selected, execution continues with the first 
  9983.   imperative-statement-1 following the selected WHEN phrase.  Note that 
  9984.   multiple WHEN statements are allowed for a single imperative-statement-1. 
  9985.  
  9986.  If no WHEN phrase is selected and a WHEN OTHER phrase is specified, execution 
  9987.   continues with imperative-statement-2. 
  9988.  
  9989.  If no WHEN phrase is selected and no WHEN OTHER phrase is specified, 
  9990.   execution continues with the next executable statement following the scope 
  9991.   delimiter. 
  9992.  
  9993.  The scope of execution of the EVALUATE statement is terminated when execution 
  9994.   reaches the end of the scope of the selected WHEN phrase or WHEN OTHER 
  9995.   phrase, or when no WHEN phrase is selected and no WHEN OTHER phrase is 
  9996.   specified. 
  9997.  
  9998.  
  9999. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10000.  
  10001. Procedure-name must name a procedure or a section in the Procedure Division. 
  10002.  
  10003.  
  10004. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10005.  
  10006. Procedure-name-1 must be a procedure or a section in the same Procedure 
  10007. Division as GO TO. 
  10008.  
  10009.  
  10010. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10011.  
  10012. Condition may be any simple or complex condition. 
  10013.  
  10014. There are five simple conditions, which have a truth value of either true or 
  10015. false: 
  10016.  
  10017.  Class condition 
  10018.  Condition-name condition 
  10019.  Relation condition 
  10020.  Sign condition 
  10021.  Switch-status condition 
  10022.  
  10023. A complex condition is formed by combining simple conditions, combined 
  10024. conditions, and/or complex conditions with logical operators, or negating these 
  10025. conditions with logical negation. 
  10026.  
  10027.  
  10028. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10029.  
  10030. Statement-1 and statement-2 can be an imperative statement, a conditional 
  10031. statement, or an imperative statement followed by a conditional statement. 
  10032.  
  10033.  
  10034. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10035.  
  10036. NEXT SENTENCE can be specified with END-IF. 
  10037.  
  10038.  
  10039. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10040.  
  10041. You can omit the ELSE NEXT SENTENCE phrase if it immediately precedes a 
  10042. separator period that ends the IF statement. 
  10043.  
  10044.  
  10045. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10046.  
  10047. Identifier-2 or literal-1 is the sending area. 
  10048.  
  10049.  
  10050. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10051.  
  10052. Identifier-1 is the inspected item and must be an elementary or group item with 
  10053. USAGE DISPLAY. 
  10054.  
  10055.  
  10056. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10057.  
  10058. Identifier-2, the count field, must be an elementary numeric data item defined 
  10059. without the symbol P in its PICTURE character-string. 
  10060.  
  10061. You must initialize identifier-2 before the INSPECT statement is performed. 
  10062.  
  10063.  
  10064. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10065.  
  10066. If you specify CHARACTERS, the count field is increased by 1 for each character 
  10067. (including the space character) in the inspected item. Thus, execution of the 
  10068. INSPECT TALLYING statement increases the value in the count field by the number 
  10069. of characters in the inspected item. 
  10070.  
  10071.  
  10072. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10073.  
  10074. Identifier-4 or literal-2 is the delimiter.  It is not counted or replaced. 
  10075. Instead, it serves as the boundary for the counting and/or replacing of the 
  10076. inspected item. 
  10077.  
  10078. If identifier-4 or literal-2 is a figurative constant, it is considered to be 1 
  10079. character in length. 
  10080.  
  10081.  
  10082. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10083.  
  10084. If you specify ALL, the count field is increased by 1 for each nonoverlapping 
  10085. occurrence in the inspected item, of this tallying operand, beginning at the 
  10086. leftmost character position and continuing to the rightmost. 
  10087.  
  10088.  
  10089. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10090.  
  10091. If you specify LEADING, the count field is increased by 1 for each contiguous 
  10092. nonoverlapping occurrence in the inspected item of this tallying operand, 
  10093. provided that the leftmost such occurrence is at the point where comparison 
  10094. began in the first comparison cycle for which this tallying operand is eligible 
  10095. to participate. 
  10096.  
  10097.  
  10098. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10099.  
  10100. Identifier-3 is the tallying operand. 
  10101.  
  10102. Identifier-3 must be an elementary data item with USAGE DISPLAY. 
  10103.  
  10104. When the tallying operand is a figurative constant, it is considered to be a 
  10105. 1-character nonnumeric literal. 
  10106.  
  10107.  
  10108. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10109.  
  10110. Literal-1 is the tallying field. 
  10111.  
  10112. Literal-1 must be nonnumeric and may be any figurative constant that does not 
  10113. begin with the word ALL.  If literal-1 is a figurative constant, it refers to 
  10114. an implicit 1 character data item. 
  10115.  
  10116.  
  10117. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10118.  
  10119. With the REPLACING phrase, the subject field and the substitution field must be 
  10120. the same length. 
  10121.  
  10122.  
  10123. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10124.  
  10125. If you specify CHARACTERS, the substitution field must be 1 character in 
  10126. length. Each character in the inspected field is replaced by the substitution 
  10127. field, beginning at the leftmost character and continuing to the rightmost. 
  10128.  
  10129.  
  10130. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10131.  
  10132. Identifier-5 is the substitution field. The subject field and the substitution 
  10133. field must be the same length. 
  10134.  
  10135. Identifier-5 must be an elementary data item with USAGE DISPLAY. 
  10136.  
  10137.  
  10138. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10139.  
  10140. Literal-3 is the substitution field. The subject field and the substitution 
  10141. field must be the same length. 
  10142.  
  10143. Literal-3 must be nonnumeric and may be any figurative constant that does not 
  10144. begin with the word ALL. 
  10145.  
  10146.  
  10147. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10148.  
  10149. If you specify ALL, each nonoverlapping occurrence of the subject field in the 
  10150. inspected item is replaced by the substitution field, beginning at the leftmost 
  10151. character and continuing to the rightmost. 
  10152.  
  10153.  
  10154. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10155.  
  10156. If you specify LEADING, each contiguous nonoverlapping occurrence of the 
  10157. subject field in the inspected item is replaced by the substitution field, 
  10158. provided that the leftmost such occurrence is at the point where comparison 
  10159. began in the first comparison cycle for which this substitution field is 
  10160. eligible to participate. 
  10161.  
  10162.  
  10163. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10164.  
  10165. If you specify FIRST, the leftmost occurrence of the subject field in the 
  10166. inspected item is replaced by the substitution field. 
  10167.  
  10168.  
  10169. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10170.  
  10171. Identifier-3 is in the subject field when you specify the REPLACING phrase. 
  10172.  
  10173. Identifier-3 must be an elementary data item with USAGE DISPLAY. 
  10174.  
  10175. The subject field and the substitution field must be the same length. 
  10176.  
  10177.  
  10178. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10179.  
  10180. Literal-1 is in the subject field when you specify the REPLACING phrase. 
  10181.  
  10182. Literal-1 must be nonnumeric and may be any figurative constant that does not 
  10183. refer to the word ALL. If literal-1 is a figurative constant, it refers to an 
  10184. implicit 1 character data item. 
  10185.  
  10186. The subject field and the substitution field must be the same length. 
  10187.  
  10188.  
  10189. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10190.  
  10191. File-name-1 is the name given in the SD entry that describes the records to be 
  10192. merged.  No file-name can be repeated in the MERGE statement. 
  10193.  
  10194.  
  10195. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10196.  
  10197. The ASCENDING/DESCENDING phrase specifies that records are to be processed in 
  10198. an ascending or descending sequence (depending on the phrase specified), based 
  10199. on the identified merge keys. 
  10200.  
  10201. When you specify ASCENDING, the sequence is from the lowest key value to the 
  10202. highest key value. 
  10203.  
  10204.  
  10205. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10206.  
  10207. The ASCENDING/DESCENDING phrase specifies that records are to be processed in 
  10208. an ascending or descending sequence (depending on the phrase specified), based 
  10209. on the identified merge keys. 
  10210.  
  10211. When you specify DESCENDING, the sequence is from the highest key value to the 
  10212. lowest key value. 
  10213.  
  10214.  
  10215. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10216.  
  10217. The COLLATING SEQUENCE phrase specifies the collating sequence to be used in 
  10218. nonnumeric comparisons for the KEY data items in this merge operation. 
  10219.  
  10220. If you omit COLLATING SEQUENCE, the PROGRAM COLLATING SEQUENCE clause (if 
  10221. specified) in the OBJECT-COMPUTER paragraph specifies the collating sequence to 
  10222. be used.  When you omit both the COLLATING SEQUENCE phrase and the PROGRAM 
  10223. COLLATING SEQUENCE clause, the EBCDIC collating sequence is used. 
  10224.  
  10225.  
  10226. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10227.  
  10228. When you specify the USING phrase, all the records in file-name-2 and 
  10229. file-name-3 (the input files) are transferred to file-name-1 during the MERGE 
  10230. operation. When the MERGE statement is executed, these files must not be open; 
  10231. the compiler generates code that opens, reads, and closes the input files 
  10232. automatically. 
  10233.  
  10234. All input files must have sequential, relative, or indexed organization and be 
  10235. described in FD entries in the Data Division.  Their record descriptions must 
  10236. describe records of the same size as the record described in the merge file. 
  10237. If the elementary items that make up these records are not identical, input 
  10238. records must have an equal number of character positions as the merge record. 
  10239.  
  10240.  
  10241. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10242.  
  10243. The OUTPUT PROCEDURE phrase specifies the procedure-names of a procedure that 
  10244. is to select or modify output records from the merge operation.  The OUTPUT 
  10245. PROCEDURE must not contain any SORT or MERGE statements. 
  10246.  
  10247.  
  10248. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10249.  
  10250. Procedure-name-1 specifies the first (or only) section or paragraph in the 
  10251. OUTPUT PROCEDURE. 
  10252.  
  10253.  
  10254. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10255.  
  10256. Procedure-name-2 identifies the last section or paragraph of the OUTPUT 
  10257. PROCEDURE. 
  10258.  
  10259.  
  10260. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10261.  
  10262. When you specify the GIVING phrase, all the merged records in file-name-1 are 
  10263. automatically transferred to the output files (file-name-4).  At the start of 
  10264. the execution of the MERGE statement, the file referenced by file-name-4 must 
  10265. not be open. 
  10266.  
  10267.  
  10268. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10269.  
  10270. File-name-4 represents the output files. 
  10271.  
  10272. When you specify the GIVING phrase, all the merged records in file-name-1 are 
  10273. automatically transferred to the output files (file-name-4). 
  10274.  
  10275. If file-name-1 is a logical database file, the records are added to the end of 
  10276. the file. 
  10277.  
  10278. If file-name-4 references an INDEXED file, then the associated KEY data-name 
  10279. for that file must have an ASCENDING KEY phrase in the MERGE statement.  This 
  10280. same data-name must occupy the identical character positions in its record as 
  10281. the data item associated with the prime record key for the file. 
  10282.  
  10283. If file-name-4 references an RELATIVE file,  the relative key data item for the 
  10284. first record returned contains the value '1' ; for the record returned, the 
  10285. value '2', and so on. After execution of the MERGE statement, the content of 
  10286. the relative kay data item indicates the last record returned to the file. 
  10287.  
  10288. All output files must have a sequential, relative or indexed organization. 
  10289.  
  10290.  
  10291. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10292.  
  10293. Identifier-1 or literal-1 is the sending item. 
  10294.  
  10295. When you specify Format 1, all identifiers may be either group or elementary 
  10296. items. 
  10297.  
  10298. Any length evaluation, subscripting , or reference modification associated with 
  10299. the sending item is evaluated only once, immediately before data is moved into 
  10300. the first of the receiving items. (Click here for information about reference 
  10301. modification.) 
  10302.  
  10303.  
  10304. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10305.  
  10306. Identifier-2 represents the receiving item. When you specify Format 1, all 
  10307. identifiers may be either group or elementary items. 
  10308.  
  10309. Any length evaluation, subscripting , or reference modification associated with 
  10310. a receiving item is evaluated immediately before data is moved into it. (Click 
  10311. here for information about reference modification.) 
  10312.  
  10313.  
  10314. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10315.  
  10316. When you specify CORRESPONDING, selected items in identifier-1 are moved to 
  10317. identifier-2.  The results of moving items in identifier-1 to identifier-2 are 
  10318. the same as if a separate MOVE statement referenced each pair of corresponding 
  10319. identifiers. 
  10320.  
  10321. A pointer data item can be part of a group that is referenced in a MOVE 
  10322. CORRESPONDING statement.  However, the pointer data item will not move. 
  10323.  
  10324.  
  10325. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10326.  
  10327. CORR is an abbreviation for, and equivalent to, CORRESPONDING. 
  10328.  
  10329.  
  10330. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10331.  
  10332. In Format 2, identifier-1 and identifier-2 must be group items. 
  10333.  
  10334.  
  10335. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10336.  
  10337. Identifier-1 and identifier-2 must name an elementary numeric item. 
  10338.  
  10339.  
  10340. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10341.  
  10342. Literal-1 must be numeric. 
  10343.  
  10344.  
  10345. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10346.  
  10347. Literal-2 must be numeric. 
  10348.  
  10349.  
  10350. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10351.  
  10352. Identifier-3 must name an elementary numeric or numeric-edited item. 
  10353.  
  10354.  
  10355. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10356.  
  10357. The INPUT phrase permits opening the file for input operations. The file 
  10358. position indicator is set to the first record in the file.  If no records exist 
  10359. in the file, the file position indicator is set so that processing of the first 
  10360. sequential READ statement results in an AT END condition. 
  10361.  
  10362.  
  10363. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10364.  
  10365. File-name-1, file-name-2, file-name-3, and file-name-4, each designate a file 
  10366. upon which OPEN is to operate. If you specify more than one file, the files do 
  10367. not need to have the same organization or access. Each file-name must be 
  10368. defined in an FD entry in the Data Division, and must not name a sort or merge 
  10369. file. The FD entry must be equivalent to the information supplied when the file 
  10370. was defined. 
  10371.  
  10372.  
  10373. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10374.  
  10375. When you specify REVERSED, the OPEN operation positions the sequential tapefile 
  10376. at the last record in the file.  When you read from an input file that is 
  10377. REVERSED, data records are read sequentially from the last record to the first 
  10378. record. 
  10379.  
  10380. You can use the REVERSED phrase only for sequential tapefiles opened in input 
  10381. mode. 
  10382.  
  10383. The REVERSED phrase is an obsolete element and will be deleted from the next 
  10384. revision of the ANSI Standard. 
  10385.  
  10386.  
  10387. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10388.  
  10389. Normally, the OPEN statement for a tapefile repositions the file so that it is 
  10390. read or written from the beginning.  The NO REWIND phrase indicates that the 
  10391. OPEN operation will not reposition the tapefile. 
  10392.  
  10393. The system keeps track of the current position on the tape and automatically 
  10394. positions the tape to the proper place.  When you process a multifile tape 
  10395. volume, specify the NO REWIND phrase on all CLOSE statements.  When the next 
  10396. file on the volume is opened, the system determines which direction the tape 
  10397. should be moved to most efficiently get to the desired file. 
  10398.  
  10399. You can use the NO REWIND phrase for sequential tapefiles opened in input mode 
  10400. or output mode. 
  10401.  
  10402.  
  10403. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10404.  
  10405. When you specify the OUTPUT phrase, the file is opened to allow only output 
  10406. operations. When the file is successfully opened, it contains no records. 
  10407.  
  10408. If you open a physical file in output mode, all of the records in the file are 
  10409. cleared. 
  10410.  
  10411. If you open a logical file for OUTPUT, no records are cleared.  The file is 
  10412. treated as though you had specified the EXTEND phrase.  To clear a logical 
  10413. file, you must clear all of the members on which the logical file is based. 
  10414.  
  10415.  
  10416. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10417.  
  10418. When you specify the I-O phrase, the file is opened to allow both input and 
  10419. output operations. The file position indicator is set to the first record in 
  10420. the file.  If no records exist in the file, the file position indicator is set 
  10421. so that processing of the first sequential READ statement results in an AT END 
  10422. condition. 
  10423.  
  10424.  
  10425. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10426.  
  10427. When you specify the EXTEND phrase, the sequential file is opened to allow you 
  10428. to add records immediately following the last record in the file. 
  10429.  
  10430. When you create a sequential file, you can open the file in extend mode. 
  10431.  
  10432. The EXTEND phrase is not allowed for files for which the LINAGE clause has been 
  10433. specified. 
  10434.  
  10435.  
  10436. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10437.  
  10438. File-name designates a file upon which OPEN is to operate. If you specify more 
  10439. than one file, the files do not need to have the same organization or access. 
  10440. Each file-name must be defined in an FD entry in the Data Division, and must 
  10441. not name a sort or merge file. The FD entry must be equivalent to the 
  10442. information supplied when the file was defined. 
  10443.  
  10444.  
  10445. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10446.  
  10447. Procedure-name-1, procedure-name-2 must name a section or paragraph in the 
  10448. Procedure Division. 
  10449.  
  10450. When you specify both procedure-name-1 and procedure-name-2, if either is a 
  10451. procedure-name in a declarative procedure, both must be procedure-names in the 
  10452. same declarative procedure. 
  10453.  
  10454. If you specify procedure-name-1, you must not specify imperative-statement and 
  10455. the END-PERFORM phrase. 
  10456.  
  10457. If you omit procedure-name-1, you must specify imperative-statement and the 
  10458. END-PERFORM phrase. 
  10459.  
  10460.  
  10461. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10462.  
  10463. Imperative-statement represents the statements to be executed for an in-line 
  10464. PERFORM statement. 
  10465.  
  10466.  
  10467. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10468.  
  10469. Identifier-1 must name an integer item.  If it is zero or negative when the 
  10470. PERFORM statement is initiated, control passes to the statement following the 
  10471. PERFORM statement. 
  10472.  
  10473. After the PERFORM statement has been initiated, any change to identifier-1 has 
  10474. no effect in varying the number of times the procedures are initiated. 
  10475.  
  10476.  
  10477. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10478.  
  10479. Integer-1 must be a positive signed integer. 
  10480.  
  10481.  
  10482. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10483.  
  10484. Condition-1 may be any type of condition (simple, complex, class...). If the 
  10485. condition is true when the PERFORM statement is initiated, the specified 
  10486. procedures are not executed. 
  10487.  
  10488. Any subscripting associated with the operands specified in condition-1 is 
  10489. evaluated each time the condition is tested. 
  10490.  
  10491.  
  10492. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10493.  
  10494. If the TEST BEFORE phrase is specified or assumed, the condition is tested 
  10495. before any statements are executed (corresponds to DO WHILE). 
  10496.  
  10497. If the condition is true, control is transferred to the next executable 
  10498. statement following the end of the PERFORM statement. If you do not specify the 
  10499. TEST BEFORE or the TEST AFTER phrase, the TEST BEFORE phrase is assumed. 
  10500.  
  10501.  
  10502. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10503.  
  10504. If the TEST AFTER phrase is specified, the statements to be performed are 
  10505. executed at least once before the condition is tested (corresponds to DO 
  10506. UNTIL). 
  10507.  
  10508. If the condition is true, control is transferred to the next executable 
  10509. statement following the end of the PERFORM statement. If you do not specify the 
  10510. TEST BEFORE or the TEST AFTER phrase, the TEST BEFORE phrase is assumed. 
  10511.  
  10512.  
  10513. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10514.  
  10515. When you specify TEST BEFORE, all specified conditions are tested before the 
  10516. first execution, and the statements to be performed are executed only when all 
  10517. specified tests fail. 
  10518.  
  10519. If you do not specify the TEST BEFORE or the TEST AFTER phrase, the TEST BEFORE 
  10520. phrase is assumed. 
  10521.  
  10522.  
  10523. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10524.  
  10525. When you specify TEST AFTER, the statements to be performed are executed at 
  10526. least once, before any condition is tested. 
  10527.  
  10528. If you do not specify the TEST BEFORE or the TEST AFTER phrase, the TEST BEFORE 
  10529. phrase is assumed. 
  10530.  
  10531.  
  10532. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10533.  
  10534. Identifier-2 thru 7 must name an integer data item. 
  10535.  
  10536.  
  10537. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10538.  
  10539. Literal-1 thru 4 must represent a numeric literal. 
  10540.  
  10541.  
  10542. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10543.  
  10544. Condition-1 and condition-2 may be any conditional expression. If the condition 
  10545. is true at the time the PERFORM statement is initiated, the specified 
  10546. procedures are not executed. 
  10547.  
  10548. After the conditions specified in the UNTIL phrase are satisfied, control is 
  10549. passed to the next executable statement following the PERFORM statement. 
  10550.  
  10551. If any of the operands specified in condition-1 or condition-2 is subscripted, 
  10552. the subscript is evaluated each time the condition is tested. 
  10553.  
  10554.  
  10555. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10556.  
  10557. File-name must be defined in a Data Division FD entry, and must not name a sort 
  10558. or merge file.  If more than one record-description entry is associated with 
  10559. file-name, these records automatically share the same storage area.  That is, 
  10560. they are implicitly redefined. 
  10561.  
  10562.  
  10563. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10564.  
  10565. When you specify the INTO phrase, the current record moves from the input area 
  10566. to the identifier area according to the rules for the MOVE statement without 
  10567. the CORRESPONDING phrase.  Any subscripting, indexing, or reference 
  10568. modification associated with the identifier is evaluated after the record has 
  10569. been read and immediately before it is transferred to the identifier. (Click 
  10570. here for information about reference modification.) 
  10571.  
  10572. You can specify the INTO phrase if: 
  10573.  
  10574.  Only one record description is subordinate to the file description entry, or, 
  10575.  
  10576.  All record-names associated with file-name, and the data item referenced by 
  10577.   identifier-1, describe a group item, a numeric-edited item, or an elementary 
  10578.   alphanumeric item. 
  10579.  
  10580. You cannot specify the INTO phrase when the file contains records of various 
  10581. sizes, as indicated by their record descriptions.  The storage area associated 
  10582. with the identifier and the record area associated with the file-name cannot be 
  10583. the same storage area. 
  10584.  
  10585.  
  10586. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10587.  
  10588. Identifier-1 refers to a data item described as a group item, a numeric-edited 
  10589. item, or an elementary alphanumeric item. 
  10590.  
  10591.  
  10592. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10593.  
  10594. The NO LOCK phrase prevents the READ operation from obtaining record locks on 
  10595. files that you open in I-O (update) mode.  A READ statement with this phrase 
  10596. also releases records that have been locked by a previous READ operation. 
  10597.  
  10598. If you use this phrase for a file that is not open in I-O mode, you receive an 
  10599. error message. 
  10600.  
  10601.  
  10602. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10603.  
  10604. The value specified in the FORMAT phrase contains the name of the record format 
  10605. to use for this I-O operation.  The system uses this to specify or select which 
  10606. record format to operate on. 
  10607.  
  10608.  
  10609. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10610.  
  10611. Literal-1 or identifier-2 specifies the name of the record format to be read. 
  10612. If you specify literal-1 it must be nonnumeric, uppercase, and 10 characters or 
  10613. less in length. If you specify identifier-2, it must refer to an alphanumeric 
  10614. data item, 10 characters or less in length.  If identifier-2 contains blanks, 
  10615. the READ statement runs as if the FORMAT phrase were omitted. 
  10616.  
  10617.  
  10618. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10619.  
  10620. The AT END phrase serves to explicitly delimit the scope of the READ statement. 
  10621. The imperative statement is executed when the AT END condition is detected. 
  10622. Any EXCEPTION/ERROR procedure for the file is not run. If the AT END phrase is 
  10623. not specified, any EXCEPTION/ERROR procedure for the file is run.  Return from 
  10624. that procedure is to the next executable statement following the end of the 
  10625. READ statement. 
  10626.  
  10627.  
  10628. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10629.  
  10630. The NOT AT END phrase transfers control to the imperative statement upon 
  10631. successful completion of the READ operation.  The imperative statement 
  10632. specifies procedures that will be performed when the AT END condition does not 
  10633. exist. 
  10634.  
  10635.  
  10636. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10637.  
  10638. For a dynamic access READ NEXT statement, the file position indicator is 
  10639. positioned to point to the next record in the file.  That record is then made 
  10640. available. 
  10641.  
  10642. This applies to sequential retrieval from disk and database files, with either 
  10643. relative or indexed organization. 
  10644.  
  10645. If you omit NEXT, a random access read is done. 
  10646.  
  10647.  
  10648. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10649.  
  10650. For a dynamic access READ FIRST statement, the file position indicator is 
  10651. positioned to point to the first record in the file.  That record is then made 
  10652. available. 
  10653.  
  10654. This applies to sequential retrieval from a database file with indexed 
  10655. organization. 
  10656.  
  10657. If you omit FIRST, a random access read is done. 
  10658.  
  10659.  
  10660. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10661.  
  10662. For a dynamic access READ LAST statement, the file position indicator is 
  10663. positioned to point to the last record in the file.  That record is then made 
  10664. available. 
  10665.  
  10666. This applies to sequential retrieval from a database file with indexed 
  10667. organization. 
  10668.  
  10669. If you omit LAST, a random access read is done. 
  10670.  
  10671.  
  10672. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10673.  
  10674. For a dynamic access READ PRIOR statement, the file position indicator is 
  10675. positioned to point to the previous existing record in the file.  That record 
  10676. is then made available. 
  10677.  
  10678. This applies to sequential retrieval from a database file with indexed 
  10679. organization. 
  10680.  
  10681. If you omit PRIOR, a random access read is done. 
  10682.  
  10683.  
  10684. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10685.  
  10686. The KEY IS phrase may be specified only for indexed files. 
  10687.  
  10688. The KEY IS phrase is syntax checked only and has no effect on the operation of 
  10689. the READ statement. 
  10690.  
  10691.  
  10692. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10693.  
  10694. Data-name-1 must identify a record key associated with file-name. Data--name-1 
  10695. may be qualified but it may not be subscripted. 
  10696.  
  10697.  
  10698. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10699.  
  10700. The INVALID KEY phrase must be specified for files for which there is not an 
  10701. appropriate EXCEPTION/ERROR procedure. 
  10702.  
  10703. Click here for further information about the invalid key condition. 
  10704.  
  10705.  
  10706. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10707.  
  10708. After successful completion of a READ statement with the NOT INVALID KEY 
  10709. phrase, control transfers to the imperative statement associated with the 
  10710. phrase. 
  10711.  
  10712.  
  10713. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10714.  
  10715. The TERMINAL phrase specifies the program device from which the data record is 
  10716. made available.  The program device must have been acquired before the READ 
  10717. operation.  For a single device file, the TERMINAL phrase can be omitted.  The 
  10718. program device is assumed to be that single device.  If the TERMINAL phrase is 
  10719. omitted for a READ of a TRANSACTION file that has acquired multiple program 
  10720. devices, the default program device is used. 
  10721.  
  10722.  
  10723. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10724.  
  10725. Literal-2 or identifier-3 specifies the program device name.  If you specify 
  10726. literal-2, it must be nonnumeric and 10 characters or less in length.  If you 
  10727. specify identifier-3, it must refer to an alphanumeric data item 10 characters 
  10728. or less in length. If identifier-3 contains blanks, the READ statement executes 
  10729. as if the TERMINAL phrase had been omitted. 
  10730.  
  10731.  
  10732. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10733.  
  10734. The INDICATOR phrase specifies which indicators are to be read.  When a data 
  10735. record is read, indicators can be read with it.  The indicators can be used to 
  10736. pass information about the data record and how it was entered into the program. 
  10737. INDICATOR, INDICATORS, and INDIC are equivalent. 
  10738.  
  10739.  
  10740. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10741.  
  10742. Identifier-4 must be either an elementary Boolean data item specified without 
  10743. the OCCURS clause, or a group item that has elementary Boolean data items 
  10744. subordinate to it. 
  10745.  
  10746.  
  10747. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10748.  
  10749. When you specify the NO DATA phrase, the READ statement will determine whether 
  10750. data is immediately available.  If data is available, the data is returned in 
  10751. the record area.  If no data is immediately available, imperative-statement-1 
  10752. is executed.  The NO DATA phrase prevents the READ statement from waiting for 
  10753. data to become available. 
  10754.  
  10755.  
  10756. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10757.  
  10758. When you specify the SUBFILE phrase, it indicates that all formats referenced 
  10759. by the statement are subfiles. When you do not specify SUBFILE in a TRANSACTION 
  10760. I/O statement, it indicates that none of the formats referenced by the 
  10761. statement are subfiles. 
  10762.  
  10763. When SUBFILE is specified, a RELATIVE KEY data item must be defined for the 
  10764. file.  Its value is referenced, and sometimes changed, by the I/O operation. 
  10765.  
  10766. When SUBFILE is not specified, the RELATIVE KEY data item associated with the 
  10767. file, if specified, is not referenced or changed by the I/O operation. 
  10768.  
  10769. You can specify the SUBFILE phrase only for display files. 
  10770.  
  10771.  
  10772. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10773.  
  10774. If you specify the FORMAT phrase, literal-1 or the contents of identifier-2 
  10775. must specify a format which is active for the appropriate program device.  The 
  10776. READ statement reads a data record of the specified format. 
  10777.  
  10778. When a format-name is not specified, the format used is the last record format 
  10779. written to the display device that contains input fields, input/output fields, 
  10780. or hidden fields.  If no such format exists for the display file, the format 
  10781. used is the record format of the last WRITE operation to the display device. 
  10782.  
  10783. To ensure correct results, always specify the FORMAT phrase for multiple format 
  10784. files. 
  10785.  
  10786.  
  10787. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10788.  
  10789. The TERMINAL phrase specifies the program device from which the data record is 
  10790. made available.  The program device must have been acquired before the READ 
  10791. operation.  For a single device file, the TERMINAL phrase can be omitted.  The 
  10792. program device is assumed to be that single device.  If the TERMINAL phrase is 
  10793. omitted for a READ of a TRANSACTION file that has acquired multiple program 
  10794. devices, the default program device is used. 
  10795.  
  10796. If the TERMINAL phrase is omitted for a file that has multiple devices acquired 
  10797. for it, a record is read from the subfile associated with the default program 
  10798. device. 
  10799.  
  10800.  
  10801. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10802.  
  10803. The INVALID KEY phrase should be specified if the NEXT MODIFIED phrase is not 
  10804. specified and there is no applicable USE procedure specified for the file name. 
  10805.  
  10806. If the RELATIVE KEY data item contains a value that does not correspond to a 
  10807. relative record number for the subfile at the time of the execution of the READ 
  10808. statement, the INVALID KEY condition exists and the execution of the READ 
  10809. statement is unsuccessful. 
  10810.  
  10811. Click here for further information about the invalid key condition. 
  10812.  
  10813.  
  10814. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10815.  
  10816. The AT END phrase serves to explicitly delimit the scope of the READ statement. 
  10817. Specify the AT END phrase when you use the NEXT MODIFIED phrase and no 
  10818. applicable USE procedure is specified for the file name.  If the AT END phrase 
  10819. and a USE procedure are both specified for a file, and the AT END condition 
  10820. arises, control transfers to the AT END imperative statement and the USE 
  10821. procedure is not executed. 
  10822.  
  10823. If you specify NEXT MODIFIED and there is no user-modified record in the 
  10824. subfile, the AT END condition exists, and the READ operation is unsuccessful. 
  10825.  
  10826.  
  10827. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10828.  
  10829. Record-name-1 must specify the name of a logical record in a sort-merge file 
  10830. description entry (SD). Record-name-1 may be qualified. 
  10831.  
  10832. Record-name-1 and identifier-1 must not refer to the same storage area. 
  10833.  
  10834. If the RELEASE statement is executed without a specified SD entry for 
  10835. file-name-1 in a SAME RECORD AREA clause, the information in record-name-1 is 
  10836. no longer available. 
  10837.  
  10838. If the SD entry is specified in a SAME RECORD AREA clause, record-name-1 is 
  10839. still available as a record of the other files named in that clause. 
  10840.  
  10841.  
  10842. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10843.  
  10844. FROM identifier-1 makes the RELEASE statement equivalent to the execution of 
  10845. the following two statements: 
  10846.  
  10847.    MOVE identifier-1 TO record-name-1 
  10848.    RELEASE record-name-1 
  10849.  
  10850. The MOVE is performed according to the rules for the MOVE statement without the 
  10851. CORRESPONDING phrase. 
  10852.  
  10853. Identifier-1 and record-name-1 must not refer to the same storage area. 
  10854.  
  10855. After the RELEASE statement has successfully executed, the information is still 
  10856. available in identifier-1. 
  10857.  
  10858.  
  10859. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10860.  
  10861. File-name-1 must be described in a Data Division SD entry. If it has more than 
  10862. one record description, these records automatically share the same storage; the 
  10863. area is implicitly redefined. After execution of the RETURN statement, only the 
  10864. contents of the current record are available; if any data items lie beyond the 
  10865. length of the current record, their contents are undefined. 
  10866.  
  10867.  
  10868. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10869.  
  10870. The imperative-statement specified on the AT END phrase executes after all 
  10871. records have been returned from file-name-1.  No more RETURN statements may be 
  10872. executed as part of the current output procedure. 
  10873.  
  10874. If an at end condition does not occur during the execution of a RETURN 
  10875. statement, then after the record is made available and after executing any 
  10876. implicit move resulting from the presence of an INTO phrase, control is 
  10877. transferred to the imperative statement specified by the NOT AT END phrase. 
  10878. Otherwise, control is passed to the end of the RETURN statement. 
  10879.  
  10880.  
  10881. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10882.  
  10883. Record-name-1 must be the name of a logical record in a Data Division FD entry. 
  10884. It must have the same number of character positions as the record being 
  10885. replaced. Record-name-1 may be qualified but it must not be subscripted, 
  10886. indexed, or reference modified. 
  10887.  
  10888. Identifier-1 and record-name-1 must not refer to the same storage area. 
  10889.  
  10890.  
  10891. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10892.  
  10893. FROM identifier-1 makes the REWRITE statement equivalent to: 
  10894.  
  10895.     MOVE identifier TO record-name
  10896.     REWRITE record-name
  10897.  
  10898. The MOVE is performed according to the rules for the MOVE statement without the 
  10899. CORRESPONDING phrase. 
  10900.  
  10901. Identifier-1 and record-name-1 must not refer to the same storage area. 
  10902.  
  10903. After the REWRITE statement has successfully executed, the logical record is no 
  10904. longer available in record-name-1, but is still available in identifier-1. 
  10905.  
  10906.  
  10907. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10908.  
  10909. The value specified in the FORMAT phrase contains the name of the record format 
  10910. to use for this I-O operation.  The system uses this to specify or select which 
  10911. record format to operate on.  The FORMAT phrase is optional when processing a 
  10912. file that has one record format. 
  10913.  
  10914.  
  10915. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10916.  
  10917. Literal-1 or identifier-2 specifies the name of the record format to use for 
  10918. the rewrite operation. If you specify literal-1 it must be uppercase and 10 
  10919. characters or less in length. If you specify identifier-2, it must be a 
  10920. character-string of 10 characters or less, and it must name one of the 
  10921. following: 
  10922.  
  10923.  A Working-Storage Section entry 
  10924.  A Linkage Section entry 
  10925.  A record-description entry for a previously opened file. 
  10926.  
  10927. A value of all blanks is treated as though the FORMAT phrase were not 
  10928. specified. 
  10929.  
  10930.  
  10931. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10932.  
  10933. When an INVALID KEY condition exists, the updating operation does not take 
  10934. place.  The data in record-name is unaffected. 
  10935.  
  10936. An INVALID KEY condition exists when any one of the following conditions is 
  10937. true: 
  10938.  
  10939.  The access mode is sequential, and the prime RECORD KEY of the record to be 
  10940.   replaced does not equal the prime RECORD KEY of the last-retrieved record 
  10941.   from the file. 
  10942.  
  10943.  The access mode is dynamic or random, and the prime RECORD KEY of the record 
  10944.   to be replaced does not equal the prime RECORD KEY of any record in the file. 
  10945.  
  10946.  The access mode is dynamic or random, and the file does not contain the 
  10947.   record specified in the RELATIVE KEY data item. 
  10948.  
  10949. You must not specify the INVALID KEY phrase for a file with sequential 
  10950. organization.  You can specify an EXCEPTION/ERROR procedure. 
  10951.  
  10952. Click here for further information about the invalid key condition. 
  10953.  
  10954.  
  10955. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10956.  
  10957. After successful completion of a REWRITE statement with the NOT INVALID KEY 
  10958. phrase, control transfers to the imperative statement associated with the 
  10959. phrase. 
  10960.  
  10961.  
  10962. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10963.  
  10964. The number of character positions in the record referenced by record-name-1 
  10965. must be equal to the number of character positions in the record being 
  10966. replaced.  The record replaced in the subfile is that record accessed by the 
  10967. previous read operation. 
  10968.  
  10969.  
  10970. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10971.  
  10972. Multiple data records, each with a different format, can be concurrently active 
  10973. for a TRANSACTION file.  If you specify the FORMAT phrase, it must specify a 
  10974. valid format name that is defined to the system, and the I-O operation must be 
  10975. performed on a data record of the same format. 
  10976.  
  10977. The record format specified in the FORMAT phrase must be the record format 
  10978. accessed on the previous read operation. 
  10979.  
  10980. Literal-1 or the contents of identifier-2 must be the name of the subfile 
  10981. format accessed on the previous READ. 
  10982.  
  10983.  
  10984. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10985.  
  10986. The TERMINAL phrase indicates which program device's subfile is to have a 
  10987. record rewritten.  If the TERMINAL phrase is specified, literal-2 or 
  10988. identifier-3 must refer to a workstation that has been acquired by the 
  10989. TRANSACTION file.  The program device specified by the TERMINAL phrase must 
  10990. have been acquired, either explicitly or implicitly, and must have a subfile 
  10991. associated with the device. 
  10992.  
  10993. If you omit the TERMINAL phrase from a TRANSACTION file that has acquired 
  10994. multiple program devices, the subfile used is the subfile associated with the 
  10995. last program device from which a READ of the TRANSACTION file was attempted. 
  10996.  
  10997.  
  10998. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  10999.  
  11000. Literal-2 or identifier-3 must be a valid program device name.  If you specify 
  11001. literal-2, it must be nonnumeric and 10 characters or less in length.  If you 
  11002. specify identifier-3, it must refer to an alphanumeric data item 10 characters 
  11003. or less in length. 
  11004.  
  11005. If literal-2 or identifier-3 contains blanks, the TERMINAL phrase has no 
  11006. effect. 
  11007.  
  11008.  
  11009. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11010.  
  11011. The INDICATOR phrase specifies which indicators are to be rewritten.  When a 
  11012. data record is rewritten, indicators can be rewritten with it.  The indicators 
  11013. can be rewritten with a data record to control how the data record is 
  11014. displayed.  INDICATOR, INDICATORS, and INDIC are equivalent. 
  11015.  
  11016.  
  11017. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11018.  
  11019. The INVALID KEY condition exists at the time of the rewrite operation, if the 
  11020. RELATIVE KEY data item contains a value that does not correspond to the 
  11021. relative record number of the record from the previous read operation. 
  11022.  
  11023. The INVALID KEY phrase should be specified for files for which an appropriate 
  11024. USE procedure is not specified.  Undesirable results may occur if the INVALID 
  11025. KEY phrase is not specified, and no USE procedure is specified. 
  11026.  
  11027. Click here for further information about the invalid key condition. 
  11028.  
  11029.  
  11030. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11031.  
  11032. Identifier-1 can be a data item subordinate to a data item that contains an 
  11033. OCCURS clause; that is, it can be a part of a multi-dimensional table.  In this 
  11034. case, the data description entry must specify an INDEXED BY phrase for each 
  11035. dimension of the table. 
  11036.  
  11037. Identifier-1 must refer to all occurrences within the table element; that is, 
  11038. it must not be subscripted or reference modified. 
  11039.  
  11040. Identifier-1 can be an index data item. 
  11041.  
  11042.  
  11043. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11044.  
  11045. Identifier-1 can be a data item subordinate to a data item that contains an 
  11046. OCCURS clause; that is, it can be a part of a two- to seven-dimensional table. 
  11047. In this case, the data description entry must specify an INDEXED BY phrase for 
  11048. each dimension of the table. 
  11049.  
  11050. Before the search takes place, the values of all indexes should be set for 
  11051. higher dimensions of the table to define a specific table of identifier-1 
  11052. elements. 
  11053.  
  11054. Identifier-1 must refer to all occurrences within the table element; that is, 
  11055. it must not be subscripted or indexed. 
  11056.  
  11057. Identifier-1 cannot be a pointer data item. 
  11058.  
  11059. The Data Division description of identifier-1 must contain an OCCURS clause 
  11060. with the INDEXED BY option. It must contain the KEY IS phrase in its OCCURS 
  11061. clause. 
  11062.  
  11063. In the WHEN phrase, if you specify an ASCENDING/DESCENDING KEY data item, 
  11064. explicitly or implicitly, you must also specify all preceding 
  11065. ASCENDING/DESCENDING KEY data-names for identifier-1. 
  11066.  
  11067.  
  11068. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11069.  
  11070. Identifier-2 must be either an index data item or an elementary integer item. 
  11071.  
  11072.  
  11073. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11074.  
  11075. If Index-name-1 is an index for identifier-1, this index is used for the 
  11076. search.  Otherwise, the first (or only) index name is used. If index-name-1 is 
  11077. an index for another table element, then the first (or only) index-name for 
  11078. identifier-1 is used for the search.  The occurrence number represented by 
  11079. index-name-1 is increased by the same amount as the search index-name and at 
  11080. the same time. 
  11081.  
  11082. When you omit the VARYING index-name-1 phrase, the first (or only) index-name 
  11083. for identifier-1 is used for the search. 
  11084.  
  11085.  
  11086. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11087.  
  11088. The at end condition exists when the search operation terminates without 
  11089. satisfying the condition specified in any of the associated WHEN phrases. 
  11090.  
  11091. If the at end condition exists and the AT END phrase is specified, 
  11092. imperative-statement-1 is executed, and control passes to the end of the SEARCH 
  11093. statement, unless imperative-statement-1 ends with a GO TO statement. 
  11094.  
  11095. If the at end condition exists and the AT END phrase is omitted, control passes 
  11096. to the next statement after the SEARCH statement. 
  11097.  
  11098.  
  11099. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11100.  
  11101. After imperative-statement-2 is executed, control passes to the end of the 
  11102. SEARCH statement, unless imperative-statement-2 ends with a GO TO statement. 
  11103.  
  11104.  
  11105. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11106.  
  11107. Condition-1 may be any conditional expression. 
  11108.  
  11109.  
  11110. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11111.  
  11112. If you specify the END-SEARCH phrase, you must not specify the NEXT SENTENCE 
  11113. phrase. 
  11114.  
  11115.  
  11116. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11117.  
  11118. Data-name-1, data-name-2 must specify an ASCENDING/DESCENDING KEY data item in 
  11119. the identifier-1 table element and must be indexed by the first identifier-1 
  11120. index-name, along with other indexes or literals, as required. Data-name-1, 
  11121. data-name-2 may be qualified. 
  11122.  
  11123.  
  11124. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11125.  
  11126. Identifier-3 and identifier-4 must not be POINTER data items. They must not be 
  11127. ASCENDING/DESCENDING KEY data items for identifier-1 or an item that is indexed 
  11128. by the first index-name for identifier-1. 
  11129.  
  11130.  
  11131. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11132.  
  11133. In Format 2 of the SEARCH statement, arithmetic-expression-1 or 
  11134. arithmetic-expression-2 may be any arithmetic expression, with the following 
  11135. restriction: no identifier in the arithmetic expression may be an 
  11136. ASCENDING/DESCENDING KEY data item for identifier-1 or an item that is indexed 
  11137. by the first index-name for identifier-1. 
  11138.  
  11139. Click here for a description of arithmetic expressions. 
  11140.  
  11141.  
  11142. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11143.  
  11144. Each condition-name specified must have only a single value, and each must be 
  11145. associated with an ASCENDING/DESCENDING KEY identifier for this table element. 
  11146.  
  11147.  
  11148. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11149.  
  11150. The explicit scope terminator serves to delimit the scope of a statement.  It 
  11151. permits the conditional form of the statement to be nested within another 
  11152. conditional statement. The explicit scope terminator may also be used with the 
  11153. imperative form of the statement. 
  11154.  
  11155. The scope of a SEARCH statement may be terminated by any of the following: 
  11156.  
  11157.  An END-SEARCH phrase at the same level of nesting 
  11158.  A separator period 
  11159.  An ELSE or END-IF phrase associated with a previous IF statement. 
  11160.  
  11161. If you specify the END-SEARCH phrase, you must not specify the NEXT SENTENCE 
  11162. phrase. 
  11163.  
  11164.  
  11165. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11166.  
  11167. NULL/NULLS is the sending field.  It sets the receiving field to contain the 
  11168. value of an invalid address. 
  11169.  
  11170.  
  11171. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11172.  
  11173. Identifier-1 and index-name-1 are the receiving fields and must name either 
  11174. index data items or elementary numeric integer items. 
  11175.  
  11176.  
  11177. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11178.  
  11179. Index-name-2 is the sending field. 
  11180.  
  11181. The value before the SET statement is executed must correspond to the 
  11182. occurrence number of its associated table. 
  11183.  
  11184.  
  11185. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11186.  
  11187. Identifier-2 is the sending field and must name either an index data item or an 
  11188. elementary numeric integer item. 
  11189.  
  11190.  
  11191. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11192.  
  11193. Integer-1 is the sending field.  It must be a positive integer. 
  11194.  
  11195.  
  11196. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11197.  
  11198. Identifier-3 is the sending field and must name an elementary integer data 
  11199. item. 
  11200.  
  11201.  
  11202. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11203.  
  11204. Integer-2 is the sending field and must be an integer. 
  11205.  
  11206.  
  11207. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11208.  
  11209. Index-name-3 is the receiving field.  The index-name value, both before and 
  11210. after the SET statement has been executed, must correspond to the occurrence 
  11211. numbers in an associated table. 
  11212.  
  11213.  
  11214. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11215.  
  11216. You must associate mnemonic-name with an external switch, the status of which 
  11217. can be altered. 
  11218.  
  11219.  
  11220. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11221.  
  11222. You must associate condition-name-1 with a conditional variable.  If more than 
  11223. one literal is specified in the VALUE clause of condition-name-1, its 
  11224. associated condition variable is set equal to the first literal. 
  11225.  
  11226.  
  11227. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11228.  
  11229. You must describe identifier-4, the receiving fields, as USAGE IS POINTER. 
  11230.  
  11231.  
  11232. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11233.  
  11234. Identifier-6, the sending field, may not contain an address within the 
  11235. program's own Working Storage or File Section. It must be described as USAGE IS 
  11236. POINTER. 
  11237.  
  11238.  
  11239. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11240.  
  11241. ADDRESS OF identifier-7, the sending field, contains the address of the 
  11242. identifier, not the content of the identifier.  It can be subscripted, 
  11243. reference modified, or both. (Click here for information about reference 
  11244. modification.) Identifier-7 must name an item in the Linkage Section of any 
  11245. level except 66 or 88. 
  11246.  
  11247.  
  11248. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11249.  
  11250. ADDRESS OF identifier-5, the receiving field, must be level-01 or level-77 
  11251. items defined in the Linkage Section.  The addresses of these items are set to 
  11252. the value of the operand specified in the TO phrase. 
  11253.  
  11254. Identifier-5 cannot be subscripted or reference modified. 
  11255.  
  11256.  
  11257. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11258.  
  11259. File-name-1 is the name given in the SD entry that describes the records to be 
  11260. sorted. 
  11261.  
  11262.  
  11263. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11264.  
  11265. The COLLATING SEQUENCE phrase specifies the collating sequence to be used in 
  11266. nonnumeric comparisons for the KEY data items in this sorting operation. 
  11267.  
  11268. If you omit the COLLATING SEQUENCE phrase, the PROGRAM COLLATING SEQUENCE 
  11269. clause (if specified) in the OBJECT-COMPUTER paragraph specifies the collating 
  11270. sequence to be used.  When you omit both the COLLATING SEQUENCE phrase and the 
  11271. COLLATING SEQUENCE clause, the EBCDIC collating sequence is used. 
  11272.  
  11273.  
  11274. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11275.  
  11276. When you specify the USING phrase, all the records in file-name-2 (the input 
  11277. files) are transferred automatically to file-name-1. 
  11278.  
  11279. All input files must specify sequential or dynamic access mode, and must be 
  11280. described in FD entries in the Data Division.  At the time the SORT statement 
  11281. is executed, these files must not be open. 
  11282.  
  11283.  
  11284. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11285.  
  11286. Procedure-name-1 specifies the first (or only) section or paragraph in the 
  11287. INPUT PROCEDURE. 
  11288.  
  11289.  
  11290. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11291.  
  11292. Procedure-name-2 identifies the last section or paragraph of the INPUT 
  11293. PROCEDURE. 
  11294.  
  11295.  
  11296. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11297.  
  11298. The OUTPUT PROCEDURE phrase specifies the name of a procedure that is to select 
  11299. or modify output records from the sorting operation. 
  11300.  
  11301.  
  11302. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11303.  
  11304. If you specify the DUPLICATES phrase, and the contents of all the key elements 
  11305. associated with one record are equal to the corresponding key elements in one 
  11306. or more other records, the order of these records is as follows: 
  11307.  
  11308.  The order of the associated input files as specified in SORT. Within a given 
  11309.   file the order is that in which the records are accessed from that file, 
  11310.  The order in which an input procedure releases these records, when an input 
  11311.   procedure is specified. 
  11312.  
  11313. If you do not specify the DUPLICATES phrase, the order of these records is 
  11314. undefined. 
  11315.  
  11316.  
  11317. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11318.  
  11319. The ASCENDING/DESCENDING KEY phrase specifies that records are to be processed 
  11320. in ascending or descending sequence (depending on the phrase specified), based 
  11321. on the specified sort keys. 
  11322.  
  11323.  
  11324. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11325.  
  11326. When the GIVING phrase is specified, all the sorted records in file-name-1 are 
  11327. automatically transferred to the output files (file-name-3,...). 
  11328.  
  11329. File-name-3 represents the output files.  All output files must specify 
  11330. sequential or dynamic access mode and must be described in FD entries in the 
  11331. Data Division.  The output files must be indexed, relative or sequential files. 
  11332.  
  11333.  
  11334. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11335.  
  11336. Procedure-name-3 specifies the first (or only) section or paragraph in the 
  11337. OUTPUT PROCEDURE phrase. 
  11338.  
  11339.  
  11340. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11341.  
  11342. Procedure-name-4 identifies the last section or paragraph of the OUTPUT 
  11343. PROCEDURE. 
  11344.  
  11345.  
  11346. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11347.  
  11348. The INPUT PROCEDURE phrase specifies the name of a procedure that is to select 
  11349. or modify input records before the sorting operation begins. 
  11350.  
  11351.  
  11352. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11353.  
  11354. File-name must name a file with sequential or dynamic access (not a sort file) 
  11355. and be defined in an FD entry in the Data Division. 
  11356.  
  11357.  
  11358. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11359.  
  11360. When you specify the KEY phrase, the file position indicator is positioned at 
  11361. the logical record in the file whose key field satisfies the comparison. 
  11362.  
  11363. When you do not specify the KEY phrase, KEY IS EQUAL (to the prime record key) 
  11364. is implied, and the file position indicator is positioned at the logical record 
  11365. in the file. 
  11366.  
  11367.  
  11368. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11369.  
  11370. EXTERNALLY-DESCRIBED-KEY indicates that the complete key field in the record 
  11371. area should be used in the comparison.  You must specify RECORD KEY IS 
  11372. EXTERNALLY-DESCRIBED-KEY in the FILE-CONTROL paragraph for the file. 
  11373.  
  11374.  
  11375. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11376.  
  11377. For indexed files data-name-1 can be: 
  11378.  
  11379.  The RECORD KEY itself 
  11380.  An alphanumeric data item within a record description for the file whose 
  11381.   leftmost character position corresponds to the leftmost character position of 
  11382.   the key field in the record area.  This data item must be less than or equal 
  11383.   to the length of the record key for the file. 
  11384.  
  11385. For relative files data-name-1 must specify the RELATIVE KEY.  When you do not 
  11386. specify the KEY phrase, KEY IS EQUAL (to the prime record key) is implied. 
  11387.  
  11388. Data-name-1 can be qualified or reference modified; it cannot be subscripted. 
  11389. (Click here for information about reference modification.) 
  11390.  
  11391. You can specify multiple data-names, however, all data-names following the 
  11392. initial data-name are syntax-checked only. 
  11393.  
  11394.  
  11395. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11396.  
  11397. Literal-1 or identifier-1 specifies the name of the record format to use for 
  11398. the start operation. If you specify literal-1 it must be uppercase and 10 
  11399. characters or less in length. If you specify identifier-1, it must be a 
  11400. character-string of 10 characters or less, and it must name one of the 
  11401. following: 
  11402.  
  11403.  A Working-Storage Section entry 
  11404.  A Linkage Section entry 
  11405.  A record-description entry for a previously opened file. 
  11406.  
  11407. A value of all blanks is treated as though the FORMAT phrase were not 
  11408. specified. 
  11409.  
  11410.  
  11411. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11412.  
  11413. If the comparison is not satisfied by any record in the file, an invalid key 
  11414. condition exists; the value of the file position indicator is undefined, and 
  11415. the INVALID KEY imperative-statement, if specified, is processed. 
  11416.  
  11417. The INVALID KEY phrase must be specified for files in which an appropriate USE 
  11418. procedure is not specified, or if no EXCEPTION/ERROR procedure is explicity or 
  11419. implicitly specified. 
  11420.  
  11421. Click here for further information about the invalid key condition. 
  11422.  
  11423.  
  11424. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11425.  
  11426. After successful completion of a START statement with the NOT INVALID KEY 
  11427. phrase, control transfers to the imperative statement associated with the 
  11428. phrase. 
  11429.  
  11430.  
  11431. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11432.  
  11433. The NO LOCK phrase allows a START statement to be performed on a file without a 
  11434. record lock being applied to the file on which the START statement is 
  11435. performed. 
  11436.  
  11437.  
  11438. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11439.  
  11440. When you specify STOP RUN, execution of the run unit terminates, and control 
  11441. returns to the system.  If a STOP RUN appears in a sequence of imperative 
  11442. statements, it must be the last or only statement in the sequence.  The STOP 
  11443. RUN statement closes all files. 
  11444.  
  11445.  
  11446. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11447.  
  11448. Literal may be numeric or nonnumeric.  It may be any figurative constant, 
  11449. except ALL literal.  If literal is numeric, it must be an unsigned integer. 
  11450.  
  11451. When you specify STOP literal, the literal is communicated to the system 
  11452. operator, for batch jobs, and to the workstation, for interactive jobs. 
  11453. Program execution is suspended.  The program resumes only after operator 
  11454. intervention. 
  11455.  
  11456. STOP literal is an obsolete element and is to be deleted from the next revision 
  11457. of the ANSI Standard. 
  11458.  
  11459.  
  11460. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11461.  
  11462. Identifier-1 represents the sending field or fields. Identifier-1 must have, 
  11463. explicitly or implicitly, USAGE DISPLAY. 
  11464.  
  11465. When the sending field or any of the delimiters is an elementary numeric item, 
  11466. it must be described as an integer, and its PICTURE character-string must not 
  11467. contain the symbol P. 
  11468.  
  11469.  
  11470. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11471.  
  11472. Literal-1 represents the sending fields. Literal-1 must be a nonnumeric 
  11473. literal; it may be any figurative constant except the ALL literal. When you 
  11474. specify a figurative constant, it is considered a 1-character nonnumeric 
  11475. literal. 
  11476.  
  11477.  
  11478. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11479.  
  11480. DELIMITED BY sets the limits of the string. 
  11481.  
  11482.  
  11483. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11484.  
  11485. Identifier-2 delimits the data to be transferred. 
  11486.  
  11487. Identifier-2 must have, explicitly or implicitly, USAGE DISPLAY. 
  11488.  
  11489. If identifier-1 or identifier-2 occupies the same storage area as identifier-3 
  11490. or identifier-4, undefined results will occur, even if the identifiers are 
  11491. defined by the same data description entry. 
  11492.  
  11493.  
  11494. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11495.  
  11496. Literal-2 is a delimiter; that is, a character that delimits the data to be 
  11497. transferred. Literal-2 must be a nonnumeric literal; it may be any figurative 
  11498. constant except the ALL literal. When you specify a figurative constant, it is 
  11499. considered a 1-character nonnumeric literal. 
  11500.  
  11501.  
  11502. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11503.  
  11504. SIZE transfers the complete sending area. 
  11505.  
  11506.  
  11507. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11508.  
  11509. Identifier-3 represents the receiving field.  It must not represent an edited 
  11510. data item, and must not be described with the JUSTIFIED clause or be reference 
  11511. modified. 
  11512.  
  11513. Identifier-3 must have, explicitly or implicitly, USAGE DISPLAY. 
  11514.  
  11515. If identifier-3 and identifier-4 occupy the same storage area, undefined 
  11516. results will occur, even if the identifiers are defined by the same data 
  11517. description entry. 
  11518.  
  11519.  
  11520. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11521.  
  11522. Identifier-4 represents the pointer field, which points to a character position 
  11523. in the receiving field. 
  11524.  
  11525. It must be an elementary integer item large enough to contain a value equal to 
  11526. the length of the receiving area plus 1.  The pointer field must not contain 
  11527. the symbol P in its PICTURE character-string. 
  11528.  
  11529.  
  11530. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11531.  
  11532. Imperative-statement-1 is executed when the pointer value, explicit or 
  11533. implicit, is less than 1 or exceeds a value equal to the length of the 
  11534. receiving field.  When this condition occurs, an overflow condition exists, and 
  11535. no more data is transferred. 
  11536.  
  11537.  
  11538. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11539.  
  11540. If at the time of execution of the STRING statement, conditions that would 
  11541. cause an overflow condition are not encountered, then after completion of the 
  11542. transfer of data, the ON OVERFLOW phrase, if specified, is ignored.  Control is 
  11543. then transferred to the end of the STRING statement, or if the NOT ON OVERFLOW 
  11544. phrase is specified, to imperative-statement-2. 
  11545.  
  11546.  
  11547. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11548.  
  11549. In Format 1, identifier must name an elementary numeric item. 
  11550.  
  11551.  
  11552. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11553.  
  11554. In all formats, literal must be numeric. 
  11555.  
  11556.  
  11557. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11558.  
  11559. In Format 2, identifier must name an elementary numeric item, unless the 
  11560. identifier follows the word GIVING, in which case it must name a numeric or 
  11561. numeric-edited elementary item. 
  11562.  
  11563.  
  11564. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11565.  
  11566. In Format 3, identifier must name a group item. 
  11567.  
  11568.  
  11569. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11570.  
  11571. Identifier-1 represents the sending field.  Data is transferred from this field 
  11572. to the receiving fields.  Identifier-1 must be an alphanumeric data item; it 
  11573. cannot be reference modified. 
  11574.  
  11575.  
  11576. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11577.  
  11578. The DELIMITED BY phrase specifies delimiters within the data that controls the 
  11579. data transfer.  If you do not specify the DELIMITED BY phrase, do not specify 
  11580. either the DELIMITER IN or the COUNT IN phrase. 
  11581.  
  11582.  
  11583. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11584.  
  11585. Identifier-2 and identifier-3 each represent one delimiter and each must be an 
  11586. alphanumeric data item. 
  11587.  
  11588.  
  11589. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11590.  
  11591. Each literal-1 and literal-2 must be nonnumeric literals. 
  11592.  
  11593. Each may be any figurative constant except the ALL literal.  When you specify a 
  11594. figurative constant, it is considered to be a 1-character nonnumeric literal. 
  11595.  
  11596.  
  11597. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11598.  
  11599. The ALL literal treats one or more contiguous occurrences of any delimiters as 
  11600. if they were only one occurrence, and this one occurrence is moved to the 
  11601. delimiter receiving field, if specified.  The delimiting characters in the 
  11602. sending field are treated as an elementary alphanumeric item and are moved into 
  11603. the current delimiter receiving field, according to the rules of the MOVE 
  11604. statement. 
  11605.  
  11606.  
  11607. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11608.  
  11609. Identifier-4 represents the data receiving fields. Each field must have USAGE 
  11610. DISPLAY.  You can define these fields as alphabetic, alphanumeric, or numeric. 
  11611. Numeric items cannot have the symbol P in their picture string. 
  11612.  
  11613.  
  11614. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11615.  
  11616. DELIMITER IN represents the delimiter receiving fields. 
  11617.  
  11618. Unless you specify DELIMITED BY, you must not specify DELIMITER IN. 
  11619.  
  11620. Identifier-5 must be alphanumeric and must not be defined as 
  11621. alphanumeric-edited or numeric-edited. 
  11622.  
  11623.  
  11624. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11625.  
  11626. Identifier-6 is the data-count field for each data transfer.  Each field holds 
  11627. the count of examined characters in the sending field.  It is terminated by the 
  11628. delimiters or the end of the sending field, for the move to this receiving 
  11629. field.  The delimiters are not included in this count. 
  11630.  
  11631. Unless you specify DELIMITED BY, you must not specify COUNT IN. 
  11632.  
  11633.  
  11634. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11635.  
  11636. In the POINTER phrase, identifier-7 contains a value that indicates a relative 
  11637. position in the sending field.  When you specify the POINTER phrase, you must 
  11638. initialize this field before beginning to execute the UNSTRING statement. 
  11639.  
  11640.  
  11641. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11642.  
  11643. With the TALLYING phrase, identifier-8 represents the field-count field. 
  11644. Identifier-8 is increased by the number of data receiving fields acted upon 
  11645. when executing the UNSTRING statement. When you specify identifier-8, you must 
  11646. initialize this field before the UNSTRING statement is executed. 
  11647.  
  11648.  
  11649. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11650.  
  11651. The ON OVERFLOW imperative-statement-1 phrase is executed when: 
  11652.  
  11653.  The pointer value (explicit or implicit) is less than 1. 
  11654.  The pointer value (explicit or implicit) exceeds a value equal to the length 
  11655.   of the sending field. 
  11656.  All data receiving fields have been acted upon, and the sending field still 
  11657.   contains unexamined characters. 
  11658.  
  11659.  
  11660. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11661.  
  11662. If at the time of execution of the UNSTRING statement, conditions that would 
  11663. cause an overflow condition are not encountered, then after completion of the 
  11664. transfer of data, the ON OVERFLOW phrase, if specified, is ignored.  Control is 
  11665. then transferred to the end of the UNSTRING statement, or if the NOT ON 
  11666. OVERFLOW phrase is specified, to imperative-statement-2. 
  11667.  
  11668.  
  11669. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11670.  
  11671. Record-name-1 must be defined in a Data Division FD entry. Record-name-1 may be 
  11672. qualified, but must not be associated with a sort or merge file. 
  11673.  
  11674.  
  11675. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11676.  
  11677. FROM identifier-1 makes the WRITE statement equivalent to the execution of the 
  11678. following two statements: 
  11679.  
  11680. MOVE identifier-1 TO record-name-1 
  11681. WRITE record-name-1 
  11682.  
  11683. The MOVE is performed according to the rules for the MOVE statement without the 
  11684. CORRESPONDING phrase. 
  11685.  
  11686. Identifier-1 must be the name of a Working-Storage Section or Linkage Section 
  11687. entry, or a record description for another previously opened file. 
  11688.  
  11689. Identifier-1 must be an alphanumeric or numeric-edited item.  Data is 
  11690. transferred from this field to the receiving fields. 
  11691.  
  11692. Identifier-1 and record-name-1 must not refer to the same storage area. 
  11693.  
  11694. After the WRITE statement has successfully executed, the information is still 
  11695. available in identifier-1, even though it may not be in record-name-1. 
  11696.  
  11697.  
  11698. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11699.  
  11700. The ADVANCING phrase controls the positioning of the output record on the page. 
  11701. If you omit this phrase, AFTER ADVANCING 1 LINE is assumed. 
  11702.  
  11703. When you specify: 
  11704.  
  11705.  BEFORE ADVANCING, the line is printed before the page is advanced. 
  11706.  
  11707.  AFTER ADVANCING, the page is advanced before the line is printed. 
  11708.  
  11709.  Identifier-2, the page is advanced the number of lines equal to the current 
  11710.   value in identifier-2. 
  11711.  
  11712.  Integer-1, the page is advanced the number of lines equal to the value of 
  11713.   integer-1. 
  11714.  
  11715.  Mnemonic-name-1, a system-specific action takes place. 
  11716.  
  11717.  PAGE, the record is printed on the logical page BEFORE or AFTER (depending on 
  11718.   the phrase used) the device is positioned to the next logical page.  If PAGE 
  11719.   has no meaning for the device used, then BEFORE or AFTER (depending on the 
  11720.   phrase specified) ADVANCING 1 LINE is provided. 
  11721.  
  11722.   If the FD entry contains a LINAGE clause, the repositioning is to the first 
  11723.   printable line of the next page, as specified in that clause.  If you omit 
  11724.   the LINAGE clause, the repositioning is to line 1 of the next succeeding 
  11725.   page. 
  11726.  
  11727. Integer-1 or the value in identifier-2 may be zero. 
  11728.  
  11729.  
  11730. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11731.  
  11732. If the END-OF-PAGE condition does not exist after the processing of a WRITE 
  11733. statement with the NOT AT END-OF-PAGE phrase, control transfers to 
  11734. imperative-statement-2. 
  11735.  
  11736.  
  11737. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11738.  
  11739. Identifier-2 must be an integer data item. 
  11740.  
  11741.  
  11742. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11743.  
  11744. When you specify END-OF-PAGE, and the logical end of the printed page is 
  11745. reached during execution of the WRITE statement, the END-OF-PAGE imperative 
  11746. statement is executed. When END-OF-PAGE is specified, the FD entry for this 
  11747. file must contain a LINAGE clause. The logical end of the printed page is 
  11748. specified in the associated LINAGE clause. 
  11749.  
  11750.  
  11751. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11752.  
  11753. Literal-1 or identifier-1 specifies the name of the record format to use for 
  11754. the write operation. If you specify literal-1 it must be uppercase and 10 
  11755. characters or less in length. If you specify identifier-1, it must be a 
  11756. character-string of 10 characters or less, and it must name one of the 
  11757. following: 
  11758.  
  11759.  A Working-Storage Section entry 
  11760.  A Linkage Section entry 
  11761.  A record-description entry for a previously opened file. 
  11762.  
  11763. A value of all blanks is treated as though the FORMAT phrase were not 
  11764. specified. 
  11765.  
  11766.  
  11767. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11768.  
  11769. If you specify the NOT INVALID KEY phrase and a valid key condition exists at 
  11770. the end of the execution of the WRITE statement, control passes to the 
  11771. imperative statement associated with this phrase. 
  11772.  
  11773. Click here for further information about the invalid key condition. 
  11774.  
  11775.  
  11776. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11777.  
  11778. The INDICATOR phrase specifies which indicators are to be written.  When a data 
  11779. record is written, indicators can be written with it.  The indicators can be 
  11780. used to pass information about the data record and how it was entered into the 
  11781. program.  INDICATOR, INDICATORS, and INDIC are equivalent. 
  11782.  
  11783.  
  11784. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11785.  
  11786. Identifier-3 must be either an elementary Boolean data item specified without 
  11787. the OCCURS clause, or a group item that has elementary Boolean data items 
  11788. subordinate to it. 
  11789.  
  11790.  
  11791. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11792.  
  11793. The TERMINAL phrase specifies the program devices to which the output record is 
  11794. sent.  If only a single program device file was acquired by the TRANSACTION 
  11795. file, the TERMINAL phrase can be omitted.  That program device is always used 
  11796. for the WRITE.  If the TERMINAL phrase is omitted for a WRITE operation to a 
  11797. TRANSACTION file that has acquired multiple program devices, the default 
  11798. program device is used. 
  11799.  
  11800.  
  11801. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11802.  
  11803. The contents of literal-2 or identifier-3 must be the name of a program device 
  11804. previously acquired, either implicitly or explicitly, by the file.  If you 
  11805. specify literal-2, it must be nonnumeric and 10 characters or less in length. 
  11806. If you specify identifier-3, it must refer to an alphanumeric data item 10 
  11807. characters or less in length. A value of blanks is treated as if the TERMINAL 
  11808. phrase were omitted. 
  11809.  
  11810.  
  11811. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11812.  
  11813. Identifier-4 must be an elementary numeric item. 
  11814.  
  11815.  
  11816. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11817.  
  11818. Literal-3 must be a numeric literal. 
  11819.  
  11820.  
  11821. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11822.  
  11823. All identifiers and literals must represent positive integer values.  The roll 
  11824. starting line number (identifier-5 or literal-4) must not exceed the ending 
  11825. line number (identifier-6 or literal-5). 
  11826.  
  11827.  
  11828. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11829.  
  11830. All identifiers and literals must represent positive integer values. 
  11831.  
  11832.  
  11833. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11834.  
  11835. Identifier-8 must be either an elementary Boolean data item specified without 
  11836. the OCCURS clause, or a group item that has elementary Boolean data items 
  11837. subordinate to it. 
  11838.  
  11839.  
  11840. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11841.  
  11842. When you specify the SUBFILE phrase, it indicates that all formats referenced 
  11843. by the statement are subfiles. 
  11844.  
  11845. When you specify SUBFILE, the RELATIVE KEY clause must have been specified on 
  11846. the SELECT clause for the file being written.  The record written to the 
  11847. subfile is the record in the subfile identified by the format name that has a 
  11848. relative record number equal to the value of the RELATIVE KEY data item. 
  11849.  
  11850.  
  11851. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11852.  
  11853. The TERMINAL phrase specifies which program device's subfile is to have a 
  11854. record written to it.  If you specify the TERMINAL phrase, literal-2 or 
  11855. identifier-3 must refer to a workstation associated with the TRANSACTION file. 
  11856. If literal-2 or identifier-3 contains blanks, the TERMINAL phrase is treated as 
  11857. if it was not specified.  The workstation specified by the TERMINAL phrase must 
  11858. have been acquired either explicitly or implicitly. 
  11859.  
  11860. If you omit the TERMINAL phrase, the subfile used is the subfile associated 
  11861. with the default program device. 
  11862.  
  11863.  
  11864. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11865.  
  11866. The contents of literal-2 or identifier-3 must be the name of a work station 
  11867. previously acquired, either implicitly or explicitly, by the file.  If you 
  11868. specify literal-2, it must be nonnumeric and 10 characters or less in length. 
  11869. If you specify identifier-3, it must refer to an alphanumeric data item 10 
  11870. characters or less in length. A value of blanks is treated as if the TERMINAL 
  11871. phrase were omitted. 
  11872.  
  11873.  
  11874. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11875.  
  11876. Identifier-4 must be either an elementary Boolean data item specified without 
  11877. the OCCURS clause, or a group item that has elementary Boolean data items 
  11878. subordinate to it. 
  11879.  
  11880.  
  11881. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11882.  
  11883. The INVALID KEY condition exists if a record is already in the subfile with 
  11884. that record number, or if the relative record number specified is greater than 
  11885. the maximum allowable subfile record number. 
  11886.  
  11887. The INVALID KEY phrase should be specified in the WRITE SUBFILE statement for 
  11888. all files for which an appropriate USE procedure is not specified. 
  11889.  
  11890. Click here for further information about the invalid key condition. 
  11891.  
  11892.  
  11893. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11894.  
  11895. The NOT INVALID KEY phrase allows you to specify procedures that will be 
  11896. performed when an invalid key condition does not exist for the WRITE statement. 
  11897.  
  11898.  
  11899. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11900.  
  11901. Start the characters *CONTROL or *CBL in any column beginning with column 8, 
  11902. followed by at least one space or comma and one or more option keywords.  The 
  11903. option keywords must be separated by one or more spaces or commas.  This 
  11904. statement must be the only statement on the line, and continuation is not 
  11905. allowed.  The statement can end with a period. 
  11906.  
  11907.  
  11908. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11909.  
  11910. The input source program lines are printed from the point at which you specify 
  11911. *CONTROL SOURCE. 
  11912.  
  11913. If you specify *NOSOURCE as a compiler option, printing of the source is always 
  11914. suppressed. 
  11915.  
  11916.  
  11917. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11918.  
  11919. Specify NOSOURCE in order to suppress the printing of the source listing. 
  11920.  
  11921. If you specified *SOURCE as a compiler option, printing of the source listing 
  11922. is suppressed when the *CONTROL NOSOURCE statement is encountered. 
  11923.  
  11924.  
  11925. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11926.  
  11927. You can use the LIST, NOLIST, MAP, NOMAP  options for compatibility only. 
  11928.  
  11929.  
  11930. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11931.  
  11932. Each COPY statement must be preceded by a space and ended with a separator 
  11933. period. 
  11934.  
  11935. A COPY statement may appear in the source program anywhere a character string 
  11936. or a separator may appear.  However, a COPY statement must not be specified 
  11937. within a COPY statement.  The resulting text must not contain a COPY statement. 
  11938.  
  11939.  
  11940. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11941.  
  11942. Text-name must follow the rules for formation of a program-name. The first 10 
  11943. characters of text-name are used as the member name; these first 10 characters 
  11944. must, therefore, be unique within one file. 
  11945.  
  11946. If text-name is not qualified, QLBLSRC is assumed as the file name.  If the 
  11947. file name is not qualified by a library name, it is assumed to reside in a 
  11948. library in the library list. 
  11949.  
  11950.  
  11951. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11952.  
  11953. Library-name must follow the rules for formation of a program-name. The first 
  11954. 10 characters of library-name are used as the identifying name; these first 10 
  11955. characters must be unique within the system. 
  11956.  
  11957.  
  11958. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11959.  
  11960. File-name must follow the rules for formation of a program-name. 
  11961.  
  11962.  
  11963. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11964.  
  11965. The SUPPRESS phrase causes a COPY statement to suppress the listing of copied 
  11966. statements.  For its duration, this type of COPY statement overrides any 
  11967. *CONTROL or *CBL statement. 
  11968.  
  11969. If the copied member contains *CONTROL or *CBL statements, the last one runs 
  11970. once the COPY member has been processed. 
  11971.  
  11972.  
  11973. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11974.  
  11975. Use the DD option to reference alias (alternate) names.  The specification of 
  11976. an alias name in DDS allows a data name of up to 30 characters to be included 
  11977. in the COBOL program. 
  11978.  
  11979. When you use the DD option, any alias names present replace the corresponding 
  11980. DDS field names.  All underscores in the alias names are translated into 
  11981. hyphens before any replacing occurs. 
  11982.  
  11983.  
  11984. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11985.  
  11986. The format-name is the name of the DDS record format definition that is to be 
  11987. translated into COBOL data description entries.  The format-name must follow 
  11988. the rules for formation of any AS/400 name. 
  11989.  
  11990.  
  11991. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  11992.  
  11993. If you specify ALL-FORMATS without the indicator attribute, each record format 
  11994. is generated as a redefinition of a 05 elementary item defined as either: 
  11995.  
  11996.  The size of the largest record format in the file, if the COPY statement 
  11997.   appears in the FILE SECTION. 
  11998.  
  11999.  The size of the largest record format that will be generated, if the COPY 
  12000.   statement appears outside of the FILE SECTION. 
  12001.  
  12002. When the indicator attribute is specified, no redefinition takes place. 
  12003. Instead, each of the formats generates a separate data structure. 
  12004.  
  12005.  
  12006. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12007.  
  12008. The DDR option does everything that the DD option does.  It also replaces the 
  12009. characters which are not valid for COBOL: @, #, $, and _ in a field name (or 
  12010. alias name, if applicable), with the corresponding valid COBOL characters A, N, 
  12011. D, and - .  As well, it removes underscores from the end of a field name. 
  12012.  
  12013.  
  12014. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12015.  
  12016. The DDS option copies in the internal DDS format field names. 
  12017.  
  12018.  
  12019. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12020.  
  12021. The DDSR option does everything the DDS option does.  It also copies the 
  12022. internal DDS format field names, replacing the characters which are not valid 
  12023. for COBOL: @, #, $, and _ , with the valid COBOL characters  A, N, D, and - , 
  12024. respectively.  This option also removes any underscores from the ends of the 
  12025. field names. 
  12026.  
  12027.  
  12028. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12029.  
  12030. I, O, and I-O represent the usage attributes for the data description entries 
  12031. generated by the COPY statement.  If you do not specify either -I or -O, I-O is 
  12032. assumed. 
  12033.  
  12034. If the file is a database file, a single I-O format is generated.  Subfile 
  12035. records with only output or input/output fields, and no field indicators 
  12036. specified, generate I-O formats. 
  12037.  
  12038. For all other file types the description generated varies as follows: 
  12039.  
  12040.  If you specify -I, the generated data description entries contain either: 
  12041.  
  12042.    - The input and input/output fields for a nonsubfile format 
  12043.    - The input, output, and input/output fields for a subfile format. 
  12044.  
  12045.  If you specify -O, the generated data description entries contain the output 
  12046.   and input/output fields. 
  12047.  
  12048.  
  12049. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12050.  
  12051. The INDICATOR attribute specifies whether or not data description entries are 
  12052. generated for indicators.  If the INDICATOR attribute is specified, data 
  12053. description entries are generated for indicators, but not for data fields. 
  12054. INDICATOR, INDICATORS, and INDIC are equivalent. 
  12055.  
  12056. The data description entries that are generated are determined by which one of 
  12057. the usage attributes (I, O, I-O) is specified or assumed in the COPY statement. 
  12058.  
  12059.  If you specify I-INDICATOR, data description entries for input (response) 
  12060.   indicators are generated for indicators used in the input record area. 
  12061.  
  12062.  If you specify O-INDICATOR, data description entries for output (option) 
  12063.   indicators are generated for indicators used in the output record area. 
  12064.  
  12065.  If you specify I-O-INDICATOR, or it is assumed, separate data description 
  12066.   entries for both input and output (response and option) indicators are 
  12067.   generated for indicators used in the input and output record areas. 
  12068.  
  12069.  
  12070. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12071.  
  12072. SKIP1 specifies that a single blank line is to be inserted in the source 
  12073. listing. 
  12074.  
  12075. You may write SKIP1 anywhere in either Area A or Area B, and you may end it 
  12076. with a separator period.  It must be the only statement on the line. 
  12077.  
  12078.  
  12079. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12080.  
  12081. SKIP2 specifies that two blank lines are to be inserted in the source listing. 
  12082.  
  12083. You may write SKIP2 anywhere in either Area A or Area B, and you may end it 
  12084. with a separator period.  It must be the only statement on the line. 
  12085.  
  12086.  
  12087. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12088.  
  12089. SKIP3 specifies that three blank lines are to be inserted in the source 
  12090. listing. 
  12091.  
  12092. You may write SKIP3 anywhere in either Area A or Area B, and you may end it 
  12093. with a separator period.  It must be the only statement on the line. 
  12094.  
  12095.  
  12096. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12097.  
  12098. The TITLE statement may appear anywhere in any of the divisions.  The word 
  12099. TITLE may begin in either Area A or Area B.  The TITLE statement may not be 
  12100. continued on another line.  No other statement may appear on the same line as 
  12101. the TITLE statement. 
  12102.  
  12103.  
  12104. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12105.  
  12106. Literal must be nonnumeric and may be followed by a separator period. Literal 
  12107. must not be a figurative constant. 
  12108.  
  12109.  
  12110. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12111.  
  12112. File-name-1 is valid for all files. When you specify file-name-1, the procedure 
  12113. is run only for the files named. No file-name can refer to a sort or merge 
  12114. file.  For any given file, only one EXCEPTION/ERROR procedure may be specified; 
  12115. thus, file-name specification must not cause simultaneous requests for 
  12116. execution of more than one EXECUTION/ERROR procedure. 
  12117.  
  12118. The file-name phrase is also valid for TRANSACTION files. 
  12119.  
  12120. A USE AFTER EXCEPTION/ERROR declarative statement specifying the name of a file 
  12121. takes precedence over a declarative statement specifying the open mode of the 
  12122. file. 
  12123.  
  12124.  
  12125. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12126.  
  12127. INPUT is valid for all files.  When you specify INPUT, the procedure is run for 
  12128. all files opened in INPUT mode that get an error. 
  12129.  
  12130.  
  12131. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12132.  
  12133. OUTPUT is valid for all files.  When you specify OUTPUT, the procedure is run 
  12134. for all files opened in OUTPUT mode that get an error. 
  12135.  
  12136.  
  12137. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12138.  
  12139. I-O is valid for all direct-access files.  When you specify I-O, the procedure 
  12140. is run for all files opened in I-O mode that get an error. 
  12141.  
  12142. The I-O phrase is also valid for TRANSACTION files. 
  12143.  
  12144.  
  12145. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12146.  
  12147. EXTEND is valid only for files with sequential organization and sequential 
  12148. access mode. When you specify EXTEND, the procedure is run for all files opened 
  12149. in EXTEND mode that get an error. 
  12150.  
  12151.  
  12152. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12153.  
  12154. When you specify file-name-1, that debugging section is executed: 
  12155.  
  12156.  After the execution of any CLOSE, DELETE, OPEN, or START statement that 
  12157.   references file-name-1. 
  12158.  
  12159.  After execution of a READ file-name-1 where the AT END phrase or the INVALID 
  12160.   KEY phrase was not run. 
  12161.  
  12162. Any given file-name may appear in only one USE FOR DEBUGGING sentence, and only 
  12163. once in that sentence. 
  12164.  
  12165.  
  12166. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12167.  
  12168. When you specify procedure-name-1, that degugging section is executed: 
  12169.  
  12170.  Before each running of the named procedure. 
  12171.  
  12172.  After running an ALTER statement referring to the named procedure. 
  12173.  
  12174. Except for the USE FOR DEBUGGING sentence itself, statements within a debugging 
  12175. declarative section can only refer to procedure names defined in a different 
  12176. USE procedure through the PERFORM statement.  Procedure names within debugging 
  12177. declarative sections must not appear in USE FOR DEBUGGING sentences. 
  12178.  
  12179. Any given procedure-name may appear in only one USE FOR DEBUGGING sentence, and 
  12180. only once in that sentence. 
  12181.  
  12182.  
  12183. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12184.  
  12185. The ALL PROCEDURES phrase can be specified only once in a program.  When ALL 
  12186. PROCEDURES is specified in a USE FOR DEBUGGING sentence, individual 
  12187. procedure-names must not be specified in any USE FOR DEBUGGING sentence. 
  12188.  
  12189.  
  12190. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12191.  
  12192. GENLVL specifies the severity level that determines if a program object is 
  12193. created. The severity level corresponds to the severity level of the messages 
  12194. produced during compilation of the program.  If the severity level of error 
  12195. messages is greater than the value you specify, a program object is not 
  12196. created. For example, if you specify 19 for this parameter, a program object is 
  12197. not created if the severity level of any of the messages is 20 or greater. 
  12198.  
  12199. You can specify a one or two-digit number, 0 through  29.  If errors occur with 
  12200. a severity level greater than this level, no program object is created.  The 
  12201. default value for GENLVL is 29. 
  12202.  
  12203.  
  12204. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12205.  
  12206. When the COBOL source is compiled: 
  12207.  
  12208.  GEN indicates that the compiler creates a program object after the source 
  12209.   program is compiled. GEN is the default value. 
  12210.  
  12211.  NOGEN indicates that the compiler does not create a program object after the 
  12212.   source program is compiled.  You might specify this option if you want only 
  12213.   error listings at this time. 
  12214.  
  12215.  
  12216. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12217.  
  12218. When the COBOL source is compiled: 
  12219.  
  12220.  NOMAP indicates that the compiler does not list the Data Division map.  NOMAP 
  12221.   is the default value. 
  12222.  
  12223.  MAP indicates that the compiler lists the Data Division map. 
  12224.  
  12225.  
  12226. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12227.  
  12228. When the COBOL source is compiled: 
  12229.  
  12230.  NONUMBER indicates that the source-file sequence numbers are used for 
  12231.   reference numbers.  NONUMBER is the default value. 
  12232.  
  12233.  NUMBER indicates that the user-supplied sequence numbers (columns 1 through 
  12234.   6) are used for reference numbers. 
  12235.  
  12236.  LINENUMBER indicates that the sequence numbers created by the compiler are 
  12237.   used for reference numbers.  This option combines program source code and 
  12238.   source code introduced by COPY statements into one consecutively numbered 
  12239.   sequence.  Use this option if you specify FIPS (Federal Information 
  12240.   Processing Standards) flagging or SAA flagging. 
  12241.  
  12242.  
  12243. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12244.  
  12245. When the COBOL source is compiled: 
  12246.  
  12247.  NOSECLVL indicates that second-level message text is not listed for this 
  12248.   compilation. NOSECLVL is the default value. 
  12249.  
  12250.  SECLVL indicates that second-level message text is listed for this 
  12251.   compilation, along with the first-level message text. 
  12252.  
  12253.  
  12254. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12255.  
  12256. When the COBOL source is compiled: 
  12257.  
  12258.  NOOPTIONS indicates that options in effect are not listed for this 
  12259.   compilation. NOOPTIONS is the default value. 
  12260.  
  12261.  OPTIONS indicates that options in effect are listed for this compilation. 
  12262.  
  12263.  
  12264. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12265.  
  12266. When the COBOL source is compiled: 
  12267.  
  12268.  QUOTE indicates that the delimiter quotation mark (") is used for nonnumeric 
  12269.   literals and Boolean literals.  This also specifies that the value of the 
  12270.   figurative constant QUOTE has the EBCDIC value of a quotation mark.  QUOTE is 
  12271.   the default value. 
  12272.  
  12273.  APOST indicates that the delimiter apostrophe (') is used for nonnumeric 
  12274.   literals and Boolean literals.  This also specifies that the value of the 
  12275.   figurative constant QUOTE has the EBCDIC value of an apostrophe. 
  12276.  
  12277.  
  12278. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12279.  
  12280. When the COBOL source is compiled: 
  12281.  
  12282.  NOSEQUENCE indicates that the reference numbers are not checked for sequence 
  12283.   errors. NOSEQUENCE is the default value. 
  12284.  
  12285.  SEQUENCE indicates that the reference numbers are checked for sequence 
  12286.   errors.  Sequence errors do not occur if the LINENUMBER option is specified. 
  12287.  
  12288.  
  12289. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12290.  
  12291. When the COBOL source is compiled: 
  12292.  
  12293.  SOURCE or SRC indicates that the compiler produces a source listing, 
  12294.   consisting of the COBOL source input and all compilation-time error messages. 
  12295.   SOURCE or SRC are the default values. 
  12296.  
  12297.  NOSOURCE or NOSRC indicates that the compiler does not produce the source 
  12298.   part of the listing. If you do not require a source listing, you should use 
  12299.   this option because compilation may take less time. 
  12300.  
  12301.  
  12302. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12303.  
  12304. When the COBOL source is compiled: 
  12305.  
  12306.  NOVBSUM indicates that verb-usage counts are not printed.  NOVBSUM is the 
  12307.   default value. 
  12308.  
  12309.  VBSUM indicates that verb-usage counts are printed. 
  12310.  
  12311.  
  12312. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12313.  
  12314. When the COBOL source is compiled: 
  12315.  
  12316.  NOXREF indicates the compiler does not produce a cross-reference listing for 
  12317.   the source program. NOXREF is the default value. 
  12318.  
  12319.  XREF indicates that the compiler produces a cross-reference listing for the 
  12320.   source program. 
  12321.  
  12322.  
  12323. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12324.  
  12325. When the COBOL source is compiled: 
  12326.  
  12327.  PRTCORR indicates that the compiler inserts comment lines in the compiler 
  12328.   listing indicating which elementary items were included as a result of the 
  12329.   use of the CORRESPONDING phrase. PRTCORR is the default value. 
  12330.  
  12331.  NOPRTCORR indicates that the compiler does not insert comment lines in the 
  12332.   compiler listing when the CORRESPONDING phrase is used. 
  12333.  
  12334.  
  12335. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12336.  
  12337. When the program object is created: 
  12338.  
  12339.  NOINZDLT indicates that relative files with sequential access are not 
  12340.   initialized with deleted records during the CLOSE operation if the files were 
  12341.   opened for OUTPUT. That is, the record boundary is determined by the number 
  12342.   of records written at OPEN OUTPUT time. Subsequent OPEN operations allow 
  12343.   access only up to the record boundary.  NOINZDLT is the default value. 
  12344.  
  12345.  INZDLT indicates that relative files with sequential access are initialized 
  12346.   with deleted records during the CLOSE operation if the files were opened for 
  12347.   OUTPUT. Active records in the files are not affected.  That is, the record 
  12348.   boundary is defined as the file size for subsequent OPEN operations. 
  12349.  
  12350.  
  12351. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12352.  
  12353. When the program object is created: 
  12354.  
  12355.  NOLIST indicates that no IRP (intermediate representation of program), 
  12356.   associated hexadecimal code, or error messages are listed.  NOLIST is the 
  12357.   default value. 
  12358.  
  12359.  LIST indicates that the IRP, its associated hexadecimal code, and any error 
  12360.   messages are listed. 
  12361.  
  12362.  
  12363. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12364.  
  12365. When the program object is created: 
  12366.  
  12367.  STDERR indicates that standard error handling is used.  STDERR is the default 
  12368.   value. 
  12369.  
  12370.  NOSTDERR indicates that the error handling method of Version 1, Releases 1 
  12371.   and 2, is used. 
  12372.  
  12373. See the chapter on error handling in the COBOL/400 User's Guide for more 
  12374. information about error handling. 
  12375.  
  12376.  
  12377. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12378.  
  12379. When the program object is created: 
  12380.  
  12381.  NODDSFILLER indicates that if no matching fields are found by a COPY DDS 
  12382.   statement, no field descriptions are created.  NODDSFILLER is the default 
  12383.   value. 
  12384.  
  12385.  DDSFILLER indicates that when no matching fields are found by a COPY DDS 
  12386.   statement, a single character FILLER field description, "07 FILLER PIC X", is 
  12387.   always created. 
  12388.  
  12389.  
  12390. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12391.  
  12392. When the program object is created: 
  12393.  
  12394.  NOSYNC indicates that the SYNCHRONIZED clause is syntax checked.  NOSYNC is 
  12395.   the default value. 
  12396.  
  12397.  SYNC indicates that the SYNCHRONIZED clause causes the alignment of an 
  12398.   elementary item on a natural boundary in storage. 
  12399.  
  12400.  
  12401. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12402.  
  12403. When the program object is created: 
  12404.  
  12405.  NOCRTF indicates that files that are unavailable at the time of an OPEN 
  12406.   operation are not created dynamically.  NOCRTF is the default value. 
  12407.  
  12408.  CRTF indicates that files that are unavailable at the time of an OPEN 
  12409.   operation are created dynamically. 
  12410.  
  12411.  
  12412. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12413.  
  12414. When the program object is created: 
  12415.  
  12416.  NODUPKEYCHK does not check for duplicate keys for INDEXED files.  NODUPKEYCHK 
  12417.   is the default value. 
  12418.  
  12419.  DUPKEYCHK checks for duplicate keys for INDEXED files. 
  12420.  
  12421.  
  12422. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12423.  
  12424. When the program object is created: 
  12425.  
  12426.  NOEXTACCDSP indicates that the compiler does not allow extended ACCEPT or 
  12427.   extended DISPLAY statements.  NOEXTACCDSP is the default value. 
  12428.  
  12429.  EXTACCDSP indicates that the compiler allows extended ACCEPT and extended 
  12430.   DISPLAY statements. 
  12431.  
  12432.  
  12433. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12434.  
  12435. When the program object is created: 
  12436.  
  12437.  NOBLK indicates that the compiler allows blocking only of SEQUENTIAL access 
  12438.   files with no START statement. 
  12439.  
  12440.   If a BLOCK CONTAINS clause is specified, the BLOCK CONTAINS clause is 
  12441.   ignored, except for tape files.  NOBLK is the default value. 
  12442.  
  12443.  BLK indicates that the compiler allows blocking from DYNAMIC access files and 
  12444.   SEQUENTIAL access files with a START statement, when used with BLOCK CONTAINS 
  12445.   clause. Blocking is not allowed for RELATIVE files opened for output 
  12446.   operations. 
  12447.  
  12448.   The BLOCK CONTAINS clause controls the number of records to be blocked. 
  12449.  
  12450.   When no BLOCK CONTAINS clause is specified, the compiler allows blocking only 
  12451.   of SEQUENTIAL access files with no START statement. The operating system 
  12452.   determines the number of records to be blocked. 
  12453.  
  12454.  
  12455. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12456.  
  12457. When the program object is created: 
  12458.  
  12459.  STDINZ indicates that the compiler initializes data items to system defaults, 
  12460.   provided that the items are not subject to a VALUE clause.  STDINZ is the 
  12461.   default value. 
  12462.  
  12463.  NOSTDINZ indicates that for those items with no VALUE clause, the compiler 
  12464.   does not initialize data items to system defaults. 
  12465.  
  12466.  
  12467. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12468.  
  12469. When the program object is created: 
  12470.  
  12471.  FS21DUPKY indicates that the compiler reports a file status of 21 when 
  12472.   processing an indexed file with duplicate keys in random or dynamic access 
  12473.   mode, if the value of the key is changed between the mandatory READ statement 
  12474.   and a following REWRITE or DELETE statement.  FS21DUPKY is the default value. 
  12475.  
  12476.  NOFS21DUPKY indicates that the compiler does not report a file status of 21 
  12477.   when processing an indexed file with duplicate keys in random or dynamic 
  12478.   access mode. A REWRITE statement can change the key of a record. 
  12479.  
  12480.  
  12481. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12482.  
  12483. When the program object is created: 
  12484.  
  12485.  RANGE indicates that, at run-time, the system verifies that subscripts are 
  12486.   within the correct ranges, but does not verify index ranges.  It also checks 
  12487.   for reference modification and compiler-generated substring operations. 
  12488.   RANGE is the default value. (Click here for information about reference 
  12489.   modification.) 
  12490.  
  12491.  NORANGE indicates that the system does not verify ranges at run-time. 
  12492.  
  12493.  
  12494. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12495.  
  12496. When the program object is created: 
  12497.  
  12498.  UNREF includes unreferenced data items in the compiled program.  UNREF is the 
  12499.   default value. 
  12500.  
  12501.  NOUNREF does not include unreferenced data items in the compiled program. 
  12502.   This reduces the number of ODT (object definition table) entries used, 
  12503.   allowing a larger program to be compiled.  The unreferenced data items still 
  12504.   appear in the cross-reference listings produced through the *XREF option. 
  12505.  
  12506.  
  12507. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12508.  
  12509.  NOVARCHAR indicates that variable-length fields are ignored, and are declared 
  12510.   as FILLER fields. NOVARCHAR is the default value. 
  12511.  
  12512.  VARCHAR indicates that variable-length fields are declared as fixed-length 
  12513.   group items, and are accessible to the program. 
  12514.  
  12515.  
  12516. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12517.  
  12518.  NODATETIME indicates that date, time, and timestamp data types are ignored, 
  12519.   and are declared as FILLER fields.  NODATETIME is the default value. 
  12520.  
  12521.  DATETIME indicates that date, time, and timestamp data types are declared as 
  12522.   fixed-length character fields, and are accessible to the program. 
  12523.  
  12524.  
  12525. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12526.  
  12527.  NOCVTGRAPHIC indicates that DBCS-graphic data types are ignored, and are 
  12528.   declared as FILLER fields. NOCVTGRAPHIC is the default value. 
  12529.  
  12530.  CVTGRAPHIC indicates that fixed-length DBCS-graphic data types are declared 
  12531.   as fixed-length alphanumeric fields, and are accessible to the program. 
  12532.  
  12533.   When the VARCHAR option is also in use, variable-length DBCS-graphic data 
  12534.   types are declared as fixed-length group items, and are accessible to the 
  12535.   program. 
  12536.  
  12537.  
  12538. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12539.  
  12540. For FIPS flagging: 
  12541.  
  12542.  NOFIPS indicates that the source program is not FIPS flagged.  NOFIPS is the 
  12543.   default value. 
  12544.  
  12545.  MINIMUM indicates FIPS flag for minimum subset and higher. 
  12546.  
  12547.  INTERMEDIATE indicates FIPS flag for intermediate subset and higher. 
  12548.  
  12549.  HIGH indicates FIPS flag for high subset. 
  12550.  
  12551.  
  12552. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12553.  
  12554. For FIPS flagging: 
  12555.  
  12556.  NOSEG indicates that optional module SEGMENTATION is not FIPS flagged.  NOSEG 
  12557.   is the default value. 
  12558.  
  12559.  SEG1 performs FIPS flagging for optional module SEGMENTATION level 1 and 
  12560.   higher. 
  12561.  
  12562.  SEG2 performs FIPS flagging for optional module SEGMENTATION level 2. 
  12563.  
  12564.  
  12565. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12566.  
  12567. For FIPS flagging: 
  12568.  
  12569.  NODEB indicates that optional module DEBUG is not FIPS flagged.  NODEB is the 
  12570.   default value. 
  12571.  
  12572.  DEB1 performs FIPS flagging for optional module DEBUG level 1 and higher. 
  12573.  
  12574.  DEB2 performs FIPS flagging for optional module DEBUG level 2. 
  12575.  
  12576.  
  12577. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12578.  
  12579. For FIPS flagging: 
  12580.  
  12581.  NOOBSOLETE indicates that obsolete language elements are not flagged. 
  12582.   NOOBSOLETE is the default value. 
  12583.  
  12584.  OBSOLETE indicates that obsolete language elements are flagged. 
  12585.  
  12586.  
  12587. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12588.  
  12589. To specify if you want flagging of COBOL/400 functions that are not supported 
  12590. by SAA COBOL: 
  12591.  
  12592.  NOSAAFLAG indicates that SAA COBOL flagging is not performed.  NOSAAFLAG is 
  12593.   the default value. 
  12594.  
  12595.  SAAFLAG indicates that SAA COBOL flagging is performed. 
  12596.  
  12597.  
  12598. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12599.  
  12600. FLAG(nn) specifies the minimum severity level of messages to be printed. 
  12601.  
  12602.  0 indicates that all messages are printed.  This is the default value. 
  12603.  
  12604.  severity-level (a one or two-digit number) indicates the minimum severity 
  12605.   level of messages that are printed.  Messages that have severity levels of 
  12606.   the specified value or higher are listed. 
  12607.  
  12608.  
  12609. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12610.  
  12611. For file status 9M: 
  12612.  
  12613.  NOFS9MTO0M indicates that file status 9M is not changed to file status 0M. 
  12614.   This is the default value. 
  12615.  
  12616.  FS9MTO0M indicates that file status 9M is changed to file status 0M. 
  12617.  
  12618.  
  12619. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12620.  
  12621. The GRAPHIC option of the PROCESS statement is available for processing DBCS 
  12622. characters in DBCS literals.  This option is for DBCS systems only. 
  12623.  
  12624.  NOGRAPHIC indicates that DBCS characters in DBCS/SBCS (mixed) literals are 
  12625.   processed.  This is the default value. 
  12626.  
  12627.  GRAPHIC indicates that DBCS characters in DBCS literals are processed. 
  12628.  
  12629.  
  12630. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12631.  
  12632. For file status 9A: 
  12633.  
  12634.  NOFS9ATO0A indicates that file status 9A is not changed to file status 0A. 
  12635.   This is the default value. 
  12636.  
  12637.  FS9ATO0A indicates that file status 9A is changed to file status 0A. 
  12638.  
  12639.  
  12640. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12641.  
  12642. This explicit scope terminator serves to delimit the scope of a statement.  It 
  12643. permits the conditional form of the statement to be nested within another 
  12644. conditional statement. You can also use the explicit scope terminator with the 
  12645. imperative form of the statement. 
  12646.  
  12647.  
  12648. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12649.  
  12650. Data-name-1 must refer to a non-Boolean data item whose implicit or explicit 
  12651. usage is DISPLAY.  Data-name-1 can be qualified or subscripted. 
  12652.  
  12653. Each character of a data item referenced by data-name-1 is assigned an ordinal 
  12654. number incrementing by one from the leftmost position to the rightmost 
  12655. position. The leftmost position is assigned the ordinal number of one. If the 
  12656. data description entry for data-name-1 contains a SIGN IS SEPARATE clause, the 
  12657. sign position is assigned an ordinal number within that data item. 
  12658.  
  12659. If the data item referenced by data-name-1 is described as numeric, 
  12660. numeric-edited, or alphanumeric-edited, it is operated upon for purposes of 
  12661. reference modification as if it were redefined as an alphanumeric data item of 
  12662. the same size as the data item referenced by data-name-1. 
  12663.  
  12664.  
  12665. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12666.  
  12667. Leftmost-character-position must be a numeric literal or an arithmetic 
  12668. expression. The evaluation of the leftmost-character-position must result in a 
  12669. positive nonzero integer that is less than or equal to the number of characters 
  12670. in the data item referenced by data-name-1. 
  12671.  
  12672.  
  12673. ΓòÉΓòÉΓòÉ <hidden>  ΓòÉΓòÉΓòÉ
  12674.  
  12675. Length must be a numeric literal or an arithmetic expression. 
  12676.  
  12677. The evaluation of length must result in an integer that is greater than zero, 
  12678. and less than 32 768. If length is not specified, the unique data item created 
  12679. extends from and includes the character identified by 
  12680. leftmost-character-position up to and including the rightmost character of the 
  12681. data item referenced by data-name-1. 
  12682.  
  12683. Note:   If the result of an arithmetic expression is something other than an 
  12684. integer, truncation occurs, resulting in an integer.