IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

NUMBER ON STD problem for a PS created through JCL


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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
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
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
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Pulling a fixed number of records fro... DB2 2
No new posts Substring number between 2 characters... DFSORT/ICETOOL 2
No new posts Map Vols and Problem Dataset All Other Mainframe Topics 2
No new posts Generate random number from range of ... COBOL Programming 3
No new posts Increase the number of columns in the... IBM Tools 3
Search our Forums:

Back to Top