INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

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.

Jobs

Knowing when in Text or Production

Knowing when in Text or Production

(OP)
I need to release JCL from online program. Need to know to release Test JCL or Production JCL.  Any system ID I can test?

RE: Knowing when in Text or Production

You can always use EXEC CICS ASSIGN SYSID() or EXEC CICS ASSIGN APPLID(). Most shops have a naming standatd with a P or T in one of the positions.

But changing behaviour depending on which region you run in is always a bad idea - how can your testers sign off on something they have never been able to run? Maybe you could change the program, and then change it back? What kind of test is that?

The best option is to minimise your JCL to a few lines that invokes a procedure (with a parameter for &ENV), and keep it on a VSAM file or database table that your program can read. The procedure gets stored on your PROCLIB, and hence can be changed at will without modifying your program. In this way you can have production/test/UAT versions of your VSAM file or table, and your program always remains the same and is not dependent on where it is running. It also means you don't have any hard coded JCL embedded in your program.

Steve

"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)

RE: Knowing when in Text or Production

(OP)
Used EXEC CICS ASSIGN APPLID()and it worked.

Thanks Steve.

RE: Knowing when in Text or Production

Yes, I know it works.

My point was that it's NOT a well architected solution, and it's not testable.

Steve

"Every program can be reduced by one instruction, and every program has at least one bug. Therefore, any program can be reduced to one instruction which doesn't work." (Object::PerlDesignPatterns)

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!

Resources

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