Normally if I am coding logic that is "less than linear", I use a step flag.
Pseudo code:
Do while Step >= 0
Select
When Step = 0
Call subproc (or subroutine if you must)
When Step = 1
Call another proc
Etc.
End do
Then each step's procedure can set STEP variable to navigate to any step (screen in your case) needed.
Brian May
IBM i Modernization Specialist
Profound Logic Software
http://www.profoundlogic.com
937-439-7925 Phone
877-224-7768 Toll Free
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of JackTucky
Sent: Tuesday, December 11, 2012 4:17 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: 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
--
This is the RPG programming on the IBM i / System i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.
midrange.com
