|
One simple suggestion might be to protect the "ending mileage" field and to add a command key to change the value. This way, you wont have to make any big logic changes. Just add a new window record format and prompt for password before showing the screen. -----Original Message----- From: rpg400-l-bounces+tim2006=comcast.net@xxxxxxxxxxxx [mailto:rpg400-l-bounces+tim2006=comcast.net@xxxxxxxxxxxx] On Behalf Of Mike Troxclaire Sent: Monday, October 23, 2006 11:15 AM To: rpg400-l@xxxxxxxxxxxx Subject: .dspf file, password protected field. I am a novice RPG programmer and am trying to make a few changes to a program. I want one of the fields in the display file to be password protected. So, when the user is trying to enter the 'Ending Mileage' he should enter the password 'XYZ' first before entering the data into the field. Would this require a change in my underlying RPG code also? An example would be really helpful. Any suggestions would be much appreciated. Display File.. A*%%TS DD 20060929 163416 Mike REL-V5.0.1 WDSc A*%%FD Truck maintenance A*%%EC A DSPSIZ(24 80 *DS3) A PRINT A MSGALARM A CA03(03 'EXIT') A CA12(12 'RETURN') A CA05(05 'REFRESH') A CF06(06 'ADD RECORD') A* CA?? CMD ATTN-NO CHGD DATA A* RETURNED FROM DEVICE A* CF?? CMD FUNCTION-RETURNS A* CHGED DATA FROM DEVICE A R LISTSFL A*%%TS SD 19970128 140515 HENRY REL-V3R1M0 5763-PW1 A SFL A 36 SFLNXTCHG A L1SEL 1A B 6 3 A 37 DSPATR(RI) A 37 DSPATR(PC) A STRUCK 10A O 6 5COLOR(WHT) A SBRCH 2A O 6 16COLOR(WHT) A SDESC 30A O 6 19COLOR(WHT) A SIFTA 1A O 6 52COLOR(WHT) A SENDM 9Y 0O 6 55COLOR(BLU) A EDTCDE(3) A S1DATE 8Y 0O 6 66EDTWRD(' / / ') A* A R LISTCTL A*%%TS SD 19970128 140515 HENRY REL-V3R1M0 5763-PW1 A SFLCTL(LISTSFL) A SFLSIZ(20) A SFLPAG(16) A N34 PAGEDOWN(25) A OVERLAY A SFLCSRRRN(&CURSERRRN) A 31 SFLDSP A 32 SFLDSPCTL A 33 SFLCLR A 34 SFLEND(*MORE) A LRRN 4S 0H SFLRCDNBR(CURSOR) A CURSERRRN 5S 0H A PROGNAME 10A O 1 3 A 1 27'Truck Maintenance' A 1 70DATE A EDTCDE(Y) A 2 2'X=Change, D=Delete' A 2 70TIME A TRUCKEY 10A B 5 5CHECK(RB) A COLOR(BLU) A 20 DSPATR(PR) A 3 56'Ending' A 3 69'Last' A 4 2'Opt' A 4 7'Truck' A 4 16'Br' A 4 50'IFTA' A 4 56'Mileage' A 4 68'Chg' A 4 72'Dte' A 4 20'Truck' A 4 26'description' A R LISTFOOT A*%%TS SD 19961015 145716 CMC REL-V3R1M0 5763-PW1 A OVERLAY A 23 3'F3=Exit, F6=Add Drivers Rate' A COLOR(YLW) A ERRMSG 75A O 24 2 A 89 DSPATR(RI) A 23 49'F12=ENTER NEW SEARCH KEYS' A COLOR(YLW) A R MAINT1 A*%%TS DD 20060929 163416 Mike REL-V5.0.1 WDSc A OVERLAY A PROGNAME 10A O 1 13 A 1 70DATE A EDTCDE(Y) A 1 27'Truck Maintenance' A 4 2'Truck Number' A COLOR(WHT) A 4 17'. . . . . . .' A COLOR(WHT) A MRTRUCK 10A B 4 31 A 50 DSPATR(RI) A 50 DSPATR(PC) A CHECK(RB) A 80 DSPATR(PR) A N80 CHECK(ER) A CHECK(FE) A MRDESC 30A B 4 42COLOR(WHT) A 5 2'Branch' A COLOR(WHT) A 5 9'. . . . . . . . . . .' A COLOR(WHT) A M1BRCH 2A B 5 31 A 80 DSPATR(PR) A 51 DSPATR(RI) A 51 AO 81 DSPATR(PC) A CHECK(RB) A M1BRNM 30A B 5 35 A 6 2'Ending Mileage' A COLOR(WHT) A 6 17'. . . . . . .' A COLOR(WHT) A M1ENDM 9Y 0B 6 31 A 80 DSPATR(PR) A 52 DSPATR(RI) A 52 DSPATR(PC) A 7 2'IFTA Y/N' A COLOR(WHT) A 7 11'. . . . . . . . . .' A COLOR(WHT) A M1IFTA 1A B 7 31VALUES('Y' 'N') A 51 DSPATR(RI) A 51 AO 81 DSPATR(PC) A CHECK(RB) A 9 7'Average Miles' A COLOR(WHT) A 9 23'. . . .' A COLOR(WHT) A M1AVG1 7Y 4B 9 31 A 66 DSPATR(RI) A 66 DSPATR(PC) A EDTCDE(3) A 11 7'Mileage brk' A COLOR(WHT) A 11 19'. . . . . .' A COLOR(WHT) A M1MIL1 4Y 3B 11 31 A 57 DSPATR(RI) A 57 DSPATR(PC) A EDTCDE(3) A 11 40'Rate' A COLOR(WHT) A M1RTM1 4Y 3B 11 46 A 58 DSPATR(RI) A 58 DSPATR(PC) A EDTCDE(3) A 12 7'Additional Break' A COLOR(WHT) A 12 25'. . .' A COLOR(WHT) A M1MIL2 4Y 3B 12 31 A 54 DSPATR(RI) A 54 DSPATR(PC) A EDTCDE(3) A 12 40'Rate' A COLOR(WHT) A M1RTM2 4Y 3B 12 46 A 53 DSPATR(RI) A 53 DSPATR(PC) A EDTCDE(3) A 15 7'Max Incentive' A COLOR(WHT) A M1MAXR 4Y 3B 15 31 A 53 DSPATR(RI) A 53 DSPATR(PC) A EDTCDE(3) A 16 7'Last Changed Date' A COLOR(WHT) A 16 25'. . .' A COLOR(WHT) A M1DATE 8Y 0B 16 31EDTWRD(' / / ') A 65 DSPATR(RI) A 65 DSPATR(PC) A 23 3'Enter=' A M1FUNC 6A O 23 10COLOR(YLW) A 23 19'F3= Exit F5= Refresh' A ERRMSG 75A O 24 2 A 89 DSPATR(RI) A 23 55'F12= Cancel' A 19 7'In Service Date' A COLOR(WHT) A 19 25'. . .' A COLOR(WHT) A INSERVDATE 8Y 0B 19 31EDTWRD(' / / ') A 65 DSPATR(RI) A 65 DSPATR(PC) A 20 7'In Service Miles' A COLOR(WHT) A 20 25'. . .' A COLOR(WHT) A INSERMILES 9Y 0B 20 31 A 66 DSPATR(RI) A 66 DSPATR(PC) A EDTCDE(3) A*%%GP SCREEN1 01 Thanks in advance, Mike. _________________________________________________________________ Add a Yahoo! contact to Windows Live Messenger for a chance to win a free trip! http://www.imagine-windowslive.com/minisites/yahoo/default.aspx?locale=en-us &hmtagline
As an Amazon Associate we earn from qualifying purchases.
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.
midrange.com
