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

In RPG How to read a records from a file without using read opcodes?

0 Answers  

why we use binding directory and service pgm

4 Answers   TCS,

What is Sub-System?

1 Answers  

load all subfile logic in sqlrpgle and when updating particular record it must be lock form other jobs (not a file)?

1 Answers   Wipro,

is it there an easy way to determine if an html section is available to issue a wrtsection upon?

0 Answers   IBM,

which of the following operations does not zero the field flda defined as 4,0?

0 Answers   IBM,

what is the purpose of overrides?

1 Answers   IBM,

can you explain the difference between spacea,spaceb,skipa and skipb. I'm new to learning about as400 and printer files. can any one give me an example using source code showing the difference that occurs between using these 4 keywords. A-Physical file PF004 source UNIQUE R RR STUNAM 10 ROLLNU 5 0 MARKS 3 0 SEX 6 K ROLLNU 4 records present in PF004 are STUNAM ROLLNU MARKS SEX KAVYA 12,344 55 FEMALE MADHAVAN 14,579 60 MALE RAMYA 14,785 70 FEMALE KRISHNAN 14,988 72 MALE B-Printer File PRINT1 source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEB(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEB(1) A 20'END OF REPORT' C-RPG/400 Program PRTTPG source FPF004 I F E DISK FPRINT1 O E PRINTER C WRITE HEADER C READ PF004 60 C *IN60 DOWEQ *OFF C WRITE DETAIL C READ PF004 60 C ENDDO C WRITE FOOTER C SETON LR D-spooled file result set Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 STUNAM ROLLNU MARKS SEX KAVYA 12344 055 FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys I have changed from SPACEB to SPACEA now in my printer file source E-Changed PRINT1 Source A R HEADER A 10 3'STUNAM' A 10 20'ROLLNU' A 10 30'MARKS' A 10 40'SEX' A R DETAIL A SPACEA(1) A STUNAM 10 3 A ROLLNU 5 0 20 A MARKS 3 0 30 A SEX 6 40 A R FOOTER A SPACEA(1) A 20'END OF REPORT' F-Spooled file Result Set after keyword change Display Spooled File File . . . . . : PRINT1 Page/Line 1/10 Control . . . . . Columns 1 - 130 Find . . . . . . *...+....1....+....2....+....3....+....4....+....5....+.... 6....+....7....+....8....+....9....+....0....+....1....+.... 2....+....3 KAVYAM 12344U 055KS FEMALE MADHAVAN 14579 060 MALE RAMYA 14785 070 FEMALE KRISHNAN 14988 072 MALE END OF REPORT Bottom F3=Exit F12=Cancel F19=Left F20=Right F24=More keys Overprinting not displayed.

0 Answers   Tieto,

Hi.can any body give me the code for this quesiton please.Because i dont have to try to enter the code in to the AS/400 server.Please can anybody give the answer for this question with complete code? A smple RPLE pgm which accepts the starting number and ending number as parameter.It then has to count all the odd numbers b/w the accepted range of numbers and display the results/ Ex:if the input parameters are 11 and 30 the result should be 10(11,13,15,17,19,21,23,25,27,29) Please explain and give me the complete code?

2 Answers   Bally Technologies,

List and explain the different type of data structures?

1 Answers  

268 How many parameters can be defined in a RPG program. ?

1 Answers  

Define each of the following operation codes a, b, c, d, e

1 Answers