IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

IDCAMS/REPRO: RC = 12: Solution reqd ...


IBM Mainframe Forums -> JCL & VSAM
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Tue Nov 11, 2008 11:46 pm
Reply with quote

Title edited/corrected

Hi,
I am trying to REPRO a tape file to DASD using IDCAMS. I used the below JCL -
Code:
//M4443ETI JOB (N400),'AMIT-ETI',CLASS=K,                               
//             MSGCLASS=P,COND=(0,LT),                                 
//             REGION=0K,                                               
//             NOTIFY=&SYSUID                                           
//*=====================================================================
//***                                                                   
//TODISK   EXEC PGM=IDCAMS                                             
//***                                                                   
//*=====================================================================
//***                                                                   
//SYSPRINT DD  SYSOUT=*                                                 
//SYSUDUMP DD  SYSOUT=*                                                 
//***                                                                   
//INFILE   DD DSN=SYS3.QPP1D.ARCH.D08119.T105510.F01,                   
//          DISP=SHR,                                                   
//          UNIT=3490,VOLUME=(,RETAIN,,,SER=(444392)),                 
//          LABEL=(727,SL),                                             
//          RECFM=VBA,LRECL=240,BLKSIZE=32760                           
//***                                                                   
//OUTFILE  DD DSN=&&ARCHDISP,                                           
//*        RECFM=VBA,LRECL=240,BLKSIZE=32760                           
//          DISP=(NEW,PASS,DELETE),                                     
//          UNIT=TEMPDA,                                               
//          SPACE=(CYL,(100,5),RLSE),                                   
//          RECFM=VBA,LRECL=240,BLKSIZE=32760                           
//***                                                                   
//SYSIN    DD  *                                                       
   REPRO INFILE(INFILE) OUTFILE(OUTFILE)                               
//***                                                                   
//*=====================================================================

But I am getting a return code of 12. I am attaching the SYSPRINT here -
Code:
IDCAMS  SYSTEM SERVICES                                           TIME: 12:51:27
                                                                               
   REPRO INFILE(INFILE) OUTFILE(OUTFILE)                                       
IDC3300I  ERROR OPENING SYS3.QPP1D.ARCH.D08119.T105510.F01                     
IDC3321I ** OPEN/CLOSE/EOV ABEND EXIT TAKEN                                     
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0                                     
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12                             
                                                                               
IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12             


Any idea why this problem occured? But I used the same JCL to REPRO some other tape files to DASD and they went fine. What's the problem with this JCL? Guys, any idea? I badly need ur suggestions ...
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Nov 12, 2008 12:09 am
Reply with quote

What's the error message(s) in the job output? Having some idea of what the system thinks the error is can be quite useful in resolving the problem, actually.
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Wed Nov 12, 2008 12:17 am
Reply with quote

Robert,
What do you mean by error messages? I already attached the SYSPRINT of TODISK step. However now I am attaching the step description in JESYSMSG -
Code:
IEF373I STEP/TODISK  /START 2008316.1251                                       
IEF374I STEP/TODISK  /STOP  2008316.1308 CPU    0MIN 00.27SEC SRB    0MIN 00.07S
IEF237I 5D54 ALLOCATED TO SYS00001                                             
IEF285I   SYS08316.T130825.RA000.M4443ETI.R0131346     KEPT                     
IEF285I   VOL SER NOS= 1DW005.                                                 
IGD105I SYS08316.T125127.RA000.M4443ETI.ARCHDISP.H01 DELETED,   DDNAME=OUTFILE 
IEF201I M4443ETI TODISK - JOB TERMINATED BECAUSE OF CONDITION CODES             

But all these statements are informative. These informations are not indicating any error!
Wish to hear from u ...
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Nov 12, 2008 12:24 am
Reply with quote

There's usually something in the JES messages about why the dataset cannot be opened. I suspect there's something in your case as I see the message about DDNAME=OUTFILE being deleted, but where's a message about DDNAME=INFILE? And why are you getting a dynamically allocated file SYS00001?
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Wed Nov 12, 2008 12:48 am
Reply with quote

Robert, refer the JES message in details -
Code:

ICH70001I PSCZEXJ  LAST ACCESS AT 12:51:27 ON TUESDAY, NOVEMBER 11, 2008       
IEF236I ALLOC. FOR M4443ETI TODISK                                             
IEF237I JES2 ALLOCATED TO SYSPRINT                                             
IEF237I JES2 ALLOCATED TO SYSUDUMP                                             
IEF237I 05C6 ALLOCATED TO INFILE                                               
IGD101I SMS ALLOCATED TO DDNAME (OUTFILE )                                     
        DSN (SYS08316.T132323.RA000.M4443ETI.ARCHDISP.H01)                     
        STORCLAS (SCWORK01) MGMTCLAS (        ) DATACLAS (        )             
        VOL SER NOS= 1DW001                                                     
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IEC149I 813-04,IFG0195H,M4443ETI,TODISK,INFILE,05C6,444392,SYS3.QPP1D.ARCH.D0811
IEC141I 013-34,IGG0191I,M4443ETI,TODISK,OUTFILE,5D50,1DW001,SYS08316.T132323.RA0
IEF142I M4443ETI TODISK - STEP WAS EXECUTED - COND CODE 0012                   
IEF285I   PSCZEXJ.M4443ETI.JOB31468.D0000102.?         SYSOUT                   
IEF285I   PSCZEXJ.M4443ETI.JOB31468.D0000103.?         SYSOUT                   
IEF285I   SYS3.QPP1D.ARCH.D08119.T105510.F01           KEPT                     
IEF285I   VOL SER NOS= 444392.                                                 
IEF285I   PSCZEXJ.M4443ETI.JOB31468.D0000101.?         SYSIN                   
                                                                               
*-------------------------------------------------------------------------------
*                                                      P E R O T  S Y S T E M S
*                                                       S T E P   R E P O R T   
*-------------------------------------------------------------------------------
*                        CONDITION      STEP      PRIVATE    SCRATCH    I/O CONN
* JOBSTEP     PROCSTEP      CODE      RUN TIME     MOUNTS     MOUNTS       TIME
*                                                                               
* TODISK                   R0012    00:32:28.84         1          0    00:00:12
*-------------------------------------------------------------------------------
*   VOLUME DDNAME     I/O TIME   EXCP COUNT    VOLUME DDNAME     I/O TIME   EXCP
*                                                                               
*-------------------------------------------------------------------------------
                                                                               
IEF373I STEP/TODISK  /START 2008316.1323                                       
IEF373I STEP/TODISK  /START 2008316.1323                                       
IEF374I STEP/TODISK  /STOP  2008316.1355 CPU    0MIN 00.24SEC SRB    0MIN 00.07
IEF237I 5D50 ALLOCATED TO SYS00001                                             
IEF285I   SYS08316.T135552.RA000.M4443ETI.R0131398     KEPT                   
IEF285I   VOL SER NOS= 1DW001.                                                 
IGD105I SYS08316.T132323.RA000.M4443ETI.ARCHDISP.H01 DELETED,   DDNAME=OUTFILE
IEF201I M4443ETI TODISK - JOB TERMINATED BECAUSE OF CONDITION CODES           
                                                                               
*------------------------------------------------------------------------------
*                                                      P E R O T  S Y S T E M S
*                                                        J O B   R E P O R T   
*------------------------------------------------------------------------------
*                        CONDITION      JOB       PRIVATE    SCRATCH    I/O CON
* JOBNAME       DATE        CODE      RUN TIME     MOUNTS     MOUNTS       TIME
*                                                                             
* M4443ETI    11/11/08     R0012    00:32:28.97         1          0    00:00:1
*------------------------------------------------------------------------------
*                                                                             
IEF375I  JOB/M4443ETI/START 2008316.1323                                       
IEF376I  JOB/M4443ETI/STOP  2008316.1355 CPU    0MIN 00.24SEC SRB    0MIN 00.07


Please refer the JES message above? Actually this is the part of our impacted job. This step is creating the problem and that's why I was trying to run that particular step and thats why this particular output file is temporary ...
Got me, Robert?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Nov 12, 2008 1:06 am
Reply with quote

the reaso is under Your eyes ...

IEC149I 813-04,.....

here is link to the messages and codes manual,

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2M781/SPTM010637

there is a mismatch between the dd parms and the tape content
( could also be the wrong file sequence number )
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Wed Nov 12, 2008 1:09 am
Reply with quote

This is a lot more informative. Error messages from the system are very good at telling you what the problem could be.

This message
Code:
IEC149I 813-04,IFG0195H,M4443ETI,TODISK,INFILE,05C6,444392,SYS3.QPP1D.ARCH.D0811
says that the dataset name on the tape label does not match the name in your JCL for INFILE. Can you run a tape map or similar utility to find out the actual tape dataset name?

This message
Code:
IEC141I 013-34,IGG0191I,M4443ETI,TODISK,OUTFILE,5D50,1DW001,SYS08316.T132323.RA0
has a bit longer possible list of causes:
Quote:
34
The system detected one of these conditions:

* The following combination was specified: QSAM, MACRF=GD or PD, and a RECFM value that is not VS, VBS, DS, or DBS.

* An OPEN macro instruction was issued for a data set with BLKSIZE and BUFL equal to 0. The system determined that it had to obtain buffers but was unable to do so.

* RECFM was specified with both the A and M attributes.

* The following combination was specified: QSAM, LRECL=0, and a RECFM value that is not V or VB.

* The following combination was specified: RECFM=V or VB and LRECL greater than the quantity BLKSIZE minus 4.

* The following combination was specified: QSAM and BLKSIZE=0. No nonzero BLKSIZE value was available from any source and the system could not determine one. Coding BLKSIZE=0 in the JCL never has an effect except when overriding a cataloged procedure variable.

* The following combination was specified: RECFM not variable or undefined and LRECL greater than BLKSIZE.

* The following combination was specified: BFTEK=A, RECFM=VBS, and LRECL=0.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Nov 12, 2008 5:45 am
Reply with quote

Hello,

It sounds like the 727 is incorrect . . .

Which tape management system is used on your system? If you talk with your tape storage management people, they can tell you all of the files on this multi-file volume.

DISP=SHR should not be used for tape/cart. . .

You need to fix the problem with INFILE before you concern yourself with OUTFILE.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Wed Nov 12, 2008 10:19 am
Reply with quote

Jain,

If you are still facing problems, Why don't you try using IEBGENER for copying datasets from TAPE to DASD.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Nov 12, 2008 10:24 am
Reply with quote

Hello,

If file #727 on the tape is not the one named in the dsn, it will not matter which utility is used. The abend will still occur.

The first task is to ensure the jcl and the file spacify the same dsn.
Back to top
View user's profile Send private message
Aaru

Senior Member


Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India

PostPosted: Wed Nov 12, 2008 12:16 pm
Reply with quote

Dick,

Quote:
The first task is to ensure the jcl and the file spacify the same dsn.


Very True.

I had posted as I had used ONLY IEBGENER for such requirements. Anyways I should have had a look at the actual issue icon_sad.gif . Sorry for that.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed Nov 12, 2008 8:41 pm
Reply with quote

Hi Aaru,

Quote:
Sorry for that.
Not to worry - the "post police" are watching icon_wink.gif
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Thu Nov 13, 2008 12:04 am
Reply with quote

Thank you Robert and Enrico! It was new to me. Thanks once again ... I learnt a new thing icon_smile.gif
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Nov 13, 2008 12:07 am
Reply with quote

Hello,

Quote:
I learnt a new thing
Good to hear icon_smile.gif

Is the abend resolved and the job successfully run?
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Thu Nov 13, 2008 12:20 am
Reply with quote

Oops! I did not see the last posts in this sections. I was aware of Enrico and Robert's reply only! However, Dick I am trying to confirm what I understood from ur post -
Quote:
It sounds like the 727 is incorrect . . .

Which tape management system is used on your system? If you talk with your tape storage management people, they can tell you all of the files on this multi-file volume.

DISP=SHR should not be used for tape/cart. . .

According to u, I should have to understand whether the INFILE is present in the correct label i.e. 727 in the tape. Am I right? OK! We have received a dump with informtaion of tape files, VOL-SER and labels within a particular date-range. We are trying to FTP those files mentioned in the DISPATCH dump, to windows server. So in the DISPATCH dump, all the information regarding the files, its VOL-SER and label is mentioned.
I do not know which tape-management system is used! Is CA-1 a tape-management system? I do not have any idea ... icon_neutral.gif
Dick I am eager to listen from u ....
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Thu Nov 13, 2008 12:26 am
Reply with quote

By the way, that problem is not still solved and I am trying seach a needle in a dump of garbages ... icon_cry.gif I do not have any idea about this problem ...
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Nov 13, 2008 12:31 am
Reply with quote

Hello,

Quote:
Is CA-1 a tape-management system?
Yes, it is. If you talk with the tape storage management people they should be able to run a "grw" (generalized report writer - comes with CA-1) or an EARL (a better reporting tool [imho] that also comes with CA-1) report that will list all of the files on that volume and which file# each is.

That is probably a good place to start.

How did you come to know that #727 was this particular file?
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Thu Nov 13, 2008 12:45 am
Reply with quote

Yah! I looked into the dump (I mentioned in my earlier post) and it is pretty much confirmed that the label (727) is referring the same tape file. By the way, now we are getting a new error in JES -
Code:
IEF237I JES2 ALLOCATED TO SYSUDUMP                                             
IEF237I 05C4 ALLOCATED TO INFILE                                               
IGD101I SMS ALLOCATED TO DDNAME (OUTFILE )                                     
        DSN (SYS08317.T122359.RA000.M445857H.ARCHDISP.H01)                     
        STORCLAS (SCWORK01) MGMTCLAS (        ) DATACLAS (        )             
        VOL SER NOS= 1DW003                                                     
IEF237I JES2 ALLOCATED TO SYSIN                                                 
IEC030I B37-04,IFG0554A,M445857H,TODISK,OUTFILE,5D52,1DW003,SYS08317.T122359.RA0
IEF142I M445857H TODISK STEP070 - STEP WAS EXECUTED - COND CODE 0012           
IEF285I   CA7STC.M445857H.JOB34827.D0000162.?          SYSOUT                   
IEF285I   CA7STC.M445857H.JOB34827.D0000163.?          SYSOUT                   
IEF285I   SYS3.QPP1D.ARCH.D08118.T112723.F01           KEPT                     
IEF285I   VOL SER NOS= 445857.                                                 
IGD106I SYS08317.T122359.RA000.M445857H.ARCHDISP.H01 PASSED,    DDNAME=OUTFILE 
IEF285I   CA7STC.M445857H.JOB34827.D0000102.?          SYSIN                   

Look now we are getting B37 (I believe, it is space abend). Is it not so?
But we modified our job with a larger space (for both primary and secondary) but with the same result. Dick, some other input?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Nov 13, 2008 12:48 am
Reply with quote

You need to either give the file more space or possibly let it go to multiple volumes if it has used up an entire volume already. SB37 means there's no space left on the volume for a secondary extent.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Nov 13, 2008 12:52 am
Reply with quote

You mentioned a dump in an earlier post -- would that have record counts in it? If so, you can calculate how much space you need and ensure you've allocated enough space on disk for the file.
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Thu Nov 13, 2008 12:57 am
Reply with quote

Robert, I have not seen any field named record counts in the dump. But I have a field name File #. I believe, it is referring the label on a particular VOL-SER. Is it not so? I initially tried with output dataset with space (100,5), the job got abended with the same message as mentioned above. And then I tried with space for output file as (200,50) but still I am getting the same result.
And Robert, as u said in ur last post that we can find out the space required by record counts, what do u mean by that? Can u give little more explanation so that it will be easier for me to grasp...
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Thu Nov 13, 2008 1:13 am
Reply with quote

If you divide block size by (average) record length, you get the average number of records per block. Calculate the number of records per cylinder (records per block * 30 if half-track blocking, records per block * 15 if using > half track blocking), divide number of records in the file by records per cylinder to determine number of cylinders required.

Example: 27998 (half track block size) divided by 240 (LRECL from your earlier JCL) = 116 records (truncate anything after the decimal point) minimum per block, times 2 for full track times 15 for tracks per cylinder gives 3480 records per cylinder (minimum -- could be more if average LRECL is less than 240). If you have 500,000 records in the file, that's going to require 144 cylinders (round up) or less, depending on LRECL. At 32760 block size, the same file would require 246 cylinders.

File number would refer to the sequence number of the file on the tape.

Without the message from the system I'm flying blind here, but IF (and that's a big if) you're getting the full 16 extents on the pack you're using 200 + 15 * 50 = 950 cylinders and running out of space. It's also possible you used all free space on the pack and the system couldn't allocate another extent, so you might not have used all that space. If I thought the first case were true, I'd bump the allocation to (1000,200) assuming there's enough space on a pack. if I thought the second case were true, I'd probably try (500,500) to get a smaller primary but more secondary to increase the odds of getting the primary space allocation. I would also probably try to give it another pack or three to expand to should the first selected pack be very short on space.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Nov 13, 2008 1:14 am
Reply with quote

Hello,

It will probably help if you post the OUTFILE dd statement that is abending.

How did you get around the s813 abend?
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Thu Nov 13, 2008 1:20 am
Reply with quote

please do not cheat icon_biggrin.gif
now You are talking about a different issue because you
changed the input dataset name

anyway I have always advised against small secondary allocations
allocating lets say (200,20) is a nonsenss
it will simply make the allocation 2.5 times the original, with little room for contingencies
if You have to go for secondary allocations make them as big as the primary!

if You have a tape management system You should be abe to query the record/block count
and with a small effort determine the space needed on disk

or run a repro with a dummy output to get the count
Back to top
View user's profile Send private message
jain.eti

New User


Joined: 23 Jan 2007
Posts: 25
Location: delhi

PostPosted: Thu Nov 13, 2008 1:46 am
Reply with quote

Hey Enrico, I am not cheating at all! icon_redface.gif
You hurt me! icon_mad.gif
Hah! I really did not change the input file name. I am running several jobs per day to complete the work mentioned in my last posts. I have got abend (Sorry not abend but CC = 12) in 3 jobs. The last attached JES message shows those of these Job's JES.
On the other hand, I tried to run the REPRO step for each of these 3 jobs seperately and the message I got earlier was of my seperate run (Seperate run includes only one step to run REPRO). The first JES message attached here shows that of this job's JES message.
So got me now, Enrico?
Yop! Robert showed me how to look into job's description in JES in his 2nd or 3rd post I believe. It was new to me. I analyzed that way and found that orginally these 3 jobs were giving B37. So I attached JES message of those jobs because they refer the problem I am facing not the other one!
SOOOOOOOOOOOOOOOOOOO I AM NOT CHEATING .... icon_cry.gif icon_sad.gif icon_evil.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> JCL & VSAM Goto page 1, 2  Next

 


Similar Topics
Topic Forum Replies
No new posts SDSF like solution in EJES (store com... All Other Mainframe Topics 4
No new posts how to keep unpaired records with REPRO. JCL & VSAM 9
No new posts IDCAMS listcat service using cobol JCL & VSAM 1
No new posts A very ingenious mainframe automation... CA Products 1
No new posts Typing the CENT sign ยข on mainframe,... All Other Mainframe Topics 2
Search our Forums:

Back to Top