>I was asking if the INPUT command, as you have it:
>> >        INPUT SJLINE < SJMSG
>is serially reading SJMSG. I am not familiar with this behavior for INPUT,
>and thought of hitting reply instead of just doing a quick and dirty test at
>the CI prompt. Call me lazy; all I could do is agree.
>
>I know what a job stream is, even without the obligatory !JOB statement, and
>I know what a user defined command file is (to stick with MPE jargon; I also
>know what a UDC, awk program, shell script, perl script, and batch file are).
>In fact, this command file does some odd testing for = conditions, violating
>Occam's razor by needlessly multiplying entities. I don't know if you would
>welcome a discussion of these issues; I've noticed that 'ownership' can make
>some people surly about criticism.
>
>Can your eMail system include my last message in your reply? I had to find my
>'Sent Mail' to know what this is about.
>
>----------
>From:  Mike Hornsby[SMTP:[log in to unmask]]
>Sent:  Friday, November 08, 1996 9:39 AM
>To:    Stigers, Gregory - ANDOVER
>Subject:       Re: Aborting users at backup time
>
>no, this is a command script, you can either:
>
>1. include it in a job as jcl,(need to put a ! or : in col 1)
>2. put it in a file as a command script, I would put a lock word on the
>file to prevent accidental execution.
>
>also, the user executing this script needs to be allowed the abortjob
>command
>or use some type of god program.
>
>> >SETVAR EXCEPT1 "MANAGER.SYS"
>> >SETVAR EXCEPT2 "OPERATOR.SYS"
>> >ECHO THIS WILL ABORT ALL SESSIONS AND JOBS, WITH THE EXCEPTION OF:
>> >ECHO   THE CURRENT JOB OR SESSION!
>> >ECHO   !EXCEPT1
>> >ECHO   !EXCEPT2
>> >ECHO
>> >   IF FINFO("SJMSG",0)
>> >      PURGE SJMSG,TEMP
>> >   ENDIF
>> >   BUILD SJMSG;REC=-79,,F,ASCII;TEMP;MSG
>> >   FILE SJMSG=SJMSG,OLDTEMP
>> >   SHOWJOB JOB=@;*SJMSG
>> >   SETVAR COUNT FINFO("SJMSG",19)
>> >   SETVAR MYJOB "#" + "!HPJOBTYPE"+ "!HPJOBNUM"
>> >   WHILE FINFO("SJMSG",19) <> 0
>> >        INPUT SJLINE < SJMSG
>> >        IF STR(SJLINE,1,1) = "#" THEN
>> >        ECHO !SJLINE
>> >            IF STR(SJLINE,1,LEN(MYJOB)) = MYJOB THEN
>> >                 ECHO  !MYJOB NOT ABORTED! CURRENT SESSION!
>> >            ELSE
>> >                 IF POS(EXCEPT1,SJLINE) <> 0 THEN
>> >                       ECHO !EXCEPT1 EXCEPT#1 NOT ABORTED!
>> >                 ELSE
>> >                      IF POS(EXCEPT2,SJLINE) <> 0 THEN
>> >                            ECHO !EXCEPT2 EXCEPT#2 NOT ABORTED!
>> >                      ELSE
>> >                            SETVAR C STR(SJLINE,1,6)
>> >                            SETVAR B "ABORTJOB "
>> >                            SETVAR B B + C
>> >                            ECHO !B
>> >                            !B
>> >                            CONTINUE
>> >                      ENDIF
>> >                ENDIF
>> >            ENDIF
>> >        ENDIF
>> >   ENDWHILE
>> >
>
>