HELP FOR ID .. INPUT in R08

Field Name Size & Type Field Description
SYS.ID 6, A Should allow an entry of only ‘SYSTEM’

FOR THE ABOVE REQUIREMENT WHAT SHOULD I DO IN MY TEMPLATE

i got a some ideas like when the application allows to user to input
it should accept only input as "SYSTEM" ... apart from this nothing can be accepted..... if any entry apart from "SYSTEM" ... this error message should be pop up... for this i have written a follwoing code..... is these steps what i'm following is correct ?????/


*

---

* <Rating>0</Rating>
*

---

SUBROUTINE SYSTEM.PARAMETER.FIELDS

$INSERT I_COMMON
$INSERT I_EQUATE


MAT F = "" ; MAT N = "" ; MAT T = ""
MAT CHECKFILE = "" ; MAT CONCATFILE = ""
ID.CHECKFILE = "" ; ID.CONCATFILE = ""



ID.F = "SYS.ID" ; ID.N = "6" ; ID.T = "A" ;

Z=0 ;

Z+=1 ; F(Z)="RUNNING.NO" ; N(Z)="5" ; T(Z)<3>="NOCHANGE" ;

V = Z+9 ;

RETURN
END
======================================================================

and one more file

*

---

* <Rating>-20</Rating>
*

---

SUBROUTINE SYSTEM.PARAMETER.VALIDATE

$INSERT I_COMMON
$INSERT I_EQUATE
$INCLUDE MP.BP I_F.SYSTEM.PARAMETER

GOSUB INIT
GOSUB PROCESS
RETURN

*****
INIT:
*****
Y.INPUT = ''
Y.VALUE = ''
RETURN

********
PROCESS:
********


Y.INPUT = COMI
Y.VALUE = "SYSTEM"

IF Y.INPUT NE Y.VALUE THEN
AF = @ID
ETEXT ='EB-SYSTEM.PARAMETER.SYS.ID'
CALL STORE.END.ERROR
END

RETURN

END

You have arrived at a logic and written this program.

Why don't you go ahead and compile the program and run it to see for yourself if it is working properly or not.

If it is giving any error message , then you may post the same here and seek help.

yes.. i have compiled ... and run the programme but no changes...are rflecting ..its accepting any kind of...input and not at all pop-uping the error messages...... so what to do now ?????????????????

Hi,

Try with this syntax.
ID.F = "SYS.ID" ; ID.N = "6" ; ID.T = "A":FM:'SYSTEM'

If the above declaration doesnt work then set the error message to variable 'E' and make a call to 'ERR' at the check id level.
IF E THEN
CALL ERR
END

Regards,
Srinivas yadav.

@learn2learn
thanks a lot

learn2learn wrote:

Hi,

Try with this syntax.
ID.F = "SYS.ID" ; ID.N = "6" ; ID.T = "A":FM:'SYSTEM'

If the above declaration doesnt work then set the error message to variable 'E' and make a call to 'ERR' at the check id level.
IF E THEN
CALL ERR
END

Regards,
Srinivas yadav.

FOR THIS... I TRIED BUT NOTHING CHANGES REFLECTING THEN I MODIFIED THE LINE OF CODE INTO LIKE THIS
ID.F = "SYS.ID" ; ID.N = "6" ; ID.T = "" ; ID.T<2> = "SYSTEM" ;

NOW IT'S WORKING CORRECTLY AS PER MY REQUIREMENT....

ONCE AGAIN THANK YOU @learn2learn AND @kees