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