Author: vasanthz
Posted: Mon May 01, 2017 11:47 pm (GMT 5.5)
I was working on FIND REPLACE with File Manager and came across the solution for your requirement.
If you have FILE MANAGER then you can copy sequential dataset to a PDS and create STATS.
From primary options menu --> 3 Utilities --> 3 Copy --> From SEQ dataset --> On the TO dataset panel you have an option
The Batch JCL
_________________
Strike.. Scream.. Run - Creed Bratton
Posted: Mon May 01, 2017 11:47 pm (GMT 5.5)
| Quote: |
| I want to copy a SEQ dataset into a PDS member and then create statistics for the member. IEBCOPY or IEBGENER can do the copy but it doesn't generate the stats. |
I was working on FIND REPLACE with File Manager and came across the solution for your requirement.
If you have FILE MANAGER then you can copy sequential dataset to a PDS and create STATS.
From primary options menu --> 3 Utilities --> 3 Copy --> From SEQ dataset --> On the TO dataset panel you have an option
| Code: |
| Stats Option 2 1. Off 2. Force |
The Batch JCL
| Code: |
| //FILEMGR EXEC PGM=FMNMAIN //SYSPRINT DD SYSOUT=* //FMNTSPRT DD SYSOUT=* //SYSTERM DD SYSOUT=* //SYSIN DD * $$FILEM SET HEADERPG=YES,PAD=OFF,NOTRUNC=NO $$FILEM DSC DSNIN=DOGE.INPUT.DATASET, $$FILEM PACK=ASIS, $$FILEM STATS=FORCE, $$FILEM DISP=OLD, $$FILEM MEMOUT=MUCHDOGE, $$FILEM DSNOUT=DOGE.OUTPUT.DATASET |
_________________
Strike.. Scream.. Run - Creed Bratton