1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80... ..145..150..155..160..165..170..175..180..185..190..195..200..205..210..215..220..225..230..235..240..245..250..255. ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8--- ----+----5----+----6----+----7----+----8----+----9----+----0----+----1----+----2----+----3----+----4----+----5----+- The use of COLS in EDIT will simulate the use of COLS in BROWSE. The generated cols will look somthing like the above as NOTLINES. The COLS macro simulates "cols" line command entered from the edit command line - prevents "COMMAND COLS NOT FOUND" MSG COLS Macro for REXX Exec, by Phillip Miller of Oklahoma Farm Bureau Mutual Insurance Company "TSO Times" Summer issue 1993 from Chicago-Soft, Ltd. 1993/10/04 http://www.nascom.com/ Modifications David McRitchie to use MSGLINE and include parm(s) in SPF/PC use NOTELINE with option to scroll notelines (=0.5) Added additional line(s) to make NOTELINES more readable. "The REXX Macros Toolbox" http://www.geocities.com/davemcritchie/ The columns seen as the 3rd and 4th lines in the examples are useful for operations involving reformating because the original columns can be seen by reading them vertically. You can use Text Split (TSPLIT, :TS) to split lines, which is better than trying to clear out remain columns. Delete the unwanted split off portions. ------------------------------------------------------------------- by entering COLS =NOTE= 1...5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80... =NOTE= ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8--- ------------------------------------------------------------------- by entering COLS 50 . =NOTE= 1...5...10...15...20...25...30...35...40...45...50 =NOTE= ----+----1----+----2----+----3----+----4----+----5 =NOTE= 00000000011111111112222222222333333333344444444445 =NOTE= 12345678901234567890123456789012345678901234567890 ------------------------------------------------------------------- by entering COLS 50 . (second parameter generates DATALINES) =NOTE= --- begin data lines added by COLS 50 .------------------------------- 000001 1...5...10...15...20...25...30...35...40...45...50 000002 ----+----1----+----2----+----3----+----4----+----5 000003 00000000011111111112222222222333333333344444444445 000004 12345678901234567890123456789012345678901234567890 =NOTE= ----- end data lines added by COLS 50 .------------------------------- ------------------------------------------------------------------ Note the use of REFORMAT on lines such as above will indicate where the lines came from, if read vertically. This is good way to generate test data if the system will tolerate such data as input. ------------------------------------------------------------------ by entering COLS 200 . REFORMAT 1 10 ' ' 21 30 ' ' 201 210 ' ' 1 10 000001 1...5...10 ...25...30 1...5...10 000002 ----+----1 ----+----3 ----+----1 000003 0000000000 0000000000 0000000000 000004 0000000001 2222222223 0000000001 000005 1234567890 1234567890 1234567890 In the above only 200 columns were generated, so 201-210 are blank before reformatting, resulting in a missing portion above. ------------------------------------------------------------------ by entering BOUNDS COLS 300 . REFORMAT .a .b 1 10 ' ' 21 30 ' ' 201 210 ' ' 1 10 000001 1...5...10 ...25...30 ..205..210 1...5...10 000002 ----+----1 ----+----3 ----+----1 ----+----1 000003 0000000000 0000000000 2222222222 0000000000 000004 0000000001 2222222223 0000000001 0000000001 000005 1234567890 1234567890 1234567890 1234567890