Pattern Help

[Pickering, John (NORBORD)]

It *really* is time to quit before I screw up something serious!

Make the example ...

procedure edit somefield
begin
  if "M" = somefield of somefile[1:1] or &
     "C" = somefield of somefile[1:1] 
  then error "Somefield must not start with M or C."
end

Sheesh!

> -----Original Message-----
> From:	Pickering, John (NORBORD) [SMTP:PICKERIJ@norbord.com]
> Sent:	Thursday, November 29, 2001 2:50 PM
> To:	'Powerhouse List'
> Subject:	RE: Pattern Help
> 
> OK, I give up today. I even made a typo on typo. Time to go home.
> 
> Enough fooling around with patterns :-)
> 
> How about leaving the original pattern on the field statement and putting
> the check of the first character in the edit procedure? This would
> probably
> be clearer to the next poor sole who has to decipher the pattern.
> 
> procedure edit somefield
> begin
>   if "M" = somefield of somefile or &
>      "C" = somefield of somefile 
>   then error "Somefield must not start with M or C."
> end
> 
> > -----Original Message-----
> > From:	Pickering, John (NORBORD) [SMTP:PICKERIJ@norbord.com]
> > Sent:	Thursday, November 29, 2001 2:30 PM
> > To:	'Richard Sheehan'; Sarah Moore; powerh-l@lists.swau.edu
> > Subject:	RE: Pattern Help
> > 
> > Even after I corrected my obvious type it doesn't work :-(
> > 
> > Q U I Z   (PowerHouse  8.19.C4)
> > Copyright 1999 COGNOS INCORPORATED
> > Norbord Industries Inc.
> > 
> > > def d-test char*6 = parm
> > > edit d-test pattern "\(M|C|\^)#####"
> >                       ^^^^^^^^^^^^^^^^
> > *W* An invalid pattern was used to edit an execution-time parameter.
> > > 
> > 
> > 
> > > -----Original Message-----
> > > From:	Pickering, John (NORBORD) [SMTP:PICKERIJ@norbord.com]
> > > Sent:	Thursday, November 29, 2001 2:04 PM
> > > To:	'Richard Sheehan'; Sarah Moore; powerh-l@lists.swau.edu
> > > Subject:	RE: Pattern Help
> > > 
> > > How about "\(M|C||^)#####" 
> > > 
> > > Yours will allow 6 digits
> > > 
> > <snip>
> > 
>