home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol600 / diskio.cob < prev    next >
Text File  |  1990-04-24  |  3KB  |  79 lines
  1. 00001  IDENTIFICATION DIVISION.
  2. 00002  PROGRAM-ID.
  3. 00003      Demo 1.
  4. 00004  AUTHOR.
  5. 00005      Bob Noweck.
  6. 00006  INSTALLATION.
  7. 00007      IBM PC COMPATABLES.
  8. 00008  DATE-WRITTEN.
  9. 00009      APRIL 22 1990.
  10. 00010  DATE-COMPILED.
  11. 00011      APRIL 22 1990.
  12. 00012  SECURITY.
  13. 00013      NONE.
  14. 00014  ENVIRONMENT DIVISION.
  15. 00015  CONFIGURATION SECTION.
  16. 00016  SOURCE-COMPUTER.
  17. 00017      WYSE-386 WITH DEBUGGING MODE.
  18. 00018  OBJECT-COMPUTER.
  19. 00019      WYSE-386 MEMORY SIZE 384000 WORDS.
  20. 00020  SPECIAL-NAMES. 
  21. 00121  INPUT-OUTPUT SECTION.
  22. 00122  FILE-CONTROL.
  23. 00123  SELECT IN-FILE
  24. 00124      ASSIGN TO DISK
  25. 00125      ORGANIZATION IS INDEXED
  26. 00126      ACCESS MODE IS RANDOM
  27. 00127      RECORD KEY IS IN-KEY.
  28. 00128      SELECT OUT-FILE
  29. 00129         ASSIGN TO DISK
  30. 00130         ORGANIZATION IS INDEXED
  31. 00131         ACCESS MODE IS RANDOM
  32. 00132         RECORD KEY IS OUT-KEY.
  33. 00133  DATA DIVISION.
  34. 00134  FILE SECTION.
  35. 00135  FD IN-FILE
  36. 00136      BLOCK CONTAINS 1 TO 5000 RECORDS
  37. 00137      LABEL RECORDS ARE STANDARD
  38. 00138      VALUE OF FILE-ID IS 'TEST.DAT'
  39. 00139      DATA RECORD IS IN-FILE-RECORD.
  40. 00141   01 IN-FILE-RECORD.
  41. 00142      02 FILLER.
  42. 00143         03 IN-KEY.
  43. 00144            04 FIRST-NAME PIC X(30).
  44. 00145            04 MIDDLE-INIT PIC X.
  45. 00146            04 LAST-NAME PIC X(30).
  46. 00147         03 PHONE-NUMBERS.
  47. 00148            04 HOME-PHONE.
  48. 00149               05 AREA-CODE PIC X(3).
  49. 00150               05 PREFIX PIC X(3).
  50. 00151               05 SUFFIX PIC X(4).
  51. 00152            04 WORK-PHONE.
  52. 00153               05 AREA-CODE PIC X(3).
  53. 00154               05 PREFIX PIC X(3).
  54. 00155               05 SUFFIX PIC X(4).
  55. 00169  FD OUT-FILE
  56. 00171      LABEL RECORDS ARE STANDARD
  57. 00172      VALUE OF FILE-ID IS 'OUTFILE.DAT'
  58. 00173      DATA RECORD IS OUT-FILE-RECORD.
  59. 00174  01 OUT-FILE-RECORD.
  60. 00175      02 OUT-KEY.
  61. 00176         03 NAME PIC X(71).
  62. 00177         03 PHONE PIC X(10).
  63. 00180  WORKING-STORAGE SECTION.
  64.  
  65. 00200  PROCEDURE DIVISION.
  66. 00300  MAIN.
  67. 00302      OPEN OUTPUT IN-FILE.
  68. 00310      OPEN OUTPUT OUT-FILE.
  69. 00311      MOVE 'BOB' TO FIRST-NAME.
  70. 00322      MOVE 'NOWECK' TO LAST-NAME.
  71. 00333      MOVE '9124270756' TO HOME-PHONE.
  72. 00340      MOVE '9124270756' TO WORK-PHONE.
  73. 00360      MOVE 'Robert Noweck 115 Lynton Rd. Jesup Ga.' to name
  74. 00370      write  in-file-record.
  75. 00380      write out-file-record.
  76. 00400      close out-file.
  77. 00410      close in-file.
  78. 00400      STOP RUN.
  79.