I work on Mainframes focus language.

In Define statement, i am concatinating certain fields as below

O KEY1/A17 = OI.CD|SA.CD|BIT.CD|ISSUE.ST.CD|FNO|STD.PRV.IND|KEY.ACCT.IND  

I need to add few more fields but there is no space left on this line, so i need to use next line. How can i continue adding concatenating variables in next line. Is there any continuation symbol for these cases?

This message has been edited. Last edited by: Rajiv Garg,

Hi

Try
KEY1/A17 = OI.CD|SA.CD|BIT.CD|ISSUE.ST.CD|FNO|STD.PRV.IND|KEY.ACCT.IND;
KEY1 = KEY1 | OI.PPPP | OI.QQQQ;
Remember there is a limit based upon the defined size of your variable.

Stefaans - Won't work...

An expression ends with a ';' or an END in a DEFINE

Hi,

Not sure if this works in Mainframe FOCUS, but you can define fields using multiline as follows in WebFOCUS

  
DEFINE FILE EMPDATA
KEY1/A60=''|PIN
	|DIV
	|DEPT
	|TITLE
;
END

See if that helps.

Best Regards,

Jimmy Pang

You have to have a size for the defined field that is big enough to hold all the concatenated fields. In Stefanns example the second KEY1 does not have a size.

quote:

Originally posted by Alan B:
Stefaans - Won't work...

An expression ends with a ';' or an END in a DEFINE

Alan, one assumes that the gentleman knows that you have to have the DEFINE FILE XXXX
my code in between and then the END statement. Unless I have made a typo that I do not know about, the code should work.
s

quote:

Originally posted by mrguru:
You have to have a size for the defined field that is big enough to hold all the concatenated fields. In Stefanns example the second KEY1 does not have a size.

Hi
I would remind you that by adding a size to the second KEY will re-define the field. THIS IS A NO NO.
All that you are doing is concatenating onto the original field. Trust me it works,

Sheeeeesh!

This is an easy one.

It is a DEFINE statement, hence FOCUS code, not Dialogue Manager code, hence no continuation character.

DEFINE FILE XXXX
NEW_FIELD/A2000 = 
FIELD1A |
FIELD2A |
FIELD1B |
FIELD2B |
FIELD1C |
FIELD2C |
FIELD1D |
FIELD2D |
FIELD1E |
FIELD2E |
FIELD1F |
FIELD2F |
FIELD1G |
FIELD2G |
FIELD1H |
FIELD2H |
FIELD1I |
FIELD2I |
FIELD1J |
FIELD2J |
FIELD1K |
FIELD2K |
FIELD1L |
FIELD2L |
FIELD1M |
FIELD2M |
FIELD1N |
FIELD2N |
FIELD1O |
FIELD2O |
FIELD1P |
FIELD2P |
FIELD1Q |
FIELD2Q |
FIELD1R |
FIELD2R |
FIELD1S |
FIELD2S |
FIELD1T |
FIELD2T |
FIELD1U |
FIELD2U |
FIELD1V |
FIELD2V |
FIELDZZ;
END

Stefaans,

I guess what mrguru is implying is that the second KEY1 without a format will be trying to fit KEY1(A17) + OI.PPPP(A?) + OI.QQQQ(A?) into a format of A17. Even if the two additional fields were A1 then the total size being fitted into the second KEY1 would be A19 and an error should be encountered.

Jimmy's should work OK across several lines on mainframe.

T

Francis, you are totally correct on this one, but I think that Rajiv's question was related to the fact that he is dealing with a FOCEXEC that is either on and MVS or VM box where FOCEXEC's can only have a logical record length of 80 chars. If I understand him correctly he wanted to know how he could do this with via a continuation method. Just my thoughts. Perhaps I am wrong. Regards Steve Simon

Well, Francis' solution works...

What also works.. ( less lines, and still readable )

KEY_PART1/A100 = AA | BB | CC | DD | EE | FF;
KEY_PART2/A100 = GG | HH | II | JJ | KK | LL;
KEY_PART3/A100 = MM | NN | OO | PP | QQ | RR;
KEY/A300 = KEYPART1 | KEYPART2 | KEYPART3;

G'luck

Stefaans, I understood what Rajiv's question was related to. You don't need a continuation character and you never have a problem with FOCUS or WebFOCUS code where there is a limitation of 80 character lines. The only time there might be a problem is when a field name is longer than 80 characters, even then, you can just type 80 characters and FOCUS will figure out the complete field name, unless there are two or more field names where the first 80 characters are the same!

This is a complete non-issue.

Regards.

Such a simple question, and such a very long answer.

I would like to thank eveyone for the suggesstions. Its the most active forum.

For me, Francis solution works.