6.10. CALCS

Perintah ini menghitung satu nilai tertentu atau mendapatkan kondisi betul atau salah, nama calcs harus diawali dengan karakter 'c'.


   Cara memakai:
   CALCS()
   nama calcs      perhitungan

   contoh:
   CALCS()
      cnol          0
      ctotpjl       ppdjmu * ppdhrg
      cstsOPNaCLSD  ppmsts == "OPEN"  ||  ppmsts == "CLSD"
      cbulat        DO_LIB ap_bulat(lnilai,lbulat_ke,&lhasil)
      cbulanprj     BULAN(ltgl)   /* bulan dari tanggal ltgl => numeric */
      cthnbulanprj  THBLN(ltgl) /* tahun_bulan dari tanggal ltgl => numeric */
      cnofak        "PJ" + THBLS(ltgl) /* hasil string mis. PJ0702 */
      cnofak        "PJ" + THS(ltgl) /* hasil string, mis. PJ07 */