× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Here is the F-spec from the WORKSTN file and the related D-specs:
FIMS01FM cf e workstn INDDS(DspInds)

D DspInds ds
D Exit N overlay(DspInds:03)
D Accept N overlay(DspInds:06)
D Cancel N overlay(DspInds:12)
*

Mark Bazer
Director, Information Systems
Dyno LLC
954-971-2910 ext. 202



message: 1
date: Wed, 11 Nov 2009 17:55:11 -0600
from: Booth Martin <booth@xxxxxxxxxxxx>
subject: Re: WORKSTN file problem

What happens if he comments out the INDARA line?

DeLong, Eric wrote:
Ok, now you need to show us your F-spec for the WORKSTN file... Does it
include the INDDS() option? If so, you need to examine this DS to see
what field is declared in position 22...

-Eric

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Mark.Bazer@xxxxxxxxxxxxxxxxxxx
Sent: Wednesday, November 11, 2009 12:37 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: WORKSTN file problem

Here is the DDS:

0000.10 A*%%TS SD 20091111 091711 MMB REL-V5R4M0
5722-WDS

0000.20 A*%%EC
0000.30 A DSPSIZ(24 80 *DS3)
0000.40 A REF(*LIBL/SSADD)
0000.50 A CHGINPDFT
0000.60 A INDARA
0000.70 A CF03(03 'Exit')
0000.80 A CF06(06 'Accept')
0000.90 A CF12(12 'Cancel')
0001.00 A R IMS01F1
0001.10 A*%%TS SD 20091109 094136 MMB REL-V5R4M0
5722-WDS

0001.20 A 1 2DATE
0001.30 A EDTCDE(Y)
0001.40 A 2 2TIME
0001.50 A 5 2'Enter'
0001.60 A 5 8'item'
0001.70 A 5 13'number:'
0001.80 A R1PROD 15A B 5 22DSPATR(UL)
0001.90 A 23 2'F3: Exit'
0002.00 A 23 36'Enter: Continue'
0002.10 A R1MSG1 70A O 21 11
0002.20 A R1MSG2 70A O 22 11
0002.30 A 2 26'ITEM MASTER
SUPPLEMENT MAINTENANCE'
0002.40 A R1COMPNAME 38 O 1 26
0002.50 A R1PROGRAM 10 O 1 71
0002.60 A R1JOBNAM 10 O 2 71
0002.70 A R IMS01F2
0002.80 A*%%TS SD 20091111 091711 MMB REL-V5R4M0
5722-WDS

0002.90 A 1 2DATE
0003.00 A EDTCDE(Y)
0003.10 A 2 2TIME
0003.20 A 4 2'Item#'
0003.30 A R2DESC 30A O 4 29
0003.40 A 6 2'Weeks req'
0003.50 A R2WKRQ 2S 0B 6 13DSPATR(UL)
0003.60 A R2SPAK 5Y 2B 8 10EDTWRD(' 0. ')
0003.70 A DSPATR(UL)
0003.80 A R2CPAK 6Y 2B 7 9EDTWRD(' 0. ')
0003.90 A DSPATR(UL)
0004.00 A R2SDPH 5Y 2B 8 26EDTWRD(' 0. ')
0004.10 A DSPATR(UL)
0004.20 A R2CDPH 5Y 2B 7 26EDTWRD(' 0. ')
0004.30 A DSPATR(UL)
0004.40 A R2SWDT 5Y 2B 8 41EDTWRD(' 0. ')
0004.50 A DSPATR(UL)
0004.60 A R2CWDT 5Y 2B 7 41EDTWRD(' 0. ')
0004.70 A DSPATR(UL)
0004.80 A R2SHGT 5Y 2B 8 56EDTWRD(' 0. ')
0004.90 A DSPATR(UL)
0005.00 A R2CHGT 5Y 2B 7 56EDTWRD(' 0. ')
0005.10 A DSPATR(UL)
0005.20 A 8 2'Sh pak'
0005.30 A 7 2'Cs'
0005.40 A 7 5'pak'
0005.50 A 8 19'Sh Dpt'
0005.60 A 7 19'Cs Dpt'
0005.70 A 8 34'Sh Wdt'
0005.80 A 7 34'Cs Wdt'
0005.90 A 8 49'Sh Hgt'
0006.00 A 7 49'Cs Hgt'
0006.10 A 8 64'Sh Lbs'
0006.20 A 7 64'Cs Lbs'
0006.30 A R2SLBS 6Y 3B 8 71EDTWRD(' 0. ')
0006.40 A DSPATR(UL)
0006.50 A R2CLBS 6Y 3B 7 71EDTWRD(' 0. ')
0006.60 A DSPATR(UL)
0006.70 A 9 19'It Dpt'
0006.80 A R2IDPH 5Y 2B 9 26EDTWRD(' 0. ')
0006.90 A DSPATR(UL)
0007.00 A 9 34'It Wdt'
0007.10 A R2IWDT 5Y 2B 9 41EDTWRD(' 0. ')
0007.20 A DSPATR(UL)
0007.30 A 9 49'It Hgt'
0007.40 A R2IHGT 5Y 2B 9 56EDTWRD(' 0. ')
0007.50 A DSPATR(UL)
0007.60 A 9 64'It Lbs'
0007.70 A 11 2'Net Cont'
0007.80 A 11 23'Net Cont U/M'
0007.90 A R2NETU 3A B 11 36DSPATR(UL)
0008.00 A R2PROD 15A O 4 8
0008.10 A 11 43'Plt Ti'
0008.20 A R2PLTI 3S 0B 11 50DSPATR(UL)
0008.30 A 11 58'Plt Hi'
0008.40 A R2PLHI 3S 0B 11 65DSPATR(UL)
0008.50 A 12 2'MSDS Nbr'
0008.60 A R2MSDS 15A B 12 11DSPATR(UL)
0008.70 A 12 34'UDEX'
0008.80 A R2UDEX 14A B 12 39DSPATR(UL)
0008.90 A 12 58'GPC'
0009.00 A R2GPC 10A B 12 62DSPATR(UL)
0009.10 A 14 2'Pvt Item'
0009.20 A R2PRIV 1A B 14 11DSPATR(UL)
0009.30 A 14 16'Lead Time Days'
0009.40 A R2LDTM 3S 0B 14 31DSPATR(UL)
0009.50 A 14 39'Life Span Days'
0009.60 A R2LIFS 4S 0B 14 54DSPATR(UL)
0009.70 A 15 2'Peg Holes'
0009.80 A R2PGHL 1S 0B 15 12DSPATR(UL)
0009.90 A 15 16'Peg Horiz'
0010.00 A R2PEGH 6Y 4B 15 26EDTWRD(' 0. ')
0010.10 A DSPATR(UL)
0010.20 A 15 39'Peg Vert'
0010.30 A R2PEGV 6Y 4B 15 48EDTWRD(' 0. ')
0010.40 A DSPATR(UL)
0010.50 A 15 62'Peg U/M'
0010.60 A R2PEGU 2A B 15 70DSPATR(UL)
0010.70 A R2PLDS 70A B 17 11DSPATR(UL)
0010.80 A CHECK(LC)
0010.90 A 17 2'PrcLstDs'
0011.00 A 18 2'Warr Des'
0011.10 A R2WARR 70A B 18 11DSPATR(UL)
0011.20 A CHECK(LC)
0011.30 A 19 2'Func Nam'
0011.40 A R2FNAM 70A B 19 11DSPATR(UL)
0011.50 A CHECK(LC)
0011.60 A 23 2'F3: Exit'
0011.70 A R2MSG1 70A O 21 11DSPATR(HI)
0011.80 A R2MSG2 70A O 22 11DSPATR(HI)
0011.90 A R2NETC 8A B 11 11DSPATR(UL)
0012.00 A 23 67'F12:'
0012.10 A 23 72'Cancel'
0012.20 A R2ILBS 6Y 3B 9 71EDTWRD(' 0. ')
0012.30 A DSPATR(UL)
0012.40 A 2 27'ITEM MASTER
SUPPLEMENT MAINTENANCE'
0012.50 A R2COMPNAME 38A O 1 27
0012.60 A R2PROGRAM 10A O 1 71
0012.70 A R2JOBNAM 10A O 2 71
0012.80 A 22 23 35'F6: Update'

Mark Bazer
Director, Information Systems
Dyno LLC
954-971-2910 ext. 202


message: 1
date: Wed, 11 Nov 2009 10:04:47 -0600
from: BMay@xxxxxxxxx
subject: Re: WORKSTN file problem

Are you using INDDS on your F spec for the display file? If so, *IN22
wont do it. You need to define a field of type "n" in position 22 of
whatever ds is specified on the INDDS keyword. Use this new field to
control the display.

Brian May
Project Lead
Management Information Systems
Garan, Incorporated
Starkville, Mississippi

Young i Professionals
http://www.youngiprofessionals.com



Mark.Bazer@xxxxxxxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/11/2009 09:58 AM
Please respond to
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
WORKSTN file problem






Although I have programmed in RPG for a long time as part of my job, I
never have had to write a file-maintenance program using a WORKSTN file
before. I've run into a problem with conditioning a constant on the
display.

The DDS has the constant conditioned by indicator 22:
A 22 23 35'F6: Update'

The RPG program has indicator 22 on when the panel is displayed. I
verified that it is on by running in debug mode and even set the
indicator


on immediately before the EXFMT statement just to make sure. The
constant
is not showing on the display. Am I missing something?

Thanks,
Mark Bazer
Director, Information Systems
Dyno LLC
954-971-2910 ext. 202



------------------------------

message: 2
date: Thu, 12 Nov 2009 11:14:43 +1100
from: Simon Coulter <shc@xxxxxxxxxxxxxxxxx>
subject: Re: WORKSTN file problem


On 12/11/2009, at 10:55 AM, Booth Martin wrote:

What happens if he comments out the INDARA line?

That depends on what's in the RPG. If INDDS is coded in the RPG then
the display MUST have INDARA and I think a compile error will occur if
not. If INDDS is not in the RPG then the indicators will be
interspersed in the record buffer (instead of in the INDARA) but the
compiler will sort out the buffers.

The presence of INDARA in the DDS has nothing to do with this problem.

As Eric said we need to see the RPG F-spec for this file too.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------





As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.