sriramd
New User
Joined: 02 Nov 2006 Posts: 10
|
|
|
|
I tried the variable and fixed logc presented here but was facing some problems.
a. Variable: Can we use the logic for a LRECL of 32760 bytes. I abended with the following:
Code: |
WER164B 16,740K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,004K BYTES USED
WER146B 20K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I IN : RECFM=VB ; LRECL= 32756; BLKSIZE= 32760
WER257I INREC RECORD LENGTH = 32764
WER238I POTENTIALLY INEFFICIENT USE OF INREC
WER200A T1 RECFM=V/VB, LRECL/BLKSIZE INVALID
WER110I T1 : RECFM=VB ; LRECL= 32764; BLKSIZE= 32760
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE |
a. Fixed part:
Used the same logic as provided. Need to remove the first and the last record, but it removed the first 2 records. Seems the CTL2 and CTL3 are not getting executed.
Code: |
//STEP0001 EXEC PGM=SYNCTOOL
//IN DD DISP=SHR,DSN=Infile
//T1 DD DSN=&&T1,DISP=(,PASS)
//T2 DD DSN=&&T2,DISP=(,PASS)
//OUT DD DSN=Outfile,
// DISP=(NEW,CATLG,DELETE),
// DATACLAS=FB
//DFSMSG DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
COPY FROM(T1) USING(CTL2)
COPY FROM(T2) USING(CTL3)
/*
//CTL1CNTL DD *
OUTFIL FNAMES=T1,STARTREC=2,OUTREC=(1,1000,SEQNUM,8,ZD)
/*
//CTL2CNTL DD *
SORT FIELDS=(1001,8,BI,D)
OUTFIL FNAMES=T2,STARTREC=2
/*
//CTL3CNTL DD *
SORT FIELDS=(1001,8,BI,A)
OUTFIL FNAMES=OUT,OUTREC=(1,1000)
/* |
Message:
Code: |
WER405I T1 : DATA RECORDS OUT 29659; TOTAL RECORDS OUT 29659
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B IN : EXCP'S=34,UNIT=3390,DEV=D317,CHP=(7E8D8E80818F90,4),VOL=DV2
WER416B OUTFIL WAS USED FOR CTL1OUT
WER054I RCD IN 29660, OUT 29660
WER169I RELEASE 1.3 BATCH 0485 TPF LEVEL 0.0
WER052I END SYNCSORT - TKAB2598,STEP0001,,DIAG=CA00,510A,E206,00EE,82FA,7C82,A
SYNCSORT FOR Z/OS 1.3.0.0RI U.S. PATENTS: 4210961, 5117495 (C) 2007 SYNCSO |
TIA
Sriram |
|