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
 
Why the sequence number was generated when I use OUTREC

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
henry_he01

New User


Joined: 14 May 2009
Posts: 9
Location: China

PostPosted: Fri May 15, 2009 7:54 am    Post subject: Why the sequence number was generated when I use OUTREC
Reply with quote

Please refer the codes below:
Code:

//STEP0010 EXEC PGM=SORT                     
//SORTIN   DD DSN=TSO559B.FC9000.TEST,DISP=SHR
//SYSIN    DD *                               
 SORT FIELDS=(01,27,CH,A)                     
 OUTREC FIELDS=(1:1,27)                       
 END                                         
/*                                           
//SORTOUT  DD DSN=TSO559B.FC9000.ACCOUNT,     
//            DISP=(NEW,CATLG,CATLG),         
//            SPACE=(27,(50,10),RLSE),       
//            AVGREC=K,LRECL=27               
//SYSOUT   DD  SYSOUT=*                       
//SYSPRINT DD  SYSOUT=*                       
//SYSUDUMP DD  SYSOUT=*                       
//                                           

The input length is 37, and the job will cut the last 10 digits. So the output length is 27. But the last 6 digits in output file became to sequence number so that I can't modify it unless change the profile parameter.

Please refer the input file and output file below:
Input File:
Code:

=COLS> ----+----1----+----2----+----3----+--
****** ***************************** Top of
000001 002000000000000001010167508S-6265-5 
000002 002000000000000001010168250S-6265-5 
000003 002000000000000001010169673S-6265-5 
000004 002000000000000001010170298S-6265-5 
000005 002000000000000001010170921S-6265-5 


Output File:
Code:

=COLS> ----+----1----+----2----+--
****** ***************************
167508 002000000000000001010167508
168250 002000000000000001010168250
169673 002000000000000001010169673
170298 002000000000000001010170298
170921 002000000000000001010170921


Is there anyone could tell me why and any help will be appreciated.
Back to top
View user's profile Send private message

Craq Giegerich

Senior Member


Joined: 19 May 2007
Posts: 1512
Location: Virginia, USA

PostPosted: Fri May 15, 2009 8:34 am    Post subject:
Reply with quote

when you edit the output file just type "NUM OFF" on the edit command line and press enter.
Back to top
View user's profile Send private message
henry_he01

New User


Joined: 14 May 2009
Posts: 9
Location: China

PostPosted: Fri May 15, 2009 8:44 am    Post subject:
Reply with quote

Thanks, Craq.
I know it, but why the profile of the new output file has been changed to NUMBER ON status. How can I do for keep the profile of output file can be same with input file.

In actually, if I change the length of output file from 27 to 26, the sequence number will not be generated.

Why? icon_sad.gif
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts add sequence number for duplicate rec... SRUTHI DRAVIDAMANI COBOL Programming 10 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 OUTREC with ALter Command scorp_rahul23 DFSORT/ICETOOL 1 Wed Nov 22, 2017 3:10 pm
No new posts Increment number for every group of r... srajendran2 DFSORT/ICETOOL 7 Thu Nov 09, 2017 10:31 pm
No new posts WER268A OUTREC STATEMENT : SYNTAX E... frozenblood87 SYNCSORT 12 Sat Aug 26, 2017 9:45 pm

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