Occur Opcode in Free Foramt

[Vishal]

Hi All,

Please tell me syntax of, Occur opcode in free foramt

Thanks in advanced,
Vishal

[tomholden]

Re: Occur Opcode in Free Foramt

use %OCCUR()

[Vishal]

Re: Occur Opcode in Free Foramt

Thanks Tom

[vinomails]

Re: Occur Opcode in Free Foramt

For your reference

D mds DS OCCURS(10) 
/FREE 

n = %OCCUR(mds); 
// n = 1 

%OCCUR(mds) = 7; 

n = %OCCUR(mds); 
// n = 7 

/END-FREE

[vikramx]

Re: Occur Opcode in Free Foramt

Edit: Previous message was just too wrong :P

Anyways wouldnt it be better to use qualified in conjuction with Dim instead of Occurs to make accessing the values easier?

[Riccardo_Colett]

Re: Occur Opcode in Free Foramt

I agree with previous post. MODS are no longer necessary, use the overlay array instead

dDsSingle         ds                                  
d Field1                         5a                   
d Field2                         5p 0                 
dDsArray          ds                  LIKEDS(DsSingle)
d                                     DIM(99)

You can access single occurrence of the array simply using the array notation
(DsArray(N))