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



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.0
Received: 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@xxxxxxxxxxxx
X-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 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

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