MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

nonstandard dataset name?

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities
View previous topic :: View next topic  
Author Message
culturewyj
Beginner


Joined: 15 Jun 2006
Posts: 15
Topics: 10
PostPosted: Sun Jun 25, 2006 7:12 am    Post subject: nonstandard dataset name? Reply with quote
Code:

 //COPY1 JOB NOTIFY=&SYSUID                                       
          IEFC653I SUBSTITUTION JCL - NOTIFY=ST084                         
        2 //STEP0100 EXEC PGM=SORT                                         
        3 //SYSOUT DD SYSOUT=*                                             
        4 //SORTIN DD DSN='ST084.EXER.PDS(EXER32)',                         
          //          DISP=SHR                                             
        5 //OUT001 DD DSN='ST084.EXER.PDS(COPY1)',                         
          //          DISP=NEW                                             
        6 //OUT002 DD DSN='ST084.EXER.PDS(COPY2)',                         
          //          DISP=NEW                                             
        7 //OUT100 DD DSN='ST084.EXER.PDS(COPY3)',                         
          //          DISP=NEW                                             
        8 //SYSIN DD  *                                                     
 STMT NO. MESSAGE                                                           
-                                                                           
        5 IGD01018I DATA SET ST084.EXER.PDS(COPY1)                         
 HAS A NONSTANDARD DATA SET NAME                         
 AND IS NOT ELIGIBLE TO BE SMS-MANAGED                                         
        6 IGD01018I DATA SET ST084.EXER.PDS(COPY2)                             
 HAS A NONSTANDARD DATA SET NAME                                               
 AND IS NOT ELIGIBLE TO BE SMS-MANAGED                                         
        7 IGD01018I DATA SET ST084.EXER.PDS(COPY3)                             
 HAS A NONSTANDARD DATA SET NAME                                               
 AND IS NOT ELIGIBLE TO BE SMS-MANAGED                                         
ICH70001I ST084    LAST ACCESS AT 04:04:50 ON MONDAY, JUNE 26, 2006             
IEF212I COPY1 STEP0100 SORTIN - DATA SET NOT FOUND                             
IEF272I COPY1 STEP0100 - STEP WAS NOT EXECUTED.                                 
IEF373I STEP/STEP0100/START 2006177.0404                                       
IEF374I STEP/STEP0100/STOP  2006177.0404 CPU    0MIN 00.00SEC SRB    0MIN 00.00S
IEF375I  JOB/COPY1   /START 2006177.0404                                       
IEF376I  JOB/COPY1   /STOP  2006177.0404 CPU    0MIN 00.00SEC SRB    0MIN 00.00S

-------------------------------------------------------------------

can you tell me how to solve this problem?
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Sun Jun 25, 2006 9:09 am    Post subject: Reply with quote
culturewyj,

If your intention is to copy the member EXER32 into 3 different members named copy1, copy2 and copy3 then the following JCL will do

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ST084.EXER.PDS(EXER32),
//          DISP=SHR
//OUT001 DD DSN=ST084.EXER.PDS(COPY1),
//          DISP=SHR
//OUT002 DD DSN=ST084.EXER.PDS(COPY2),
//          DISP=SHR
//OUT003 DD DSN=ST084.EXER.PDS(COPY3),
//          DISP=SHR
//SYSIN  DD *
  SORT FIELDS=COPY
  OUTFIL FNAMES=(OUT001,OUT002,OUT003)
/*


You don't need to specify the DSN name within Quotes. Also since you are copying to the same PDS, you need disp=shr or disp=old on your output files instead of dsip=new

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
culturewyj00
Beginner


Joined: 15 Jun 2006
Posts: 14
Topics: 7
PostPosted: Sun Jun 25, 2006 8:55 pm    Post subject: Reply with quote
thanks for you reply.
there are still some error messages .
Quote:

ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE056A 1 SORTOUT NOT DEFINED



I am a new mainframe bies,
can you tell me how to solve it?

Quote:

thanks for you reply.
there are still some error messages .
ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
ICE056A 1 SORTOUT NOT DEFINED

I am a new mainframe bies,
can you tell me how to solve it?

[/quote]
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Mon Jun 26, 2006 4:53 am    Post subject: Reply with quote
culturewyj00,

Look at the JCL I posted carefully. It has 2 lines of sysin you missed the last line in your Job. Add that line and your job will run

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
PostPosted: Mon Jun 26, 2006 8:48 am    Post subject: Reply with quote
Kolusu,

I am using the JCL below and i am getting ABENDED S213 U0000.Can you please guide me ahead what exactly is SORTSNAP ?
Code:

//STEP010  EXEC PGM=SORT                                               
//SORTIN   DD DSN=SHEKAR.TEST.JCLS(ABCD),DISP=SHR                     
//OUT001   DD DSN=SHEKAR.TEST.JCLS(OUT001),DISP=SHR                   
//OUT002   DD DSN=SHEKAR.TEST.JCLS(OUT002),DISP=SHR                   
//OUT003   DD DSN=SHEKAR.TEST.JCLS(OUT003),DISP=SHR                   
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*                                                 
//SYSIN    DD *                                                         
  SORT FIELDS=COPY                                                     
  OUTFIL FNAMES=(OUT001,OUT002,OUT003)                                 
/*                                                                     
// 

SYSOUT

ICE185A 0 DFSORT TERMINATED WITH S213  ABEND DURING PHASE C 3

_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12369
Topics: 75
Location: San Jose
PostPosted: Mon Jun 26, 2006 9:57 am    Post subject: Reply with quote
shekar123,

Can you post the entire Sysout message?

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
PostPosted: Mon Jun 26, 2006 10:16 am    Post subject: Reply with quote
Kolusu,

SYSOUT MESSAGES:
Code:

1ICE143I 0 BLOCKSET     COPY  TECHNIQUE SELECTED
 ICE000I 1 - CONTROL STATEMENTS FOR 5740-SM1, DFSORT REL 14.0 - 18:30 ON MON JUN 26, 2006 -
0            SORT FIELDS=COPY
             OUTFIL FNAMES=(OUT001,OUT002,OUT003)
 ICE201I 0 RECORD TYPE IS F - DATA STARTS IN POSITION 1
 ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
 ICE088I 0 SHEKARV .STEP010 .        , INPUT LRECL = 80, BLKSIZE = 8000, TYPE = FB
 ICE093I 0 MAIN STORAGE = (MAX,4194304,4165632)
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (4100590,4100590)
 ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,
VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y
 ICE128I 0 OPTIONS: SIZE=4194304,MAXLIM=1048576,MINLIM=450560
,EQUALS=N,LIST=Y,ERET=RC16 ,MSGDDN=SYSOUT
 ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=NO   ,WRKSEC=Y,
OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,
ABCODE=MSG
 ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,
WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB1
 ICE131I 0 OPTIONS: TMAXLIM=4194304,ARESALL=0,ARESINV=0,
OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,
LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
 ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,
ODMAXBF=2097152,SOLRF=Y,VLLONG=N,VSAMIO=N
 ICE084I 0 BSAM ACCESS METHOD USED FOR SORTOUT
 ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
 ICE231I 0 STORAGE USED FOR OUTFIL : BELOW 16M = 71680, ABOVE 16M = 6339584
 ICE210I 0 OUT001   : BSAM USED, LRECL = 80, BLKSIZE = 8000, TYPE = FB
 ICE185A 0 DFSORT TERMINATED WITH S213  ABEND DURING PHASE C 3

_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
Frank Yaeger
Sort Forum Moderator
Sort Forum Moderator


Joined: 02 Dec 2002
Posts: 1618
Topics: 31
Location: San Jose
PostPosted: Mon Jun 26, 2006 10:28 am    Post subject: Reply with quote
You can't use OUTFIL to write to three PDS members in parallel. You can do that with regular sequential data sets or with PDSE members, but NOT with PDS members.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort
Back to top
View user's profile Send private message Send e-mail Visit poster's website
shekar123
Advanced


Joined: 22 Jul 2005
Posts: 528
Topics: 90
Location: Bangalore India
PostPosted: Mon Jun 26, 2006 10:45 am    Post subject: Reply with quote
Frank,

Thanks it woks fine with PS Datasets.
_________________
Shekar
Grow Technically
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Utilities All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group