Answer / syam

Yes, You can any number of program execute in batch it will
process one by one. (You see WRKACTJOB then press F5 in top
under Qbatch )

PGM PROGRAM1
SBMJOB CMD(CALL JOB1)
SBMJOB CMD(CALL JOB2)
SBMJOB CMD(CALL JOB3)
SBMJOB CMD(CALL JOB4)
ENDPGM

SBMJOB PROGRAM1 = This all jobs send to Qbatch to execute
one by one (This is on the Que.

Important:If you program screen(SDA) for input do not use
SBMJOB.

Answer / amit

I think after SBMJOB of the first PGM you need to retrieve
jobd of it. When the Job is completed then SBMJOB next job.
If you submit jobs together they all are processing
simultaneously which is violation of requirements.

Your second question is not clear to me. But if it is in
continuation of the first question then yes, it is possible
to have more than two programs executed in batch mode and
you will have to continue doing RTVJOBD for submitted job
prior to submitting next job. The loop can be like-

SBMJOB (JOB1)

TAG1 : RTVJOBD (JOB1)

I am not sure which parameter is to be used but there is
one parameter that pertains to job status and If status is
complete GOTO TAG2 else got to TAG1 will give you the loop
required to implement our requirement.

TAG2 : SBMJOB (JOB2).....

you can add one as many jobs as required this way.

Answer / megha

Above answers are correct,
But apart from that we can use
1. LDA (in first job , update data area with "1" , and
submit 2nd job if lda values ="1")
2. Data Queues for (pass the parameters) and when the first
job completed then use receivedata queue to submit 2nd job

Answer / yogesh

PGM MYCLPGM

/*The CL variable must be a five-position decimal variable
with no decimal positions. */

DCL &STSVAR *DEC 5

SBMJOB CMD(CALL JOB1)

TAGJOB1: RTVJOBA RTNCDE(&STSVAR)

IF COND(&STSVAR *NE 0) THEN(GOTO CMDLBL(TAGJOB1))

SBMJOB CMD(CALL JOB2)
TAGJOB2: RTVJOBA RTNCDE(&STSVAR)

IF COND(&STSVAR *NE 0) THEN(GOTO CMDLBL(TAGJOB2))

ENDPGM

Answer / sathya

This is can be acheived by using an API QUSRJOBI. it takes
five mandatory parameters. The status of the job will be
returned to variable &JOBENDR.

CALL PGM(QUSRJOBI) PARM(&JOBINFO &JOBINFL +
&JOBFMT1 &QJOBNAME &QINTJOB)
CHGVAR VAR(&JOBENDR) VALUE(%SST(&JOBINFO 348 1))
==

If the value returned is ''-->then its still running
If the value returned is '0'-->it has completed sucessfully
and then we can submit the next job
If the value returned is '1'-->It has ended in error.

Answer / gagan

when we submit first job ,submit it by giving jon name .then using rtvjbsts we can find it out wheher job is active ,in jobq or in ouq.
if it is in OUTQ then we can sbmit the second job

1.What is the difference between regular join logical file and non join logical file? 2.what are the nessasary keywords for non join logical file

3 Answers   ANZ,

Which of the following operations does NOT zero the field FLDA defined as 4,0? C MOVE *ZEROS FLDA C Z-ADD *ZEROS FLDA C Z-ADD 0 FLDA C MOVE *ALL'0' FLDA C SUB FLDA FLDA C MOVE '0000' FLDA C CLEAR FLDA C MOVE *BLANKS FLDA

1 Answers  

What is dynslt?

0 Answers  

what is jurnal?what is the use of theis?what is difference between commitment control and jurnaling?

2 Answers  

How to trap errors in CL?

1 Answers  

I have to execute 12000 CL Commands one by one.. So, I have created a file called COMMAND. This file has only 1 field called STRING. This file had 12000 records, and all these records are CL Commands (ex: CALL PGM(PGM1)), etc) I have written a CL which will read all the record and do sbmjob.. But it is not working... Plz help me to exexute all these 12000 commands..

2 Answers   ISE,

can I copy content of Physican file in some source Member of type TXT? Thanx..

1 Answers  

i have one physical file which is having two logical files. logical a have unique keyword and logical b doesnt have a unique keyword. can i give duplicate values while updating through physical file. if no why?

4 Answers   IBM,

Explain The Keywords Edtcde & Edtwrd?

0 Answers   IBM,

what are the important factors in error message subfile ?

0 Answers   IBM,

what is the command to know how many lf are related to a pf?

1 Answers   IBM,

What is array in as400? What are the types of array?

0 Answers