Purge predict files

, , ,
1

I need to remove many predict definition files.
I can create a workplan which includes all files I want to be purged but I need to enter NEXT and PURGE commands for each file.

Is there any way to automatically remove all predict files or several predict files (userviews and adabas views) without prompting for delete confirmation?

2

Hi Gustavo,

Have a look at using the Predict API. It is documented in the Administration manual.

Cheers, Graeme

3

Thanks Graeme.

I’ve created a program inside sysdic library with the following code:

Command ===> Mode Struct Lib SYSDIC
****** ****************************** top of data *****************************
000010 DEFINE DATA
000020 LOCAL USING PALPUD42
000030 *
000040 END-DEFINE
000050 *
000060 MOVE ‘D’ TO #FUNCTION
000070 MOVE ‘FI’ TO #OBJECT-TYPE
000080 MOVE ‘FILE-NAME’ TO #OBJECT-ID
000090 *
000100 CALLNAT ‘PALUD42’ #FUNCTION #OBJECT-TYPE #OBJECT-ID
000110 *
000120 END
****** **************************** bottom of data ****************************

But when I try to run o stow it I receive the following error:

NAT0082 Invalid command, or LDA PALPUD42 does not exist in library. ?
? VVVVVVVV ?
?0020 LOCAL USING PALPUD42

I’m novice in Adabas and Natural, any idea about what’s the problem??

Thanks in advance!

4

If you haven’t misspelled the module’s name (PALPUD42), then try running your program from a different library. I’m guessing that the LDA is in SYSDICBE.