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

Kather Basha · Posted: Tue May 08, 2007 10:08 am

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?

Devzee · Posted: Tue May 08, 2007 10:28 am

This looks like Carriage Control characters.

Check whether you have creating carriage control chars in the report of your Ezy code.

Kather Basha · Posted: Tue May 08, 2007 11:00 am

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

dick scherrer · Posted: Tue May 08, 2007 9:04 pm

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.

Kather Basha · Posted: Wed May 09, 2007 11:04 am

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

dick scherrer · Posted: Wed May 09, 2007 9:03 pm

Hello,

From a prior reply:

Kather Basha · Posted: Thu May 10, 2007 9:50 am

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

dick scherrer · Posted: Thu May 10, 2007 6:59 pm

You're welcome

rbtrolinger · Posted: Fri Apr 26, 2024 12:48 am

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

Robert Sample · Posted: Fri Apr 26, 2024 4:39 am