FW: Stripping off CR codes

Glenn Baxter Glenn@baxterit.com.au
Wed, 16 Jul 2003 10:37:33 +1000


This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.

------_=_NextPart_000_01C34B32.724E2DC0
Content-Type: text/plain

Hi, 
The CR are a function of the file systems requirement to create records,
normally associated with an ascii transfer.
I have attached below the results of a binary transfer {reflection} of a
portable subfile. 
You will see that each "record" is not delimited by a CR as per normal
ascii, but by size {of the component fields}.
In this case ID_Store @ 4 and Store_Name @ 30.
Quiz will generate fixed length records by default to page width when
reporting or of element sizes to a subfile.
The binary transfer simplly transfers what it sees as data not creating
records at the remote end.
The Binary Ftp transfer suggestion would also work I guess.
The portable aspect of the subfile removes the requirement to "set page
width" as you 
would need to when reporting.
The key is really the binary transfer!
Good luck.
Sincerely,
Glenn Baxter
Baxter IT Solutions
==============================
15 Flora Grove Ivanhoe Victoria Australia 3079
==============================
telephone: +61-3-9499-8687
mobile: 0412-826-503
fax: +61-3-9499-8344
e-mail: glenn@baxterit.com.au
 
This e-mail message (and attachments) may contain information that is
confidential to Baxter IT Solutions. If you are not the intended recipient
you cannot use, distribute or copy the message or attachments. In such a
case, please notify the sender by return e-mail immediately and erase all
copies of the message and attachments. Opinions, conclusions and other
information in this message and attachments that do not relate to the
official business of Baxter IT Solutions are neither given nor endorsed by
it.


-----Original Message-----
From: Peter Bateman [mailto:shediac92@hotmail.com] 
Sent: Wednesday, 16 July 2003 5:42 am
To: aarnone@grey.com; powerh-l@lists.swau.edu
Subject: Re: FW: Stripping off CR codes


hi:

I would hex dump the file with FCOPY.
I don't think Quiz in general tags the output lines on MPE/iX with a 
carriage return.
Slave printing and perhaps writing to the terminal might generate a carriage

return.
I think maybe you should look at how you are getting the data to SAP.
Perhaps a binary FTP transfer instead of ascii.

Regards,
Peter Bateman


>From: "Arnone, Anthony" <aarnone@grey.com>
>To: "'Powerhouse List (E-mail)'" <powerh-l@lists.swau.edu>
>Subject: FW: Stripping off CR codes
>Date: Tue, 15 Jul 2003 12:53:38 -0400
>
>I tried to create a subfile, and a subfile with format 0 but when I 
>transfered both files and open them in a hexEditor it still contains 
>the CR codes. Does anyone know of a tool outside of Powerhouse that can 
>strip off the CR codes or something in quiz that will suppress the 
>codes.
>
>Anthony
>
> >  -----Original Message-----
> > From: 	Arnone, Anthony
> > Sent:	Monday, July 14, 2003 4:17 PM
> > To:	Powerhouse List (E-mail)
> > Subject:	Stripping off CR codes
> >
> > I am creating a file using the disc option in quiz that needs to be 
> > uploaded to an SAP system. The problem is that the SAP system is
>rejecting
> > the file because of the carriage return codes at the end of each 
> > line.
>Is
> > there a way that I can strip these off either in Quiz or with some 
> > other tool. I am running ver 8.19 on MPE/iX. Below is the code that 
> > I am
>using:
> >
> > DEF T-DELIM CHA*1 = "|"
> > DEF N-INV-D CHA*8 = ASC(INVOICE-DATE,8)[7:2] + &
> >     ASC(INVOICE-DATE,8)[5:2] + ASC(INVOICE-DATE,8)[1:4]
> > DEF N-TOT-AMT CHA*12 = &
> >     PACK(ASC(TOT-INV-AMT/100) + "." + ASC(TOT-INV-AMT,12)[11:2]) DEF 
> > N-LINE-AMT CHA*12 = &
> >     PACK(ASC(LINE-ITEM-AMT/100) + "." + ASC(LINE-ITEM-AMT,12)[11:2])
> >
> > DEF HFILE CHA*132 = PACK(TRU(HTYPE) + T-DELIM + TRU(N-INV-D)          &
> >  + T-DELIM + TRU(LEGAL-ENTITY) + T-DELIM + "USD" + T-DELIM + T-DELIM  &
> >  + "20517562" + T-DELIM + T-DELIM + TRU(INVOICE-NUMBER) + T-DELIM     &
> >  + TRU(HTEXT) + T-DELIM + TRU(N-TOT-AMT) + T-DELIM                    &
> >  + TRU(PYMT-TYPE) + T-DELIM + TRU(ASC(TOT-LINE-ITEMS)))
> > DEF DFILE CHA*132 = PACK(TRU(DTYPE) + T-DELIM                         &
> >  + TRU(ASC(LINE-NUMBER)) + T-DELIM + TRU(ACCT-NUMBER) + T-DELIM       &
> >  + TRU(DTEXT) + T-DELIM + T-DELIM + TRU(N-LINE-AMT) + T-DELIM         &
> >  + "1Z" + T-DELIM + T-DELIM + T-DELIM + TRU(INTER-ORD-NUM)            &
> >  + T-DELIM + TRU(PO-NUMBER) + T-DELIM + TRU(ASC(PO-LINE-ITEM)))
> >
> > HEA AT INVOICE-NUMBER TAB 1 HFILE
> > REP TAB 1 DFILE
> >
> > SET NOHEAD
> > SET NOFORMFEED
> > SET PAG WID 240
> > SET PAG LEN 1
> > SET REP DEV DISC NAME BILLING
> > SET REP LIM 10000
> > GO
> >
> > R/S
> > Anthony Arnone
> > Programmer/Analyst
> > Grey Global Group
> > (212) 886-7812
> > aarnone@grey.com
> >
> >
>= = = = = = = = = = = = = = = = = = = = = = = = = = = = Mailing list: 
>powerh-l@lists.swau.edu
>Subscribe: "subscribe" in message body to 
>powerh-l-request@lists.swau.edu
>Unsubscribe: "unsubscribe <password>" in message body to 
>powerh-l-request@lists.swau.edu
>http://lists.swau.edu/mailman/listinfo/powerh-l
>This list is closed, thus to post to the list you must be a subscriber.

_________________________________________________________________
Protect your PC - get McAfee.com VirusScan Online  
http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963

= = = = = = = = = = = = = = = = = = = = = = = = = = = =
Mailing list: powerh-l@lists.swau.edu
Subscribe: "subscribe" in message body to powerh-l-request@lists.swau.edu
Unsubscribe: "unsubscribe <password>" in message body to
powerh-l-request@lists.swau.edu
http://lists.swau.edu/mailman/listinfo/powerh-l
This list is closed, thus to post to the list you must be a subscriber.


------_=_NextPart_000_01C34B32.724E2DC0
Content-Type: application/octet-stream;
	name="Glenn Baxter.vcf"
Content-Disposition: attachment;
	filename="Glenn Baxter.vcf"

BEGIN:VCARD
VERSION:2.1
N:Baxter;Glenn
FN:Glenn Baxter
TEL;WORK;VOICE:+61 (3) 9499 8687
TEL;HOME;VOICE:+61 (3) 9499 8344
TEL;CELL;VOICE:+61 0412 826 503
TEL;WORK;FAX:+61 (3) 9499 8344
ADR;WORK:;;15 Flora Grove;Ivanhoe;Victoria;3079;Australia
LABEL;WORK;ENCODING=QUOTED-PRINTABLE:15 Flora Grove=0D=0AIvanhoe, Victoria 3079=0D=0AAustralia
URL:
URL:http://www.baxterit.com.au
EMAIL;PREF;INTERNET:glenn@baxterit.com.au
REV:20020925T232333Z
END:VCARD

------_=_NextPart_000_01C34B32.724E2DC0
Content-Type: text/plain;
	name="ssfpq.txt"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
	filename="ssfpq.txt"

450 Mildura                       830 Bathurst                      840 =
Taringa                       850 Virginia                      860 =
Burleigh                      870 Runaway Bay                   880 St. =
Marys                     890 Dubbo                         900 Erina   =
                      910 Griffith                      920 Parramatta  =
                  930 Fyshwick                      200 Frankston       =
              430 Geelong                       210 Glen Waverley       =
          220 Greensborough                 940 Elizabeth               =
      230 Highpoint City                600 Hoppers Crossing            =
  250 Keysborough                   950 Aspley: To Virginia, Jan 1999 =
620 Malvern                       290 Melbourne                     420 =
Mentone                       300 Mornington                    951 =
Bundaberg                     330 Preston                       640 =
Ringwood                      390 Springvale                    480 =
Sunbury                       370 Sunshine                      952 =
Caboolture                    110 Ballarat                      670 =
Queanbeyan                    680 Belconnen                     690 =
Phillip                       700 Tuggeranong                   490 =
Warrnambool                   240 Horsham                       120 =
Bendigo                       953 Cairns                        460 =
Echuca                        380 Swan Hill                     360 =
Shepparton                    350 Seymour                       440 =
Albury                        954 Gladstone                     340 =
Sale                          310 Traralgon                     570 =
Bairnsdale                    400 Warragul                      410 =
Wonthaggi                     280 Leongatha                     470 =
Launceston                    650 Auburn                        520 =
Chatswood                     610 Hobart                        540 =
Mona Vale                     630 Deniliquin                    999 =
Joined with No Home Store     270 Korumburra                    955 =
Gympie                        550 Seven Hills                   956 =
Hervey Bay                    530 Emerton                       510 =
Avalon                        971 Capalaba                      130 =
Bentleigh (Moved to 988)      140 Chadstone                     590 =
Cranbourne                    500 Croydon                       160 =
Dandenong                     150 Doncaster                     170 =
East Doncaster                660 Eltham                        580 =
Fawkner                       190 Forest Hill                   320 =
Northland                     958 Ipswich                       560 =
Wagga Wagga                   100 Altona                        710 =
Melton                        720 Bankstown                     730 =
Hurstville                    740 Devonport                     959 =
McKay                         760 Minto                         960 =
Maryborough                   260 Knox City                     780 =
Maroochydore                  790 Bundall                       800 =
Logan City                    810 Ferntree Gully                820 =
Green Valley                  770 Mt. Gambier                   750 =
Kingsmeadows                  961 Minyama (Moved to 972)        962 Mt. =
Isa                       963 Nambour                       964 Stones =
Corner                 
------_=_NextPart_000_01C34B32.724E2DC0--