RE: Save while Active -- SYSTEM21

Hey, no need to apologize for making a contribution...!!! I don't have a monopoly on the True Knowledge like some swami with the heavy-lidded eyes...!!! I had forgotten about that little G/L gottcha in the dtaara... Great point...

I sent a private reply to Theresa since I wanted to attach some text files for her to look at...

There is an excel spreadsheet floating around out there somewhere that shows all of the background jobs for all of the applications and how to start/stop them gracefully... If you want a copy of that document please send me a private request to jklipa@xxxxxxxxxxx and I'll send you a copy of that file... It's called "Back Ground.xls"...

Here is a small sample of what I sent Theresa as a .txt attachment... (Keep in mind our live environment code is TTC and we are using consolidated library names.)

Starting background subsystems...
2800 /********************************************************************/
2900 /* START SUBSYSTEM - GLBACK3TTC                                     */
3000 /********************************************************************/
3100              RUNAMTASK  APPL(GL) ENVN(TTC) RLSL(03) TASK(0001) +
3200                           PGM(GL952CLP) CONO('&&') USER(QPGMR)

5901 /********************************************************************/
5902 /*           SAVE EXISTING LIBRARY LIST                             */
5903 /********************************************************************/
5904              PUTLIBL
6000 /********************************************************************/
6100 /* START SUBSYSTEM - INBACK3TTC                                     */
6200 /********************************************************************/
6300              STRSBS     SBSD(JBATTCMODF/INBACK3TTC)
6400              MONMSG     MSGID(CPF0000)
6500
6600 /********************************************************************/
6700 /*           START JOB - IN_STKMON (STOCK)                          */
6800 /********************************************************************/
6900              RUNAMTASK  APPL(IN) ENVN(TTC) RLSL(03) TASK(0065) +
7000                           PGM(IN245SBM) CONO('&&') USER(QPGMR)

14800 /********************************************************************/ 14900 /* START SUBSYSTEM - OSLMJTTC */ 15000 /********************************************************************/ 15100 STRSBS SBSD(JBATTCMODF/OSLMJTTC) 15200 MONMSG MSGID(CPF0000) 15300 15400 /********************************************************************/ 15500 /* START JOB - MJ_CONTROL (TRANSACTIONS MANAGER) */ 15600 /********************************************************************/ 15601 SBMJOB CMD(RUNAMTASK APPL(PD) ENVN(TTC) RLSL(03) + 15602 TASK(5051) CONO('01') USER(QPGMR)) + 15603 JOB(MJ_CONTROL) JOBD(IPGAMP4/IPGAMP) + 15604 JOBQ(JBATTCMODF/OSLMJTTC) 15900 /* Note this Task has an override to the bespoke JOBQ...*/ 16000 /********************************************************************/ 16100 /* RESTORE LIBRARY LIST TO WHAT IT WAS */ 16200 /********************************************************************/ 16300 GETLIBL


Ending background subsystems...
2000 /********************************************************************/
2100 /* STOP  SUBSYSTEM - GLBACK3TTC                                     */
2200 /********************************************************************/
2300              RUNAMTASK  APPL(GL) ENVN(TTC) RLSL(03) TASK(0002) +
2400                           PGM(GL953CLP) CONO('&&') USER(QPGMR)

5200 /********************************************************************/
5300 /*           STOP  JOB - IN_STKMON (STOCK)                          */
5400 /********************************************************************/
5500              RUNAMTASK  APPL(IN) ENVN(TTC) RLSL(03) TASK(0070) +
5600                           PGM(IN245TRM) CONO('&&') USER(QPGMR)
5700
9400 /********************************************************************/
9500 /* STOP  SUBSYSTEM - INBACK3TTC                                     */
9600 /********************************************************************/
9700              ENDSBS     SBS(INBACK3TTC) OPTION(*CNTRLD)
9800              MONMSG     MSGID(CPF0000)

13300 /********************************************************************/ 13400 /* STOP SUBSYSTEM - OSLMJ */ 13500 /********************************************************************/ 13600 /********************************************************************/ 13700 /* STOP JOB - MJ_CONTROL (TRANSACTION MANAGER) */ 13800 /********************************************************************/ 13900 /* NOTE: THE TASK TO END JOB MJ_CONTROL IS NOT AVAILABLE AT THE */ 14000 /* CLIENTS CURRENT PTF LEVEL. AS A RESULT TASK 9005 HAS BEEN */ 14100 /* COMMENTED OUT UNTIL CLIENT IS AT APPROPRIATE PTF LEVEL. */ 14200 /* */ 14300 /***** RUNAMTASK APPL(PD) RLSL(03) TASK(9005) PGM(MJ599CLP) + */ 14400 /***** CONO('51') USER(QPGMR) ENVN(TTC) */ 14500 /********************************************************************/ 14600 /* STOP SUBSYSTEM - OSLMJ */ 14700 /********************************************************************/ 14701 CALL TTAMODS/MJ599AUTO 14800 ENDSBS SBS(OSLMJTTC) OPTION(*IMMED) 14900 MONMSG MSGID(CPF0000) Note that MJ599AUTO has been modified "TO ADD THE ENVIRONMENT CODE TO THE SETIPGLIBL CMD"... We're still at V3.5.1...!!!

If you're running any of the other IN jobs found on /INB then I would also use the tasks to start/stop those jobs too... As for the others, CS, PL and SL I simply start and stop the subsystems... We have other automated jobs to clear the *99 files and ACTF flags in most Master files while QINTER is shut down. Note - remember to NEVER clear SAP99 the SA locking file is actually SAP93...!!! Go figure...!!!

Note - The use of RUNAMTASK over EXCAMTASK shows how old this code really is...

I know there are consultants out there cursing my name for giving away all this free knowledge, sorry... If you want to send me hush money contact me privately... ;) LOL


----Original Message Follows----
From: Richard_Caldicott@xxxxxxxxxxxxxxx
Reply-To: System 21 Users <system21@xxxxxxxxxxxx>
To: System 21 Users <system21@xxxxxxxxxxxx>
Subject: RE: [SYSTEM21] Save while Active
Date: Wed, 5 Nov 2003 09:24:56 -0600

Sorry to jump in - I'm sure Jeff will answer with details of the task
numbers for inventory and manufacturing, but I wanted to mention the G/L
subsystem.  There is a flag on a data area (pos 11 in GLSBSDTA) that is
used to ensure the G/L background job is not running when certain rebuilds
are being run (e.g. G/L Hierarchies).

Basically the job wakes up from sleep and immediately checks this flag. If
it is set on (say a rebuild is running), the system goes back to sleep. If
the flag is not set on then the flag is set on and then the job looks for
journals awaiting update.  If it can't find any for update, (or when it
has finished updating), the flag is set off and the job goes in sleep
mode.

It is possible that with an ENDSBS that the job ends during one of these
checks, leaving the flag set on.  When you start the subsystem again, the
job goes active and appears to be working - sleeping, waking, running,
sleeping - but all it is doing is checking the flag and going back to
sleep.  I have known this to happen for several days before someone
realized that the G/L was not being updated.

Tasks GL  03  0001  and GL   03  0002 should be used to start and end the
subsystems.

Richard

_________________________________________________________________ Send a QuickGreet with MSN Messenger http://www.msnmessenger-download.com/tracking/cdp_games