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
 

 

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

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CA Products
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    Post subject: To remove Appended 0 and 1 in FTPed(txt) Easytrieve report?
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    Post subject:
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    Post subject: Re: To remove Appended 0 and 1 in FTPed(txt) Easytrieve repo
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

Site Director


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

PostPosted: Tue May 08, 2007 9:04 pm    Post subject:
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    Post subject: Re: To remove Appended 0 and 1 in FTPed(txt) Easytrieve repo
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

Site Director


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

PostPosted: Wed May 09, 2007 9:03 pm    Post subject:
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    Post subject: Re: To remove Appended 0 and 1 in FTPed(txt) Easytrieve repo
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

Site Director


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

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

You're welcome icon_smile.gif
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 UNIT=AFF for Easytrieve code gandikk JCL & VSAM 7 Wed Jul 12, 2017 11:42 pm
No new posts Report cost in CA-dispatch Nileshkul CA Products 3 Wed Jun 07, 2017 10:32 pm
No new posts READ A PACKED "NEGATIVE" FI... jdesouza CA Products 3 Tue May 02, 2017 11:43 pm
No new posts Format record to remove Leading zeroes Learncoholic DFSORT/ICETOOL 14 Wed Apr 05, 2017 2:43 pm
No new posts Splitting of single report to seperat... abdulrafi TSO/ISPF 7 Mon Mar 27, 2017 3:59 pm


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