Thus it was written in the epistle of Ed Stouder,
>
> Here is a quick script to do the above.
>
Had to make a few changes to the script to make it happy with my 5.5 PP7
system.  Here's that version:

IF FINFO("SJMSG",0)
  PURGE SJMSG,TEMP
ENDIF
IF FINFO("PFILE",0)
  PURGE PFILE,TEMP
ENDIF
BUILD SJMSG;REC=-79,,F,ASCII;TEMP;MSG
FILE SJMSG=SJMSG,OLDTEMP
SHOWJOB JOB=@S;*SJMSG
SETVAR COUNT FINFO("SJMSG",19)
WHILE FINFO("SJMSG",19) <> 0
  INPUT SJLINE < SJMSG
  IF STR(SJLINE,1,2) = "#S" THEN
    SETVAR SESS STR(SJLINE,1,7)
    SETVAR THEDIR "/3000devs/DEVICES/"
    SETVAR SDEV STR(SJLINE,19,4)
    SETVAR THEFILE " "
    SETVAR THEFILE "    " + SDEV
    SETVAR THEFILE REPL(THEFILE," ","0")
    SETVAR WFILE THEDIR + THEFILE
    SETVAR SDATE FINFO(WFILE,"CREATED")
    ECHO SESSION !SESS SIGNED ON, ON !SDATE >>PFILE
  ENDIF
ENDWHILE
PRINT PFILE

And remember that this technique does not work with DTC ports.

Ted
--
Ted Ashton ([log in to unmask]), Info Sys, Southern Adventist University
          ==========================================================
In my opinion, a mathematician, in so far as he is a mathematician, need not
preoccupy himself with philosophy -- an opinion, moreover, which has been
expressed by many philosophers.
                        -- Lebesgue, Henri (1875 - 1941)
          ==========================================================
         Deep thoughts to be found at http://www.southern.edu/~ashted