I am using a -SET command that I am trying to create a variable to be used to pass to another program the variable result and program to call, depends on a drill level indicator that is passed from different points in the program. IE if the drill is L3 then you pass certain criteria, if it is L3M it is different and so on. So i have to build this &pgmtocall variable with the appropriate information. The problem is this, I am getting an error "(FOC261) EXPRESSION IS INCOMPLETE BECAUSE AN OPERATION IS MISSING" when the drill is "GTL4M". I am thinking the length of the -SET command is too long for me to accomplish this but cannot find anywhere that says how long this command can be. I tried busting it up into 3 different -SET commands and it worked if the drill level was towards the bottom of the -SET command for instance GTL9. Any ideas???


-SET &PGMTOCALL =
- IF &DRILL EQ 'L3' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3M' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3YV'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL4M' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL4M'' RVP=VP PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL4YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL4YM'' RVP=VP PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL4YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL4YV'' RVP=VP PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL5' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5'' RVP=VP RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L5M' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5M'' RVP=VP PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L5YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5YM'' RVP=VP PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L5YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5YV'' RVP=VP PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6YM'' RVP=VP RMGR=MGR PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6M' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6M'' RVP=VP RMGR=MGR PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6YV'' RVP=VP RMGR=MGR PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL7' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL7'' RVP=VP RMGR=MGR RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4'' RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4M'' PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4YM'' PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4YV'' PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL6M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL6M'' RVP=VP RMGR=MGR PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL6YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL6YM'' RVP=VP RMGR=MGR PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL6YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL6YV'' RVP=VP RMGR=MGR PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8YV'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL9' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL9'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL10M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL10M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL10YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL10YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL10YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL10YV'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL13' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL13'' RVP=VP RMGR=MGR RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE '';
-? &PGMTOCALL

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

I might mention this is how i busted this up earlier and it did worked for GTL9 but not for the "GTL4M".


-SET &PGM1 =
- IF &DRILL EQ 'L3' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3M' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3YV'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL4M' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL4M'' RVP=VP PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL4YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL4YM'' RVP=VP PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL4YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL4YV'' RVP=VP PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL5' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5'' RVP=VP RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L5M' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5M'' RVP=VP PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L5YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5YM'' RVP=VP PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L5YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL5YV'' RVP=VP PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE '';
-SET &PGM2 =
- IF &DRILL EQ 'TL6YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6YM'' RVP=VP RMGR=MGR PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6M' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6M'' RVP=VP RMGR=MGR PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL6YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL6YV'' RVP=VP RMGR=MGR PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'TL7' THEN 'FOCEXEC=kpiexp03 (DRILL=''TL7'' RVP=VP RMGR=MGR RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4'' RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4M'' PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4YM'' PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL4YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL4YV'' PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL6M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL6M'' RVP=VP RMGR=MGR PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL6YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL6YM'' RVP=VP RMGR=MGR PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL6YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL6YV'' RVP=VP RMGR=MGR PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE '';
-SET &PGM3 =
- IF &DRILL EQ 'GTL8' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL8YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL8YV'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL9' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL9'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL10M' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL10M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL10YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL10YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL10YV' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL10YV'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_V'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'GTL13' THEN 'FOCEXEC=kpiexp03 (DRILL=''GTL13'' RVP=VP RMGR=MGR RACCOUNTNAME=ACCOUNTNAME PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE '';
-? &PGM
-SET &PGMTOCALL = IF &PGM1 NE '' THEN &PGM1 ELSE IF &PGM2 NE '' THEN &PGM2 ELSE IF &PGM3 NE '' THEN &PGM3 ELSE '';
-? &PGMTOCALL

in my honest opinion this is far to complex way to get this done
in fact you all the time start the same fex witht the same date var
and many other vars that are the same

That is true Frank, however there are many places to drill from in this report that calls the report again with different drill levels(authority levels). Think of it as you can view it as a vp view, plant view, manager view, department view, account name view. All of these looks have drills on the data line as well as multi level drills on the total line to the same program/or different program to get a different view level of detail. Does that make sense. It did not make sense to create 9 different programs to accomplish this... What is your idea of an EASIER way to do this...i am all for easier.

I probably should have added that there is a print button in the upper right hand corner and this information is driving whether or not the print button shows to go to a PDF view to print from or the freeze headers look shows which is difficult to print the report. It toggles back and forth between print mode and view mode

yes, but you can decode that also in the receiving fex, in stat if of sending it

the sending and receiving fex is the same fex in some cases. IE the program name is KPIEXP03. So you have to know the drill level (&DRILL) and the sort variables VP, MGR, Period, ACCOUNT NAME, PLANT, DEPT, GLCODE, RPTDATE, PREPORT(print mode) ETC to be able to run the report with the correct authority levels and drill information.

This is the heading section of this report

HEADING
"&PRNTRPT"
'Report name"

This is the calling section of that field &PRNTRPT which calls the program if the field &prntrpt is clicked on.


TYPE=HEADING,
OBJECT=TEXT,
LINE=1,
ITEM=1,
COLSPAN=23,
COLOR='BLUE',
JUSTIFY=RIGHT,
TARGET='_self',
&PGMTOCALL
$

So Frank, you say this is far too complex, can you give me some idea on how to make it NOT so complex?

quote:

SET &PGM1 =
- IF &DRILL EQ 'L3' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3M' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3M'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
- IF &DRILL EQ 'L3YM' THEN 'FOCEXEC=kpiexp03 (DRILL=''L3YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' ELSE
. . .
- ELSE ' ';

Change that to a Decode on &DRILL:

SET &PGM1 = DECODE &DRILL ( 
- 'L3'   'FOCEXEC=kpiexp03 (DRILL=''L3''   RVP=VP RMGR=MGR RPLDP=PLANT_DEPT RGLCODE=GLCODE PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' 
- 'L3M'  'FOCEXEC=kpiexp03 (DRILL=''L3M''  RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''MTH'' RPTDATE=&RPTDATE PREPORT=''PRNT''),' 
- 'L3YM' 'FOCEXEC=kpiexp03 (DRILL=''L3YM'' RVP=VP RMGR=MGR RPLDP=PLANT_DEPT PERIOD=''YTD_M'' RPTDATE=&RPTDATE PREPORT=''PRNT''),'
 ...
- ELSE '');

OK J-gross, i will do that today and see what i get. Thanks for clearing that up. I have not done a Decode before...

The DECODE method is a good alternative, but another way to do this is to make each parameter being passed a variable based on the value of &DRILL.

For example,

  
-SET &RVPVALUE = IF &DRILL IN ('L3','L3M') THEN 'VP' ELSE ...

Then in the calling section, you could have:

  
TYPE=HEADING,
OBJECT=TEXT,
LINE=1,
ITEM=1,
COLSPAN=23,
COLOR='BLUE',
JUSTIFY=RIGHT,
TARGET='_self',
FOCEXEC=kpiexp03 (DRILL='&DRILL' RVP=&RVPVALUE RMGR=&RMGRVALUE RPLDP=&RPLDPVALUE RGLCODE=&RGLCODEVALUE PERIOD='&PERIOD' RPTDATE=&RPTDATE PREPORT='&PREPORT'),$

When using sort values as parameter values, don't have quotes around the value.