MVSFORUMS.com :: View topic - Effect on CPU time

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

Effect on CPU time - DB2 prog with cursor
Goto page Previous 1, 2

MVSFORUMS.com Forum Index -> Application Programming

View previous topic :: View next topic

Author

Message

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

Posted: Fri Jul 14, 2006 6:36 am Post subject:

deepatred,

Show me your Sysout messages

Quote:

Oh that was a working storage counter and used later to write count in the second file. But that is fine, i just thought if putting that seq no. had any other significance.

If that is only for counting , then you don't even need 2 steps. It can be done in just 1 step. I thought you wanted a Seqnum for all 'HH' records.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

deepatred
Beginner

Joined: 29 Nov 2005
Posts: 19
Topics: 6

Posted: Sun Jul 16, 2006 11:45 pm Post subject:

Hi Kolusu,

SYSOUT msgs:=>

Code:

SYSIN :
SORT FIELDS=COPY
OUTREC FIELDS=(01,76,
77:C'1',
78:31,2,CHANGE=(1,C'HH',C'0'),
NOMATCH=(C'1'),
SEQNUM,8,ZD)

OUTFIL FNAMES=CC,
INCLUDE=(31,2,CH,EQ,C'CC'),
OUTREC=(01,13,
14,11,ZD,PD,LENGTH=6,
25,08,
-1,MUL,33,5,PD,PD,LENGTH=5,
-1,MUL,38,6,PD,PD,LENGTH=6,
-1,MUL,44,5,PD,PD,LENGTH=5,
-1,MUL,49,5,PD,PD,LENGTH=5,
-1,MUL,54,5,PD,PD,LENGTH=5,
59,18,
5C'0',
79,8)

OUTFIL FNAMES=HH,
INCLUDE=(31,2,CH,EQ,C'HH'),
OUTREC=(01,13,
14,11,ZD,PD,LENGTH=6,
25,52,
SEQNUM,5,ZD,
79,8)

OUTFIL FNAMES=REST,
SAVE,
OUTREC=(01,13,
14,11,ZD,PD,LENGTH=6,
25,52,
5C'0',
79,8)

OUTFIL FNAMES=RPT,
REMOVECC,NODETAIL,
TRAILER1=('TOTAL RECORDS PROCESSED : ',
TOT=(77,1,ZD,M11,LENGTH=8),/,
'TOTAL RECORDS OF RS01-CNOPR NOT = HH : ',
TOT=(78,1,ZD,M11,LENGTH=8),
80:X)
WER164B 5,968K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,
WER164B 0 BYTES RESERVE REQUESTED, 1,038,736 BYTES USED
WER146B 4K BYTES OF EMERGENCY SPACE ALLOCATED
WER108I SORTIN : RECFM=FB ; LRECL= 76; BLKSIZE= 27968
WER237I OUTREC RECORD LENGTH = 86
WER110I CC : RECFM=FB ; LRECL= 84; BLKSIZE= 27972
WER110I HH : RECFM=FB ; LRECL= 84; BLKSIZE= 27972
WER110I RPT : RECFM=FB ; LRECL= 80; BLKSIZE= 27920
WER110I REST : RECFM=FB ; LRECL= 84; BLKSIZE= 27972
WER405I CC : DATA RECORDS OUT 1; TOTAL RECORDS OUT 1
WER405I HH : DATA RECORDS OUT 1; TOTAL RECORDS OUT 1
WER405I RPT : DATA RECORDS OUT 0; TOTAL RECORDS OUT 2
WER405I REST : DATA RECORDS OUT 0; TOTAL RECORDS OUT 0
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
WER416B SORTIN: EXCP'S=1,UNIT=3390,DEV=B81B,CHP=(656DE5ED6AEA,6),VOL=MTZ43D
WER416B OUTFIL WAS USED FOR SORTOUT
WER054I RCD IN 4, OUT 4
WER169I RELEASE 1.1C BATCH 0405 TPF LEVEL 3A
WER052I END SYNCSORT - TSORT460,STEP0010,,DIAG=8E00,D90F,A28A,E06E,C676,68A2,26C8,EC66

There are four records in input file, with character in 31st pos having HH, CC, DD, EE resp.

In just 1 step Question

Thanks,

Regards,
Deepa

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12378
Topics: 75
Location: San Jose

Posted: Mon Jul 17, 2006 7:30 am Post subject:

Deepa,

I am not sure as to why OUTFIL rest did not have the remaining records. May be your version of sort does not support the SAVE option.

Try changing the outfil REST to the following.

Code:

OUTFIL FNAMES=REST,
OMIT=(31,2,CH,EQ,C'CC',OR,31,2,CH,EQ,C'HH'),
OUTREC=(01,13,
14,11,ZD,PD,LENGTH=6,
25,52,
5C'0',
79,8)

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Display posts from previous:

	MVSFORUMS.com Forum Index -> Application Programming	All times are GMT - 5 Hours Goto page Previous 1, 2
Page 2 of 2

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum