How to test thru JCL if any file(PS or VSAM) is empty or
not. I do not want to use any COBOL prog or Ezytrieve and
want to do using utility.

Answer Posted / ekluba

With proper Syntax answer #5 is correct:

//SYSPRINT DD SYSOUT=*
//DD1 DD DSN=???.EMPTY,DISP=SHR
//SYSIN DD *
PRINT INFILE(DD1) COUNT(1)
/*

Is This Answer Correct ?    9 Yes 2 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

Explain how can the disposition of sysout datasets be set for an entire jobstream?

839


Hello Guys, I have 1+ Year Experience in MAINFRAME TESTING. After 1 Week I have an Interview With a Company on Mainframe Testing. Please Could You Guys Please Suggest me What Sections Should I prepare ?? ___Tell Me the Topic Or Appropriate Site & Links. ?? ---------------Thank You

2500


Brief description of inline procedure of jcl.

908


Explain about LMFREE�free data set from its association with data ID

1285


which utility is used a dummy utility?

1071


When you specify multiple datasets in a JOBLIB or STEPLIB, what factor determines the order?

1133


What do you understand by the terms: joblib and steplib?

839


What is the purpose of dd dummy statement?

1162


Explain about LMQUERY�give a dialog information about a data set

1098


What is the significance of addrspc parameter in exec statement?

941


what JCL Procedures?

948


What parameters can be used to limit the number of records written to a sysout dataset?

990


how you can direct the data to spool using SYSOUT option?

1152


What is Cataloged Procedures?

893


WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99 VALUE 123.45. PROCEDURE DIVISION. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. compiler : IGYGR1080-S A "VALUE" clause literal was not compatible with the data category o subject data item. The "VALUE" clause was discarded. WORKING-STORAGE SECTION. 77 W-A PIC 9(3)V99 VALUE 23.75. 77 W-B PIC ZZ9V99. PROCEDURE DIVISION. MOVE 123.45 TO W-B. MOVE W-A TO W-B. DISPLAY W-B. STOP RUN. 2375

1251