Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups 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 OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Add PD field from 2nd file to PD in 1st Sushant Garje DFSORT/ICETOOL 6 Thu Dec 01, 2016 4:32 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us