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 SYMNAMES problem jacobdng DFSORT/ICETOOL 7 Thu Dec 22, 2016 7:47 am
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm
No new posts DB2 Streaming Batch Processing Problem Manshadi DB2 4 Sat Sep 24, 2016 12:14 pm
No new posts Sequence number add in SORT pshongal SYNCSORT 3 Fri Sep 02, 2016 3:32 pm


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