RMWIDTHPOS, File record size or width must be greater than zero
Run Time Error: This indicates that the WIDTH deviceparameter specified a negative argument.
Action: Modify the routine to ensure a positive WIDTH.