9 154 PUT_COND

You are here:

9.154 PUT_COND_CHECK

Note: Built-In Function Rules Usage Options

Creates/amends a "simple conditional logic" DICTIONARY or FILE level validation check into the data dictionary or file definition of the nominated field.

When adding a FILE level validation check to a field, the file involved must have been previously placed into an edit session by the START_FILE_EDIT Built-In Function.

All argument values passed to this Built-In Function are validated exactly as if they had been entered through the online validation check definition screen panels.

Normal authority and task tracking rules apply to the use of this Built-In Function.

For more information refer to Field Rules and Triggers in the LANSA for i User Guide.

This is a Specialized Built-In Function for use in a Development Environment only.

Arguments

No	Type	Req/ Opt	Description	Min Len	Max Len	Min Dec	Max Dec
1	A	Req	Level of validation check. D = Dictionary level F = File level	1	1
2	A	Req	Name of field in dictionary to which validation rule is to be applied.	1	10
3	N	Req	Sequence number of check.	1	3	0	0
4	A	Req	Description of check.	1	30
5	A	Req	Enable check for ADD. Y = Check performed on ADD U = Check performed on ADDUSE N = Check not performed on ADD	1	1
6	A	Req	Enable check for CHANGE. Y = Check performed on CHG U = Check performed on CHGUSE N = Check not performed on CHG	1	1
7	A	Req	Enable check for DELETE. Y = Check performed on DLT N = Check not performed on DLT	1	1
8	A	Req	Action if check is true. NEXT = Perform next check ERROR = Issue fatal error ACCEPT = Accept value and do no more checking.	4	6
9	A	Req	Action if check is false. NEXT = Perform next check ERROR = Issue fatal error ACCEPT = Accept value and do no more checking.	4	6
10	A	Req	Message file details. Details of error message to be issued from a message file. Message file details should be formatted as follows: From - To Description 1 - 7 Error Message Number 8 - 17 Message File Name 18 - 27 Message File Library. If message text is used, pass this argument as blanks	27	27
11	A	Req	Message text.	1	80
12	L	Req	Working list to contain the condition that is to be evaluated for the simple logic check. The calling RDML function must provide a working list with an aggregate entry length of exactly 79 bytes and exactly 5 condition line entries. Each list entry sent should be formatted as follows: From - To Description 1 - 79 Condition line	1	20

Return Values

Type

Req/ Opt

Description

Min Len

Max Len

Min Dec

Max Dec

Req

Return code

OK = validation check defined ER = fatal error detected

In case of "ER" return code error message(s) are issued automatically. When a file edit session is involved it is ended automatically without commitment.

Example

A user wants to put a "simple conditional logic" validation check for a specific field, without going through the LANSA options provided on the "Field Control Menu" that enables the user to put a "simple conditional logic" validation check.

********* Define arguments and lists

DEFINE FIELD(#LEVEL) TYPE(*CHAR) LENGTH(1) LABEL('Level')

DEFINE FIELD(#FIELD) TYPE(*CHAR) LENGTH(10) LABEL('Field')

DEFINE FIELD(#SEQNUM) TYPE(*DEC) LENGTH(3) DECIMALS(0) LABEL('Sequence #')

DEFINE FIELD(#DESCR) TYPE(*CHAR) LENGTH(30) LABEL('Description')

DEFINE FIELD(#RETCOD) TYPE(*CHAR) LENGTH(2) LABEL('Return code')

DEFINE FIELD(#ENBADD) TYPE(*CHAR) LENGTH(1) LABEL('Enable ADD')

DEFINE FIELD(#ENBCHG) TYPE(*CHAR) LENGTH(1) LABEL('Enable CHG')

DEFINE FIELD(#ENBDLT) TYPE(*CHAR) LENGTH(1) LABEL('Enable DLT')

DEFINE FIELD(#TRUE) TYPE(*CHAR) LENGTH(6) LABEL('Action if True')

DEFINE FIELD(#FALSE) TYPE(*CHAR) LENGTH(6) LABEL('Action if False')

DEFINE FIELD(#MSGDET) TYPE(*CHAR) LENGTH(27) LABEL('Message Detail')

DEFINE FIELD(#MSGTXT) TYPE(*CHAR) LENGTH(80) LABEL('Message Text')

DEFINE FIELD(#CONLIN) TYPE(*CHAR) LENGTH(79) LABEL('Condition line')

DEF_LIST NAME(#CONWRK) FIELDS((#CONLIN)) TYPE(*WORKING) ENTRYS(5)

DEF_LIST NAME(#CONBRW) FIELDS((#CONLIN)) ENTRYS(5)

GROUP_BY NAME(#VALCHK) FIELDS((#LEVEL) (#FIELD) (#SEQNUM) (#DESCR) (#ENBADD) (#ENBCHG) (#ENBDLT) (#TRUE) (#FALSE) (#MSGDET) (#MSGTXT))

********* Initialize Browse list

CLR_LIST NAMED(#CONBRW)

INZ_LIST NAMED(#CONBRW) NUM_ENTRYS(5) WITH_MODE(*CHANGE)

********* Clear Working lists

BEGIN_LOOP

CLR_LIST NAMED(#CONWRK)

********* Request Validation check details

REQUEST FIELDS((#VALCHK)) BROWSELIST(#CONBRW)

********* Load key field working list

SELECTLIST NAMED(#CONBRW)

ADD_ENTRY TO_LIST(#CONWRK)

ENDSELECT

********* Execute Built-In Function - PUT_COND_CHECK

USE BUILTIN(PUT_COND_CHECK) WITH_ARGS(#LEVEL #FIELD #SEQNUM #DESCR #ENBADD #ENBCHG #ENBDLT #TRUE #FALSE #MSGDET #MSGTXT #CONWRK) TO_GET(#RETCOD)

********* Put "simple conditional logic" successful

IF COND('#RETCOD *EQ ''OK''')

MESSAGE MSGTXT('Put "simple conditional logic" validation check(s) was successful')

********* Put "simple conditional logic" failed

ELSE

IF COND('#RETCOD *EQ ''ER''')

MESSAGE MSGTXT('Put "simple conditional logic" validation check(s) failed')

ENDIF

END_LOOP