RE: Inventory Month End Close

One thing I do to get a dedicated (I use that term loosely) system is
disable all user profiles except for three people in IS.

Its a simple program that copies the user profiles to an outfile, then an
RPG program reads that file & writes a record to a source CL file called
STOPCL & another record is written to source CL file called STARTCL.  The
data written to these two files consists of CHGUSRPRF UserID
STATUS(*ENABLED) for the STARTCL file & STATUS(*DISABLED) for the STOPCL
file.  These files are then copied to my library from QTEMP and compiled.
This CL program then calls the STOPCL program which keeps people from
signing on to the 400.  I don't change any of the "Q" user profiles & we
also have changed all the default passwords for the IBM supplied user
profiles.  I then have a WRKJOBSCDE entry for STARTCL that I change to run
at 23:55 of the night that month end is run which I must manually
(ADDJOBSCDE would automate it when I have time) change once a month.  It's
all part of the Month End work instructions & is not forgotten because of
that.  I still have to manually make sure all jobs & users have signed
off/ended before we start the month end process.  Most people are pretty
good about getting off for the month end process.  I don't consider it a big
deal.

For the INV900 Month End process, an SSA Help Line person faxed me a list of
the files that need to be checked for "locks" before this job is run.  I
wrote a CL program that does a WRKOBJLCK for each of these files to a spool
file & then look through 14 spool files for locked members.  This whole
process must take all of a minute or less to do & is mandatory because we
got caught once with a member lock on one of the files.  It meant aborting
the month end process, reloading the BPCSF library from tape, & starting
month end over once the locked file was fixed by killing the locking job.
The files to be checked are IIM, IWI, ILI, IWM, ITH, ILN, RCM, RTX, RTP,
SIH, SIL, SSH, SSM, & YCL.

There are a multiple ways to what is being asked.  This is just my approach
to trying to automate what I can.  Is it the best?  I don't know but it
works & why should I try to fix something that runs once a month for a small
amount of time & works?

Any one that has improvements upon what I'm doing, I'm open for suggestions.
If anyone wants the source (1 CL & 1 RPG) program, I will e-mail them off
line.

Dennis

"One never notices what has been done; one can only see what remains to be
done." -- Marie Curie 
"I love deadlines.  I especially like the whooshing sound they make as they
go flying by."  Dilbert's Words Of Wisdom:

Dennis Munro    
Badger Mining Corporation
dmunro@badgerminingcorp.com <mailto:dmunro@badgerminingcorp.com> 
(920) 361-2388


        -----Original Message-----
        From:   Ben Colletti [SMTP:bcollett@tokheim.com]
        Sent:   Tuesday, February 01, 2000 4:16 PM
        To:     BPCS-L@midrange.com
        Subject:        Inventory Month End Close

        Here's my problem.
        We are using version 6.1, client server, on an AS400.  Every month
when I try to
        run the inventory month end close program (INV903) it does not
successfully
        complete.  When I ask out MIS manager why, he tells me that there
probably is
        someone on the system.  I have asked him to shut down the system to
all users
        except myself while this program is run but for some reason he can't
figure out
        how to do that.  I'm not a techie but there must be a way that I can
run this
        program on a regular monthly basis and be assured that it will
successfully
        complete.  Does anyone else out there have this problem and how can
it be
        solved?  Please answer in language that an idiot like me can
understand so I can
        relay it to MIS.
        Thanks,
        Ben Colletti
        bcollett@tokheim.com
        Materials Manager
        Gasboy International Inc.

        +---
        | This is the BPCS Users Mailing List!
        | To submit a new message, send your mail to BPCS-L@midrange.com.
        | To subscribe to this list send email to BPCS-L-SUB@midrange.com.
        | To unsubscribe from this list send email to
BPCS-L-UNSUB@midrange.com.
        | Questions should be directed to the list owner: dasmussen@aol.com
        +---
+---
| This is the BPCS Users Mailing List!
| To submit a new message, send your mail to BPCS-L@midrange.com.
| To subscribe to this list send email to BPCS-L-SUB@midrange.com.
| To unsubscribe from this list send email to BPCS-L-UNSUB@midrange.com.
| Questions should be directed to the list owner: dasmussen@aol.com
+---