I have rewritten the test tool: literal delimiters and string_to_parse are supplied as arguments.
Usage instructions included.
????????????????????????????????????????????????????????????????????????????????????????????????
?davtest?????????????????????????????????????????????????????????????????????????????????????? ?
CMS bREXX 1.0.1 Jul? 5 2022??????????????????????????????????????????????????????????????????? ?
CMS COMMAND davtest davtest??????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Test tool to research bREXX parsing error, see???????????????????????????????????????????????? ?
?/g/h390-vm/topic/87676003??????????????????????????????????????????????????? ?
?https://github.com/s390guy/vm370/issues/56??????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Usage:?? davtest???? delimiter_1?? delimiter_2????? string_to_parse??????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Example:?? davtest $ % cats$dogs%wolves bears boars??????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Ready(00001); T=0.03/0.04 08:53:16???????????????????????????????????????????????????????????? ?
?davtest $ % cats$dogs%wolves bears boars????????????????????????????????????????????????????? ?
CMS bREXX 1.0.1 Jul? 5 2022??????????????????????????????????????????????????????????????????? ?
delimiter_1 = $??????????????????????????????????????????????????????????????????????????????? ?
delimiter_2 = %??????????????????????????????????????????????????????????????????????????????? ?
template = outer_l'$'inner_l inner_r'%'outer_r???????????????????????????????????????????????? ?
string_to_parse = cats$dogs%wolves bears boars???????????????????????????????????????????????? ?
outer_l = /cats/?????????????????????????????????????????????????????????????????????????????? ?
inner_l = /dogs%wolves/??????????????????????????????????????????????????????????????????????? ?
inner_r = /bears boars/??????????????????????????????????????????????????????????????????????? ?
outer_r = //?????????????????????????????????????????????????????????????????????????????????? ?
Ready; T=0.03/0.03 08:53:28??????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
?davtest?????????????????????????????????????????????????????????????????????????????????????? ?
REXX370 4.02 01 Dec 1998?????????????????????????????????????????????????????????????????????? ?
CMS COMMAND DAVTEST EXEC A1 davtest CMS??????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Test tool to research bREXX parsing error, see???????????????????????????????????????????????? ?
?/g/h390-vm/topic/87676003??????????????????????????????????????????????????? ?
?https://github.com/s390guy/vm370/issues/56??????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Usage:?? DAVTEST???? delimiter_1?? delimiter_2????? string_to_parse??????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Example:?? DAVTEST $ % cats$dogs%wolves bears boars??????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
Ready(00001); T=0.01/0.01 03:50:31???????????????????????????????????????????????????????????? ?
?DAVTEST $ % cats$dogs%wolves bears boars????????????????????????????????????????????????????? ?
REXX370 4.02 01 Dec 1998?????????????????????????????????????????????????????????????????????? ?
delimiter_1 = $??????????????????????????????????????????????????????????????????????????????? ?
delimiter_2 = %??????????????????????????????????????????????????????????????????????????????? ?
template = outer_l'$'inner_l inner_r'%'outer_r???????????????????????????????????????????????? ?
string_to_parse = cats$dogs%wolves bears boars???????????????????????????????????????????????? ?
outer_l = /cats/?????????????????????????????????????????????????????????????????????????????? ?
inner_l = /dogs/?????????????????????????????????????????????????????????????????????????????? ?
inner_r = //?????????????????????????????????????????????????????????????????????????????????? ?
outer_r = /wolves bears boars/???????????????????????????????????????????????????????????????? ?
Ready; T=0.01/0.01 03:50:41??????????????????????????????????????????????????????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
*** side by side:????????????????????????????????????????????????????????????????????????????? ?
???????????????????????????????????????????????????????????????????????????????????????????????
?davtest $ % cats$dogs%wolves bears boars??????? DAVTEST $ % cats$dogs%wolves bears boars????? ?
CMS bREXX 1.0.1 Jul? 5 2022???????????????????? REXX370 4.02 01 Dec 1998?????????????????????? ?
delimiter_1 = $???????????????????????????????? delimiter_1 = $??????????????????????????????? ?
delimiter_2 = %???????????????????????????????? delimiter_2 = %??????????????????????????????? ?
template = outer_l'$'inner_l inner_r'%'outer_r? template = outer_l'$'inner_l inner_r'%'outer_r ?
string_to_parse = cats$dogs%wolves bears boars? string_to_parse = cats$dogs%wolves bears boars ?
outer_l = /cats/??????????????????????????????? outer_l = /cats/?????????????????????????????? ?
inner_l = /dogs%wolves/???????????????????????? inner_l = /dogs/?????????????????????????????? ?
inner_r = /bears boars/???????????????????????? inner_r = //?????????????????????????????????? ?
outer_r = //??????????????????????????????????? outer_r = /wolves bears boars/???????????????? ?
Ready; T=0.03/0.03 08:53:28???????????????????? Ready; T=0.01/0.01 03:50:41??????????????????? ?
?????????????????????????????????????????????????????????????????????????????????????????????? ?
File: DAVTEST? EXEC???? A1?????? RECFM: V LRECL: 125(255) Lines:??? 40 Current:??? 12????????? ?
====>????????????????????????????????????????????????????????????????????????????????????????? ?
??? 0 * * * Top of file * * *????????????????????????????????????????????????????????????????? ?
??? 1 /* REXX */?????????????????????????????????????????????????????????????????????????????? ?
??? 2 signal on novalue??????????????????????????????????????????????????????????????????????? ?
??? 3 parse version v????????????????????????????????????????????????????????????????????????? ?
??? 4 say v??????????????????????????????????????????????????????????????????????????????????? ?
??? 5 parse source? s????????????????????????????????????????????????????????????????????????? ?
??? 6????????????????????????????????????????????????????????????????????????????????????????? ?
??? 7 parse arg delimiter_1 delimiter_2 string_to_parse??????????????????????????????????????? ?
??? 8 if strip(string_to_parse) = "" then signal usage???????????????????????????????????????? ?
??? 9????????????????????????????????????????????????????????????????????????????????????????? ?
?? 10 template = "outer_l'"delimiter_1"'inner_l inner_r'"delimiter_2"'outer_r"???????????????? ?
?? 11 say "delimiter_1 =" delimiter_1????????????????????????????????????????????????????????? ?
?? 12 say "delimiter_2 =" delimiter_2????????????????????????????????????????????????????????? ?
?? 13 say "template =" template??????????????????????????????????????????????????????????????? ?
?? 14 say "string_to_parse =" string_to_parse????????????????????????????????????????????????? ?
?? 15????????????????????????????????????????????????????????????????????????????????????????? ?
?? 16 interpret "parse var string_to_parse" template?????????????????????????????????????????? ?
?? 17 say "outer_l = /"outer_l"/"????????????????????????????????????????????????????????????? ?
?? 18 say "inner_l = /"inner_l"/"????????????????????????????????????????????????????????????? ?
?? 19 say "inner_r = /"inner_r"/"????????????????????????????????????????????????????????????? ?
?? 20 say "outer_r = /"outer_r"/"????????????????????????????????????????????????????????????? ?
?? 21 exit 0?????????????????????????????????????????????????????????????????????????????????? ?
?? 22????????????????????????????????????????????????????????????????????????????????????????? ?
?? 23 usage:?????????????????????????????????????????????????????????????????????????????????? ?
?? 24 say s??????????????????????????????????????????????????????????????????????????????????? ?
?? 25 parse var s . . my_name .??????????????????????????????????????????????????????????????? ?
?? 26 say " "????????????????????????????????????????????????????????????????????????????????? ?
?? 27 say "Test tool to research bREXX parsing error, see"???????????????????????????????????? ?
?? 28 say " /g/h390-vm/topic/87676003"??????????????????????????????????????? ?
?? 29 say " https://github.com/s390guy/vm370/issues/56"??????????????????????????????????????? ?
?? 30 say " "????????????????????????????????????????????????????????????????????????????????? ?
?? 31 say " "????????????????????????????????????????????????????????????????????????????????? ?
?? 32 say "Usage:? " my_name "??? delimiter_1?? delimiter_2????? string_to_parse "???????????? ?
?? 33 say " "????????????????????????????????????????????????????????????????????????????????? ?
?? 34 say "Example:? " my_name "$ % cats$dogs%wolves bears boars"????????????????????????????? ?
?? 35 say " "????????????????????????????????????????????????????????????????????????????????? ?
?? 36 exit 1?????????????????????????????????????????????????????????????????????????????????? ?
?? 37 novalue:???????????????????????????????????????????????????????????????????????????????? ?
?? 38 say "*** ABORT: NOVALUE condition in line" sigl????????????????????????????????????????? ?
?? 39 say "***" sourceline(sigl)?????????????????????????????????????????????????????????????? ?
?? 40 exit 777???????????????????????????????????????????????????????????????????????????????? ?
????? * * * End of file * * *????????????????????????????????????????????????????????????????? ?
Unchanged?????????????????????????????????? ee V1.2.5_2022-10-08_12:50:00,? 5 File(s)????????? ?