• Subject: Re: Fw: JBA Batch Jobs
  • From: Jim Sehi <jsehi@xxxxxxxx>
  • Date: Thu, 05 Feb 1998 10:10:05

Thanks for all the research and information!  I was able to finally get it
to work on our end just prior to receiving your feedback.  The current task
for batch allocation on our end (which is not Style) is OE 03 task 3100.
It included an interactive program (to prompt for the stockroom) and a
batch program (which was submitted by AM).

I simply created a new task which was tied to a custom batch CL program.
This CL program set the stockroom to the LDA as expected by OE320CLP (batch
allocation)... then called OE320CLP directly.  It seems to work fine with
the exception that Machine Manager always seems to think the job ends
abnormally.

I have checked the database results, and it seems to work fine!
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
At 08:59 PM 2/4/98 -0500, you wrote:
>
>
>----------
>> 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.
>+---
>
>
******************************
Jim Sehi
Sr. Programmer/Analyst
Hach Company
5600 Lindbergh Drive
Loveland, Colorado  80538

Email:  jsehi@hach.com
Phone:  970-663-1377  x2538
Fax:    970-669-2932
******************************

+---
| 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 thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 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.