Re: TCPIP SMTP receiver issues (SYSTEM-F-NOLINKS) - VMS

This is a discussion on Re: TCPIP SMTP receiver issues (SYSTEM-F-NOLINKS) - VMS ; helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply) wrote on 10/08/2007 03:24:03 PM: > In article , JF Mezei > writes: > > > Investigating while I wasn't getting emails from a specific store, I > > first found that my TCPIP$SMTP_RECV_RUN.LOG ...

+ Reply to Thread
Results 1 to 2 of 2

Thread: Re: TCPIP SMTP receiver issues (SYSTEM-F-NOLINKS)

  1. Re: TCPIP SMTP receiver issues (SYSTEM-F-NOLINKS)

    helbig@astro.multiCLOTHESvax.de (Phillip Helbig---remove CLOTHES to reply)
    wrote on 10/08/2007 03:24:03 PM:

    > In article <18c03$470a825e$cef8887a$789@TEKSAVVY.COM>, JF Mezei
    > writes:
    >
    > > Investigating while I wasn't getting emails from a specific store, I
    > > first found that my TCPIP$SMTP_RECV_RUN.LOG log files were at version
    > > 32767 ... :-( so no new logfiles were being created (but I am still
    > > receiving new mail though , interesting development !)

    >
    > From my nightly batch job:
    >
    > $ @ CLUSTER_MANAGER:LOWER_VERSIONS.COM -
    > DISK$ALPHASYS_3:[SYS0.TCPIP$SMTP]TCPIP$SMTP_RECV_RUN.LOG
    >
    > (See below for the code, handy in other places as well.) I get up to
    > 5000 or 6000 in a day.
    >
    > > SMTP_RECV_MAIL: getpeername failed: vaxc$errno: %SYSTEM-F-NOLINKS,

    >
    > I asked the same question here a while back.
    >
    >

    ---------8<-------------------------------------------------------------------
    >
    > $ IF P1 .EQS. "" .OR. F$ELEMENT(1,";",P1) .NES. ";" .OR. -
    > F$LOCATE("*",P1) .NES. F$LENGTH(P1) .OR. -
    > F$LOCATE("%",P1) .NES. F$LENGTH(P1) -
    > THEN GOTO USAGE
    > $ LV := SYS$SCRATCH:LV.TMP
    > $ DIR/NOHEA/NOTRAI/OUT='LV' 'P1'
    > $ CLOSE/NOLOG LV
    > $ OPEN/READ LV 'LV'
    > $ I = 0
    > $LOOP1:
    > $ READ/END=DONE1 LV FILENAME
    > $ I = I + 1
    > $ FILENAME'I' = FILENAME
    > $GOTO LOOP1
    > $DONE1:
    > $ CLOSE/NOLOG LV
    > $ DELETE 'LV';*
    > $ J = 0
    > $LOOP2:
    > $ J = J + 1
    > $ RENAME/LOG &FILENAME'I' 'F$ELEMENT(0,";",FILENAME)';'J' ! quick hack
    > $ I = I - 1
    > $ IF I .EQ. 0 THEN GOTO DONE2
    > $GOTO LOOP2
    > $DONE2:
    > $ EXIT
    > $USAGE:
    > $ TYPE SYS$INPUT
    >
    > P1 (required): name of file (no wildcards, no version numbers)
    >
    > This procedure will rename file ;N to ;1, ;N+1 to ;2 etc (N: lowest

    version)
    > $ EXIT
    >

    Couldn't you make use of the fact that FILENAME.TYP;-0 is the lowest
    version?
    What will this do if there are actually 32767 files extant?

  2. Re: TCPIP SMTP receiver issues (SYSTEM-F-NOLINKS)

    In article
    ,
    norm.raphael@metso.com writes:

    > Couldn't you make use of the fact that FILENAME.TYP;-0 is the lowest
    > version?


    Probably. On the other hand, a) it was just a quick hack and b) it is
    possible that ;-0 gets purged while the procedure is running.

    > What will this do if there are actually 32767 files extant?


    I execute it once a day and only get up to about 5000....


+ Reply to Thread