 |
|||||
|
As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only. Join the TIBCO Community
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community. | |||||
Read-Only TopicGo | Search | Notify | Tools |
| [CLOSED] Possible thru MATCH | Login/Join |
| Gold member |
Hi, I have a online screen. Eg: CRTFORM LINE 3 NOCLEAR " OPTION 1 -- ADD A NEW NAME TO THE TABLE " " NAME (2 POS. EX. AB OR BC ) . : If the Name is not equal to one of the following it should throw error message. Possible value are : AB or BC or CD or XY or YX Is that possible to accomplish in MATCH or is there any other alternative ways are there. Please let me knowThis message has been edited. Last edited by: Kerry, WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | ||
|
| Expert |
Yes, Is this a DM CRTFORM or a MODIFY one ? Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Gold member |
Hi Waz, Its for MODIFY... WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Expert |
Are you able to post a code snippet, so we can see your process. After the CRTFORM you will need to have code checking the value for NAME, then if it is not valid loop back to the CRTFORM with a message. Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Gold member |
Below is the sample code SET PF12=RETURN MODIFY FILE NAMETAB COMPUTE REPLY/I1=; PFKEY/A4=; CRTFORM LINE 3 NOCLEAR " OPTION 1 -- ADD A NEW NAME TO THE TABLE " " NAME (2 POS. EX. AB OR BC ) . MATCH NM ON MATCH TYPE "NAME ON NOMATCH INCLUDE The name value needs to checked.. The valid name values are : AB BC CD XY YZ If the name value is not any one of the above it has to send an error. Hope I'm clear..This message has been edited. Last edited by: Poryes, WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Virtuoso |
Hi, Please put your code between [ CODE] [ /CODE] by using the rightmost icon < /> in your post. Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF | |||
|
| Gold member |
Thanks Danny. I added the code in between the icon. WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Expert |
What happens when you run the code with valid or invalid values ? Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Gold member |
Hi Waz, It adds the name values even if its a not a valid values. WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Expert |
Its been a very long time, but could it be related to display/turnaround fields. Turnaround tag is T., e.g. T.NM, I think its used in the CRTFORM. A Mainframe modify manual would be useful right now.  Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Virtuoso |
It's been a while, but... Use VALIDATE, or IF ... GOTO, to impose the edit rule (returning to the crtform if an invalid value is entered). For instance VALIDATE name/I1=NAME IN ('AB', ..., 'YZ'); or IF NOT (NAME IN ('AB', ..., 'YZ')) GOTO ...; or COMPUTE ErrMsg/A40=IF NAME IN ('AB', ..., 'YZ') THEN '' ELSE 'Invalid NAME'; IF ErrMsg NE '' GOTO ...; ( and show - Jack Gross WF through 8.1.05 | |||
|
| Gold member |
Thanks Jack. I tried with IF NOT (NAME IN ('AB', ..., 'YZ')) GOTO ...; Below is my code, SET PF12=RETURN MODIFY FILE NAMETAB COMPUTE REPLY/I1=; PFKEY/A4=; . . . . CASE OPTION1 COMPUTE CRTFORM LINE 3 NOCLEAR " OPTION 1 -- ADD A NEW NAME TO THE TABLE " " NAME (2 POS. EX. AB OR BC ): IF NOT (NM IN ('AB' OR 'BC' OR 'CD' OR 'XY OR 'YZ')) GOTO OPTION1; I'm getting below error message. (FOC774) THE WORD 'IN' MUST APPEAR IN A VALID CLAUSE Pls Help.. Ps: Even I tried with IF NOT NM IN ('AB' OR 'BC' OR 'CD' OR 'XY OR 'YZ') GOTO OPTION1; But same error. WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Expert |
I don't beleive that MODIFY supports IN. You will have to use value OR value, etc Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Virtuoso |
Try something like this (didn't test it, I don't have the old modify crtform capability any more): SET PF12=RETURN
MODIFY FILE NAMETAB
COMPUTE REPLY/I1=;
PFKEY/A4=;
MSG/A50=;
....
CASE OPTION1
CRTFORM LINE 3 NOCLEAR
" OPTION 1 -- ADD A NEW NAME TO THE TABLE "
" NAME (2 POS. EX. AB OR BC ): <NM"
" <D.MSG>"
COMPUTE MSG = 'SORRY, NEW NAME MUST BE AB, BC, CD, XY OR YZ.';
IF 'AB-BC-CD-XY-YZ' OMITS NM THEN GOTO OPTION1;
COMPUTE MSG=' ';
...
ENDCASEGamP
| |||||||||
| ||||||||||
| Virtuoso |
Use , as the separator in the list of values (as I indicted) -- not OR. | |||
|
| Master |
Mainframe MODIFY ManualThis message has been edited. Last edited by: jgelona, In FOCUS since 1985. Prod WF 8.0.08 (z90/Suse Linux) DB (Oracle 11g), Self Serv, Report Caster, WebServer Intel/Linux. | |||
|
| Expert |
Aahh, that where they put it.  Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Gold member |
Thanks J.gross and jgelona . GamP - I tried with below code getting the error message. COMPUTE CRTFORM LINE 3 NOCLEAR "OPTION 1 -- ADD A NEW NAME TO THE TABLE " "STATE (2 POS.EX.OR WA) . : COMPUTE MSG = 'SORRY, NEW NAME MUST BE AB, BC, CD, XY OR YZ.'; IF 'AB-BC-CD-XY-YZ' OMITS NM THEN GOTO OPTION1; COMPUTE MSG=' '; * Error Message: (FOC282) RESULT OF EXPRESSION IS NOT COMPATIBLE WITH THE FORMAT OF FIELD: MDIF:::: Am I missing something? WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Virtuoso |
COMPUTE REPLY/I1=; PFKEY/A4=; MSG/A50=;Could it be you missed the COMPUTE for MSG in the top of the modify? GamP
| |||||||||
| ||||||||||
| Gold member |
No GamP. I added it on the top. MSG/A25=; WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Virtuoso |
Yeah, that's fine, but remember that it has to be of a format that can hold the message put in to it. 25 characters isn't that much, and if you took the code from my example it needs at least 45 characters. GamP
| |||||||||
| ||||||||||
| Gold member |
Hi GamP, I changes the MSG/a45=; But still facing the same issue WebFOCUS 7.6.13 Mainframe all output (Report in mainframe) | |||
|
| Virtuoso |
Then it must be something else that's causing the problem. Since I don't have the CRTFORM capability anymore I ended up coding a small modify without it, but with the validation logic: FILEDEF OUT DISK NAMTAB.MAS -RUN -WRITE OUT FILENAME=NAMTAB, SUFFIX=FOC, $ -WRITE OUT SEGNAME=NAMTAB, SEGTYPE=S1, $ -WRITE OUT FIELDNAME=NM, FORMAT=A2, $ -RUN MODIFY FILE NAMTAB COMPUTE MSG/A45=; FIXFORM NM/2 PERFORM OPTION1 CASE OPTION1 COMPUTE MSG = 'SORRY, NEW NAME MUST BE AB, BC, CD, XY OR YZ.'; IF 'AB-BC-CD-XY-YZ' CONTAINS NM THEN GOTO ENDCASE; TYPE "<NM - <MSG" ENDCASE DATA AB AC AD AE XY XZ ENDSee if you can run this code without a problem. On my system I can. GamP
| |||||||||
| ||||||||||
| Expert |
Could you post the entire MODIFY, or repro with one of the sample FOCUS files. You may have to put in a case with Techsupport. One of the difficulties, it that many of us do not have Mainframe FOCUS available to checking these things out. Waz...
| |||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||
| Powered by Social Strata |
 | Please Wait. Your request is being processed... |
Read-Only TopicCopyright © 1996-2020 Information Builders
| View $GS_USERNAME's Public Profile |
| Add $GS_USERNAME to my Ignore List |
| View Recent Posts by $GS_USERNAME |
| Notify me of New Posts by $GS_USERNAME |