IBM Mainframe Forum

by **Steve Coalbran** » Mon Oct 17, 2016 6:20 pm

I am struggling to run JCLCHECK on our development system (MVSD) to scan JCL which will execute on our production system (MVSP).
I am requesting %EJCK PANEL to prompt for options.

Select all

EDIT       P123456.USER.JCL(P123456T) - 01.04              Columns 00001 00072 
Command ===> ejck panel                                       Scroll ===> CSR  
****** ***************************** Top of Data ******************************
000001 //P123456T JOB (GA,P),'TRAGEDY',CLASS=C,MSGCLASS=E,REGION=4M,           
000002 //         SCHENV=PMVSP                                                 
000003 //JOBPROC  JCLLIB ORDER=(SYS5.PROCLIB)                                  

Names changed to protect the guilty!

Select all

--------------------- CA JCLCheck 12.0 OPTIONS --------------------------   
COMMAND ===>                                                                
 DATE: 2016/10/17              USER: P123456                     TIME: 14:09
                                                                            
STANDARD - Name of STANDARD for compliance checking              =>         
             =>           =>           =>           =>           =>         
             =>           =>                                                
STDREXX  - Name of REXX EXEC for compliance checking             =>         
SYNTAX   - Do syntax checking of JCL                             => Y       
RUNTIME  - Do runtime checking of JCL (all runtime checks)       => Y       
REMOTE   - Do remote validation of JCL                           => Y       
      => E   => P123456.USER.JCL(REMVAL)                                    
RESOLVE  - Resolve external variables by calling product. . . .  => TWS     
   => B   DSN=> SYS5.EQQ.OPCT.PARM                            MEM=> EQQYPARM
EDCHKLB  - Generate ISPF labels for lines with errors            => N       
EDCHKSL  - Display summary of errors                             => N       
SECURITY - Do Security Checking                                  => N       
USER     - Specify Userid for security checking                  =>         
CA7      - Scheduled override criteria.... ID =>     DT =>       TM =>      
                                                                            
    BYPASS THIS SCREEN NEXT TIME................................ => Y  

The remote values are:

Select all

EDIT       P123456.USER.JCL(REMVAL) - 01.13                Columns 00001 00072 
Command ===>                                                  Scroll ===> CSR  
****** ***************************** Top of Data ******************************
000001 LOCAL MVSD                                                              
000002 SOURCE MVSD                                                             
000003 TARGET MVSP                                                             
****** **************************** Bottom of Data ****************************

The TWS controls:

Select all

 BROWSE    SYS5.EQQ.OPCT.PARM(EQQYPARM) - 01.12       Line 00000000 Col 001 080 
 Command ===>                                                  Scroll ===> CSR  
********************************* Top of Data **********************************
/*-------------------------------------------------------------------*/         
/*- CHANGELOG                                                       -*/         
/*-------------------------------------------------------------------*/         
/* DATE             DESCRIPTION                                     -*/         
/* 130125 ADDED SUBSYS, REHMOST AND REMPORT                     HRE -*/         
/*                                                                  -*/         
/*                                                                  -*/         
/*-------------------------------------------------------------------*/         
INIT SUBSYS(OPCT)                                                               
     TRACE(00)                                                                  
     CWBASE(00)                                                                 
     HIGHDATE(711231)                                                           
     REMHOST('OPCTSRVP.SYS.NB.SE')                                              
     REMPORT(31207)                                                             
******************************** Bottom of Data ********************************

I get error:
ISRE891 EJCK macro set a return code of 12
and no additional information.

by **NicC** » Mon Oct 17, 2016 7:53 pm

Hi Steve

I presume you read this?

z/OS z/OS 2.2.0 ISPF z/OS V2R2 ISPF Messages and Codes PDF messages ISRE891

ISRE891 aaaaaaaa macro error - aaaaaaaa macro set a return code of bbbbbbbb
Explanation

The EDIT macro set a return code greater than 11. Return codes greater than 11 are considered error codes.
User response

Determine the cause of the error. Contact the programmer if the error code should be less than 12.
Programmer response

The code may be changed if the return code should be less than 12.

Seems like the EJCK macro is up the Swanney but I have no idea what it looks like or even if it is a home-grown one or one that has been tailored, perhaps incorrectly.

by **Robert Sample** » Mon Oct 17, 2016 7:57 pm

The CA-JCLCHECK manual indicates

12
Indicates the normal end of CA JCLCheck
Note: Serious error messages are issued.

You may need to consult your site support group to find out how to get the serious error messages displayed at your terminal, or where they are showing up.

by **Steve Coalbran** » Mon Oct 17, 2016 8:03 pm

Hi Nic
EJCK is CA's JCLCHECK.
I works fine for the LOCAL JCL checking but the REMOTE bit leaps across to another MVS, or is supposed to.I am sure that I have some parameter wrong!
Just hoping someone not as close to it bight spot it and say "Idiot! Youve got xxxxx in the wrong place or whatever!"
You're still keeping your hand in the fora I see? Any more jobs found, in Sweden or elsewhere?
Ideally I suppose you want a contract in Thailand?!

by **Steve Coalbran** » Tue Oct 18, 2016 10:29 am

Robert Sample wrote:The CA-JCLCHECK manual indicates
Indicates the normal end of CA JCLCheck
Note: Serious error messages are issued.
You may need to consult your site support group to find out how to get the serious error messages displayed at your terminal, or where they are showing up.

Consulting my on-site support was the first thing I did after (as always) combing through the manuals.
The 'help' they supplied did not 'help', rather it was merely to quote me the manual.

Next I copied the CLIST (voyage into the past, we virtually stopped using them in the 80s) into my own EXEC library and added a CONTROL MAIN MSG THISLIST THATLIST which commuted the error for no obvious reason to an RC=28!
The manual says that the REMVAL controls are incorrect.
Well, there are only 16 possible combinations for 3 values between 2 MVS systems, some being fairly meaningless, but I am pretty sure I desperately tried them all.
I will systematically retry each today.

The other half of the problem, if I ever get past the REMOTE one, is getting the TWS variables resolved.
I have taken as my TEST job an example from production with several SETVARs and SETFORMs in order to test this.
Clearly my parameter content here is incorrect but this is what I was told to use by my "On-site support". :roll:

by **Steve Coalbran** » Fri Dec 16, 2016 5:28 pm

This has been solved. I was using completely the wrong parameters.
I now do the following:

RESOLVE the JCL using the CAZ1PRES program which uses the LOCAL TWS to resolve //*%OPC controls.

IDENTIFY if there are any procedure calls in the JCL.
If so I display a screen for the user to enter which of these has been locally modified. They enter the location of the procedure. We call them DLs (Development Library). The DSN will probably be related to the JCL of the job by its low-level-qualifier.
I import these as instream procedures after any appropriate modifications to match PROC & PEND labals to the membername.

REMOTEly execute the EJCK. Because this is flaky and returns 28 sometime (don't ask!) it can take repeated attempts.
I try up to 9 attempts then give up. The user may re-execute this (if they have the patience) or try again later.
EJCK uses the CAGTS server to communicate from one server tothe other and this drops for no apparent reason frequently and needs to be recycled.

And all this plus a couple of colour-parsers to extend the ISPF HILITE to colourize //*%OPC control statements.

Capture.GIF

This all amounts to asomewhere over 2000 lines of REXX coding.

by **Steve Coalbran** » Thu Jan 26, 2017 5:20 pm

I have got this to work but I believe that %EJCK PANEL should be able to RESOLVE the //*%OPC controls on its own from this panel.
The trouble is that after scouring the manuals I cannot find any examples for the control cards to use.
Nor can I find anyone who has ever done this.
/Steve :roll:

by **Steve Coalbran** » Fri Feb 10, 2017 12:52 pm

I am still working on trying to get the %EJCK macro to RESOLVE //*%OPC controls (ie. SETVARs) using the LOCAL TWS.
I have asked possibly 50 people if they have achieved this.
Nobody seems to have managed it.
Can it be this difficult?

I tried posting to CA direct but they don't apparently either read/answer mails or know the answer.
Perhaps it has never worked?

Anybody done this? Pleeeeeeeeeeeeeeeeeease send me your control-cards (suitably obfuscated to disguise sensitive information of course!)
(I still use the term 'cards' as that's what I started my programming on in 1976, if you ignore a 2-week programming course at school using punch-tape on an ICL box in 1968!)

IBM Mainframe Forum

CA - JCLCHECK as EJCK REMOTE option

CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option

Re: CA - JCLCHECK as EJCK REMOTE option