Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Want to change some part of the header , plse see the detail
Goto page Previous  1, 2
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL
Author Message
arcvns

Senior Member


Joined: 17 Oct 2006
Posts: 503
Location: Chennai, India
PostPosted: Fri Jul 18, 2008 11:50 am    Post subject:
Reply with quote
Hello maxsubrat,

I guess,your requirement is to convert the PD field to a 6 digit displayable field with leading zeroes. Can you give this a try.

Code:
  SORT FIELDS=COPY                         
  OUTREC IFTHEN=(WHEN=(1,6,CH,NE,C'DIVHDR'),
         BUILD=(1,6,7,4,PD,M11,LENGTH=6))   


Thanks,
Arun
Back to top
View user's profile Send private message
References
PostPosted: Fri Jul 18, 2008 11:50 am    Post subject: Re: Reply with quote
maxsubrat

New User


Joined: 27 Feb 2008
Posts: 8
Location: india
PostPosted: Fri Jul 18, 2008 1:31 pm    Post subject: Reply to: Want to change some part of the header , plse see
Reply with quote
sorry, it's not working..


try some different ..

Thanks
Back to top
View user's profile Send private message
arcvns

Senior Member


Joined: 17 Oct 2006
Posts: 503
Location: Chennai, India
PostPosted: Fri Jul 18, 2008 2:52 pm    Post subject:
Reply with quote
Hello maxsubrat,

I posted the card after testing and I got the below results. Is nt that you want?

Code:
DIVHDR046B780203 0000582510807072006281080701
001060053053                                 
001178053053     



Thanks,
Arun
Back to top
View user's profile Send private message
dick scherrer

Global Moderator


Joined: 23 Nov 2006
Posts: 7921
Location: 221 B Baker St
PostPosted: Fri Jul 18, 2008 8:47 pm    Post subject:
Reply with quote
Hello,

Quote:
but in our report the left 0 is suppressing, like 53053....
Then you need to correct your report. . .

Quote:
When we receive the file we are getting the LOCNBR as 53053 but actually it is 053053.
so the left zero is supressing
Not from what you posted. You may be causing the leading zero to suppress, but it is in the data you posted.

How are you creating your "report"? You mention that is not as you want, but you haven't provided anyting for us to work with concerning how you are creating the report.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL All times are GMT + 6 HoursGoto page Previous  1, 2
Page 2 of 2