AS400 CLP – Menggunakan Label

Label pada CLP berfungsi sebagai penanda satu atau lebih instruksi pada program CLP. Seluruh command pada pembuatan CLP dapat disisipkan label. Untuk memanggil label yang dibuat dapat menggunakan command GOTO masukkan nama label yang telah dibuat.

Source code:

PGM                                         
             GOTO       CMDLBL(MYLABEL)       
             SNDPGMMSG  MSG('Hellow World!')
 MYLABEL:    SNDPGMMSG  MSG('JUMP TO LABEL')
ENDPGM                                      

Dari program diatas, jika kita baca terdapat instruksi GOTO ke command label ‘MYLABEL’. Maka program akan loncat ke command SNDPGMMSG – ‘JUMP TO LABEL’ tanpa menjalankan ‘Hello World!’. Compile dan jalankan program tersebut untuk mengetahui hasilnya.

Tinggalkan Balasan