RE: Running Batch jobs in QINTER

[JOberholtzer@xxxxxxxxxxxx]

<snip>
HI I would like to know if there is a way to disable batch jobs from
running in Qinter.
Thanks,
Alison
</snip>

Alison,

With all due respect to those who would do body harm to anyone foolish
enough to run a batch job in an interactive subsystem,  you might find the
following approach somewhat more feasible.  Use the program provided as the
routing program instead of QCMD.  This program duplicates all of the
function of QCMD and will not allow a batch job into the subsystem for any
reason.  The really good news, they won't even get a job log.  The job will
run normally, finish almost instantaneously, and provide no clue as to why
nothing was done.  (almost as good as an old fashioned beheading)

If you need more information about how to implement this contact me
privately.

This is from a COMMON talk I give (and will reprise it at the COMMON in
March)  called Advanced Work Management.  If you went to COMMON in Denver
the handout is on the COMMON web site for all paid attendees.



        PGM

        DCL    &ATNPGM    *CHAR LEN(10)
        DCL    &ATNPGMALL *CHAR LEN(20)
        DCL    &ATNPGMLIB *CHAR LEN(10)
        DCL    &DEVICE    *CHAR LEN(10)
        DCL    &INLMNU    *CHAR LEN(10)
        DCL    &INLMNULIB *CHAR LEN(10)
        DCL    &INLPGM    *CHAR LEN(10)
        DCL    &INLPGMLIB *CHAR LEN(10)
        DCL    &NBR       *CHAR LEN(6)
        DCL    &TYPE      *CHAR LEN(1)
        DCL    &USER      *CHAR LEN(10)


        RTVUSRPRF  INLPGM(&INLPGM)   INLPGMLIB(&INLPGMLIB) +
                   ACGCDE(&ACGCDE)   USRCLS(&USRCLS)       +
                   ATNPGM(&ATNPGM)   ATNPGMLIB(&ATNPGMLIB) +
                   INLMNU(&INLMNU)   INLMNULIB(&INLMNULIB)

        CHGVAR     VAR(&CTLSBS) VALUE(%SST(&CTLSBSD 1 10))

        RTVJOBA    JOB(&DEVICE) USER(&USER) NBR(&NBR) TYPE(&TYPE)
        CHGVAR     &USRCDE VALUE(%SST(&ACGCDE 13 3))

        IF (&TYPE *EQ '1') THEN(DO)
             IF (&ATNPGM *EQ '*SYSVAL') THEN(DO)
                 RTVSYSVAL QATNPGM RTNVAR(&ATNPGMALL)
                 CHGVAR &ATNPGM VALUE(%SST(&ATNPGMALL 1 10))
                 CHGVAR &ATNPGMLIB VALUE(%SST(&ATNPGMALL 11 10))
             ENDDO
             IF (&ATNPGM *EQ '*ASSIST') THEN(DO)
                 CHGVAR &ATNPGM VALUE(QEZMAIN)
                 CHGVAR &ATNPGMLIB VALUE(QSYS)
             ENDDO
             IF (&ATNPGM *NE '*NONE') THEN(DO)
                 SETATNPGM &ATNPGMLIB/&ATNPGM
             ENDDO
             IF (&INLPGM *NE '*NONE') THEN(DO)
                 CALL &INLPGMLIB/&INLPGM
             ENDDO
START:       IF (&INLMNU *NE '*SIGNOFF  ') THEN(DO)
                 GO &INLMNULIB/&INLMNU
             ENDDO
             IF (&INLMNU *EQ '*SIGNOFF  ') THEN(DO)
                 SIGNOFF
             ENDDO
             GOTO START
        ENDDO

       CHGJOB LOG(4 00 *NOLIST)
        ENDJOB     JOB(&NBR/&USER/&DEVICE) OPTION(*IMMED)

        ENDPGM

Jim Oberholtzer
Senior Technical Architect
Computech Resources, Inc.
Phone:  262/785-8111

IBM /I-B-M/
Once upon a time, the computer company most hackers loved to hate; today,
the one they are most puzzled to find themselves liking.
From:  www.tuxedo.org