MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

printing numbers in eztrieve

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming
View previous topic :: View next topic  
Author Message
digitalnirmal
Beginner


Joined: 06 Dec 2005
Posts: 21
Topics: 10
PostPosted: Fri Apr 28, 2006 1:09 am    Post subject: printing numbers in eztrieve Reply with quote
I have values in a file in the format S9(8 ).99 and S9(8 ).99 comp-3
I want to print these values in another file in the format 99999999.99(-)

I want to do this using Ezetrieve
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
PostPosted: Fri Apr 28, 2006 7:10 am    Post subject: Reply with quote
digitalnirmal,

Assuming that your comp-3 fields start at pos 1 and 10 for 6 bytes then the following JCL will give you the desired results.

Code:

//FILEIN   DD *                                   
                     
//DETRPT   DD SYSOUT=*                             
//SYSIN    DD *                                   
                                                   
 FILE FILEIN                                       
      PD-FEILD1 001 06 P 2   MASK ('999999999.99-')
      PD-FEILD2 010 06 P 2   MASK ('999999999.99-')
                                                   
 FILE DETRPT  PRINTER                             
                                                   
 JOB INPUT FILEIN                                 
                                                   
 PRINT DETRPT                                     
                                                   
 REPORT DETRPT LINESIZE 60 PRINTER DETRPT         
    CONTROL  FINAL NOPRINT                         
    LINE  1 PD-FEILD1 PD-FEILD2                   
/*   


Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Application Programming All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group