NetBatch Management Programming Manual

NetBatch Procedure Calls
NetBatch Management Programming Manual—522462-003
7-15
Sample C Program
int *, /* RT TIME */
int, /* ALTER FLAG */
int *, /* OPEN TABLE */
int *, /* NB JOB NUM */
char * /* ATT SET */
);
#pragma page
/*
*--------------------------------------------------------------------
* nb_init
* Use:
* Data setup
* Effects:
* Set up the job attributes required to submit a job
*--------------------------------------------------------------------
*/
void nb_init(void)
{
/* Initialize Submit rec */
strncpy (submit_rec.actual_job_name, "MASTER-A ",24);
strcpy (submit_rec.job_details.defaults, getenv("DEFAULTS"));
strncpy (submit_rec.job_details.executor_program, "$SYSTEM.SYSTEM.TACL
",36);
submit_rec.job_details.highpin = 'N';
submit_rec.job_details.hold_after_flag = 'Y';
submit_rec.job_details.hold_flag = 'Y';
strcpy (submit_rec.job_details.in_file, getenv("DEFAULTS"));
strcat (submit_rec.job_details.in_file, ".INFILE");
strncpy (submit_rec.job_details.out_file, "$S.#MASTERA
",36);
strncpy (submit_rec.job_details.jclass, "CLASS-A
",24);
submit_rec.job_details.print_lines.b = 0;
submit_rec.job_details.print_pages.b = 0;
submit_rec.job_details.tape_drives.b = 0;
submit_rec.job_details.priority.b = 0;
submit_rec.job_details.start_time.b = 0;
submit_rec.job_details.wait_time.b = 0;
submit_rec.job_details.selpri = ' ';
submit_rec.job_details.stall = ' ';
setmem (submit_rec.job_details.start_up, 40, ' ');
setmem (submit_rec.job_details.job_text, 32, ' ');
submit_rec.job_details.restart_flag = ' ';
submit_rec.job_details.stop_on_abend = ' ';
strncpy (submit_rec.job_details.scheduler, "$ZBAT ",18);
/* Now initialize the other parameters */
TIMESTAMP ((short *) &base_date.after_date);
(continued)