mf_user
Intermediate
Joined: 01 Jun 2003
Posts: 372
Topics: 105
|
 Posted: Thu Aug 28, 2008 9:00 am Post subject: Syncsort - problem with LRECL length. |
 |
|
Hi,
I am using below JCL to get the names of GDG bases used in our system and their limit respectively.
| Code: |
//JS010 EXEC PGM=IKJEFT01
//*
//SYSTSPRT DD DSN=&L,
// DISP=(,PASS),
// SPACE=(CYL,(25,10),RLSE),
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//SYSTSIN DD *
LISTCAT ENT('XXXX1.XXXX2.XXX3.XXXXX4.XXX5') ALL
LISTCAT ENT('XXXX6.XXXX7.XXX8.XXXXXX9') ALL
LISTCAT ENT('XXXX1.XXXX3.XXX5.XXXXXXX7.XXXXXXX9') ALL
//*
//JS020 EXEC PGM=ICETOOL
//*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=&L,DISP=(OLD,DELETE)
//T1 DD DSN=&T1,DISP=(,PASS),SPACE=(CYL,(25,10),RLSE)
//T2 DD DSN=&T2,DISP=(,PASS),SPACE=(CYL,(25,10),RLSE)
//CON DD DSN=*.T1,VOL=REF=*.T1,DISP=(OLD,PASS)
// DD DSN=*.T2,VOL=REF=*.T2,DISP=(OLD,PASS)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
SORT FROM(CON) USING(CTL2)
//CTL1CNTL DD *
OUTFIL FNAMES=T1,
INCLUDE=(1,8,CH,EQ,C'GDG BASE'), $ INCLUDE GDGBASE RECORDS
OUTREC=(17,44, $ GDG BASE NAME
X, $ PAD WITH SPACES
1,8, $ GDG BASE
C' LIMIT ', $ PAD WITH SPACES
3C'0', $ 3 ZEROES FOR SUMMING THE LIMIT
SEQNUM,8,ZD) $ SEQNUM FOR SUMMING
OUTFIL FNAMES=T2,
INCLUDE=(8,5,CH,EQ,C'LIMIT'), $ INCLUDE LIMIT RECORDS
OUTREC=(54X, $ PAD WITH SPACES
8,5, $ CHARACTER LIMIT
X, $ PAD WITH SPACES
17,15,ZD,EDIT=(TTT), $ ACTUAL GDG LIMIT
SEQNUM,8,ZD) $ SEQNUM FOR SUMMING
//CTL2CNTL DD *
SORT FIELDS=(65,8,CH,A) $ SORT ON SEQNUM
SUM FIELDS=(62,3,ZD) $ SUM ON THE LIMIT
OUTFIL FNAMES=OUT,
OUTREC=(1,44,62,3,24X)
/*
//
|
I am ending up getting the below shown error in the SYSOUT:
| Code: |
WER108I CON : RECFM=FB ; LRECL= 71; BLKSIZE= 27974
WER027A CONTROL FIELD BEYOND RECORD
|
Please help me to run my tool without this error....
What changes I need to make here.
TIA.
_________________
MF
==
Any training that does not include the emotions, mind and body is incomplete; knowledge fades without feeling.
== |
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
