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
 

 

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 Problem reading GTF trace output danik56 ABENDS & Debugging 7 Thu Mar 16, 2017 1:02 pm
No new posts what is meaning of the number in dcl Martylin PL/I & Assembler 2 Thu Mar 09, 2017 7:18 am
No new posts Extract set of records matching on ac... bhaskar_kanteti DFSORT/ICETOOL 3 Mon Mar 06, 2017 7:19 am
No new posts GDG version number PANDU1 JCL & VSAM 4 Sat Mar 04, 2017 8:28 pm
No new posts ROUNDED Problem with COMPUTE statement shalem COBOL Programming 11 Thu Feb 09, 2017 8:16 pm


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