|
---------- > From: Robert A. Rogerson <rogerson@interlog.com> > To: JBAUSERS-L@midrange.com > Subject: Re: JBA Batch Jobs > Date: Tuesday, February 03, 1998 9:30 PM > > Hi Jim, back again... > > I only have access to the style version of the software at present but it > should be similar to then base software. In style the batch allocation > program (AP315) is called from the task. More than likely there is a > similar OE315 program. > > When this task is investigated there is only a interactive program. This > program prompts the user for the desired allocation parameters and then > submits the actual batch program AP320CLP (probably OE320CLP with non style > versions). As this set up stands the task can not be scheduled. There > must be a batch program in order to schedule the task. > > In order to allow this job to be scheduled AP315/OE315 requires > modification to separate the prompt screen for the submission of the batch > job. In our case a new program AP315U was created whi9ch had the sole > function of displaying a screen to receive the user's parameters and update > the LDA with these values. The actual submission of the batch program was > moved to the task and AP320CLP/OE320CLP now became the batch job for a new > task which was created in the customer environment. Below is a snippet of > the code modification that was needed to implement the previous steps. > > H 1 Y > ***************************************************************** > * * > * SYSTEM NAME - JBA APPAREL * > * * > * PROGRAM NAME - AP315 * > * * > * WRITTEN BY - G.JOHNSON * > * * > * DATE - APRIL 1990 * > * * > * PROGRAM DESCRIPTION - SELECT FOR BATCH ALLOCATION * > * * > ***************************************************************** > /EJECT > ***************************************************************** > * MODIFICATION CONTROL Scan on FIX NO * > * ~~~~~~~~~~~~~~~~~~~~ * > * * > * FIX NO. BY DATE DESCRIPTION * > * ~~~~~~~~ ~~ ~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ * > * DSI001 JXH 03/09/90 ALLOW ALLOCATION OF FULL PRODUCT * > * CODES WITH SCALING FACTORS * > * * > * STV2_39 CM2 1 Oct 93 Looping on F8 from scaling factor * > * for full item level * > * * > * ISS001 RAR 02/10/97 Change program so that the CL program* > * AP320CLP is not submitted by this * > * program but is the batch program * > * for Task 9020. * > * * > ***************************************************************** > .... > .... Code here... > .... > * Remove the submission of AP320CLP from this programISS001 > * and add it to task ST HAN 03 9020. ISS001 > C* > C* > C* SUBMIT BATCH ALLOCATION JOB > *----------------------------------------------------ISS001 > C*--------------------MOVEL'BATCHALL'L#JOBN-----------ISS001 > C*--------------------MOVE-'OC'------L#JOBN-----------ISS001 > C*--------------------MOVE-*BLANKS---L#PGID-----------ISS001 > C*--------------------MOVEL'AP320CLP'L#PGID-----------ISS001 > C*--------------------OUT--LDA------------------------ISS001 > C*--------------------CALL-'XA902'--------------------ISS001 > C*--------------------IN---LDA------------------------ISS001 > C*----------L#RTCD----CASEQ'**'------*PSSR------------ISS001 > C*----------L#RTCD----CASEQ'S*'------*PSSR------------ISS001 > C*--------------------END-----------------------------ISS001 > C MOVE ' Y' L#RTCD ISS001 > C OUT LDA ISS001 > C MOVE *ON *INLR ISS001 > C RETRN ISS001 > E002 C END > C GOTO MAIN10 > E001 C END > /EJECT > > Sorry about the alignment but you know it is with non proportional fonts... > > This was the only modification required in the interactive program. The > important thing is that L#RTCD is updated to ' Y' in the LDA before the > program ends. This indicated to Business400 to continue and submit the > batch program portion of the task. The new task is as follows: > > XA330 Interactive Program Generator System: > HANES > Maintain Tasks > > Application Task code Action > > ST HAN 03 9020 *UPDATE BESPOKE TASK > > Type changes, press Enter > > > > Description Batch Allocation > > > > Interactive program to process request . . AP315U > > Batch program to process request (if any) . AP320CLP > > Job name (if batch program) . . . . . . . . BATCHALLOC > > Initial return code for option . . . . . . > > Exclusivity . . . . . . . . . . . . . . . . Shared Use of Company > > Exclusivity group . . . . . . . . . . . . . > > Sub-task, Function List, Report Generator . 0 (0=Task, 1=Sub, 2=IPG > List, > Recovery program . . . . . . . . . . . . . 3=Rep Gen, > 4=Rati) > Pre-processing program . . . . . . . . . . > > Library list . . . . . . . . . . . . . . . Blank for default > > > > Task Job Queue/Library . . . . . . . . . . / > > Task Print Queue/Library . . . . . . . . . PRT01 / QUSRSYS > > Hold on Output Queue . . . . . . . . . . . 0 (1=Yes 0=No) > > F3=Exit F4=Browse F11=Delete F12=Previous F19=Where used > > F14=Task class F20=Task exclusivity > > > Remember that Hanes is using the style version of JBA software and AP > programs more than likely relate to the same OE programs. > > I hope this solves your problem. If not send me more details. Why JBA > sometimes submits jobs from interactive program and sometimes through the > batch portion of a task remains a mystery and may remain a mystery like > that of the Loch Ness monster. As for the comment from the JBA help line > that this strategy won't work maybe they should turn their attention to > solving the mystery of Nessy. (Just kidding). I think you will find this > works. Again, if not let me know and I'll help you solve it. > > Rob Rogerson +--- | This is the JBA Software Users Mailing List! | To submit a new message send your mail to "JBAUSERS-L@midrange.com". | To unsubscribe from this list send email to JBAUSERS-L-UNSUB@midrange.com. | Questions should be directed to the list owner: doug333@aol.com. +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
