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
 

 

Appending 1 after 61 records using Header1

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

New User


Joined: 16 Mar 2008
Posts: 90
Location: tamil nadu

PostPosted: Tue Feb 02, 2016 11:51 am    Post subject: Appending 1 after 61 records using Header1
Reply with quote

Hi,

I was using the below Sort Card for adding the header 1 .

Its a big sort card I have highlighted where we are using header1

Code:
OUTFIL FILES=OUT,                 
    HEADER1=('INSTALL_LOAN_NO,',   

When we ran the JCL I can see 1 appended in the first record then after every 61 records


Code:
1INSTALL_LOAN_NO,INSTALL_LOAN_TYP,LOAN_SYS_CRT_DT,LOAN_CUST_SLS_DT
1 1001241349,E,10/24/2013,10/24/2013,A ,2015-12-07-13.34.55.231087
  1001265386,E,10/24/2013,10/24/2013,P ,2015-10-27-17.19.47.965597
  1001308088,E,10/26/2013,10/26/2013,P ,2015-10-27-23.46.43.436886
  1001341811,E,10/30/2013,10/30/2013,P ,2015-10-26-11.23.25.501554

.......
....

62 nd record
Code:
   1002643165,E,05/17/2014,05/17/2014,U ,2015-10-22-18.39.44.398583,9999-
 1 1002649421,E,05/18/2014,05/18/2014,S ,2015-11-30-15.20.16.967992,9999-
   1002707634,E,05/24/2014,05/24/2014,B ,2015-12-02-14.31.03.207222,9999-


Is there any way we can prevent this 1 from appending in the records.
Please help me on the same .

Regards,
L.Nethaji
Back to top
View user's profile Send private message

l.nethaji

New User


Joined: 16 Mar 2008
Posts: 90
Location: tamil nadu

PostPosted: Tue Feb 02, 2016 12:38 pm    Post subject: Reply to: Appending 1 after 61 records using Header1
Reply with quote

Hi,

Please find the below SORT CARD which I have used.

Code:
RECORD TYPE=F                                                 
JOINKEYS FILE=F1,FIELDS(12,11,A)                             
JOINKEYS FILE=F2,FIELDS(01,11,A)                             
JOIN UNPAIRED,F1                                             
REFORMAT FIELDS=(F1:1,220,F2:12,13,F2:25,1)                   
SORT FIELDS=COPY                                             
OUTREC FIELDS=(01,11,C',',                   INSTALL_LOAN_NO 
               12,11,C',',                   CUST_ID_NO       
               23,11,C',',                   ACCT_NO         
               34,03,C',',                   NPA             
               37,03,C',',                   NXX             
               40,04,C',',                   TLN             
               44,11,C',',                   ORD_NO           
               55,11,C',',                   LN_ITM_NO       
               66,01,C',',                   LN_ITM_TYP_CD   
               67,20,C',',                   DEVICE_ID       
               87,20,C',',                   DEVICE_ID_NEW   
              107,20,C',',                   DEVICE_ID_EQP   
              127,10,C',',                   LN_ITM_CREATE_DT
               137,08,C',',                   LN_ITM_CREATE_TM     
               145,10,C',',                   LN_FULFILL_REQ_DT   
               155,02,C',',                   LN_ITM_STAT_CD       
               157,10,C',',                   LN_ITM_CMPLT_DT     
               167,01,C',',                   TERMNL_OPT_CD       
               201,01,C',',                   INSTALL_LOAN_TYP     
               168,30,C',',                   CLIENT_ID           
               198,02,C',',                   ESN_CHG_RSN_CD       
               202,09,C',',                   INSTALL_LOAN_AMT     
               211,09,C',',                   LOAN_DOWN_PMT_AMT   
               220,01,C',',                   FIRST_INSTL_TAKEN_IND
               221,02,C',',                   CUST_TYP_CD         
               223,11,C',',                   ECPD_PROFILE_CUST   
               200,01,C',',                   ORD_SRC_SYS_CD       
               234,01,112X)                   LIABILITY_TYP_CD     
 OUTFIL FILES=OUT,                                                 
 HEADER1=('INSTALL_LOAN_NO,',                   INSTALL_LOAN_NO   
          'CUST_ID_NO,',                        CUST_ID_NO         
          'ACCT_NO,',                           ACCT_NO           
          'NPA,',                               NPA               
          'NXX,',                               NXX               
          'TLN,',                               TLN               
          'ORD_NO,',                            ORD_NO             
          'LN_ITM_NO,',                         LN_ITM_NO         
          'LN_ITM_TYP_CD,',                     LN_ITM_TYP_CD     
          'DEVICE_ID,',                         DEVICE_ID         
          'DEVICE_ID_NEW,',                     DEVICE_ID_NEW     
          'DEVICE_ID_EQP,',                     DEVICE_ID_EQP     
          'LN_ITM_CREATE_DT,',                  LN_ITM_CREATE_DT   
          'LN_ITM_CREATE_TM,',                  LN_ITM_CREATE_TM   
          'LN_FULFILL_REQ_DT,',                 LN_FULFILL_REQ_DT 
          'LN_ITM_STAT_CD,',                    LN_ITM_STAT_CD     
          'LN_ITM_CMPLT_DT,',                   LN_ITM_CMPLT_DT   
          'TERMNL_OPT_CD,',                     TERMNL_OPT_CD     
          'INSTALL_LOAN_TYP,',                  INSTALL_LOAN_TYP   
          'CLIENT_ID,',                         CLIENT_ID         
          'ESN_CHG_RSN_CD,',                    ESN_CHG_RSN_CD     
          'INSTALL_LOAN_AMT,',                  INSTALL_LOAN_AMT   
         'LOAN_DOWN_PMT_AMT,',                 LOAN_DOWN_PMT_AMT     
         'FIRST_INSTL_TAKEN_IND,',             FIRST_INSTL_TAKEN_IND 
         'CUST_TYP_CD,',                       CUST_TYP_CD           
         'ECPD_PROFILE_CUST,',                 ECPD_PROFILE_CUST     
         'ORD_SRC_SYS_CD,',                    ORD_SRC_SYS_CD         
         'LIABILITY_TYP_CD')                   LIABILITY_TYP_CD       


The output file looks a below having 1 appended in the first position .Is there any way we can remove it by any means for header1 .

Code:
1INSTALL_LOAN_NO,CUST_ID_NO,ACCT_NO,NPA,NXX,TLN,ORD_NO,LN_ITM_NO,LN_ITM_
11001990377,     990229,          2,410,804,5518,  145369536,         
  1009117482,  403715610,          2,828,273,0856,  232875512,         
  1300341696,  424857528,          1,360,927,0621,  125578643,         
  1014261071,  501489675,          1,410,458,6006,   31510408,         
  1007998590,  503541384,          1,239,560,2496,  285370765,         
  1007998884,  503541384,          1,570,460,3655,  285370765,       

Could you please help me to resolve this issue.

Regards,
L.nethaji
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7232

PostPosted: Tue Feb 02, 2016 1:00 pm    Post subject: Reply to: Appending 1 after 61 records using Header1
Reply with quote

Yes. Locate REMOVECC in the manual, and work out how and where to use it. Also work out how you should have been able to find it without asking.
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 Limit duplicate records in the SORT pshongal SYNCSORT 6 Mon Nov 21, 2016 12:54 pm
No new posts How to split the records using the am... vnktrrd DFSORT/ICETOOL 24 Fri Oct 28, 2016 7:33 pm
No new posts Sort records based on numeric field. Alks SYNCSORT 2 Wed Oct 19, 2016 10:14 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts how to split records based on specifi... Venkata Ramayya DFSORT/ICETOOL 6 Wed Sep 28, 2016 3:20 am


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