On 2016-10-27 15:46, Itschak Mugzach wrote:
Walt,
As the information is in machine readable (hex data) it can't be rapped with
an apostrophe because the data may include apostrophe. I thought marking a
block of data as comment and access it some how. May be a function like
source,in May do it. Will check this later. Any other idea how to access the
commented block of data?
Have been doing this for two+ decades:
/* REXX exec/edit macro to do ad-hoc processing of unspecified data */
/*** trace ?r ***************************************************** \| *
* (C) Copyright Robert AH Prins, 2011-2016 *
************************************************************************
* EHHADHOC is a REXX exec/edit macro to do ad-hoc processing of *
* unspecified data... ;) *
***********************************************************************/
parse source source
parse value source with . . moi .
"ispexec control errors return"
parse arg parm
"isredit macro (parm) NOPROCESS"
parm = translate(strip(parm))
/***********************************************************************
* FILTZ sets up a table of days where a timezone was crossed *
***********************************************************************/
filtz:
signal tab_data
/*Date | TZ | Trip | Ride | Ride | From | To |
| 1983-08-01 | +1.00 | 4 | 28 | 29 | GR | YU |
- - - - - - - - - - - - - - - - 95 Line(s) not Displayed
| 2016-09-26 | +1.00 | 178 | 5 | | LT | PL |
*/
tab_data:
j = 0
do i = sigl + 3 while substr(sourceline(i), 1, 2) ^= '*' || '/'
j = j + 1
parse value space(sourceline(i), 0) with '|' col1.j,
'|' col2.j,
'|' col3.j,
'|' col4.j,
'|' col5.j,
'|' col6.j,
'|' col7.j '|' .
end
colx.0 = j
return
Key is that SIGNAL will set SIGL to the line-number of the SIGNAL statement.
Robert
--
Robert AH Prins
robert(a)prino(d)org
No programming (yet) @ http://prino.neocities.org/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
