View previous topic :: View next topic
|
Author |
Message |
eHorizon.Andrew
New User
Joined: 18 Jan 2007 Posts: 28 Location: Bank of communications
|
|
|
|
hi,
I encounter a problem responsed from QA side,they need to check whether all the file names are valid in the JCL(always go after "DSN=" string), which have the fixed prefix. Since the JCL is too long, and maybe contain thousands of file names,so I need a jcl that can abstract all the filename(after "DSN=") and output to a specified file.
e.g. the input JCL - QA.TEST.FILE ,output file - QA.FILE.NAME , contains all the file name string in QA.TEST.FILE.
thanks for help.... |
|
Back to top |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
eHorizon.Andrew
Check the Topic Find and extract values from different positions, at [url]http://www.ibm.com/servers/storage/support/software/sort/mvs/tricks/
[/url] |
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Andrew,
A simple search (3.15 option) in the batch mode should satisfy your requirement. |
|
Back to top |
|
|
eHorizon.Andrew
New User
Joined: 18 Jan 2007 Posts: 28 Location: Bank of communications
|
|
|
|
thanks ,I am going through that. |
|
Back to top |
|
|
eHorizon.Andrew
New User
Joined: 18 Jan 2007 Posts: 28 Location: Bank of communications
|
|
|
|
I am following the step the book told, but get the RC ABEND, see below info:
COMPLETION CODE - SYSTEM=000 USER=0016 REASON=00000000
Is there any rule that specify the output record length should equal to the output file lenght?
my code is like this:
Code: |
//MYIDG JOB 0VB055950918121000A1011010100TEST,
// 'ANDREW',CLASS=0,MSGCLASS=R,TIME=(,05),
// NOTIFY=MYID
//STEP1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=MYID.TEST.FILE(VB055C),DISP=SHR
//SORTOUT DD DSN=MYID.TEST.OUTPUT,DISP=SHR
//SYSIN DD *
OPTION COPY
INREC PARSE=(%=(ENDAT=C'DSN='),
%00=(STARTAFT=BLANKS,FIXLEN=40)),
BUILD=(%00)
/* |
|
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Andrew,
Please post spool messages.
Also SORTOUT has DISP=SHR, is it an existing file? |
|
Back to top |
|
|
eHorizon.Andrew
New User
Joined: 18 Jan 2007 Posts: 28 Location: Bank of communications
|
|
|
|
yes, the two file was created before I run the job.
sysout message:
SYSIN :
OPTION COPY
INREC PARSE=(%=(ENDAT=C'DSN='),
*
%00=(STARTAFT=BLANKS,FIXLEN=80)),
BUILD=(%00)
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
I can not find any useful info in the JESYSMSG. |
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
Quote: |
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000 |
Your shop uses SYNCSORT. And the link provided is of DFSORT thing.
Use the 3.15 option (batch mode). |
|
Back to top |
|
|
eHorizon.Andrew
New User
Joined: 18 Jan 2007 Posts: 28 Location: Bank of communications
|
|
|
|
yes, I finally get the result I want, thank you murali... |
|
Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006 Posts: 1436 Location: Bangalore,India
|
|
|
|
You are welcome Andrew. |
|
Back to top |
|
|
|