Pada pembahasan kali ini, saya akan membuat sebuah program menggunakan Control Language Programming (CLP) pada AS400. Output dari program ini hanya sebuah message ‘Hello World’. Berikut langkahnya:

Membuat member pada Source Physical File:

Tekan F6 = Create pada SRCPF SOOLGPL/CLSRC, masukan nama member tipe program lalu tekan Enter..

Menulis Program CLP:

Ketik kode berikut:

PGM                                         
             SNDPGMMSG  MSG('Hellow World!')
ENDPGM                                      

Pada baris SEU, ketik FILE untuk Exit dan Save code yang sudah dibuat lalu tekan Enter. Maka akan kembali ke halaman Work with Member using PDM.

Compile Source Code:

Untuk membuat program dari source code yang telah dibuat, lakukan compile source code tersebut menggunakan opsi 14=Compile pada member TSTHELLOW lalu tekan Enter. Akan muncul pesan ‘The compile of member TSTHELLOW was submitted to batch’.

Untuk cek hasil compile, ketik WRKSPLF lalu tekan Enter. Tekan F18=Bottom untuk menuju spool file paling akhir. Display spool file sesuai dengan nama member yang dibuat (TSTHELLOW).

Jika severity ouput masih di 0 sampai 19, berarti compile berhasil meski ada beberapa note yang jadi perhatian. Biasanya karena tidak ada variable atau label sesuai gambar diatas. Untuk severity lainnya, compile gagal dan program tidak berhasil dibuat. Cek program menggunakan WRKOBJ. Melalui command line, ketik WRKOBJ SOOLGPL/TSTHELLOW lalu tekan Enter. Object TSTHELLOW bertipe program dengan attribute CLP telah ada pada library SOOLGPL.

Menjalankan Program:

Untuk menjalankan program kita membutuhkan command CALL. Pada command line, ketik CALL SOOLGPL/TSTHELLOW lalu tekan Enter.

Pesan ‘Hellow World!’ muncul pada bagian bawah layar AS400.