RE: DSPF with lots of record formats

Thanks.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Brian May
Sent: Tuesday, December 11, 2012 5:35 PM
To: RPG programming on the IBM i / System i
Subject: RE: DSPF with lots of record formats

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.

--
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.