home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / compiler / cobol500 / diskio.cob < prev    next >
Encoding:
Text File  |  1989-10-26  |  1.0 KB  |  32 lines
  1. 00001  IDENTIFICATION DIVISION.
  2. 00002  PROGRAM-ID. TEST PROGRAM.
  3. 00004  DATE-WRITTEN. 06/10/89.
  4. 00024  ENVIRONMENT DIVISION.
  5. 00025  CONFIGURATION SECTION.
  6. 00026  SOURCE-COMPUTER. WYSE 386.
  7. 00027  OBJECT-COMPUTER. WYSE 386.
  8. 00028  INPUT-OUTPUT SECTION.
  9. 00030  FILE-CONTROL.
  10. 00031   SELECT TEST-FILE.
  11. 00032   ASSIGN TO DISK
  12. 00033   ACCESS SEQUENTIAL
  13. 00034   ORGANIZATION SEQUENTIAL.
  14. 00313  DATA DIVISION.
  15. 00314  FILE SECTION.
  16. 00325  FD TEST-FILE 
  17. 00326   LABEL RECORDS STANDARD
  18. 00327   VALUE OF FILE-ID "TEST.DAT". 
  19. 00341  01 DT PIC X(40).
  20. 00342  WORKING-STORAGE SECTION.
  21. 00343   01 END-OF-FILE PIC X VALUE 'F'.
  22. 00344   01 NAMES-CONT PIC X VALUE 'Y'.
  23. 00345   01 DSP    PIC X(80).
  24. 00355  PROCEDURE DIVISION.
  25. 00360  MAIN-PARA.
  26. 00370      OPEN  OUTPUT TEST-FILE.
  27. 00371      MOVE "TEST DATA " TO DT.
  28. 00372      WRITE DT.
  29. 00375      MOVE "THIS IS A TEST OF THIS COMPILER" TO DT.
  30. 00376      WRITE DT.
  31. 00380      CLOSE TEST-FILE .
  32.