home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / viscobv7.zip / vac22os2 / ibmcobol / macros / cbl.smp < prev    next >
Text File  |  1998-02-24  |  1KB  |  19 lines
  1. 000010 Identification Division.                                         00000010
  2. 000020* Sample COBOL file                                               00000020
  3. 000030K                                                                 00000030
  4. 000040 SKIP1.
  5. 000050                                                                  00000050
  6. 000060  Data Division.                                                  00000060
  7. 000070  Working-Storage Section.                                        00000070
  8. 000080      05  pgm-id Pic X(10) Value "Program1".                      00000080
  9. 000090                                                                  00000090
  10. 000100  Procedure Division.                                             00000100
  11. 000110                                                                  00000110
  12. 000120  Main-Program-Logic.                                             00000120
  13. 000130                                                                  00000130
  14. 000140      Compute x = function sin(a).                                00000140
  15. 000150      COPY A REPLACING ==a== with ==b==.                          00000150
  16. 000160      exec sql.                                                   00000160
  17. 000170      end-exec.                                                   00000170
  18. 000180      Stop Run.                                                   00000180
  19.