I'm using the IN FILE statement in the following dialogue manager -IF statement but I'm getting the error message "INPUT FILE NOT ALLOCATED." I have an APP HOLD foldername statement in the fex also. I need to compare the value passed in the &FILENO parameter to the fileno in the BESTCUST file. Thanks.

-IF &FILENO IN FILE BESTCUST GOTO SECTION1 ELSE GOTO SECTION2;



WF 8009
Windows 7

This message has been edited. Last edited by: Michele Brooks,

Hi Michele

You will need to put a FILEDEF command in to allocate the BESTCUST file. An example is below.

FILEDEF BESTCUST DISK baseapp/bestcust.ftm

Hope that helps

I do have the following filedef in the fex.


FILEDEF BESTCUST DISK "E:/ibi/apps/prod_workarea_ar/bestcust.ftm"

Hi Michele

Try putting a -RUN after the FILEDEF

Regards

You cannot use IN FILE in a Dialogue Manager IF statement to test for values in a file - an IF statement will not read a file.

You will have to -READ or -READFILE each row into variables, then test the variables.

Thanks so much Chuck, the -RUN worked. The fex is going to the correct label.

Francis, the -IF worked. I'm reading a parameter value that is being passed via a -DEFAULT and seeing if the value is in the .ftm file that may or may not have the parameter value.

I'll close the post.

Either I have completely forgotten that IN FILE works or I never knew!

Michelle, thanks for (re)educating me!

This message has been edited. Last edited by: Francis Mariani,

Try this and let me know if it works.

 
-SET &ECHO = ALL;


-DEFAULT &TYPECAR = 'DATSUN';

APP HOLD prod_workarea_ar

FILEDEF CARFILE DISK "E:/ibi/apps/prod_workarea_ar/carfile.ftm"
-RUN

TABLE FILE CAR
PRINT CAR
WHERE CAR EQ 'DATSUN' OR 'JENSEN' OR 'JAGUAR'
ON TABLE HOLD AS CARFILE FORMAT ALPHA
END

-IF &TYPECAR IN FILE CARFILE GOTO TYPE_SPECIFIC ELSE GOTO TYPE_ALLCARS;

-TYPE_SPECIFIC
TABLE FILE CAR
"&TYPECAR Cars"
""
""
PRINT *
WHERE CAR EQ '&TYPECAR'
END
-GOTO ENDRPT
-TYPE_ALLCARS
TABLE FILE CAR
"All Cars"
""
""
PRINT *
WHERE CAR NE '&TYPECAR'
END
-GOTO ENDRPT
-ENDRPT
-EXIT

 

Michelle, thanks - I did test with the CAR file and yes, it works

Wow, Another hidden gem undiscovered.

But is it documented ?

Quick delete your posts before someone else finds out

Yep, it is in the Developing Reporting Applications manual in the 'Supplying Variable Values in an Expression' section.

The example in the manual shows it used in a -SET command:

-SET &VAR1 = 'ABC ';
-SET &VAR2 = &VAR1 IN FILE FILE1; 

So that you could then test on &VAR2:

-IF &VAR2 EQ 0 THEN GOTO SECTION1 ELSE GOTO SECTION2; 

I haven't had to use it yet, but it is good to know for possible future use. :-)

If Waz didn't know, then I don't feel so foolish!