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
 

 

Eazytrieve Letter ----unwanted data in output

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
View previous topic :: :: View next topic  
Author Message
phani.mf2011

New User


Joined: 15 Apr 2011
Posts: 17
Location: india

PostPosted: Tue Apr 26, 2011 2:05 pm    Post subject: Eazytrieve Letter ----unwanted data in output
Reply with quote

Hi friends

I am very new to eazytrieve and trying to learn on my own

I have written a program to generate Letter's and here is the code

attachments deleted waiting for a repost of a text cut and paste
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Tue Apr 26, 2011 2:21 pm    Post subject: Reply to: Eazytrieve Letter ----unwanted data in output
Reply with quote

start learning not to post attachments ( not everybody can see/download them)
and ...
above all not to post screenshots, they waste space and like in this case they are even too small to be readable
and makes impossible for the moderators to inline the info provided

what You attached could be easily been posted using a plain text cut and paste
surrounded by the code tags

easier to read, can be cut and pasted if somebody wants to test Your <program>

the attachments have been deleted ( they are unreadable anyway )
Back to top
View user's profile Send private message
phani.mf2011

New User


Joined: 15 Apr 2011
Posts: 17
Location: india

PostPosted: Tue Apr 26, 2011 4:45 pm    Post subject:
Reply with quote

the code
Code:
PARM LINK(EZLETTER R )  +                                               
     DEBUG  (PMAP DMAP XREF LONG)                                       
*                                                                       
*                                                                       
FILE LETT1                                                             
    FIRST-NAME           01   10 A                                     
    LAST-NAME            11   10 A                                     
    ADDR-STREET          21   20 A                                     
    CURR-SALARY          41   06 N 2                                   
    GRADE                47   01 A                                     
*                                                                       
    RAISE-PERCENT W 4 N 2 HEADING ('RAISE' '(PERCENT)')                 
    RAISE-DOLLARS W 6 N 2 HEADING ('RAISE' '(DOLLARS)')                 
    NEW-SALARY    W 6 N 2 HEADING ('PROPOSED' 'SALARY')                 
*                                                                       
*                                                                       
FILE RPT1 PRINTER FB(133 9044)                                         
*                                                                       
JOB INPUT LETT1                                                         
*                                                                       
*                                                                       
  IF GRADE = '1'                                                       
    RAISE-PERCENT = 10.00                                               
  ELSE-IF GRADE = '2'                                                   
    RAISE-PERCENT = 07.00                                               
  ELSE                                                                 
    RAISE-PERCENT = 02.00                                               
  END-IF                                                               
*                                                                       
  RAISE-DOLLARS = RAISE-PERCENT * CURR-SALARY / 100 + 0.005             
  NEW-SALARY = CURR-SALARY + RAISE-DOLLARS                             
*                                                                       
  PRINT EMP-LETTER                                                     
*                                                                       
* PRINT GROSS-PAY-RPT                                                   
*                                                                       
*                                                                       
REPORT EMP-LETTER PRINTER RPT1 LINESIZE 78 -                           
   NOADJUST NOHEADING PAGESIZE 40                                       
  SEQUENCE GRADE                                                       
  LINE 01 'PHANI CORP.' COL 60 SYSDATE                                 
  LINE 02 FIRST-NAME LAST-NAME                                         
  LINE 04 ADDR-STREET                                                   
  LINE 07 'DEAR' FIRST-NAME                                             
  LINE 09 'IT IS WITH GREAT PLEASE THAT PHANI CORP IS'                 
  LINE 10 'PROVIDING YOU  SALARY INCREASE EFFECTIVE  ON'               
  LINE 11 'YOUR  NEXT PAY CHECK.THE INCREASE IN REFLECTS YOUR'         
  LINE 12 'EFFOERT IN MAKING PHANI CORP THE LEADER IN THE FIELD '       
  LINE 13 'FINANCIAL SYSTEM SERVICES . IN YOUR PARTICULAR CASE THE'     
  LINE 14 'INCREASE IS' RAISE-PERCENT '% OF YOUR OLD SALARY'           
  LINE 15 CURR-SALARY '.THIS EQUATES TO ' NEW-SALARY                   
  LINE 16 'THE EXECUTIVE BOARD CONGARTS YOU'                           
  LINE 18 COL 3 'YOUR SINCERLY'                                         
  LINE 19 COL 3 'PHANINDRA K'                                                               

the output
Code:
1PHANI CORP.                                                 4/26/11   
  RAMAKIT      SADINNEI                                                 
 0NO-85 GUNTUR AP                                                       
 -DEAR   RAMAKIT                                                       
 0IT IS WITH GREAT PLEASE THAT PHANI CORP IS                           
  PROVIDING YOU  SALARY INCREASE EFFECTIVE  ON                         
  YOUR  NEXT PAY CHECK.THE INCREASE IN REFLECTS YOUR                   
  EFFOERT IN MAKING PHANI CORP THE LEADER IN THE FIELD                 
  FINANCIAL SYSTEM SERVICES . IN YOUR PARTICULAR CASE THE               
  INCREASE IS   10.00    % OF YOUR OLD SALARY                           
  2,300.00    .THIS EQUATES TO    2,530.00                             
  THE EXECUTIVE BOARD CONGARTS YOU                                     
 0  YOUR SINCERLY                                                       
    PHANINDRA K                                                         
  PHANI CORP.                                                 4/26/11   
  PHANINDRA    KANTHANA                                                 
 0NO-27 BELLANDUR BLR                                                   
 -DEAR   PHANINDRA                                                     
 0IT IS WITH GREAT PLEASE THAT PHANI CORP IS                           
  PROVIDING YOU  SALARY INCREASE EFFECTIVE  ON                         
  YOUR  NEXT PAY CHECK.THE INCREASE IN REFLECTS YOUR                   
  EFFOERT IN MAKING PHANI CORP THE LEADER IN THE FIELD                 
  FINANCIAL SYSTEM SERVICES . IN YOUR PARTICULAR CASE THE               
  INCREASE IS    7.00    % OF YOUR OLD SALARY                           
  2,000.00    .THIS EQUATES TO    2,140.00                             
  THE EXECUTIVE BOARD CONGARTS YOU                                     
 0  YOUR SINCERLY                                                       
    PHANINDRA K                       



Iam not getting why 1 and 0 are coming in output at column 1
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7307

PostPosted: Tue Apr 26, 2011 6:07 pm    Post subject: Reply to: Eazytrieve Letter ----unwanted data in output
Reply with quote

You are getting the print control characters, I think. I've only used Easytrieve under VSE (different JCL), and find it hard to believe that you need to specify the blocking for a printer file. Also, what have you got in your JCL for RPT1 and look up Easytrieve options for print control characters.

Personally, I'd hate to be congarted by anybody, let alone the Executvie Board.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Tue Apr 26, 2011 6:08 pm    Post subject: Reply to: Eazytrieve Letter ----unwanted data in output
Reply with quote

because the output <destination> is a printer <file>
and the IBM architecture defines that a printer must have a carriage contro character in the first position!

Your previous post was edited to provide better readability thru the use of the code tags
Back to top
View user's profile Send private message
phani.mf2011

New User


Joined: 15 Apr 2011
Posts: 17
Location: india

PostPosted: Tue Apr 26, 2011 6:23 pm    Post subject:
Reply with quote

Hi,

Thanks a lot for clarifying my doubt and my one more question is even i code Line01,LINE02,LINE04....without LINE03 still in my output Iam getting
contigious lines in without any spaces in Line03.

Can anyone please help why its so?

Regards
Phani
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10232
Location: italy

PostPosted: Tue Apr 26, 2011 7:00 pm    Post subject: Reply to: Eazytrieve Letter ----unwanted data in output
Reply with quote

the why is clearly explained in the manuals ( quite a few of them repeating the concept over and over )

even if the lines posted contain some misalignments
the first char is still a control char

where ...

Code:
1 ==> skip to channel 1 ( usually at the top of the page )
b ==> blank/space  advance 1 line
0 ==> Advance 2 lines (double spacing)
- ==> Advance 3 lines (triple spacing)
Back to top
View user's profile Send private message
phani.mf2011

New User


Joined: 15 Apr 2011
Posts: 17
Location: india

PostPosted: Tue Apr 26, 2011 7:10 pm    Post subject:
Reply with quote

Hi,

Thanks a lot enrico-sorichetti for your quick response.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7307

PostPosted: Tue Apr 26, 2011 7:12 pm    Post subject:
Reply with quote

So, following on from enrico, when you print, rather than display on the screen, you should get the spacing... if you have the JCL and FILE matching, at which point I'd guess you wouldn't see the control codes anyway.
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 -> CA Products All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Data replication from multiple Db2 ta... kishpra DB2 2 Mon Mar 27, 2017 9:58 pm
No new posts Export flat file data into excel sheet murali.andaluri DFSORT/ICETOOL 2 Mon Mar 20, 2017 5:39 pm
No new posts Append data from two files into a sin... Praveen04 DFSORT/ICETOOL 5 Thu Mar 16, 2017 7:29 pm
No new posts Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm


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