Routine
Moderators: chulett, rschirm, roy
Routine
I have below routine which suppose to take the job name and move the job to the target location (category) provided by me. It seems the routine is not working fine. Could anyone assist me on this.
(Job name and target catagory is provided by user in routine)
JobName = ''
JobCategory = ''
JobName<-1> = 'Sample job'; JobCategory<-1> = 'Targetcategory'
OPEN '','DS_JOBS' TO DSJobsFilePtr ELSE STOP 'Bad open on DS_JOBS'
JobCount = DCOUNT(JobName,@FM)
FOR Index = 1 TO JobCount
CurrentJobName = JobName<Index>
READ JobRecord FROM DSJobsFilePtr, CurrentJobName
THEN
PRINT "Converting Job "':CurrentJobName:'" from Category ":JobRecord<3>:'" to "':JobCategory<Index>:'"'
JobRecord<3> = JobCategory<Index>
WRITE JobRecord ON DSJobsFilePtr, CurrentJobName
END
ELSE
PRINT 'job "':CurrentJobName:'" Not exist.'
END
NEXT Index
CLOSE DSJobsFilePtr
Ans = ''
(Job name and target catagory is provided by user in routine)
JobName = ''
JobCategory = ''
JobName<-1> = 'Sample job'; JobCategory<-1> = 'Targetcategory'
OPEN '','DS_JOBS' TO DSJobsFilePtr ELSE STOP 'Bad open on DS_JOBS'
JobCount = DCOUNT(JobName,@FM)
FOR Index = 1 TO JobCount
CurrentJobName = JobName<Index>
READ JobRecord FROM DSJobsFilePtr, CurrentJobName
THEN
PRINT "Converting Job "':CurrentJobName:'" from Category ":JobRecord<3>:'" to "':JobCategory<Index>:'"'
JobRecord<3> = JobCategory<Index>
WRITE JobRecord ON DSJobsFilePtr, CurrentJobName
END
ELSE
PRINT 'job "':CurrentJobName:'" Not exist.'
END
NEXT Index
CLOSE DSJobsFilePtr
Ans = ''
Best Regards,
A K
A K
-
- Participant
- Posts: 54607
- Joined: Wed Oct 23, 2002 10:52 pm
- Location: Sydney, Australia
- Contact:
-
- Participant
- Posts: 54607
- Joined: Wed Oct 23, 2002 10:52 pm
- Location: Sydney, Australia
- Contact:
You can use drag and drop in the Designer client.
I am not aware of any version 8 programmatic method for changing the repository folder in which a component resides.
I suppose that you could enable server side tracing then open Designer and perform the drag and drop, investigate the subroutine calls made, and try to emulate them. But who wants to be an emu?
I am not aware of any version 8 programmatic method for changing the repository folder in which a component resides.
I suppose that you could enable server side tracing then open Designer and perform the drag and drop, investigate the subroutine calls made, and try to emulate them. But who wants to be an emu?
IBM Software Services Group
Any contribution to this forum is my own opinion and does not necessarily reflect any position that IBM may hold.
Any contribution to this forum is my own opinion and does not necessarily reflect any position that IBM may hold.
Ray:- Drag and drop is ok till the number of component to move is less. If its a huge number then i think it would be a tidious task.
Any other suggestion.
Any other suggestion.
ray.wurlod wrote:You can use drag and drop in the Designer client.
I am not aware of any version 8 programmatic method for changing the repository folder in which a component resides.
I suppose that you could en ...
-
- Participant
- Posts: 54607
- Joined: Wed Oct 23, 2002 10:52 pm
- Location: Sydney, Australia
- Contact: