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

To remove Appended 0 and 1 in FTPed(txt) Easytrieve report?


IBM Mainframe Forums -> CA Products
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Kather Basha

New User


Joined: 18 Apr 2007
Posts: 13
Location: Coimbatore

PostPosted: Tue May 08, 2007 10:08 am
Reply with quote

I have generated a report using Easytrieve, it will look like

FOR THE MONTH OF APRIL

CLAIM AMOUNT PAY HANDLING
NUMBER PAID TYPE OFFICE
125005060200 492.60- 80 125

Then i ftped the report (option 6 ) in the text format.

The ftped file looks like

125005060200 100.00 70 125
1 PAGE 8

FOR THE MONTH OF APRIL
-
CLAIM AMOUNT PAY HANDLING
NUMBER PAID TYPE OFFICE
0125005060200 492.60- 80 125



you can see last row in every page is added with 1 and the first row is appended with 0

May i know how i can avoid this?
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Tue May 08, 2007 10:28 am
Reply with quote

This looks like Carriage Control characters.

Check whether you have creating carriage control chars in the report of your Ezy code.
Back to top
View user's profile Send private message
Kather Basha

New User


Joined: 18 Apr 2007
Posts: 13
Location: Coimbatore

PostPosted: Tue May 08, 2007 11:00 am
Reply with quote

could you please go thru my code

JOB INPUT FILEB
IF CRE-ACCO = '126102'
PRINT RPT1

END-IF
********************************************************
***************************** REPORT GENERATION ********
REPORT RPT1 PRINTER PRINT1 NOADJUST NODATE
SEQUENCE CLAIM-NO TYPE-PAY HANL-OFF
TITLE 1 ' '
TITLE 2 ' FOR THE MONTH OF' WS-MONTH
HEADING CLAIM-NO ('CLAIM' 'NUMBER')
HEADING PAID-AMT ('AMOUNT' 'PAID')
HEADING TYPE-PAY ('PAY' 'TYPE')
HEADING HANL-OFF ('HANDLING' 'OFFICE')
LINE CLAIM-NO PAID-AMT TYPE-PAY HANL-OFF
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Tue May 08, 2007 9:04 pm
Reply with quote

Hello,

Please post your jcl.

You will also want to look at the output dataset before transferring it. How will this file be used when it is received?

What you are seeing is the characters that cause line spacing and "new page". If you create the file without the "carriage control" characters, you may need to do something for the data to be used after the file transfer.
Back to top
View user's profile Send private message
Kather Basha

New User


Joined: 18 Apr 2007
Posts: 13
Location: Coimbatore

PostPosted: Wed May 09, 2007 11:04 am
Reply with quote

Hi

I have given the easytrieve step for your reference

//STEPxx EXEC PGM=EZTPA00
//FILEB DD DSN=V.Cxxxxx.G0049V00,DISP=SHR
//PRINT1 DD DSN=T.output.claims,
// DISP=(,CATLG,DELETE),
// DCB=(LRECL=133,BLKSIZE=0,RECFM=FB),
// SPACE=(CYL,(5,10),RLSE),
// UNIT=SYSDA
//REPORT1 DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=0,RECFM=FB)
//EZTVFM1 DD UNIT=WORK,SPACE=(CYL,(60,9))
//SYSPRINT DD SYSOUT=*
//SYSSNAP DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD
FILE FILEB
RECA 1 297 A
CLAIM-NO 2 12 A
PAID-AMT 148 5 P 2 MASK ('Z,ZZZ,ZZZ.99-')
TYPE-PAY 156 2 A
HANL-OFF 205 2 P MASK ('ZZZ')
CRE-ACCO 225 6 A
************************************************************
FILE PRINT1 PRINTER
************************************************************
JOB INPUT FILEB
IF CRE-ACCO = '123456'
PRINT RPT1
END-IF
************************************************
***************************** REPORT GENERATION
REPORT RPT1 PRINTER PRINT1 NOADJUST NODATE
SEQUENCE CLAIM-NO TYPE-PAY HANL-OFF
HEADING CLAIM-NO ('CLAIM' 'NUMBER')
HEADING PAID-AMT ('AMOUNT' 'PAID')
HEADING TYPE-PAY ('PAY' 'TYPE')
HEADING HANL-OFF ('HANDLING' 'OFFICE')
LINE CLAIM-NO PAID-AMT TYPE-PAY HANL-OFF
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Wed May 09, 2007 9:03 pm
Reply with quote

Hello,

From a prior reply:
Quote:
How will this file be used when it is received?


Is some process on the target system going to use this as input or is only going to be printed as a report?

If it is going to be a report, i'd suggest routing it to a printer rather than using ftp. If it is to be used as a data file, i'd create a file to ftp rather than a report.

Please re-post a bit of your report output - what was initially posted looks like it was not copied in as one set of content. I believe there should be a space in front of the lines that do not have the 0/1. If every line has an extra leading character, and you need to use the report format as input to something on the target system, you can run a step to get rid of the "carriage-control" character.
Back to top
View user's profile Send private message
Kather Basha

New User


Joined: 18 Apr 2007
Posts: 13
Location: Coimbatore

PostPosted: Thu May 10, 2007 9:50 am
Reply with quote

Thanks for all

As per your suggetion i will route the report to printer.

You are right dick scherrer there is space in front of the lines that do not have the 0/1


0125004679300 4,991.26 70 125
125004724200 1,657.00- 00 125
125004724500 320.17- 10 125
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix

PostPosted: Thu May 10, 2007 6:59 pm
Reply with quote

You're welcome icon_smile.gif
Back to top
View user's profile Send private message
rbtrolinger

New User


Joined: 06 Mar 2007
Posts: 1
Location: DHR - State of Alabama, 64 North Union Street, Montgomery, AL 36130

PostPosted: Fri Apr 26, 2024 12:48 am
Reply with quote

...or add a NOPAGE after the NODATE. It will inhibit the printer control character.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8698
Location: Dubuque, Iowa, USA

PostPosted: Fri Apr 26, 2024 4:39 am
Reply with quote

rbtrolinger wrote:
...or add a NOPAGE after the NODATE. It will inhibit the printer control character.

Just short of 17 years later ...
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 -> CA Products

 


Similar Topics
Topic Forum Replies
No new posts Sortjoin and Search for a String and ... DFSORT/ICETOOL 1
No new posts Remove leading zeroes SYNCSORT 4
No new posts Need help on formatting a report DFSORT/ICETOOL 14
No new posts Creating Report using SORT DFSORT/ICETOOL 7
No new posts Ca7 long running jobs report All Other Mainframe Topics 1
Search our Forums:

Back to Top