|
Frank,Thanks for the input. In our shop lots of users have access to that menu option and we want only one user to have the authority to enter the 'Ending Mileage'. That is the reason why we want the field to be password protected. I think I will go with the suggestion of having a password field by the side of the 'Ending Mileage' field. When the user submits the data I just have to do a check on the password supplied in my RPG program, right? Seems easy enough, any gotcha's? I appreciate your suggestion.
Mike.
From: rpg400-l-request@xxxxxxxxxxxx Reply-To: rpg400-l@xxxxxxxxxxxx To: rpg400-l@xxxxxxxxxxxx Subject: RPG400-L Digest, Vol 5, Issue 1180 Date: Mon, 23 Oct 2006 10:42:57 -0500 MIME-Version: 1.0Received: from gondor.midrange.com ([69.3.23.29]) by bay0-mc9-f11.bay0.hotmail.com with Microsoft SMTPSVC(6.0.3790.2444); Mon, 23 Oct 2006 08:44:37 -0700 Received: from rivendell.midrange.com (rivendell [192.168.1.50])by gondor.midrange.com (Postfix) with ESMTP id 928895F43CD;Mon, 23 Oct 2006 10:43:02 -0500 (CDT)X-Message-Info: LsUYwwHHNt1Vy1vOQVnkjszVCRLLv4rTR9NiS/m1C3I= X-BeenThere: rpg400-l@xxxxxxxxxxxx X-Mailman-Version: 2.1.7 Precedence: list List-Id: RPG programming on the AS400 / iSeries <rpg400-l.midrange.com>List-Unsubscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-request@xxxxxxxxxxxx?subject=unsubscribe>List-Archive: <http://archive.midrange.com/rpg400-l> List-Post: <mailto:rpg400-l@xxxxxxxxxxxx> List-Help: <mailto:rpg400-l-request@xxxxxxxxxxxx?subject=help>List-Subscribe: <http://lists.midrange.com/mailman/listinfo/rpg400-l>,<mailto:rpg400-l-request@xxxxxxxxxxxx?subject=subscribe>Errors-To: rpg400-l-bounces@xxxxxxxxxxxx Return-Path: rpg400-l-bounces@xxxxxxxxxxxxX-OriginalArrivalTime: 23 Oct 2006 15:44:38.0473 (UTC) FILETIME=[25C62390:01C6F6BA]Send RPG400-L mailing list submissions to rpg400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/rpg400-l or, via email, send a message with subject or body 'help' to rpg400-l-request@xxxxxxxxxxxx You can reach the person managing the list at rpg400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..."*** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful.Today's Topics: 1. RE: .dspf file, password protected field. (tim) 2. RE: SBMJOB ~ RQSDTA (Ken Slaugh) (DeLong, Eric) 3. Re: .dspf file, password protected field. (fkany@xxxxxxxxxxxxxxxxxx) ---------------------------------------------------------------------- message: 1 date: Mon, 23 Oct 2006 11:24:39 -0400 from: "tim" <tim2006@xxxxxxxxxxx> subject: RE: .dspf file, password protected field. 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 windowrecord 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 MikeTroxclaire 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 -- This is the RPG programming on the AS400 / iSeries (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. ------------------------------ message: 2 date: Mon, 23 Oct 2006 10:37:20 -0500 from: "DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx> subject: RE: SBMJOB ~ RQSDTA (Ken Slaugh) Hi Martin,It's not so much that you can only pass 32 character parms, but that the command analyzer ASSUMES a default size of 32 bytes for character parms. If it sees NON-BLANK data in a parm, it will resize the storage for that parm to accomodate the additional data. However, if there are trailing blanks, you get clobbered. The analyzer determines the length of the parameter data by first trimming off trailing blanks.The workaround is to declare your parm with one extra byte, and force a non blank character into the extra byte.Eric DeLong Sally Beauty Company MIS-Project Manager (BSG) 940-297-2863 or ext. 1863 -----Original Message----- From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Bath, Martin Sent: Monday, October 23, 2006 2:59 AM To: 'rpg400-l@xxxxxxxxxxxx' Subject: RE: SBMJOB ~ RQSDTA (Ken Slaugh) Hi Captain Jerry One difference that I have encountered between these two statements SBMJOB JOB(WPC8060) RQSDTA('CALL WPC8060 ') SBMJOB CMD(CALL PGM(WPC8060)) JOB(WPC8060) is that the second one is very limited in the length of parameters it can pass (32 characters rings a bell) whereas the first one accepts much larger ones. I think we hit a problem when passing email addresses (circa 42 characters in length). Regards Martin Bath Global IT Group Invensys Controls Tel: +44 (0) 1752 724388 Mobile: +44 (0) 7736 017318 Fax : +44 (0) 1752 732455 Email : martin.bath@xxxxxxxxxxxxxxxxxxxx CONFIDENTIALITY NOTICEThis e-mail and any attachments are confidential and also may be privileged.If you are not the named recipient, or have otherwise received this communication in error, please delete it from your inbox, notify the sender immediately, and do not disclose its contents to any other person, use them for any purpose, or store or copy them in any medium. Thank you for your cooperation. -- This is the RPG programming on the AS400 / iSeries (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. ------------------------------ message: 3 date: Mon, 23 Oct 2006 10:42:32 -0500 from: fkany@xxxxxxxxxxxxxxxxxx subject: Re: .dspf file, password protected field. Hi Mike, I'm just curious, since the user has to signon to the system to get to the application, why do they need to enter another password once they get into a screen? IMHO, It might be easier to password protect the application. When they choose to run the application, display a screen that requests that they enter a valid password before using the application. If you're concerned about USER_1not exiting the application and then USER_2 trying to use the application, you could kick USER_1 out after they've updated the 'Ending Mileage'. If you want to password protect the field, you could put a password field next to the 'Ending Mileage' field and check the password in your screen validation routine in your RPG program. Hope this helps. Frank "Mike Troxclaire" <mike_troxclaire@ hotmail.com> To Sent by: rpg400-l@xxxxxxxxxxxx rpg400-l-bounces+ cc fkany=averittexpr ess.com@midrange. Subject com .dspf file, password protected field. 10/23/2006 10:14 AM Please respond to RPG programming on the AS400 / iSeries <rpg400-l@midrang e.com> 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 -- This is the RPG programming on the AS400 / iSeries (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 AS400 / iSeries (RPG400-L) digest 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. End of RPG400-L Digest, Vol 5, Issue 1180 *****************************************
_________________________________________________________________Get FREE company branded e-mail accounts and business Web site from Microsoft Office Live http://clk.atdmt.com/MRT/go/mcrssaub0050001411mrt/direct/01/
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
