Unable to figure out the problem:- User enter's 2 Test ID. like &STestRequest(100),&CTestRequest (200) and process the request.
-SET &TestRequest = &STestRequest; ! mkdir /tmp/data ! mkdir /tmp/data/A&TestRequest APP MAP HOLDIR /tmp/data/A&TestRequest APP HOLD HOLDIR FILEDEF B&TestRequest DISK /tmp/data/A&TestRequest/B&TestRequest...foc ( use /tmp/data/A&TestRequest/B&TestRequest (database location) END -RUN -* ----------------------------------------------first test Request TABLE FILE B&TestRequest SUM COUNTRY WHERE FK_ID EQ &TestRequest END -RUN
-IF &RECORDS EQ 0 THEN GOTO WARN1 ELSE WARN1; "Message Data Exists- for first" -WARN1 "Message NO Data Exists- for first"
-* ----------------------Problem for this part of code at setting path while processing 2nd request (&CTestRequest)
-SET &TestRequest = &CTestRequest; APP HOLD ! mkdir /tmp/data ! mkdir /tmp/data/A&TestRequest APP MAP HOLDIR /tmp/data/A&TestRequest APP HOLD HOLDIR FILEDEF B&TestRequest DISK /tmp/data/A&TestRequest/B&TestRequest...foc ( use /tmp/data/A&TestRequest/B&TestRequest (database location) END -RUN -*------------------------------------------------Second Test Request TABLE FILE B&TestRequest SUM COUNTRY WHERE FK_ID EQ &TestRequest END -RUN
-IF &RECORDS EQ 0 THEN GOTO WARN1 ELSE WARN2; "Message Data Exists- for Second" -WARN2 "Message NO Data Exists- for Second" -EXIT -------------------------------------------------
Problem is :- For the first test request code (say 100) code is working fine and displaying the message correctly, but for second Test Request (say 200).. It unable to locate to the file where database exists, and always display the message " NO Data Exists ", even though data exists.
ANY SUGGESTION IS APPRECIATED.
June 03, 2005, 04:56 PM
<Sean Williams>
-IF &RECORDS EQ 0 THEN GOTO WARN1 ELSE WARN1;
if no records then WARN1 otherwise WARN1 anyway....
Is that right??
June 04, 2005, 06:53 PM
<delvegas>
hi williams The below is correct... -IF &RECORDS EQ 0 THEN GOTO WARN2 ;
Any suggestions would be appreciated
delvee
June 07, 2005, 02:19 PM
Francis Mariani
I don't know if it has something to do with your GOTO's. I changed the GOTO statements slightly and the program seems to run through correctly:
-SET &TestRequest = &STestRequest; ! mkdir /tmp/data ! mkdir /tmp/data/A&TestRequest APP MAP HOLDIR /tmp/data/A&TestRequest APP HOLD HOLDIR FILEDEF B&TestRequest DISK /tmp/data/A&TestRequest/B&TestRequest...foc ( USE /tmp/data/A&TestRequest/B&TestRequest END -RUN -* ----------------------------------------------first test Request TABLE FILE B&TestRequest SUM COUNTRY WHERE FK_ID EQ &TestRequest END -RUN
-IF &RECORDS EQ 0 THEN GOTO WARN1; -TYPE "Message Data Exists- for first" -WARN1 -TYPE "Message NO Data Exists- for first"
-SET &TestRequest = &CTestRequest; APP HOLD ! mkdir /tmp/data ! mkdir /tmp/data/A&TestRequest APP MAP HOLDIR /tmp/data/A&TestRequest APP HOLD HOLDIR FILEDEF B&TestRequest DISK /tmp/data/A&TestRequest/B&TestRequest...foc ( USE /tmp/data/A&TestRequest/B&TestRequest END -RUN -*------------------------------------------------Second Test Request TABLE FILE B&TestRequest SUM COUNTRY WHERE FK_ID EQ &TestRequest END -RUN
-IF &RECORDS EQ 0 THEN GOTO WARN2; -TYPE "Message Data Exists- for Second" -WARN2 -TYPE "Message NO Data Exists- for Second" -EXITThis message has been edited. Last edited by: <Mabel>,