I use PIPE STATE as a shortcut to get the return code into FILELIST
without the "not found" messages.  Here's one I never ran into before:

> PIPDST060E Delimiter missing after string "* n". 
> PIPSCA003I ... Issued from stage 1 of pipeline 1.
> PIPSCA001I ... Running "STATE STRING * n".       

Sadly, I know I use this form very often in execs to resolve wildcards:

  'PIPE state' fn ft fm '| var actualfile'

And since STRING doesn't actually require the timestamp to be included
with a % sign anywhere, there's no reliable way to distinguish a
filespec from an argument--"STRING * *" or "STRING CEXEC" is valid as
either.  I suppose it's possible I've already been bitten by that case
(returning 0 instead of 28) and failed to notice a file with filename
STRING missing.

Actually, though, the problem wasn't new with STRING.  QUIET and ASIS
introduced it for all the other keywords, too.  Am I looking for a file
called NOFORMAT QUIET or do I want raw information on nothing?  We
should have asked back in 1993 to have it check whether it's first in
the pipeline.

In trying out various cases, I also found that a null string made an
even worse mess:

> pipe state string ,,                                                          
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character 'Ø' not valid.                                   
>   
> PIPDAT1368E Format character ')' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character '`' not valid.                                   
>   
> PIPDAT1368E Format character 'È' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPDAT1368E Format character 'ç' not valid.                                   
>   
> PIPDAT1368E Format character '-' not valid.                                   
>   
> PIPDAT1368E Format character ' ' not valid.                                   
>   
> PIPINX410E ABEND 000000C5 at 07D09658; PSW 03EC2000 87D09658 00040005.        
>   
> PIPINX411I ... In FPLDATVF; offset 000001D0 in FPLDAT 03/09/10 08.05.         
>   
> PIPINX412I ... GPR0: 00000000 00000558 08000000 FFEA9FFE.                     
>   
> PIPINX412I ... GPR4: 07FFFC18 00000001 00000558 00000002.                     
>   
> PIPINX412I ... GPR8: 00000000 07ECF328 07CD71E0 07EA9DF8.                     
>   
> PIPINX412I ... GPRC: 87D0963A 00EC0708 87D0968A 00000558.                     
>   
> PIPINX413I ... Store 07D0964C: 1F661824 18351870 956C2000 4770C052 06301F88.  
>   
> PIPINX1198I Stage is active.                                                  
>   
> DMSABE141T Addressing exception occurred at 87D09658 in routine PIPE          
>   

¬R

Reply via email to