I tried to set up a dialog box in order to compose a column
search in files structured according to the following pattern:
&CVM _3 #quom 8214000000
&IN __ #in 7000500000
&PROSCENIVM __ #proscaenio 120050S000
&HIC _2 #hic 6000000000
&IVPPITER N_ #Iouem 13N040S000
&INVOCO __ #inuocarunt 5114CAP0BN
The macro is supposed to find strings like "14CAP0BN" in the last
line (cols 46--53), but what i get is a message
"cannot find |@(5)|@(6)|@(7)|@(8)".
This is the macro:
// search for subordination codes at cols 46--53
I. Dialog box
reg_set(5,"1") //default modus: indicative
reg_set(6,"|d") // default tense: none
reg_set(7,"|f|f|f|f") // default PNDG: none
reg_set(8,"BN") // default subordination code: relative
#1=Dialog_Input_1(5,"`sentence code:`,
`Modus (1 / 3):`,
`??`,
`Tense (1 - 6):`,
`??`,
`PNDG`,
`??`,
`Subordination Code:`,
`??`,
",SCREEN+CENTER+SET,0,0)
//5=modus, 6=tempus, 7=PNDG, 8=sub-code
if(#1==0){breakout(extra)}
// II. Search pattern
repeat(all){
sb("|@(5)|@(6)|@(7)|@(8)",CP,file_size,ERRBREAK+COLSET,46,53)
V()
EOL()
}
return()
Thanks for any help.
Fritz
|
|