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



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