MVSFORUMS.com

AKRISHNA · Posted: Mon Aug 11, 2003 2:01 am Post subject: Copying PDS using IEBCOPY

Hi Guys,

I had a PDS which contained JCLs. 80 byte length, 800 blksize and recfm FB. Now, someone changed the format ( Shocked

god knows how!) so that it now shows recfm as 'U', recsize as 800 and blksize also as '800'. So, all the JCLs have rearranged sideways! I have to scroll sideways to see the entire JCL... Crying or Very sad

I tried using IEBCOPY to copy this PDS to a new one with 80 byte rec length and 800 blksize.... but the job terminates with RC 08 saying that the RECFM are not matching!!

How can I have my JCLs back in the proper format?? Rolling Eyes

Thanks and Regards,
AK

kolusu · Posted: Mon Aug 11, 2003 5:53 am Post subject:

Ak,

Try copying the pds using IEBGENER to a sequential file and then copy it back to PDS using IEBCOPY

Hope this helps...

cheers

kolusu

ofer71 · Posted: Mon Aug 11, 2003 7:18 am Post subject:

AKRISHNA -

This situation occured when you specify this PDS as an output of LINK process (usually as SYSLMOD).

Somewhere in CBT tape I saw a "rescue" program to restore the PDS to its original state.

O.
________
Lincoln Custom

AKRISHNA · Posted: Mon Aug 11, 2003 7:13 pm Post subject:

Thanks guys... Let me try these out. Smile

AKRISHNA · Posted: Mon Aug 11, 2003 8:47 pm Post subject:

Hi Kolusu,

IEBGENER cannot be used to create a SEQ file out of a PDS, can it? The manual doesnt say this anywhere. But I still tried giving the PDS name on SYSUT1 and the SEQ file on SYSUT2, but it gave me an error while reading SYSUT1!! Crying or Very sad

Regds,
AK

taltyman · Posted: Tue Aug 12, 2003 7:50 am Post subject:

As Kolusu mentioned someone has probably stuffed a load module in the pds. Go to the cbt tape link provided by ofer71 and get PDS85. It has a fixpds subcommand that will let you change dcb characteristics. You'll also need to look and see if you can find the offending member and delete it.

xriram · Beginner Joined: 03 Feb 2003 Posts: 1 Topics: 0

I know what happened. Someone by mistake put a load module in your PDS,corrupting Firstly save your PDS into a new 800 800 FB. The record length of each member is now 800 (80 * 10).

One way out is to write a small cobol program. Have your input read into a PIC X(800). Redefine this as a 80 occuring 10 times. Now write each INPUT (INDEX) to a 80 800 output.

Hope this helps

AKRISHNA · Posted: Tue Aug 12, 2003 7:08 pm Post subject:

Thanks again guys....
I found a load module of a program in my JCLLIB!! Shocked

What is this PDS85? is it a program or some tool that needs to be installed?
I am just a humble developer, so it might not be possible for me to install and run any tool... Crying or Very sad

Thanks anyways,
AK.

slade · Posted: Tue Aug 12, 2003 7:57 pm Post subject:

Hi AKRISHNA,

Try this. This happened to me a long time ago, but forgot how I fixed it. Found this on the net. Now I remember: Smile

********************************************************************
JCL to recover source lib changed to load lib
********************************************************************
//FIXRECFM JOB (ACCT),CLASS=A,...
//*
//JS010 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//SYSUT1 DD *
FIX THIS PDS
//SYSUT2 DD DSN=your.broken.pds(@@FIX),DISP=SHR,DCB=RECFM=FB

After the program/JOB is run, the PDS should have its record format set back to FB. You can then delete the object program from the source library using ISPF 3.1 or other means (if you tried to access the program you would now get an I/O error since the RECFM is no longer set to U). You can also delete the @@FIX member since it isn't needed.

slade · Posted: Tue Aug 12, 2003 11:08 pm Post subject:

Hi AKRISHNA,

I should have mentioned this in the previous post. To be on the safe side code the DCB as DCB=(LRECL=80,BLKSIZE=800,RECFM=FB).

Regards, Jack.

AKRISHNA · Posted: Wed Aug 13, 2003 2:02 am Post subject:

Hi Slade,

The JCL worked! Thanx a lot!! Laughing

YIPPEE!!

AK

slade · Posted: Wed Aug 13, 2003 5:45 pm Post subject:

Hi AKRISHNA,

Glad it worked. The 1st time that happens to you, it feels like the world is comming to an end. It usually happens to the development area's sourcelib. "We just lost our sourcelib!!!"

The good news is the fix is trivial.

Regards, Jack.