Bonjour,
Since I was born in the Focus World, &TYPSOR is the DM variable that precises what kind of Output I expect from a Focexec.
In my early days
'E' Ecran in French, Screen in English, meant that HotScreen had to be used ( PreHistory, but ...)
'I' Imprime in French, Print in English, meant that OffLine had to be used (66 lines 132 columns, Pyjama Paper, at the time)
'W' Word in my French as Word in English meant Word Processor (Format WP) : Offline written in a File &FICSOR
'T' Tableur in French, Easy to be swallowed By Excel ( Comma delimited with SemiColumn as a separator, 1st Line : Columns Name)
'F' Fichier in French, File in English, meant that a File had to be ceated with a Formar &FORMDEM and a FileName &Ficsor

This took benefit of a versatility that Focus had, much ahead of many Tools (at the time)
And 'T' was the most Popular .. (People love Excel, I don't know why)

Styled Reports have come a long time ago and my TYPSOR turned bigger
'X' Styled sheets Excel 2K ( with Formula, so that Compute turns to be kind of Excel Macro commands)
'W' That has turned towards PDF, the standard of that Word Processing game (Personal opinion ...)
'H' HTML since Web Browser is much, much more Popular that HotScreen (whom I kiss on the front as a glorious ancester)

And I come to my point : Universal StySheet does not exist since there are small tiny (and boring) differences between HTML, Excel and PDF
Style sheets.
So, under my beloved Focus/Mvs Environment, a -INCLUDE UTREQSTY does everyting that's necessary for any of those TYPSOR
and, if a Styled Typsor, a -INCLUDE &STYSHEET ( inside UTREQSTY) gets the StySheet (that obeys Dialog Manager, at this place -if necessary-)
With the help of Francis Mariani ( who doesn't know much of that stuff ), I can get, precisely, what I want out of any Stysheeted Output

But Under DS, it seems that MRE and Data Server do not understand my
-INCLUDE &STYSHEET ( &STYSHEET.Fex not found by MRE)
or
-SET &ORDERSTY = '-INCLUDE ' ! &STYSHEET ;
&ORDERSTY.EVAL
is not understood by the Data Server (But is not stopped by MRE analysis)

Please, could someone tell me, precisely, how MRE/DS/Report Server and Data Server cooperate in the treatment of my unique Dialog manager orders written under DS
I Hate the words of 'primary parsing' by the Report Server : Who is doing What and When is my question
It seems that Data Server receives kind of "&" amp.DMVAR instead of &DMVAR;
( Report Server changing &TOTO into "&" amp .TOTO ; ? But IF &TOTO is to be included, it must be part of the message to Data Server, too )

Please, get me out of this "Life is tale told by an idiot, full of sound and fury, signifying nothing"
Cordially

PS : "Not to be" is not at all the solution I expect

PS : No Java Script yet in the game : No !IBI.AMP.TOTO;
I focus on the dialog between Report Server and Data Server regards to the Dialog Manager I write in My DS Focexecs
(-REMOTE BEGIN and -REMOTE END of the 90'S and Cooperative Processing was clear to me.
But I cannot any longer rely on Cooperative Processing, Everything must be on the Report Server -USS Unix-, just the DB2 Data on my
beloved MVS World)
gt

This message has been edited. Last edited by: Baillecl,

MRE preprocess the fex to send any fexs to the server. Of course, this happens before DM has run so their are no &VARS.

If you want MRE to ignore your include and send it as is to the server, simply code
-MRNOEDIT -INCLUDE &BOOGUY

And have a good Halloween!

Bonjour,
I thank you for your advice, but it does not open my mind.
I just can't understand the Basis of the dialog between Report Sever and Data Server :

I changed -INCLUDE &STYSHEET into -MRNOEDIT -INCLUDE &STYSHEET
So, UTREQSTY, Included into all of My Focexecs to Commonly Handle &TYPSOR

 
-*
-*  UTILITAIRE DE FIN DE REQUETE DE MISE EN FORME
-*
-*---------  ON SEPARE LES SORTIES 'STYLE SHEET' DES AUTRES
-REQSTYP00
-*---------
-IF &STYSHEET EQ ' '  THEN GOTO  REQSTYP40 ;
-SET &FORMDEM = IF &FORMDEM NE ' '     THEN &FORMDEM
-        ELSE   IF &TYPSOR EQ 'X'      THEN 'EXL2K FORMULA'
-        ELSE   IF &TYPSOR EQ 'H'      THEN 'HTML'
-        ELSE   IF &TYPSOR EQ 'W'      THEN 'PDF'
-        ELSE   'EXL2K'    ;
 ON TABLE SET PAGE-NUM OFF
 ON TABLE NOTOTAL
 ON TABLE SET EXL2KLANG FRE
 ON TABLE SET STYLE *
[COLOR:RED]-MRNOEDIT -INCLUDE &STYSHEET[/COLOR]
 ENDSTYLE
-IF &TYPSOR NE 'H'      THEN GOTO PASDECSS ;
 ON TABLE SET ONLINE-FMT HTML
 ON TABLE SET HTMLCSS ON
-PASDECSS
-** Under MSO, We let Focus's Internal Matrix, cooked the HTML Way, run direct to the Web Browser
-IF &FOCMODE EQ 'MSO' THEN GOTO REQSTYP30  ;
-* ON TABLE HOLD AS &FICSOR FORMAT &FORMDEM
-GOTO REQSTYP99
-*---------  SOUS MSO : COMMENT SEPARER EXCEL, HTML ET PDF
-REQSTYP30
-*---------
-IF &TYPSOR EQ 'H' THEN GOTO REQSTYP99 ;
 ON TABLE PCHOLD FORMAT &FORMDEM
-GOTO REQSTYP99
 

But I'm afraid that the Member, which is the &STYSHEET.EVAL = PIXISXLS was not part of the exchange betwween Report Server (or about) and Data Server (or about) since the Html Source, in return contains :

 
-IF PIXISXLS EQ ' '  THEN GOTO  REQSTYP40 ;
-SET &FORMDEM = IF   NE ' '     THEN
-        ELSE   IF X EQ 'X'      THEN 'EXL2K FORMULA'
-        ELSE   IF X EQ 'H'      THEN 'HTML'
-        ELSE   IF X EQ 'W'      THEN 'PDF'
-        ELSE   'EXL2K'    ;
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE SET EXL2KLANG FRE
ON TABLE SET STYLE *
[COLOR:RED]-INCLUDE PIXISXLS
(FOC227) PROCEDURE FOCEXEC INCONNUE: PIXISXLS[/COLOR]
ENDSTYLE

Those two layers on different platforms don't understand each other, because of my code.
But I just can't fancy the role of each Part
(Just as Focus learners miss the way that Dialog Manager and Focus communicate,
Writting -RUN here and there, not knowing why, and hoping that it might work)
I need a guru to hold my hand and make me cross this river of mine

Thanks in advance ( and please, Not all of you throw back to the sea this SOS message, badly written as it is ...)

This message has been edited. Last edited by: Baillecl,

Any code in MRNOEDIT must be totally executable and resident on the server. Your PIXISXLS fex must exist on the reporting server.

quote:

-INCLUDE PIXISXLS

PIXISXLS.fex (and all its format-specific siblings) must reside on the data server, in some directory listed in the search path -- not on MR.

Thanks for your concease answers.
My God, I've a talent to be disagreable with people kind enough as to help me.
But, It must be here, it should be there is very true, but ..
It is Here (/app, Report Server) It should go There (Data Server) and I am nothing but a developper ( No Access to the machines firmly held by my technical gurus - as in any well organised Company).
How can I hold Focus's (and friends's) hands. Knowing which /App StySheet should move towards the data Server in the same flow that Report Server will send towards Data Server ( Through EDA and all that i-way stuff that I don't Master at all)
Oh, three legged Cactus, Why are you hurting me each time I try to make friend ?
Cordially and Ol'Timer Focusely
My idea was that UTREQSTY of the Report Server would -INCLUDE /app &STYSHEET and so Data Server would receive a coherent Request and do the expected Job

Bonjour,
I just can't sleep ...
I already had something of the kind : MR or someone around refused to Execute a DM Request :
EX &REQMEF FICENT = &FICENT, ECHO = &ECHO,
.../...
So I had to tell him more precisely :

  
-              IF &REQMEF EQ LSRTH15   THEN GOTO :LSRTH15
-       ELSE   IF &REQMEF EQ LSRTH15M  THEN GOTO :LSRTH15M
-       ELSE   GOTO :LSRTH12 ;
-:LSRTH12
EX LSRTH12  FICENT   = LSRTH10A , ECHO=&ECHO ,
-GOTO :FLIG1RQMEF
-*
-:LSRTH15
EX LSRTH15  FICENT   = LSRTH10A , ECHO=&ECHO ,
-GOTO :FLIG1RQMEF
-*
-:LSRTH15M
EX LSRTH15M FICENT   = LSRTH10A , ECHO=&ECHO ,
-GOTO :FLIG1RQMEF
-:FLIG1RQMEF
            MOISTRT = &MOISTRT ,
            MFINTRT = &MFINTRT ,

-INCLUDE STYSHEET causes me, probably, same kind of Problem since MR tells me he can't find &STYSHEET.fex
I guess that if I could copy &STYSHEET on some kind of \MyTemporapp\JustToFixTheName and, this being done,
-INCLUDE \MyTemporapp\JustToFixTheName
I might have a chance ...

I knew many things in the Basic MS World : SET TEMP = K ; DOS COPY etc ...
I'm a bit short in Unix ( USS or something of the kind)

Did any Guru have same kind of problem and have some kind of ideas to get through ?
The SOS bottle being thrown away, I go back to sleep
Focusely and tiredly

By the way, How many years did Robinson await a rescue ?
( Something different of 'Should have a boat' )

Using the Dialog Manager code referenced here as an example, is there any way to conditionally GOTO a specific label depending on the value of a field the same way in MF FOCUS for a batch job?

- IF &REQMEF EQ LSRTH15 THEN GOTO :LSRTH15
- ELSE IF &REQMEF EQ LSRTH15M THEN GOTO :LSRTH15M
- ELSE GOTO :LSRTH12 ;
-:LSRTH12
EX LSRTH12 FICENT = LSRTH10A , ECHO=&ECHO ,
-GOTO :FLIG1RQMEF
-*
-:LSRTH15
EX LSRTH15 FICENT = LSRTH10A , ECHO=&ECHO ,
-GOTO :FLIG1RQMEF
-*
-:LSRTH15M
EX LSRTH15M FICENT = LSRTH10A , ECHO=&ECHO ,
-GOTO :FLIG1RQMEF
-:FLIG1RQMEF
MOISTRT = &MOISTRT ,
MFINTRT = &MFINTRT ,

quote:

...Oh, three legged Cactus, Why are you hurting me each time I try to make friend ?
...

I sincerely nominate Baillecl to the position of Chief of Documentation - Technical Manual division. I love this.

- ABT

When MR sees an "unescaped" -INCLUDE or EX, it ships a copy of the fex file (using the undocumented EX -LINES feature) to the reporting server so that the latter can access it when the time comes.

So, if you have a limited number of reports (or stylesheets) of reasonable length stored in MR that may be referenced by dynamically generated code, you can make them all available, along these lines:

-GOTO start
-*************************************************************************
-* The GOTO makes these -INCLUDEs unreachable, but MR doesn't know that...
-INCLUDE fex1 
-INCLUDE fex2
-INCLUDE fex3
-*************************************************************************
-start
-DEFAULT &parm=1

-SET &FEX=DECODE &parm(
-  1  'fex1'
-  2  'fex2'
-ELSE 'fex3'
-  );

-MRNOEDIT EX &FEX.EVAL

Bonjour,
I don't Master private Messaging to people who helped me, so I turn into Public this private message :
Bonjour,
I feel so down and out in this forum where first level ( and short term ) efficiency is so high that I often think of staying apart.
I've nostalgy of Focus guys sharing a culture and exchanging Tricks (and great humor as Tony A practices so well).
I just can't find the right way to live present Focus community.
That's why I thank you very much for your answers. (And if you're kidding me, as the old fool I tend to be, I just did not see)
Focusely and Thanksfully