RPG/AS 400
-
convert to Uppercase
d up C ‘ABCDEFGHIJKLMNOPQRSTUVWXYZ’ d lo C ‘abcdefghijklmnopqrstuvwxyz’ d case S 100A c *entry plist c parm case /FREE case = %xlate(lo:up:case); /END-FREE Continue reading
-
Join File – JDFTVAL
tanpa JDFTVAL maka join tersebut adalah inner join. artinya record yang ditampilakan adalah record yang value dari join field harus match di kedua file tsb dengan JDFTVAL maka join tersebut adalah outer (Left) Join. artinya record yang ditampilkan adalah seluruh record dari PF1, dan field dari PF2 yang berkorespondensi dengan PF1. jika di PF2 tidak… Continue reading
-
Mengambil Source Code AS/400 ke PC
Banyak metode yang dapat digunakan untuk mengambil source code dari AS/400 ke PC. Saya lebih sering menggunakan FTP, karena lebih mudah dapat dibaca di PC berupa text file. Kali ini akan saya coba ulas sedikit cara mengambil source code dari AS/400 ke PC (Os. Windows). Asumsi bahwa source code yang akan diambil berada di :… Continue reading
-
Trim di CL
klo RPGLE pake %trim, CL pake *TCAT. exp : CHGVAR VAR(&LINK) VALUE(‘/’ *TCAT &HOME *TCAT ‘/’ *TCAT &FOLDER *TCAT ‘/’ *CAT &ALL) Continue reading
-
My Linked In
Tergiur liat LinkedIn nya si bos, akhirnya ikutan bikin juga deh. Tapi masih bingung bikin resume nya.. hahahahaha… :p My Profesional Profile at LinkedIn 😉 Continue reading
-
Tips Menggunakan Indikator
Bagi para pecinta indicator, mungkin ini sedikit tips untuk mempermudah membaca code dikemudian hari. Buat variable found/not found : D Found S 1A INZ(‘0’) D NotFound S 1A INZ(‘1’) Kemudian di kodingan bisa seperti ini : c DISKEY chain T1KEN10LR 96 c if *in96 = NotFound atau c DISKEY chain T1AGUNAR 98 c if *in98… Continue reading
-
CPF4131 – MSGW
Error/Message CPF4131 adalah Runtime Error. Hal ini biasanya terjadi karena Program RPG dan FILE tidak sinkron. Skenario kasus yang biasanya menyebabkan CPF4131 : 1. RPG A di-compile dengan kondisi FILE 1 (PF/LF). 2. Ada perubahan struktur di File 1 tersebut, lalu di-compile. 3. RPG A yang menggunakan File 1 tidak di-compile ulang. 4. Run RPG… Continue reading
-
Review Code
Apa yang harus diperhatikan ketika mereviu suatu code ? 1. Jangan sampai ada LOOP yang tidak punya exit condition. Jika terjadi kasus ini FATAL akibatnya, bisa bikin server down karena cpu proses bisa mencapai 100%. 2. Jangan pelit kasih komentar, bikin susah orang lain buat baca code. 3. Khusus RPG. Jika menggunakan File dengan Spec… Continue reading
-
Monitor Status Job/Subsystem
Melanjutkan tulisan saya tentang “Read File From Table”, saya mencoba mengembangkannya menjadi program untuk Monitor Status Job atau Subsystem. Program monitor ini dengan sedikit modifikasi dapat berjalan secara batch sehingga dapat terus memonitor kondisi job pada subsystem tertentu. Untuk File SPOOL1P dapat dilihat pada post tentang RPG sebelumnya. Berikut potongan code CL : DCL … Continue reading
-
Read File/Table From CL
Akhirnya ada juga tentang AS400 yang bisa saya share disini, sekalian reminder juga buat sendiri… :p klo perlu read table (PF) tapi pengen di CL kita bisa pake command RCVF (Receive File). Nah, nama file yang akan dibuka di declare dulu pake DCLF (Declare File) dibagian declare variabel. CPF0864 (End of file detected for file)… Continue reading