DSPF with lots of record formats

I'm writing an application for RF scanners with 5250 emulation on the
warehouse floor. It will be used for recording physical inventory.



Most of the record formats have one field. The user progresses through the
record formats by scanning, some keyboard input, and I finally write a row
to the DB.



Some of the record formats will have an option to go back several screens,
for instance they are done scanning upc's, and need to go back and scan a
new location. CF03 will always be available to let them exit.



In the past, I've done the screen progression with multiple DOW, like this:



Dow *inkc = *off

Exfmt scn01



If physical# > 0

Dow *inkc = *off

Exfmt scn02

Enddo

Enddo



But with over 10 record formats, that many nested loops gets crappy. And I
don't have an easy way to drop back a certain# of screens.



I need an easy way to move forward and back. WDYT?



Thanks, Jack