Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups 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
Author Message
Lord.of.Wind

New User


Joined: 17 Nov 2005
Posts: 34

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
References
PostPosted: Mon May 05, 2008 2:22 pm    Post subject: Re: How to add the sorted out GDG into a tape? Reply with quote

guptae

Moderator


Joined: 14 Oct 2005
Posts: 990
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: 34

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: 990
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 D.

Senior Member


Joined: 22 Apr 2006
Posts: 1695
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: 34

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
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1