MVSFORUMS.com

k2 · Beginner Joined: 21 Jan 2004 Posts: 7 Topics: 3

I am trying to conditionally execute a second job, based on the return code of the first job, where the JCL is submitted via Dialog Manager. I have had success with the basic code outside of a skeleton, but I cannot get the )SEL block to recognize my IF-THEN JCL statement:

kolusu · Posted: Fri Apr 16, 2004 10:38 am Post subject:

K2,

Are you writting the generated JCL to a file or are your directly sending it to the intrdr?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

k2 · Beginner Joined: 21 Jan 2004 Posts: 7 Topics: 3

It's being directly sent to the intrdr.

K2

kolusu · Posted: Fri Apr 16, 2004 11:28 am Post subject:

K2,

The default properties of sysout are recfm=fba and the lrecl is dependent on the program that is being used. Since the recfm is FBA the first byte is a carriage control character and that might be causing the error. Hardcode RECFM=FB on the output statement while generating the jcl. Let us say your output dd name is SYSUT2 then code as follows.

k2 · Beginner Joined: 21 Jan 2004 Posts: 7 Topics: 3

Hi Kolusu,

Thanks for the different options. Unfortunately, the system doesn't even seem to get to the SYSUT card. When I preview the code generated by the ISPF Dialog Manager, it ends with the first SYSIN card. It completely ignores everything after that. If I remove that single statement, the preview shows all the remaining lines in the Select Block. It just seems that there is a conflict between the )SEL statement and the IF-THEN JCL statement that seems to be the problem.

Thanks again,
K2

Mervyn · Posted: Fri Apr 16, 2004 2:40 pm Post subject:

K2, I'm just clutching at straws here, but could you please post the whole of the first part of your skeleton (i.e. don't give us the "....."; give us the full line).

Chances are it won't help, but ......
_________________
The day you stop learning the dinosaur becomes extinct

Bill Dennis · Posted: Fri Apr 16, 2004 4:13 pm Post subject:

Since your problems relate to the IF statement, perhaps you could revert to the old method and use COND=(4,LE) on STEP2. Perhaps ISPF has an error seeing the IF statement as JCL.

Maton_Man · Beginner Joined: 30 Jan 2004 Posts: 123 Topics: 0

Change your IF logic to use LE rather than <=

< is a symbol which has meaning in skeletons (much in the same way that an & indicates the beginning of a variable name).
_________________
My opinions are exactly that.

RobertL · Posted: Mon Apr 19, 2004 7:28 am Post subject:

Hello K2,
Your CLIST/REXX program needs to do some error checking after executing the FTINCL service to detect any errors that occur. Other than that, the skeleton should be changed from:

Maton_Man · Beginner Joined: 30 Jan 2004 Posts: 123 Topics: 0

Hey Robert, don't you read before posting?

I already said that (albeit in fewer words). Smile

_________________
My opinions are exactly that.