Conference iosg::all-in-1_v30

1522.0. "Intermittent failure of OAMTISEND" by OUTBCK::BURT () Tue Sep 29 1992 08:27

    Hello and Greetings,
    
    Customer running ALL-IN-1 V2.4 (unpatched ) MR 3.1B
    Sender intermittently fails - about once a week (to 10 days). When it 
    fails, it always fails with an "undefined symbol error". When it works, 
    it works for days at a time. There seems to be no obvious pattern.
    
    I've checked here and in STARS with no success.
    
    No other problems have been reported by the customer.
    
    Customer checked postmaster - nowt there or in mtierr 
    
    Thanks & regards,
    
    Chele

    Customer attempted some diagnostics of his own within OAMTISEND, 
    the contents of the log (hopefully my typing passes) follow:

$ !
$ ! Get the current username
$ uname = f$getjpi("","username")
$ uname = f$edit(uname,"COLLAPSE")
$ queue:=A1$BATCH
$ !
$ ! Now set up the strings we look for
$ !
$ holding = "Holding"
$ pending = "Pending"
$ !
$ on error then continue
$ assign/user queue.tmp sys$output
$ show queue/all/batch A1$BATCH
$ open/read/error=30 queue queue.tmp
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE = "Generic Batch Queue A1$BATCH"
$ IF 28 .EQ. 28 THEN GOTO 10
$10
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE =""
$ IF 0 .EQ. 0 THEN GOTO 10
$10
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE =" Jobname          Username      Entry      Status"
$ IF 52 .EQ. 52 THEN GOTO 10
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE ="  _______         ________      _____      ______"
$ READ/END=20 QUEUE LINE
$ show symb line
$ IF 52 .EQ. 52 THEN GOTO 10
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE ="  OAMTIMAIL       ALLIN1          504       Holding until 14-Sep-1992
$ IF 77 .EQ. 77 THEN GOTO 10
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE =  UPDATE MAIL ADDRESSES"
$ IF 23 .EQ. 23 THEN GOTO 10
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE ="                   ALLIN1         436       Holding until 14-Sep-1992
$ IF 77 .EQ. 77 THEN GOTO 10
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  line =" TEST AND REPAIR USERS"
$ IF 21 .EQ. 21 THEN GOTO 10
$10:
$ READ/END=20 QUEUE LINE
$ show symb line
  LINE ="                   ALLIN1         567       Holding until 14-Sep-1992
$ IF 77 .EQ. 77 THEN GOTO 10
%DCL_W_UNDSYM, undefined symbol - check validity and spelling
\THEN\
$ IF 18 .EQ. 77 THEN GOTO 10
$ IF 46 .NE. 77 THEN GOTO 15
$15:    !Job is already holding so we won't resubmit
$ CLOSE QUEUE

    

    Chele,
    
    That section of OAMTISEND as i'm sure you know looks like:
    
    $ READ/END=20 QUEUE LINE
    $ IF 'F$LOCATE("OAMTISEND",LINE) .EQ. 'F$LENGTH(LINE) THEN GOTO 10
    $ IF 'F$LOCATE(uname,LINE) .EQ. 'F$LENGTH(LINE) THEN GOTO 10
    $ IF 'F$LOCATE(holding,LINE) .NE. 'F$LENGTH(LINE) THEN GOTO 15
    $ IF 'F$LOCATE(pending,LINE) .EQ. 'F$LENGTH(LINE) THEN GOTO 10
    $15:    ! Job is already holding so we won't resubmit
    $ CLOSE QUEUE
    
    The missing line or the one the DCL error is against is: 
    
    $ IF 'F$LOCATE(uname,LINE) .EQ. 'F$LENGTH(LINE) THEN GOTO 10
    
    What does their version of the file look like.
    
    Are you sure it isn't their 'hacking' of an already perfect command
    file that isn't causing the problem??? (:==:)
    
    Regards,
    
    Andrew.D.Wicks
    

G'day,

The sender hasn't "intermittented" for 2 weeks now. I has the customer check 
his quotas & autogen his beast & all now seems ok.

I've asked him to de-customise his com file too.

I still don't see why it worked some times & not others.

He's decided to close the call. Who am I to argue?

Thanks & regards,

Chele