Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

copy SEQ to PDS and create stats

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
jerryte

Active User


Joined: 29 Oct 2010
Posts: 187
Location: Toronto, ON, Canada

PostPosted: Thu Apr 27, 2017 1:15 am    Post subject: copy SEQ to PDS and create stats
Reply with 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 could code a rexx to use ISPF services calls and do LMCOPY and LMSTATS. My question - is there an existing utility that can do this? Saves me from having to re-invent the wheel. I don't mind the challenge of coding a rexx but would prefer something "off the shelf".
Back to top
View user's profile Send private message

Willy Jensen

Active User


Joined: 01 Sep 2015
Posts: 127
Location: Switzerland

PostPosted: Thu Apr 27, 2017 1:52 pm    Post subject:
Reply with quote

PDS86 from CBTTAPE.ORG. The command ATTR ADDSTATS does exactly that.
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 516
Location: The Universe

PostPosted: Fri Apr 28, 2017 7:51 am    Post subject:
Reply with quote

I suspect Jerryte is thinking about something like this -
Code:
//F       EXEC PGM=COPYSTAT                               
//SYSPRINT DD  SYSOUT=*                                   
//SYSUT1   DD  *                                         
IEFBR14  RSECT                                           
IEFBR14  AMODE 31                                         
IEFBR14  RMODE ANY                                       
         SR    15,15                                     
         BR    14                                         
         END   IEFBR14                                   
//SYSUT2   DD  DISP=OLD,DSN=&SYSUID..COPYSTAT.PDS(IEFBR14)
Back to top
View user's profile Send private message
jerryte

Active User


Joined: 29 Oct 2010
Posts: 187
Location: Toronto, ON, Canada

PostPosted: Fri Apr 28, 2017 9:56 pm    Post subject:
Reply with quote

The company I work for has StarTool so I can use the "ATTR ADDSTATS" command. We don't have a COPYSTAT program. Is this a vendor program?
Back to top
View user's profile Send private message
steve-myers

Active Member


Joined: 30 Nov 2013
Posts: 516
Location: The Universe

PostPosted: Fri Apr 28, 2017 10:44 pm    Post subject:
Reply with quote

jerryte wrote:
... We don't have a COPYSTAT program. Is this a vendor program?
No. It's just an idea I dreamed up. I have a proof of concept implementation, but it needs much more testing, something I'm not likely to do as I have no use for the concept.
Back to top
View user's profile Send private message
vasanthz

Global Moderator


Joined: 28 Aug 2007
Posts: 1491
Location: Chennai

PostPosted: Mon May 01, 2017 11:47 pm    Post subject:
Reply with quote

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 
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Unable to create multiple files using... mbattu COBOL Programming 3 Fri May 05, 2017 5:35 pm
No new posts Copy load modules and alias vasanthz IBM Tools 5 Thu Apr 20, 2017 6:31 am
No new posts SORTJOIN - Copy Matched and Unmatched... Steve Ironmonger DFSORT/ICETOOL 5 Tue Jan 17, 2017 4:26 pm
No new posts HALDB data refresh/copy from producti... vineetanand2007 IMS DB/DC 1 Mon Jan 02, 2017 11:16 am
No new posts Copy RECFM =VB TO FB file with RECL =... sahil41352 DFSORT/ICETOOL 3 Wed Dec 28, 2016 11:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us