Batch Backout error

aprocon · New User Joined: 26 Oct 2010 Posts: 41 Location: chennai

Hi,

I am trying to backout the changes made by an DLI update job. I am using Batch backout utility,
//STEP1 EXEC PGM=DFSRRC00,PARM='DLI,DFSBBO00,SABPGA4A,20'

however my job fails with the following message.

IEC710I 2330,APL018,TSTA295B,STEP1,IMSLOGR ANOTHER VOLUME EXPECTED
IEC026I 637-BC,IFG0553P,TSTA295B,STEP1,IMSLOGR,2330,APL018, 408
TSGBS.IMSLOG.SABPGA4A.S03

On reading manuals for IEC026I I found that the log dataset, created by the update job, was spanned across multiple volumes. I think this is the cause for the error.

My question is how do I go from here? Will copying the log dataset to a single volume dataset using IEBGENER will resolve the issue or could you recommend a better solution for this?

Thanks in advance for your suggestions.

Nic Clouston · Posted: Sat Feb 01, 2014 11:20 pm

The reason the log file spans several volumes is because it will not fit on one volume. Is the file on dasd or tape? is it catalogued or not catalogued? If not catalogued then you could - temporarily - catalog it but why not just specify all the volumes, in the correct sequence, in your JCL?

Anuj Dhawan · Posted: Sun Feb 02, 2014 2:50 pm

IEC710I is an informational message only. So are you looking at correct error message? OTOH, if your installation wants to treat IEC710I as more than informational then a change to the automated message routines may be warranted as described here: www-01.ibm.com/support/docview.wss?uid=isg1OA17887

aprocon · New User Joined: 26 Oct 2010 Posts: 41 Location: chennai

Hello Nic

The log dataset is in DASD. I had specified all the volumes in correct order, but it still fails with the same error.

//IMSLOGR DD DISP=SHR,DSN=TSGBS.IMSLOG.SABPGA4A.S03,
// VOL=(,,,30,SER=(APL021,APL036,APL004,APL015,APL007,APL012,
// APL013,APL066,APL051,APL101,APL069,APL029,APL048,
// APL063,APL002,APL041,APL018,APL005))

TSGBS.IMSLOG.SABPGA4A.S03

More: +
Number of volumes allocated: 18

APL021 APL036 APL004 APL015 APL007
APL012 APL013 APL066 APL051 APL101
APL069 APL029 APL048 APL063 APL002
APL041 APL018 APL005

Error:

IEC026I 637-BC,IFG0553P,TSTA295B,STEP1,IMSLOGR,2330,APL018, 561
TSGBS.IMSLOG.SABPGA4A.S03

Hello Anuj

I am more concerned about the IEC026I and my job fails with S637 abend.

Nic Clouston · Posted: Mon Feb 03, 2014 6:49 pm

Why are you specifying 30 volumes but only supplying 18 volsers?

nevilh · Active User Joined: 01 Sep 2006 Posts: 262

How upto date is your IMS software . If it is over a year old you might be suffering from the problem described by APAR PM53732

aprocon · New User Joined: 26 Oct 2010 Posts: 41 Location: chennai

Hi Nic

My log dataset is spanned across 18 volumes and I changed to 18, it still fails with the same error. We are at Version 12 and I believe we upgraded last year.

Thanks for your time and suggestions. I appreciate it.

//STEP1 EXEC PGM=DFSRRC00,PARM='DLI,DFSBBO00,SABPGA4A,20'
//IMS DD DSN=TSGB.IMSVS.DBDLIB,DISP=SHR
// DD DSN=TSGB.IMSVS.PSBLIB,DISP=SHR
//IMSACB DD DSN=TSGB.IMSVS.ACBLIB,DISP=SHR
//IMSLOGR DD DISP=SHR,DSN=TSGBS.IMSLOG.SABPGA4A.S03,
// VOL=(,,,18,SER=(APL021,APL036,APL004,APL015,APL007,APL012,
// APL013,APL066,APL051,APL101,APL069,APL029,APL048,
// APL063,APL002,APL041,APL018,APL005))
//IEFRDER DD DSN=$.TSGBS.TSTSCN.IMSBACK.S&RUN..X3,
// DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760,BUFNO=20),
// UNIT=SYSWK,SPACE=(CYL,(100,100),RLSE)
//DFSVSAMP DD DSN=PPGB.PRDDBA.BUFFERS(DFSVSAMP),DISP=SHR

nevilh · Active User Joined: 01 Sep 2006 Posts: 262

Do you have PTF UK76056 or UK77715 installed ? If not that could be your problem.

aprocon · New User Joined: 26 Oct 2010 Posts: 41 Location: chennai

I am not sure if these patches were applied.
Thanks for the suggestion. I am opening a case with my vendor will keep you posted.

aprocon · New User Joined: 26 Oct 2010 Posts: 41 Location: chennai

Hello,

Vendor also suggested to apply PTF UK76056. However we applied short term fix by copying the log dataset to single extent TAPE and backed out from that.

Thanks all for your time.