MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Continuation in File-Aid

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105
PostPosted: Sat Sep 20, 2008 5:16 am    Post subject: Continuation in File-Aid Reply with quote
Hi,

I want to use COPY IF condition on 20 strings of a dataset using File-Aid. Is my below $$DD01 correct?

Code:

//SYSIN   DD *
$$DD01 COPY IF=(6,EQ,C'A1111,B1111,C1111,D1111,E1111,F1111        *
                       G1111,H1111,I1111,J1111,K1111,L1111')
/*


But this fails ! Would you please tell me whats wrong here?

Thanks.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
expat
Intermediate


Joined: 01 Mar 2007
Posts: 475
Topics: 9
Location: Welsh Wales
PostPosted: Sat Sep 20, 2008 5:32 am    Post subject: Reply with quote
How do you think that we can tell you anything at all if you do not post the error messages and codes.

We are not psycic bonk

What does it say in the manual about the codes and messages issued ? What does it say in the manual for line continuations ?
_________________
If it's true that we are here to help others,
then what exactly are the others here for ?
Back to top
View user's profile Send private message
ranga_subham
Intermediate


Joined: 31 Jan 2006
Posts: 255
Topics: 72
PostPosted: Sat Sep 20, 2008 9:30 am    Post subject: !!!! Reply with quote
job ended with MAXCC=8 below was shown in sysout:

Quote:

$$DD01 COPY IF=(6,EQ,C'A1111,B1111,C1111,D1111,E1111,F1111,
1...5...10...15...20...25...30...35...40...45...50...55...60...65
DELIMETERS DO NOT MATCH IN THE, IF, CHECK DATA STARTING IN COLUMN 65
.....SKIPPING TO NEXT $$DD CARD


I haven't found anything relevant in manual.........

Thanks.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard
Back to top
View user's profile Send private message
ranga_subham
Intermediate


Joined: 31 Jan 2006
Posts: 255
Topics: 72
PostPosted: Sat Sep 20, 2008 9:36 am    Post subject: Reply with quote
MF_User, I saw your mail regarding this in my mail box and tried it too but in vain. I would like to suggest the below SORT to get the same.

Code:

//SYSIN    DD *                                                         
  SORT FIELDS=COPY                                                     
  INCLUDE COND=(6,5,SS,EQ,C'A1111,B1111,C1111,D1111,E1111,F1111,       *
               G1111,H1111,I1111,J1111,K1111,L1111')                   
/*                       


Let me know if you are able to achieve it through this...

Thanks.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Sat Sep 20, 2008 10:27 am    Post subject: Reply with quote
That would NOT be the correct syntax for DFSORT unless you want to INCLUDE records with blanks in 6-11 as well as with the other values. The correct syntax would be:

Code:

  INCLUDE COND=(6,5,SS,EQ,C'A1111,B1111,C1111,D1111,E1111,F1111,G1111,H*
 1111,I1111,J1111,K1111,L1111')                                         


For continuation of a literal (C'...'), you need to run it up to column 71, put an * in column 72 and then continue it on the next line. Coding blanks in the literal as in Ranga's example will make the blanks part of the literal.

I don't know FileAid syntax, but it may be that the problem there is something similar.
_________________
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
Back to top
View user's profile Send private message Send e-mail Visit poster's website
ranga_subham
Intermediate


Joined: 31 Jan 2006
Posts: 255
Topics: 72
PostPosted: Sat Sep 20, 2008 10:33 am    Post subject: Reply with quote
Frank,

Wow.......that is a great piece of information. I did know that.

Thank you very much.
_________________
Ranga
*****
None of us is as smart as all of us - Ken Blanchard
Back to top
View user's profile Send private message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105
PostPosted: Sat Sep 20, 2008 8:55 pm    Post subject: Thx. Reply with quote
Thanks to Frank and others. Very Happy
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Sun Sep 21, 2008 10:48 am    Post subject: Reply with quote
Quote:
that is a great piece of information. I did know that.


The complete syntax rules for the various ways of continuing DFSORT control statements are documented in "z/OS DFSORT Application Programming Guide":

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/3.3.1?SHELF=&DT=20060615185603&CASE=
_________________
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
Back to top
View user's profile Send private message Send e-mail Visit poster's website
tcurrier
Intermediate


Joined: 10 Feb 2006
Posts: 188
Topics: 68
PostPosted: Mon Oct 27, 2008 10:48 pm    Post subject: Reply with quote
That is an interesting FILEAID problem, though.... The only way I could figure out how to accomplish what you were trying to do is as follows:


Code:
//SYSIN DD *
$$DD01 COPY IF=(6,EQ,C'A1111,B1111,C1111,D1111,E1111,F1111'),
          ORIF=(6,EQ,C'G1111,H1111,I1111,J1111,K1111,L1111')
/*
Back to top
View user's profile Send private message
mf_user
Intermediate


Joined: 01 Jun 2003
Posts: 372
Topics: 105
PostPosted: Wed Oct 29, 2008 12:52 pm    Post subject: Reply with quote
Hi, tcurrier.

Thanks for the help. Very Happy
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
==
Back to top
View user's profile Send private message Send e-mail
Dibakar
Advanced


Joined: 02 Dec 2002
Posts: 700
Topics: 63
Location: USA
PostPosted: Wed Oct 29, 2008 5:51 pm    Post subject: Reply with quote
I have not tested but tcurrier's idea should work for sort too -

Code:
//SYSIN    DD *                                                         
  SORT FIELDS=COPY                                                     
  INCLUDE COND=(6,5,SS,EQ,C'A1111,B1111,C1111,D1111,E1111,F1111',OR,
                6,5,SS,EQ,C'G1111,H1111,I1111,J1111,K1111,L1111')                   
/*


Diba

note: edited to change 'not but tested ...' to 'not tested but ...'

Last edited by Dibakar on Wed Oct 29, 2008 6:22 pm; edited 1 time in total
Back to top
View user's profile Send private message Send e-mail
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Wed Oct 29, 2008 6:10 pm    Post subject: Reply with quote
Yes, that will work too.
_________________
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
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
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


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group