Tutorial RPGLE by Rurid H

Jika anda pernah mengikuti tutorial saya di  https://ruridtutorial.blogspot.com/2020/01/update-data-record-di-pf-dengan_7.html   maka anda pasti mempunyai program MAINPRGM09. Selanjutnya jika anda pernah mempraktekan tutorial saya di  https://ruridtutorial.blogspot.com/2020/01/menghapus-record-di-pf-dengan.html  maka anda pasti mempunyai program MAINPRGM07. Selanjutnya jika anda mengikuti tutorial saya di  https://ruridtutorial.blogspot.com/2020/01/memasukan-data-ke-dalam-pf-melalui-dspf.html  maka anda pasti mempunyai progran MAINPRGM05. Selanjutnya jika anda pernah mengikuti tutorial saya di  https://ruridtutorial.blogspot.com/2019/12/menampilkan-isi-physical-file-pf-ke.html  maka anda pasti mempunyai program MAINPRGM03. Nah pada tutorial kali ini kita akan membuat program RPGLE baru dengan nama MAINRPGM12 dan DSPF baru dengan nama DISPLAY006 untuk  menjakan program MAINPRGM03, MAINPRGM05, MAINPRGM07 dan MAINPRGM09. 1. Buat DSPF DIS...

Studi kasus kali ini sama dengan studi kasus pada tutorial saya di  https://ruridtutorial.blogspot.com/2020/01/sinkronisasi-data-dengan-menggunakan.html  . Kita akan menggunakan Physical File yg sama yaitu PF001 dan PF002. Hanya saya jika di tutorial saya kali ini mainprogram yang dipakai mempunyai type file RPGLE.  Di dalam tutorial kali ini kita akan menggunakan main program MAINPRGM11 dengan kode sebagai berikut : Jika program MAINPRGM11 dijalankan maka akan menghasilkan sinkronisasi data seperti pada tutorial saya di  https://ruridtutorial.blogspot.com/2020/01/sinkronisasi-data-dengan-menggunakan.html

1. Studi Kasus     Saya mempunyai 2 buah PF yaitu PF001 dan PF002.  PF001 mempunyai kode seperti di atas. PF001 berisi data seperti di atas. PF002 mempunyai kode seperti di atas PF002 berisi data seperti di atas. Dalam studi kasus ini kita akan merubah data di PF001 dengan data yang ada di PF002. Jika data NAMAWARGA di PF001 ada yang sama persis dengan NAMAACUAN di PF002 maka data UMURWARGA di PF001 akan menjadi sama dengan UMURACUAN di PF002, jika NAMAWARGA di PF001 tidak ada yang sama persis dengan NAMAACUAN di PF002 maka UMURWARGA di PF001 tidak akan berubah. Kemudian jika ada NAMAACUAN di PF002 yang tidak ada yang sama persis dengan NAMAWARGA di PF002 maka data NAMAACUAN dan UMURACUAN di PF002 tersebut akan ditambahkan ke PF001 sebagai record baru. Kemudian buat program dengan nama  MAINPRGM10 dengan kode sebagai berikut :  Jika program dijalankan maka PF001 akan berisi record seperti ini Record PF001 ...

Object yang kita perlukan antara lain : PF001 (PF) , DISPLAY005(DSPF) dan, MAINPRGM09( SQLRPGLE  ). Untuk PF001 dan DISPLAY005 jika anda belum pernah membuatnya anda bisa mempraktekan tutorial saya di  https://ruridtutorial.blogspot.com/2020/01/update-data-record-di-pf-dengan.html   . Namun jika anda sudah mempraktekan anda tidak perlu membuatnya lagi. Untuk MAINPRGM009 type filenya adalah SQLRPGLE, untuk membuatnya ketiklah code sebagai berikut :  Jika dijalankan maka programnya akan seperti ini Tampilan awal program Jika nama tidak ada di PF akan muncul warning berwarna merah Jika nama yg diinput ada di PF makan akan muncul inputan untuk update umur Jika umur sukses diupdate maka akan muncul tampilan seperti di atas

Object yang diperlukan yaitu PF001(PF), DISPLAY005 (DSPF), dan MAINPRGM08 (  RPGLE ) . 1. PF001 , Jika anda belum pernah membuatnya maka ikutilah tutorial yang pernah saya buat di  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html  , namun jika anda pernah membuatnya maka tidak perlu memnbuatnya lagi. 2. DISPLAY005 Buatlah Objet DISPLAY005 dengan kode sebagai berikut : 3. Untuk Main Program MAINPRGM08 (RPGLE) ketiklah code dibawah ini. 4. Jika dijalankan maka programnya akan seperti ini Tampilan awal program Jika nama tidak ada di PF akan muncul warning berwarna merah Jika nama yg diinput ada di PF makan akan muncul inputan untuk update umur Jika umur sukses diupdate maka akan muncul tampilan seperti di atas  

Object yang diperlukan yaitu PF : PF001 , DSPF : DISPLAY004 , MainProgram :  MAINPRGM07  (  RPGLE ) 1. PF001 Jika anda pernah mempraktekan tutorial saya di  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html maka anda tidak perlu lagi membuat PF001, tapi jika anda belum mempraktekannya maka anda harus membuat terlebih dahulu, jadi silakan praktekan artikel saya yang ini  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html 2. DISPLAY004      Untuk DSPF DISPLAY004 Jika anda pernah  mengikuti tutorial saya di https://ruridtutorial.blogspot.com/2020/01/menghapus-data-di-pf-dengan-menggunakan.html maka tidak pelu membuat lagi   DSPF  DISPLAY004, namun jika anda belum pernah membuat DISPLAY004 maka ketikan code sebagai berikut. 3.  Untuk MainProgram MAINPRGM07 dengan TYPE RPGLE , silakan ketikan kode seperti di bawah ini. ...

Object yang diperlukan yaitu PF : PF001 , DSPF : DISPLAY004 , MainProgram :  MAINPRGM06 (  SQLRPGLE )   . 1. PF001 Jika anda pernah mempraktekan tutorial saya di  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html maka anda tidak perlu lagi membuat PF001, tapi jika anda belum mempraktekannya maka anda harus membuat terlebih dahulu, jadi silakan praktekan artikel saya yang ini  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html 2. DISPLAY004     Untuk DSPF DISPLAY004 ketikan code sebagai berikut. 3.  Untuk MainProgram MAINPRGM06 dengan TYPE  SQLRPGLE , silakan ketikan kode seperti di bawah ini. 4. Jika dijalankan main programnya maka hasilnya seperti ini, Jika tidak nama yang dihapus akan muncul warning seperti gambar. Jika nama ada di PF maka akan muncul pesan seperti gambar.