×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

MSB460 EXECUTION

MSB460 EXECUTION

MSB460 EXECUTION

(OP)
MSB460 Production stats Model update is called by MSO435 during update of logsheets. When it goes into the MSF080 file viewed in MSO083 it is has an 'N' process-status. I want this program to be executed and to leave my report queues immediately for example 'Picking Slips'. What do I do?

RE: MSB460 EXECUTION

You may need to raise a w/o with Mincom to change the calling program so that the request for MSB460 is created with status 'I' instead of 'N'. This will cause the program to execute and exit.

RE: MSB460 EXECUTION

(OP)
Calator

I tried to do this without MINCOM support I changed a Cobol program mso435.cbl were start-option is required I changed the 'I' to an 'N' still this did not help the report simply freezes with the 'I' this time any other ideas.

RE: MSB460 EXECUTION

I can see what you're saying, tried it out myself, sorry - no idea. You probably know that as it stands in the original setup as 'N', it will be picked up and run during the overnight, it will not stay hanging forever.

RE: MSB460 EXECUTION

I've tackled this same problem before.  Put the request up with a status of 'I' and create a script which is called by cron say every 15 minutes to 'mimsrts MSB460'.  The downside is you'll have to manage any output yourself as it won't be automatically spooled.

If you're running Tuxedo your script probably should be a call to 'bec.pl' instead of 'mimsrts'.  Your command line would look something like:

'bec.pl -stream msb460_stream -task MSB460'  If you go down this path you'll need to create a new stream in Autosys and the batch.tbl.

Good luck.

RE: MSB460 EXECUTION

I'd try doing what the picking slip processing does. e.g. Try the following (this macro call I found in mso142.cbl, section 93210-SUBMIT-PSLIP-REQUEST, and another example in mso62p.cbl which actually checks the value of the return code, section 3210-REQUEST-FOR-PRINT):

  EXEC SUBMIT-BATCH
       PROGRAM     (program)
       RETURN-CODE (return code)
  END-EXEC.

The mso62p.cbl example also has the call to mss080 in the preceding code which is similar to this mso435.cbl code.

RE: MSB460 EXECUTION

Do you really want to alter source code? If so, put in a user exit, otherwise you may run into support problems.

RE: MSB460 EXECUTION

You can take care of it with appropriate entries in the batch.tbl, depending on which version you're on......

RE: MSB460 EXECUTION

(OP)
How can this be done in version 4.1/4.3

RE: MSB460 EXECUTION

The problem here is that submitting of any batch job to run automatically without altering source code.

In a Mincom-TP environment, the TP will "detect" jobs that are submitted for execution. In a Tuxedo/BEC world, you can invoke these automatically by simply firing the BEC trigger that resides on the database table MSF080 as follows:

       UPDATE MSF080 SET creation_date = creation_date WHERE prog_name = <program_name>; This won't work in later versions of BEC though as the trigger is removed.

For Mincom-TP based systems, your best bet is to simply invoke the job manually via a 'cron' like task every, say, 5 minutes or so by directly calling either the mimsoci task or the mimsrts task as indicated.

If anyone needs some script assistance, let me know.

To avoid source code changes, you could even go so far - to specifically solve this problem - of adding a trigger to your MSF080 table to fire ONLY when the job inserted is MSB460 and then take the appropriate action to invoke the job from the command line. Later versions of MIMS and ELLIPSE all handle this for you.


Regards,

SteveC
Mincom.


Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login


Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close