API tools faq
paste
Guest User

Untitled

a guest
Dec 17th, 2017
84
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.45 KB | None | 0 0
raw download clone embed print report
  1. isi-data-tabel.
  2. DISPLAY ( , ) 'cabang ', subscript-cabang, bulan ', subscript-bulan, ' : '.
  3. ACCEPT ( , ) jumlah-unit-terjual (subscript-cabang, subscript-bulan).
  4. DISPLAY SPACE.
  5.  
  6. IDENTIFICATION DIVISION.
  7. PROGRAM-ID. tabel2.
  8. ENVIRONMENT DIVISION.
  9. DATA DIVISION.
  10. WORKING-STORAGE SECTION.
  11. 01 ws-subscript.
  12. 02 subscript-cabang PIC 9.
  13. 02 subscript-bulan PIC 9.
  14. 01 tabel-penjualan-mobil.
  15. 02 cabang OCCURS 4 TIMES.
  16. 03 bulan OCCURS 3 TIMES.
  17. 04 jumlah-unit-terjual PIC 99.
  18. 77 total-penjualan-cabang PIC 99 VALUE 0.
  19. SCREEN SECTION.
  20. 01 hapus-layar.
  21. 02 BLANK SCREEN.
  22. PROCEDURE DIVISION.
  23.  
  24. program-utama.
  25. PERFORM entry-tabel.
  26. PERFORM tampilkan-tabel.
  27. STOP RUN.
  28.  
  29. entry-tabel.
  30. DISPLAY ' Pemasukan data ke dalam tabel dimensi dua: '.
  31. PERFORM isi-data-tabel
  32. VARYING subscript-cabang FROM 1 BY 1
  33. UNTIL subscript-cabang > 4
  34. AFTER subscript-bulan FROM 1 BY 1
  35. UNTIL subscript-bulan > 3.
  36.  
  37. isi-data-tabel.
  38. DISPLAY ( , ) 'cabang ', subscript-cabang, bulan ', subscript-bulan, ' : '.
  39. ACCEPT ( , ) jumlah-unit-terjual (subscript-cabang, subscript-bulan).
  40. DISPLAY SPACE.
  41.  
  42. tampilkan-tabel.
  43. DISPLAY hapus-layar.
  44. DISPLAY ' Menampilkan isi tabel berdimensi dua : '.
  45.  
  46. PERFORM display-data-tabel
  47. VARYING subscript-cabang FROM 1 BY 1
  48. UNTIL subscript-cabang > 4
  49. AFTER subscript-bulan FROM 1 BY 1
  50. UNTIL subscript-bulan > 3.
  51.  
  52. display-data-tabel.
  53. DISPLAY ( , ) 'cabang ', subscript-cabang,
  54. 'bulan ', subscript-bulan, ' : ',
  55. jumlah-unit-terjual (subscript-cabang, subscript-bulan).
  56. DISPLAY SPACE.
  57. ADD jumlah-unit-terjual (subscript-cabang, subscript-bulan)
  58. TO total-penjualan-cabang.
  59. IF (subscript-bulan = 3)
  60. DISPLAY '*** Total penjualan per cabang = ', total-penjualan-cabang.
  61.  
  62. MOVE 0 TO total-penjualan-cabang.
  63.  
  64. DISPLAY ( , ) 'cabang ', subscript-cabang, bulan ', subscript-bulan, ' : '.
  65.  
  66. DISPLAY 'cabang ', subscript-cabang, ' bulan ', subscript-bulan, ' : '.
  67.  
  68. DISPLAY 'cabang ', subscript-cabang, ' bulan ', subscript-bulan, ' : '
  69.  
  70. DISPLAY 'cabang ' subscript-cabang ' bulan ' subscript-bulan ' : '
  71.  
  72. DISPLAY
  73. 'cabang'
  74. '>'
  75. subscript-cabang
  76. '<'
  77. 'bulan'
  78. '>'
  79. subscript-bulan
  80. '<'
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!