RE: problem with SBMJOB

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 <Tommy.Holden@xxxxxxxxxxxxxxxxx> 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
>  
>