Sri,
Yes, you are right, it should be just TEMP in both statements.
And the SORT statement was inherited from former report where sort is
really present.
This example is "in progress", so it is not finished. It is likely there
will be sort here again.
And some details where changed to anonimize the report :-)
However I confirm - INREC statement made the task working properly.
Thank you!
--
Radoslaw Skorupka
Lodz, Poland
W dniu 02.08.2021 o 22:27, Sri h Kolusu pisze:
and now it works.
Radoslaw,
Hmm are you sure you are getting the right results? Unless you typed in the
JCL, that wouldn't give you the right results.
Reason : Your first COPY operation is writing the output to a ddname called
"TEMP', However your DISPLAY is reading from the ddname TEMP0001 so unless
this is a version that you decided to show here, it wouldn't work.
Also you do not require SORT operator as you overwriting that with COPY
operator in REPOCNTL
So here is the modified JCL that should give you the desired results.
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//WEJDATA DD DISP=SHR,DSN=Your Input RACF unload
//TEMP DD DSN=&&TMP,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE)
//PRINT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(WEJDATA) TO(TEMP) USING(REPO)
DISPLAY FROM(TEMP) LIST(PRINT) -
PAGE -
TITLE('SOME TITLE') -
DATE(DM4-) -
TIME(24:) -
BLANK -
NOCC -
ON(19,08,CH) HEADER('USER') -
ON(10,10,CH) HEADER('OPIS') -
ON(45,07,CH) HEADER('STATUS')
/*
//REPOCNTL DD *
OPTION VLSCMP
INCLUDE COND=(5,5,CH,EQ,C'ABCDE')
INREC OVERLAY=(52:X)
/*
Further if you have any questions please let me know
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
