Function SET1934: Batch Report from NT DBMS Table
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_193);
********** COMMENT(Function .......: SET1934);
********** COMMENT(Created on .....: 12th October 2000);
********** COMMENT(Description ....: Demonstration Function 3);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: This function demonstrates);
********** COMMENT( how an AS/400 batch job can extract information from);
********** COMMENT( a DBMS table on a Windows NT/2000 system and print);
********** COMMENT( on the AS/400 system. Also see:);
********** COMMENT( SET1935: The AS/400 batch printing job);
********** COMMENT( SET1936: The Windows NT data extractor);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT( example material only. No warranty concerning this);
********** COMMENT( material or its use in any way whatsoever is);
********** COMMENT( expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA Required : 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
FUNCTION OPTIONS(*DIRECT *LIGHTUSAGE);
********** COMMENT();
********** COMMENT(Define locally scoped fields);
********** COMMENT();
DEFINE FIELD(#S_193JBQ) REFFLD(#STD_OBJ) DESC('Job Queue Name') DEFAULT(QBATCH);
********** COMMENT();
********** COMMENT(Simpy request and validate the job queue name);
********** COMMENT(and then submit SET1935 to batch to do the printing);
********** COMMENT();
MESSAGE MSGTXT('Change job queue name as required then press enter to submit SET1935 to batch.');
L10: REQUEST FIELDS(#S_193JBQ) EXIT_KEY(*NO) PROMPT_KEY(*NO);
EXEC_OS400 COMMAND('CHKOBJ #S_193JBQ *JOBQ') IF_ERROR(L10);
SUBMIT PROCESS(#PROCESS) FUNCTION(SET1935) JOBQ(#S_193JBQ);
MENU;
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_193);
********** COMMENT(Function .......: SET1934);
********** COMMENT(Created on .....: 12th October 2000);
********** COMMENT(Description ....: Demonstration Function 3);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: This function demonstrates);
********** COMMENT( how an AS/400 batch job can extract information from);
********** COMMENT( a DBMS table on a Windows NT/2000 system and print);
********** COMMENT( on the AS/400 system. Also see:);
********** COMMENT( SET1935: The AS/400 batch printing job);
********** COMMENT( SET1936: The Windows NT data extractor);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT( example material only. No warranty concerning this);
********** COMMENT( material or its use in any way whatsoever is);
********** COMMENT( expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA Required : 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
FUNCTION OPTIONS(*DIRECT *LIGHTUSAGE);
********** COMMENT();
********** COMMENT(Define locally scoped fields);
********** COMMENT();
DEFINE FIELD(#S_193JBQ) REFFLD(#STD_OBJ) DESC('Job Queue Name') DEFAULT(QBATCH);
********** COMMENT();
********** COMMENT(Simpy request and validate the job queue name);
********** COMMENT(and then submit SET1935 to batch to do the printing);
********** COMMENT();
MESSAGE MSGTXT('Change job queue name as required then press enter to submit SET1935 to batch.');
L10: REQUEST FIELDS(#S_193JBQ) EXIT_KEY(*NO) PROMPT_KEY(*NO);
EXEC_OS400 COMMAND('CHKOBJ #S_193JBQ *JOBQ') IF_ERROR(L10);
SUBMIT PROCESS(#PROCESS) FUNCTION(SET1935) JOBQ(#S_193JBQ);
MENU;