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



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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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.