home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / vrac / ledwca.zip / COBOL.L < prev    next >
Text File  |  1996-01-31  |  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. nom.
  12.        AUTHOR. nom.
  13.        DATE-WRITTEN. data.
  14.        REMARKS. comentaris.
  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 indexat
  45.      ASSIGN TO xxxxxxxxxxxxx
  46.      ORGANIZATION IS INDEXED
  47.      ACCESS MODE IS SEQUENTIAL | RANDOM | DYNAMIC
  48.      RECORD KEY IS camp.
  49. *
  50. .sr
  51.  SELECT file relatiu
  52.      ASSIGN TO xxxxxxxxxxxxx
  53.      ORGANIZATION IS RELATIVE
  54.      ACCESS MODE IS
  55.         SEQUENTIAL [RELATIVE KEY IS camp].
  56.         RANDOM | DYNAMIC RELATIVE KEY IS camp.
  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 nom.
  64. *
  65. .pr
  66.        procedure.
  67.            sentencies
  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 ... = expressio.
  78. .di
  79. DISPLAY id1 id2 ... UPON CONSOLE.
  80. .d
  81. DIVIDE id1 INTO | BY id2 GIVING res ROUNDED REMAINDER reste.
  82. .i
  83. IF condicio
  84.    sentencies | NEXT SENTENCE
  85. ELSE
  86.    sentencies | NEXT SENTENCE.
  87. NOTE fi 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 condicio.
  104.  
  105. .pv
  106. PERFORM procedure [THROUGH procedure] VARYING xxx FROM yyy BY zzz UNTIL condicio.
  107. .r
  108. READ file NEXT RECORD [INTO camp] AT END sentencia.
  109. .rr
  110. READ file RECORD [INTO camp] [KEY IS camp] [INVALID KEY sentencia].
  111. .rw
  112. REWRITE registre [FROM camp] [INVALID KEY sentencia].
  113. .st
  114. START file KEY IS =>< camp].
  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 registre FROM camp AFTER | BEFORE id LINES AT EOP sentencia.
  123. .w
  124. WRITE registre FROM camp.
  125. .wr
  126. WRITE registre FROM camp INVALID KEY sentencia.
  127. .se
  128. SEARCH id1 [VARYING id2]
  129.    [AT END sentencia]
  130.    WHEN condicio sentencia | NEXT SENTENCE ...
  131. NOTE fi search.
  132. .sa
  133. SEARCH ALL id
  134.    [AT END sentencia]
  135.    WHEN condicio [AND condició]... sentencia | NEXT SENTENCE.
  136. NOTE fi search.
  137. ..
  138. <...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+....0....+....1....+....2....+.
  139.