|
Tommy thanks again.. your 1st suggestion was right..what did, I created one more CL and submitted RSYS105A but before that done OVRDBF with EOFDLY in same CL.. it's working fine.. Tommy you have saved my lot of time... Thanks & Regards Mahesh Pawar Juan Carlos Paredes <jcarlos@xxxxxxxxxx> wrote: Sorry, Tommy, but I think you should call RSYS105A without submit it. Juan Carlos. > -----Mensaje original----- > De: Holden Tommy [SMTP:Tommy.Holden@xxxxxxxxxxxxxxxxx] > Enviado el: miércoles, 29 de junio de 2005 18:17 > Para: RPG programming on the AS400 / iSeries > Asunto: RE: problem with SBMJOB > > not really you can have the CL submit itself. > > PGM > > DCL &JOBA *CHAR 10 > DCL &RUNTYPE *CHAR 1 > > /* RETRIVE JOB ATTRIBUTES */ > RTVJOBA JOB(&JOBA) TYPE(&RUNTYPE) > /* RUNTYPE = '1' is Interactive */ > IF (&RUNTYPE *EQ '1') DO > SBMJOB CMD(CALL THISPGM) JOB(&JOBA) + > LOGCLPGM(*YES) MSGQ(*WRKSTN) > GOTO ENDPGM > ENDDO > > /* OVERRIDE LFSNGCHG WITH DELAY EOF > > OVRDBF FILE(LFSNGCH1) TOFILE(*FILE) MBR(*FIRST) + > RCDFMTLCK((RSNGCHG *SHRRD)) + > EOFDLY(200) OVRSCOPE(*JOB) SHARE(*YES) OPNSCOPE(*JOB) > > SBMJOB CMD(CALL PGM(RSYS105A)) JOB(&JOBA) + > LOGCLPGM(*YES) MSGQ(*WRKSTN) > > ENDPGM: > RCLRSC > RETURN > ENDPGM > > > Thanks, > Tommy Holden > HCA phone: 1-800-828-2561 > direct line: 615-344-2151 > fax: 1-866-593-0404 > > > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mahesh Pawar > Sent: Wednesday, June 29, 2005 11:06 AM > To: RPG programming on the AS400 / iSeries > Subject: RE: problem with SBMJOB > > > Thanks Tommy > let me confirm 1 thing.. you mean I have to write another CL to submit my > current CL? > please advice me > > Holden Tommy wrote: > the override has to be IN the submitted job.... > > Thanks, > Tommy Holden > > > -----Original Message----- > From: rpg400-l-bounces@xxxxxxxxxxxx > [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Mahesh Pawar > Sent: Wednesday, June 29, 2005 9:34 AM > To: RPG programming on the AS400 / iSeries > Subject: problem with SBMJOB > > > > Hello everybody, > > I have situation where I need to do OVRDBF on PF file with option EOFDLY > to process records and wait for new records for processing continuously > > > > So I have created CL with OVRDBF and EOFDLY option. In same Cl program if > I called RPG program interactively it's work fine. It sense EOF and delay > the EOF and process newly added records. but if called the RPG program in > batch (sbmjob) Then RPG program just process existing records and does not > wait for new records. > > > > following is my CL code. > > > > PGM > > DCL &JOBA *CHAR 10 > /* OVERRIDE LFSNGCHG WITH DELAY EOF > > OVRDBF FILE(LFSNGCH1) TOFILE(*FILE) MBR(*FIRST) + > RCDFMTLCK((RSNGCHG *SHRRD)) + > EOFDLY(200) OVRSCOPE(*JOB) SHARE(*YES) OPNSCOPE(*JOB) > /* RETRIVE JOB ATTRIBUTES */ > RTVJOBA JOB(&JOBA) > SBMJOB CMD(CALL PGM(RSYS105A)) JOB(&JOBA) + > LOGCLPGM(*YES) MSGQ(*WRKSTN) > > > Thanks In advance > > Regards > Mahesh Pawar > > > > --------------------------------- > Yahoo! Mail > Stay connected, organized, and protected. Take the tour > -- > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > > -- > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > > > Thanks & Regards > > Mahesh Pawar, > Mumbai,India, > Phone#(R) - 91-22-25442164, > Mobile# - 98204 46415 > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam protection around > http://mail.yahoo.com > -- > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > > -- > > This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list > To post a message email: RPG400-L@xxxxxxxxxxxx > To subscribe, unsubscribe, or change list options, > visit: http://lists.midrange.com/mailman/listinfo/rpg400-l > or email: RPG400-L-request@xxxxxxxxxxxx > Before posting, please take a moment to review the archives > at http://archive.midrange.com/rpg400-l. > > -- > No virus found in this incoming message. > Checked by AVG Anti-Virus. > Version: 7.0.323 / Virus Database: 267.8.6/33 - Release Date: 28/06/2005 > >
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.