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



81-Add Record
82-Edit Record
83-Display Record
50-Error on File Name
51-Error on Library Name

etc,

Just a snippet of code.

If you look at www.think400.dk/downloads.htm you will find a trigger
mediator project. If you look at TG0001_D01, you will find the entire
record format.
A R
RD01_04
A TEXT('Maintain Trigger Control
Data-
A
-Add/Edit/Display.')
A
CA12
A RTNCSRLOC(*RECNAME &I_CSRFMT
&I_CSR-
A
FLD)
A
BLINK
A CSRLOC(O_CSRLIN
O_CSRCOL)
A
OVERLAY
A I_CSRFMT 10A H TEXT('Cursor Location Record
Format-
A
Name.')
A I_CSRFLD 10A H TEXT('Cursor Location Field
Name.')
A O_CSRLIN 3S
0H
A O_CSRCOL 3S
0H
A 1
2DATE
A
EDTCDE(Y)
A 1
11TIME
A 1 27'Maintain Trigger
Data'
A
COLOR(WHT)
A 1 65'TG0001.RD01_04'
A 83 2 30'DISPLAY
RECORD'
A
DSPATR(RI)
A
COLOR(TRQ)
A 82 2 31'EDIT
RECORD'
A
DSPATR(RI)
A
COLOR(TRQ)
A 81 2 32'ADD
RECORD'
A
DSPATR(RI)
A
COLOR(TRQ)
A 4 2'File
Name................:'
A B_FILENAME 10A B 4 29TEXT('File
Name')
A 50
DSPATR(RI)
A 81
DSPATR(UL)
A 50
DSPATR(PC)
A N81
DSPATR(PR)
A 50
COLOR(RED)
A N50 COLOR(WHT)
A B_LIBNAME 10A B 5 29TEXT('Library Name')
A 51 DSPATR(RI)
A 81 DSPATR(UL)
A 51 DSPATR(PC)
A N81 DSPATR(PR)
A 51 COLOR(RED)
A N51 COLOR(WHT)


On Mon, Jul 11, 2016 at 3:20 PM, Stone, Joel <Joel.Stone@xxxxxxxxxx> wrote:

Building a SINGLE screen for both update AND display of a cust record.

What is a good method to use ONE DDS record format for both UPDATE and
DISPLAY.

For DISPLAY, I want the field protected and NO underline showing.

For UPDATE, I want the field unprotected with underline showing.


If the CUSTNAME field has usage "B" = both, how can I suppress the
underline for DISPLAY?

(There is no DSPATR for removing the underlines).

I thought that CHGINPDFT might do the trick. However I cannot condition
that on the mode DISPLAY or UPDATE.


Is the best method to describe each field twice?

For example


41 CUSTNAME B
N41 CUSTNAME O



It seems sloppy - any better ideas?

Thanks in advance!


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

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.