Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to add the sorted out GDG into a tape?

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
Lord.of.Wind

New User


Joined: 17 Nov 2005
Posts: 60

PostPosted: Mon May 05, 2008 2:22 pm    Post subject: How to add the sorted out GDG into a tape?
Reply with quote

I coded as the following, will it work?
If wrong, how to do it?

Many thanks!

Code:

//JS100    EXEC PGM=SORT                               
//SYSOUT    DD SYSOUT=*                               
//SORTIN    DD DSN=gdgfile(0),
//             DISP=(SHR,KEEP,KEEP)                   
//SORTOUT   DD DSN=tapefile(+1)
//             DISP=(NEW,CATLG,CATLG),
//             UNIT=TAPEC,           
//             LABEL=EXPDT=99000,     
//             DCB=(SYS3.DSCB),       
//             MGMTCLAS=MCMT0001     
//SYSIN      DD *                                               
     SORT FIELDS=COPY                                           
     INCLUDE COND=(53,7,CH,LE,DATE2(-)-12)
//*
Back to top
View user's profile Send private message

guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon May 05, 2008 2:48 pm    Post subject:
Reply with quote

Hello,

Would you please tell us that why u use include condition ?U have not mentioned it in ur requirement.
If its in the requirement than run it & check the resukts.
Back to top
View user's profile Send private message
Lord.of.Wind

New User


Joined: 17 Nov 2005
Posts: 60

PostPosted: Mon May 05, 2008 2:50 pm    Post subject:
Reply with quote

Thank you for your reply.

I use the condition to filter out records that created 12 months ago. It can be neglected.
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1187
Location: Bangalore,India

PostPosted: Mon May 05, 2008 2:51 pm    Post subject:
Reply with quote

Hi ,

Run it & let's know the results.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Mon May 05, 2008 11:15 pm    Post subject:
Reply with quote

Well,

I don't understand why this is being asked
Quote:
will it work?
if You've already tried it, did you get some error, or you dont have any mainframes "connection" these days.

Anways, it would work, but you can modify it a bit

- There is no need of KEEP in DIPS of SORIN, just SHR in enough.
- if your shop is SMS managed, then no need code the following in the DCB of SORTOUT
Code:

//             DCB=(SYS3.DSCB),       
//             MGMTCLAS=MCMT0001     


BTW, I would also say
Quote:
un it & let's know the results.
Back to top
View user's profile Send private message
Lord.of.Wind

New User


Joined: 17 Nov 2005
Posts: 60

PostPosted: Tue May 06, 2008 7:49 am    Post subject:
Reply with quote

I asked if it would work because I have no R&D tape to test the codes. I cannot test it in production environment.
I will let you know when I make it.
Thanks!
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Length of Tape file Mohan Kothakota JCL & VSAM 9 Thu Apr 20, 2017 10:24 pm
No new posts TAPE VERIFY utility?? MrExtraordinare JCL & VSAM 3 Fri Dec 09, 2016 10:57 pm
No new posts stacking files on a tape Pedro JCL & VSAM 7 Wed Aug 17, 2016 11:11 pm
No new posts Reading selected volumes of a multi-v... RickBig JCL & VSAM 6 Wed Jul 13, 2016 7:26 pm
No new posts How to copy Tape dataset to unix main... chaky All Other Mainframe Topics 4 Fri Jul 08, 2016 2:52 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us