Skip to main content

Membuat program RPGLE dengan cara CALL program RPGLE lainnya

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 DISPLAY006
    Ketikan code sebagai berikut :
   



2. Buat RPGLE MAINPRGM12
    Ketikan kode sebagai berikut :
    
    





Jika MAINPRGM12 dijalankan akan muncul tampilan seperti dibawah ini. Silakan dicoba






Comments

Popular posts from this blog

Sinkronisasi Data dengan Menggunakan SQLRPGLE

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 ...

Update Data (record) Di PF dengan perintah UPDATE Melalui DPSF (Display File)

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  

Menampilkan isi Physical File (PF) ke ( Display File) DSPF dengan CHAIN

Untuk belajar cara menampilkan PF ke DSPF anda harus belajar dulu cara membuat PF beserta cara mengelola data, DSPF dan main program (RPGLE). Jika anda belum tahu cara membuat PF, saya sarankan anda membaca link ini  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html Jika anda belum tahu cara mengolola record PF saya sarankan anda membaca link ini,  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html Jika anda belum tahu cara membuat Display File (DF) dan Main Program (RPGLE) saya sarankan anda membaca link ini  https://ruridtutorial.blogspot.com/2019/12/tutorial-membuat-physical-file-pf.html Jika anda sudah tahu cara membuat PF , DF dan main program maka langkah pertama ada kita buat antara lain : 1. Buat sebuah PF isi dengan code berikut :  2. Kasih nama dengan PF001 dan kompile. 3. Isikan PF dengan sample data menggunakan SQL  4.  Buatlah Display file (DSPF) ket...