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
 
File aid control card error

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Compuware & Other Tools
View previous topic :: :: View next topic  
Author Message
varalakshmi.G

New User


Joined: 04 Jun 2007
Posts: 55
Location: Hyderabad

PostPosted: Fri Nov 16, 2007 9:46 pm    Post subject: File aid control card error
Reply with quote

hi

//SYSIN DD *
$$DD01 COPY IF=(1,EQ,C'0'),
AND=((2,7,NE,C'MASKING'),
OR=(2,6,NE,C'SORTED'),
OR=(2,6,NE,C'USERID'),
OR=(2,4,NE,C' '))
REPL=(1,C' ')
/*

above control card has an error with file aid utility.this is for replacing the 1st charector with space if the conditions are satisfying.

please correct it na.........
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri Nov 16, 2007 10:17 pm    Post subject: Re: file aid control card
Reply with quote

varalakshmi.G wrote:
hi

//SYSIN DD *
$$DD01 COPY IF=(1,EQ,C'0'),
AND=((2,7,NE,C'MASKING'),
OR=(2,6,NE,C'SORTED'),
OR=(2,6,NE,C'USERID'),
OR=(2,4,NE,C' '))
REPL=(1,C' ')
/*

above control card has an error with file aid utility.this is for replacing the 1st charector with space if the conditions are satisfying.

please correct it na.........

It would be helpful if you would show us the error message, job output, etc. and please use code to maintain the spacing.
Back to top
View user's profile Send private message
cpuhawg

Active User


Joined: 14 Jun 2006
Posts: 331
Location: Jacksonville, FL

PostPosted: Fri Nov 16, 2007 11:13 pm    Post subject: Reply to: file aid control card
Reply with quote

They probably should looks something like:

Code:

//SYSIN DD *
$$DD01 COPY IF=(1,EQ,C'0'),
  AND=(2,7,NE,C'MASKING'),
  AND=(2,6,NE,C'SORTED'),
  AND=(2,6,NE,C'USERID'),
  AND=(2,4,NE,C'    '),
  REPL=(1,C' ')
/*


The logic for NE (not equal to) should be connected with AND, not IF.

If you said position 1 NE C'A' OR position 1 NE C'B', the OR implies that either condition can be TRUE to select a record. If you had a C'B' in position 1, then it is NE (not equal) to C'A' and the record would be selected.

If you said position 1 NE C'A' AND position 1 NE C'B', then if either an C'A' or C'B' is in position 1 of a record, it would not be selected.
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 -> Compuware & Other Tools All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ERROR - NO ESD ENTRIES, EXECUTION IMP... Ashishpanpaliya COBOL Programming 4 Thu Jun 21, 2018 8:57 pm
No new posts To remove spaces from a VB file using... Selvarajars DFSORT/ICETOOL 2 Thu Jun 21, 2018 6:57 pm
No new posts B059 PREMATURE END OF FILE mvmadhuvenkatesh CA Products 5 Tue Jun 19, 2018 10:50 am
No new posts Formating output file Niki DFSORT/ICETOOL 3 Fri Jun 15, 2018 3:27 pm
No new posts Need help on TDQ load from file using... subratarec CICS 4 Wed Jun 13, 2018 11:32 pm

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