Re: [U2] FOLD can mutilate {Unclassified}
Norman Morgan wrote: Hollerith. Punch that in your 12-row! I always preferred the big (96-column) cards on IBM System/3 machines. They just fit in a shirt pocket and were great for making notes on the back of. However, the 80-column cards make GREAT bookmarks (especially for paperbacks). I still have a box of them around in the basement somewhere Kim Colwell --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate {Unclassified}
And UNIVAC had a 90 column binary coded card, it was not Hollerith
coded.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Wednesday, May 31, 2006 8:04 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Ding, Ding, Ding, Ding. We have a winner.
- Original Message -
From: Derek M. Falkner [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Wednesday, May 31, 2006 12:39 AM
Subject: RE: [U2] FOLD can mutilate {Unclassified}
We used to use the Hollerith code. That was after we changed from
7-track
paper tape - I was quite good at making corrections to that.
Derek Falkner
Kingston, Ontario, Canada
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: May 30, 2006 11:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question:
What's the name of the pattern (language) used for the traditional 80
column
IBM punch cards.
My 2 cents.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
Ding, Ding, Ding, Ding. We have a winner.
- Original Message -
From: Derek M. Falkner [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Wednesday, May 31, 2006 12:39 AM
Subject: RE: [U2] FOLD can mutilate {Unclassified}
We used to use the Hollerith code. That was after we changed from 7-track
paper tape - I was quite good at making corrections to that.
Derek Falkner
Kingston, Ontario, Canada
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: May 30, 2006 11:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question:
What's the name of the pattern (language) used for the traditional 80
column
IBM punch cards.
My 2 cents.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate {Unclassified}
Hollerith
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Tuesday, May 30, 2006 8:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question:
What's the name of the pattern (language) used for the traditional 80
column
IBM punch cards.
My 2 cents.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate {Unclassified}
Hollerith. Punch that in your 12-row! I always preferred the big
(96-column) cards on IBM System/3 machines. They just fit in a shirt
pocket and were great for making notes on the back of.
===
Norman Morgan [EMAIL PROTECTED] http://www.brake.com
===
Assassination is the extreme form of censorship.
===
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: Tuesday, May 30, 2006 10:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question:
What's the name of the pattern (language) used for the
traditional 80 column IBM punch cards.
My 2 cents.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
What part of this thread is closed are you having trouble understanding?
Larry Hiscock
Moderator
Mark Johnson wrote:
Ding, Ding, Ding, Ding. We have a winner.
- Original Message -
From: Derek M. Falkner [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Wednesday, May 31, 2006 12:39 AM
Subject: RE: [U2] FOLD can mutilate {Unclassified}
We used to use the Hollerith code. That was after we changed from 7-track
paper tape - I was quite good at making corrections to that.
Derek Falkner
Kingston, Ontario, Canada
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: May 30, 2006 11:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question:
What's the name of the pattern (language) used for the traditional 80
column
IBM punch cards.
My 2 cents.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate
Many of those problems were fixed when card readers went to a more elaborate belt feed, as they were 're' flattened prior to the read station. The same technique was tried in early belt-fed weapons, to the chagrin of the dear departed testers. They're gonna throw us out of this list... On 5/28/06, Ray Wurlod [EMAIL PROTECTED] wrote: What became of bend and spindle? (A question for the older students.) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
This discussion does belong on the u2-community list, not here :-D Larry Hiscock Moderator -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of john reid Sent: Tuesday, May 30, 2006 7:20 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] FOLD can mutilate Many of those problems were fixed when card readers went to a more elaborate belt feed, as they were 're' flattened prior to the read station. The same technique was tried in early belt-fed weapons, to the chagrin of the dear departed testers. They're gonna throw us out of this list... On 5/28/06, Ray Wurlod [EMAIL PROTECTED] wrote: What became of bend and spindle? (A question for the older students.) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question: What's the name of the pattern (language) used for the traditional 80 column IBM punch cards. My 2 cents. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
At 23:26 30/05/06 -0400, you wrote: Trivia Question: What's the name of the language used for the traditional 80 column IBM punch cards. Obscene if they're in series and you drop a box of the b..s Sorry... had to change the question slightly Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia http://www.taloncs.com.au Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.1.394 / Virus Database: 268.8.0/352 - Release Date: 30/05/06 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate {Unclassified}
We used to use the Hollerith code. That was after we changed from 7-track
paper tape - I was quite good at making corrections to that.
Derek Falkner
Kingston, Ontario, Canada
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson
Sent: May 30, 2006 11:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] FOLD can mutilate {Unclassified}
Trivia Question:
What's the name of the pattern (language) used for the traditional 80 column
IBM punch cards.
My 2 cents.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
You guys had punch cards? We had to use Sears catalog pages, cut to the proper size Maybe we both need a good nights sleep j On 5/28/06, HENDERSON MIKE, MR [EMAIL PROTECTED] wrote: Groan! A, punched cards, it takes me back Mind you, in my day we couldn't afford ... Etc :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ray Wurlod Sent: Monday, 29 May 2006 14:39 To: u2-users@listserver.u2ug.org Subject: Re: [U2] FOLD can mutilate What became of bend and spindle? (A question for the older students.) The information contained in this Internet Email message is intended for the addressee only and may contain privileged information, but not necessarily the official views or opinions of the New Zealand Defence Force. If you are not the intended recipient you must not use, disclose, copy or distribute this message or the information in it. If you have received this message in error, please Email or telephone the sender immediately. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
At 10:10 29/05/06 -0400, you wrote: You guys had punch cards? We had to use Sears catalog pages, cut to the proper size Yeah, maybe. Well do I recall.one of my early DP jobs was putting the chads back in punch cards so they could be re-used.and Quality Control insisted I put the right ones back in the right holes. I also remember being sent to the ironmongers for a long weight to make the job easier..grin Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia http://www.taloncs.com.au Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.1.394 / Virus Database: 268.7.4/351 - Release Date: 29/05/06 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate {Unclassified}
One thing I remember from the 029 days was correction stickers for punch cards. If you needed to correct a mispunched card, you could cover the hole with a sticker. Always wondered how many came off in high speed card readers. . . . Steve At 09:54 AM 5/30/06 +1000, you wrote: At 10:10 29/05/06 -0400, you wrote: You guys had punch cards? We had to use Sears catalog pages, cut to the proper size Yeah, maybe. Well do I recall.one of my early DP jobs was putting the chads back in punch cards so they could be re-used.and Quality Control insisted I put the right ones back in the right holes. I also remember being sent to the ironmongers for a long weight to make the job easier..grin Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia http://www.taloncs.com.au Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.1.394 / Virus Database: 268.7.4/351 - Release Date: 29/05/06 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- Steven M Wagner [EMAIL PROTECTED] Cary, North Carolina, United States of America --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate
What became of bend and spindle? (A question for the older students.) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate {Unclassified}
Groan! A, punched cards, it takes me back Mind you, in my day we couldn't afford ... Etc :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ray Wurlod Sent: Monday, 29 May 2006 14:39 To: u2-users@listserver.u2ug.org Subject: Re: [U2] FOLD can mutilate What became of bend and spindle? (A question for the older students.) The information contained in this Internet Email message is intended for the addressee only and may contain privileged information, but not necessarily the official views or opinions of the New Zealand Defence Force. If you are not the intended recipient you must not use, disclose, copy or distribute this message or the information in it. If you have received this message in error, please Email or telephone the sender immediately. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate
Not sure how spaces enter into it, although I see that it yields the same in the following with or without spaces. j 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = A B C D E F G H I 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 A=ABCDEFGHI 0009 CRT LEN(A) 0010 CRT 'A:':A 0011 B=FOLD(A,1) 0012 CRT 'LEN B:':LEN(B) 0013 CRT 'B:':B 0014 STOP 17 A:A B C D E F G H I LEN B:17 B:A~B~C~D~E~F~G~H~I 9 A:ABCDEFGHI LEN B:17 B:A~B~C~D~E~F~G~H~I On 5/25/06, Brad Davis [EMAIL PROTECTED] wrote: Your're right - a kosher fold should search from the end of each line back to the break character and break on the length of the line, only if it can't find the break character... -Original Message- From: George Gallen [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 2:47 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate I use the following: SUBROUTINE FMTTEXT(DATA,MAXLEN,BRKCHAR) * * FMTTEXT - TEXT FORMATTER WITH LINE BREAKS BETWEEN WORDS. * * 01/04/95 GMG INITIAL PROGRAMMING * NEWLINE= CONVERT CHAR(254) TO CHAR(253) IN DATA NODL=DCOUNT(DATA,@VM) FOR T=1 TO NODL IF DATA1,T[LEN(DATA1,T),1]#- THEN DATA1,T=DATA1,T: IF LEN(DATA1,T)=MAXLEN THEN GOTO 30 FOR L=MAXLEN TO 1 STEP -1 IF DATA1,T[L,1]=BRKCHAR THEN IF DATA1,T+1= OR T=NODL THEN INS BEFORE DATA1,T+1 NODL=NODL+1 END DATA1,T+1=DATA1,T[L+1,LEN(DATA1,T)]:DATA1,T+1 DATA1,T=DATA1,T[1,L] GOTO 30 END NEXT L 30: DATA1,T=TRIM(DATA1,T) NEXT T RETURN END -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brad Davis Sent: Thursday, May 25, 2006 2:27 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate Ok just for the record: here's the completed code: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 NEW-1=TRIMB(TRIMF(STR[POS,LENG])) NEXT I STR=NEW RETURN Or, here's a more complicated idea: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 CHR=STR[POS+LEN,1] IF CHR= THEN NEW-1=TRIMB(TRIMF(STR[POS,LENG])) END ELSE *fold back to space if possible END NEXT I STR=NEW -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 1:04 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate POS=(LENG*(I-1))+1 -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 11:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] FOLD can mutilate
The easy answer is that it probably does a TRIM prior to the fold. Thus the all-spaces field becomes null, and the fold cannot work on a zero length field. And its not a problem, only a curiousity. I discovered it while looking for garbage in production records, making use of LES in order to compare for any character less than char(31). Found a bunch, too! j On 5/26/06, john reid [EMAIL PROTECTED] wrote: Not sure how spaces enter into it, although I see that it yields the same in the following with or without spaces. j 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = A B C D E F G H I 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 A=ABCDEFGHI 0009 CRT LEN(A) 0010 CRT 'A:':A 0011 B=FOLD(A,1) 0012 CRT 'LEN B:':LEN(B) 0013 CRT 'B:':B 0014 STOP 17 A:A B C D E F G H I LEN B:17 B:A~B~C~D~E~F~G~H~I 9 A:ABCDEFGHI LEN B:17 B:A~B~C~D~E~F~G~H~I On 5/25/06, Brad Davis [EMAIL PROTECTED] wrote: Your're right - a kosher fold should search from the end of each line back to the break character and break on the length of the line, only if it can't find the break character... -Original Message- From: George Gallen [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 2:47 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate I use the following: SUBROUTINE FMTTEXT(DATA,MAXLEN,BRKCHAR) * * FMTTEXT - TEXT FORMATTER WITH LINE BREAKS BETWEEN WORDS. * * 01/04/95 GMG INITIAL PROGRAMMING * NEWLINE= CONVERT CHAR(254) TO CHAR(253) IN DATA NODL=DCOUNT(DATA,@VM) FOR T=1 TO NODL IF DATA1,T[LEN(DATA1,T),1]#- THEN DATA1,T=DATA1,T: IF LEN(DATA1,T)=MAXLEN THEN GOTO 30 FOR L=MAXLEN TO 1 STEP -1 IF DATA1,T[L,1]=BRKCHAR THEN IF DATA1,T+1= OR T=NODL THEN INS BEFORE DATA1,T+1 NODL=NODL+1 END DATA1,T+1=DATA1,T[L+1,LEN(DATA1,T)]:DATA1,T+1 DATA1,T=DATA1,T[1,L] GOTO 30 END NEXT L 30: DATA1,T=TRIM(DATA1,T) NEXT T RETURN END -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brad Davis Sent: Thursday, May 25, 2006 2:27 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate Ok just for the record: here's the completed code: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 NEW-1=TRIMB(TRIMF(STR[POS,LENG])) NEXT I STR=NEW RETURN Or, here's a more complicated idea: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 CHR=STR[POS+LEN,1] IF CHR= THEN NEW-1=TRIMB(TRIMF(STR[POS,LENG])) END ELSE *fold back to space if possible END NEXT I STR=NEW -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 1:04 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate POS=(LENG*(I-1))+1 -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 11:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org
[U2] FOLD can mutilate
Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
POS=(LENG*(I-1))+1 -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 11:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
Since FOLD uses spaces as the delimiters, and you've given it a length of one, I would say it's not surprising that you get a length of -1 for B. Is it a problem? Personally, I would say no, but then I'm not sure what you would be trying to accomplish with the code snippet you've presented. The question I would have is what is in the variable B that it can be reported as a length of -1? What value would be printed from SEQ? But that's just me. smile BobW -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of john reid Sent: Thursday, May 25, 2006 6:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
Ok just for the record: here's the completed code: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 NEW-1=TRIMB(TRIMF(STR[POS,LENG])) NEXT I STR=NEW RETURN Or, here's a more complicated idea: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 CHR=STR[POS+LEN,1] IF CHR= THEN NEW-1=TRIMB(TRIMF(STR[POS,LENG])) END ELSE *fold back to space if possible END NEXT I STR=NEW -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 1:04 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate POS=(LENG*(I-1))+1 -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 11:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
I use the following: SUBROUTINE FMTTEXT(DATA,MAXLEN,BRKCHAR) * * FMTTEXT - TEXT FORMATTER WITH LINE BREAKS BETWEEN WORDS. * * 01/04/95 GMG INITIAL PROGRAMMING * NEWLINE= CONVERT CHAR(254) TO CHAR(253) IN DATA NODL=DCOUNT(DATA,@VM) FOR T=1 TO NODL IF DATA1,T[LEN(DATA1,T),1]#- THEN DATA1,T=DATA1,T: IF LEN(DATA1,T)=MAXLEN THEN GOTO 30 FOR L=MAXLEN TO 1 STEP -1 IF DATA1,T[L,1]=BRKCHAR THEN IF DATA1,T+1= OR T=NODL THEN INS BEFORE DATA1,T+1 NODL=NODL+1 END DATA1,T+1=DATA1,T[L+1,LEN(DATA1,T)]:DATA1,T+1 DATA1,T=DATA1,T[1,L] GOTO 30 END NEXT L 30: DATA1,T=TRIM(DATA1,T) NEXT T RETURN END -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brad Davis Sent: Thursday, May 25, 2006 2:27 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate Ok just for the record: here's the completed code: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 NEW-1=TRIMB(TRIMF(STR[POS,LENG])) NEXT I STR=NEW RETURN Or, here's a more complicated idea: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 CHR=STR[POS+LEN,1] IF CHR= THEN NEW-1=TRIMB(TRIMF(STR[POS,LENG])) END ELSE *fold back to space if possible END NEXT I STR=NEW -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 1:04 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate POS=(LENG*(I-1))+1 -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 11:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate
Your're right - a kosher fold should search from the end of each line back to the break character and break on the length of the line, only if it can't find the break character... -Original Message- From: George Gallen [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 2:47 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate I use the following: SUBROUTINE FMTTEXT(DATA,MAXLEN,BRKCHAR) * * FMTTEXT - TEXT FORMATTER WITH LINE BREAKS BETWEEN WORDS. * * 01/04/95 GMG INITIAL PROGRAMMING * NEWLINE= CONVERT CHAR(254) TO CHAR(253) IN DATA NODL=DCOUNT(DATA,@VM) FOR T=1 TO NODL IF DATA1,T[LEN(DATA1,T),1]#- THEN DATA1,T=DATA1,T: IF LEN(DATA1,T)=MAXLEN THEN GOTO 30 FOR L=MAXLEN TO 1 STEP -1 IF DATA1,T[L,1]=BRKCHAR THEN IF DATA1,T+1= OR T=NODL THEN INS BEFORE DATA1,T+1 NODL=NODL+1 END DATA1,T+1=DATA1,T[L+1,LEN(DATA1,T)]:DATA1,T+1 DATA1,T=DATA1,T[1,L] GOTO 30 END NEXT L 30: DATA1,T=TRIM(DATA1,T) NEXT T RETURN END -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brad Davis Sent: Thursday, May 25, 2006 2:27 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate Ok just for the record: here's the completed code: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 NEW-1=TRIMB(TRIMF(STR[POS,LENG])) NEXT I STR=NEW RETURN Or, here's a more complicated idea: SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=(LENG*(I-1))+1 CHR=STR[POS+LEN,1] IF CHR= THEN NEW-1=TRIMB(TRIMF(STR[POS,LENG])) END ELSE *fold back to space if possible END NEXT I STR=NEW -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 1:04 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate POS=(LENG*(I-1))+1 -Original Message- From: Brad Davis Sent: Thursday, May 25, 2006 11:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] FOLD can mutilate If fold cannot find a space to break on, what does it do? I think it breaks the fold length, so it can break a string. You can also write your own fold statement. SUBROUTINE FOLDX(STR,LENG) FOR I=1 TO LENG POS=??? NEW-1=TRIMB(TRIMF(STR[POS,LENG]) NEXT I RETURN -Original Message- From: john reid [mailto:[EMAIL PROTECTED] Sent: Thursday, May 25, 2006 9:52 AM To: list Subject: [U2] FOLD can mutilate Anyone notice the length problem on the fold of spaces? TEST.FOLD 0001 EXECUTE 'CT JMRBP TEST.FOLD' 0002 A = SPACE(10) 0003 CRT LEN(A) 0004 CRT 'A:':A 0005 B=FOLD(A,1) 0006 CRT 'LEN B:':LEN(B) 0007 CRT 'B:':B 0008 STOP 10 A: LEN B:-1 B: -- john --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
