Posted: Mon Aug 07, 2006 8:00 am Post subject: Replace a String based on multiple conditions
All,
My requirement is:
I have a file of recl 140 in FB format
I have to check the Columns 1 and 5 and if the columns has the value ':' and 'X' respectively and 20,21 column contains the value 'ST', then I have to replace the 20,21 with 'UR'
Both Input and output file should be same. I should have not a different file as an Output.
I have create a REXX exec and executed for the above requirment. But the client requires this to be performed thru JCL.
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Mon Aug 07, 2006 11:45 am Post subject:
Seenu,
shekar123's job is unnecessarily complicated. It only takes one pass to do this with DFSORT and you only need the field to be overlaid in OVERLAY (that's the point of OVERLAY). Here's the correct DFSORT job to do what you want to do:
_________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Mon Aug 07, 2006 3:44 pm Post subject:
Oh, I missed that. I would have used an ICETOOL step for that case. Still, the OVERLAY using all fields was unncessary. And your one pass FILEAID job kind of misled me too as it didn't have the input and output the same either. _________________ Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
The DFSORT was working fine when I executed on the Test Region. I have included the Sortwk1-SortWK4 steps in the JCL.
But when we executed the same on the Production, the job abended with the 0061 error code. The following is the sysout from Prod
Code:
IEA995I SYMPTOM DUMP OUTPUT 352
USER COMPLETION CODE=0061
TIME=22.50.27 SEQ=07423 CPU=0000 ASID=0088
PSW AT TIME OF ERROR 078D1000 85C27280 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 05C2727A - B2580BA0 0A0D9180 DAB247E0
AR/GR 0: 80BE82CA/00000001 1: 00000000/8000003D
2: 00000000/00008F30 3: 00000000/00020CD0
4: 00000000/05C2EEBA 5: 00000000/00020CD0
6: 00000000/00027AA0 7: 00000000/00988D70
8: 00000000/05C2BBC8 9: 00000000/05C2AE58
A: 00000000/85C27280 B: 00000000/85C27028
C: 00000000/05BCE928 D: 00000000/00007000
E: 00000000/00000080 F: 01000002/00000010
END OF SYMPTOM DUMP
The file had around 600,000 records and when I used the same file on Test region, the sort is working fine. Cant able to figure out why it is abending in Prod region alone.
Can anybody throw some light on why it is abending?
Joined: 02 Dec 2002 Posts: 1618 Topics: 31 Location: San Jose
Posted: Fri Aug 11, 2006 10:39 am Post subject:
The U0061 is associated with message ICE061A - an I/O error. The JES messages and DFSORT messages will tell you more about the reason for the I/O error. Most likely, you're using different volumes on the Test and Production system and the error is associated with a volume on the Production system. Here's a link to the information for the ICE061A message:
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
