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 ?
Use of * in assign statement ?
-
- Posts: 90
- Joined: Sun Mar 14, 2010 5:12 pm
- Skillset: Natural,Adabas,jcl
- Referer: friend
Re: Use of * in assign 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
#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
-
- Posts: 90
- Joined: Sun Mar 14, 2010 5:12 pm
- Skillset: Natural,Adabas,jcl
- Referer: friend
Re: Use of * in assign statement ?
Thanks...
-
- Similar Topics
- Replies
- Views
- Last post
-
- 0
- 3160
-
by socceraz
View the latest post
Tue Oct 18, 2022 8:27 pm
-
- 8
- 4503
-
by steve-myers
View the latest post
Sat Oct 16, 2021 8:59 pm
-
-
Splice JCL into one record for DD statement parms
by phcribb » Thu Nov 05, 2020 9:31 pm » in CLIST & REXX - 3
- 1971
-
by phcribb
View the latest post
Fri Nov 06, 2020 8:06 pm
-