Can anyone help me explain my doubt for empty file?

bryan-yang · Posted: Mon Nov 20, 2006 10:50 am

The problem occurred in our production Env. We have a VSAM file, the file only kept a record in the past. That day, user removed the record from the file through online transaction.

Batch will perform the following steps for the empty file:
1. Repro its online file(PRD.XXX.PAID.OL.CLUS) to batch file(PRD.XXX.PAID.CLUS) before batch begin
2. Repro its batch file(PRD.XXX.PAID.CLUS) to online file(PRD.XXX.PAID.OL.CLUS) after batch end

Step 1 performed successfully, but step 2 performed abend.

I feel doubt why step 1 performed sucessfully when input file is empty?

UmeySan · Posted: Mon Nov 20, 2006 3:55 pm

Hi !

For me, i can't think of an error. So the error-message and code would be helpful. Also does the Batch change something with that file ?

Regards, UmeySan

bryan-yang · Posted: Tue Nov 21, 2006 7:16 am

The batch didn't change any something with the file.

Here are the error-message and code. --> IEC161I (return code 072)
You can open the link for detail message.

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M733/3.140?SHELF=&DT=20031013161027&CASE=

vijikesavan · Posted: Wed Nov 22, 2006 3:19 am

Hi,
I tried myself creating a empty VSAM file copied into Flat file. Then copied back to VSAM. I used IEBGENER.
It worked perfectly fine.
Can you send me the exact JCL? (Both of them) lemme see if I can help.

Thanks,
Viji

bryan-yang · Posted: Wed Nov 22, 2006 7:40 am

I posted both JCLs and results here, please help me find abend root cause. Thanks.

Step 1 Job:
//PLTTDRP0 JOB (LTT),'CPY ONL FILES TO BAT',MSGLEVEL=(1,1),
// MSGCLASS=J,
// CLASS=P,NOTIFY=TAP
//*
//* (DELETE/DEFINE VSAM FILES)
//*
//TTIDRS10 EXEC PGM=IDCTTS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PRD.LTT.TTNAW.CLUS CLUSTER PURGE
DEFINE CLUSTER -
(NTTE(PRD.LTT.TTNAW.CLUS) -
MODEL(PRD.LTT.KSDS.VSAM.MODEL) -
KEYS(49 2) -
RECSZ(1500 7891) -
RECORDS(500 500) -
FREESPACE(20 10)) -
DATA -
(NTTE(PRD.LTT.TTNAW.CLUS.DATA) -
CISZ(7968)) -
INDEX -
(NTTE(PRD.LTT.TTNAW.CLUS.INDEX) -
CISZ(1024))
/*
//TTIDRS15 EXEC PGM=IDCTTS
//SYSPRINT DD SYSOUT=*
//TTNAWI DD DSN=PRD.LTT.TTNAW.OL.CLUS,DISP=SHR
//TTNAWO DD DSN=PRD.LTT.TTNAW.CLUS,DISP=OLD
//SYSIN DD *
REPRO INFILE(TTNAWI) OUTFILE(TTNAWO)
/*

Step 2 JCL:
//PLTT085D JOB (LTT),'LOAD ONLINE FILES',MSGLEVEL=(1,1),
// MSGCLASS=J,
// CLASS=P
//TTIDLD05 EXEC PGM=IDCTTS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE PRD.LTT.TTNAW.OL.CLUS CLUSTER PURGE
IF MAXCC = 8 THEN SET MAXCC = 0
DEFINE CLUSTER -
(NTTE(PRD.LTT.TTNAW.OL.CLUS) -
MODEL(PRD.LTT.KSDS.OL.VSAM.MODEL) -
KEYS(49 2) -
RECSZ(1500 7891) -
RECORDS(500 500) -
FREESPACE(50 20)) -
DATA -
(NTTE(PRD.LTT.TTNAW.OL.CLUS.DATA) -
CISZ(7968)) -
INDEX -
(NTTE(PRD.LTT.TTNAW.OL.CLUS.INDEX) -
CISZ(1024))
/*
//TTIDLD10 EXEC PGM=IDCTTS
//SYSPRINT DD SYSOUT=*
//TTNAWI DD DSN=PRD.LTT.TTNAW.CLUS,DISP=SHR
//TTNAWO DD DSN=PRD.LTT.TTNAW.OL.CLUS,DISP=OLD
//SYSIN DD *
REPRO INFILE(TTNAWI) OUTFILE(TTNAWO)
/*

Result:
First job:
REPRO INFILE(TTNAWI) OUTFILE(TTNAWO)
IDCTTS SYSTEM SERVICES
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC0001I FUNCTION COMPLETED, HIGHEST CONDITION CODE WAS 0

Second Job:
REPRO INFILE(TTNAWI) OUTFILE(TTNAWO)
IDC3300I ERROR OPENING PRD.LTT.TTNAW.CLUS
IDC3351I ** VSAM OPEN RETURN CODE IS 160
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

IEC161I 072-053,PLTT085D,TTIDLD10,TTNTTI,,,PRD.LTT.TTNTT.CLUS,
IEC161I PRD.LTT.TTNTT.CLUS.DATA,UCAT.PPRD.SPRD37
IEC161I 072-053,PLTT085D,TTIDLD10,TTNAWI,,,PRD.LTT.TTNAW.CLUS,
IEC161I PRD.LTT.TTNAW.CLUS.DATA,UCAT.PPRD.SPRD37

bryan-yang · Posted: Wed Nov 22, 2006 8:45 am

Sorry, type error for IDCAMS (not IDCTTS)

naveensrimf · New User Joined: 04 Oct 2005 Posts: 34

if the VSAM is empty. Normally it gives 160 error.(160 menas Empty Data set)
we can repro the empty file by using IDCAMS it gives MAX CC=12. Because EMPTY Data set not Copied into another file.

Thanks,
Naveen