×
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

MSO14S user Exit: Warning message on hazarduos mat

MSO14S user Exit: Warning message on hazarduos mat

MSO14S user Exit: Warning message on hazarduos mat

(OP)
Hi,


I need to write a user exit for MSO14S (Issue Requision), which checks catalogue if the material is flagged as 'hazarduos' and if yes, displays a warning message, allowing the user to proceed.

MSO14S.Cbl as for MIMS 4.1
I have inserted my user exit at the end of 3100 paragraph (display item warnings). My code does not work as expected, I have 2 problems:
1. after issuing my warning, the program exits without creating the requisition, ie it handles the warning as an error; my guess was that the "W" flag on the 'ER' error code would tell the program how to handle the event (a warning as opposed to an error) but this does not appear to be the case. Any ideas what I need to do?
2. my warning is issued 2 times even if there is only one item on the screen; if I have 2 items, the first stock code is displayed twice in the warning - no warning for the sencond item. any ideas?

MSO14S PROCEDURE/3100-DISPLAY-ITEM-WARNINGS/3100EXIT//B       OPG14SP1


here is my OPG14SP1 code (nutshell):
              IF MSF100-HAZARD-MAT NOT = SPACES
      
                    EXEC ERROR-SCREEN
                       MAP        (MSM14SA)
                       FIELD      (PART-NO1 (W30-SUB))
      *** Using standard error code 3649 which only says 'Warning'
      *** and adding our own text to the message:
                       ERROR      (3649)
                       ERRMESS-EXTRA ('Hazarduos Material. See MSDS:',
                                       PART-NO1I (W30-SUB) )
                       ERROR-GOTO (3100-EXIT)
                    END-EXEC
              END-IF.



  

RE: MSO14S user Exit: Warning message on hazarduos mat

In general, Mincom MSO programs which display warnings, keep track of a working storage variable (Y/N flag) (prefixed by W10- or WX10-) which determines if a warning should be displayed (set to Y), and then if the user has Ok'd the warning (set back to N).

I would have a look as MSO14S to see if it processed any other warnings (hopefully it does) and then try and code the new warning in a similar manner.

I'm fairly certain the X(error) or W(warning) indicator on the ER table codes have no particular smarts behind them. Nice try though  

RE: MSO14S user Exit: Warning message on hazarduos mat

(OP)
Thanks for the reply,
yes the trick here was to add some variables to keep track of Hazardous material warnings as you suggested, but it became even trickier, while the Mincom flags are in the comm area, where we cannot insert more variables with a user exit, we needed to use "exec scroll work store" to save our variables after each update

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