Is there a creative way to programatically export the

scripts of many jobs in a 24x7 job database to a file?

I am wanting to do this with manually opening each job

and choosing File|Export.

Jason

This is indeed very simple.

1. Start with JobList topic in the help. click the examples button in that topic and cop the script into a new job

2. In the copied script replace JobEnable with the following

JobDescribe( job_id, "NAME", job_name )

JobDescribe( job_id, "SCRIPT", job_script )

FileSave( job_name, job_script )

3. In the beginning of script add declarations for job_name and job_script variables.

4. Run the new job

: Is there a creative way to programatically export the

: scripts of many jobs in a 24x7 job database to a file?

: I am wanting to do this with manually opening each job

: and choosing File|Export.

: Jason

Thanks!

It all works using the script below but I get a

"Type Mismatch" error on teh line "isEqual( job_list, "", no_more )"

below. It only occurs on the final time when no_more

will = "".

************************************

// declare script variables

Dim( job_list, string )

Dim( no_more, boolean )

Dim( job_id, string )

dim job_name string

dim job_script string

// build job list

JobList( "Nightly Cycle", job_list )

// parse the list

isEqual( job_list, "", no_more )

LoopUntil( no_more, END_LOOP )

GetToken(",", job_list, job_id )

JobDescribe( job_id, "NAME", job_name )

JobDescribe( job_id, "SCRIPT", job_script )

Concat ( "D:\\Temp\\", Job_name, job_name)

FileSave( job_name, job_script )

isEqual( job_list, "", no_more )

END_LOOP:

************************************

: This is indeed very simple.

: 1. Start with JobList topic in the help. click the examples button in that

: topic and cop the script into a new job

: 2. In the copied script replace JobEnable with the following

: JobDescribe( job_id, "NAME", job_name )

: JobDescribe( job_id, "SCRIPT", job_script )

: FileSave( job_name, job_script )

: 3. In the beginning of script add declarations for job_name and job_script

: variables.

: 4. Run the new job

To make it easy, add another variable of string type, let's say x

Replace last isEqual with

Concat( "x", job_list, x)

IsEqual( x, "x", no_more )

Also if you want, you can change the script to generate more useful file names having .JAL or .TXT extensions.

: Thanks!

: It all works using the script below but I get a

: "Type Mismatch" error on teh line "isEqual( job_list,

: "", no_more )"

: below. It only occurs on the final time when no_more

: will = "".

: ************************************

: // declare script variables

: Dim( job_list, string )

: Dim( no_more, boolean )

: Dim( job_id, string )

: dim job_name string

: dim job_script string

: // build job list

: JobList( "Nightly Cycle", job_list )

: // parse the list

: isEqual( job_list, "", no_more )

: LoopUntil( no_more, END_LOOP )

: GetToken(",", job_list, job_id )

: JobDescribe( job_id, "NAME", job_name )

: JobDescribe( job_id, "SCRIPT", job_script )

: Concat ( "D:\\Temp\\", Job_name, job_name)

: FileSave( job_name, job_script )

: isEqual( job_list, "", no_more )

: END_LOOP: ************************************