IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

reformating records


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
hikaps14

Active User


Joined: 02 Sep 2005
Posts: 189
Location: Noida

PostPosted: Thu Jun 15, 2006 2:43 pm
Reply with quote

hi,

i m trying to format records .

using this .

//SYSIN DD *
$$FILEM DSC INPUT=DDIN,
$$FILEM OUTPUT=DDOUT,
$$FILEM PROC=*
IF FLD(1,2) = '00'
THEN DO
OUTREC = CHANGE(OUTREC,FLD(1,2),'44',1,1,2)
END
this is working fine


the main issue is that

i want to chng it to
IF FLD(1,2) not = '00'

it giving error.

does any body hav ane idea.
Thanks ,
-Kapil .
Back to top
View user's profile Send private message
hariavinash

New User


Joined: 04 Jan 2006
Posts: 64

PostPosted: Wed Jun 21, 2006 8:32 pm
Reply with quote

wat is the error message. mind posting it?
Back to top
View user's profile Send private message
hikaps14

Active User


Joined: 02 Sep 2005
Posts: 189
Location: Noida

PostPosted: Thu Jun 22, 2006 8:36 pm
Reply with quote

Hi ,

actually its not exactly error in job .

wat i mean to say i m not getting the required output .

the input is being copied exactly as it is in out put . (IF FLD(1,2) not = '00')


in other case it is changing values successfully .( IF FLD(1,2) = '00')

hav u tried this on ur side .

r u geting same outputs or diff .?

Thanks ,
-Kapil.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts Compare 2 files and retrive records f... DFSORT/ICETOOL 3
No new posts Compare 2 files(F1 & F2) and writ... JCL & VSAM 8
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Join multiple records using splice DFSORT/ICETOOL 5
Search our Forums:

Back to Top