|
View previous topic :: View next topic
|
| Author |
Message |
siva102
New User
Joined: 28 Nov 2007
Posts: 63
Location: Chennai
|
|
|
|
Hi Arun,
I have changed as per u told.
But here also i am getting error due to space issue.
The error i m getting is
| Code: |
IN : RECFM=FB ; LRECL= 400; BLKSIZE= 27600
INREC RECORD LENGTH = 408
POTENTIALLY INEFFICIENT USE OF INREC |
Bcos in our SORT card we have used from some loc OVERLAY=(401:8C'9')). . I suppose.
Please tell me wether i m correct or not ???[/code] |
|
| Back to top |
|
 |
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
| Quote: |
| Please tell me wether i m correct or not ???[/ |
You're not. I verified my joblog and I am also getting the same messages which are Informational-(WERnnnI) and not error messages.
| Quote: |
| But here also i am getting error due to space issue |
Check your input file layout to see if there is any mismatch |
|
| Back to top |
|
|
siva102
New User
Joined: 28 Nov 2007
Posts: 63
Location: Chennai
|
|
|
|
Hi Arun,
Thanks a lot. It is working for LRECL = 400.
Now Could you please help me out to do with LRECL = 700.
I just need the Section PART and the trailer part.
The Control Card that i ve used here is like below,
| Code: |
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(701:8C'9')),
IFTHEN=(WHEN=(422,10,CH,NE,C' '),OVERLAY=(701:428,4,422,2,425,2))
SORT FIELDS=(1,421,CH,D,444,256,CH,D,701,8,CH,D)
OUTFIL REMOVECC,NODETAIL,BUILD=(1,700)
//* SECTIONS=(1,421,444,256,TRAILER3=(1,421,444,256))
SECTIONS=(1,200,201,400,401,421,444,156,600,700,
TRAILER3=(1,421,444,256)) |
But it is abending. BCoz i ve not defined the SECTION part correctly. Could you please help me in defining the SECTION part of our SORTCARD
Thanks in advance. |
|
| Back to top |
|
|
siva102
New User
Joined: 28 Nov 2007
Posts: 63
Location: Chennai
|
|
|
|
Hi all,
Please anybody who have idea in this help me. |
|
| Back to top |
|
|
Arun Raj
Moderator
Joined: 17 Oct 2006
Posts: 2481
Location: @my desk
|
|
|
|
Hello,
You can achieve this just by modifying appropriately the jcl which I posted earlier like this.
| Code: |
//TOOLIN DD *
SORT FROM(IN) TO(T1) USING(CTL1)
SORT FROM(IN) TO(T1) USING(CTL2)
SPLICE FROM(T1) TO(OUT) ON(1,421,CH) ON(443,258,CH) WITH(433,10)
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(701:8C'9')),
IFTHEN=(WHEN=(422,10,CH,NE,C' '),OVERLAY=(701:428,4,422,2,425,2))
SORT FIELDS=(1,421,CH,D,443,258,CH,D,701,8,CH,D)
OUTFIL REMOVECC,NODETAIL,BUILD=(1,700),
SECTIONS=(1,256,257,155,443,256,699,1,
TRAILER3=(1,250,251,250,501,200))
//CTL2CNTL DD *
INREC IFTHEN=(WHEN=INIT,OVERLAY=(701:8C'0')),
IFTHEN=(WHEN=(433,10,CH,NE,C' '),OVERLAY=(701:439,4,433,2,436,2))
SORT FIELDS=(1,421,CH,D,443,258,CH,D,701,8,CH,A)
OUTFIL REMOVECC,NODETAIL,BUILD=(1,700),
SECTIONS=(1,256,257,155,443,256,699,1,
TRAILER3=(1,250,251,250,501,200)) |
|
|
| Back to top |
|
|
|
|
|
