home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / assist / loader.cbl < prev    next >
Text File  |  1993-12-08  |  3KB  |  70 lines
  1. 000100 IDENTIFICATION DIVISION.
  2. 000200 PROGRAM-ID. LOADER.
  3. 000300********************* LOADER.CBL *************************************
  4. 000400** THIS PROGRAM LOADS THE INDEXED FILE FILESTAT2.DAT WITH FILE STATUS
  5. 000500** INFORMATION FOUND IN THE FILE FSTAT2.CBL.
  6. 000600**********************************************************************
  7. 000700 ENVIRONMENT DIVISION.
  8. 000800 CONFIGURATION SECTION.
  9. 000900 SOURCE-COMPUTER. IBM-PC.
  10. 001000 OBJECT-COMPUTER. IBM-PC.
  11. 001100 INPUT-OUTPUT SECTION.
  12. 001200 FILE-CONTROL.
  13. 001300 SELECT DATAFILE ASSIGN TO "FSTAT2.CBL"
  14. 001400 ORGANIZATION IS LINE SEQUENTIAL
  15. 001500 FILE STATUS IS WS-STATUS.
  16. 001600 SELECT LOADFILE ASSIGN TO "FSTAT2.DAT"
  17. 001700 ORGANIZATION IS INDEXED
  18. 001800 ACCESS IS SEQUENTIAL
  19. 001900 RECORD KEY IS CODE-KEY
  20. 002000 FILE STATUS IS LOAD-STATUS.
  21. 002100 DATA DIVISION.
  22. 002200 FILE SECTION.
  23. 002300 FD DATAFILE
  24. 002400     RECORD CONTAINS 77 CHARACTERS
  25. 002500     DATA RECORD IS DATA-REC.
  26. 002600 01 DATA-REC.
  27. 002700     05 DESC-OUT            PIC X(72).
  28. 002800     05                     PIC X.
  29. 002900     05 CODE-OUT            PIC X(4).
  30. 003000 FD LOADFILE
  31. 003100     DATA RECORD IS LOAD-REC.
  32. 003200 01 LOAD-REC.
  33. 003300     05 DESC-IN             PIC X(72).
  34. 003400     05                     PIC X.
  35. 003500     05 CODE-KEY            PIC X(4).
  36. 003600 WORKING-STORAGE SECTION.
  37. 003700 01 WS-STATUS.
  38. 003800     05 WS-1                PIC X.
  39. 003900     05 WS-2                PIC X.
  40. 004000 01 LOAD-STATUS.
  41. 004100     05 LS-1                PIC X.
  42. 004200     05 LS-2                PIC X.
  43. 004300 01 SWITCH                  PIC X(3) VALUE "YES".
  44. 004400     88 NO-MORE-RECORDS     VALUE " NO".
  45. 004500 PROCEDURE DIVISION.
  46. 004600 000-MAIN.
  47. 004700     PERFORM 100-OPEN.
  48. 004800     PERFORM 200-READER UNTIL NO-MORE-RECORDS.
  49. 004900     PERFORM 999-ENDER.
  50. 005000 100-OPEN.
  51. 005100     OPEN INPUT DATAFILE.
  52. 005200     IF WS-STATUS NOT = "00"
  53. 005300     DISPLAY "OPEN OF DATAFILE DID NOT WORK " WS-STATUS
  54. 005400     PERFORM 999-ENDER.
  55. 005500     OPEN OUTPUT LOADFILE.
  56. 005600     IF LOAD-STATUS NOT = "00"
  57. 005700     DISPLAY "OPEN OF LOADFILE DID NOT WORK " LOAD-STATUS
  58. 005800     PERFORM 999-ENDER.
  59. 005801     READ DATAFILE AT END MOVE " NO" TO SWITCH.
  60. 005805     DISPLAY "OUT CODE IS " CODE-OUT.
  61. 005810 200-READER.
  62. 005850     WRITE LOAD-REC FROM DATA-REC.
  63. 005851     DISPLAY "INPUT IS    " CODE-KEY.
  64. 005860     READ DATAFILE AT END MOVE " NO" TO SWITCH.
  65. 005862     DISPLAY "OUT CODE IS " CODE-OUT.
  66. 005900 999-ENDER.
  67. 006000    CLOSE DATAFILE.
  68. 006100    CLOSE LOADFILE.
  69. 006200    STOP RUN.
  70.