IBM Mainframe Forum

ADD 1 TO #KCTGMAPP-OUT-COUNT
#UNFRANKED-IND-IDX := #KCTGMAPP-OUT-COUNT
#KCTGMAPP-OUT-GRP-NAME ( #UNFRANKED-IND-IDX ) := 'UNFRANKED IND'
#KCTGMAPP-OUT-GRP-VALUE( #UNFRANKED-IND-IDX ) := #UNFRANKED-CALCULATE
#CONE-KCTGMAPP-OUT-COUNT := #KCTGMAPP-OUT-COUNT
#CONE-KCTGMAPP-OUT-GRP-NAME (*) := #KCTGMAPP-OUT-GRP-NAME(*)
#CONE-KCTGMAPP-OUT-GRP-VALUE(*) := #KCTGMAPP-OUT-GRP-VALUE(*)

What is the use of * in #CONE-KCTGMAPP-OUT-GRP-VALUE(*) := #KCTGMAPP-OUT-GRP-VALUE(*) statement ?

All the values present in the array #KCTGMAPP-OUT-GRP-VALUE will be moved to
#CONE-KCTGMAPP-OUT-GRP-VALUE array.

(*) indicates all the occurences

Let say #KCTGMAPP-OUT-GRP-VALUE has 4 values
#KCTGMAPP-OUT-GRP-VALUE(1) = abc
#KCTGMAPP-OUT-GRP-VALUE(2) = xyz
#KCTGMAPP-OUT-GRP-VALUE(3) = jkl
#KCTGMAPP-OUT-GRP-VALUE(4) = nop

after the statement gets executed, then
#CONE-KCTGMAPP-OUT-GRP-VALUE(1) will have abc
#CONE-KCTGMAPP-OUT-GRP-VALUE(2) will have xyz
#CONE-KCTGMAPP-OUT-GRP-VALUE(3) will have jkl
#CONE-KCTGMAPP-OUT-GRP-VALUE(4) will have nop

cheers
Arkantos

Thanks...