*DOWHILE
*DOWHILE, Par
Loops repeatedly through the next *ENDDO command.
Argument Descriptions
ParThe name of the scalar parameter to be used as the loop index. There is no character parameter substitution for the
Parfield.
Notes
*DOWHILE loops repeatedly through the next *ENDDO
   command as long as Par is greater than zero. The block of commands
   following the *DOWHILE command (up to the *ENDDO command)
   is executed repeatedly until some loop control is satisfied. Printout is automatically suppressed
   on all loops after the first (include a /GOPR command to restore the
   printout). The command line loop control (Par) must be input; however,
   *IF within the block can also be used to control looping
   (*EXIT, *CYCLE). One level of internal file switching is
   used for each nested *DOWHILE. Twenty levels of nested do-loops are allowed. 
This command is valid in any processor.