Is there a way to check for an empty file in JCL other than
using IEBCOMPR and the command PRINT COUNT(1)?
Answer Posted / saikat
By using a simple selcopy we can determine whether the file
is empty or not. IF file is empty then we can set the
return code of the step in the selcopy code.
| Is This Answer Correct ? | 2 Yes | 0 No |
Post New Answer View All Answers
List in order the hierarchical levels of jcl?
In sms datasets, what is the function of the dd avgrec keyword?
What are the parameter we cannot use in procedure? How many instream we can write in single jcl?
When The Define Jcl Is Not Available, How Can You Get Information About A Vsam File's Organisation ?
what is the purpose of coding notify parameter in job statement?
How to submit a jcl from cics?
what are the types of abends that occur on job failure? And explain the possible causes of these
can any one plzzzzzz tell the jcl code for creating ps using idcams
How can the submitting users racf authority be overridden in a job stream?
what is DD statement is used in JCL?
Mention the types of job control statements?
in order to execute step2 a job after a return code of 8 in step1, what condition you will code in step2?
Explain how can values be passed from the job stream to an executable program?
I have a cobol db2 program(PGM A) where other program (PGM B) will call this program and passes some 50 fields data to PGM A. PGM A has some layout in which it receives the data from PGM B. And this layout has been copied in the linkage section pf PGM A. After getting the data, PGM A writes the data in a flat file in the same layout which it receives from PGM B. PGM B is a simple COBOL pgm. Please provide a JCL to run these programs.
//S10 EXEC PGM=ICETOOL //TOOLMSG DD SYSOUT=* //DFSMSG DD SYSOUT=* //CON DD DSN=VAR.INPUT1,DISP=SHR // DD DSN=VAR.INPUT2,DISP=SHR //OUT DD DSN=VAR.OUTPUT,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,5)),UNIT=SYSDA //TOOLIN DD * * Splice the needed data from the two VB files together SPLICE FROM(CON) TO(OUT) ON(5,5,CH) WITHALL - WITH(12,5) WITH(22,20) VLENMAX /*