|
|
| Author |
Message |
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1132
Location: Mumbai - India
|
|
|
|
Pravi,
| Quote: |
| this is the spool result................ |
Please post the error description from the
DD from the spool.
You could have pasted only the ICETOOL step and not the entire JCL. |
|
| Back to top |
|
 |
References
|
|
 |
pravi_1985
New User
Joined: 02 Sep 2006
Posts: 11
Location: Chennai
|
|
|
|
ICE600I 0 DFSORT ICETOOL UTILITY RUN STARTED
ICE650I 0 VISIT http://www.ibm.com/storage/dfsort FOR ICETOOL PAPERS, EXAMPLES A
ICE632I 0 SOURCE FOR ICETOOL STATEMENTS: TOOLIN
ICE630I 0 MODE IN EFFECT: STOP
COPY FROM(IN) TO(T1) USING(CTL1)
ICE606I 0 DFSORT CALL 0001 FOR COPY FROM IN TO T1 USING CTL1CNTL TER
ICE602I 0 OPERATION RETURN CODE: 16
ICE630I 2 MODE IN EFFECT: SCAN
COPY FROM(T1) TO(OUT)
ICE612I 0 NO ERRORS FOUND IN STATEMENT
ICE601I 0 DFSORT ICETOOL UTILITY RUN ENDED - RETURN CODE: 16 |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1132
Location: Mumbai - India
|
|
|
|
Pravi,
From the manuals
| Quote: |
| If nn is 16, match the identifier in message ICE606I or ICE627I for this operation to the same identifier in DFSORT message ICE200I (in the DFSMSG data set) to find the set of DFSORT messages for this operation. Correct the error indicated in the DFSORT error message. |
Also post the error details from DFSMSG DD. I cannot recreate the error as am not logged into mainframes now. |
|
| Back to top |
|
|
pravi_1985
New User
Joined: 02 Sep 2006
Posts: 11
Location: Chennai
|
|
|
|
| Code: |
ICE200I 0 IDENTIFIER FROM CALLING PROGRAM IS 0001
ICE143I 0 BLOCKSET COPY TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AN
ICE000I 0 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 05:33 ON WED AUG
OPTION COPY
INREC FINDREP=(IN=C'JFCMMAP',OUT=C'JFC01AP')
$
ICE104A 0 INVALID INREC OR OUTREC STATEMENT OPERAND
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,SO
TOUT=T1,DYNALLOC
SORT FIELDS=COPY
ICE751I 0 C5-K26318 C6-K90007 C7-K90000 C8-K23476 E7-K24705
ICE052I 3 END OF DFSORT
|
|
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1132
Location: Mumbai - India
|
|
|
|
Pravi,
I don't think you have the latest version of DFSORT available in your site.
Please execute the foll JCL and post the ICE201I message that you get from the sysout.
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
/*
//SORTOUT DD DUMMY
//SYSIN DD *
OPTION COPY
/*
|
it would be similar to
| Code: |
| ICE201I E RECORD TYPE IS F - DATA STARTS IN POSITION 1 |
|
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1132
Location: Mumbai - India
|
|
| Back to top |
|
|
Frank Yaeger
DFSORT Moderator
Joined: 15 Feb 2005
Posts: 4574
Location: San Jose, CA
|
|
|
|
Pravi,
As I said in my original post with the FINDREP job:
You obviously don't have PTF UK90013, so ask your System Programmer to install it. |
|
| Back to top |
|
|
pravi_1985
New User
Joined: 02 Sep 2006
Posts: 11
Location: Chennai
|
|
|
|
| Frank or Aaru, so can you please suggest me a JCL to complete this task even without not using DFSORT......... |
|
| Back to top |
|
|
arcvns
Senior Member
Joined: 17 Oct 2006
Posts: 705
Location: Chennai, India
|
|
|
|
pravi_1985,
If you have fileaid, you can try this. This will replace all occurrences of the string 'JFCMMAP' irrespective of its position.
| Code: |
//STEP0001 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=*
//DD01 DD DSN=input.file
//DD01O DD DSN=output.file
//SYSIN DD *
*
$$DD01 COPY OUT=0,EDITALL=(1,0,C'JFCMMAP',C'JFC01AP') |
Thanks,
Arun |
|
| Back to top |
|
|
pravi_1985
New User
Joined: 02 Sep 2006
Posts: 11
Location: Chennai
|
|
|
|
| Thanks Arun, that worked.......... :-) |
|
| Back to top |
|
|
|
|
