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 = NotFound or
c                             (*in98 = Found and aStaval = 'S')

Toh ini akan sama aja dengan :

c     DISKEY        chain     T1KEN10LR                          96
c                   if        *in96 = '1'

atau

c     DISKEY        chain     T1AGUNAR                           98
c                   if        *in98 = '1' or
c                             (*in98 = '0' and aStaval = 'S')

Cuma perlu diingat, untuk command LOOKUP found itu bernilai ‘1’ dan not found bernilai ‘0’ (kebalikan dari chain/reade)

 

*Nb. Tips ini didapat dari mas Prayugo ketika diskusi optimalisasi JF.