Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
RDW - Clarification Required

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Bhuvanakp

New User


Joined: 29 Aug 2007
Posts: 19
Location: Chennai

PostPosted: Fri Sep 19, 2008 2:06 pm    Post subject: RDW - Clarification Required
Reply with quote

Hi,

My input file is FBA & based on the below FileAid condition the records
are filtered & copied as VBA Output file.

FileAid condition:

$$DD01 COPY RDW=3,IF=(COND)

I need to replace the same with Sort Card. Please guide me.
Back to top
View user's profile Send private message

Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2285
Location: @my desk

PostPosted: Fri Sep 19, 2008 2:17 pm    Post subject:
Reply with quote

Hello,

What is the criteria for filtering records? Post a few sample records and input/output LRECL.

Thanks,
Arun
Back to top
View user's profile Send private message
Bhuvanakp

New User


Joined: 29 Aug 2007
Posts: 19
Location: Chennai

PostPosted: Fri Sep 19, 2008 2:38 pm    Post subject: Re: RDW - Clarification Required
Reply with quote

Hi,

The criteria is:

$$DD01 COPY RDW=3,IF=(40,EQ,C'OOBOSZYK-THO003539')

Input: RECFM=FBA/LRECL - 1145

Output: RECFM=VBA/LRECL - 1145
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Sep 19, 2008 2:40 pm    Post subject:
Reply with quote

I think it may be easier if you put your question like

I have a FBA file which I want to copy to a VBA file on certain conditions.

The conditions are

And show an example of the input data too
Back to top
View user's profile Send private message
Bhuvanakp

New User


Joined: 29 Aug 2007
Posts: 19
Location: Chennai

PostPosted: Fri Sep 19, 2008 2:48 pm    Post subject:
Reply with quote

Hi,

Ya, the concept that you have famed is 100% right. Thanks.

I have a FBA file which I want to copy to a VBA file on the below
conditions.

$$DD01 COPY RDW=3,IF=(40,EQ,C'OOBOSZYK-THO003539')

Sample Input Data:


----+----1----+----2----+----3----+----4----+----5----+----6----+---
***************************** Top of Data **************************
1PROXYTEL41387510 STD1* Í 41387510OOBOSZYK-THO003539019341833
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Fri Sep 19, 2008 2:54 pm    Post subject:
Reply with quote

And have you read the documentation of your sort product to look at OMIT INCLUDE parameters.

I think not. Do you know which sort product you use at your shop ?
Back to top
View user's profile Send private message
hchinnam

New User


Joined: 18 Oct 2006
Posts: 73

PostPosted: Fri Sep 19, 2008 2:59 pm    Post subject:
Reply with quote

I am bit confused, I think RDW will be used if your input is VB, not your output.

In either case read about sort FTOV and VTOF features. You might also need to read about SKIPREC and STOPAFT
Back to top
View user's profile Send private message
Aaru

Senior Member


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

PostPosted: Fri Sep 19, 2008 3:04 pm    Post subject: Reply to: RDW - Clarification Required
Reply with quote

Bhuvana,

Code:
$$DD01 COPY RDW=3,IF=(40,EQ,C'OOBOSZYK-THO003539')


The actual meaning of this condition is

Quote:
This will lists all records of this variable-length dataset that contain the string OOBOSZYK-THO003539 in the 40th byte of the data (not including the 4-byte system RDW).


But your post says your input is FBA. Is that correct?
Back to top
View user's profile Send private message
Bhuvanakp

New User


Joined: 29 Aug 2007
Posts: 19
Location: Chennai

PostPosted: Fri Sep 19, 2008 3:15 pm    Post subject:
Reply with quote

Hi,


I have checked the input files. It is FBA only..
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2285
Location: @my desk

PostPosted: Fri Sep 19, 2008 3:43 pm    Post subject:
Reply with quote

Bhuvana,

As pointed out earlier your input file should be VB for using the control card provided by you. File-aid will simply skip the statement if you try this on a fixed length file.

I just tried with a sample FBA file and got the below error. I think you are missing something on the requirement.
Code:
DD01     DSN=XXXX.YYYY.ZZZ OPENED AS PS,             
             RECFM=FBA,LRECL=80,BLKSIZE=27920,VOL=TSO001
$$DD01 LIST RDW=3,IF=(1,EQ,A)                           
RDW OPTION ALLOWED FOR VARIABLE FILES ONLY             
.....SKIPPING TO NEXT $$DD CARD 

Thanks,
Arun
Back to top
View user's profile Send private message
Bhuvanakp

New User


Joined: 29 Aug 2007
Posts: 19
Location: Chennai

PostPosted: Fri Sep 19, 2008 4:24 pm    Post subject:
Reply with quote

Hi Arun,

Thanks icon_smile.gif

The input file count stood upto 5. I again checked those files 4 files remained FBA only. One file remained as a GDG Tape Entry. That too created as FBA File only.

The below is the FileAid Step's output file confirming as VBA.


Code:
//STEP01.DD010   DD  DISP=SHR,                                         
//         DD DSN=XXXXX     
//         DISP=(NEW,CATLG,DELETE),                                   
//         DCB=(MBB.MODEL,LRECL=1145,BLKSIZE=0,RECFM=VBA,BUFNO=10)     
Back to top
View user's profile Send private message
Arun Raj

Moderator


Joined: 17 Oct 2006
Posts: 2285
Location: @my desk

PostPosted: Fri Sep 19, 2008 4:34 pm    Post subject:
Reply with quote

Hello,

What do you see inside the File-aid SYSPRINT? Can you post here the messages issued by File-aid on executing the mentioned card?

Thanks,
Arun
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts FTP help required amitc23 All Other Mainframe Topics 3 Thu Apr 28, 2016 12:02 pm
No new posts Why Newcopy is required when we have ... DIXINSH CICS 5 Thu Apr 28, 2016 9:47 am
No new posts Need clarification of VSAM FCT and DF... pkmurali CICS 15 Sun Apr 10, 2016 1:06 am
No new posts Tricky sort logic required pgopi92 DFSORT/ICETOOL 3 Mon Jan 25, 2016 3:29 pm
No new posts Help required on sort kalakuntlavenkat DFSORT/ICETOOL 11 Sun Nov 15, 2015 8:55 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us