|
View previous topic :: View next topic
|
| Author |
Message |
thanooz
New User
Joined: 28 Jun 2005
Posts: 99
|
|
|
|
My source COBOL programs existed in the library (ex:x.y.z) it is created with record formate FB. While compilation process my source library (x.y.z) is given instead off LOADLIB,Hence it is converted record formate from FB to U and data is replaced with different data.
So we need to retrieve back the source programs with record formate FB. Please let us know,How to we can retrieve ?
Please replay as soon as possible... |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
| Back to top |
|
|
mmwife
Super Moderator
Joined: 30 May 2003
Posts: 1592
|
|
|
|
Hi Thanooz,
Try this:
| Quote: |
***********************************************************************
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.
|
It's similar to the approach in the link Kevin gave you but may be easier to understand. |
|
| Back to top |
|
|
thanooz
New User
Joined: 28 Jun 2005
Posts: 99
|
|
|
|
thank's alot
we solved that problem. |
|
| Back to top |
|
|
|
|
