| View previous topic :: View next topic |
| Author |
Message |
juan00982
Beginner
Joined: 29 Jun 2004
Posts: 36
Topics: 13
Location: PR
|
 Posted: Thu Aug 26, 2004 10:50 am Post subject: Open/Close Online CICS VSAM File |
 |
|
Hi,
I need help on a JCL. I need to update a VSAM file through JCL, but before updating I need to release it from CICS so that I can work with it and then after I'm done with the file, release it so that CICS can work with it.
Can some one provide an example ?
Thanks in advance for all the help you can provide.
Juan
 |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
juan00982
Beginner
Joined: 29 Jun 2004
Posts: 36
Topics: 13
Location: PR
|
| Posted: Fri Aug 27, 2004 10:56 am Post subject: |
|
|
Kolusu,
Do you by any chance have the complete definition of IEFBR14
program ?. I tried the solution on the link that you gave me but what it did was it send a message to the console asking for a reply. Is there a parm that would turn it off
thanks for your help |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Fri Aug 27, 2004 11:35 am Post subject: |
|
|
Juan,
Specify N in column 72 ,so that JES2 will not write the command on the operator console.
IEFBR14 is a dummy program. It is a DO-NOTHING program.
| Code: |
IEFBR14 is an IBM utility module which performs two simple functions:
-it loads register 15 with a value of 0
-it then does a branch to the address in register 14
Since register 14 is the standard IBM program linkage "return
address" register, this immediately returns control to the calling
program. And since register 15 is the standard IBM program linkage
"return code" register, the return code passed back to the calling
program is always 0.
If the calling program is an application program which calls IEFBR14
according to standard IBM program linkage conventions, then IEFBR14
acts as a subroutine which immediately returns to the calling program
and always passes back a return code of 0. In other words, it
functions as a subroutine "stub" which can be useful in some testing
situations.
If IEFBR14 is executed as a standalone batch program; i.e.,
//JS10 EXEC PGM=IEFBR14
then it provides a convenient way to insert a job step into a given
job which is guaranteed to set a return code of zero. This job step
can also be used to catalog or delete specified data sets from
within a batch job. For example, to delete existing, cataloged
data set 'MY.DATA.SET', the following job step could be used:
//JS20 EXEC PGM=IEFBR14
//DD1 DD DSN=MY.DATA.SET,DISP=(OLD,DELETE)
|
Hope this helps...
Cheers
Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
juan00982
Beginner
Joined: 29 Jun 2004
Posts: 36
Topics: 13
Location: PR
|
| Posted: Fri Aug 27, 2004 12:01 pm Post subject: |
|
|
Kolusu
this is the jcl.
//IEFBR14 EXEC PGM=IEFBR14
// F CICSPRD2,'CEMT SET FIL(ITCDBP00) CLO DIS'
should it be
// F CICSPRD2,'CEMT SET FIL(ITCDBP00) CLO DIS N'
or
// F CICSPRD2,'CEMT SET FIL(ITCDBP00) CLO DIS' N
which one ??? |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Fri Aug 27, 2004 12:15 pm Post subject: |
|
|
Juan,
The last one is the right syntax, but just make sure that N is coded in the 72nd byte
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
juan00982
Beginner
Joined: 29 Jun 2004
Posts: 36
Topics: 13
Location: PR
|
| Posted: Fri Aug 27, 2004 12:58 pm Post subject: |
|
|
kolusu,
It's giving me an error.
F CICSPRD2,'CEMT SET FIL(ITCDBP00) CLO DIS' N
I've placed the N on the 72nd column and the jcl is abending with msg ( 3 IEFC605I UNIDENTIFIED OPERATION FIELD ).
can you tell me why it's giving me this error ? |
|
| Back to top |
|
|
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose
|
| Posted: Fri Aug 27, 2004 1:18 pm Post subject: |
|
|
Juan,
| Code: |
IEFC605I UNIDENTIFIED OPERATION FIELD
Explanation: In a JCL statement, the system either could not find an
operation field or could not identify the operation field as a valid JCL
verb or a valid operator command. The system also issues this message if
the flagged statement is a continuation of a statement containing syntax
errors.
System Action: The system ends the job. The system scans the remaining
JCL statements for syntax errors.
Application Programmer Response: Check that the operation field is
spelled correctly and that it is preceded and followed by at least one
blank. After correcting the error, submit the job again.
System Programmer Response: Look at the messages in the job log. If the
JOB statement did not specify MSGLEVEL=(1,1), specify it and run the job
again. If the problem persists, search problem reporting data bases for a
fix for the problem. If no fix exists, contact the IBM Support Center.
Provide the SYSOUT output for the job.
Source: Converter
Detecting Module: IEFCNGST
|
Hope this helps...
Cheers
kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu |
|
| Back to top |
|
|
Mike Chantrey
Intermediate
Joined: 10 Sep 2003
Posts: 234
Topics: 1
Location: Wansford
|
| Posted: Wed Sep 01, 2004 8:29 am Post subject: |
|
|
You are really much better off using the EXCI method to close/open CICS files (mentioned in kolusu's link above). Although it needs a bit more work than the method you are trying, it can give you proper feedback - i.e. did the file close sucessfully, and if not why not.
There is free sample code available for this - somewhere in the free archives of CICS Update magazine at www.xephon.com if I remember correctly. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
