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
 

 

Binary Comparison in Fileaid

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

New User


Joined: 10 Mar 2008
Posts: 2
Location: banglore

PostPosted: Mon Mar 10, 2008 5:55 pm    Post subject: Binary Comparison in Fileaid
Reply with quote

Hi,

I need to compare a S9(04) COMP field (value is 700 of datatype S9(04) COMP)in Fileaid control card.

The control card which I am using is

$$DD01 USER IF=(400,EQ,B'10101111'),
MOVE=(1,11,13),
MOVE=(12,4,507),
MOVE=(16,2,140),
MOVE=(18,20,145),
MOVE=(38,2,507),
MOVE=(40,2,509),
MOVE=(42,2,512),
MOVE=(44,2,515),
MOVE=(46,2,517),
MOVE=(48,2,519),
MOVE=(50,2,522),
MOVE=(52,2,525),
MOVE=(54,2,540),
MOVE=(56,2,542),
MOVE=(58,2,545),
MOVE=(60,2,548),
WRITE=DD01O

It is not working.

Can anybody plz tell me how the control card should look like ...

The exact requirement is to extract fields from a dataset based on a particular filed which starts at position 400 in i/p file and of the type
S9(04) COMP.
Back to top
View user's profile Send private message

cpuhawg

Active User


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

PostPosted: Mon Mar 10, 2008 8:10 pm    Post subject: Reply to: Binary Comparison in Fileaid
Reply with quote

We can't see your error, so it is difficult to tell.

Make sure your MOVE and WRITE parameters that are a continuation of the 1st $$DD01 statement do not start in position 1. Position 1 must be blank on a continuation and the card must start somewhere between position 2 and position 25.

Your initial control card statement is looking for a B'AF' in position 400. Make sure this also is correct or you won't select any records.
Back to top
View user's profile Send private message
Smrithi

New User


Joined: 10 Mar 2008
Posts: 2
Location: banglore

PostPosted: Tue Mar 11, 2008 10:39 am    Post subject:
Reply with quote

Hi,

The control card is given below. I believe that the position of MOVE and WRITE are correct.


$$DD01 USER IF=(400,EQ,B'10101111'),
MOVE=(1,11,13),
MOVE=(12,4,507),
MOVE=(16,2,140),
MOVE=(18,20,145),
MOVE=(38,2,507),
MOVE=(40,2,509),
MOVE=(42,2,512),
MOVE=(44,2,515),
MOVE=(46,2,517),
MOVE=(48,2,519),
MOVE=(50,2,522),
MOVE=(52,2,525),
MOVE=(54,2,540),
MOVE=(56,2,542),
MOVE=(58,2,545),
MOVE=(60,2,548),
WRITE=DD01O



It is searching for 700 ( which is of type S9(04) COMP) at the postion 400 of the input file.
Can anybody plz let me know how to compare a SINGED COMP field?
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 Check Binary Values for symbols gandikk CA Products 3 Tue Mar 21, 2017 5:11 am
No new posts resume binary ftp in z/os meykh2014 All Other Mainframe Topics 6 Sun Jan 22, 2017 10:01 am
No new posts CICS NEW SIT PARAMETERS CICS BEHAVIOR... Kyle Carroll CICS 0 Fri Nov 04, 2016 11:55 pm
No new posts Casting a Binary Number to Numeric in... Bob Steinkraus Java & MQSeries 6 Tue Aug 09, 2016 5:58 pm
No new posts Using Field names in FILEAID Batch CO... Atul Banke Compuware & Other Tools 2 Wed Jun 29, 2016 9:54 pm


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