|
View previous topic :: View next topic
|
| Author |
Message |
phani.mf2011
New User
Joined: 15 Apr 2011
Posts: 17
Location: india
|
|
|
|
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 |
|
 |
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
phani.mf2011
New User
Joined: 15 Apr 2011
Posts: 17
Location: india
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
phani.mf2011
New User
Joined: 15 Apr 2011
Posts: 17
Location: india
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007
Posts: 10873
Location: italy
|
|
|
|
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 |
|
|
phani.mf2011
New User
Joined: 15 Apr 2011
Posts: 17
Location: india
|
|
|
|
Hi,
Thanks a lot enrico-sorichetti for your quick response. |
|
| Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| 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 |
|
|
|
|
