| Macro name. LEFT@ | Edit macro LEFT@ | |
| users. | All EDIT users | Author: David McRitchie |
| type. |
Edit Macro resides in SYS1.TSOCLIST ; for use on TSO Edit Macro resides in d:\spfmacro for use with SPF/PC | |
| LEFT@ | LEFT JUSTIFY al lines within C or CC range | |
| Related | (REFORMAT, REMBLANK, REMDUPS, SHIFT, SHIFTNX) | |
LEFT@ provides the ability to LEFT justify all lines (or CC-range) to any character (P'¬') or to a quote. The use of BOUNDS is not permitted because such use would be ambiguous. (PLI not character or ^ x'5E' in ASCII, or ¬ xx??xx in EBCDIC.
| ISREDIT | EDITOL | [ NB | Q | QQ | string [ col ] ] |
| CC-range | A process range between CC line commands is an acceptable line-range for this macro. The default is to process all lines. |
| NB | Align on the first non-blank character (p'¬' This is the default. |
| Q | Align lines to the first single quote('). |
| Align lines to the first double quote("). | |
| col | Align lines so that the designated character lines up on column col. to the |
Examples
LEFT@
LEFT@ Q
LEFT@ QQ 8
Return to The REXX Macros Toolbox
Internal Aspects
1. Determine if PROCESS C is applicable, use if it is.
2. Check for NB, Q or QQ as the parameter.
3. Boundaries must not be used.
4. Place NOTELINES above lines which will be realigned
5. Realign applicable lines.
SPF/PC(1) EDIT D:\WWW\SUFFIX.TXT------------------------------- COLUMNS ... ... COMMAND ===> SCROLL ===> CSR ****** ********************************* TOP OF DATA ************************** ------ ---------------------- 2 LINE(s) NOT DISPLAYED ---------------------- 000003 #reqs: %bytes: domain 000004 ------- ------ ------ 000005 1962900: 28.74%: .com (Commercial (mainly USA)) 000006 1838770: 26.29%: .net (Network) 000007 955003: 15.22%: [unresolved numerical addresses] 000008 358270: 6.10%: .edu (USA Educational) 000009 185386: 2.91%: .ca (Canada) 000010 142286: 2.72%: .de (Germany) 000011 141129: 2.65%: .jp (Japan) 000012 84017: 1.56%: .au (Australia) 000013 78025: 1.38%: .se (Sweden) 000014 88707: 1.34%: .uk (United Kingdom) 000015 62598: 1.04%: .org (Non-Profit Making Organisations) 000016 69250: 0.95%: .us (United States) 000017 44106: 0.83%: .no (Norway) 000018 31692: 0.67%: .fr (France) 000019 34146: 0.59%: .it (Italy) 000020 30345: 0.50%: .nl (Netherlands) 000021 31540: 0.46%: .gov (USA Government) 000022 26559: 0.45%: .br (Brazil) ------ ---------------------- 479 LINE(s) NOT DISPLAYED ---------------------- ****** ******************************** BOTTOM OF DATA ************************First we will enter the standard ===> left@ resulting in realignment of data to column 1.
SPF/PC(1) EDIT D:\WWW\SUFFIX.TXT------------------------------- COLUMNS ... ... COMMAND ===> SCROLL ===> CSR ****** ********************************* TOP OF DATA ************************** ------ ---------------------- 2 LINE(s) NOT DISPLAYED ---------------------- 000003 #reqs: %bytes: domain 000004 ------- ------ ------ 000005 1962900: 28.74%: .com (Commercial (mainly USA)) 000006 1838770: 26.29%: .net (Network) 000007 955003: 15.22%: [unresolved numerical addresses] 000008 358270: 6.10%: .edu (USA Educational) 000009 185386: 2.91%: .ca (Canada) 000010 142286: 2.72%: .de (Germany) 000011 141129: 2.65%: .jp (Japan) 000012 84017: 1.56%: .au (Australia) 000013 78025: 1.38%: .se (Sweden) ------ ---------------------- 42 LINE(s) NOT DISPLAYED ---------------------- 000056 1387: 0.03%: .cy (Cyprus) 000057 1085: 0.03%: .lu (Luxembourg) 000058 982: 0.03%: .su (Former USSR) 000059 1702: 0.03%: .cr (Costa Rica) 000060 983: 0.02%: .tw (Taiwan) 000061 1155: 0.02%: .ve (Venezuela) 000062 1321: 0.02%: .hk (Hong Kong) 000063 789: 0.02%: .ee (Estonia) 000064 808: 0.02%: .cn (China) 000065 818: 0.02%: .lv (Latvia) 000066 882: 0.01%: .do (Dominican Republic) ------ ---------------------- 435 LINE(s) NOT DISPLAYED ---------------------- ****** ******************************** BOTTOM OF DATA ************************Taking the same original data we can realign data which has ":" in a line. Lines not having ":" will be unaffected. Since all lines have ":" we could also use previously reformatted data with the same results since no lines would be untouched. If we realigned to a lower column such as 5 data would be lost rather simply realigned.
COMMAND ===> LEFT@ : 8 SPF/PC(1) EDIT D:\WWW\SUFFIX.TXT------------------------------- COLUMNS ... ... COMMAND ===> SCROLL ===> CSR ****** ********************************* TOP OF DATA ************************** ------ ---------------------- 2 LINE(s) NOT DISPLAYED ---------------------- 000003 #reqs: %bytes: domain 000004 ------- ------ ------ 000005 1962900: 28.74%: .com (Commercial (mainly USA)) 000006 1838770: 26.29%: .net (Network) 000007 955003: 15.22%: [unresolved numerical addresses] 000008 358270: 6.10%: .edu (USA Educational) 000009 185386: 2.91%: .ca (Canada) 000010 142286: 2.72%: .de (Germany) 000011 141129: 2.65%: .jp (Japan) 000012 84017: 1.56%: .au (Australia) 000013 78025: 1.38%: .se (Sweden) ------ ---------------------- 42 LINE(s) NOT DISPLAYED ---------------------- 000056 1387: 0.03%: .cy (Cyprus) 000057 1085: 0.03%: .lu (Luxembourg) 000058 982: 0.03%: .su (Former USSR) 000059 1702: 0.03%: .cr (Costa Rica) 000060 983: 0.02%: .tw (Taiwan) 000061 1155: 0.02%: .ve (Venezuela) 000062 1321: 0.02%: .hk (Hong Kong) 000063 789: 0.02%: .ee (Estonia) 000064 808: 0.02%: .cn (China) 000065 818: 0.02%: .lv (Latvia) 000066 882: 0.01%: .do (Dominican Republic) ------ ---------------------- 435 LINE(s) NOT DISPLAYED ---------------------- ****** ******************************** BOTTOM OF DATA ************************If you are wondering how I obtained data and surrounded it by edit panels, here is how I did it:
Please send your comments concerning my pages or materials to: David using send email comments
Disclaimer and site usage: Material at The REXX Macros Toolbox is available without warranty of any kind. Redistribution of source, coding and documentation other than from this site is prohibited.
Copyright © 1995 - 2006, F. David McRitchie, All Rights Reserved