Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Can anyone help me explain my doubt for empty file?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
bryan-yang

New User


Joined: 16 Apr 2006
Posts: 16
Location: BeiJing, China

PostPosted: Mon Nov 20, 2006 10:50 am    Post subject: Can anyone help me explain my doubt for empty file?
Reply with quote

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?
icon_lol.gif
Back to top
View user's profile Send private message

UmeySan

Active Member


Joined: 22 Aug 2006
Posts: 755
Location: Germany

PostPosted: Mon Nov 20, 2006 3:55 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
bryan-yang

New User


Joined: 16 Apr 2006
Posts: 16
Location: BeiJing, China

PostPosted: Tue Nov 21, 2006 7:16 am    Post subject:
Reply with quote

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.


http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M733/3.140?SHELF=&DT=20031013161027&CASE=
Back to top
View user's profile Send private message
vijikesavan

Active User


Joined: 04 Oct 2006
Posts: 118
Location: NJ, USA

PostPosted: Wed Nov 22, 2006 3:19 am    Post subject: Re: Can anyone help me explain my doubt for empty file?
Reply with quote

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
Back to top
View user's profile Send private message
bryan-yang

New User


Joined: 16 Apr 2006
Posts: 16
Location: BeiJing, China

PostPosted: Wed Nov 22, 2006 7:40 am    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
bryan-yang

New User


Joined: 16 Apr 2006
Posts: 16
Location: BeiJing, China

PostPosted: Wed Nov 22, 2006 8:45 am    Post subject:
Reply with quote

Sorry, type error for IDCAMS (not IDCTTS)
Back to top
View user's profile Send private message
naveensrimf

New User


Joined: 04 Oct 2005
Posts: 31

PostPosted: Sat Nov 25, 2006 7:53 pm    Post subject:
Reply with quote

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
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changing of LRECL of a file abdulrafi DFSORT/ICETOOL 2 Fri Mar 24, 2017 3:25 pm
No new posts splitting a file abdulrafi DFSORT/ICETOOL 4 Fri Mar 24, 2017 11:51 am
No new posts Receive a file using PCOMM macro Harald.v.K IBM Tools 0 Thu Mar 23, 2017 6:50 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Formatting VB File Learncoholic DFSORT/ICETOOL 3 Mon Mar 20, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us