Select 'Case' in free format

[Pekka]

Hi,
I'm trying to play with free format select statement. I can't find out what I'm missing here:
/Free
Select Case Zter ;
==> aaaa
5507 30 a 001039 A semi-colon is not specified at the end of a free-form specification.
When '8' ;
Then ;
Zterm='0045' ;
Zbd1t='45' ;
.
.
EndSl ;
/End-free

 

[krg400]

The syntax is wrong for RPG. Try something like:

   /free

      Select;
      When Zter = 8;
         Zterm = '0045';
         Zbd1t = '45';
      When ...
         ...
         ...
      Other;
         ...
      EndSL;

   /end-free

 

[Pekka]

Thanks, that worked great!