Hi

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.

-IF &RECORDS EQ 0 THEN GOTO WARN1 ELSE WARN1;

if no records then WARN1 otherwise WARN1 anyway....

Is that right??

hi williams
The below is correct...
-IF &RECORDS EQ 0 THEN GOTO WARN2 ;

Any suggestions would be appreciated

delvee

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 &ECHO=ALL;

-DEFAULT &STestRequest = '100';
-DEFAULT &CTestRequest = '200';

-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"
-EXIT

This message has been edited. Last edited by: <Mabel>,