home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / ledwes.zip / COBOL.L < prev    next >
Text File  |  1996-02-17  |  3KB  |  139 lines
  1. c:\c700\bin\QH
  2. -rb
  3. c:\c700\bin\win31wh.hlp
  4. .
  5.  
  6. 0
  7.       *
  8. .esq
  9.        IDENTIFICATION DIVISION.
  10.       *
  11.        PROGRAM-ID. nombre.
  12.        AUTHOR. nombre.
  13.        DATE-WRITTEN. fecha.
  14.        REMARKS. comentarios.
  15.       *
  16.       *
  17.        ENVIRONTMENT DIVISION.
  18.       *
  19.        CONFIGURATION SECTION.
  20.        OBJECT-COMPUTER. ?????????.
  21.        DECIMAL-POINT IS COMMA.
  22.       *
  23.        INPUT-OUTPUT SECTION.
  24.        FILE-CONTROL.
  25.       *
  26.        I-O-CONTROL.
  27.       *
  28.       *
  29.        DATA DIVISION.
  30.       *
  31.        FILE SECTION.
  32.       *
  33.        WORKING-STORAGE SECTION.
  34.       *
  35.        PROCEDURE DIVISION.
  36.  
  37. .ss
  38.  SELECT file secuencial
  39.      ASSIGN TO xxxxxxxxxxxxx
  40.      ORGANIZATION IS SEQUENTIAL
  41.      ACCESS MODE IS SEQUENTIAL.
  42. *
  43. .si
  44.  SELECT file indexado
  45.      ASSIGN TO xxxxxxxxxxxxx
  46.      ORGANIZATION IS INDEXED
  47.      ACCESS MODE IS SEQUENTIAL | RANDOM | DYNAMIC
  48.      RECORD KEY IS campo.
  49. *
  50. .sr
  51.  SELECT file relativo
  52.      ASSIGN TO xxxxxxxxxxxxx
  53.      ORGANIZATION IS RELATIVE
  54.      ACCESS MODE IS
  55.         SEQUENTIAL [RELATIVE KEY IS campo].
  56.         RANDOM | DYNAMIC RELATIVE KEY IS campo.
  57. *
  58. .fd
  59.  FD  file
  60.      BLOCK CONTAINS [aaaa TO] bbbb CHARACTERS | RECORDS
  61.      RECORD CONTAINS [aaaa TO] bbbb CHARACTERS
  62.      LABEL RECORDS STANDARD | OMMITED
  63.      DATA RECORD IS nombre.
  64. *
  65. .pr
  66.        procedure.
  67.            sentencias
  68. .a
  69. ADD id1 id2 ... TO idr1 ROUNDED idr2 ROUNDED.
  70. .ag
  71. ADD id1 id2 ... GIVING idr1 ROUNDED idr2 ROUNDED.
  72. .ac
  73. ADD CORRESPONDING id1 TO id2 ROUNDED.
  74. .cl
  75. CLOSE file WITH NO REWIND | LOCK.
  76. .c
  77. COMPUTE id1 ROUNDED id2 ROUNDED ... = expresi≤n.
  78. .di
  79. DISPLAY id1 id2 ... UPON CONSOLE.
  80. .d
  81. DIVIDE id1 INTO | BY id2 GIVING res ROUNDED REMAINDER resto.
  82. .i
  83. IF condici≤n
  84.    sentencias | NEXT SENTENCE
  85. ELSE
  86.    sentencias | NEXT SENTENCE.
  87. NOTE fin if.
  88. .m
  89. MOVE id TO idr1 idr2 ... .
  90. .mc
  91. MOVE CORRESPONDING id TO idr.
  92. .x
  93. MULTIPLY id1 BY id2 ROUNDED id3 ROUNDED ... .
  94. .xg
  95. MULTIPLY id1 BY id2 GIVING idr1 ROUNDED idr2 ROUNDED ... .
  96. .o
  97. OPEN INPUT | OUTPUT | I-O | EXTEND file REVERSED | WITH NO REWIND.
  98. .p
  99. PERFORM procedure [THROUGH procedure].
  100. .pt
  101. PERFORM procedure [THROUGH procedure] xxxxx TIMES.
  102. .pu
  103. PERFORM procedure [THROUGH procedure] UNTIL condici≤n.
  104.  
  105. .pv
  106. PERFORM procedure [THROUGH procedure] VARYING xxx FROM yyy BY zzz UNTIL condici≤n.
  107. .r
  108. READ file NEXT RECORD [INTO campo] AT END sentencia.
  109. .rr
  110. READ file RECORD [INTO campo] [KEY IS campo] [INVALID KEY sentencia].
  111. .rw
  112. REWRITE registro [FROM campo] [INVALID KEY sentencia].
  113. .st
  114. START file KEY IS =>< campo].
  115. .s
  116. SUBTRACT id1 id2 ... FROM idr1 ROUNDEN idr2 ROUNDED ... .
  117. .sg
  118. SUBTRACT id1 id2 ... FROM idn GIVING idr1 ROUNDED idr2 ROUNDED ... .
  119. .sc
  120. SUBTRACT CORRESPONDING id1 FROM id2 ROUNDED.
  121. .wi
  122. WRITE registro FROM campo AFTER | BEFORE id LINES AT EOP sentencia.
  123. .w
  124. WRITE registro FROM campo.
  125. .wr
  126. WRITE registro FROM campo INVALID KEY sentencia.
  127. .se
  128. SEARCH id1 [VARYING id2]
  129.    [AT END sentencia]
  130.    WHEN condici≤n sentencia | NEXT SENTENCE ...
  131. NOTE fin search.
  132. .sa
  133. SEARCH ALL id
  134.    [AT END sentencia]
  135.    WHEN condici≤n [AND condici≤n]... sentencia | NEXT SENTENCE.
  136. NOTE fin search.
  137. ..
  138. <...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+.
  139.