|
View previous topic :: View next topic
|
| Author |
Message |
l.nethaji
New User
Joined: 16 Mar 2008
Posts: 90
Location: tamil nadu
|
|
|
|
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 |
|
 |
l.nethaji
New User
Joined: 16 Mar 2008
Posts: 90
Location: tamil nadu
|
|
|
|
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 |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
|
|
|
|
| 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 |
|
|
|
|
|
