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
 
NUMBER ON STD problem for a PS created through JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
senjay

Active User


Joined: 10 May 2007
Posts: 147
Location: India

PostPosted: Wed Sep 17, 2008 9:08 am    Post subject: NUMBER ON STD problem for a PS created through JCL
Reply with quote

Hi,

I am executing a JCL (contains one step - ICETOOL) and it creates two PS files. when i viewed the two output PS files, file 1 is having NUMBER ON STD in its profile and file 2 is having NUM OFF in its profile.

I want file 1 to also have NUM OFF. I tried NUM OFF and PROF LOCK in file 1. when it's created again through JCL, file 1 is again having NUMBER ON STD.

Any idea about how to solve this problem?
Back to top
View user's profile Send private message

senjay

Active User


Joined: 10 May 2007
Posts: 147
Location: India

PostPosted: Wed Sep 17, 2008 9:19 am    Post subject: Reply to: NUMBER ON STD problem for a PS created through JCL
Reply with quote

may be i should provide the JCL also.
Input file is having 1st 5 bytes as PD format and rest of them are CH format.

Moderators,
Please move to JCL forum if you feel it's appropriate. Sorry for the inconvenience

Code:

//S020   EXEC PGM=ICETOOL,COND=(0,LT),PARM='DYNALLOC=(SYSDA,12)'       
//TOOLMSG  DD SYSOUT=*                                                 
//DFSMSG   DD SYSOUT=*                                                 
//TOOLOUT  DD SYSOUT=*                                                 
//EIN1     DD DSN=MY.INPUT,                             
//            DISP=SHR                                                 
//AUS1     DD DSN=MY.OUTPUT.FILE1,                         
//            DISP=(NEW,CATLG,DELETE),                                 
//            DATACLAS=DCCOMP,                                         
//            DCB=(RECFM=FB,LRECL=09,BLKSIZE=0),                       
//            SPACE=(CYL,(1,3),RLSE),                                   
//            UNIT=SYSDA                                               
//AUS2     DD DSN=MY.OUTPUT.FILE2,                     
//            DISP=(NEW,CATLG,DELETE),                                 
//            DATACLAS=DCCOMP,                                         
//            DCB=(RECFM=FB,LRECL=20,BLKSIZE=0),                       
//            SPACE=(CYL,(1,3),RLSE),                                   
//            UNIT=SYSDA                                               
//TOOLIN   DD *                                                         
 COPY FROM(EIN1) TO(AUS1) USING(CTL1)                                   
 COPY FROM(EIN1) TO(AUS2) USING(CTL2)                                   
/*                                                                     
//CTL1CNTL DD *                                                         
 SORT FIELDS=(01,05,PD,A)                                               
 SUM FIELDS=NONE                                                       
 OUTFIL FNAMES=AUS1,                                                   
 BUILD=(01:1,5,PD,M11,LENGTH=9)                                         
/*                                                                     
//CTL2CNTL DD *                                                         
 SORT FIELDS=(01,05,PD,A,6,11,CH,A)                                     
 SUM FIELDS=NONE                                                       
 OUTFIL FNAMES=AUS2,                                                   
 BUILD=(01:1,5,PD,M11,LENGTH=9,                                         
        10:X,                                                           
        11:6,10)                                                       
/*                                                                     
//SYSPRINT DD SYSOUT=*                                                 
//SYSOUT   DD SYSOUT=*     
Back to top
View user's profile Send private message
senjay

Active User


Joined: 10 May 2007
Posts: 147
Location: India

PostPosted: Wed Sep 17, 2008 10:25 am    Post subject: Reply to: NUMBER ON STD problem for a PS created through JCL
Reply with quote

Hi,

Now it's solved.
I increased the LRECL of file 1 to 10 and made changes in CTL1CNTL [BUILD=(01:1,5,PD,M11,LENGTH=9,10:X).

When i submitted the JCL now, file 1 is having NUM OFF in its prof.
Could any of you explain why the problem was?
Back to top
View user's profile Send private message
Bill Dennis

Active Member


Joined: 17 Aug 2007
Posts: 562
Location: Iowa, USA

PostPosted: Wed Sep 17, 2008 7:18 pm    Post subject:
Reply with quote

Anytime ISPF sees valid, sequential numbers in the last 8 bytes of a file it turns NUM ON by default. You can only prevent it by not having numbers there (as you discovered). LOCK won't stop it.
Back to top
View user's profile Send private message
senjay

Active User


Joined: 10 May 2007
Posts: 147
Location: India

PostPosted: Thu Sep 18, 2008 10:45 am    Post subject: Reply to: NUMBER ON STD problem for a PS created through JCL
Reply with quote

Hi Bill,

Thanks for your explanation.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts INVALID RECFM FOR DDNAME SYSLIN AND C... sandeep kumar302 All Other Mainframe Topics 7 Fri Apr 27, 2018 6:07 pm
No new posts Repeat Sequence Number Until change i... rahulabvp DFSORT/ICETOOL 6 Thu Mar 29, 2018 12:51 pm
No new posts add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 11 Thu Feb 22, 2018 5:37 pm
No new posts PARSE GDG name to separate generation... Abid Hasan SYNCSORT 2 Sun Feb 11, 2018 3:40 pm
No new posts Having a problem FTP'ng to the MF pahiker All Other Mainframe Topics 2 Fri Nov 10, 2017 8:20 pm

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